sortie_mvw.F

Go to the documentation of this file.

Copyright>        OpenRadioss
Copyright>        Copyright (C) 1986-2025 Altair Engineering Inc.
Copyright>
Copyright>        This program is free software: you can redistribute it and/or modify
Copyright>        it under the terms of the GNU Affero General Public License as published by
Copyright>        the Free Software Foundation, either version 3 of the License, or
Copyright>        (at your option) any later version.
Copyright>
Copyright>        This program is distributed in the hope that it will be useful,
Copyright>        but WITHOUT ANY WARRANTY; without even the implied warranty of
Copyright>        MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Copyright>        GNU Affero General Public License for more details.
Copyright>
Copyright>        You should have received a copy of the GNU Affero General Public License
Copyright>        along with this program.  If not, see <https://www.gnu.org/licenses/>.
Copyright>
Copyright>
Copyright>        Commercial Alternative: Altair Radioss Software
Copyright>
Copyright>        As an alternative to this open-source version, Altair also offers Altair Radioss
Copyright>        software under a commercial license.  Contact Altair to discuss further if the
Copyright>        commercial version may interest you: https://www.altair.com/radioss/.
!||====================================================================
!||    sortie_mvw      ../engine/source/output/report/sortie_mvw.F
!||--- called by ------------------------------------------------------
!||    arret           ../engine/source/system/arret.F
!||--- uses       -----------------------------------------------------
!||    inoutfile_mod   ../common_source/modules/inoutfile_mod.F
!||====================================================================
      SUBROUTINE sortie_mvw(IMVW,IMVW_REF)
C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE inoutfile_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "task_c.inc"
#include      "com08_c.inc"
#include      "scr14_c.inc"
#include      "chara_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
c      my_real
c     .        X(3,*)
      integer
     .         imvw,imvw_ref
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      integer
     .         ioutmvw
      CHARACTER FILNAM*100
      CHARACTER LINE*200
      CHARACTER*100  FMW
      
      INTEGER :: LEN_TMP_NAME
      CHARACTER(len=2148) :: TMP_NAME
C=======================================================================
      IF(ispmd == 0) THEN
        filnam=rootnam(1:rootlen)//'.mvw'
        ioutmvw = 123123
 
        len_tmp_name = outfile_name_len + len_trim(filnam)
        tmp_name=outfile_name(1:outfile_name_len)//filnam(1:len_trim(filnam))
 
        OPEN(unit=ioutmvw,file=tmp_name(1:len_tmp_name),
     .         access='SEQUENTIAL',
     .         form='FORMATTED',status='UNKNOWN')
       IF(imvw == 1 .OR. imvw == 2)THEN
         IF(izip  == 0) THEN
           WRITE(ioutmvw,'(A)')'{ safe_quotes_on }'
             line='{ GRAPHIC_FILE_1 = "'//rootnam(1:rootlen)//'A001"}'
           WRITE(ioutmvw,'(A)') line
             line='{ RESULT_FILE_1 = "'//rootnam(1:rootlen)//'A001"}'
           WRITE(ioutmvw,'(A)') line
         ELSE
           WRITE(ioutmvw,'(A)')'{ safe_quotes_on }'
             line='{ GRAPHIC_FILE_1 = "'//rootnam(1:rootlen)//'A001.gz"}'
           WRITE(ioutmvw,'(A)') line
             line='{ RESULT_FILE_1 = "'//rootnam(1:rootlen)//'A001.gz"}'
           WRITE(ioutmvw,'(A)') line
         ENDIF
       ELSEIF(imvw == 3 .OR. imvw == 4)THEN
         WRITE(ioutmvw,'(A)')'{ safe_quotes_on }'
           line='{ GRAPHIC_FILE_1 = "'//rootnam(1:rootlen)//'.h3d"}'
         WRITE(ioutmvw,'(A)') line
           line='{ RESULT_FILE_1 = "'//rootnam(1:rootlen)//'.h3d"}'
         WRITE(ioutmvw,'(A)') line
       ENDIF
 
       IF (imvw_ref == 1) THEN
         WRITE(ioutmvw,'(A)')'{ safe_quotes_on }'
           line='{ GRAPHIC_FILE_2 = "'//imvw_refpath(1:len_trim(imvw_refpath))//rootnam(1:rootlen)//'A001"}'
         WRITE(ioutmvw,'(A)') line
           line='{ RESULT_FILE_2 = "'//imvw_refpath(1:len_trim(imvw_refpath))//rootnam(1:rootlen)//'A001"}'
         WRITE(ioutmvw,'(A)') line
           line='{ plot_file_2 = "'//IMVW_REFPATH(1:LEN_TRIM(IMVW_REFPATH))//ROOTNAM(1:ROOTLEN)//'T01"}'
         WRITE(IOUTMVW,'(a)') LINE
       ENDIF
 
.OR.       IF (IMVW == 1  IMVW == 3)LINE='{ plot_file_1 = "'//ROOTNAM(1:ROOTLEN)//'T01"}'
.OR.       IF (IMVW == 2  IMVW == 4)LINE='{ plot_file_1 = "'//ROOTNAM(1:ROOTLEN)//'_0001.abf"}'
       WRITE(IOUTMVW,'(a)') LINE
       WRITE(IOUTMVW,'(a)')'*id("HyperWorks", "13.*")'
       WRITE(IOUTMVW,'(a)')'*beginpalette()'
       WRITE(IOUTMVW,'(a)')'*endpalette()'
       WRITE(IOUTMVW,'(a)')'*beginpage() // page 1'
       WRITE(IOUTMVW,'(a)')'    *isactive()'
       WRITE(IOUTMVW,'(a)')'    *name("page1")'
       WRITE(IOUTMVW,'(a)')'    *title("{p1w2c1.y.HWDatatype}", on)'
       WRITE(IOUTMVW,'(a)')'    *titlefont("Arial", 1, 0, 12)'
       IF (IMVW_REF == 0) WRITE(IOUTMVW,'(a)')'    *layout(10)'
       IF (IMVW_REF == 1) WRITE(IOUTMVW,'(a)')'    *layout(10)'
       WRITE(IOUTMVW,'(a)')'    *beginanimator(transient)'
       WRITE(IOUTMVW,'(a)')'        *currenttime(undeformed)'
       WRITE(IOUTMVW,'(a)')'        *starttime(0,0)'
       WRITE(IOUTMVW,'(a)')'        *endtime(20,100433349)'
       WRITE(IOUTMVW,'(a)')'        *increment(forward, frame, 1, bounceoff)'
       WRITE(IOUTMVW,'(a)')'    *endanimator()'
       WRITE(IOUTMVW,'(a)')'    *windowids(1, 2, 3, 4)'
       WRITE(IOUTMVW,'(a)')'    *beginwindow(animation)         // window 1'
       WRITE(IOUTMVW,'(a)')'        *isactive()'
       WRITE(IOUTMVW,'(a)')'        *exportformat("PNG")'
       WRITE(IOUTMVW,'(a)')'        *animationnote("RUN REPORT")'
       WRITE(IOUTMVW,'(a)')'        *begingraphic()'
       WRITE(IOUTMVW,'(a)')'            *lightinfo(0, 0, 1, 0, 0, 0, 64)'
       WRITE(IOUTMVW,'(a)')'            *rotationangle(15)'
       WRITE(IOUTMVW,'(a)')'            *beginmodel({graphic_file_1}, "RADIOSS (A) Result Reader")'
       WRITE(IOUTMVW,'(a)')'                *readerproperty("Create 1D components:", "By solver output")'
       WRITE(IOUTMVW,'(a)')'                *readerproperty("Displacement result based on:", "Model position")'
       WRITE(IOUTMVW,'(a)')'                *readerproperty("Maximum Plastic strain over layers", "No")'
       WRITE(IOUTMVW,'(a)')'                *readerproperty("Maximum Plastic strain over layers with prestrain removed", "No")'
       WRITE(IOUTMVW,'(a)')'                *readerproperty("Plastic strain with prestrain removed", "No")'
       WRITE(IOUTMVW,'(a)')'                *readerproperty("Strain Tensor with prestrain removed", "No")'
       WRITE(IOUTMVW,'(a)')'                *resultmathtemplate("Standard")'
       WRITE(IOUTMVW,'(a)')'                *beginresult({result_file_1}, "RADIOSS (A) Result Reader")'
       WRITE(IOUTMVW,'(a)')'                    *currentsubcase(1)'
       WRITE(IOUTMVW,'(a)')'                    *readerproperty("Create 1D components:", "By solver output")'
       WRITE(IOUTMVW,'(a)')'                    *readerproperty("Displacement result based on:", "Model position")'
       WRITE(IOUTMVW,'(a)')'                    *readerproperty("Maximum Plastic strain over layers", "No")'
       WRITE(IOUTMVW,'(a)')'                    *readerproperty("Maximum Plastic strain over layers with prestrain removed", "No")'
       WRITE(IOUTMVW,'(a)')'                    *readerproperty("plastic strain with prestrain removed", "no")'
       WRITE(IOUTMVW,'(A)')'                    *ReaderProperty("strain tensor with prestrain removed", "no")'
       WRITE(IOUTMVW,'(A)')'                *EndResult()'
cc
c GENERIC PARTS
cc
       WRITE(IOUTMVW,'(A)')'                *BeginPart(1, "orphan-node", "part", 0)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute(On, IdOff, 41, Opa, Sha, Msh, InFit, InCut, InIso)'
       WRITE(IOUTMVW,'(A)')'                *EndPart()'
       WRITE(IOUTMVW,'(A)')'                *BeginPart(851, "rigid", "part", 0)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute(On, IdOff, 18, Opa, Sha, Msh, InFit, InCut, InIso)'
       WRITE(IOUTMVW,'(A)')'                *EndPart()'
