OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
sortie_mvw.F File Reference
#include "implicit_f.inc"
#include "task_c.inc"
#include "com08_c.inc"
#include "scr14_c.inc"
#include "chara_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine sortie_mvw (imvw, imvw_ref)

Function/Subroutine Documentation

◆ sortie_mvw()

subroutine sortie_mvw ( integer imvw,
integer imvw_ref )

Definition at line 30 of file sortie_mvw.F.

31C-----------------------------------------------
32C M o d u l e s
33C-----------------------------------------------
34 USE inoutfile_mod
35C-----------------------------------------------
36C I m p l i c i t T y p e s
37C-----------------------------------------------
38#include "implicit_f.inc"
39C-----------------------------------------------
40C C o m m o n B l o c k s
41C-----------------------------------------------
42#include "task_c.inc"
43#include "com08_c.inc"
44#include "scr14_c.inc"
45#include "chara_c.inc"
46C-----------------------------------------------
47C D u m m y A r g u m e n t s
48C-----------------------------------------------
49c my_real
50c . X(3,*)
51 integer
52 . imvw,imvw_ref
53C-----------------------------------------------
54C L o c a l V a r i a b l e s
55C-----------------------------------------------
56 integer
57 . ioutmvw
58 CHARACTER FILNAM*100
59 CHARACTER LINE*200
60 CHARACTER*100 FMW
61
62 INTEGER :: LEN_TMP_NAME
63 CHARACTER(len=2148) :: TMP_NAME
64C=======================================================================
65 IF(ispmd == 0) THEN
66 filnam=rootnam(1:rootlen)//'.mvw'
67 ioutmvw = 123123
68
69 len_tmp_name = outfile_name_len + len_trim(filnam)
70 tmp_name=outfile_name(1:outfile_name_len)//filnam(1:len_trim(filnam))
71
72 OPEN(unit=ioutmvw,file=tmp_name(1:len_tmp_name),
73 . access='SEQUENTIAL',
74 . form='FORMATTED',status='UNKNOWN')
75 IF(imvw == 1 .OR. imvw == 2)THEN
76 IF(izip == 0) THEN
77 WRITE(ioutmvw,'(A)')'{ safe_quotes_on }'
78 line='{ GRAPHIC_FILE_1 = "'//rootnam(1:rootlen)//'A001"}'
79 WRITE(ioutmvw,'(A)') line
80 line='{ RESULT_FILE_1 = "'//rootnam(1:rootlen)//'A001"}'
81 WRITE(ioutmvw,'(A)') line
82 ELSE
83 WRITE(ioutmvw,'(A)')'{ safe_quotes_on }'
84 line='{ GRAPHIC_FILE_1 = "'//rootnam(1:rootlen)//'A001.gz"}'
85 WRITE(ioutmvw,'(A)') line
86 line='{ RESULT_FILE_1 = "'//rootnam(1:rootlen)//'A001.gz"}'
87 WRITE(ioutmvw,'(A)') line
88 ENDIF
89 ELSEIF(imvw == 3 .OR. imvw == 4)THEN
90 WRITE(ioutmvw,'(A)')'{ safe_quotes_on }'
91 line='{ GRAPHIC_FILE_1 = "'//rootnam(1:rootlen)//'.h3d"}'
92 WRITE(ioutmvw,'(A)') line
93 line='{ RESULT_FILE_1 = "'//rootnam(1:rootlen)//'.h3d"}'
94 WRITE(ioutmvw,'(A)') line
95 ENDIF
96
97 IF (imvw_ref == 1) THEN
98 WRITE(ioutmvw,'(A)')'{ safe_quotes_on }'
99 line='{ GRAPHIC_FILE_2 = "'//imvw_refpath(1:len_trim(imvw_refpath))//rootnam(1:rootlen)//'A001"}'
100 WRITE(ioutmvw,'(A)') line
101 line='{ RESULT_FILE_2 = "'//imvw_refpath(1:len_trim(imvw_refpath))//rootnam(1:rootlen)//'A001"}'
102 WRITE(ioutmvw,'(A)') line
103 line='{ PLOT_FILE_2 = "'//imvw_refpath(1:len_trim(imvw_refpath))//rootnam(1:rootlen)//'T01"}'
104 WRITE(ioutmvw,'(A)') line
105 ENDIF
106
107 IF (imvw == 1 .OR. imvw == 3)line='{ PLOT_FILE_1 = "'//rootnam(1:rootlen)//'T01"}'
108 IF (imvw == 2 .OR. imvw == 4)line='{ PLOT_FILE_1 = "'//rootnam(1:rootlen)//'_0001.abf"}'
109 WRITE(ioutmvw,'(A)') line
110 WRITE(ioutmvw,'(A)')'*Id("HyperWorks", "13.*")'
111 WRITE(ioutmvw,'(A)')'*BeginPalette()'
112 WRITE(ioutmvw,'(A)')'*EndPalette()'
113 WRITE(ioutmvw,'(A)')'*BeginPage() // Page 1'
114 WRITE(ioutmvw,'(A)')' *IsActive()'
115 WRITE(ioutmvw,'(A)')' *Name("page1")'
116 WRITE(ioutmvw,'(A)')' *Title("{p1w2c1.y.HWDatatype}", On)'
117 WRITE(ioutmvw,'(A)')' *TitleFont("Arial", 1, 0, 12)'
118 IF (imvw_ref == 0) WRITE(ioutmvw,'(A)')' *Layout(10)'
119 IF (imvw_ref == 1) WRITE(ioutmvw,'(A)')' *Layout(10)'
120 WRITE(ioutmvw,'(A)')' *BeginAnimator(Transient)'
121 WRITE(ioutmvw,'(A)')' *CurrentTime(Undeformed)'
122 WRITE(ioutmvw,'(A)')' *StartTime(0,0)'
123 WRITE(ioutmvw,'(A)')' *EndTime(20,100433349)'
124 WRITE(ioutmvw,'(A)')' *Increment(Forward, Frame, 1, BounceOff)'
125 WRITE(ioutmvw,'(A)')' *EndAnimator()'
126 WRITE(ioutmvw,'(A)')' *WindowIDs(1, 2, 3, 4)'
127 WRITE(ioutmvw,'(A)')' *BeginWindow(Animation) // Window 1'
128 WRITE(ioutmvw,'(A)')' *IsActive()'
129 WRITE(ioutmvw,'(A)')' *ExportFormat("PNG")'
130 WRITE(ioutmvw,'(A)')' *AnimationNote("RUN REPORT")'
131 WRITE(ioutmvw,'(A)')' *BeginGraphic()'
132 WRITE(ioutmvw,'(A)')' *LightInfo(0, 0, 1, 0, 0, 0, 64)'
133 WRITE(ioutmvw,'(A)')' *RotationAngle(15)'
134 WRITE(ioutmvw,'(A)')' *BeginModel({GRAPHIC_FILE_1}, "RADIOSS (A) Result Reader")'
135 WRITE(ioutmvw,'(A)')' *ReaderProperty("Create 1D components:", "By solver output")'
136 WRITE(ioutmvw,'(A)')' *ReaderProperty("Displacement result based on:", "Model position")'
137 WRITE(ioutmvw,'(A)')' *ReaderProperty("Maximum Plastic strain over layers", "No")'
138 WRITE(ioutmvw,'(A)')' *ReaderProperty("Maximum Plastic strain over layers with prestrain removed", "No")'
139 WRITE(ioutmvw,'(A)')' *ReaderProperty("Plastic strain with prestrain removed", "No")'
140 WRITE(ioutmvw,'(A)')' *ReaderProperty("Strain Tensor with prestrain removed", "No")'
141 WRITE(ioutmvw,'(A)')' *ResultMathTemplate("Standard")'
142 WRITE(ioutmvw,'(A)')' *BeginResult({RESULT_FILE_1}, "RADIOSS (A) Result Reader")'
143 WRITE(ioutmvw,'(A)')' *CurrentSubcase(1)'
144 WRITE(ioutmvw,'(A)')' *ReaderProperty("Create 1D components:", "By solver output")'
145 WRITE(ioutmvw,'(A)')' *ReaderProperty("Displacement result based on:", "Model position")'
146 WRITE(ioutmvw,'(A)')' *ReaderProperty("Maximum Plastic strain over layers", "No")'
147 WRITE(ioutmvw,'(A)')' *ReaderProperty("Maximum Plastic strain over layers with prestrain removed", "No")'
148 WRITE(ioutmvw,'(A)')' *ReaderProperty("Plastic strain with prestrain removed", "No")'
149 WRITE(ioutmvw,'(A)')' *readerproperty("Strain Tensor with prestrain removed", "No")'
150 WRITE(IOUTMVW,'(a)')' *endresult()'
151cc
152c GENERIC PARTS
153cc
154 WRITE(IOUTMVW,'(a)')' *beginpart(1, "Orphan-Node", "PART", 0)'
155 WRITE(IOUTMVW,'(a)')' *attribute(on, idoff, 41, opa, sha, msh, infit, incut, iniso)'
156 WRITE(IOUTMVW,'(a)')' *endpart()'
157 WRITE(IOUTMVW,'(a)')' *beginpart(851, "Rigid", "PART", 0)'
158 WRITE(IOUTMVW,'(a)')' *attribute(on, idoff, 18, opa, sha, msh, infit, incut, iniso)'
159 WRITE(IOUTMVW,'(a)')' *endpart()'
160cc
161c GROUPS
162cc
163 WRITE(ioutmvw,'(A)')' *BeginGroup("0D Set", "Off", "Off", "255 0 0", 1, "wire")'
164 WRITE(ioutmvw,'(A)')' *BeginSelection(Part, SelectAll, "User_Set", 1)'
165 WRITE(ioutmvw,'(A)')' *Add("dimension == 0")'
166 WRITE(ioutmvw,'(A)')' *EndSelection()'
167 WRITE(ioutmvw,'(A)')' *EndGroup()'
168 WRITE(ioutmvw,'(A)')' *BeginGroup("1D Set", "Off", "Off", " 0 255 0", 1, "wire")'
169 WRITE(ioutmvw,'(A)')' *BeginSelection(Part, SelectAll, "User_Set", 2)'
170 WRITE(ioutmvw,'(A)')' *Add("dimension == 1")'
171 WRITE(ioutmvw,'(A)')' *EndSelection()'
172 WRITE(ioutmvw,'(A)')' *EndGroup()'
173 WRITE(ioutmvw,'(A)')' *BeginGroup("2D Set", "Off", "Off", " 0 0 255", 1, "wire")'
174 WRITE(ioutmvw,'(A)')' *BeginSelection(Part, SelectAll, "User_Set", 3)'
175 WRITE(ioutmvw,'(A)')' *Add("dimension == 2")'
176 WRITE(ioutmvw,'(A)')' *EndSelection()'
177 WRITE(ioutmvw,'(A)')' *EndGroup()'
178 WRITE(ioutmvw,'(A)')' *BeginGroup("3D Set", "Off", "Off", " 0 0 255", 1, "wire")'
179 WRITE(ioutmvw,'(A)')' *BeginSelection(Part, SelectAll, "User_Set", 4)'
180 WRITE(ioutmvw,'(A)')' *Add("dimension == 3")'
181 WRITE(ioutmvw,'(A)')' *EndSelection()'
182 WRITE(ioutmvw,'(A)')' *EndGroup()'
183 WRITE(ioutmvw,'(A)')' *BeginGroup("Orphan Nodes", "Off", "Off", "255 255 255", 1, "wire")'
184 WRITE(ioutmvw,'(A)')' *BeginSelection(Part, SelectAll, "User_Set", 5)'
185 WRITE(ioutmvw,'(A)')' *Add("Orphan-Node id 1")'
186 WRITE(ioutmvw,'(A)')' *EndSelection()'
187 WRITE(ioutmvw,'(A)')' *EndGroup()'
188cc
189c
190cc
191 WRITE(ioutmvw,'(A)')' *BeginDeformed()'
192 WRITE(ioutmvw,'(A)')' *ScaleMode("ScaleFactor")'
193 WRITE(ioutmvw,'(A)')' *Scale("1.000000 1.000000 1.000000")'
194 WRITE(ioutmvw,'(A)')' *ResolvedInSystem(0)'
195 WRITE(ioutmvw,'(A)')' *ResultType("Displacement")'
196 WRITE(ioutmvw,'(A)')' *UndeformedMode("None")'
197 WRITE(ioutmvw,'(A)')' *UndeformedColor("componentcolor")'
198 WRITE(ioutmvw,'(A)')' *UndeformedTracking("off")'
199 WRITE(ioutmvw,'(A)')' *EndDeformed()'
200 WRITE(ioutmvw,'(A)')' *BeginResultMath()'
201 WRITE(ioutmvw,'(A)')' *EndResultMath()'
202 WRITE(ioutmvw,'(A)')' *LayerNumber(0)'
203 WRITE(ioutmvw,'(A)')' *EndModel()'
204 WRITE(ioutmvw,'(A)')' *RenderOptions("None", "ClipTransparencyOff")'
205 WRITE(ioutmvw,'(A)')' *DisplayOptions("NotesOn")'
206 WRITE(ioutmvw,'(A)')' *BeginNote("On", "Model Info")'
207 WRITE(ioutmvw,'(A)')' *Transparent("On")'
208 WRITE(ioutmvw,'(A)')' *AutoHide("Off")'
209 WRITE(ioutmvw,'(A)')' *FillColor(31)'
210 WRITE(ioutmvw,'(A)')' *TextColor(1)'
211 WRITE(ioutmvw,'(A)')' *Attach("WINDOW")'
212 WRITE(ioutmvw,'(A)')' *Position(0.500000, 0.500000)'
213 WRITE(ioutmvw,'(A)')' *Text("{for (i = 0; i != numpts(window.modeltitlelist); ++i) }\n
214 . {window.modelidlist[i]}:{window.modeltitlelist[i]}\n{window.loadcaselist[i]} :
215 . {window.simulationsteplist[i]} : {window.framelist[i]}\n{endloop}")'
216
217 WRITE(ioutmvw,'(A)')' *Font("Arial", "regular", "regular", 10)'
218 WRITE(ioutmvw,'(A)')' *Color(1)'
219 WRITE(ioutmvw,'(A)')' *BorderWidth(0)'
220 WRITE(ioutmvw,'(A)')' *NoteAlignment("Right")'
221 WRITE(ioutmvw,'(A)')' *NoteAnchor("Right", "Top")'
222 WRITE(ioutmvw,'(A)')' *TitleFlag("Yes")'
223 WRITE(ioutmvw,'(A)')' *EndNote()'
224 WRITE(ioutmvw,'(A)')' *Preferences(1, 31, 10, 0, 2, 3, 4, TriadOn, 30, "TopToBottom", "Off")'
225 WRITE(ioutmvw,'(A)')' *CurrentModel(1)'
226 WRITE(ioutmvw,'(A)')' *View(0.707107, 0.353553, -0.612372, 0, '
227 WRITE(ioutmvw,'(A)')' -0.707107, 0.353553, -0.612372, 0, '
228 WRITE(ioutmvw,'(A)')' -3.60866e-012, 0.866025, 0.5, 0, '
229 WRITE(ioutmvw,'(A)')' 0, 0, 0, 1)'
230 WRITE(ioutmvw,'(A)')' *ClippingRegion(-99.7008, 538.081, -174.535, 492.689, -560.868, 111.237)'
231
232
233 WRITE(ioutmvw,'(A)')' *BeginNote("On", "Note 2")'
234 WRITE(ioutmvw,'(A)')' *Transparent("On") '
235 WRITE(ioutmvw,'(A)')' *AutoHide("Off") '
236 WRITE(ioutmvw,'(A)')' *FillColor(31) '
237 WRITE(ioutmvw,'(A)')' *TextColor(1) '
238 WRITE(ioutmvw,'(A)')' *Attach("WINDOW") '
239 WRITE(ioutmvw,'(A)')' *Position(0.081395, 0.944444) '
240 WRITE(ioutmvw,'(A)')' *Text("RUN REPORT") '
241 WRITE(ioutmvw,'(A)')' *Font("Arial", "regular", "regular", 10) '
242 WRITE(ioutmvw,'(A)')' *Color(1) '
243 WRITE(ioutmvw,'(A)')' *BorderWidth(1) '
244 WRITE(ioutmvw,'(A)')' *Shape("Rectangle") '
245 WRITE(ioutmvw,'(A)')' *NoteAlignment("Left") '
246 WRITE(ioutmvw,'(A)')' *NoteAnchor("Left", "Top") '
247 WRITE(ioutmvw,'(A)')' *TitleFlag("No") '
248 WRITE(ioutmvw,'(A)')' *EndNote() '
249
250c
251c FMW = "(A28,1PG15.6,A,1PG15.6,A,1PG15.6,A,1PG15.6,A,1PG15.6,A,1PG15.6,A )"
252c WRITE(IOUTMVW,FMT=FMW) ,' *ClippingRegion(',XMIN_GLOB,',',XMAX_GLOB,',',YMIN_GLOB,',',
253c . YMAX_GLOB,',',ZMIN_GLOB,',',ZMAX_GLOB ,')'
254c
255 WRITE(ioutmvw,'(A)')' *EndGraphic()'
256 WRITE(ioutmvw,'(A)')' *EndWindow()'
257 WRITE(ioutmvw,'(A)')' *BeginWindow(Plot) // Window 2'
258 WRITE(ioutmvw,'(A)')' *SaveDataInline(0)'
259 WRITE(ioutmvw,'(A)')' *ExportFormat("PNG")'
260 WRITE(ioutmvw,'(A)')' *BeginPlot()'
261 WRITE(ioutmvw,'(A)')' *PlotType(0)'
262 WRITE(ioutmvw,'(A)')' *BeginPlotHeader(On)'
263 WRITE(ioutmvw,'(A)')' *PrimaryFont("Microsoft Sans Serif", 0, 0, 14)'
264 WRITE(ioutmvw,'(A)')' *SecondaryFont("Microsoft Sans Serif", 0, 0, 12)'
265 WRITE(ioutmvw,'(A)')' *TertiaryFont("Microsoft Sans Serif", 0, 0, 12)'
266 WRITE(ioutmvw,'(A)')' *Color(0)'
267 WRITE(ioutmvw,'(A)')' *Text("RUN REPORT (Energies)")'
268 WRITE(ioutmvw,'(A)')' *HeaderAlignment(2)'
269 WRITE(ioutmvw,'(A)')' *EndPlotHeader()'
270 WRITE(ioutmvw,'(A)')' *BeginPlotFooter(Off)'
271 WRITE(ioutmvw,'(A)')' *PrimaryFont("Microsoft Sans Serif", 0, 0, 12)'
272 WRITE(ioutmvw,'(A)')' *SecondaryFont("Microsoft Sans Serif", 0, 0, 12)'
273 WRITE(ioutmvw,'(A)')' *TertiaryFont("Microsoft Sans Serif", 0, 0, 12)'
274 WRITE(ioutmvw,'(A)')' *Color(0)'
275 WRITE(ioutmvw,'(A)')' *Text("{p1w2c1.y.HWRequest} - {p1w2c1.y.HWComponent}")'
276 WRITE(ioutmvw,'(A)')' *FooterAlignment(2)'
277 WRITE(ioutmvw,'(A)')' *EndPlotFooter()'
278 WRITE(ioutmvw,'(A)')' *BeginLegend(On)'
279 WRITE(ioutmvw,'(A)')' *Font("Microsoft Sans Serif", 0, 0, 10)'
280 WRITE(ioutmvw,'(A)')' *BorderWidth(1)'
281 WRITE(ioutmvw,'(A)')' *Color(0)'
282 WRITE(ioutmvw,'(A)')' *Leader(Left)'
283 WRITE(ioutmvw,'(A)')' *Location(INSIDE)'
284 WRITE(ioutmvw,'(A)')' *Position(0.152542, 2.46092e+007, 9.45763, 1.85524e+007)'
285 WRITE(ioutmvw,'(A)')' *AutoPosition(True)'
286 WRITE(ioutmvw,'(A)')' *Reversed(no)'
287 WRITE(ioutmvw,'(A)')' *EndLegend()'
288 WRITE(ioutmvw,'(A)')' *UniformAspectRatio(0)'
289 WRITE(ioutmvw,'(A)')' *FrameColor(66)'
290 WRITE(ioutmvw,'(A)')' *BackgroundColor(1)'
291 WRITE(ioutmvw,'(A)')' *GridLineColor(9)'
292 WRITE(ioutmvw,'(A)')' *ZeroLineColor(0)'
293 WRITE(ioutmvw,'(A)')' *BeginAxis(X, "X1", on)'
294 WRITE(ioutmvw,'(A)')' *Label("Time")'
295 WRITE(ioutmvw,'(A)')' *Scale(Linear)'
296 WRITE(ioutmvw,'(A)')' *TicMethod(PerAxis)'
297 WRITE(ioutmvw,'(A)')' *Min(0)'
298c WRITE(IOUTMVW,'(A)')' *Max(22.5)'
299 fmw = "(A21,1PG15.6,A)"
300 WRITE(ioutmvw,fmt=fmw) ' *Max(',tt,')'
301C
302 WRITE(ioutmvw,'(A)')' *Format(Auto)'
303 WRITE(ioutmvw,'(A)')' *Precision(5)'
304 WRITE(ioutmvw,'(A)')' *Tics(10)'
305 WRITE(ioutmvw,'(A)')' *Grids(2)'
306 WRITE(ioutmvw,'(A)')' *Color(67)'
307 WRITE(ioutmvw,'(A)')' *AutoFit(TRUE)'
308 WRITE(ioutmvw,'(A)')' *LabelFont("Microsoft Sans Serif", 0, 0, 12)'
309 WRITE(ioutmvw,'(A)')' *TicsFont("Microsoft Sans Serif", 0, 0, 10)'
310 WRITE(ioutmvw,'(A)')' *FitRange(FALSE)'
311 WRITE(ioutmvw,'(A)')' *EndAxis()'
312 WRITE(ioutmvw,'(A)')' *BeginAxis(Y, "Y1", on)'
313 WRITE(ioutmvw,'(A)')' *Label("{p1w2c1.y.HWDatatype}")'
314 WRITE(ioutmvw,'(A)')' *Scale(Linear)'
315 WRITE(ioutmvw,'(A)')' *TicMethod(PerAxis)'
316c WRITE(IOUTMVW,'(A)')' *Min(-2.5e+006)'
317c WRITE(IOUTMVW,'(A)')' *Max(2.5e+007)'
318 WRITE(ioutmvw,'(A)')' *Format(Auto)'
319 WRITE(ioutmvw,'(A)')' *Precision(5)'
320 WRITE(ioutmvw,'(A)')' *Tics(12)'
321 WRITE(ioutmvw,'(A)')' *Grids(2)'
322 WRITE(ioutmvw,'(A)')' *Color(67)'
323 WRITE(ioutmvw,'(A)')' *AutoFit(TRUE)'
324 WRITE(ioutmvw,'(A)')' *LabelFont("Microsoft Sans Serif", 0, 0, 12)'
325 WRITE(ioutmvw,'(A)')' *TicsFont("Microsoft Sans Serif", 0, 0, 10)'
326 WRITE(ioutmvw,'(A)')' *FitRange(FALSE)'
327 WRITE(ioutmvw,'(A)')' *EndAxis()'
328 WRITE(ioutmvw,'(A)')' *BeginCurve(On, "{y.HWRequest}")'
329 WRITE(ioutmvw,'(A)')' *Line(1, 22, 1)'
330 WRITE(ioutmvw,'(A)')' *Symbol(0, 22, 1)'
331 WRITE(ioutmvw,'(A)')' *Shade(False)'
332 WRITE(ioutmvw,'(A)')' *Bar(0, 0, 2)'
333 WRITE(ioutmvw,'(A)')' *ShowInLegend(True)'
334 WRITE(ioutmvw,'(A)')' *BeginVector(Y, File)'
335 WRITE(ioutmvw,'(A)')' *Filename({PLOT_FILE_1})'
336 WRITE(ioutmvw,'(A)')' *ReaderTargetVersion(14)'
337 WRITE(ioutmvw,'(A)')' *Datatype("Global Variables")'
338 WRITE(ioutmvw,'(A)')' *Request("Internal Energy")'
339 WRITE(ioutmvw,'(A)')' *Component("MAG")'
340 WRITE(ioutmvw,'(A)')' *ScaleFactor("1")'
341 WRITE(ioutmvw,'(A)')' *Offset("0")'
342 WRITE(ioutmvw,'(A)')' *AxisIndex(1)'
343 WRITE(ioutmvw,'(A)')' *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
344 WRITE(ioutmvw,'(A)')' *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
345 WRITE(ioutmvw,'(A)')' *Attribute("HWComponent", "Component", "String", "MAG")'
346 WRITE(ioutmvw,'(A)')' *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
347 WRITE(ioutmvw,'(A)')' *Attribute("HWWordSize", "WordSize", "String", "4")'
348 WRITE(ioutmvw,'(A)')' *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
349 WRITE(ioutmvw,'(A)')' *Attribute("HWRequest", "Request", "String", "Internal Energy")'
350 WRITE(ioutmvw,'(A)')' *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
351 WRITE(ioutmvw,'(A)')' *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
352 WRITE(ioutmvw,'(A)')' *EndVector()'
353 WRITE(ioutmvw,'(A)')' *BeginVector(X, File)'
354 WRITE(ioutmvw,'(A)')' *Filename({PLOT_FILE_1})'
355 WRITE(ioutmvw,'(A)')' *ReaderTargetVersion(14)'
356 WRITE(ioutmvw,'(A)')' *Datatype("Time")'
357 WRITE(ioutmvw,'(A)')' *ScaleFactor("1")'
358 WRITE(ioutmvw,'(A)')' *Offset("0")'
359 WRITE(ioutmvw,'(A)')' *AxisIndex(1)'
360 WRITE(ioutmvw,'(A)')' *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
361 WRITE(ioutmvw,'(a)')' *attribute("HWSolver", "Solver", "String", "RADIOSS")'
362 WRITE(IOUTMVW,'(a)')' *attribute("HWDatatype", "Datatype", "String", "Time")'
363 WRITE(IOUTMVW,'(a)')' *attribute("HWRequest", "Request", "String", "Time")'
364 WRITE(IOUTMVW,'(a)')' *attribute("HWComponent", "Component", "String", "Time")'
365 WRITE(IOUTMVW,'(a)')' *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
366 WRITE(IOUTMVW,'(a)')' *attribute("HWWordSize", "WordSize", "String", "4")'
367 WRITE(IOUTMVW,'(a)')' *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
368 WRITE(IOUTMVW,'(a)')' *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
369 WRITE(IOUTMVW,'(a)')' *endvector()'
370 WRITE(IOUTMVW,'(a)')' *beginvector(time, file)'
371 WRITE(IOUTMVW,'(a)')' *filename({plot_file_1})'
372 WRITE(IOUTMVW,'(a)')' *readertargetversion(14)'
373 WRITE(ioutmvw,'(A)')' *Datatype("Time")'
374 WRITE(ioutmvw,'(A)')' *ScaleFactor("1")'
375 WRITE(ioutmvw,'(A)')' *Offset("0")'
376 WRITE(ioutmvw,'(A)')' *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
377 WRITE(ioutmvw,'(A)')' *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
378 WRITE(ioutmvw,'(A)')' *Attribute("HWDatatype", "Datatype", "String", "Time")'
379 WRITE(ioutmvw,'(A)')' *Attribute("HWRequest", "Request", "String", "Time")'
380 WRITE(ioutmvw,'(A)')' *Attribute("HWComponent", "Component", "String", "Time")'
381 WRITE(ioutmvw,'(A)')' *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
382 WRITE(ioutmvw,'(A)')' *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
383 WRITE(ioutmvw,'(A)')' *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
384 WRITE(ioutmvw,'(A)')' *EndVector()'
385 WRITE(ioutmvw,'(A)')' *BeginVector(U, File)'
386 WRITE(ioutmvw,'(A)')' *Filename({PLOT_FILE_1})'
387 WRITE(ioutmvw,'(A)')' *ReaderTargetVersion(14)'
388 WRITE(ioutmvw,'(A)')' *Datatype("Time")'
389 WRITE(ioutmvw,'(A)')' *ScaleFactor("1")'
390 WRITE(ioutmvw,'(A)')' *Offset("0")'
391 WRITE(ioutmvw,'(A)')' *AxisIndex(1)'
392 WRITE(ioutmvw,'(A)')' *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
393 WRITE(ioutmvw,'(A)')' *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
394 WRITE(ioutmvw,'(A)')' *Attribute("HWDatatype", "Datatype", "String", "Time")'
395 WRITE(ioutmvw,'(A)')' *Attribute("HWRequest", "Request", "String", "Time")'
396 WRITE(ioutmvw,'(A)')' *Attribute("HWComponent", "Component", "String", "Time")'
397 WRITE(ioutmvw,'(A)')' *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
398 WRITE(ioutmvw,'(A)')' *Attribute("HWWordSize", "WordSize", "String", "4")'
399 WRITE(ioutmvw,'(A)')' *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
400 WRITE(ioutmvw,'(A)')' *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
401 WRITE(ioutmvw,'(A)')' *EndVector()'
402 WRITE(ioutmvw,'(A)')' *BeginVector(V, File)'
403 WRITE(ioutmvw,'(A)')' *Filename({PLOT_FILE_1})'
404 WRITE(ioutmvw,'(a)')' *readertargetversion(14)'
405 WRITE(IOUTMVW,'(a)')' *datatype("Global Variables")'
406 WRITE(IOUTMVW,'(a)')' *request("Internal Energy")'
407 WRITE(IOUTMVW,'(a)')' *component("MAG")'
408 WRITE(IOUTMVW,'(a)')' *scalefactor("1")'
409 WRITE(IOUTMVW,'(a)')' *offset("0")'
410 WRITE(IOUTMVW,'(a)')' *axisindex(1)'
411 WRITE(IOUTMVW,'(a)')' *attribute("HWFile", "File", "String", {plot_file_1})'
412 WRITE(IOUTMVW,'(a)')' *attribute("HWSolver", "Solver", "String", "RADIOSS")'
413 WRITE(IOUTMVW,'(a)')' *attribute("HWComponent", "Component", "String", "MAG")'
414 WRITE(IOUTMVW,'(a)')' *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
415 WRITE(IOUTMVW,'(a)')' *attribute("HWWordSize", "WordSize", "String", "4")'
416 WRITE(IOUTMVW,'(a)')' *attribute("HWDatatype", "Datatype", "String", "Global Variables")'
417 WRITE(IOUTMVW,'(a)')' *attribute("HWRequest", "Request", "String", "Internal Energy")'
418 WRITE(IOUTMVW,'(a)')' *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
419 WRITE(IOUTMVW,'(a)')' *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
420 WRITE(IOUTMVW,'(a)')' *endvector()'
421 WRITE(IOUTMVW,'(a)')' *attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Internal Energy")'
422 WRITE(IOUTMVW,'(a)')' *endcurve()'
423c
424 WRITE(IOUTMVW,'(a)')' *begincurve(on, "{y.HWRequest}")'
425 WRITE(ioutmvw,'(A)')' *Line(1, 18, 1)'
426 WRITE(ioutmvw,'(A)')' *Symbol(0, 18, 1)'
427 WRITE(ioutmvw,'(A)')' *Shade(False)'
428 WRITE(ioutmvw,'(A)')' *Bar(0, 0, 2)'
429 WRITE(ioutmvw,'(A)')' *ShowInLegend(True)'
430 WRITE(ioutmvw,'(A)')' *BeginVector(Y, File)'
431 WRITE(ioutmvw,'(A)')' *Filename({PLOT_FILE_1})'
432 WRITE(ioutmvw,'(A)')' *ReaderTargetVersion(14)'
433 WRITE(ioutmvw,'(A)')' *Datatype("Global Variables")'
434 WRITE(ioutmvw,'(A)')' *Request("Kinetic Energy")'
435 WRITE(ioutmvw,'(A)')' *Component("MAG")'
436 WRITE(ioutmvw,'(A)')' *ScaleFactor("1")'
437 WRITE(ioutmvw,'(A)')' *Offset("0")'
438 WRITE(ioutmvw,'(A)')' *AxisIndex(1)'
439 WRITE(ioutmvw,'(A)')' *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
440 WRITE(ioutmvw,'(A)')' *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
441 WRITE(ioutmvw,'(A)')' *Attribute("HWComponent", "Component", "String", "MAG")'
442 WRITE(ioutmvw,'(A)')' *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
443 WRITE(ioutmvw,'(A)')' *Attribute("HWWordSize", "WordSize", "String", "4")'
444 WRITE(ioutmvw,'(A)')' *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
445 WRITE(ioutmvw,'(A)')' *Attribute("HWRequest", "Request", "String", "Kinetic Energy")'
446 WRITE(ioutmvw,'(A)')' *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
447 WRITE(ioutmvw,'(A)')' *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
448 WRITE(ioutmvw,'(A)')' *EndVector()'
449 WRITE(ioutmvw,'(A)')' *BeginVector(X, File)'
450 WRITE(ioutmvw,'(A)')' *Filename({PLOT_FILE_1})'
451 WRITE(ioutmvw,'(A)')' *ReaderTargetVersion(14)'
452 WRITE(ioutmvw,'(A)')' *Datatype("Time")'
453 WRITE(ioutmvw,'(A)')' *ScaleFactor("1")'
454 WRITE(ioutmvw,'(A)')' *Offset("0")'
455 WRITE(ioutmvw,'(A)')' *AxisIndex(1)'
456 WRITE(ioutmvw,'(A)')' *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
457 WRITE(ioutmvw,'(A)')' *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
458 WRITE(ioutmvw,'(A)')' *Attribute("HWDatatype", "Datatype", "String", "Time")'
459 WRITE(ioutmvw,'(A)')' *Attribute("HWRequest", "Request", "String", "Time")'
460 WRITE(ioutmvw,'(A)')' *Attribute("HWComponent", "Component", "String", "Time")'
461 WRITE(ioutmvw,'(A)')' *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
462 WRITE(ioutmvw,'(A)')' *Attribute("HWWordSize", "WordSize", "String", "4")'
463 WRITE(ioutmvw,'(A)')' *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
464 WRITE(ioutmvw,'(A)')' *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
465 WRITE(ioutmvw,'(A)')' *EndVector()'
466 WRITE(ioutmvw,'(A)')' *BeginVector(Time, File)'
467 WRITE(ioutmvw,'(A)')' *Filename({PLOT_FILE_1})'
468 WRITE(ioutmvw,'(A)')' *ReaderTargetVersion(14)'
469 WRITE(ioutmvw,'(A)')' *Datatype("Time")'
470 WRITE(ioutmvw,'(A)')' *ScaleFactor("1")'
471 WRITE(ioutmvw,'(A)')' *Offset("0")'
472 WRITE(ioutmvw,'(A)')' *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
473 WRITE(ioutmvw,'(A)')' *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
474 WRITE(ioutmvw,'(A)')' *Attribute("HWDatatype", "Datatype", "String", "Time")'
475 WRITE(ioutmvw,'(A)')' *Attribute("HWRequest", "Request", "String", "Time")'
476 WRITE(ioutmvw,'(A)')' *Attribute("HWComponent", "Component", "String", "Time")'
477 WRITE(ioutmvw,'(A)')' *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
478 WRITE(ioutmvw,'(A)')' *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
479 WRITE(ioutmvw,'(A)')' *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
480 WRITE(ioutmvw,'(A)')' *EndVector()'
481 WRITE(ioutmvw,'(A)')' *BeginVector(U, File)'
482 WRITE(ioutmvw,'(A)')' *Filename({PLOT_FILE_1})'
483 WRITE(ioutmvw,'(A)')' *ReaderTargetVersion(14)'
484 WRITE(ioutmvw,'(A)')' *Datatype("Time")'
485 WRITE(ioutmvw,'(A)')' *ScaleFactor("1")'
486 WRITE(ioutmvw,'(A)')' *Offset("0")'
487 WRITE(ioutmvw,'(A)')' *AxisIndex(1)'
488 WRITE(ioutmvw,'(A)')' *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
489 WRITE(ioutmvw,'(A)')' *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
490 WRITE(ioutmvw,'(A)')' *Attribute("HWDatatype", "Datatype", "String", "Time")'
491 WRITE(ioutmvw,'(A)')' *Attribute("HWRequest", "Request", "String", "Time")'
492 WRITE(ioutmvw,'(A)')' *Attribute("HWComponent", "Component", "String", "Time")'
493 WRITE(ioutmvw,'(A)')' *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
494 WRITE(ioutmvw,'(A)')' *attribute("HWWordSize", "WordSize", "String", "4")'
495 WRITE(IOUTMVW,'(a)')' *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
496 WRITE(IOUTMVW,'(a)')' *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
497 WRITE(IOUTMVW,'(a)')' *endvector()'
498 WRITE(IOUTMVW,'(a)')' *beginvector(v, file)'
499 WRITE(IOUTMVW,'(a)')' *filename({plot_file_1})'
500 WRITE(IOUTMVW,'(a)')' *readertargetversion(14)'
501 WRITE(IOUTMVW,'(a)')' *datatype("Global Variables")'
502 WRITE(ioutmvw,'(A)')' *Request("Kinetic Energy")'
503 WRITE(ioutmvw,'(A)')' *Component("MAG")'
504 WRITE(ioutmvw,'(A)')' *ScaleFactor("1")'
505 WRITE(ioutmvw,'(A)')' *Offset("0")'
506 WRITE(ioutmvw,'(A)')' *AxisIndex(1)'
507 WRITE(ioutmvw,'(A)')' *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
508 WRITE(ioutmvw,'(A)')' *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
509 WRITE(ioutmvw,'(A)')' *Attribute("HWComponent", "Component", "String", "MAG")'
510 WRITE(ioutmvw,'(A)')' *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
511 WRITE(ioutmvw,'(A)')' *Attribute("HWWordSize", "WordSize", "String", "4")'
512 WRITE(ioutmvw,'(A)')' *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
513 WRITE(ioutmvw,'(A)')' *Attribute("HWRequest", "Request", "String", "Kinetic Energy")'
514 WRITE(ioutmvw,'(A)')' *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
515 WRITE(ioutmvw,'(A)')' *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
516 WRITE(ioutmvw,'(A)')' *EndVector()'
517 WRITE(ioutmvw,'(A)')' *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Kinetic Energy")'
518 WRITE(ioutmvw,'(A)')' *EndCurve()'
519c
520 WRITE(ioutmvw,'(A)')' *BeginCurve(On, "{y.HWRequest}")'
521 WRITE(ioutmvw,'(A)')' *Line(1, 55, 1)'
522 WRITE(ioutmvw,'(A)')' *Symbol(0, 55, 1)'
523 WRITE(ioutmvw,'(A)')' *Shade(False)'
524 WRITE(ioutmvw,'(A)')' *Bar(0, 0, 2)'
525 WRITE(ioutmvw,'(A)')' *ShowInLegend(True)'
526 WRITE(ioutmvw,'(A)')' *BeginVector(Y, File)'
527 WRITE(ioutmvw,'(A)')' *Filename({PLOT_FILE_1})'
528 WRITE(ioutmvw,'(A)')' *ReaderTargetVersion(14)'
529 WRITE(ioutmvw,'(A)')' *Datatype("Global Variables")'
530 WRITE(ioutmvw,'(A)')' *Request("Rotational kinetic energy")'
531 WRITE(ioutmvw,'(A)')' *Component("MAG")'
532 WRITE(ioutmvw,'(A)')' *ScaleFactor("1")'
533 WRITE(ioutmvw,'(A)')' *Offset("0")'
534 WRITE(ioutmvw,'(A)')' *AxisIndex(1)'
535 WRITE(ioutmvw,'(A)')' *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
536 WRITE(ioutmvw,'(A)')' *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
537 WRITE(ioutmvw,'(a)')' *attribute("HWComponent", "Component", "String", "MAG")'
538 WRITE(IOUTMVW,'(a)')' *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
539 WRITE(IOUTMVW,'(a)')' *attribute("HWWordSize", "WordSize", "String", "4")'
540 WRITE(IOUTMVW,'(a)')' *attribute("HWDatatype", "Datatype", "String", "global variables")'
541 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "rotational kinetic energy")'
542 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "mag")'
543 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
544 WRITE(IOUTMVW,'(A)')' *EndVector()'
545 WRITE(IOUTMVW,'(A)')' *BeginVector(X, File)'
546 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
547 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
548 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
549 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
550 WRITE(IOUTMVW,'(A)')' *Offset("0")'
551 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
552 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
553 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
554 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
555 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
556 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
557 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
558 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
559 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
560 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
561 WRITE(IOUTMVW,'(A)')' *EndVector()'
562 WRITE(IOUTMVW,'(A)')' *BeginVector(Time, File)'
563 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
564 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
565 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
566 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
567 WRITE(IOUTMVW,'(A)')' *Offset("0")'
568 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
569 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
570 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
571 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
572 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
573 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
574 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
575 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
576 WRITE(IOUTMVW,'(A)')' *EndVector()'
577 WRITE(IOUTMVW,'(A)')' *BeginVector(U, File)'
578 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
579 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
580 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
581 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
582 WRITE(IOUTMVW,'(A)')' *Offset("0")'
583 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
584 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
585 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
586 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
587 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
588 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
589 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
590 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
591 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
592 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
593 WRITE(IOUTMVW,'(A)')' *EndVector()'
594 WRITE(IOUTMVW,'(A)')' *BeginVector(V, File)'
595 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
596 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
597 WRITE(IOUTMVW,'(A)')' *Datatype("global variables")'
598 WRITE(IOUTMVW,'(A)')' *Request("rotational kinetic energy")'
599 WRITE(IOUTMVW,'(A)')' *Component("mag")'
600 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
601 WRITE(IOUTMVW,'(A)')' *Offset("0")'
602 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
603 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
604 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
605 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "mag")'
606 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
607 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
608 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "global variables")'
609 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "rotational kinetic energy")'
610 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "mag")'
611 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
612 WRITE(IOUTMVW,'(A)')' *EndVector()'
613 WRITE(IOUTMVW,'(A)')' *Attribute("hwlastgoodcurvename", "hwlastgoodcurvename", "string", "rotational kinetic e
614 .nergy")'
615 WRITE(IOUTMVW,'(A)')' *EndCurve()'
616c
617 WRITE(IOUTMVW,'(A)')' *BeginCurve(On, "{y.hwrequest}")'
618 WRITE(IOUTMVW,'(A)')' *Line(1, 46, 1)'
619 WRITE(IOUTMVW,'(A)')' *Symbol(0, 46, 1)'
620 WRITE(IOUTMVW,'(A)')' *Shade(False)'
621 WRITE(IOUTMVW,'(A)')' *Bar(0, 0, 2)'
622 WRITE(IOUTMVW,'(A)')' *ShowInLegend(True)'
623 WRITE(IOUTMVW,'(A)')' *BeginVector(Y, File)'
624 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
625 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
626 WRITE(IOUTMVW,'(A)')' *Datatype("global variables")'
627 WRITE(IOUTMVW,'(A)')' *Request("External forces work")'
628 WRITE(IOUTMVW,'(A)')' *Component("mag")'
629 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
630 WRITE(IOUTMVW,'(A)')' *Offset("0")'
631 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
632 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
633 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
634 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "mag")'
635 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
636 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
637 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "global variables")'
638 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "External forces work")'
639 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "mag")'
640 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
641 WRITE(IOUTMVW,'(A)')' *EndVector()'
642 WRITE(IOUTMVW,'(A)')' *BeginVector(X, File)'
643 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
644 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
645 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
646 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
647 WRITE(IOUTMVW,'(A)')' *Offset("0")'
648 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
649 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
650 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
651 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
652 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
653 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
654 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
655 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
656 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
657 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
658 WRITE(IOUTMVW,'(A)')' *EndVector()'
659 WRITE(IOUTMVW,'(A)')' *BeginVector(Time, File)'
660 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
661 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
662 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
663 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
664 WRITE(IOUTMVW,'(A)')' *Offset("0")'
665 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
666 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
667 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
668 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
669 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
670 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
671 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
672 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
673 WRITE(IOUTMVW,'(A)')' *EndVector()'
674 WRITE(IOUTMVW,'(A)')' *BeginVector(U, File)'
675 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
676 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
677 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
678 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
679 WRITE(IOUTMVW,'(A)')' *Offset("0")'
680 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
681 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
682 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
683 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
684 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
685 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
686 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
687 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
688 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
689 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
690 WRITE(IOUTMVW,'(A)')' *EndVector()'
691 WRITE(IOUTMVW,'(A)')' *BeginVector(V, File)'
692 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
693 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
694 WRITE(IOUTMVW,'(A)')' *Datatype("global variables")'
695 WRITE(IOUTMVW,'(A)')' *Request("External forces work")'
696 WRITE(IOUTMVW,'(A)')' *Component("mag")'
697 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
698 WRITE(IOUTMVW,'(A)')' *Offset("0")'
699 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
700 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
701 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
702 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "mag")'
703 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
704 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
705 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "global variables")'
706 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "External forces work")'
707 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "mag")'
708 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
709 WRITE(IOUTMVW,'(A)')' *EndVector()'
710 WRITE(IOUTMVW,'(A)')' *Attribute("hwlastgoodcurvename", "hwlastgoodcurvename", "string", "External forces work
711 .")'
712 WRITE(IOUTMVW,'(A)')' *EndCurve()'
713c
714 WRITE(IOUTMVW,'(A)')' *BeginCurve(On, "{y.hwrequest}")'
715 WRITE(IOUTMVW,'(A)')' *Line(1, 24, 1)'
716 WRITE(IOUTMVW,'(A)')' *Symbol(0, 24, 1)'
717 WRITE(IOUTMVW,'(A)')' *Shade(False)'
718 WRITE(IOUTMVW,'(A)')' *Bar(0, 0, 2)'
719 WRITE(IOUTMVW,'(A)')' *ShowInLegend(True)'
720 WRITE(IOUTMVW,'(A)')' *BeginVector(Y, File)'
721 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
722 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
723 WRITE(IOUTMVW,'(A)')' *Datatype("global variables")'
724.OR. IF (IMVW == 1 IMVW == 3) THEN
725 WRITE(IOUTMVW,'(A)')' *Request("springs internal energy")'
726 ELSE
727 WRITE(IOUTMVW,'(A)')' *Request("spring internal energy")'
728 ENDIF
729 WRITE(IOUTMVW,'(A)')' *Component("mag")'
730 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
731 WRITE(IOUTMVW,'(A)')' *Offset("0")'
732 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
733 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
734 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
735 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "mag")'
736 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
737 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
738 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "global variables")'
739.OR. IF (IMVW == 1 IMVW == 3) THEN
740 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "springs internal energy")'
741 ELSE
742 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "spring internal energy")'
743 ENDIF
744 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "mag")'
745 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
746 WRITE(IOUTMVW,'(A)')' *EndVector()'
747 WRITE(IOUTMVW,'(A)')' *BeginVector(X, File)'
748 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
749 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
750 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
751 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
752 WRITE(IOUTMVW,'(A)')' *Offset("0")'
753 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
754 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
755 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
756 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
757 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
758 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
759 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
760 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
761 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
762 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
763 WRITE(IOUTMVW,'(A)')' *EndVector()'
764 WRITE(IOUTMVW,'(A)')' *BeginVector(Time, File)'
765 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
766 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
767 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
768 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
769 WRITE(IOUTMVW,'(A)')' *Offset("0")'
770 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
771 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
772 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
773 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
774 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
775 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
776 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
777 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
778 WRITE(IOUTMVW,'(A)')' *EndVector()'
779 WRITE(IOUTMVW,'(A)')' *BeginVector(U, File)'
780 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
781 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
782 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
783 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
784 WRITE(IOUTMVW,'(A)')' *Offset("0")'
785 WRITE(IOUTMVW,'(a)')' *axisindex(1)'
786 WRITE(IOUTMVW,'(a)')' *attribute("HWFile", "File", "String", {plot_file_1})'
787 WRITE(IOUTMVW,'(a)')' *attribute("HWSolver", "Solver", "string", "radioss")'
788 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
789 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
790 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "Time")'
791 WRITE(IOUTMVW,'(a)')' *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
792 WRITE(IOUTMVW,'(a)')' *attribute("HWWordSize", "WordSize", "String", "4")'
793 WRITE(IOUTMVW,'(a)')' *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
794 WRITE(IOUTMVW,'(a)')' *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
795 WRITE(IOUTMVW,'(a)')' *endvector()'
796 WRITE(IOUTMVW,'(a)')' *beginvector(v, file)'
797 WRITE(IOUTMVW,'(a)')' *filename({plot_file_1})'
798 WRITE(IOUTMVW,'(a)')' *readertargetversion(14)'
799 WRITE(IOUTMVW,'(a)')' *datatype("Global Variables")'
800.OR. IF (IMVW == 1 IMVW == 3) THEN
801 WRITE(IOUTMVW,'(a)')' *request("Springs internal energy")'
802 ELSE
803 WRITE(IOUTMVW,'(a)')' *request("Spring internal energy")'
804 ENDIF
805 WRITE(IOUTMVW,'(a)')' *component("MAG")'
806 WRITE(IOUTMVW,'(a)')' *scalefactor("1")'
807 WRITE(IOUTMVW,'(a)')' *offset("0")'
808 WRITE(IOUTMVW,'(a)')' *axisindex(1)'
809 WRITE(IOUTMVW,'(a)')' *attribute("HWFile", "File", "String", {plot_file_1})'
810 WRITE(IOUTMVW,'(a)')' *attribute("HWSolver", "Solver", "String", "RADIOSS")'
811 WRITE(IOUTMVW,'(a)')' *attribute("HWComponent", "Component", "String", "MAG")'
812 WRITE(IOUTMVW,'(a)')' *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
813 WRITE(IOUTMVW,'(a)')' *attribute("HWWordSize", "WordSize", "String", "4")'
814 WRITE(IOUTMVW,'(a)')' *attribute("HWDatatype", "Datatype", "String", "Global Variables")'
815.OR. IF (IMVW == 1 IMVW == 3) THEN
816 WRITE(IOUTMVW,'(a)')' *attribute("HWRequest", "Request", "String", "Springs internal energy")'
817 ELSE
818 WRITE(IOUTMVW,'(a)')' *attribute("HWRequest", "Request", "String", "Springs internal energy")'
819 ENDIF
820 WRITE(IOUTMVW,'(a)')' *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
821 WRITE(IOUTMVW,'(a)')' *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
822 WRITE(IOUTMVW,'(a)')' *endvector()'
823.OR. IF (IMVW == 1 IMVW == 3) THEN
824 WRITE(IOUTMVW,'(a)')' *attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Springs internal e
825 .nergy")'
826 ELSE
827 WRITE(IOUTMVW,'(a)')' *attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Spring internal en
828 .ergy")'
829 ENDIF
830 WRITE(IOUTMVW,'(a)')' *endcurve()'
831c
832 WRITE(IOUTMVW,'(a)')' *begincurve(on, "{y.HWRequest}")'
833 WRITE(IOUTMVW,'(a)')' *line(1, 54, 1)'
834 WRITE(IOUTMVW,'(a)')' *symbol(0, 54, 1)'
835 WRITE(IOUTMVW,'(a)')' *shade(false)'
836 WRITE(IOUTMVW,'(a)')' *bar(0, 0, 2)'
837 WRITE(IOUTMVW,'(a)')' *showinlegend(true)'
838 WRITE(IOUTMVW,'(a)')' *beginvector(y, file)'
839 WRITE(IOUTMVW,'(a)')' *filename({plot_file_1})'
840 WRITE(IOUTMVW,'(a)')' *readertargetversion(14)'
841 WRITE(IOUTMVW,'(a)')' *datatype("global variables")'
842 WRITE(IOUTMVW,'(A)')' *Request("contact energy")'
843 WRITE(IOUTMVW,'(A)')' *Component("mag")'
844 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
845 WRITE(IOUTMVW,'(A)')' *Offset("0")'
846 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
847 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
848 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
849 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "mag")'
850 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
851 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
852 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "global variables")'
853 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "contact energy")'
854 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "mag")'
855 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
856 WRITE(IOUTMVW,'(A)')' *EndVector()'
857 WRITE(IOUTMVW,'(A)')' *BeginVector(X, File)'
858 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
859 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
860 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
861 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
862 WRITE(IOUTMVW,'(A)')' *Offset("0")'
863 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
864 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
865 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
866 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
867 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
868 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
869 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
870 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
871 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
872 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
873 WRITE(IOUTMVW,'(A)')' *EndVector()'
874 WRITE(IOUTMVW,'(A)')' *BeginVector(Time, File)'
875 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
876 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
877 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
878 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
879 WRITE(IOUTMVW,'(A)')' *Offset("0")'
880 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
881 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
882 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "String", "Time")'
883 WRITE(IOUTMVW,'(a)')' *attribute("HWRequest", "Request", "String", "Time")'
884 WRITE(IOUTMVW,'(a)')' *attribute("HWComponent", "Component", "String", "Time")'
885 WRITE(IOUTMVW,'(a)')' *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
886 WRITE(IOUTMVW,'(a)')' *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
887 WRITE(IOUTMVW,'(a)')' *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
888 WRITE(IOUTMVW,'(a)')' *endvector()'
889 WRITE(IOUTMVW,'(a)')' *beginvector(u, file)'
890 WRITE(IOUTMVW,'(a)')' *filename({plot_file_1})'
891 WRITE(IOUTMVW,'(a)')' *readertargetversion(14)'
892 WRITE(IOUTMVW,'(a)')' *datatype("Time")'
893 WRITE(IOUTMVW,'(a)')' *scalefactor("1")'
894 WRITE(IOUTMVW,'(a)')' *offset("0")'
895 WRITE(IOUTMVW,'(a)')' *axisindex(1)'
896 WRITE(IOUTMVW,'(a)')' *attribute("HWFile", "File", "String", {plot_file_1})'
897 WRITE(IOUTMVW,'(a)')' *attribute("HWSolver", "Solver", "String", "RADIOSS")'
898 WRITE(IOUTMVW,'(a)')' *attribute("HWDatatype", "Datatype", "String", "Time")'
899 WRITE(IOUTMVW,'(a)')' *attribute("HWRequest", "Request", "String", "Time")'
900 WRITE(IOUTMVW,'(a)')' *attribute("HWComponent", "Component", "String", "Time")'
901 WRITE(IOUTMVW,'(a)')' *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
902 WRITE(IOUTMVW,'(a)')' *attribute("HWWordSize", "WordSize", "String", "4")'
903 WRITE(IOUTMVW,'(a)')' *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
904 WRITE(IOUTMVW,'(a)')' *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
905 WRITE(IOUTMVW,'(a)')' *endvector()'
906 WRITE(IOUTMVW,'(a)')' *beginvector(v, file)'
907 WRITE(IOUTMVW,'(a)')' *filename({plot_file_1})'
908 WRITE(IOUTMVW,'(a)')' *readertargetversion(14)'
909 WRITE(IOUTMVW,'(a)')' *datatype("Global Variables")'
910 WRITE(IOUTMVW,'(a)')' *request("Contact energy")'
911 WRITE(IOUTMVW,'(a)')' *component("MAG")'
912 WRITE(IOUTMVW,'(a)')' *scalefactor("1")'
913 WRITE(IOUTMVW,'(a)')' *offset("0")'
914 WRITE(IOUTMVW,'(a)')' *axisindex(1)'
915 WRITE(IOUTMVW,'(a)')' *attribute("HWFile", "File", "String", {plot_file_1})'
916 WRITE(IOUTMVW,'(a)')' *attribute("HWSolver", "Solver", "String", "RADIOSS")'
917 WRITE(IOUTMVW,'(a)')' *attribute("HWComponent", "Component", "String", "MAG")'
918 WRITE(IOUTMVW,'(a)')' *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
919 WRITE(IOUTMVW,'(a)')' *attribute("HWWordSize", "WordSize", "String", "4")'
920 WRITE(IOUTMVW,'(a)')' *attribute("HWDatatype", "Datatype", "String", "Global Variables")'
921 WRITE(IOUTMVW,'(a)')' *attribute("HWRequest", "Request", "String", "Contact energy")'
922 WRITE(IOUTMVW,'(a)')' *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
923 WRITE(IOUTMVW,'(a)')' *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
924 WRITE(IOUTMVW,'(a)')' *endvector()'
925 WRITE(IOUTMVW,'(a)')' *attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Contact energy")'
926 WRITE(IOUTMVW,'(a)')' *endcurve()'
927c
928 WRITE(IOUTMVW,'(a)')' *begincurve(on, "{y.HWRequest}")'
929 WRITE(IOUTMVW,'(a)')' *line(1, 38, 1)'
930 WRITE(IOUTMVW,'(a)')' *symbol(0, 38, 1)'
931 WRITE(IOUTMVW,'(a)')' *shade(false)'
932 WRITE(IOUTMVW,'(a)')' *bar(0, 0, 2)'
933 WRITE(IOUTMVW,'(a)')' *showinlegend(true)'
934 WRITE(IOUTMVW,'(a)')' *beginvector(y, file)'
935 WRITE(IOUTMVW,'(a)')' *filename({plot_file_1})'
936 WRITE(IOUTMVW,'(a)')' *readertargetversion(14)'
937 WRITE(IOUTMVW,'(a)')' *datatype("Global Variables")'
938 WRITE(IOUTMVW,'(a)')' *request("Hourglass energy")'
939 WRITE(IOUTMVW,'(a)')' *component("MAG")'
940 WRITE(IOUTMVW,'(a)')' *scalefactor("1")'
941 WRITE(IOUTMVW,'(a)')' *offset("0")'
942 WRITE(IOUTMVW,'(a)')' *axisindex(1)'
943 WRITE(IOUTMVW,'(a)')' *attribute("HWFile", "File", "String", {plot_file_1})'
944 WRITE(IOUTMVW,'(a)')' *attribute("HWSolver", "Solver", "String", "RADIOSS")'
945 WRITE(IOUTMVW,'(a)')' *attribute("HWComponent", "Component", "String", "MAG")'
946 WRITE(IOUTMVW,'(a)')' *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
947 WRITE(IOUTMVW,'(a)')' *attribute("HWWordSize", "WordSize", "String", "4")'
948 WRITE(IOUTMVW,'(a)')' *attribute("HWDatatype", "Datatype", "String", "Global Variables")'
949 WRITE(IOUTMVW,'(a)')' *attribute("HWRequest", "Request", "String", "Hourglass energy")'
950 WRITE(IOUTMVW,'(a)')' *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
951 WRITE(IOUTMVW,'(a)')' *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
952 WRITE(IOUTMVW,'(a)')' *endvector()'
953 WRITE(IOUTMVW,'(a)')' *beginvector(x, file)'
954 WRITE(IOUTMVW,'(a)')' *filename({plot_file_1})'
955 WRITE(IOUTMVW,'(a)')' *readertargetversion(14)'
956 WRITE(IOUTMVW,'(a)')' *datatype("Time")'
957 WRITE(IOUTMVW,'(a)')' *scalefactor("1")'
958 WRITE(IOUTMVW,'(a)')' *offset("0")'
959 WRITE(IOUTMVW,'(a)')' *axisindex(1)'
960 WRITE(IOUTMVW,'(a)')' *attribute("HWFile", "File", "String", {plot_file_1})'
961 WRITE(IOUTMVW,'(a)')' *attribute("HWSolver", "Solver", "String", "RADIOSS")'
962 WRITE(IOUTMVW,'(a)')' *attribute("HWDatatype", "Datatype", "String", "Time")'
963 WRITE(IOUTMVW,'(a)')' *attribute("HWRequest", "Request", "String", "Time")'
964 WRITE(IOUTMVW,'(a)')' *attribute("HWComponent", "Component", "String", "Time")'
965 WRITE(IOUTMVW,'(a)')' *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
966 WRITE(IOUTMVW,'(a)')' *attribute("HWWordSize", "WordSize", "String", "4")'
967 WRITE(IOUTMVW,'(a)')' *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
968 WRITE(IOUTMVW,'(a)')' *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
969 WRITE(IOUTMVW,'(a)')' *endvector()'
970 WRITE(ioutmvw,'(A)')' *BeginVector(Time, File)'
971 WRITE(ioutmvw,'(A)')' *Filename({PLOT_FILE_1})'
972 WRITE(ioutmvw,'(A)')' *ReaderTargetVersion(14)'
973 WRITE(ioutmvw,'(A)')' *Datatype("Time")'
974 WRITE(ioutmvw,'(A)')' *ScaleFactor("1")'
975 WRITE(ioutmvw,'(A)')' *Offset("0")'
976 WRITE(ioutmvw,'(A)')' *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
977 WRITE(ioutmvw,'(A)')' *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
978 WRITE(ioutmvw,'(A)')' *Attribute("HWDatatype", "Datatype", "String", "Time")'
979 WRITE(ioutmvw,'(A)')' *Attribute("HWRequest", "Request", "String", "Time")'
980 WRITE(ioutmvw,'(A)')' *Attribute("HWComponent", "Component", "String", "Time")'
981 WRITE(ioutmvw,'(A)')' *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
982 WRITE(ioutmvw,'(A)')' *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
983 WRITE(ioutmvw,'(A)')' *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
984 WRITE(ioutmvw,'(A)')' *EndVector()'
985 WRITE(ioutmvw,'(A)')' *BeginVector(U, File)'
986 WRITE(ioutmvw,'(A)')' *Filename({PLOT_FILE_1})'
987 WRITE(ioutmvw,'(A)')' *ReaderTargetVersion(14)'
988 WRITE(ioutmvw,'(A)')' *Datatype("Time")'
989 WRITE(ioutmvw,'(A)')' *ScaleFactor("1")'
990 WRITE(ioutmvw,'(A)')' *Offset("0")'
991 WRITE(ioutmvw,'(A)')' *AxisIndex(1)'
992 WRITE(ioutmvw,'(A)')' *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
993 WRITE(ioutmvw,'(A)')' *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
994 WRITE(ioutmvw,'(A)')' *Attribute("HWDatatype", "Datatype", "String", "Time")'
995 WRITE(ioutmvw,'(A)')' *Attribute("HWRequest", "Request", "String", "Time")'
996 WRITE(ioutmvw,'(A)')' *Attribute("HWComponent", "Component", "String", "Time")'
997 WRITE(ioutmvw,'(A)')' *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
998 WRITE(ioutmvw,'(A)')' *Attribute("HWWordSize", "WordSize", "String", "4")'
999 WRITE(ioutmvw,'(A)')' *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
1000 WRITE(ioutmvw,'(A)')' *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
1001 WRITE(ioutmvw,'(A)')' *EndVector()'
1002 WRITE(ioutmvw,'(A)')' *BeginVector(V, File)'
1003 WRITE(ioutmvw,'(A)')' *Filename({PLOT_FILE_1})'
1004 WRITE(ioutmvw,'(A)')' *ReaderTargetVersion(14)'
1005 WRITE(ioutmvw,'(A)')' *Datatype("Global Variables")'
1006 WRITE(ioutmvw,'(A)')' *Request("Hourglass energy")'
1007 WRITE(ioutmvw,'(A)')' *Component("MAG")'
1008 WRITE(ioutmvw,'(A)')' *ScaleFactor("1")'
1009 WRITE(ioutmvw,'(A)')' *Offset("0")'
1010 WRITE(ioutmvw,'(A)')' *AxisIndex(1)'
1011 WRITE(ioutmvw,'(A)')' *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
1012 WRITE(ioutmvw,'(A)')' *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
1013 WRITE(ioutmvw,'(A)')' *Attribute("HWComponent", "Component", "String", "MAG")'
1014 WRITE(ioutmvw,'(A)')' *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
1015 WRITE(ioutmvw,'(A)')' *Attribute("HWWordSize", "WordSize", "String", "4")'
1016 WRITE(ioutmvw,'(A)')' *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
1017 WRITE(ioutmvw,'(A)')' *Attribute("HWRequest", "Request", "String", "Hourglass energy")'
1018 WRITE(ioutmvw,'(A)')' *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
1019 WRITE(ioutmvw,'(A)')' *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
1020 WRITE(ioutmvw,'(A)')' *EndVector()'
1021 WRITE(ioutmvw,'(A)')' *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Hourglass energy")'
1022 WRITE(ioutmvw,'(A)')' *EndCurve()'
1023c
1024 IF (imvw == 1 .OR. imvw == 3) THEN
1025 WRITE(ioutmvw,'(A)')' *BeginCurve(On, "{y.HWRequest}")'
1026 WRITE(ioutmvw,'(A)')' *Line(1, 24, 1)'
1027 WRITE(ioutmvw,'(A)')' *Symbol(0, 24, 1)'
1028 WRITE(ioutmvw,'(A)')' *Shade(False)'
1029 WRITE(ioutmvw,'(A)')' *Bar(0, 0, 2)'
1030 WRITE(ioutmvw,'(A)')' *ShowInLegend(True)'
1031 WRITE(ioutmvw,'(A)')' *BeginVector(Y, File)'
1032 WRITE(ioutmvw,'(A)')' *Filename({PLOT_FILE_1})'
1033 WRITE(ioutmvw,'(A)')' *ReaderTargetVersion(14)'
1034 WRITE(ioutmvw,'(A)')' *Datatype("Global Variables")'
1035 WRITE(ioutmvw,'(A)')' *Request("TE-Total Energy")'
1036 WRITE(ioutmvw,'(A)')' *Component("MAG")'
1037 WRITE(ioutmvw,'(A)')' *ScaleFactor("1")'
1038 WRITE(ioutmvw,'(A)')' *Offset("0")'
1039 WRITE(ioutmvw,'(A)')' *AxisIndex(1)'
1040 WRITE(ioutmvw,'(A)')' *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
1041 WRITE(ioutmvw,'(A)')' *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
1042 WRITE(ioutmvw,'(A)')' *Attribute("HWComponent", "Component", "String", "MAG")'
1043 WRITE(ioutmvw,'(A)')' *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
1044 WRITE(ioutmvw,'(A)')' *Attribute("HWWordSize", "WordSize", "String", "4")'
1045 WRITE(ioutmvw,'(A)')' *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
1046 WRITE(ioutmvw,'(A)')' *Attribute("HWRequest", "Request", "String", "TE-Total Energy")'
1047 WRITE(ioutmvw,'(A)')' *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
1048 WRITE(ioutmvw,'(A)')' *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
1049 WRITE(ioutmvw,'(A)')' *EndVector()'
1050 WRITE(ioutmvw,'(A)')' *BeginVector(X, File)'
1051 WRITE(ioutmvw,'(A)')' *Filename({PLOT_FILE_1})'
1052 WRITE(ioutmvw,'(A)')' *ReaderTargetVersion(14)'
1053 WRITE(ioutmvw,'(A)')' *Datatype("Time")'
1054 WRITE(ioutmvw,'(A)')' *ScaleFactor("1")'
1055 WRITE(ioutmvw,'(A)')' *Offset("0")'
1056 WRITE(ioutmvw,'(A)')' *AxisIndex(1)'
1057 WRITE(ioutmvw,'(A)')' *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
1058 WRITE(ioutmvw,'(A)')' *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
1059 WRITE(ioutmvw,'(A)')' *Attribute("HWDatatype", "Datatype", "String", "Time")'
1060 WRITE(ioutmvw,'(A)')' *Attribute("HWRequest", "Request", "String", "Time")'
1061 WRITE(ioutmvw,'(A)')' *Attribute("HWComponent", "Component", "String", "Time")'
1062 WRITE(ioutmvw,'(A)')' *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
1063 WRITE(ioutmvw,'(A)')' *Attribute("HWWordSize", "WordSize", "String", "4")'
1064 WRITE(ioutmvw,'(A)')' *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
1065 WRITE(ioutmvw,'(A)')' *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
1066 WRITE(ioutmvw,'(A)')' *EndVector()'
1067 WRITE(ioutmvw,'(A)')' *BeginVector(Time, File)'
1068 WRITE(ioutmvw,'(A)')' *Filename({PLOT_FILE_1})'
1069 WRITE(ioutmvw,'(A)')' *ReaderTargetVersion(14)'
1070 WRITE(ioutmvw,'(A)')' *Datatype("Time")'
1071 WRITE(ioutmvw,'(A)')' *ScaleFactor("1")'
1072 WRITE(ioutmvw,'(A)')' *Offset("0")'
1073 WRITE(ioutmvw,'(A)')' *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
1074 WRITE(ioutmvw,'(A)')' *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
1075 WRITE(ioutmvw,'(A)')' *Attribute("HWDatatype", "Datatype", "String", "Time")'
1076 WRITE(ioutmvw,'(A)')' *Attribute("HWRequest", "Request", "String", "Time")'
1077 WRITE(ioutmvw,'(A)')' *Attribute("HWComponent", "Component", "String", "Time")'
1078 WRITE(ioutmvw,'(A)')' *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
1079 WRITE(ioutmvw,'(A)')' *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
1080 WRITE(ioutmvw,'(A)')' *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
1081 WRITE(ioutmvw,'(A)')' *EndVector()'
1082 WRITE(ioutmvw,'(A)')' *BeginVector(U, File)'
1083 WRITE(ioutmvw,'(A)')' *Filename({PLOT_FILE_1})'
1084 WRITE(ioutmvw,'(A)')' *ReaderTargetVersion(14)'
1085 WRITE(ioutmvw,'(A)')' *Datatype("Time")'
1086 WRITE(ioutmvw,'(A)')' *ScaleFactor("1")'
1087 WRITE(ioutmvw,'(A)')' *Offset("0")'
1088 WRITE(ioutmvw,'(A)')' *AxisIndex(1)'
1089 WRITE(ioutmvw,'(A)')' *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
1090 WRITE(ioutmvw,'(A)')' *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
1091 WRITE(ioutmvw,'(A)')' *Attribute("HWDatatype", "Datatype", "String", "Time")'
1092 WRITE(ioutmvw,'(A)')' *Attribute("HWRequest", "Request", "String", "Time")'
1093 WRITE(ioutmvw,'(A)')' *Attribute("HWComponent", "Component", "String", "Time")'
1094 WRITE(ioutmvw,'(A)')' *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
1095 WRITE(ioutmvw,'(A)')' *Attribute("HWWordSize", "WordSize", "String", "4")'
1096 WRITE(ioutmvw,'(A)')' *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
1097 WRITE(ioutmvw,'(A)')' *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
1098 WRITE(ioutmvw,'(A)')' *EndVector()'
1099 WRITE(ioutmvw,'(A)')' *BeginVector(V, File)'
1100 WRITE(ioutmvw,'(A)')' *Filename({PLOT_FILE_1})'
1101 WRITE(ioutmvw,'(A)')' *ReaderTargetVersion(14)'
1102 WRITE(ioutmvw,'(A)')' *Datatype("Global Variables")'
1103 WRITE(ioutmvw,'(A)')' *Request("TE-Total Energy")'
1104 WRITE(ioutmvw,'(A)')' *Component("MAG")'
1105 WRITE(ioutmvw,'(A)')' *ScaleFactor("1")'
1106 WRITE(ioutmvw,'(A)')' *Offset("0")'
1107 WRITE(ioutmvw,'(A)')' *AxisIndex(1)'
1108 WRITE(ioutmvw,'(A)')' *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
1109 WRITE(ioutmvw,'(A)')' *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
1110 WRITE(ioutmvw,'(A)')' *Attribute("HWComponent", "Component", "String", "MAG")'
1111 WRITE(ioutmvw,'(A)')' *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
1112 WRITE(ioutmvw,'(A)')' *Attribute("HWWordSize", "WordSize", "String", "4")'
1113 WRITE(ioutmvw,'(A)')' *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
1114 WRITE(ioutmvw,'(A)')' *Attribute("HWRequest", "Request", "String", "TE-Total Energy")'
1115 WRITE(ioutmvw,'(a)')' *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
1116 WRITE(IOUTMVW,'(a)')' *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
1117 WRITE(IOUTMVW,'(a)')' *endvector()'
1118 WRITE(IOUTMVW,'(a)')' *attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "TE-Total Energy")'
1119 WRITE(IOUTMVW,'(a)')' *endcurve()'
1120c
1121 WRITE(IOUTMVW,'(a)')' *begincurve(on, "{y.HWRequest}")'
1122 WRITE(IOUTMVW,'(a)')' *line(1, 54, 1)'
1123 WRITE(IOUTMVW,'(a)')' *symbol(0, 54, 1)'
1124 WRITE(IOUTMVW,'(a)')' *shade(false)'
1125 WRITE(IOUTMVW,'(a)')' *bar(0, 0, 2)'
1126 WRITE(IOUTMVW,'(a)')' *showinlegend(true)'
1127 WRITE(IOUTMVW,'(a)')' *beginvector(y, file)'
1128 WRITE(IOUTMVW,'(a)')' *filename({plot_file_1})'
1129 WRITE(IOUTMVW,'(a)')' *readertargetversion(14)'
1130 WRITE(IOUTMVW,'(a)')' *datatype("Global Variables")'
1131 WRITE(IOUTMVW,'(a)')' *request("TER-Total Rotational Energy")'
1132 WRITE(IOUTMVW,'(a)')' *component("MAG")'
1133 WRITE(IOUTMVW,'(a)')' *scalefactor("1")'
1134 WRITE(IOUTMVW,'(a)')' *offset("0")'
1135 WRITE(IOUTMVW,'(a)')' *axisindex(1)'
1136 WRITE(IOUTMVW,'(a)')' *attribute("HWFile", "File", "String", {plot_file_1})'
1137 WRITE(IOUTMVW,'(a)')' *attribute("HWSolver", "Solver", "String", "RADIOSS")'
1138 WRITE(IOUTMVW,'(a)')' *attribute("HWComponent", "Component", "String", "MAG")'
1139 WRITE(IOUTMVW,'(a)')' *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
1140 WRITE(IOUTMVW,'(a)')' *attribute("HWWordSize", "wordsize", "string", "4")'
1141 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "global variables")'
1142 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "ter-total rotational energy")'
1143 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "mag")'
1144 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
1145 WRITE(IOUTMVW,'(A)')' *EndVector()'
1146 WRITE(IOUTMVW,'(A)')' *BeginVector(X, File)'
1147 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
1148 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
1149 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
1150 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
1151 WRITE(IOUTMVW,'(A)')' *Offset("0")'
1152 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
1153 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
1154 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
1155 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
1156 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
1157 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
1158 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
1159 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
1160 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
1161 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
1162 WRITE(IOUTMVW,'(A)')' *EndVector()'
1163 WRITE(IOUTMVW,'(A)')' *BeginVector(Time, File)'
1164 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
1165 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
1166 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
1167 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
1168 WRITE(IOUTMVW,'(A)')' *Offset("0")'
1169 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
1170 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
1171 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
1172 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
1173 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
1174 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
1175 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
1176 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
1177 WRITE(IOUTMVW,'(A)')' *EndVector()'
1178 WRITE(IOUTMVW,'(A)')' *BeginVector(U, File)'
1179 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
1180 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
1181 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
1182 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
1183 WRITE(IOUTMVW,'(A)')' *Offset("0")'
1184 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
1185 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
1186 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
1187 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
1188 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
1189 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
1190 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
1191 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
1192 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
1193 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
1194 WRITE(IOUTMVW,'(A)')' *EndVector()'
1195 WRITE(IOUTMVW,'(A)')' *BeginVector(V, File)'
1196 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
1197 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
1198 WRITE(IOUTMVW,'(A)')' *Datatype("global variables")'
1199 WRITE(IOUTMVW,'(A)')' *Request("ter-total rotational energy")'
1200 WRITE(IOUTMVW,'(A)')' *Component("mag")'
1201 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
1202 WRITE(IOUTMVW,'(A)')' *Offset("0")'
1203 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
1204 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
1205 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
1206 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "mag")'
1207 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
1208 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
1209 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "global variables")'
1210 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "te-total energy")'
1211 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "mag")'
1212 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
1213 WRITE(IOUTMVW,'(A)')' *EndVector()'
1214 WRITE(IOUTMVW,'(A)')' *Attribute("hwlastgoodcurvename", "hwlastgoodcurvename", "string", "ter-total rotation
1215 .al energy")'
1216 WRITE(IOUTMVW,'(A)')' *EndCurve()'
1217c
1218 WRITE(IOUTMVW,'(A)')' *BeginCurve(On, "{y.hwrequest}")'
1219 WRITE(IOUTMVW,'(A)')' *Line(1, 38, 1)'
1220 WRITE(IOUTMVW,'(A)')' *Symbol(0, 38, 1)'
1221 WRITE(IOUTMVW,'(A)')' *Shade(False)'
1222 WRITE(IOUTMVW,'(A)')' *Bar(0, 0, 2)'
1223 WRITE(IOUTMVW,'(A)')' *ShowInLegend(True)'
1224 WRITE(IOUTMVW,'(A)')' *BeginVector(Y, File)'
1225 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
1226 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
1227 WRITE(IOUTMVW,'(A)')' *Datatype("global variables")'
1228 WRITE(IOUTMVW,'(A)')' *Request("tte-total translational energy")'
1229 WRITE(IOUTMVW,'(A)')' *Component("mag")'
1230 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
1231 WRITE(IOUTMVW,'(A)')' *Offset("0")'
1232 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
1233 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
1234 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
1235 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "mag")'
1236 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
1237 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
1238 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "global variables")'
1239 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "tte-total translational energy")'
1240 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "mag")'
1241 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "String", "hgradioss++.exe")'
1242 WRITE(IOUTMVW,'(a)')' *endvector()'
1243 WRITE(IOUTMVW,'(a)')' *beginvector(x, file)'
1244 WRITE(IOUTMVW,'(a)')' *filename({plot_file_1})'
1245 WRITE(IOUTMVW,'(a)')' *readertargetversion(14)'
1246 WRITE(IOUTMVW,'(a)')' *datatype("time")'
1247 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
1248 WRITE(IOUTMVW,'(A)')' *Offset("0")'
1249 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
1250 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
1251 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
1252 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
1253 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
1254 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
1255 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
1256 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
1257 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
1258 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
1259 WRITE(IOUTMVW,'(A)')' *EndVector()'
1260 WRITE(IOUTMVW,'(A)')' *BeginVector(Time, File)'
1261 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
1262 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
1263 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
1264 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
1265 WRITE(IOUTMVW,'(A)')' *Offset("0")'
1266 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
1267 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
1268 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
1269 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
1270 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
1271 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
1272 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
1273 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
1274 WRITE(IOUTMVW,'(A)')' *EndVector()'
1275 WRITE(IOUTMVW,'(A)')' *BeginVector(U, File)'
1276 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
1277 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
1278 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
1279 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
1280 WRITE(IOUTMVW,'(A)')' *Offset("0")'
1281 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
1282 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
1283 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
1284 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
1285 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
1286 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
1287 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
1288 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
1289 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
1290 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
1291 WRITE(IOUTMVW,'(A)')' *EndVector()'
1292 WRITE(IOUTMVW,'(A)')' *BeginVector(V, File)'
1293 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
1294 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
1295 WRITE(IOUTMVW,'(A)')' *Datatype("global variables")'
1296 WRITE(IOUTMVW,'(A)')' *Request("tte-total translational energy")'
1297 WRITE(IOUTMVW,'(A)')' *Component("mag")'
1298 WRITE(IOUTMVW,'(a)')' *scalefactor("1")'
1299 WRITE(IOUTMVW,'(a)')' *offset("0")'
1300 WRITE(IOUTMVW,'(a)')' *axisindex(1)'
1301 WRITE(IOUTMVW,'(a)')' *attribute("HWFile", "file", "string", {PLOT_FILE_1})'
1302 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
1303 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "mag")'
1304 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
1305 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
1306 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "global variables")'
1307 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "te-total energy")'
1308 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "mag")'
1309 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
1310 WRITE(IOUTMVW,'(A)')' *EndVector()'
1311 WRITE(IOUTMVW,'(A)')' *Attribute("hwlastgoodcurvename", "hwlastgoodcurvename", "string", "tte-total translat
1312 .ional energy")'
1313 WRITE(IOUTMVW,'(A)')' *EndCurve()'
1314c
1315 ENDIF
1316 WRITE(IOUTMVW,'(A)')' *EndPlot()'
1317 WRITE(IOUTMVW,'(A)')' *EndWindow()'
1318
1319 IF(IMVW_REF == 0) THEN
1320
1321 WRITE(IOUTMVW,'(A)')' *BeginWindow(Plot) // Window 3'
1322 WRITE(IOUTMVW,'(A)')' *SaveDataInline(0)'
1323 WRITE(IOUTMVW,'(A)')' *ExportFormat("png")'
1324 WRITE(IOUTMVW,'(A)')' *BeginPlot()'
1325 WRITE(IOUTMVW,'(A)')' *PlotType(0)'
1326 WRITE(IOUTMVW,'(A)')' *BeginPlotHeader(On)'
1327 WRITE(IOUTMVW,'(A)')' *PrimaryFont("microsoft sans serif", 0, 0, 14)'
1328 WRITE(IOUTMVW,'(A)')' *SecondaryFont("microsoft sans serif", 0, 0, 12)'
1329 WRITE(IOUTMVW,'(A)')' *TertiaryFont("microsoft sans serif", 0, 0, 12)'
1330 WRITE(IOUTMVW,'(A)')' *Color(0)'
1331 WRITE(IOUTMVW,'(A)')' *Text("run report(mass)")'
1332 WRITE(IOUTMVW,'(A)')' *HeaderAlignment(2)'
1333 WRITE(IOUTMVW,'(A)')' *EndPlotHeader()'
1334 WRITE(IOUTMVW,'(A)')' *BeginPlotFooter(Off)'
1335 WRITE(IOUTMVW,'(A)')' *PrimaryFont("microsoft sans serif", 0, 0, 12)'
1336 WRITE(IOUTMVW,'(A)')' *SecondaryFont("microsoft sans serif", 0, 0, 12)'
1337 WRITE(IOUTMVW,'(A)')' *TertiaryFont("microsoft sans serif", 0, 0, 12)'
1338 WRITE(IOUTMVW,'(A)')' *Color(0)'
1339 WRITE(IOUTMVW,'(A)')' *Text("{p1w2c1.y.hwrequest} - {p1w2c1.y.hwcomponent}")'
1340 WRITE(IOUTMVW,'(A)')' *FooterAlignment(2)'
1341 WRITE(IOUTMVW,'(A)')' *EndPlotFooter()'
1342 WRITE(IOUTMVW,'(A)')' *BeginLegend(On)'
1343 WRITE(IOUTMVW,'(A)')' *Font("microsoft sans serif", 0, 0, 10)'
1344 WRITE(IOUTMVW,'(A)')' *BorderWidth(1)'
1345 WRITE(IOUTMVW,'(A)')' *Color(0)'
1346 WRITE(IOUTMVW,'(A)')' *Leader(Left)'
1347 WRITE(IOUTMVW,'(A)')' *Location(INSIDE)'
1348 WRITE(IOUTMVW,'(A)')' *Position(0.152542, 2.46092e+007, 9.45763, 1.85524e+007)'
1349 WRITE(IOUTMVW,'(A)')' *AutoPosition(True)'
1350 WRITE(IOUTMVW,'(A)')' *Reversed(no)'
1351 WRITE(IOUTMVW,'(A)')' *EndLegend()'
1352 WRITE(IOUTMVW,'(A)')' *UniformAspectRatio(0)'
1353 WRITE(IOUTMVW,'(A)')' *FrameColor(66)'
1354 WRITE(IOUTMVW,'(A)')' *BackgroundColor(1)'
1355 WRITE(IOUTMVW,'(A)')' *GridLineColor(9)'
1356 WRITE(IOUTMVW,'(A)')' *ZeroLineColor(0)'
1357 WRITE(IOUTMVW,'(A)')' *BeginAxis(X, "x1", on)'
1358 WRITE(IOUTMVW,'(A)')' *Label("time")'
1359 WRITE(IOUTMVW,'(A)')' *Scale(Linear)'
1360 WRITE(IOUTMVW,'(A)')' *TicMethod(PerAxis)'
1361 WRITE(IOUTMVW,'(A)')' *Min(0)'
1362c WRITE(IOUTMVW,'(A)')' *Max(22.5)'
1363 FMW = "(a21,1pg15.6,a)"
1364 WRITE(IOUTMVW,FMT=FMW) ' *Max(',TT,')'
1365C
1366 WRITE(IOUTMVW,'(A)')' *Format(Auto)'
1367 WRITE(IOUTMVW,'(A)')' *Precision(5)'
1368 WRITE(IOUTMVW,'(A)')' *Tics(10)'
1369 WRITE(IOUTMVW,'(A)')' *Grids(2)'
1370 WRITE(IOUTMVW,'(A)')' *Color(67)'
1371 WRITE(IOUTMVW,'(A)')' *AutoFit(TRUE)'
1372 WRITE(IOUTMVW,'(A)')' *LabelFont("microsoft sans serif", 0, 0, 12)'
1373 WRITE(IOUTMVW,'(A)')' *TicsFont("microsoft sans serif", 0, 0, 10)'
1374 WRITE(IOUTMVW,'(A)')' *FitRange(FALSE)'
1375 WRITE(IOUTMVW,'(A)')' *EndAxis()'
1376 WRITE(IOUTMVW,'(A)')' *BeginAxis(Y, "y1", on)'
1377 WRITE(IOUTMVW,'(A)')' *Label("{p1w2c1.y.hwdatatype}")'
1378 WRITE(IOUTMVW,'(A)')' *Scale(Linear)'
1379 WRITE(IOUTMVW,'(A)')' *TicMethod(PerAxis)'
1380c WRITE(IOUTMVW,'(A)')' *Min(-2.5e+006)'
1381c WRITE(IOUTMVW,'(A)')' *Max(2.5e+007)'
1382 WRITE(IOUTMVW,'(A)')' *Format(Auto)'
1383 WRITE(IOUTMVW,'(A)')' *Precision(5)'
1384 WRITE(IOUTMVW,'(A)')' *Tics(12)'
1385 WRITE(IOUTMVW,'(A)')' *Grids(2)'
1386 WRITE(IOUTMVW,'(A)')' *Color(67)'
1387 WRITE(IOUTMVW,'(A)')' *AutoFit(TRUE)'
1388 WRITE(IOUTMVW,'(A)')' *LabelFont("microsoft sans serif", 0, 0, 12)'
1389 WRITE(IOUTMVW,'(A)')' *TicsFont("microsoft sans serif", 0, 0, 10)'
1390 WRITE(IOUTMVW,'(A)')' *FitRange(FALSE)'
1391 WRITE(IOUTMVW,'(A)')' *EndAxis()'
1392 WRITE(IOUTMVW,'(A)')' *BeginCurve(On, "{y.hwrequest}")'
1393 WRITE(IOUTMVW,'(A)')' *Line(1, 22, 1)'
1394 WRITE(IOUTMVW,'(A)')' *Symbol(0, 22, 1)'
1395 WRITE(IOUTMVW,'(A)')' *Shade(False)'
1396 WRITE(IOUTMVW,'(A)')' *Bar(0, 0, 2)'
1397 WRITE(IOUTMVW,'(A)')' *ShowInLegend(True)'
1398 WRITE(IOUTMVW,'(A)')' *BeginVector(Y, File)'
1399 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
1400 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
1401 WRITE(IOUTMVW,'(A)')' *Datatype("global variables")'
1402 WRITE(IOUTMVW,'(A)')' *Request("mass")'
1403 WRITE(IOUTMVW,'(A)')' *Component("mag")'
1404 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
1405 WRITE(IOUTMVW,'(A)')' *Offset("0")'
1406 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
1407 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
1408 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
1409 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "mag")'
1410 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
1411 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
1412 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "global variables")'
1413 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "mass")'
1414 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "mag")'
1415 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
1416 WRITE(IOUTMVW,'(A)')' *EndVector()'
1417 WRITE(IOUTMVW,'(A)')' *BeginVector(X, File)'
1418 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
1419 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
1420 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
1421 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
1422 WRITE(IOUTMVW,'(A)')' *Offset("0")'
1423 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
1424 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
1425 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
1426 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
1427 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
1428 WRITE(IOUTMVW,'(a)')' *attribute("HWComponent", "Component", "String", "Time")'
1429 WRITE(IOUTMVW,'(a)')' *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
1430 WRITE(IOUTMVW,'(a)')' *attribute("HWWordSize", "WordSize", "String", "4")'
1431 WRITE(IOUTMVW,'(a)')' *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
1432 WRITE(IOUTMVW,'(a)')' *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
1433 WRITE(IOUTMVW,'(a)')' *endvector()'
1434 WRITE(IOUTMVW,'(a)')' *beginvector(time, file)'
1435 WRITE(IOUTMVW,'(a)')' *filename({plot_file_1})'
1436 WRITE(IOUTMVW,'(a)')' *readertargetversion(14)'
1437 WRITE(IOUTMVW,'(a)')' *datatype("Time")'
1438 WRITE(IOUTMVW,'(a)')' *scalefactor("1")'
1439 WRITE(IOUTMVW,'(a)')' *offset("0")'
1440 WRITE(IOUTMVW,'(a)')' *attribute("HWFile", "File", "String", {plot_file_1})'
1441 WRITE(IOUTMVW,'(a)')' *attribute("HWSolver", "Solver", "String", "RADIOSS")'
1442 WRITE(IOUTMVW,'(a)')' *attribute("HWDatatype", "Datatype", "String", "Time")'
1443 WRITE(IOUTMVW,'(a)')' *attribute("HWRequest", "Request", "String", "Time")'
1444 WRITE(IOUTMVW,'(a)')' *attribute("HWComponent", "Component", "String", "Time")'
1445 WRITE(IOUTMVW,'(a)')' *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
1446 WRITE(IOUTMVW,'(a)')' *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
1447 WRITE(IOUTMVW,'(a)')' *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
1448 WRITE(IOUTMVW,'(a)')' *endvector()'
1449 WRITE(IOUTMVW,'(a)')' *beginvector(u, file)'
1450 WRITE(IOUTMVW,'(a)')' *filename({plot_file_1})'
1451 WRITE(IOUTMVW,'(a)')' *readertargetversion(14)'
1452 WRITE(IOUTMVW,'(a)')' *datatype("Time")'
1453 WRITE(IOUTMVW,'(a)')' *scalefactor("1")'
1454 WRITE(IOUTMVW,'(a)')' *offset("0")'
1455 WRITE(IOUTMVW,'(a)')' *axisindex(1)'
1456 WRITE(IOUTMVW,'(a)')' *attribute("HWFile", "File", "String", {plot_file_1})'
1457 WRITE(IOUTMVW,'(a)')' *attribute("HWSolver", "Solver", "String", "RADIOSS")'
1458 WRITE(IOUTMVW,'(a)')' *attribute("HWDatatype", "Datatype", "String", "Time")'
1459 WRITE(IOUTMVW,'(a)')' *attribute("HWRequest", "Request", "String", "Time")'
1460 WRITE(IOUTMVW,'(a)')' *attribute("HWComponent", "Component", "String", "Time")'
1461 WRITE(IOUTMVW,'(a)')' *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
1462 WRITE(IOUTMVW,'(a)')' *attribute("HWWordSize", "WordSize", "String", "4")'
1463 WRITE(IOUTMVW,'(a)')' *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
1464 WRITE(IOUTMVW,'(a)')' *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
1465 WRITE(IOUTMVW,'(a)')' *endvector()'
1466 WRITE(IOUTMVW,'(a)')' *beginvector(v, file)'
1467 WRITE(IOUTMVW,'(a)')' *filename({plot_file_1})'
1468 WRITE(IOUTMVW,'(a)')' *readertargetversion(14)'
1469 WRITE(IOUTMVW,'(a)')' *datatype("Global Variables")'
1470 WRITE(IOUTMVW,'(a)')' *request("Internal Energy")'
1471 WRITE(IOUTMVW,'(a)')' *component("MAG")'
1472 WRITE(IOUTMVW,'(a)')' *scalefactor("1")'
1473 WRITE(IOUTMVW,'(a)')' *offset("0")'
1474 WRITE(IOUTMVW,'(a)')' *axisindex(1)'
1475 WRITE(IOUTMVW,'(a)')' *attribute("HWFile", "File", "String", {plot_file_1})'
1476 WRITE(IOUTMVW,'(a)')' *attribute("HWSolver", "Solver", "String", "RADIOSS")'
1477 WRITE(IOUTMVW,'(a)')' *attribute("HWComponent", "Component", "String", "MAG")'
1478 WRITE(IOUTMVW,'(a)')' *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
1479 WRITE(IOUTMVW,'(a)')' *attribute("HWWordSize", "WordSize", "String", "4")'
1480 WRITE(IOUTMVW,'(a)')' *attribute("HWDatatype", "Datatype", "String", "Global Variables")'
1481 WRITE(IOUTMVW,'(a)')' *attribute("HWRequest", "Request", "String", "Internal Energy")'
1482 WRITE(IOUTMVW,'(a)')' *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
1483 WRITE(IOUTMVW,'(a)')' *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
1484 WRITE(IOUTMVW,'(a)')' *endvector()'
1485 WRITE(IOUTMVW,'(a)')' *attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Internal Energy")'
1486 WRITE(IOUTMVW,'(a)')' *endcurve()'
1487c
1488 WRITE(IOUTMVW,'(a)')' *endplot()'
1489 WRITE(IOUTMVW,'(a)')' *endwindow()'
1490 WRITE(IOUTMVW,'(a)')' *beginwindow(plot) // window 4'
1491 WRITE(IOUTMVW,'(a)')' *savedatainline(0)'
1492 WRITE(IOUTMVW,'(a)')' *exportformat("PNG")'
1493 WRITE(IOUTMVW,'(a)')' *beginplot()'
1494 WRITE(IOUTMVW,'(a)')' *plottype(0)'
1495 WRITE(IOUTMVW,'(a)')' *beginplotheader(on)'
1496 WRITE(IOUTMVW,'(a)')' *primaryfont("Microsoft Sans Serif", 0, 0, 14)'
1497 WRITE(IOUTMVW,'(a)')' *secondaryfont("Microsoft Sans Serif", 0, 0, 12)'
1498 WRITE(IOUTMVW,'(a)')' *tertiaryfont("Microsoft Sans Serif", 0, 0, 12)'
1499 WRITE(IOUTMVW,'(a)')' *color(0)'
1500 WRITE(IOUTMVW,'(a)')' *text("RUN REPORT (Time step)")'
1501 WRITE(IOUTMVW,'(a)')' *headeralignment(2)'
1502 WRITE(IOUTMVW,'(a)')' *endplotheader()'
1503 WRITE(IOUTMVW,'(a)')' *beginplotfooter(off)'
1504 WRITE(IOUTMVW,'(a)')' *primaryfont("Microsoft Sans Serif", 0, 0, 12)'
1505 WRITE(IOUTMVW,'(a)')' *secondaryfont("Microsoft Sans Serif", 0, 0, 12)'
1506 WRITE(IOUTMVW,'(a)')' *tertiaryfont("Microsoft Sans Serif", 0, 0, 12)'
1507 WRITE(IOUTMVW,'(a)')' *color(0)'
1508 WRITE(ioutmvw,'(A)')' *Text("{p1w2c1.y.HWRequest} - {p1w2c1.y.HWComponent}")'
1509 WRITE(ioutmvw,'(A)')' *FooterAlignment(2)'
1510 WRITE(ioutmvw,'(A)')' *EndPlotFooter()'
1511 WRITE(ioutmvw,'(A)')' *BeginLegend(On)'
1512 WRITE(ioutmvw,'(A)')' *Font("Microsoft Sans Serif", 0, 0, 10)'
1513 WRITE(ioutmvw,'(A)')' *BorderWidth(1)'
1514 WRITE(ioutmvw,'(A)')' *Color(0)'
1515 WRITE(ioutmvw,'(A)')' *Leader(Left)'
1516 WRITE(ioutmvw,'(A)')' *Location(INSIDE)'
1517 WRITE(ioutmvw,'(A)')' *Position(0.152542, 2.46092e+007, 9.45763, 1.85524e+007)'
1518 WRITE(ioutmvw,'(A)')' *AutoPosition(True)'
1519 WRITE(ioutmvw,'(A)')' *Reversed(no)'
1520 WRITE(ioutmvw,'(A)')' *EndLegend()'
1521 WRITE(ioutmvw,'(A)')' *UniformAspectRatio(0)'
1522 WRITE(ioutmvw,'(A)')' *FrameColor(66)'
1523 WRITE(ioutmvw,'(A)')' *BackgroundColor(1)'
1524 WRITE(ioutmvw,'(A)')' *GridLineColor(9)'
1525 WRITE(ioutmvw,'(A)')' *ZeroLineColor(0)'
1526 WRITE(ioutmvw,'(A)')' *BeginAxis(X, "X1", on)'
1527 WRITE(ioutmvw,'(A)')' *Label("Time")'
1528 WRITE(ioutmvw,'(A)')' *Scale(Linear)'
1529 WRITE(ioutmvw,'(A)')' *TicMethod(PerAxis)'
1530 WRITE(ioutmvw,'(A)')' *Min(0)'
1531c WRITE(IOUTMVW,'(A)')' *Max(22.5)'
1532 fmw = "(a21,1pg15.6,a)"
1533 WRITE(IOUTMVW,FMT=FMW) ' *Max(',TT,')'
1534C
1535 WRITE(IOUTMVW,'(A)')' *Format(Auto)'
1536 WRITE(IOUTMVW,'(A)')' *Precision(5)'
1537 WRITE(IOUTMVW,'(A)')' *Tics(10)'
1538 WRITE(IOUTMVW,'(A)')' *Grids(2)'
1539 WRITE(IOUTMVW,'(A)')' *Color(67)'
1540 WRITE(IOUTMVW,'(A)')' *AutoFit(TRUE)'
1541 WRITE(IOUTMVW,'(A)')' *LabelFont("microsoft sans serif", 0, 0, 12)'
1542 WRITE(IOUTMVW,'(A)')' *TicsFont("microsoft sans serif", 0, 0, 10)'
1543 WRITE(IOUTMVW,'(A)')' *FitRange(FALSE)'
1544 WRITE(IOUTMVW,'(A)')' *EndAxis()'
1545 WRITE(IOUTMVW,'(A)')' *BeginAxis(Y, "y1", on)'
1546 WRITE(IOUTMVW,'(A)')' *Label("{p1w2c1.y.hwdatatype}")'
1547 WRITE(IOUTMVW,'(A)')' *Scale(Linear)'
1548 WRITE(IOUTMVW,'(A)')' *TicMethod(PerAxis)'
1549c WRITE(IOUTMVW,'(A)')' *Min(-2.5e+006)'
1550c WRITE(IOUTMVW,'(A)')' *Max(2.5e+007)'
1551 WRITE(IOUTMVW,'(A)')' *Format(Auto)'
1552 WRITE(IOUTMVW,'(A)')' *Precision(5)'
1553 WRITE(IOUTMVW,'(A)')' *Tics(12)'
1554 WRITE(IOUTMVW,'(A)')' *Grids(2)'
1555 WRITE(IOUTMVW,'(A)')' *Color(67)'
1556 WRITE(IOUTMVW,'(A)')' *AutoFit(TRUE)'
1557 WRITE(IOUTMVW,'(A)')' *LabelFont("microsoft sans serif", 0, 0, 12)'
1558 WRITE(IOUTMVW,'(A)')' *TicsFont("microsoft sans serif", 0, 0, 10)'
1559 WRITE(IOUTMVW,'(A)')' *FitRange(FALSE)'
1560 WRITE(IOUTMVW,'(A)')' *EndAxis()'
1561 WRITE(IOUTMVW,'(A)')' *BeginCurve(On, "{y.hwrequest}")'
1562 WRITE(IOUTMVW,'(A)')' *Line(1, 22, 1)'
1563 WRITE(IOUTMVW,'(A)')' *Symbol(0, 22, 1)'
1564 WRITE(IOUTMVW,'(A)')' *Shade(False)'
1565 WRITE(IOUTMVW,'(A)')' *Bar(0, 0, 2)'
1566 WRITE(IOUTMVW,'(A)')' *ShowInLegend(True)'
1567 WRITE(IOUTMVW,'(A)')' *BeginVector(Y, File)'
1568 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
1569 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
1570 WRITE(IOUTMVW,'(A)')' *Datatype("global variables")'
1571 WRITE(IOUTMVW,'(A)')' *Request("time step")'
1572 WRITE(IOUTMVW,'(A)')' *Component("mag")'
1573 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
1574 WRITE(IOUTMVW,'(A)')' *Offset("0")'
1575 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
1576 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
1577 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
1578 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "mag")'
1579 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
1580 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
1581 WRITE(IOUTMVW,'(a)')' *attribute("HWDatatype", "Datatype", "String", "Global Variables")'
1582 WRITE(IOUTMVW,'(a)')' *attribute("HWRequest", "Request", "String", "Time step")'
1583 WRITE(IOUTMVW,'(a)')' *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
1584 WRITE(IOUTMVW,'(a)')' *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
1585 WRITE(IOUTMVW,'(a)')' *endvector()'
1586 WRITE(IOUTMVW,'(a)')' *beginvector(x, file)'
1587 WRITE(IOUTMVW,'(a)')' *filename({plot_file_1})'
1588 WRITE(IOUTMVW,'(a)')' *readertargetversion(14)'
1589 WRITE(IOUTMVW,'(a)')' *datatype("Time")'
1590 WRITE(IOUTMVW,'(a)')' *scalefactor("1")'
1591 WRITE(IOUTMVW,'(a)')' *offset("0")'
1592 WRITE(IOUTMVW,'(a)')' *axisindex(1)'
1593 WRITE(IOUTMVW,'(a)')' *attribute("HWFile", "File", "String", {plot_file_1})'
1594 WRITE(IOUTMVW,'(a)')' *attribute("HWSolver", "Solver", "String", "RADIOSS")'
1595 WRITE(IOUTMVW,'(a)')' *attribute("HWDatatype", "Datatype", "String", "Time")'
1596 WRITE(IOUTMVW,'(a)')' *attribute("HWRequest", "Request", "String", "Time")'
1597 WRITE(IOUTMVW,'(a)')' *attribute("HWComponent", "Component", "String", "Time")'
1598 WRITE(IOUTMVW,'(a)')' *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
1599 WRITE(IOUTMVW,'(a)')' *attribute("hwwordsize", "wordsize", "string", "4")'
1600 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
1601 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
1602 WRITE(IOUTMVW,'(A)')' *EndVector()'
1603 WRITE(IOUTMVW,'(A)')' *BeginVector(Time, File)'
1604 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
1605 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
1606 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
1607 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
1608 WRITE(IOUTMVW,'(A)')' *Offset("0")'
1609 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
1610 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
1611 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
1612 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
1613 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
1614 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
1615 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
1616 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
1617 WRITE(IOUTMVW,'(A)')' *EndVector()'
1618 WRITE(IOUTMVW,'(A)')' *BeginVector(U, File)'
1619 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
1620 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
1621 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
1622 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
1623 WRITE(IOUTMVW,'(A)')' *Offset("0")'
1624 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
1625 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
1626 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
1627 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
1628 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
1629 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
1630 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
1631 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
1632 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
1633 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
1634 WRITE(IOUTMVW,'(A)')' *EndVector()'
1635 WRITE(IOUTMVW,'(A)')' *BeginVector(V, File)'
1636 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_1})'
1637 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
1638 WRITE(IOUTMVW,'(A)')' *Datatype("global variables")'
1639 WRITE(IOUTMVW,'(A)')' *Request("internal energy")'
1640 WRITE(IOUTMVW,'(A)')' *Component("mag")'
1641 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
1642 WRITE(IOUTMVW,'(A)')' *Offset("0")'
1643 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
1644 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_1})'
1645 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
1646 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "mag")'
1647 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
1648 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
1649 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "global variables")'
1650 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "internal energy")'
1651 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "mag")'
1652 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
1653 WRITE(IOUTMVW,'(A)')' *EndVector()'
1654 WRITE(IOUTMVW,'(A)')' *Attribute("hwlastgoodcurvename", "hwlastgoodcurvename", "string", "internal energy")'
1655 WRITE(IOUTMVW,'(A)')' *EndCurve()'
1656 WRITE(IOUTMVW,'(A)')' *EndPlot()'
1657 WRITE(IOUTMVW,'(A)')' *EndWindow()'
1658
1659 ELSEIF(IMVW_REF == 1) THEN
1660
1661 WRITE(IOUTMVW,'(A)')' *BeginWindow(Animation) // Window 3'
1662 WRITE(IOUTMVW,'(A)')' *IsActive()'
1663 WRITE(IOUTMVW,'(A)')' *ExportFormat("png")'
1664 WRITE(IOUTMVW,'(A)')' *AnimationNote("reference report")'
1665 WRITE(IOUTMVW,'(A)')' *BeginGraphic()'
1666 WRITE(IOUTMVW,'(A)')' *LightInfo(0, 0, 1, 0, 0, 0, 64)'
1667 WRITE(IOUTMVW,'(A)')' *RotationAngle(15)'
1668 WRITE(IOUTMVW,'(A)')' *BeginModel({GRAPHIC_FILE_2}, "radioss(a) result reader")'
1669 WRITE(IOUTMVW,'(A)')' *ReaderProperty("create 1d components:", "by solver output")'
1670 WRITE(IOUTMVW,'(A)')' *ReaderProperty("displacement result based on:", "model position")'
1671 WRITE(IOUTMVW,'(A)')' *ReaderProperty("maximum plastic strain over layers", "no")'
1672 WRITE(IOUTMVW,'(A)')' *ReaderProperty("maximum plastic strain over layers with prestrain removed", "no")'
1673 WRITE(IOUTMVW,'(A)')' *ReaderProperty("plastic strain with prestrain removed", "no")'
1674 WRITE(IOUTMVW,'(A)')' *ReaderProperty("strain tensor with prestrain removed", "no")'
1675 WRITE(IOUTMVW,'(A)')' *ResultMathTemplate("standard")'
1676 WRITE(IOUTMVW,'(A)')' *BeginResult({RESULT_FILE_2}, "radioss(a) result reader")'
1677 WRITE(IOUTMVW,'(A)')' *CurrentSubcase(1)'
1678 WRITE(IOUTMVW,'(A)')' *ReaderProperty("create 1d components:", "by solver output")'
1679 WRITE(IOUTMVW,'(A)')' *ReaderProperty("displacement result based on:", "model position")'
1680 WRITE(IOUTMVW,'(A)')' *ReaderProperty("maximum plastic strain over layers", "no")'
1681 WRITE(IOUTMVW,'(A)')' *ReaderProperty("maximum plastic strain over layers with prestrain removed", "no")'
1682 WRITE(IOUTMVW,'(A)')' *ReaderProperty("plastic strain with prestrain removed", "no")'
1683 WRITE(IOUTMVW,'(A)')' *ReaderProperty("strain tensor with prestrain removed", "no")'
1684 WRITE(IOUTMVW,'(A)')' *EndResult()'
1685cc
1686c GENERIC PARTS
1687cc
1688 WRITE(IOUTMVW,'(A)')' *BeginPart(1, "orphan-node", "part", 0)'
1689 WRITE(IOUTMVW,'(A)')' *Attribute(On, IdOff, 41, Opa, Sha, Msh, InFit, InCut, InIso)'
1690 WRITE(IOUTMVW,'(A)')' *EndPart()'
1691 WRITE(IOUTMVW,'(A)')' *BeginPart(851, "rigid", "part", 0)'
1692 WRITE(IOUTMVW,'(A)')' *Attribute(On, IdOff, 18, Opa, Sha, Msh, InFit, InCut, InIso)'
1693 WRITE(IOUTMVW,'(A)')' *EndPart()'
1694cc
1695c GROUPS
1696cc
1697 WRITE(IOUTMVW,'(A)')' *BeginGroup("0d set", "off", "off", "255 0 0", 1, "wire")'
1698 WRITE(IOUTMVW,'(A)')' *BeginSelection(Part, SelectAll, "user_set", 1)'
1699 WRITE(IOUTMVW,'(A)')' *Add("dimension == 0")'
1700 WRITE(IOUTMVW,'(A)')' *EndSelection()'
1701 WRITE(IOUTMVW,'(A)')' *EndGroup()'
1702 WRITE(IOUTMVW,'(A)')' *BeginGroup("1d set", "off", "off", " 0 255 0", 1, "wire")'
1703 WRITE(IOUTMVW,'(A)')' *BeginSelection(Part, SelectAll, "user_set", 2)'
1704 WRITE(IOUTMVW,'(A)')' *Add("dimension == 1")'
1705 WRITE(IOUTMVW,'(A)')' *EndSelection()'
1706 WRITE(IOUTMVW,'(A)')' *EndGroup()'
1707 WRITE(IOUTMVW,'(A)')' *BeginGroup("2d set", "off", "off", " 0 0 255", 1, "wire")'
1708 WRITE(IOUTMVW,'(A)')' *BeginSelection(Part, SelectAll, "user_set", 3)'
1709 WRITE(IOUTMVW,'(A)')' *Add("dimension == 2")'
1710 WRITE(IOUTMVW,'(A)')' *EndSelection()'
1711 WRITE(IOUTMVW,'(A)')' *EndGroup()'
1712 WRITE(IOUTMVW,'(A)')' *BeginGroup("3d set", "off", "off", " 0 0 255", 1, "wire")'
1713 WRITE(IOUTMVW,'(A)')' *BeginSelection(Part, SelectAll, "user_set", 4)'
1714 WRITE(IOUTMVW,'(A)')' *Add("dimension == 3")'
1715 WRITE(IOUTMVW,'(A)')' *EndSelection()'
1716 WRITE(IOUTMVW,'(A)')' *EndGroup()'
1717 WRITE(IOUTMVW,'(A)')' *BeginGroup("orphan nodes", "off", "off", "255 255 255", 1, "wire")'
1718 WRITE(IOUTMVW,'(A)')' *BeginSelection(Part, SelectAll, "user_set", 5)'
1719 WRITE(IOUTMVW,'(A)')' *Add("orphan-node id 1")'
1720 WRITE(IOUTMVW,'(A)')' *EndSelection()'
1721 WRITE(IOUTMVW,'(A)')' *EndGroup()'
1722cc
1723c
1724cc
1725 WRITE(IOUTMVW,'(A)')' *BeginDeformed()'
1726 WRITE(IOUTMVW,'(A)')' *ScaleMode("scalefactor")'
1727 WRITE(IOUTMVW,'(A)')' *Scale("1.000000 1.000000 1.000000")'
1728 WRITE(IOUTMVW,'(A)')' *ResolvedInSystem(0)'
1729 WRITE(IOUTMVW,'(A)')' *ResultType("displacement")'
1730 WRITE(IOUTMVW,'(A)')' *UndeformedMode("none")'
1731 WRITE(IOUTMVW,'(A)')' *UndeformedColor("componentcolor")'
1732 WRITE(IOUTMVW,'(A)')' *UndeformedTracking("off")'
1733 WRITE(IOUTMVW,'(A)')' *EndDeformed()'
1734 WRITE(IOUTMVW,'(A)')' *BeginResultMath()'
1735 WRITE(IOUTMVW,'(A)')' *EndResultMath()'
1736 WRITE(IOUTMVW,'(A)')' *LayerNumber(0)'
1737 WRITE(IOUTMVW,'(A)')' *EndModel()'
1738 WRITE(IOUTMVW,'(A)')' *RenderOptions("none", "cliptransparencyoff")'
1739 WRITE(IOUTMVW,'(A)')' *DisplayOptions("noteson")'
1740 WRITE(IOUTMVW,'(A)')' *BeginNote("on", "model info")'
1741 WRITE(IOUTMVW,'(A)')' *Transparent("on")'
1742 WRITE(IOUTMVW,'(A)')' *AutoHide("off")'
1743 WRITE(IOUTMVW,'(A)')' *FillColor(31)'
1744 WRITE(IOUTMVW,'(A)')' *TextColor(1)'
1745 WRITE(IOUTMVW,'(A)')' *Attach("window")'
1746 WRITE(IOUTMVW,'(A)')' *Position(0.500000, 0.500000)'
1747 WRITE(IOUTMVW,'(A)')' *Text("{for(i = 0; i != numpts(window.modeltitlelist); ++i) }\n
1748 . {window.modelidlist[i]}:{window.modeltitlelist[i]}\n{window.loadcaselist[i]} :
1749 . {window.simulationsteplist[i]} : {window.framelist[i]}\n{endloop}")'
1750
1751 WRITE(IOUTMVW,'(A)')' *Font("arial", "regular", "regular", 10)'
1752 WRITE(IOUTMVW,'(A)')' *Color(1)'
1753 WRITE(IOUTMVW,'(A)')' *BorderWidth(0)'
1754 WRITE(IOUTMVW,'(A)')' *NoteAlignment("right")'
1755 WRITE(IOUTMVW,'(A)')' *NoteAnchor("right", "top")'
1756 WRITE(IOUTMVW,'(A)')' *TitleFlag("yes")'
1757 WRITE(IOUTMVW,'(A)')' *EndNote()'
1758 WRITE(IOUTMVW,'(A)')' *Preferences(1, 31, 10, 0, 2, 3, 4, TriadOn, 30, "toptobottom", "off")'
1759 WRITE(IOUTMVW,'(A)')' *CurrentModel(1)'
1760 WRITE(IOUTMVW,'(A)')' *View(0.707107, 0.353553, -0.612372, 0, '
1761 WRITE(IOUTMVW,'(A)')' -0.707107, 0.353553, -0.612372, 0, '
1762 WRITE(IOUTMVW,'(A)')' -3.60866e-012, 0.866025, 0.5, 0, '
1763 WRITE(IOUTMVW,'(A)')' 0, 0, 0, 1)'
1764 WRITE(IOUTMVW,'(A)')' *ClippingRegion(-99.7008, 538.081, -174.535, 492.689, -560.868, 111.237)'
1765
1766
1767 WRITE(IOUTMVW,'(A)')' *BeginNote("on", "note 2")'
1768 WRITE(IOUTMVW,'(A)')' *Transparent("on") '
1769 WRITE(IOUTMVW,'(A)')' *AutoHide("off") '
1770 WRITE(IOUTMVW,'(A)')' *FillColor(31) '
1771 WRITE(IOUTMVW,'(A)')' *TextColor(1) '
1772 WRITE(IOUTMVW,'(A)')' *Attach("window") '
1773 WRITE(IOUTMVW,'(A)')' *Position(0.081395, 0.944444) '
1774 WRITE(IOUTMVW,'(A)')' *Text("reference report") '
1775 WRITE(IOUTMVW,'(A)')' *Font("arial", "regular", "regular", 10) '
1776 WRITE(IOUTMVW,'(A)')' *Color(1) '
1777 WRITE(IOUTMVW,'(A)')' *BorderWidth(1) '
1778 WRITE(IOUTMVW,'(A)')' *Shape("rectangle") '
1779 WRITE(IOUTMVW,'(A)')' *NoteAlignment("left") '
1780 WRITE(IOUTMVW,'(A)')' *NoteAnchor("left", "top") '
1781 WRITE(IOUTMVW,'(A)')' *TitleFlag("no") '
1782 WRITE(IOUTMVW,'(A)')' *EndNote() '
1783 WRITE(IOUTMVW,'(A)')' *Preferences(1, 31, 10, 0, 2, 3, 4, TriadOn, 30, "toptobottom", "off")'
1784 WRITE(IOUTMVW,'(A)')' *CurrentModel(1)'
1785 WRITE(IOUTMVW,'(A)')' *View(0.707107, 0.353553, -0.612372, 0, '
1786 WRITE(IOUTMVW,'(A)')' -0.707107, 0.353553, -0.612372, 0, '
1787 WRITE(IOUTMVW,'(A)')' -3.60866e-012, 0.866025, 0.5, 0, '
1788 WRITE(IOUTMVW,'(A)')' 0, 0, 0, 1)'
1789 WRITE(IOUTMVW,'(A)')' *ClippingRegion(-99.7008, 538.081, -174.535, 492.689, -560.868, 111.237)'
1790c
1791c FMW = "(A28,1PG15.6,A,1PG15.6,A,1PG15.6,A,1PG15.6,A,1PG15.6,A,1PG15.6,A )"
1792c WRITE(IOUTMVW,FMT=FMW) ,' *ClippingRegion(',XMIN_GLOB,',',XMAX_GLOB,',',YMIN_GLOB,',',
1793c . YMAX_GLOB,',',ZMIN_GLOB,',',ZMAX_GLOB ,')'
1794c
1795 WRITE(IOUTMVW,'(A)')' *EndGraphic()'
1796 WRITE(IOUTMVW,'(A)')' *EndWindow()'
1797 WRITE(IOUTMVW,'(A)')' *BeginWindow(Plot) // Window 4'
1798 WRITE(IOUTMVW,'(A)')' *SaveDataInline(0)'
1799 WRITE(IOUTMVW,'(A)')' *ExportFormat("png")'
1800 WRITE(IOUTMVW,'(A)')' *BeginPlot()'
1801 WRITE(IOUTMVW,'(A)')' *PlotType(0)'
1802 WRITE(IOUTMVW,'(A)')' *BeginPlotHeader(On)'
1803 WRITE(IOUTMVW,'(A)')' *PrimaryFont("microsoft sans serif", 0, 0, 14)'
1804 WRITE(IOUTMVW,'(A)')' *SecondaryFont("microsoft sans serif", 0, 0, 12)'
1805 WRITE(IOUTMVW,'(A)')' *TertiaryFont("microsoft sans serif", 0, 0, 12)'
1806 WRITE(IOUTMVW,'(A)')' *Color(0)'
1807 WRITE(IOUTMVW,'(A)')' *Text("reference report(energies)")'
1808 WRITE(IOUTMVW,'(A)')' *HeaderAlignment(2)'
1809 WRITE(IOUTMVW,'(A)')' *EndPlotHeader()'
1810 WRITE(IOUTMVW,'(A)')' *BeginPlotFooter(Off)'
1811 WRITE(IOUTMVW,'(A)')' *PrimaryFont("microsoft sans serif", 0, 0, 12)'
1812 WRITE(IOUTMVW,'(A)')' *SecondaryFont("microsoft sans serif", 0, 0, 12)'
1813 WRITE(IOUTMVW,'(A)')' *TertiaryFont("microsoft sans serif", 0, 0, 12)'
1814 WRITE(IOUTMVW,'(A)')' *Color(0)'
1815 WRITE(IOUTMVW,'(A)')' *Text("{p1w2c1.y.hwrequest} - {p1w2c1.y.hwcomponent}")'
1816 WRITE(IOUTMVW,'(A)')' *FooterAlignment(2)'
1817 WRITE(IOUTMVW,'(A)')' *EndPlotFooter()'
1818 WRITE(IOUTMVW,'(A)')' *BeginLegend(On)'
1819 WRITE(IOUTMVW,'(A)')' *Font("microsoft sans serif", 0, 0, 10)'
1820 WRITE(IOUTMVW,'(A)')' *BorderWidth(1)'
1821 WRITE(IOUTMVW,'(A)')' *Color(0)'
1822 WRITE(IOUTMVW,'(A)')' *Leader(Left)'
1823 WRITE(IOUTMVW,'(A)')' *Location(INSIDE)'
1824 WRITE(IOUTMVW,'(A)')' *Position(0.152542, 2.46092e+007, 9.45763, 1.85524e+007)'
1825 WRITE(IOUTMVW,'(A)')' *AutoPosition(True)'
1826 WRITE(IOUTMVW,'(A)')' *Reversed(no)'
1827 WRITE(IOUTMVW,'(A)')' *EndLegend()'
1828 WRITE(IOUTMVW,'(A)')' *UniformAspectRatio(0)'
1829 WRITE(IOUTMVW,'(A)')' *FrameColor(66)'
1830 WRITE(IOUTMVW,'(A)')' *BackgroundColor(1)'
1831 WRITE(IOUTMVW,'(A)')' *GridLineColor(9)'
1832 WRITE(IOUTMVW,'(A)')' *ZeroLineColor(0)'
1833 WRITE(IOUTMVW,'(A)')' *BeginAxis(X, "x1", on)'
1834 WRITE(IOUTMVW,'(A)')' *Label("time")'
1835 WRITE(IOUTMVW,'(A)')' *Scale(Linear)'
1836 WRITE(IOUTMVW,'(A)')' *TicMethod(PerAxis)'
1837 WRITE(IOUTMVW,'(A)')' *Min(0)'
1838c WRITE(IOUTMVW,'(A)')' *Max(22.5)'
1839 FMW = "(a21,1pg15.6,a)"
1840 WRITE(IOUTMVW,FMT=FMW) ' *Max(',TT,')'
1841C
1842 WRITE(IOUTMVW,'(A)')' *Format(Auto)'
1843 WRITE(IOUTMVW,'(A)')' *Precision(5)'
1844 WRITE(IOUTMVW,'(A)')' *Tics(10)'
1845 WRITE(IOUTMVW,'(A)')' *Grids(2)'
1846 WRITE(IOUTMVW,'(A)')' *Color(67)'
1847 WRITE(IOUTMVW,'(A)')' *AutoFit(TRUE)'
1848 WRITE(IOUTMVW,'(A)')' *LabelFont("microsoft sans serif", 0, 0, 12)'
1849 WRITE(IOUTMVW,'(A)')' *TicsFont("microsoft sans serif", 0, 0, 10)'
1850 WRITE(IOUTMVW,'(A)')' *FitRange(FALSE)'
1851 WRITE(IOUTMVW,'(A)')' *EndAxis()'
1852 WRITE(IOUTMVW,'(A)')' *BeginAxis(Y, "y1", on)'
1853 WRITE(IOUTMVW,'(A)')' *Label("{p1w2c1.y.hwdatatype}")'
1854 WRITE(IOUTMVW,'(A)')' *Scale(Linear)'
1855 WRITE(IOUTMVW,'(A)')' *TicMethod(PerAxis)'
1856c WRITE(IOUTMVW,'(A)')' *Min(-2.5e+006)'
1857c WRITE(IOUTMVW,'(A)')' *Max(2.5e+007)'
1858 WRITE(IOUTMVW,'(A)')' *Format(Auto)'
1859 WRITE(IOUTMVW,'(A)')' *Precision(5)'
1860 WRITE(IOUTMVW,'(A)')' *Tics(12)'
1861 WRITE(IOUTMVW,'(A)')' *Grids(2)'
1862 WRITE(IOUTMVW,'(A)')' *Color(67)'
1863 WRITE(IOUTMVW,'(A)')' *AutoFit(TRUE)'
1864 WRITE(IOUTMVW,'(A)')' *LabelFont("microsoft sans serif", 0, 0, 12)'
1865 WRITE(IOUTMVW,'(A)')' *TicsFont("microsoft sans serif", 0, 0, 10)'
1866 WRITE(IOUTMVW,'(A)')' *FitRange(FALSE)'
1867 WRITE(IOUTMVW,'(A)')' *EndAxis()'
1868 WRITE(IOUTMVW,'(A)')' *BeginCurve(On, "{y.hwrequest}")'
1869 WRITE(IOUTMVW,'(A)')' *Line(1, 22, 1)'
1870 WRITE(IOUTMVW,'(A)')' *Symbol(0, 22, 1)'
1871 WRITE(IOUTMVW,'(A)')' *Shade(False)'
1872 WRITE(IOUTMVW,'(A)')' *Bar(0, 0, 2)'
1873 WRITE(IOUTMVW,'(A)')' *ShowInLegend(True)'
1874 WRITE(IOUTMVW,'(A)')' *BeginVector(Y, File)'
1875 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_2})'
1876 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
1877 WRITE(IOUTMVW,'(A)')' *Datatype("global variables")'
1878 WRITE(IOUTMVW,'(A)')' *Request("internal energy")'
1879 WRITE(IOUTMVW,'(A)')' *Component("mag")'
1880 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
1881 WRITE(IOUTMVW,'(A)')' *Offset("0")'
1882 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
1883 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_2})'
1884 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
1885 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "mag")'
1886 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
1887 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
1888 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "global variables")'
1889 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "internal energy")'
1890 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "mag")'
1891 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
1892 WRITE(IOUTMVW,'(A)')' *EndVector()'
1893 WRITE(IOUTMVW,'(A)')' *BeginVector(X, File)'
1894 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_2})'
1895 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
1896 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
1897 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
1898 WRITE(IOUTMVW,'(A)')' *Offset("0")'
1899 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
1900 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_2})'
1901 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
1902 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
1903 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
1904 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
1905 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
1906 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
1907 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
1908 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
1909 WRITE(IOUTMVW,'(A)')' *EndVector()'
1910 WRITE(IOUTMVW,'(A)')' *BeginVector(Time, File)'
1911 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_2})'
1912 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
1913 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
1914 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
1915 WRITE(IOUTMVW,'(A)')' *Offset("0")'
1916 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_2})'
1917 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
1918 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
1919 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
1920 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
1921 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
1922 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
1923 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
1924 WRITE(IOUTMVW,'(A)')' *EndVector()'
1925 WRITE(IOUTMVW,'(A)')' *BeginVector(U, File)'
1926 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_2})'
1927 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
1928 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
1929 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
1930 WRITE(IOUTMVW,'(A)')' *Offset("0")'
1931 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
1932 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_2})'
1933 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
1934 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
1935 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
1936 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
1937 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
1938 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
1939 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
1940 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
1941 WRITE(IOUTMVW,'(A)')' *EndVector()'
1942 WRITE(IOUTMVW,'(A)')' *BeginVector(V, File)'
1943 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_2})'
1944 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
1945 WRITE(IOUTMVW,'(A)')' *Datatype("global variables")'
1946 WRITE(IOUTMVW,'(A)')' *Request("internal energy")'
1947 WRITE(IOUTMVW,'(A)')' *Component("mag")'
1948 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
1949 WRITE(IOUTMVW,'(A)')' *Offset("0")'
1950 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
1951 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_2})'
1952 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
1953 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "mag")'
1954 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
1955 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
1956 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "global variables")'
1957 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "Internal Energy")'
1958 WRITE(IOUTMVW,'(a)')' *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
1959 WRITE(IOUTMVW,'(a)')' *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
1960 WRITE(IOUTMVW,'(a)')' *endvector()'
1961 WRITE(IOUTMVW,'(a)')' *attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Internal Energy")'
1962 WRITE(IOUTMVW,'(a)')' *endcurve()'
1963 WRITE(IOUTMVW,'(a)')' *begincurve(on, "{y.HWRequest}")'
1964 WRITE(IOUTMVW,'(a)')' *line(1, 18, 1)'
1965 WRITE(IOUTMVW,'(a)')' *symbol(0, 18, 1)'
1966 WRITE(IOUTMVW,'(a)')' *shade(false)'
1967 WRITE(IOUTMVW,'(a)')' *bar(0, 0, 2)'
1968 WRITE(IOUTMVW,'(a)')' *showinlegend(true)'
1969 WRITE(IOUTMVW,'(a)')' *beginvector(y, file)'
1970 WRITE(IOUTMVW,'(a)')' *filename({plot_file_2})'
1971 WRITE(IOUTMVW,'(a)')' *readertargetversion(14)'
1972 WRITE(IOUTMVW,'(a)')' *datatype("Global Variables")'
1973 WRITE(IOUTMVW,'(a)')' *request("Kinetic Energy")'
1974 WRITE(IOUTMVW,'(a)')' *component("MAG")'
1975 WRITE(IOUTMVW,'(a)')' *scalefactor("1")'
1976 WRITE(IOUTMVW,'(a)')' *offset("0")'
1977 WRITE(IOUTMVW,'(a)')' *axisindex(1)'
1978 WRITE(IOUTMVW,'(a)')' *attribute("HWFile", "File", "String", {plot_file_2})'
1979 WRITE(IOUTMVW,'(a)')' *attribute("HWSolver", "Solver", "String", "RADIOSS")'
1980 WRITE(IOUTMVW,'(a)')' *attribute("HWComponent", "Component", "String", "MAG")'
1981 WRITE(IOUTMVW,'(a)')' *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
1982 WRITE(IOUTMVW,'(a)')' *attribute("HWWordSize", "WordSize", "String", "4")'
1983 WRITE(IOUTMVW,'(a)')' *attribute("HWDatatype", "Datatype", "String", "Global Variables")'
1984 WRITE(IOUTMVW,'(a)')' *attribute("HWRequest", "Request", "String", "Kinetic Energy")'
1985 WRITE(IOUTMVW,'(a)')' *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
1986 WRITE(IOUTMVW,'(a)')' *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
1987 WRITE(IOUTMVW,'(a)')' *endvector()'
1988 WRITE(IOUTMVW,'(a)')' *beginvector(x, file)'
1989 WRITE(IOUTMVW,'(a)')' *filename({plot_file_2})'
1990 WRITE(IOUTMVW,'(a)')' *readertargetversion(14)'
1991 WRITE(IOUTMVW,'(a)')' *datatype("Time")'
1992 WRITE(IOUTMVW,'(a)')' *scalefactor("1")'
1993 WRITE(IOUTMVW,'(a)')' *offset("0")'
1994 WRITE(ioutmvw,'(A)')' *AxisIndex(1)'
1995 WRITE(ioutmvw,'(A)')' *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
1996 WRITE(ioutmvw,'(A)')' *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
1997 WRITE(ioutmvw,'(A)')' *Attribute("HWDatatype", "Datatype", "String", "Time")'
1998 WRITE(ioutmvw,'(A)')' *Attribute("HWRequest", "Request", "String", "Time")'
1999 WRITE(ioutmvw,'(A)')' *Attribute("HWComponent", "Component", "String", "Time")'
2000 WRITE(ioutmvw,'(A)')' *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
2001 WRITE(ioutmvw,'(A)')' *Attribute("HWWordSize", "WordSize", "String", "4")'
2002 WRITE(ioutmvw,'(A)')' *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
2003 WRITE(ioutmvw,'(A)')' *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
2004 WRITE(ioutmvw,'(A)')' *EndVector()'
2005 WRITE(ioutmvw,'(A)')' *BeginVector(Time, File)'
2006 WRITE(ioutmvw,'(A)')' *Filename({PLOT_FILE_2})'
2007 WRITE(ioutmvw,'(A)')' *ReaderTargetVersion(14)'
2008 WRITE(ioutmvw,'(A)')' *Datatype("Time")'
2009 WRITE(ioutmvw,'(A)')' *ScaleFactor("1")'
2010 WRITE(ioutmvw,'(A)')' *Offset("0")'
2011 WRITE(ioutmvw,'(A)')' *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
2012 WRITE(ioutmvw,'(A)')' *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
2013 WRITE(ioutmvw,'(A)')' *Attribute("HWDatatype", "Datatype", "String", "Time")'
2014 WRITE(ioutmvw,'(A)')' *Attribute("HWRequest", "Request", "String", "Time")'
2015 WRITE(ioutmvw,'(A)')' *Attribute("HWComponent", "Component", "String", "Time")'
2016 WRITE(ioutmvw,'(A)')' *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
2017 WRITE(ioutmvw,'(A)')' *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
2018 WRITE(ioutmvw,'(A)')' *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
2019 WRITE(ioutmvw,'(A)')' *EndVector()'
2020 WRITE(ioutmvw,'(A)')' *BeginVector(U, File)'
2021 WRITE(ioutmvw,'(A)')' *Filename({PLOT_FILE_2})'
2022 WRITE(ioutmvw,'(A)')' *ReaderTargetVersion(14)'
2023 WRITE(ioutmvw,'(A)')' *Datatype("Time")'
2024 WRITE(ioutmvw,'(A)')' *ScaleFactor("1")'
2025 WRITE(ioutmvw,'(A)')' *Offset("0")'
2026 WRITE(ioutmvw,'(A)')' *AxisIndex(1)'
2027 WRITE(ioutmvw,'(A)')' *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
2028 WRITE(ioutmvw,'(A)')' *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
2029 WRITE(ioutmvw,'(A)')' *Attribute("HWDatatype", "Datatype", "String", "Time")'
2030 WRITE(ioutmvw,'(A)')' *Attribute("HWRequest", "Request", "String", "Time")'
2031 WRITE(ioutmvw,'(A)')' *Attribute("HWComponent", "Component", "String", "Time")'
2032 WRITE(ioutmvw,'(A)')' *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
2033 WRITE(IOUTMVW,'(a)')' *attribute("HWWordSize", "WordSize", "String", "4")'
2034 WRITE(IOUTMVW,'(a)')' *attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
2035 WRITE(IOUTMVW,'(a)')' *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
2036 WRITE(IOUTMVW,'(a)')' *endvector()'
2037 WRITE(IOUTMVW,'(a)')' *beginvector(v, file)'
2038 WRITE(IOUTMVW,'(a)')' *filename({plot_file_2})'
2039 WRITE(IOUTMVW,'(a)')' *readertargetversion(14)'
2040 WRITE(IOUTMVW,'(a)')' *datatype("Global Variables")'
2041 WRITE(IOUTMVW,'(a)')' *request("Kinetic Energy")'
2042 WRITE(IOUTMVW,'(a)')' *component("MAG")'
2043 WRITE(IOUTMVW,'(a)')' *scalefactor("1")'
2044 WRITE(IOUTMVW,'(a)')' *offset("0")'
2045 WRITE(IOUTMVW,'(a)')' *axisindex(1)'
2046 WRITE(IOUTMVW,'(a)')' *attribute("HWFile", "File", "String", {plot_file_2})'
2047 WRITE(IOUTMVW,'(a)')' *attribute("HWSolver", "Solver", "String", "RADIOSS")'
2048 WRITE(IOUTMVW,'(a)')' *attribute("HWComponent", "Component", "String", "MAG")'
2049 WRITE(IOUTMVW,'(a)')' *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
2050 WRITE(IOUTMVW,'(a)')' *attribute("HWWordSize", "WordSize", "String", "4")'
2051 WRITE(IOUTMVW,'(a)')' *attribute("HWDatatype", "Datatype", "String", "Global Variables")'
2052 WRITE(IOUTMVW,'(a)')' *attribute("HWRequest", "Request", "String", "Kinetic Energy")'
2053 WRITE(IOUTMVW,'(a)')' *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
2054 WRITE(IOUTMVW,'(a)')' *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
2055 WRITE(IOUTMVW,'(a)')' *endvector()'
2056 WRITE(IOUTMVW,'(a)')' *attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Kinetic Energy")'
2057 WRITE(IOUTMVW,'(a)')' *endcurve()'
2058 WRITE(IOUTMVW,'(a)')' *begincurve(on, "{y.HWRequest}")'
2059 WRITE(IOUTMVW,'(a)')' *line(1, 55, 1)'
2060 WRITE(IOUTMVW,'(a)')' *symbol(0, 55, 1)'
2061 WRITE(IOUTMVW,'(a)')' *shade(false)'
2062 WRITE(IOUTMVW,'(a)')' *bar(0, 0, 2)'
2063 WRITE(IOUTMVW,'(a)')' *showinlegend(true)'
2064 WRITE(IOUTMVW,'(a)')' *beginvector(y, file)'
2065 WRITE(IOUTMVW,'(a)')' *filename({plot_file_2})'
2066 WRITE(IOUTMVW,'(a)')' *readertargetversion(14)'
2067 WRITE(IOUTMVW,'(a)')' *datatype("Global Variables")'
2068 WRITE(IOUTMVW,'(a)')' *request("Contact energy")'
2069 WRITE(IOUTMVW,'(a)')' *component("MAG")'
2070 WRITE(IOUTMVW,'(a)')' *scalefactor("1")'
2071 WRITE(IOUTMVW,'(a)')' *offset("0")'
2072 WRITE(IOUTMVW,'(a)')' *axisindex(1)'
2073 WRITE(IOUTMVW,'(a)')' *attribute("HWFile", "File", "String", {plot_file_2})'
2074 WRITE(IOUTMVW,'(a)')' *attribute("HWSolver", "Solver", "String", "RADIOSS")'
2075 WRITE(IOUTMVW,'(a)')' *attribute("HWComponent", "Component", "String", "MAG")'
2076 WRITE(IOUTMVW,'(a)')' *attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
2077 WRITE(IOUTMVW,'(a)')' *attribute("HWWordSize", "WordSize", "String", "4")'
2078 WRITE(IOUTMVW,'(a)')' *attribute("HWDatatype", "Datatype", "String", "Global Variables")'
2079 WRITE(IOUTMVW,'(a)')' *attribute("HWRequest", "Request", "String", "Contact energy")'
2080 WRITE(IOUTMVW,'(a)')' *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
2081 WRITE(IOUTMVW,'(a)')' *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
2082 WRITE(IOUTMVW,'(a)')' *endvector()'
2083 WRITE(IOUTMVW,'(a)')' *beginvector(x, file)'
2084 WRITE(IOUTMVW,'(a)')' *filename({plot_file_2})'
2085 WRITE(IOUTMVW,'(a)')' *readertargetversion(14)'
2086 WRITE(IOUTMVW,'(a)')' *datatype("Time")'
2087 WRITE(IOUTMVW,'(a)')' *scalefactor("1")'
2088 WRITE(IOUTMVW,'(a)')' *offset("0")'
2089 WRITE(IOUTMVW,'(a)')' *axisindex(1)'
2090 WRITE(IOUTMVW,'(a)')' *attribute("hwfile", "file", "string", {PLOT_FILE_2})'
2091 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
2092 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
2093 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
2094 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
2095 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
2096 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
2097 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
2098 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
2099 WRITE(IOUTMVW,'(A)')' *EndVector()'
2100 WRITE(IOUTMVW,'(A)')' *BeginVector(Time, File)'
2101 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_2})'
2102 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
2103 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
2104 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
2105 WRITE(IOUTMVW,'(A)')' *Offset("0")'
2106 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_2})'
2107 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
2108 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
2109 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
2110 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
2111 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
2112 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
2113 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
2114 WRITE(IOUTMVW,'(A)')' *EndVector()'
2115 WRITE(IOUTMVW,'(A)')' *BeginVector(U, File)'
2116 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_2})'
2117 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
2118 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
2119 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
2120 WRITE(IOUTMVW,'(A)')' *Offset("0")'
2121 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
2122 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_2})'
2123 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
2124 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
2125 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
2126 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
2127 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
2128 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
2129 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
2130 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
2131 WRITE(IOUTMVW,'(A)')' *EndVector()'
2132 WRITE(IOUTMVW,'(A)')' *BeginVector(V, File)'
2133 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_2})'
2134 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
2135 WRITE(IOUTMVW,'(A)')' *Datatype("global variables")'
2136 WRITE(IOUTMVW,'(A)')' *Request("contact energy")'
2137 WRITE(IOUTMVW,'(A)')' *Component("mag")'
2138 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
2139 WRITE(IOUTMVW,'(A)')' *Offset("0")'
2140 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
2141 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_2})'
2142 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
2143 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "mag")'
2144 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
2145 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
2146 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "global variables")'
2147 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "contact energy")'
2148 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "mag")'
2149 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
2150 WRITE(IOUTMVW,'(A)')' *EndVector()'
2151 WRITE(IOUTMVW,'(A)')' *Attribute("hwlastgoodcurvename", "hwlastgoodcurvename", "string", "contact energy")'
2152 WRITE(IOUTMVW,'(A)')' *EndCurve()'
2153 WRITE(IOUTMVW,'(A)')' *BeginCurve(On, "{y.hwrequest}")'
2154 WRITE(IOUTMVW,'(A)')' *Line(1, 46, 1)'
2155 WRITE(IOUTMVW,'(A)')' *Symbol(0, 46, 1)'
2156 WRITE(IOUTMVW,'(A)')' *Shade(False)'
2157 WRITE(IOUTMVW,'(A)')' *Bar(0, 0, 2)'
2158 WRITE(IOUTMVW,'(A)')' *ShowInLegend(True)'
2159 WRITE(IOUTMVW,'(A)')' *BeginVector(Y, File)'
2160 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_2})'
2161 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
2162 WRITE(IOUTMVW,'(A)')' *Datatype("global variables")'
2163 WRITE(IOUTMVW,'(A)')' *Request("hourglass energy")'
2164 WRITE(IOUTMVW,'(A)')' *Component("mag")'
2165 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
2166 WRITE(IOUTMVW,'(A)')' *Offset("0")'
2167 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
2168 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_2})'
2169 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
2170 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "mag")'
2171 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
2172 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
2173 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "global variables")'
2174 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "hourglass energy")'
2175 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "ComplexComponent", "String", "MAG")'
2176 WRITE(IOUTMVW,'(a)')' *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
2177 WRITE(IOUTMVW,'(a)')' *endvector()'
2178 WRITE(IOUTMVW,'(a)')' *beginvector(x, file)'
2179 WRITE(IOUTMVW,'(a)')' *filename({plot_file_2})'
2180 WRITE(IOUTMVW,'(a)')' *readertargetversion(14)'
2181 WRITE(IOUTMVW,'(a)')' *datatype("Time")'
2182 WRITE(IOUTMVW,'(a)')' *scalefactor("1")'
2183 WRITE(IOUTMVW,'(a)')' *offset("0")'
2184 WRITE(IOUTMVW,'(a)')' *axisindex(1)'
2185 WRITE(IOUTMVW,'(a)')' *attribute("HWFile", "File", "String", {plot_file_2})'
2186 WRITE(IOUTMVW,'(a)')' *attribute("HWSolver", "Solver", "String", "RADIOSS")'
2187 WRITE(IOUTMVW,'(a)')' *attribute("hwdatatype", "datatype", "string", "time")'
2188 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
2189 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
2190 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
2191 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
2192 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
2193 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
2194 WRITE(IOUTMVW,'(A)')' *EndVector()'
2195 WRITE(IOUTMVW,'(A)')' *BeginVector(Time, File)'
2196 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_2})'
2197 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
2198 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
2199 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
2200 WRITE(IOUTMVW,'(A)')' *Offset("0")'
2201 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_2})'
2202 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
2203 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
2204 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
2205 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
2206 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
2207 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
2208 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
2209 WRITE(IOUTMVW,'(A)')' *EndVector()'
2210 WRITE(IOUTMVW,'(A)')' *BeginVector(U, File)'
2211 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_2})'
2212 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
2213 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
2214 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
2215 WRITE(IOUTMVW,'(A)')' *Offset("0")'
2216 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
2217 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_2})'
2218 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
2219 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
2220 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
2221 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
2222 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
2223 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
2224 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
2225 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
2226 WRITE(IOUTMVW,'(A)')' *EndVector()'
2227 WRITE(IOUTMVW,'(A)')' *BeginVector(V, File)'
2228 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_2})'
2229 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
2230 WRITE(IOUTMVW,'(A)')' *Datatype("global variables")'
2231 WRITE(IOUTMVW,'(A)')' *Request("hourglass energy")'
2232 WRITE(IOUTMVW,'(A)')' *Component("mag")'
2233 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
2234 WRITE(IOUTMVW,'(A)')' *Offset("0")'
2235 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
2236 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_2})'
2237 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
2238 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "mag")'
2239 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
2240 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
2241 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "global variables")'
2242 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "hourglass energy")'
2243 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "mag")'
2244 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
2245 WRITE(IOUTMVW,'(A)')' *EndVector()'
2246 WRITE(IOUTMVW,'(A)')' *Attribute("hwlastgoodcurvename", "hwlastgoodcurvename", "string", "hourglass energy")'
2247 WRITE(IOUTMVW,'(A)')' *EndCurve()'
2248 WRITE(IOUTMVW,'(A)')' *BeginCurve(On, "{y.hwrequest}")'
2249 WRITE(IOUTMVW,'(A)')' *Line(1, 24, 1)'
2250 WRITE(IOUTMVW,'(A)')' *Symbol(0, 24, 1)'
2251 WRITE(IOUTMVW,'(A)')' *Shade(False)'
2252 WRITE(IOUTMVW,'(A)')' *Bar(0, 0, 2)'
2253 WRITE(IOUTMVW,'(A)')' *ShowInLegend(True)'
2254 WRITE(IOUTMVW,'(A)')' *BeginVector(Y, File)'
2255 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_2})'
2256 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
2257 WRITE(IOUTMVW,'(A)')' *Datatype("global variables")'
2258 WRITE(IOUTMVW,'(A)')' *Request("te-total energy")'
2259 WRITE(IOUTMVW,'(A)')' *Component("mag")'
2260 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
2261 WRITE(IOUTMVW,'(A)')' *Offset("0")'
2262 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
2263 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_2})'
2264 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
2265 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "mag")'
2266 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
2267 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
2268 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "global variables")'
2269 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "te-total energy")'
2270 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "mag")'
2271 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
2272 WRITE(IOUTMVW,'(A)')' *EndVector()'
2273 WRITE(IOUTMVW,'(A)')' *BeginVector(X, File)'
2274 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_2})'
2275 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
2276 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
2277 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
2278 WRITE(IOUTMVW,'(A)')' *Offset("0")'
2279 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
2280 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_2})'
2281 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
2282 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
2283 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
2284 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
2285 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
2286 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
2287 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
2288 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
2289 WRITE(IOUTMVW,'(A)')' *EndVector()'
2290 WRITE(IOUTMVW,'(A)')' *BeginVector(Time, File)'
2291 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_2})'
2292 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
2293 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
2294 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
2295 WRITE(IOUTMVW,'(A)')' *Offset("0")'
2296 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_2})'
2297 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
2298 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
2299 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
2300 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
2301 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
2302 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
2303 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
2304 WRITE(IOUTMVW,'(A)')' *EndVector()'
2305 WRITE(IOUTMVW,'(A)')' *BeginVector(U, File)'
2306 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_2})'
2307 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
2308 WRITE(IOUTMVW,'(A)')' *Datatype("time")'
2309 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
2310 WRITE(IOUTMVW,'(A)')' *Offset("0")'
2311 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
2312 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_2})'
2313 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
2314 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "time")'
2315 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "time")'
2316 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "time")'
2317 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
2318 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
2319 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomplexcomponent", "complexcomponent", "string", "time")'
2320 WRITE(IOUTMVW,'(A)')' *Attribute("hwreader", "reader", "string", "hgradioss++.exe")'
2321 WRITE(IOUTMVW,'(A)')' *EndVector()'
2322 WRITE(IOUTMVW,'(A)')' *BeginVector(V, File)'
2323 WRITE(IOUTMVW,'(A)')' *Filename({PLOT_FILE_2})'
2324 WRITE(IOUTMVW,'(A)')' *ReaderTargetVersion(14)'
2325 WRITE(IOUTMVW,'(A)')' *Datatype("global variables")'
2326 WRITE(IOUTMVW,'(A)')' *Request("te-total energy")'
2327 WRITE(IOUTMVW,'(A)')' *Component("mag")'
2328 WRITE(IOUTMVW,'(A)')' *ScaleFactor("1")'
2329 WRITE(IOUTMVW,'(A)')' *Offset("0")'
2330 WRITE(IOUTMVW,'(A)')' *AxisIndex(1)'
2331 WRITE(IOUTMVW,'(A)')' *Attribute("hwfile", "file", "string", {PLOT_FILE_2})'
2332 WRITE(IOUTMVW,'(A)')' *Attribute("hwsolver", "solver", "string", "radioss")'
2333 WRITE(IOUTMVW,'(A)')' *Attribute("hwcomponent", "component", "string", "mag")'
2334 WRITE(IOUTMVW,'(A)')' *Attribute("hwreadertargetversion", "readertargetversion", "string", "14.000000")'
2335 WRITE(IOUTMVW,'(A)')' *Attribute("hwwordsize", "wordsize", "string", "4")'
2336 WRITE(IOUTMVW,'(A)')' *Attribute("hwdatatype", "datatype", "string", "global variables")'
2337 WRITE(IOUTMVW,'(A)')' *Attribute("hwrequest", "request", "string", "TE-Total Energy")'
2338 WRITE(IOUTMVW,'(a)')' *attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
2339 WRITE(IOUTMVW,'(a)')' *attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
2340 WRITE(IOUTMVW,'(a)')' *EndVector()'
2341 WRITE(ioutmvw,'(A)')' *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "TE-Total Energy")'
2342 WRITE(ioutmvw,'(A)')' *EndCurve()'
2343 WRITE(ioutmvw,'(A)')' *EndPlot()'
2344 WRITE(ioutmvw,'(A)')' *EndWindow()'
2345
2346 ENDIF
2347
2348
2349 WRITE(ioutmvw,'(A)')' *TimeScales(1, 1)'
2350 WRITE(ioutmvw,'(A)')' *TimeDelays(0, 0)'
2351 WRITE(ioutmvw,'(A)')' *AnimationEnable(1, 1)'
2352 WRITE(ioutmvw,'(A)')' *SyncTolerance(2e-008)'
2353 WRITE(ioutmvw,'(A)')' *SyncTableGenerationPolicy(ALL_BLOCKS)'
2354 WRITE(ioutmvw,'(A)')'*EndPage()'
2355
2356
2357
2358
2359 ENDIF
2360c-----------
2361 RETURN
id
initmumps id
Definition multiplerhs_example.m:4
for
for(i8=*sizetab-1;i8 >=0;i8--)
Definition mumps_common.c:91
inoutfile_mod
Definition inoutfile_mod.F:96
inoutfile_mod::outfile_name
character(len=outfile_char_len) outfile_name
Definition inoutfile_mod.F:111
inoutfile_mod::outfile_name_len
integer outfile_name_len
Definition inoutfile_mod.F:109
radioss
program radioss
Definition radioss.F:34
report
subroutine report(ih3dreader, n, imvw, wfext, wfext_md, output)
Definition report.F:35