cc
c GROUPS
cc
       WRITE(IOUTMVW,'(A)')'                *BeginGroup("0d set", "off", "off", "255   0   0", 1, "wire")'
       WRITE(IOUTMVW,'(A)')'                    *BeginSelection(Part, SelectAll, "user_set", 1)'
       WRITE(IOUTMVW,'(A)')'                        *Add("dimension == 0")'
       WRITE(IOUTMVW,'(A)')'                    *EndSelection()'
       WRITE(IOUTMVW,'(A)')'                *EndGroup()'
       WRITE(IOUTMVW,'(A)')'                *BeginGroup("1d set", "off", "off", "  0 255   0", 1, "wire")'
       WRITE(IOUTMVW,'(A)')'                    *BeginSelection(Part, SelectAll, "user_set", 2)'
       WRITE(IOUTMVW,'(A)')'                        *Add("dimension == 1")'
       WRITE(IOUTMVW,'(A)')'                    *EndSelection()'
       WRITE(IOUTMVW,'(A)')'                *EndGroup()'
       WRITE(IOUTMVW,'(A)')'                *BeginGroup("2d set", "off", "off", "  0   0 255", 1, "wire")'
       WRITE(IOUTMVW,'(A)')'                    *BeginSelection(Part, SelectAll, "user_set", 3)'
       WRITE(IOUTMVW,'(A)')'                        *Add("dimension == 2")'
       WRITE(IOUTMVW,'(A)')'                    *EndSelection()'
       WRITE(IOUTMVW,'(A)')'                *EndGroup()'
       WRITE(IOUTMVW,'(A)')'                *BeginGroup("3d set", "off", "off", "  0   0 255", 1, "wire")'
       WRITE(IOUTMVW,'(A)')'                    *BeginSelection(Part, SelectAll, "user_set", 4)'
       WRITE(IOUTMVW,'(A)')'                        *Add("dimension == 3")'
       WRITE(IOUTMVW,'(A)')'                    *EndSelection()'
       WRITE(IOUTMVW,'(A)')'                *EndGroup()'
       WRITE(IOUTMVW,'(A)')'                *BeginGroup("orphan nodes", "off", "off", "255 255 255", 1, "wire")'
       WRITE(IOUTMVW,'(A)')'                    *BeginSelection(Part, SelectAll, "user_set", 5)'
       WRITE(IOUTMVW,'(A)')'                        *Add("orphan-node id 1")'
       WRITE(IOUTMVW,'(A)')'                    *EndSelection()'
       WRITE(IOUTMVW,'(A)')'                *EndGroup()'
cc
c 
cc
       WRITE(IOUTMVW,'(A)')'                *BeginDeformed()'
       WRITE(IOUTMVW,'(A)')'                    *ScaleMode("scalefactor")'
       WRITE(IOUTMVW,'(A)')'                    *Scale("1.000000 1.000000 1.000000")'
       WRITE(IOUTMVW,'(A)')'                    *ResolvedInSystem(0)'
       WRITE(IOUTMVW,'(A)')'                    *ResultType("displacement")'
       WRITE(IOUTMVW,'(A)')'                    *UndeformedMode("none")'
       WRITE(IOUTMVW,'(A)')'                    *UndeformedColor("componentcolor")'
       WRITE(IOUTMVW,'(a)')'                    *undeformedtracking("off")'
       WRITE(IOUTMVW,'(a)')'                *enddeformed()'
       WRITE(IOUTMVW,'(a)')'                *beginresultmath()'
       WRITE(IOUTMVW,'(a)')'                *endresultmath()'
       WRITE(IOUTMVW,'(a)')'                *layernumber(0)'
       WRITE(IOUTMVW,'(a)')'            *endmodel()'
       WRITE(IOUTMVW,'(a)')'            *renderoptions("None", "ClipTransparencyOff")'
       WRITE(IOUTMVW,'(a)')'            *displayoptions("NotesOn")'
       WRITE(IOUTMVW,'(a)')'            *beginnote("On", "Model Info")'
       WRITE(IOUTMVW,'(a)')'                *transparent("On")'
       WRITE(IOUTMVW,'(a)')'                *autohide("Off")'
       WRITE(IOUTMVW,'(a)')'                *fillcolor(31)'
       WRITE(IOUTMVW,'(a)')'                *textcolor(1)'
       WRITE(IOUTMVW,'(a)')'                *attach("WINDOW")'
       WRITE(IOUTMVW,'(a)')'                *position(0.500000, 0.500000)'
       WRITE(IOUTMVW,'(a)')'                *text("{for (i = 0; i != numpts(window.modeltitlelist); ++i) }\n
     .    {window.modelidlist[i]}:{window.modeltitlelist[i]}\n{window.loadcaselist[i]} : 
     . {window.simulationsteplist[i]} : {window.framelist[i]}\n{endloop}")'
                
       WRITE(IOUTMVW,'(a)')'                *font("Arial", "regular", "regular", 10)'
       WRITE(IOUTMVW,'(a)')'                *color(1)'
       WRITE(IOUTMVW,'(a)')'                *borderwidth(0)'
       WRITE(IOUTMVW,'(a)')'                *notealignment("Right")'
       WRITE(IOUTMVW,'(a)')'                *noteanchor("Right", "Top")'
       WRITE(IOUTMVW,'(a)')'                *titleflag("Yes")'
       WRITE(IOUTMVW,'(a)')'            *endnote()'
       WRITE(IOUTMVW,'(a)')'            *preferences(1, 31, 10, 0, 2, 3, 4, triadon, 30, "TopToBottom", "Off")'
       WRITE(IOUTMVW,'(a)')'            *CurrentModel(1)'
       WRITE(ioutmvw,'(A)')'            *View(0.707107, 0.353553, -0.612372, 0, '
       WRITE(ioutmvw,'(A)')'                  -0.707107, 0.353553, -0.612372, 0, '
       WRITE(ioutmvw,'(A)')'                  -3.60866e-012, 0.866025, 0.5, 0, '
       WRITE(ioutmvw,'(A)')'                  0, 0, 0, 1)'
       WRITE(ioutmvw,'(A)')'            *ClippingRegion(-99.7008, 538.081, -174.535, 492.689, -560.868, 111.237)'
 
 
       WRITE(ioutmvw,'(A)')'            *BeginNote("On", "Note 2")'
       WRITE(ioutmvw,'(A)')'                *Transparent("On") '
       WRITE(ioutmvw,'(A)')'                *AutoHide("Off") '
       WRITE(ioutmvw,'(A)')'                *FillColor(31) '
       WRITE(ioutmvw,'(A)')'                *TextColor(1) '
       WRITE(ioutmvw,'(A)')'                *Attach("WINDOW") '
       WRITE(ioutmvw,'(A)')'                *Position(0.081395, 0.944444) '
       WRITE(ioutmvw,'(A)')'                *Text("RUN REPORT") '
       WRITE(ioutmvw,'(A)')'                *Font("Arial", "regular", "regular", 10) '
       WRITE(ioutmvw,'(A)')'                *Color(1) '
       WRITE(ioutmvw,'(A)')'                *BorderWidth(1) '
       WRITE(ioutmvw,'(A)')'                *Shape("Rectangle") '
       WRITE(ioutmvw,'(A)')'                *NoteAlignment("Left") '
       WRITE(ioutmvw,'(A)')'                *NoteAnchor("Left", "Top") '
       WRITE(ioutmvw,'(A)')'                *TitleFlag("No") '
       WRITE(ioutmvw,'(A)')'            *EndNote() '
 
c
c       FMW  = "(A28,1PG15.6,A,1PG15.6,A,1PG15.6,A,1PG15.6,A,1PG15.6,A,1PG15.6,A )"
c       WRITE(IOUTMVW,FMT=FMW) ,'            *ClippingRegion(',XMIN_GLOB,',',XMAX_GLOB,',',YMIN_GLOB,',',
c     .                        YMAX_GLOB,',',ZMIN_GLOB,',',ZMAX_GLOB ,')'
c
       WRITE(ioutmvw,'(A)')'        *EndGraphic()'
       WRITE(ioutmvw,'(A)')'    *EndWindow()'
       WRITE(ioutmvw,'(A)')'    *BeginWindow(Plot)         // Window 2'
       WRITE(ioutmvw,'(A)')'        *SaveDataInline(0)'
       WRITE(ioutmvw,'(A)')'        *ExportFormat("PNG")'
       WRITE(ioutmvw,'(A)')'        *BeginPlot()'
       WRITE(ioutmvw,'(A)')'            *PlotType(0)'
       WRITE(ioutmvw,'(A)')'            *BeginPlotHeader(On)'
       WRITE(ioutmvw,'(A)')'                *PrimaryFont("Microsoft Sans Serif", 0, 0, 14)'
       WRITE(ioutmvw,'(A)')'                *SecondaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(ioutmvw,'(A)')'                *TertiaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(ioutmvw,'(A)')'                *Color(0)'
       WRITE(ioutmvw,'(A)')'                *Text("RUN REPORT (Energies)")'
       WRITE(ioutmvw,'(A)')'                *HeaderAlignment(2)'
       WRITE(ioutmvw,'(A)')'            *EndPlotHeader()'
       WRITE(ioutmvw,'(A)')'            *BeginPlotFooter(Off)'
       WRITE(ioutmvw,'(A)')'                *PrimaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(ioutmvw,'(A)')'                *SecondaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(ioutmvw,'(A)')'                *TertiaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(ioutmvw,'(A)')'                *Color(0)'
       WRITE(ioutmvw,'(A)')'                *Text("{p1w2c1.y.HWRequest} - {p1w2c1.y.HWComponent}")'
       WRITE(ioutmvw,'(A)')'                *FooterAlignment(2)'
       WRITE(ioutmvw,'(A)')'            *EndPlotFooter()'
       WRITE(ioutmvw,'(A)')'            *BeginLegend(On)'
       WRITE(ioutmvw,'(A)')'                *Font("Microsoft Sans Serif", 0, 0, 10)'
       WRITE(ioutmvw,'(A)')'                *BorderWidth(1)'
       WRITE(ioutmvw,'(A)')'                *Color(0)'
       WRITE(ioutmvw,'(A)')'                *Leader(Left)'
       WRITE(ioutmvw,'(A)')'                *Location(INSIDE)'
       WRITE(ioutmvw,'(A)')'                *Position(0.152542, 2.46092e+007, 9.45763, 1.85524e+007)'
       WRITE(ioutmvw,'(A)')'                *AutoPosition(True)'
       WRITE(ioutmvw,'(A)')'                *Reversed(no)'
       WRITE(ioutmvw,'(A)')'            *EndLegend()'
       WRITE(ioutmvw,'(A)')'            *UniformAspectRatio(0)'
       WRITE(ioutmvw,'(A)')'            *FrameColor(66)'
       WRITE(ioutmvw,'(A)')'            *BackgroundColor(1)'
       WRITE(ioutmvw,'(A)')'            *GridLineColor(9)'
       WRITE(ioutmvw,'(A)')'            *ZeroLineColor(0)'
       WRITE(ioutmvw,'(A)')'            *beginaxis(x, "X1", on)'
       WRITE(IOUTMVW,'(a)')'                *label("Time")'
       WRITE(IOUTMVW,'(a)')'                *scale(linear)'
       WRITE(IOUTMVW,'(a)')'                *ticmethod(peraxis)'
       WRITE(IOUTMVW,'(a)')'                *min(0)'
c       WRITE(IOUTMVW,'(A)')'                *Max(22.5)'
                  FMW  = "(A21,1PG15.6,A)"
       WRITE(IOUTMVW,FMT=FMW) '                *max(',TT,')'
C
       WRITE(IOUTMVW,'(a)')'                *Format(auto)'
       WRITE(IOUTMVW,'(a)')'                *precision(5)'
       WRITE(IOUTMVW,'(a)')'                *tics(10)'
       WRITE(IOUTMVW,'(a)')'                *grids(2)'
       WRITE(IOUTMVW,'(a)')'                *color(67)'
       WRITE(IOUTMVW,'(a)')'                *autofit(true)'
       WRITE(IOUTMVW,'(a)')'                *labelfont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(a)')'                *ticsfont("Microsoft Sans Serif", 0, 0, 10)'
       WRITE(IOUTMVW,'(a)')'                *fitrange(false)'
       WRITE(IOUTMVW,'(a)')'            *endaxis()'
       WRITE(IOUTMVW,'(a)')'            *beginaxis(y, "Y1", on)'
       WRITE(IOUTMVW,'(a)')'                *label("{p1w2c1.y.HWDatatype}")'
       WRITE(IOUTMVW,'(a)')'                *scale(linear)'
       WRITE(IOUTMVW,'(a)')'                *ticmethod(peraxis)'
c       WRITE(IOUTMVW,'(A)')'                *Min(-2.5e+006)'
c       WRITE(IOUTMVW,'(A)')'                *Max(2.5e+007)'
       WRITE(IOUTMVW,'(a)')'                *Format(auto)'
       WRITE(IOUTMVW,'(a)')'                *precision(5)'
       WRITE(IOUTMVW,'(a)')'                *tics(12)'
       WRITE(IOUTMVW,'(a)')'                *grids(2)'
       WRITE(IOUTMVW,'(a)')'                *color(67)'
       WRITE(IOUTMVW,'(a)')'                *autofit(true)'
       WRITE(IOUTMVW,'(a)')'                *labelfont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(a)')'                *ticsfont("Microsoft Sans Serif", 0, 0, 10)'
       WRITE(IOUTMVW,'(a)')'                *fitrange(false)'
       WRITE(IOUTMVW,'(a)')'            *endaxis()'
       WRITE(IOUTMVW,'(a)')'            *begincurve(on, "{y.HWRequest}")'
       WRITE(IOUTMVW,'(a)')'                *line(1, 22, 1)'
       WRITE(IOUTMVW,'(a)')'                *symbol(0, 22, 1)'
       WRITE(IOUTMVW,'(a)')'                *shade(false)'
       WRITE(IOUTMVW,'(a)')'                *bar(0, 0, 2)'
       WRITE(IOUTMVW,'(a)')'                *showinlegend(true)'
       WRITE(IOUTMVW,'(a)')'                *beginvector(y, file)'
       WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
       WRITE(IOUTMVW,'(a)')'                    *datatype("Global Variables")'
       WRITE(IOUTMVW,'(a)')'                    *request("Internal Energy")'
       WRITE(IOUTMVW,'(a)')'                    *component("MAG")'
       WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwsolver", "solver", "string", "radioss")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomponent", "component", "string", "mag")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwwordsize", "wordsize", "string", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwdatatype", "datatype", "string", "global variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwrequest", "request", "string", "internal energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomplexcomponent", "complexcomponent", "string", "mag")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(X, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwsolver", "solver", "string", "radioss")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwdatatype", "datatype", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwrequest", "request", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomponent", "component", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwwordsize", "wordsize", "string", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Time, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwsolver", "solver", "string", "radioss")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwdatatype", "datatype", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwrequest", "request", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomponent", "component", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(U, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwsolver", "solver", "string", "radioss")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwdatatype", "datatype", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwrequest", "request", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomponent", "component", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwwordsize", "wordsize", "string", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(V, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("global variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("internal energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("mag")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwsolver", "solver", "string", "radioss")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomponent", "component", "string", "mag")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwwordsize", "wordsize", "string", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwdatatype", "datatype", "string", "global variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwrequest", "request", "string", "internal energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomplexcomponent", "complexcomponent", "string", "mag")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *Attribute("hwlastgoodcurvename", "hwlastgoodcurvename", "string", "internal energy")'
       WRITE(IOUTMVW,'(A)')'            *EndCurve()'
c
       WRITE(IOUTMVW,'(A)')'            *BeginCurve(On, "{y.hwrequest}")'
       WRITE(IOUTMVW,'(A)')'                *Line(1, 18, 1)'
       WRITE(IOUTMVW,'(A)')'                *Symbol(0, 18, 1)'
       WRITE(IOUTMVW,'(A)')'                *Shade(False)'
       WRITE(IOUTMVW,'(A)')'                *Bar(0, 0, 2)'
       WRITE(IOUTMVW,'(A)')'                *ShowInLegend(True)'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Y, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("global variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("kinetic energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("mag")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwsolver", "solver", "string", "radioss")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomponent", "component", "string", "mag")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwwordsize", "wordsize", "string", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwdatatype", "datatype", "string", "global variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwrequest", "request", "string", "kinetic energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomplexcomponent", "complexcomponent", "string", "mag")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(X, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwsolver", "solver", "string", "radioss")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwdatatype", "datatype", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwrequest", "request", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomponent", "component", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwwordsize", "wordsize", "string", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Time, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwsolver", "solver", "string", "radioss")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwdatatype", "datatype", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwrequest", "request", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomponent", "component", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(U, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwsolver", "solver", "string", "radioss")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwdatatype", "datatype", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwrequest", "request", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomponent", "component", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwwordsize", "wordsize", "string", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(V, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("global variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("kinetic energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("mag")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwsolver", "solver", "string", "radioss")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomponent", "component", "string", "mag")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwwordsize", "wordsize", "string", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwdatatype", "datatype", "string", "global variables")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Kinetic Energy")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(a)')'                *endvector()'
       WRITE(IOUTMVW,'(a)')'                *attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Kinetic Energy")'
       WRITE(IOUTMVW,'(a)')'            *endcurve()'
c
       WRITE(IOUTMVW,'(a)')'            *begincurve(on, "{y.HWRequest}")'
       WRITE(IOUTMVW,'(a)')'                *line(1, 55, 1)'
       WRITE(IOUTMVW,'(a)')'                *symbol(0, 55, 1)'
       WRITE(IOUTMVW,'(a)')'                *shade(false)'
       WRITE(ioutmvw,'(A)')'                *Bar(0, 0, 2)'
       WRITE(ioutmvw,'(A)')'                *ShowInLegend(True)'
       WRITE(ioutmvw,'(A)')'                *BeginVector(Y, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Request("Rotational kinetic energy")'
       WRITE(ioutmvw,'(A)')'                    *Component("MAG")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(a)')'                    *attribute("HWWordSize", "WordSize", "string", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwdatatype", "datatype", "string", "global variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwrequest", "request", "string", "rotational kinetic energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomplexcomponent", "complexcomponent", "string", "mag")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(X, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwsolver", "solver", "string", "radioss")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwdatatype", "datatype", "string", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(a)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(a)')'                *endvector()'
       WRITE(IOUTMVW,'(a)')'                *beginvector(time, file)'
       WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Time")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(U, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Time")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(V, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Request("Rotational kinetic energy")'
       WRITE(ioutmvw,'(A)')'                    *Component("MAG")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Rotational kinetic energy")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Rotational kinetic e
     .nergy")'
       WRITE(ioutmvw,'(A)')'            *EndCurve()'
c
       WRITE(ioutmvw,'(A)')'            *BeginCurve(On, "{y.HWRequest}")'
       WRITE(ioutmvw,'(A)')'                *Line(1, 46, 1)'
       WRITE(ioutmvw,'(A)')'                *Symbol(0, 46, 1)'
       WRITE(ioutmvw,'(A)')'                *Shade(False)'
       WRITE(ioutmvw,'(A)')'                *Bar(0, 0, 2)'
       WRITE(ioutmvw,'(A)')'                *ShowInLegend(True)'
       WRITE(ioutmvw,'(A)')'                *BeginVector(Y, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Request("External forces work")'
       WRITE(ioutmvw,'(A)')'                    *Component("MAG")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "External forces work")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(X, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Time")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(a)')'                *endvector()'
       WRITE(IOUTMVW,'(a)')'                *beginvector(time, file)'
       WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
       WRITE(IOUTMVW,'(a)')'                    *datatype("Time")'
       WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
       WRITE(IOUTMVW,'(a)')'                    *offset("0")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(a)')'                *endvector()'
       WRITE(IOUTMVW,'(a)')'                *beginvector(u, file)'
       WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
       WRITE(IOUTMVW,'(a)')'                    *datatype("Time")'
       WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
       WRITE(IOUTMVW,'(a)')'                    *offset("0")'
       WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(V, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Request("External forces work")'
       WRITE(ioutmvw,'(A)')'                    *Component("MAG")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "External forces work")'
       WRITE(ioutmvw,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(a)')'                *endvector()'
       WRITE(IOUTMVW,'(a)')'                *attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "External forces work
     .")'
       WRITE(IOUTMVW,'(a)')'            *endcurve()'
c
       WRITE(IOUTMVW,'(a)')'            *begincurve(on, "{y.HWRequest}")'
       WRITE(IOUTMVW,'(a)')'                *line(1, 24, 1)'
       WRITE(IOUTMVW,'(a)')'                *symbol(0, 24, 1)'
       WRITE(IOUTMVW,'(a)')'                *shade(false)'
       WRITE(IOUTMVW,'(a)')'                *bar(0, 0, 2)'
       WRITE(IOUTMVW,'(a)')'                *showinlegend(true)'
       WRITE(IOUTMVW,'(a)')'                *beginvector(y, file)'
       WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
       WRITE(IOUTMVW,'(a)')'                    *datatype("Global Variables")'
.OR.       IF (IMVW == 1  IMVW == 3) THEN
         WRITE(IOUTMVW,'(a)')'                    *request("Springs internal energy")'
       ELSE
         WRITE(IOUTMVW,'(a)')'                    *request("Spring internal energy")'
       ENDIF
       WRITE(IOUTMVW,'(a)')'                    *component("MAG")'
       WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
       WRITE(IOUTMVW,'(a)')'                    *offset("0")'
       WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Global Variables")'
.OR.       IF (IMVW == 1  IMVW == 3) THEN
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Springs internal energy")'
       ELSE
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Spring internal energy")'
       ENDIF
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(a)')'                *endvector()'
       WRITE(IOUTMVW,'(a)')'                *beginvector(x, file)'
       WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
       WRITE(IOUTMVW,'(a)')'                    *datatype("Time")'
       WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
       WRITE(IOUTMVW,'(a)')'                    *offset("0")'
       WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(a)')'                *endvector()'
       WRITE(IOUTMVW,'(a)')'                *beginvector(time, file)'
       WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
       WRITE(IOUTMVW,'(a)')'                    *datatype("Time")'
       WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
       WRITE(IOUTMVW,'(a)')'                    *offset("0")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(a)')'                *endvector()'
       WRITE(IOUTMVW,'(a)')'                *beginvector(u, file)'
       WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
       WRITE(IOUTMVW,'(a)')'                    *datatype("Time")'
       WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
       WRITE(IOUTMVW,'(a)')'                    *offset("0")'
       WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(a)')'                *endvector()'
       WRITE(IOUTMVW,'(a)')'                *beginvector(v, file)'
       WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
       WRITE(IOUTMVW,'(a)')'                    *datatype("Global Variables")'
.OR.       IF (IMVW == 1  IMVW == 3) THEN
         WRITE(IOUTMVW,'(a)')'                    *request("Springs internal energy")'
       ELSE
         WRITE(IOUTMVW,'(a)')'                    *request("Spring internal energy")'
       ENDIF
       WRITE(IOUTMVW,'(a)')'                    *component("MAG")'
       WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       IF (imvw == 1 .OR. imvw == 3) THEN
         WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Springs internal energy")'
       ELSE
         WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Springs internal energy")'
       ENDIF
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       IF (imvw == 1 .OR. imvw == 3) THEN
         WRITE(ioutmvw,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Springs internal e
     .nergy")'
       ELSE
         WRITE(ioutmvw,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Spring internal en
     .ergy")'
       ENDIF
       WRITE(ioutmvw,'(A)')'            *EndCurve()'
c
       WRITE(ioutmvw,'(A)')'            *BeginCurve(On, "{y.HWRequest}")'
       WRITE(ioutmvw,'(A)')'                *Line(1, 54, 1)'
       WRITE(ioutmvw,'(A)')'                *Symbol(0, 54, 1)'
       WRITE(ioutmvw,'(A)')'                *Shade(False)'
       WRITE(ioutmvw,'(A)')'                *Bar(0, 0, 2)'
       WRITE(ioutmvw,'(A)')'                *ShowInLegend(True)'
       WRITE(ioutmvw,'(A)')'                *BeginVector(Y, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Request("Contact energy")'
       WRITE(ioutmvw,'(A)')'                    *Component("MAG")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Contact energy")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(X, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Time")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *endvector()'
       WRITE(IOUTMVW,'(a)')'                *beginvector(time, file)'
       WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
       WRITE(IOUTMVW,'(a)')'                    *datatype("Time")'
       WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
       WRITE(IOUTMVW,'(a)')'                    *offset("0")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(U, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwsolver", "solver", "string", "radioss")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwdatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(a)')'                *endvector()'
       WRITE(IOUTMVW,'(a)')'                *beginvector(v, file)'
       WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
       WRITE(IOUTMVW,'(a)')'                    *datatype("Global Variables")'
       WRITE(IOUTMVW,'(a)')'                    *request("Contact energy")'
       WRITE(IOUTMVW,'(a)')'                    *component("MAG")'
       WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
       WRITE(IOUTMVW,'(a)')'                    *offset("0")'
       WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Contact energy")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(a)')'                *endvector()'
       WRITE(IOUTMVW,'(a)')'                *attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Contact energy")'
       WRITE(IOUTMVW,'(a)')'            *endcurve()'
c
       WRITE(IOUTMVW,'(a)')'            *begincurve(on, "{y.HWRequest}")'
       WRITE(IOUTMVW,'(a)')'                *line(1, 38, 1)'
       WRITE(IOUTMVW,'(a)')'                *symbol(0, 38, 1)'
       WRITE(IOUTMVW,'(a)')'                *shade(false)'
       WRITE(IOUTMVW,'(a)')'                *bar(0, 0, 2)'
       WRITE(IOUTMVW,'(a)')'                *showinlegend(true)'
       WRITE(IOUTMVW,'(a)')'                *beginvector(y, file)'
       WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
       WRITE(IOUTMVW,'(a)')'                    *datatype("Global Variables")'
       WRITE(IOUTMVW,'(a)')'                    *request("Hourglass energy")'
       WRITE(IOUTMVW,'(a)')'                    *component("MAG")'
       WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
       WRITE(IOUTMVW,'(a)')'                    *offset("0")'
       WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Hourglass energy")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(a)')'                *endvector()'
       WRITE(IOUTMVW,'(a)')'                *beginvector(x, file)'
       WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
       WRITE(IOUTMVW,'(a)')'                    *datatype("Time")'
       WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
       WRITE(IOUTMVW,'(a)')'                    *offset("0")'
       WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(a)')'                *endvector()'
       WRITE(IOUTMVW,'(a)')'                *beginvector(time, file)'
       WRITE(IOUTMVW,'(a)')'                    *Filename({PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Time")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(U, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Time")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(a)')'                *endvector()'
       WRITE(IOUTMVW,'(a)')'                *beginvector(v, file)'
       WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
       WRITE(IOUTMVW,'(a)')'                    *datatype("Global Variables")'
       WRITE(IOUTMVW,'(a)')'                    *request("Hourglass energy")'
       WRITE(IOUTMVW,'(a)')'                    *component("MAG")'
       WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
       WRITE(IOUTMVW,'(a)')'                    *offset("0")'
       WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Hourglass energy")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(a)')'                *endvector()'
       WRITE(IOUTMVW,'(a)')'                *attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Hourglass energy")'
       WRITE(IOUTMVW,'(a)')'            *endcurve()'
c
.OR.       IF (IMVW == 1  IMVW == 3) THEN
         WRITE(IOUTMVW,'(a)')'            *begincurve(on, "{y.HWRequest}")'
         WRITE(IOUTMVW,'(a)')'                *line(1, 24, 1)'
         WRITE(IOUTMVW,'(a)')'                *symbol(0, 24, 1)'
         WRITE(IOUTMVW,'(a)')'                *shade(false)'
         WRITE(IOUTMVW,'(a)')'                *bar(0, 0, 2)'
         WRITE(IOUTMVW,'(a)')'                *showinlegend(true)'
         WRITE(IOUTMVW,'(a)')'                *beginvector(y, file)'
         WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
         WRITE(IOUTMVW,'(a)')'                    *datatype("Global Variables")'
         WRITE(IOUTMVW,'(a)')'                    *request("TE-Total Energy")'
         WRITE(IOUTMVW,'(a)')'                    *component("MAG")'
         WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
         WRITE(IOUTMVW,'(a)')'                    *offset("0")'
         WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "MAG")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Global Variables")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "TE-Total Energy")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(a)')'                *endvector()'
         WRITE(IOUTMVW,'(a)')'                *beginvector(x, file)'
         WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
         WRITE(IOUTMVW,'(a)')'                    *datatype("Time")'
         WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
         WRITE(IOUTMVW,'(a)')'                    *offset("0")'
         WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(a)')'                *endvector()'
         WRITE(IOUTMVW,'(a)')'                *beginvector(time, file)'
         WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
         WRITE(IOUTMVW,'(a)')'                    *datatype("Time")'
         WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
         WRITE(IOUTMVW,'(a)')'                    *offset("0")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(a)')'                *endvector()'
         WRITE(IOUTMVW,'(a)')'                *beginvector(u, file)'
         WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
         WRITE(IOUTMVW,'(a)')'                    *datatype("Time")'
         WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
         WRITE(IOUTMVW,'(a)')'                    *offset("0")'
         WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(a)')'                *endvector()'
         WRITE(IOUTMVW,'(a)')'                *beginvector(v, file)'
         WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
         WRITE(IOUTMVW,'(a)')'                    *datatype("Global Variables")'
         WRITE(IOUTMVW,'(a)')'                    *request("TE-Total Energy")'
         WRITE(IOUTMVW,'(a)')'                    *component("MAG")'
         WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
         WRITE(IOUTMVW,'(a)')'                    *offset("0")'
         WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "MAG")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Global Variables")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "TE-Total Energy")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(a)')'                *endvector()'
         WRITE(IOUTMVW,'(a)')'                *attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "TE-Total Energy")'
         WRITE(IOUTMVW,'(a)')'            *endcurve()'
c
         WRITE(IOUTMVW,'(a)')'            *begincurve(on, "{y.HWRequest}")'
         WRITE(IOUTMVW,'(a)')'                *line(1, 54, 1)'
         WRITE(IOUTMVW,'(a)')'                *symbol(0, 54, 1)'
         WRITE(IOUTMVW,'(a)')'                *shade(false)'
         WRITE(IOUTMVW,'(a)')'                *bar(0, 0, 2)'
         WRITE(IOUTMVW,'(a)')'                *showinlegend(true)'
         WRITE(IOUTMVW,'(a)')'                *beginvector(y, file)'
         WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
         WRITE(IOUTMVW,'(a)')'                    *datatype("Global Variables")'
         WRITE(IOUTMVW,'(a)')'                    *request("TER-Total Rotational Energy")'
         WRITE(IOUTMVW,'(a)')'                    *component("MAG")'
         WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
         WRITE(IOUTMVW,'(a)')'                    *offset("0")'
         WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "MAG")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Global Variables")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "TER-Total Rotational Energy")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(a)')'                *endvector()'
         WRITE(IOUTMVW,'(a)')'                *beginvector(x, file)'
         WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
         WRITE(IOUTMVW,'(a)')'                    *datatype("Time")'
         WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
         WRITE(IOUTMVW,'(a)')'                    *offset("0")'
         WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(a)')'                *endvector()'
         WRITE(IOUTMVW,'(a)')'                *beginvector(time, file)'
         WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
         WRITE(IOUTMVW,'(a)')'                    *datatype("Time")'
         WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
         WRITE(IOUTMVW,'(a)')'                    *offset("0")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(a)')'                *endvector()'
         WRITE(IOUTMVW,'(a)')'                *beginvector(u, file)'
         WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
         WRITE(IOUTMVW,'(a)')'                    *datatype("Time")'
         WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
         WRITE(IOUTMVW,'(a)')'                    *offset("0")'
         WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(a)')'                *endvector()'
         WRITE(IOUTMVW,'(a)')'                *beginvector(v, file)'
         WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
         WRITE(IOUTMVW,'(a)')'                    *datatype("Global Variables")'
         WRITE(IOUTMVW,'(a)')'                    *request("TER-Total Rotational Energy")'
         WRITE(IOUTMVW,'(a)')'                    *component("MAG")'
         WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
         WRITE(IOUTMVW,'(a)')'                    *offset("0")'
         WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "MAG")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Global Variables")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "TE-Total Energy")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(a)')'                *endvector()'
         WRITE(IOUTMVW,'(a)')'                *attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "TER-Total Rotation
     .al Energy")'
         WRITE(IOUTMVW,'(a)')'            *endcurve()'
c
         WRITE(IOUTMVW,'(a)')'            *begincurve(on, "{y.HWRequest}")'
         WRITE(IOUTMVW,'(a)')'                *line(1, 38, 1)'
         WRITE(IOUTMVW,'(a)')'                *symbol(0, 38, 1)'
         WRITE(IOUTMVW,'(a)')'                *shade(false)'
         WRITE(IOUTMVW,'(a)')'                *bar(0, 0, 2)'
         WRITE(IOUTMVW,'(a)')'                *showinlegend(true)'
         WRITE(IOUTMVW,'(a)')'                *beginvector(y, file)'
         WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
         WRITE(IOUTMVW,'(a)')'                    *datatype("Global Variables")'
         WRITE(IOUTMVW,'(a)')'                    *request("TTE-Total Translational Energy")'
         WRITE(IOUTMVW,'(a)')'                    *component("MAG")'
         WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
         WRITE(IOUTMVW,'(a)')'                    *offset("0")'
         WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "MAG")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Global Variables")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "TTE-Total Translational Energy")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(a)')'                *endvector()'
         WRITE(IOUTMVW,'(a)')'                *beginvector(x, file)'
         WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
         WRITE(IOUTMVW,'(a)')'                    *datatype("Time")'
         WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
         WRITE(IOUTMVW,'(a)')'                    *offset("0")'
         WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(a)')'                *endvector()'
         WRITE(IOUTMVW,'(a)')'                *beginvector(time, file)'
         WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
         WRITE(IOUTMVW,'(a)')'                    *datatype("Time")'
         WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
         WRITE(IOUTMVW,'(a)')'                    *offset("0")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(a)')'                *endvector()'
         WRITE(IOUTMVW,'(a)')'                *beginvector(u, file)'
         WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
         WRITE(IOUTMVW,'(a)')'                    *datatype("Time")'
         WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
         WRITE(IOUTMVW,'(a)')'                    *offset("0")'
         WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(a)')'                *endvector()'
         WRITE(IOUTMVW,'(a)')'                *beginvector(v, file)'
         WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
         WRITE(IOUTMVW,'(a)')'                    *datatype("Global Variables")'
         WRITE(IOUTMVW,'(a)')'                    *request("TTE-Total Translational Energy")'
         WRITE(IOUTMVW,'(a)')'                    *component("MAG")'
         WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
         WRITE(IOUTMVW,'(a)')'                    *offset("0")'
         WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_1})'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "MAG")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Global Variables")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "TE-Total Energy")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
         WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(a)')'                *endvector()'
         WRITE(IOUTMVW,'(a)')'                *attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "TTE-Total Translat
     .ional Energy")'
         WRITE(IOUTMVW,'(a)')'            *endcurve()'
c
       ENDIF
       WRITE(IOUTMVW,'(a)')'        *endplot()'
       WRITE(IOUTMVW,'(a)')'    *endwindow()'
 
      IF(IMVW_REF == 0) THEN
 
       WRITE(IOUTMVW,'(a)')'    *beginwindow(plot)         // window 3'
       WRITE(IOUTMVW,'(a)')'        *savedatainline(0)'
       WRITE(IOUTMVW,'(a)')'        *exportformat("PNG")'
       WRITE(IOUTMVW,'(a)')'        *beginplot()'
       WRITE(IOUTMVW,'(a)')'            *plottype(0)'
       WRITE(IOUTMVW,'(a)')'            *beginplotheader(on)'
       WRITE(IOUTMVW,'(a)')'                *primaryfont("Microsoft Sans Serif", 0, 0, 14)'
       WRITE(IOUTMVW,'(a)')'                *secondaryfont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(a)')'                *tertiaryfont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(a)')'                *color(0)'
       WRITE(IOUTMVW,'(a)')'                *text("RUN REPORT (Mass)")'
       WRITE(IOUTMVW,'(a)')'                *headeralignment(2)'
       WRITE(IOUTMVW,'(a)')'            *endplotheader()'
       WRITE(IOUTMVW,'(a)')'            *beginplotfooter(off)'
       WRITE(IOUTMVW,'(a)')'                *primaryfont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(a)')'                *secondaryfont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(a)')'                *tertiaryfont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(a)')'                *color(0)'
       WRITE(IOUTMVW,'(a)')'                *text("{p1w2c1.y.HWRequest} - {p1w2c1.y.HWComponent}")'
       WRITE(IOUTMVW,'(a)')'                *footeralignment(2)'
       WRITE(IOUTMVW,'(a)')'            *endplotfooter()'
       WRITE(IOUTMVW,'(a)')'            *beginlegend(on)'
       WRITE(IOUTMVW,'(a)')'                *font("Microsoft Sans Serif", 0, 0, 10)'
       WRITE(IOUTMVW,'(a)')'                *borderwidth(1)'
       WRITE(IOUTMVW,'(a)')'                *color(0)'
       WRITE(IOUTMVW,'(a)')'                *leader(left)'
       WRITE(IOUTMVW,'(a)')'                *location(inside)'
       WRITE(IOUTMVW,'(a)')'                *position(0.152542, 2.46092e+007, 9.45763, 1.85524e+007)'
       WRITE(IOUTMVW,'(a)')'                *autoposition(true)'
       WRITE(IOUTMVW,'(a)')'                *reversed(no)'
       WRITE(IOUTMVW,'(a)')'            *endlegend()'
       WRITE(IOUTMVW,'(a)')'            *uniformaspectratio(0)'
       WRITE(IOUTMVW,'(a)')'            *framecolor(66)'
       WRITE(IOUTMVW,'(a)')'            *backgroundcolor(1)'
       WRITE(IOUTMVW,'(a)')'            *gridlinecolor(9)'
       WRITE(IOUTMVW,'(a)')'            *zerolinecolor(0)'
       WRITE(IOUTMVW,'(a)')'            *beginaxis(x, "X1", on)'
       WRITE(IOUTMVW,'(a)')'                *label("Time")'
       WRITE(IOUTMVW,'(a)')'                *scale(linear)'
       WRITE(IOUTMVW,'(a)')'                *ticmethod(peraxis)'
       WRITE(IOUTMVW,'(a)')'                *min(0)'
c       WRITE(IOUTMVW,'(A)')'                *Max(22.5)'
                  FMW  = "(A21,1PG15.6,A)"
       WRITE(IOUTMVW,FMT=FMW) '                *max(',TT,')'
C
       WRITE(IOUTMVW,'(a)')'                *Format(auto)'
       WRITE(IOUTMVW,'(a)')'                *precision(5)'
       WRITE(IOUTMVW,'(a)')'                *tics(10)'
       WRITE(IOUTMVW,'(a)')'                *grids(2)'
       WRITE(IOUTMVW,'(a)')'                *color(67)'
       WRITE(IOUTMVW,'(a)')'                *autofit(true)'
       WRITE(IOUTMVW,'(a)')'                *labelfont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(a)')'                *ticsfont("Microsoft Sans Serif", 0, 0, 10)'
       WRITE(IOUTMVW,'(a)')'                *fitrange(false)'
       WRITE(IOUTMVW,'(a)')'            *endaxis()'
       WRITE(IOUTMVW,'(a)')'            *beginaxis(y, "Y1", on)'
       WRITE(IOUTMVW,'(a)')'                *label("{p1w2c1.y.HWDatatype}")'
       WRITE(IOUTMVW,'(a)')'                *scale(linear)'
       WRITE(IOUTMVW,'(a)')'                *ticmethod(peraxis)'
c       WRITE(IOUTMVW,'(A)')'                *Min(-2.5e+006)'
c       WRITE(IOUTMVW,'(A)')'                *Max(2.5e+007)'
       WRITE(IOUTMVW,'(a)')'                *Format(auto)'
       WRITE(IOUTMVW,'(a)')'                *precision(5)'
       WRITE(IOUTMVW,'(a)')'                *tics(12)'
       WRITE(IOUTMVW,'(a)')'                *grids(2)'
       WRITE(IOUTMVW,'(a)')'                *color(67)'
       WRITE(IOUTMVW,'(a)')'                *autofit(true)'
       WRITE(IOUTMVW,'(a)')'                *labelfont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(a)')'                *ticsfont("Microsoft Sans Serif", 0, 0, 10)'
       WRITE(IOUTMVW,'(a)')'                *fitrange(false)'
       WRITE(IOUTMVW,'(a)')'            *endaxis()'
       WRITE(IOUTMVW,'(a)')'            *begincurve(on, "{y.HWRequest}")'
       WRITE(IOUTMVW,'(a)')'                *line(1, 22, 1)'
       WRITE(IOUTMVW,'(a)')'                *symbol(0, 22, 1)'
       WRITE(IOUTMVW,'(a)')'                *shade(false)'
       WRITE(IOUTMVW,'(a)')'                *bar(0, 0, 2)'
       WRITE(IOUTMVW,'(a)')'                *showinlegend(true)'
       WRITE(IOUTMVW,'(a)')'                *beginvector(y, file)'
       WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_1})'
       WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
       WRITE(IOUTMVW,'(a)')'                    *Datatype("Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Request("Mass")'
       WRITE(ioutmvw,'(A)')'                    *Component("MAG")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Mass")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(X, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Time")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(Time, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Time")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(U, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Time")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(V, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Request("Internal Energy")'
       WRITE(ioutmvw,'(A)')'                    *Component("MAG")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Internal Energy")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Internal Energy")'
       WRITE(ioutmvw,'(A)')'            *EndCurve()'
c
       WRITE(ioutmvw,'(A)')'        *EndPlot()'
       WRITE(ioutmvw,'(A)')'    *EndWindow()'
       WRITE(ioutmvw,'(A)')'    *BeginWindow(Plot)         // Window 4'
       WRITE(ioutmvw,'(A)')'        *SaveDataInline(0)'
       WRITE(ioutmvw,'(A)')'        *ExportFormat("PNG")'
       WRITE(ioutmvw,'(A)')'        *BeginPlot()'
       WRITE(ioutmvw,'(A)')'            *PlotType(0)'
       WRITE(ioutmvw,'(A)')'            *BeginPlotHeader(On)'
       WRITE(ioutmvw,'(A)')'                *PrimaryFont("Microsoft Sans Serif", 0, 0, 14)'
       WRITE(ioutmvw,'(A)')'                *SecondaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(ioutmvw,'(A)')'                *TertiaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(ioutmvw,'(A)')'                *Color(0)'
       WRITE(ioutmvw,'(A)')'                *Text("RUN REPORT (Time step)")'
       WRITE(ioutmvw,'(A)')'                *HeaderAlignment(2)'
       WRITE(ioutmvw,'(A)')'            *EndPlotHeader()'
       WRITE(ioutmvw,'(A)')'            *BeginPlotFooter(Off)'
       WRITE(ioutmvw,'(A)')'                *PrimaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(ioutmvw,'(A)')'                *SecondaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(ioutmvw,'(A)')'                *TertiaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(ioutmvw,'(A)')'                *Color(0)'
       WRITE(ioutmvw,'(A)')'                *Text("{p1w2c1.y.HWRequest} - {p1w2c1.y.HWComponent}")'
       WRITE(ioutmvw,'(A)')'                *FooterAlignment(2)'
       WRITE(ioutmvw,'(A)')'            *EndPlotFooter()'
       WRITE(ioutmvw,'(A)')'            *BeginLegend(On)'
       WRITE(ioutmvw,'(A)')'                *Font("Microsoft Sans Serif", 0, 0, 10)'
       WRITE(ioutmvw,'(A)')'                *BorderWidth(1)'
       WRITE(ioutmvw,'(A)')'                *Color(0)'
       WRITE(ioutmvw,'(A)')'                *Leader(Left)'
       WRITE(ioutmvw,'(A)')'                *Location(INSIDE)'
       WRITE(ioutmvw,'(A)')'                *Position(0.152542, 2.46092e+007, 9.45763, 1.85524e+007)'
       WRITE(ioutmvw,'(A)')'                *AutoPosition(True)'
       WRITE(ioutmvw,'(A)')'                *Reversed(no)'
       WRITE(ioutmvw,'(A)')'            *EndLegend()'
       WRITE(ioutmvw,'(A)')'            *UniformAspectRatio(0)'
       WRITE(ioutmvw,'(A)')'            *FrameColor(66)'
       WRITE(ioutmvw,'(A)')'            *BackgroundColor(1)'
       WRITE(ioutmvw,'(A)')'            *GridLineColor(9)'
       WRITE(ioutmvw,'(A)')'            *ZeroLineColor(0)'
       WRITE(ioutmvw,'(A)')'            *BeginAxis(X, "X1", on)'
       WRITE(ioutmvw,'(A)')'                *Label("Time")'
       WRITE(ioutmvw,'(A)')'                *Scale(Linear)'
       WRITE(ioutmvw,'(A)')'                *TicMethod(PerAxis)'
       WRITE(ioutmvw,'(A)')'                *Min(0)'
c       WRITE(IOUTMVW,'(A)')'                *Max(22.5)'
                  fmw  = "(A21,1PG15.6,A)"
       WRITE(ioutmvw,fmt=fmw) '                *Max(',tt,')'
C
       WRITE(ioutmvw,'(A)')'                *Format(Auto)'
       WRITE(ioutmvw,'(A)')'                *Precision(5)'
       WRITE(ioutmvw,'(A)')'                *Tics(10)'
       WRITE(ioutmvw,'(A)')'                *Grids(2)'
       WRITE(ioutmvw,'(A)')'                *Color(67)'
       WRITE(ioutmvw,'(A)')'                *AutoFit(TRUE)'
       WRITE(ioutmvw,'(A)')'                *LabelFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(ioutmvw,'(A)')'                *TicsFont("Microsoft Sans Serif", 0, 0, 10)'
       WRITE(ioutmvw,'(A)')'                *FitRange(FALSE)'
       WRITE(ioutmvw,'(A)')'            *EndAxis()'
       WRITE(ioutmvw,'(A)')'            *BeginAxis(Y, "Y1", on)'
       WRITE(ioutmvw,'(A)')'                *Label("{p1w2c1.y.HWDatatype}")'
       WRITE(ioutmvw,'(A)')'                *Scale(Linear)'
       WRITE(ioutmvw,'(A)')'                *TicMethod(PerAxis)'
c       WRITE(IOUTMVW,'(A)')'                *Min(-2.5e+006)'
c       WRITE(IOUTMVW,'(A)')'                *Max(2.5e+007)'
       WRITE(ioutmvw,'(A)')'                *Format(Auto)'
       WRITE(ioutmvw,'(A)')'                *Precision(5)'
       WRITE(ioutmvw,'(A)')'                *Tics(12)'
       WRITE(ioutmvw,'(A)')'                *Grids(2)'
       WRITE(ioutmvw,'(A)')'                *Color(67)'
       WRITE(ioutmvw,'(A)')'                *AutoFit(TRUE)'
       WRITE(ioutmvw,'(A)')'                *LabelFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(ioutmvw,'(A)')'                *TicsFont("Microsoft Sans Serif", 0, 0, 10)'
       WRITE(ioutmvw,'(A)')'                *FitRange(FALSE)'
       WRITE(ioutmvw,'(A)')'            *EndAxis()'
       WRITE(ioutmvw,'(A)')'            *BeginCurve(On, "{y.HWRequest}")'
       WRITE(ioutmvw,'(A)')'                *Line(1, 22, 1)'
       WRITE(ioutmvw,'(A)')'                *Symbol(0, 22, 1)'
       WRITE(ioutmvw,'(A)')'                *Shade(False)'
       WRITE(ioutmvw,'(A)')'                *Bar(0, 0, 2)'
       WRITE(ioutmvw,'(A)')'                *ShowInLegend(True)'
       WRITE(ioutmvw,'(A)')'                *BeginVector(Y, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Request("Time step")'
       WRITE(ioutmvw,'(A)')'                    *Component("MAG")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time step")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(X, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Time")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(Time, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Time")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(U, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Time")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(V, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Request("Internal Energy")'
       WRITE(ioutmvw,'(A)')'                    *Component("MAG")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Internal Energy")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Internal Energy")'
       WRITE(ioutmvw,'(A)')'            *EndCurve()'
       WRITE(ioutmvw,'(A)')'        *EndPlot()'
       WRITE(ioutmvw,'(A)')'    *EndWindow()'
 
      ELSEIF(imvw_ref == 1) THEN
 
       WRITE(ioutmvw,'(A)')'    *BeginWindow(Animation)         // Window 3'
       WRITE(ioutmvw,'(A)')'        *IsActive()'
       WRITE(ioutmvw,'(A)')'        *ExportFormat("PNG")'
       WRITE(ioutmvw,'(A)')'        *AnimationNote("REFERENCE REPORT")'
       WRITE(ioutmvw,'(A)')'        *BeginGraphic()'
       WRITE(ioutmvw,'(A)')'            *LightInfo(0, 0, 1, 0, 0, 0, 64)'
       WRITE(ioutmvw,'(A)')'            *RotationAngle(15)'
       WRITE(ioutmvw,'(A)')'            *BeginModel({GRAPHIC_FILE_2}, "RADIOSS (A) Result Reader")'
       WRITE(ioutmvw,'(A)')'                *ReaderProperty("Create 1D components:", "By solver output")'
       WRITE(ioutmvw,'(A)')'                *ReaderProperty("Displacement result based on:", "Model position")'
       WRITE(ioutmvw,'(A)')'                *ReaderProperty("Maximum Plastic strain over layers", "No")'
       WRITE(ioutmvw,'(A)')'                *ReaderProperty("Maximum Plastic strain over layers with prestrain removed", "No")'
       WRITE(ioutmvw,'(A)')'                *ReaderProperty("Plastic strain with prestrain removed", "No")'
       WRITE(ioutmvw,'(A)')'                *ReaderProperty("Strain Tensor with prestrain removed", "No")'
       WRITE(ioutmvw,'(A)')'                *ResultMathTemplate("Standard")'
       WRITE(ioutmvw,'(A)')'                *BeginResult({RESULT_FILE_2}, "RADIOSS (A) Result Reader")'
       WRITE(ioutmvw,'(A)')'                    *CurrentSubcase(1)'
       WRITE(ioutmvw,'(A)')'                    *ReaderProperty("Create 1D components:", "By solver output")'
       WRITE(ioutmvw,'(A)')'                    *ReaderProperty("Displacement result based on:", "Model position")'
       WRITE(ioutmvw,'(A)')'                    *ReaderProperty("Maximum Plastic strain over layers", "No")'
       WRITE(ioutmvw,'(A)')'                    *ReaderProperty("Maximum Plastic strain over layers with prestrain removed", "No")'
       WRITE(ioutmvw,'(A)')'                    *ReaderProperty("Plastic strain with prestrain removed", "No")'
       WRITE(ioutmvw,'(A)')'                    *ReaderProperty("Strain Tensor with prestrain removed", "No")'
       WRITE(ioutmvw,'(A)')'                *EndResult()'
cc
c GENERIC PARTS
cc
       WRITE(ioutmvw,'(A)')'                *BeginPart(1, "Orphan-Node", "PART", 0)'
       WRITE(ioutmvw,'(A)')'                    *Attribute(On, IdOff, 41, Opa, Sha, Msh, InFit, InCut, InIso)'
       WRITE(ioutmvw,'(A)')'                *EndPart()'
       WRITE(ioutmvw,'(A)')'                *BeginPart(851, "Rigid", "PART", 0)'
       WRITE(ioutmvw,'(A)')'                    *Attribute(On, IdOff, 18, Opa, Sha, Msh, InFit, InCut, InIso)'
       WRITE(ioutmvw,'(A)')'                *EndPart()'
cc
c GROUPS
cc
       WRITE(ioutmvw,'(A)')'                *BeginGroup("0D Set", "Off", "Off", "255   0   0", 1, "wire")'
       WRITE(ioutmvw,'(A)')'                    *BeginSelection(Part, SelectAll, "User_Set", 1)'
       WRITE(ioutmvw,'(A)')'                        *Add("dimension == 0")'
       WRITE(ioutmvw,'(A)')'                    *EndSelection()'
       WRITE(ioutmvw,'(A)')'                *EndGroup()'
       WRITE(ioutmvw,'(A)')'                *BeginGroup("1D Set", "Off", "Off", "  0 255   0", 1, "wire")'
       WRITE(ioutmvw,'(A)')'                    *beginselection(part, selectall, "User_Set", 2)'
       WRITE(IOUTMVW,'(a)')'                        *add("dimension == 1")'
       WRITE(IOUTMVW,'(a)')'                    *endselection()'
       WRITE(IOUTMVW,'(a)')'                *endgroup()'
       WRITE(IOUTMVW,'(a)')'                *begingroup("2D Set", "Off", "Off", "  0   0 255", 1, "wire")'
       WRITE(IOUTMVW,'(a)')'                    *beginselection(part, selectall, "User_Set", 3)'
       WRITE(IOUTMVW,'(a)')'                        *add("dimension == 2")'
       WRITE(IOUTMVW,'(a)')'                    *endselection()'
       WRITE(IOUTMVW,'(a)')'                *endgroup()'
       WRITE(IOUTMVW,'(a)')'                *begingroup("3D Set", "Off", "Off", "  0   0 255", 1, "wire")'
       WRITE(IOUTMVW,'(a)')'                    *beginselection(part, selectall, "User_Set", 4)'
       WRITE(IOUTMVW,'(a)')'                        *add("dimension == 3")'
       WRITE(IOUTMVW,'(a)')'                    *endselection()'
       WRITE(IOUTMVW,'(a)')'                *endgroup()'
       WRITE(IOUTMVW,'(a)')'                *begingroup("Orphan Nodes", "Off", "Off", "255 255 255", 1, "wire")'
       WRITE(IOUTMVW,'(a)')'                    *beginselection(part, selectall, "User_Set", 5)'
       WRITE(IOUTMVW,'(a)')'                        *Add("Orphan-Node id 1")'
       WRITE(ioutmvw,'(A)')'                    *EndSelection()'
       WRITE(ioutmvw,'(A)')'                *EndGroup()'
cc
c 
cc
       WRITE(ioutmvw,'(A)')'                *BeginDeformed()'
       WRITE(ioutmvw,'(A)')'                    *ScaleMode("ScaleFactor")'
       WRITE(ioutmvw,'(A)')'                    *Scale("1.000000 1.000000 1.000000")'
       WRITE(ioutmvw,'(A)')'                    *ResolvedInSystem(0)'
       WRITE(ioutmvw,'(A)')'                    *ResultType("Displacement")'
       WRITE(ioutmvw,'(A)')'                    *UndeformedMode("None")'
       WRITE(ioutmvw,'(A)')'                    *UndeformedColor("componentcolor")'
       WRITE(ioutmvw,'(A)')'                    *undeformedtracking("off")'
       WRITE(IOUTMVW,'(a)')'                *enddeformed()'
       WRITE(IOUTMVW,'(a)')'                *beginresultmath()'
       WRITE(IOUTMVW,'(a)')'                *endresultmath()'
       WRITE(IOUTMVW,'(a)')'                *layernumber(0)'
       WRITE(IOUTMVW,'(a)')'            *endmodel()'
       WRITE(IOUTMVW,'(a)')'            *renderoptions("None", "ClipTransparencyOff")'
       WRITE(IOUTMVW,'(a)')'            *displayoptions("noteson")'
       WRITE(IOUTMVW,'(A)')'            *BeginNote("on", "model info")'
       WRITE(IOUTMVW,'(A)')'                *Transparent("on")'
       WRITE(IOUTMVW,'(A)')'                *AutoHide("off")'
       WRITE(IOUTMVW,'(A)')'                *FillColor(31)'
       WRITE(IOUTMVW,'(A)')'                *TextColor(1)'
       WRITE(IOUTMVW,'(A)')'                *Attach("window")'
       WRITE(IOUTMVW,'(A)')'                *Position(0.500000, 0.500000)'
       WRITE(IOUTMVW,'(A)')'                *Text("{for(i = 0; i != numpts(window.modeltitlelist); ++i) }\n
     .    {window.modelidlist[i]}:{window.modeltitlelist[i]}\n{window.loadcaselist[i]} : 
     . {window.simulationsteplist[i]} : {window.framelist[i]}\n{endloop}")'
                
       WRITE(IOUTMVW,'(A)')'                *Font("arial", "regular", "regular", 10)'
       WRITE(IOUTMVW,'(A)')'                *Color(1)'
       WRITE(IOUTMVW,'(A)')'                *BorderWidth(0)'
       WRITE(IOUTMVW,'(A)')'                *NoteAlignment("right")'
       WRITE(IOUTMVW,'(A)')'                *NoteAnchor("right", "top")'
       WRITE(IOUTMVW,'(A)')'                *TitleFlag("yes")'
       WRITE(IOUTMVW,'(A)')'            *EndNote()'
       WRITE(IOUTMVW,'(A)')'            *Preferences(1, 31, 10, 0, 2, 3, 4, TriadOn, 30, "toptobottom", "off")'
       WRITE(IOUTMVW,'(A)')'            *CurrentModel(1)'
       WRITE(IOUTMVW,'(A)')'            *View(0.707107, 0.353553, -0.612372, 0, '
       WRITE(IOUTMVW,'(A)')'                  -0.707107, 0.353553, -0.612372, 0, '
       WRITE(IOUTMVW,'(A)')'                  -3.60866e-012, 0.866025, 0.5, 0, '
       WRITE(IOUTMVW,'(A)')'                  0, 0, 0, 1)'
       WRITE(IOUTMVW,'(A)')'            *ClippingRegion(-99.7008, 538.081, -174.535, 492.689, -560.868, 111.237)'
 
 
       WRITE(IOUTMVW,'(A)')'            *BeginNote("on", "note 2")'
       WRITE(IOUTMVW,'(A)')'                *Transparent("on") '
       WRITE(IOUTMVW,'(A)')'                *AutoHide("off") '
       WRITE(IOUTMVW,'(a)')'                *fillcolor(31) '
       WRITE(IOUTMVW,'(a)')'                *textcolor(1) '
       WRITE(IOUTMVW,'(a)')'                *attach("WINDOW") '
       WRITE(IOUTMVW,'(a)')'                *position(0.081395, 0.944444) '
       WRITE(IOUTMVW,'(a)')'                *text("REFERENCE REPORT") '
       WRITE(IOUTMVW,'(a)')'                *font("Arial", "regular", "regular", 10) '
       WRITE(IOUTMVW,'(a)')'                *color(1) '
       WRITE(IOUTMVW,'(a)')'                *borderwidth(1) '
       WRITE(IOUTMVW,'(a)')'                *shape("Rectangle") '
       WRITE(IOUTMVW,'(a)')'                *notealignment("Left") '
       WRITE(IOUTMVW,'(a)')'                *noteanchor("Left", "Top") '
       WRITE(IOUTMVW,'(a)')'                *titleflag("No") '
       WRITE(IOUTMVW,'(a)')'            *endnote() '
       WRITE(IOUTMVW,'(a)')'            *preferences(1, 31, 10, 0, 2, 3, 4, triadon, 30, "TopToBottom", "Off")'
       WRITE(IOUTMVW,'(a)')'            *currentmodel(1)'
       WRITE(IOUTMVW,'(a)')'            *view(0.707107, 0.353553, -0.612372, 0, '
       WRITE(IOUTMVW,'(a)')'                  -0.707107, 0.353553, -0.612372, 0, '
       WRITE(IOUTMVW,'(a)')'                  -3.60866e-012, 0.866025, 0.5, 0, '
       WRITE(IOUTMVW,'(a)')'                  0, 0, 0, 1)'
       WRITE(IOUTMVW,'(a)')'            *clippingregion(-99.7008, 538.081, -174.535, 492.689, -560.868, 111.237)'
c
c       FMW  = "(A28,1PG15.6,A,1PG15.6,A,1PG15.6,A,1PG15.6,A,1PG15.6,A,1PG15.6,A )"
c       WRITE(IOUTMVW,FMT=FMW) ,'            *ClippingRegion(',XMIN_GLOB,',',XMAX_GLOB,',',YMIN_GLOB,',',
c     .                        YMAX_GLOB,',',ZMIN_GLOB,',',ZMAX_GLOB ,')'
c
       WRITE(IOUTMVW,'(a)')'        *endgraphic()'
       WRITE(IOUTMVW,'(a)')'    *endwindow()'
       WRITE(IOUTMVW,'(a)')'    *beginwindow(plot)         // window 4'
       WRITE(IOUTMVW,'(a)')'        *savedatainline(0)'
       WRITE(IOUTMVW,'(a)')'        *exportformat("PNG")'
       WRITE(IOUTMVW,'(a)')'        *beginplot()'
       WRITE(IOUTMVW,'(a)')'            *plottype(0)'
       WRITE(IOUTMVW,'(a)')'            *beginplotheader(on)'
       WRITE(IOUTMVW,'(a)')'                *primaryfont("Microsoft Sans Serif", 0, 0, 14)'
       WRITE(IOUTMVW,'(a)')'                *secondaryfont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(a)')'                *tertiaryfont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(a)')'                *color(0)'
       WRITE(IOUTMVW,'(a)')'                *text("REFERENCE REPORT (Energies)")'
       WRITE(IOUTMVW,'(a)')'                *headeralignment(2)'
       WRITE(IOUTMVW,'(a)')'            *endplotheader()'
       WRITE(IOUTMVW,'(a)')'            *beginplotfooter(off)'
       WRITE(IOUTMVW,'(a)')'                *primaryfont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(a)')'                *secondaryfont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(a)')'                *tertiaryfont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(a)')'                *color(0)'
       WRITE(IOUTMVW,'(a)')'                *text("{p1w2c1.y.HWRequest} - {p1w2c1.y.HWComponent}")'
       WRITE(IOUTMVW,'(a)')'                *footeralignment(2)'
       WRITE(IOUTMVW,'(a)')'            *endplotfooter()'
       WRITE(IOUTMVW,'(a)')'            *beginlegend(on)'
       WRITE(IOUTMVW,'(a)')'                *font("Microsoft Sans Serif", 0, 0, 10)'
       WRITE(IOUTMVW,'(a)')'                *borderwidth(1)'
       WRITE(IOUTMVW,'(a)')'                *color(0)'
       WRITE(IOUTMVW,'(a)')'                *leader(left)'
       WRITE(IOUTMVW,'(a)')'                *location(inside)'
       WRITE(IOUTMVW,'(a)')'                *position(0.152542, 2.46092e+007, 9.45763, 1.85524e+007)'
       WRITE(IOUTMVW,'(a)')'                *autoposition(true)'
       WRITE(IOUTMVW,'(a)')'                *reversed(no)'
       WRITE(IOUTMVW,'(a)')'            *endlegend()'
       WRITE(IOUTMVW,'(a)')'            *uniformaspectratio(0)'
       WRITE(IOUTMVW,'(a)')'            *FrameColor(66)'
       WRITE(ioutmvw,'(A)')'            *BackgroundColor(1)'
       WRITE(ioutmvw,'(A)')'            *GridLineColor(9)'
       WRITE(ioutmvw,'(A)')'            *ZeroLineColor(0)'
       WRITE(ioutmvw,'(A)')'            *BeginAxis(X, "X1", on)'
       WRITE(ioutmvw,'(A)')'                *Label("Time")'
       WRITE(ioutmvw,'(A)')'                *Scale(Linear)'
       WRITE(ioutmvw,'(A)')'                *TicMethod(PerAxis)'
       WRITE(ioutmvw,'(A)')'                *Min(0)'
c       WRITE(IOUTMVW,'(A)')'                *Max(22.5)'
                  fmw  = "(A21,1PG15.6,A)"
       WRITE(ioutmvw,fmt=fmw) '                *Max(',tt,')'
C
       WRITE(ioutmvw,'(A)')'                *Format(Auto)'
       WRITE(ioutmvw,'(A)')'                *Precision(5)'
       WRITE(ioutmvw,'(A)')'                *Tics(10)'
       WRITE(ioutmvw,'(A)')'                *Grids(2)'
       WRITE(ioutmvw,'(A)')'                *Color(67)'
       WRITE(ioutmvw,'(A)')'                *AutoFit(TRUE)'
       WRITE(ioutmvw,'(A)')'                *LabelFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(ioutmvw,'(A)')'                *TicsFont("Microsoft Sans Serif", 0, 0, 10)'
       WRITE(ioutmvw,'(A)')'                *FitRange(FALSE)'
       WRITE(ioutmvw,'(A)')'            *EndAxis()'
       WRITE(ioutmvw,'(A)')'            *BeginAxis(Y, "Y1", on)'
       WRITE(ioutmvw,'(A)')'                *Label("{p1w2c1.y.HWDatatype}")'
       WRITE(ioutmvw,'(A)')'                *Scale(Linear)'
       WRITE(ioutmvw,'(A)')'                *TicMethod(PerAxis)'
c       WRITE(IOUTMVW,'(A)')'                *Min(-2.5e+006)'
c       WRITE(IOUTMVW,'(A)')'                *Max(2.5e+007)'
       WRITE(ioutmvw,'(A)')'                *Format(Auto)'
       WRITE(ioutmvw,'(A)')'                *Precision(5)'
       WRITE(ioutmvw,'(A)')'                *Tics(12)'
       WRITE(ioutmvw,'(A)')'                *Grids(2)'
       WRITE(ioutmvw,'(A)')'                *Color(67)'
       WRITE(ioutmvw,'(A)')'                *AutoFit(TRUE)'
       WRITE(ioutmvw,'(A)')'                *LabelFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(ioutmvw,'(A)')'                *TicsFont("Microsoft Sans Serif", 0, 0, 10)'
       WRITE(ioutmvw,'(A)')'                *FitRange(FALSE)'
       WRITE(ioutmvw,'(A)')'            *EndAxis()'
       WRITE(ioutmvw,'(A)')'            *BeginCurve(On, "{y.HWRequest}")'
       WRITE(ioutmvw,'(A)')'                *Line(1, 22, 1)'
       WRITE(ioutmvw,'(A)')'                *Symbol(0, 22, 1)'
       WRITE(ioutmvw,'(A)')'                *Shade(False)'
       WRITE(ioutmvw,'(A)')'                *Bar(0, 0, 2)'
       WRITE(ioutmvw,'(A)')'                *ShowInLegend(True)'
       WRITE(ioutmvw,'(A)')'                *BeginVector(Y, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Request("Internal Energy")'
       WRITE(ioutmvw,'(A)')'                    *Component("MAG")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(a)')'                    *offset("0")'
       WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_2})'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Internal Energy")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(a)')'                *endvector()'
       WRITE(IOUTMVW,'(a)')'                *beginvector(x, file)'
       WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_2})'
       WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
       WRITE(IOUTMVW,'(a)')'                    *datatype("Time")'
       WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
       WRITE(IOUTMVW,'(a)')'                    *offset("0")'
       WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_2})'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "complexcomponent", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Time, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwfile", "file", "string", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwsolver", "solver", "string", "radioss")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwdatatype", "datatype", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwrequest", "request", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomponent", "component", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(U, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwfile", "file", "string", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwsolver", "solver", "string", "radioss")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwdatatype", "datatype", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwrequest", "request", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomponent", "component", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwwordsize", "wordsize", "string", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(V, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("global variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("internal energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("mag")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwfile", "file", "string", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwsolver", "solver", "string", "radioss")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomponent", "component", "String", "MAG")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Internal Energy")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(a)')'                *endvector()'
       WRITE(IOUTMVW,'(a)')'                *attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Internal Energy")'
       WRITE(IOUTMVW,'(a)')'            *EndCurve()'
       WRITE(ioutmvw,'(A)')'            *BeginCurve(On, "{y.HWRequest}")'
       WRITE(ioutmvw,'(A)')'                *Line(1, 18, 1)'
       WRITE(ioutmvw,'(A)')'                *Symbol(0, 18, 1)'
       WRITE(ioutmvw,'(A)')'                *Shade(False)'
       WRITE(ioutmvw,'(A)')'                *Bar(0, 0, 2)'
       WRITE(ioutmvw,'(A)')'                *ShowInLegend(True)'
       WRITE(ioutmvw,'(A)')'                *BeginVector(Y, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Request("Kinetic Energy")'
       WRITE(ioutmvw,'(A)')'                    *Component("MAG")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Kinetic Energy")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(X, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Time")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(Time, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Time")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(U, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Time")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(V, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Request("Kinetic Energy")'
       WRITE(ioutmvw,'(A)')'                    *Component("MAG")'
       WRITE(ioutmvw,'(A)')'                    *scalefactor("1")'
       WRITE(IOUTMVW,'(a)')'                    *offset("0")'
       WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_2})'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Kinetic Energy")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(a)')'                *endvector()'
       WRITE(IOUTMVW,'(a)')'                *attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "string", "kinetic energy")'
       WRITE(IOUTMVW,'(A)')'            *EndCurve()'
       WRITE(IOUTMVW,'(A)')'            *BeginCurve(On, "{y.hwrequest}")'
       WRITE(IOUTMVW,'(A)')'                *Line(1, 55, 1)'
       WRITE(IOUTMVW,'(A)')'                *Symbol(0, 55, 1)'
       WRITE(IOUTMVW,'(A)')'                *Shade(False)'
       WRITE(IOUTMVW,'(A)')'                *Bar(0, 0, 2)'
       WRITE(IOUTMVW,'(A)')'                *ShowInLegend(True)'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Y, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("global variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("contact energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("mag")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwfile", "file", "string", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwsolver", "solver", "string", "radioss")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomponent", "component", "string", "mag")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwwordsize", "wordsize", "string", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwdatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Contact energy")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(a)')'                *endvector()'
       WRITE(IOUTMVW,'(a)')'                *beginvector(x, file)'
       WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_2})'
       WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
       WRITE(IOUTMVW,'(a)')'                    *datatype("Time")'
       WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
       WRITE(IOUTMVW,'(a)')'                    *offset("0")'
       WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "file", "string", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwsolver", "solver", "string", "radioss")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwdatatype", "datatype", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwrequest", "request", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomponent", "component", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwwordsize", "wordsize", "string", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Time, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwfile", "file", "string", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwsolver", "solver", "string", "radioss")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwdatatype", "datatype", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwrequest", "request", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomponent", "component", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(a)')'                *endvector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(U, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Time")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(V, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Request("Contact energy")'
       WRITE(ioutmvw,'(A)')'                    *Component("MAG")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Contact energy")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Contact energy")'
       WRITE(ioutmvw,'(A)')'            *EndCurve()'
       WRITE(ioutmvw,'(A)')'            *BeginCurve(On, "{y.HWRequest}")'
       WRITE(ioutmvw,'(A)')'                *Line(1, 46, 1)'
       WRITE(ioutmvw,'(A)')'                *Symbol(0, 46, 1)'
       WRITE(ioutmvw,'(A)')'                *Shade(False)'
       WRITE(ioutmvw,'(A)')'                *Bar(0, 0, 2)'
       WRITE(ioutmvw,'(A)')'                *ShowInLegend(True)'
       WRITE(ioutmvw,'(A)')'                *BeginVector(Y, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Request("Hourglass energy")'
       WRITE(ioutmvw,'(A)')'                    *Component("MAG")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Hourglass energy")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(X, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Time")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(Time, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Time")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(U, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Time")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(V, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Request("Hourglass energy")'
       WRITE(ioutmvw,'(A)')'                    *Component("MAG")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Hourglass energy")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Hourglass energy")'
       WRITE(ioutmvw,'(A)')'            *EndCurve()'
       WRITE(ioutmvw,'(A)')'            *BeginCurve(On, "{y.HWRequest}")'
       WRITE(ioutmvw,'(A)')'                *Line(1, 24, 1)'
       WRITE(ioutmvw,'(A)')'                *Symbol(0, 24, 1)'
       WRITE(ioutmvw,'(A)')'                *Shade(False)'
       WRITE(ioutmvw,'(A)')'                *Bar(0, 0, 2)'
       WRITE(ioutmvw,'(A)')'                *ShowInLegend(True)'
       WRITE(ioutmvw,'(A)')'                *BeginVector(Y, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Request("TE-Total Energy")'
       WRITE(ioutmvw,'(A)')'                    *Component("MAG")'
       WRITE(ioutmvw,'(A)')'                    *ScaleFactor("1")'
       WRITE(ioutmvw,'(A)')'                    *Offset("0")'
       WRITE(ioutmvw,'(A)')'                    *AxisIndex(1)'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWRequest", "Request", "String", "TE-Total Energy")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(ioutmvw,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(ioutmvw,'(A)')'                *EndVector()'
       WRITE(ioutmvw,'(A)')'                *BeginVector(X, File)'
       WRITE(ioutmvw,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(ioutmvw,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(ioutmvw,'(A)')'                    *Datatype("Time")'
       WRITE(ioutmvw,'(a)')'                    *scalefactor("1")'
       WRITE(IOUTMVW,'(a)')'                    *offset("0")'
       WRITE(IOUTMVW,'(a)')'                    *axisindex(1)'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_2})'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(a)')'                *endvector()'
       WRITE(IOUTMVW,'(a)')'                *beginvector(time, file)'
       WRITE(IOUTMVW,'(a)')'                    *filename({plot_file_2})'
       WRITE(IOUTMVW,'(a)')'                    *readertargetversion(14)'
       WRITE(IOUTMVW,'(a)')'                    *datatype("Time")'
       WRITE(IOUTMVW,'(a)')'                    *scalefactor("1")'
       WRITE(IOUTMVW,'(a)')'                    *offset("0")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWFile", "File", "String", {plot_file_2})'
       WRITE(IOUTMVW,'(a)')'                    *attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(a)')'                    *attribute("hwdatatype", "datatype", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwrequest", "request", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomponent", "component", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(U, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwfile", "file", "string", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwsolver", "solver", "string", "radioss")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwdatatype", "datatype", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwrequest", "request", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomponent", "component", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwwordsize", "wordsize", "string", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(V, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("global variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("te-total energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("mag")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwfile", "file", "string", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwsolver", "solver", "string", "radioss")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomponent", "component", "string", "mag")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwwordsize", "wordsize", "string", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwdatatype", "datatype", "string", "global variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwrequest", "request", "string", "te-total energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwcomplexcomponent", "complexcomponent", "string", "mag")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *Attribute("hwlastgoodcurvename", "hwlastgoodcurvename", "string", "te-total energy")'
       WRITE(IOUTMVW,'(A)')'            *EndCurve()'
       WRITE(IOUTMVW,'(A)')'        *EndPlot()'
       WRITE(IOUTMVW,'(A)')'    *EndWindow()'
 
       ENDIF
 
 
       WRITE(IOUTMVW,'(A)')'    *TimeScales(1, 1)'
       WRITE(IOUTMVW,'(A)')'    *TimeDelays(0, 0)'
       WRITE(IOUTMVW,'(A)')'    *AnimationEnable(1, 1)'
       WRITE(IOUTMVW,'(A)')'    *SyncTolerance(2e-008)'
       WRITE(IOUTMVW,'(A)')'    *SyncTableGenerationPolicy(ALL_BLOCKS)'
       WRITE(IOUTMVW,'(A)')'*EndPage()'
 
 
 
        
      ENDIF
c-----------
      RETURN
      END