OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
report.F File Reference
#include "implicit_f.inc"
#include "task_c.inc"
#include "com01_c.inc"
#include "com04_c.inc"
#include "com08_c.inc"
#include "com10_c.inc"
#include "commandline.inc"
#include "scr02_c.inc"
#include "scr11_c.inc"
#include "spmd_c.inc"
#include "chara_c.inc"
#include "drape_c.inc"
#include "submodel.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine report (ih3dreader, n, imvw, wfext, wfext_md, output)

Function/Subroutine Documentation

◆ report()

subroutine report ( integer ih3dreader,
integer n,
integer imvw,
wfext,
wfext_md,
type(output_), intent(in) output )

Definition at line 34 of file report.F.

35C-----------------------------------------------
36C M o d u l e s
37C-----------------------------------------------
38 USE inoutfile_mod
39 USE user_interface_mod
40 USE names_and_titles_mod, ONLY: lpath
41 USE output_mod , ONLY : output_
42C-----------------------------------------------
43C I m p l i c i t T y p e s
44C-----------------------------------------------
45#include "implicit_f.inc"
46C-----------------------------------------------
47C C o m m o n B l o c k s
48C-----------------------------------------------
49#include "task_c.inc"
50#include "com01_c.inc"
51#include "com04_c.inc"
52#include "com08_c.inc"
53#include "com10_c.inc"
54#include "commandline.inc"
55#include "scr02_c.inc"
56#include "scr11_c.inc"
57#include "spmd_c.inc"
58#include "chara_c.inc"
59#include "drape_c.inc"
60#include "submodel.inc"
61C-----------------------------------------------
62C D u m m y A r g u m e n t s
63C-----------------------------------------------
64 INTEGER IH3DREADER,N,IMVW
65 my_real wfext,wfext_md
66C-----------------------------------------------
67C L o c a l V a r i a b l e s
68C-----------------------------------------------
69 INTEGER IOUTREP,LEN_CWD, OUT_TMP, IS_MESSAGE, IS_WARNING,IS_FILE_FOUND, IEND
70 INTEGER*4 GETCWD, STATUS
71 CHARACTER FILNAM*100,MVWNAM*100
72 CHARACTER(LEN=LPATH) :: CWD
73 CHARACTER*8 DATE
74 CHARACTER*10 TIME
75 CHARACTER ELTYP(0:105)*5
76 CHARACTER*256 OUTNAME
77 CHARACTER*120 CART
78 my_real entot, entot1, err, err1, x99, emass,entot1b,dm_inout,de_inout
79 DOUBLE PRECISION ENTOTB
80 INTEGER :: LEN_TMP_NAME
81 CHARACTER(len=2148) :: TMP_NAME
82 TYPE(OUTPUT_),INTENT(IN) :: OUTPUT
83C-----------------------------------------------
84 DATA eltyp/'FIXED',
85 1 'SOLID','QUAD ','SHELL','TRUSS','BEAM ',
86 2 'SPRIN','SH_3N',' ','AIRBA','INTER',
87 3 'NODE ',' ',' ',' ',' ',
88 4 ' ',' ',' ',' ',' ',
89 5 ' ',' ',' ',' ',' ',
90 6 ' ',' ',' ',' ',' ',
91 7 ' ',' ',' ',' ',' ',
92 8 ' ',' ',' ',' ',' ',
93 9 ' ',' ',' ',' ',' ',
94 a ' ',' ',' ',' ',' ',
95 b 'SPCEL','FVBAG',' ',' ',' ',
96 c ' ',' ',' ',' ',' ',
97 d ' ',' ',' ',' ',' ',
98 e ' ',' ',' ',' ',' ',
99 f ' ',' ',' ',' ',' ',
100 g ' ',' ',' ',' ',' ',
101 h ' ',' ',' ',' ',' ',
102 i ' ',' ',' ',' ',' ',
103 j ' ',' ',' ',' ',' ',
104 k ' ',' ',' ',' ','XELEM',
105 k 'IGE3D',' ',' ',' ',' '/
106c
107 DATA x99/99.9/
108C=======================================================================
109 out_tmp = 777777
110 IF(ispmd == 0) THEN
111c
112 entot = encin + enint + enrot
113 entotb = entot + encin2 + enrot2
114 de_inout = output%DATA%INOUT%DE_IN + output%DATA%INOUT%DE_OUT
115 entot1=entot0 + wfext + de_inout
116 entot1b=entot0 + wfext + deltae + wfext_md + de_inout
117 IF(abs(entot1b)>em20)THEN
118 err = entotb/entot1b - one
119 err1 = max(-x99, min(x99,err*hundred))
120 ELSE
121 err = zero
122 err1 =zero
123 ENDIF
124 dm_inout = output%DATA%INOUT%DM_IN + output%DATA%INOUT%DM_OUT
125 emass = (xmass - (mass0+dm_inout)) / (mass0+dm_inout)
126
127 CALL date_and_time(date,time)
128 status = getcwd(cwd)
129 len_cwd = len_trim(cwd)
130 filnam=rootnam(1:rootlen)//'_report.html'
131 mvwnam=rootnam(1:rootlen)//'.mvw'
132 ioutrep = 123124
133
134 len_tmp_name = outfile_name_len + len_trim(filnam)
135 tmp_name=outfile_name(1:outfile_name_len)//filnam(1:len_trim(filnam))
136
137 OPEN(unit=ioutrep,file=tmp_name(1:len_tmp_name),
138 . access='SEQUENTIAL',
139 . form='FORMATTED',status='UNKNOWN')
140
141 WRITE(ioutrep,'(A)')'<html>'
142 WRITE(ioutrep,'(A)')'<head>'
143 IF(got_inspire_alm == 1)THEN
144 WRITE(ioutrep,'(A,I4,A)')'<title>Altair Solver ',2022,' Report</title>'
145 ELSE
146 WRITE(ioutrep,'(A,I4,A)')'<title>Altair Radioss(TM) ',2022,' Report</title>'
147 ENDIF
148 WRITE(ioutrep,'(A)')'<script language="JavaScript">'
149 WRITE(ioutrep,'(A)')'function h3d()'
150 WRITE(ioutrep,'(A)')'{'
151 WRITE(ioutrep,'(A)')'winProps = "height=600,width=520,location=no,scrollbars=no,menubars=no,toolbars=no,
152 . status=no,resizable=yes";'
153 WRITE(ioutrep,'(A,A,A)')'window.open("',rootnam(1:rootlen),'_frames.html","H3D",winProps);'
154 WRITE(ioutrep,'(A)')'}'
155 WRITE(ioutrep,'(A)')'</script>'
156 WRITE(ioutrep,'(A)')'</head>'
157 WRITE(ioutrep,'(A)')' '
158 WRITE(ioutrep,'(A)')'<body bgcolor="#FFFFFF" text="#000000">'
159 WRITE(ioutrep,'(A)')' '
160 WRITE(ioutrep,'(A)')'<table>'
161 WRITE(ioutrep,'(A)')'<tr>'
162 WRITE(ioutrep,'(A)')'<td>'
163 IF(GOT_INSPIRE_ALM == 1)THEN
164 WRITE(IOUTREP,'(a,i10,a)')'<font face="Arial" size="5"><b><i>altair solver ',2022,' report</i></b></font><br>'
165 ELSE
166 WRITE(IOUTREP,'(a,i10,a)')'<font face="Arial" size="5"><b><i>altair radioss(tm) ',2022,' report</i></b></font><br>'
167 ENDIF
168 WRITE(IOUTREP,'(a)')'<font face="Arial" size="4"><b><i> </i></b></font>'
169 WRITE(IOUTREP,'(a)')'</td></tr>'
170 WRITE(IOUTREP,'(a)')'</table>'
171 WRITE(IOUTREP,'(a)')' '
172 WRITE(IOUTREP,'(a)')'<hr size="3" color="#000000" noshade>'
173 WRITE(IOUTREP,'(a)')'<font face="Arial" size="2">'
174 WRITE(ioutrep,'(11A)')'Run submitted ',date(1:4),'/',date(5:6),'/',date(7:8),' , ',time(1:2),'h',time(3:4),'mn'
175 WRITE(ioutrep,'(A)')'<p>'
176 IF(got_inspire_alm == 1)THEN
177 WRITE(ioutrep,'(4A)')'Solver Input file : ',cwd(1:len_cwd),'/',rootnam(1:rootlen),'_0000.rad'
178 WRITE(ioutrep,'(A)')'<p>'
179 WRITE(ioutrep,'(4A)')'Solver Input file : ',cwd(1:len_cwd),'/',rootnam(1:rootlen),'_0001.rad'
180 WRITE(ioutrep,'(A)')'<p>'
181 ELSE
182 WRITE(ioutrep,'(4A)')'Starter Input file : ',cwd(1:len_cwd),'/',rootnam(1:rootlen),'_0000.rad'
183 WRITE(ioutrep,'(A)')'<p>'
184 WRITE(ioutrep,'(4A)')'Engine Input file : ',cwd(1:len_cwd),'/',rootnam(1:rootlen),'_0001.rad'
185 WRITE(ioutrep,'(A)')'<p>'
186 ENDIF
187 WRITE(ioutrep,'(A)')'<br>'
188 WRITE(ioutrep,'(A)')' '
189 WRITE(ioutrep,'(A)')'<font face="Arial" size="4"><b><i>Run summary</i></b></font>'
190 WRITE(ioutrep,'(A)')'<hr size="1" color="#000000" noshade>'
191 WRITE(ioutrep,'(A)')'<p>'
192 WRITE(ioutrep,'(A)')' '
193 WRITE(ioutrep,'(A)')'<li type="square">'
194 WRITE(ioutrep,'(A)')'<font face="Arial" size="3"><b>Finite element model information</b></font>'
195 WRITE(ioutrep,'(A)')'<font face="Arial" size="2">'
196 WRITE(ioutrep,'(A)')'<ul>'
197 WRITE(ioutrep,'(A)')'<table cellspacing="0" cellpadding="0">'
198
199
200 WRITE(ioutrep,'(A)')'<p>'
201 WRITE(ioutrep,'(A)')'<li><b>Model Information</b>'
202 WRITE(ioutrep,'(A)')'<table cellspacing="0" cellpadding="0">'
203 WRITE(ioutrep,'(A)')'<tr>'
204 WRITE(ioutrep,'(A)')'<td><font face="Arial" size="2">Number of parts: &nbsp;&nbsp;</td>'
205 WRITE(ioutrep,'(A,I10,A)')'<td><font face="Arial" size="2">',npart,'</td>'
206 WRITE(ioutrep,'(A)')'</tr>'
207 IF(nummat-1 >= 1)THEN
208 WRITE(ioutrep,'(A)')'<tr>'
209 WRITE(ioutrep,'(A)')'<td><font face="Arial" size="2">Number of Material laws: &nbsp;&nbsp;</td>'
210 WRITE(ioutrep,'(A,I10,A)')'<td><font face="Arial" size="2">',nummat-1,'</td>'
211 WRITE(ioutrep,'(a)')'</tr>'
212 ENDIF
213 IF(NUMGEO /= 0)THEN
214 WRITE(IOUTREP,'(a)')'<tr>'
215 WRITE(IOUTREP,'(a)')'<td><font face="Arial" size="2">number of properties: &nbsp;&nbsp;</td>'
216 WRITE(IOUTREP,'(a,i10,a)')'<td><font face="Arial" size="2">',NUMGEO,'</td>'
217 WRITE(IOUTREP,'(a)')'</tr>'
218 ENDIF
219 IF(NFUNCT /= 0)THEN
220 WRITE(IOUTREP,'(a)')'<tr>'
221 WRITE(IOUTREP,'(a)')'<td><font face="Arial" size="2">number of functions: &nbsp;&nbsp;</td>'
222 WRITE(IOUTREP,'(a,i10,a)')'<td><font face="Arial" size="2">',NFUNCT,'</td>'
223 WRITE(IOUTREP,'(a)')'</tr>'
224 ENDIF
225 WRITE(IOUTREP,'(a)')'</table>'
226 WRITE(IOUTREP,'(a)')' '
227
228
229 WRITE(IOUTREP,'(a)')'<p>'
230 WRITE(IOUTREP,'(a)')'<li><b>mesh information</b>'
231 WRITE(IOUTREP,'(a)')'<table cellspacing="0" cellpadding="0">'
232 WRITE(IOUTREP,'(a)')'<tr>'
233 WRITE(IOUTREP,'(a)')'<td><font face="Arial" size="2">number of nodes: &nbsp;&nbsp;</td>'
234 WRITE(IOUTREP,'(a,i10,a)')'<td><font face="Arial" size="2">',NUMNODG,'</td>'
235 WRITE(IOUTREP,'(a)')'</tr>'
236 WRITE(IOUTREP,'(a)')'<tr>'
237 WRITE(IOUTREP,'(a)')'<td><font face="Arial" size="2">number of elements: &nbsp;&nbsp;</td>'
238 WRITE(IOUTREP,'(a,i10,a)')'<td><font face="Arial" size="2">',NUMELQG+NUMELSG+NUMELCG+NUMELTG+NUMELPG+NUMELRG,'</td>'
239 WRITE(IOUTREP,'(a)')'</tr>'
240 WRITE(IOUTREP,'(a)')'<tr>'
241 WRITE(IOUTREP,'(a)')'<td><font face="Arial" size="2">number of parts: &nbsp;&nbsp;</td>'
242 WRITE(IOUTREP,'(a,i10,a)')'<td><font face="Arial" size="2">',NPART,'</td>'
243 WRITE(IOUTREP,'(a)')'</tr>'
244 IF(NRBODY /= 0)THEN
245 WRITE(IOUTREP,'(a)')'<tr>'
246 WRITE(IOUTREP,'(a)')'<td><font face="Arial" size="2">number of rigid bodies: &nbsp;&nbsp;</td>'
247 WRITE(IOUTREP,'(a,i10,a)')'<td><font face="Arial" size="2">',NRBODY,'</td>'
248 WRITE(IOUTREP,'(a)')'</tr>'
249 ENDIF
250 IF(NRBE2G /= 0)THEN
251 WRITE(IOUTREP,'(a)')'<tr>'
252 WRITE(ioutrep,'(A)')'<td><font face="Arial" size="2">Number of Rbe2s: &nbsp;&nbsp;</td>'
253 WRITE(ioutrep,'(A,I10,A)')'<td><font face="Arial" size="2">',nrbe2g,'</td>'
254 WRITE(ioutrep,'(A)')'</tr>'
255 ENDIF
256 IF(nrbe3g /= 0)THEN
257 WRITE(ioutrep,'(A)')'<tr>'
258 WRITE(ioutrep,'(A)')'<td><font face="Arial" size="2">Number of Rbe3s: &nbsp;&nbsp;</td>'
259 WRITE(ioutrep,'(A,I10,A)')'<td><font face="Arial" size="2">',nrbe3g,'</td>'
260 WRITE(ioutrep,'(A)')'</tr>'
261 ENDIF
262 WRITE(ioutrep,'(A)')'</table>'
263 WRITE(ioutrep,'(A)')' '
264 WRITE(ioutrep,'(A)')'<p>'
265 WRITE(ioutrep,'(A)')'<li><b>Elements</b>'
266 WRITE(ioutrep,'(A)')'<table cellspacing="0" cellpadding="0">'
267 IF(numelqg /= 0)THEN
268 WRITE(ioutrep,'(A)')'<tr>'
269 WRITE(ioutrep,'(A)')'<td><font face="Arial" size="2">Number of 2D solid elements: &nbsp;&nbsp;</td>'
270 WRITE(ioutrep,'(A,I10,A)')'<td><font face="Arial" size="2">',numelqg,'</td>'
271 WRITE(ioutrep,'(A)')'</tr>'
272 ENDIF
273 IF(numelsg /= 0)THEN
274 WRITE(ioutrep,'(A)')'<tr>'
275 WRITE(ioutrep,'(A)')'<td><font face="Arial" size="2">Number of 3D solid elements (TETRA4 & BRICK): &nbsp;&nbsp;</td>'
276 WRITE(ioutrep,'(A,I10,A)')'<td><font face="Arial" size="2">',numelsg,'</td>'
277 WRITE(ioutrep,'(A)')'</tr>'
278 ENDIF
279 IF(numels10g /= 0)THEN
280 WRITE(ioutrep,'(A)')'<tr>'
281 WRITE(ioutrep,'(A)')'<td><font face="Arial" size="2">Number of 3D solid elements (TETRA10): &nbsp;&nbsp;</td>'
282 WRITE(ioutrep,'(A,I10,A)')'<td><font face="Arial" size="2">',numels10g,'</td>'
283 WRITE(ioutrep,'(A)')'</tr>'
284 ENDIF
285 IF(numels16g /= 0)THEN
286 WRITE(ioutrep,'(A)')'<tr>'
287 WRITE(ioutrep,'(A)')'<td><font face="Arial" size="2">number of 3d solid elements(solid16): &nbsp;&nbsp;</td>'
288 WRITE(IOUTREP,'(a,i10,a)')'<td><font face="Arial" size="2">',NUMELS16G,'</td>'
289 WRITE(IOUTREP,'(a)')'</tr>'
290 ENDIF
291 IF(NUMELS20G /= 0)THEN
292 WRITE(IOUTREP,'(a)')'<tr>'
293 WRITE(IOUTREP,'(a)')'<td><font face="Arial" size="2">number of 3d solid elements(solid20): &nbsp;&nbsp;</td>'
294 WRITE(IOUTREP,'(a,i10,a)')'<td><font face="Arial" size="2">',NUMELS20G,'</td>'
295 WRITE(IOUTREP,'(a)')'</tr>'
296 ENDIF
297 IF(NUMELCG /= 0)THEN
298 WRITE(IOUTREP,'(a)')'<tr>'
299 WRITE(IOUTREP,'(a)')'<td><font face="Arial" size="2">number of 3d shell elements(4-nodes): &nbsp;&nbsp;</td>'
300 WRITE(IOUTREP,'(a,i10,a)')'<td><font face="Arial" size="2">',numelcg,'</td>'
301 WRITE(ioutrep,'(A)')'</tr>'
302 ENDIF
303 IF(numeltgg /= 0)THEN
304 WRITE(ioutrep,'(A)')'<tr>'
305 WRITE(ioutrep,'(A)')'<td><font face="Arial" size="2">Number of 3D shell elements (3-NODES): &nbsp;&nbsp;</td>'
306 WRITE(ioutrep,'(A,I10,A)')'<td><font face="Arial" size="2">',numeltgg,'</td>'
307 WRITE(ioutrep,'(A)')'</tr>'
308 ENDIF
309 IF(numeltrg /= 0)THEN
310 WRITE(ioutrep,'(A)')'<tr>'
311 WRITE(ioutrep,'(A)')'<td><font face="Arial" size="2">Number of 3D truss elements: &nbsp;&nbsp;</td>'
312 WRITE(ioutrep,'(A,I10,A)')'<td><font face="Arial" size="2">',numeltrg,'</td>'
313 WRITE(ioutrep,'(a)')'</tr>'
314 ENDIF
315 IF(NUMELPG /= 0)THEN
316 WRITE(IOUTREP,'(a)')'<tr>'
317 WRITE(IOUTREP,'(a)')'<td><font face="Arial" size="2">number of 3d beam elements: &nbsp;&nbsp;</td>'
318 WRITE(IOUTREP,'(a,i10,a)')'<td><font face="Arial" size="2">',NUMELPG,'</td>'
319 WRITE(IOUTREP,'(a)')'</tr>'
320 ENDIF
321 IF(NUMELRG /= 0)THEN
322 WRITE(IOUTREP,'(a)')'<tr>'
323 WRITE(IOUTREP,'(a)')'<td><font face="Arial" size="2">number of 3d spring elements: &nbsp;&nbsp;</td>'
324 WRITE(IOUTREP,'(a,i10,a)')'<td><font face="Arial" size="2">',NUMELRG,'</td>'
325 WRITE(IOUTREP,'(a)')'</tr>'
326 ENDIF
327 IF(NUMELXG /= 0)THEN
328 WRITE(IOUTREP,'(a)')'<tr>'
329 WRITE(IOUTREP,'(a)')'<td><font face="Arial" size="2">number of multipurpose elements: &nbsp;&nbsp;</td>'
330 WRITE(IOUTREP,'(a,i10,a)')'<td><font face="Arial" size="2">',NUMELXG,'</td>'
331 WRITE(IOUTREP,'(a)')'</tr>'
332 ENDIF
333 IF(NUMELIG3D /= 0)THEN
334 WRITE(IOUTREP,'(a)')'<tr>'
335 WRITE(IOUTREP,'(a)')'<td><font face="Arial" size="2">number of iso-geometrics elements: &nbsp;&nbsp;</td>'
336 WRITE(IOUTREP,'(a,i10,a)')'<td><font face="Arial" size="2">',NUMELIG3D,'</td>'
337 WRITE(IOUTREP,'(a)')'</tr>'
338 ENDIF
339 IF(NUMSPHG /= 0)THEN
340 WRITE(IOUTREP,'(a)')'<tr>'
341 WRITE(IOUTREP,'(a)')'<td><font face="Arial" size="2">Number of smooth particles (SPH CELLS): &nbsp;&nbsp;</td>'
342 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NUMSPHG,'</td>'
343 WRITE(IOUTREP,'(A)')'</tr>'
344 ENDIF
345 WRITE(IOUTREP,'(A)')'</table>'
346 WRITE(IOUTREP,'(A)')' '
347
348 WRITE(IOUTREP,'(A)')'<p>'
349 WRITE(IOUTREP,'(A)')'<li><b>Loads and boundaries</b>'
350 WRITE(IOUTREP,'(A)')'<table cellspacing="0" cellpadding="0">'
351 IF(NUMBCS /= 0)THEN
352 WRITE(IOUTREP,'(A)')'<tr>'
353 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of Boundary conditions : &nbsp;&nbsp;</td>'
354 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NUMBCS,'</td>'
355 WRITE(IOUTREP,'(A)')'</tr>'
356 ENDIF
357 IF(NCONLD /= 0)THEN
358 WRITE(IOUTREP,'(A)')'<tr>'
359 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of cloads : &nbsp;&nbsp;</td>'
360 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NCONLD,'</td>'
361 WRITE(IOUTREP,'(A)')'</tr>'
362 ENDIF
363 IF(NINTER /= 0)THEN
364 WRITE(IOUTREP,'(A)')'<tr>'
365 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of interfaces : &nbsp;&nbsp;</td>'
366 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NINTER,'</td>'
367 WRITE(IOUTREP,'(A)')'</tr>'
368 ENDIF
369 IF(NFXBODY /= 0)THEN
370 WRITE(IOUTREP,'(A)')'<tr>'
371 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of flexible bodies : &nbsp;&nbsp;</td>'
372 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NFXBODY,'</td>'
373 WRITE(IOUTREP,'(A)')'</tr>'
374 ENDIF
375 IF(NGRAV /= 0)THEN
376 WRITE(IOUTREP,'(A)')'<tr>'
377 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of gravities : &nbsp;&nbsp;</td>'
378 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NGRAV,'</td>'
379 WRITE(IOUTREP,'(A)')'</tr>'
380 ENDIF
381 IF(NFXVEL /= 0)THEN
382 WRITE(IOUTREP,'(A)')'<tr>'
383 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of imposed disp/vel/acc : &nbsp;&nbsp;</td>'
384 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NFXVEL,'</td>'
385 WRITE(IOUTREP,'(A)')'</tr>'
386 ENDIF
387 IF(NINVEL /= 0)THEN
388 WRITE(IOUTREP,'(A)')'<tr>'
389 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of Initial velocities : &nbsp;&nbsp;</td>'
390 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NINVEL,'</td>'
391 WRITE(IOUTREP,'(A)')'</tr>'
392 ENDIF
393 IF(NVOLU /= 0)THEN
394 WRITE(IOUTREP,'(A)')'<tr>'
395 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of monitored volumes: &nbsp;&nbsp;</td>'
396 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NVOLU,'</td>'
397 WRITE(IOUTREP,'(A)')'</tr>'
398 ENDIF
399 IF(NRWALL /= 0)THEN
400 WRITE(IOUTREP,'(A)')'<tr>'
401 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of Rigid walls: &nbsp;&nbsp;</td>'
402 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NRWALL,'</td>'
403 WRITE(IOUTREP,'(A)')'</tr>'
404 ENDIF
405 WRITE(IOUTREP,'(A)')'</table>'
406 WRITE(IOUTREP,'(A)')' '
407 WRITE(IOUTREP,'(A)')'<p>'
408
409 WRITE(IOUTREP,'(A)')'<p>'
410 IF(GOT_INSPIRE_ALM == 1)THEN
411 WRITE(IOUTREP,'(A)')'<li><b>Solver tools</b>'
412 ELSE
413 WRITE(IOUTREP,'(A)')'<li><b>Radioss tools</b>'
414 ENDIF
415 WRITE(IOUTREP,'(A)')'<table cellspacing="0" cellpadding="0">'
416 IF(NCLUSTER /= 0)THEN
417 WRITE(IOUTREP,'(A)')'<tr>'
418 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of Clusters: &nbsp;&nbsp;</td>'
419 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NCLUSTER,'</td>'
420 WRITE(IOUTREP,'(A)')'</tr>'
421 ENDIF
422 IF(NDRAPE /= 0)THEN
423 WRITE(IOUTREP,'(A)')'<tr>'
424 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of drapes: &nbsp;&nbsp;</td>'
425 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NDRAPE,'</td>'
426 WRITE(IOUTREP,'(A)')'</tr>'
427 ENDIF
428 IF(NUMPLY /= 0)THEN
429 WRITE(IOUTREP,'(A)')'<tr>'
430 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of plies: &nbsp;&nbsp;</td>'
431 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NUMPLY,'</td>'
432 WRITE(IOUTREP,'(A)')'</tr>'
433 ENDIF
434 IF(NUMSTACK /= 0)THEN
435 WRITE(IOUTREP,'(A)')'<tr>'
436 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of stacks: &nbsp;&nbsp;</td>'
437 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NUMSTACK,'</td>'
438 WRITE(IOUTREP,'(A)')'</tr>'
439 ENDIF
440 IF(NGRNOD /= 0)THEN
441 WRITE(IOUTREP,'(A)')'<tr>'
442 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of node groups: &nbsp;&nbsp;</td>'
443 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NGRNOD,'</td>'
444 WRITE(IOUTREP,'(A)')'</tr>'
445 ENDIF
446 IF(NGRBRIC /= 0)THEN
447 WRITE(IOUTREP,'(A)')'<tr>'
448 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of brick groups: &nbsp;&nbsp;</td>'
449 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NGRBRIC,'</td>'
450 WRITE(IOUTREP,'(A)')'</tr>'
451 ENDIF
452 IF(NGRQUAD /= 0)THEN
453 WRITE(IOUTREP,'(A)')'<tr>'
454 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of quad groups: &nbsp;&nbsp;</td>'
455 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NGRQUAD,'</td>'
456 WRITE(IOUTREP,'(A)')'</tr>'
457 ENDIF
458 IF(NGRSHEL /= 0)THEN
459 WRITE(IOUTREP,'(A)')'<tr>'
460 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of shell groups: &nbsp;&nbsp;</td>'
461 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NGRSHEL,'</td>'
462 WRITE(IOUTREP,'(A)')'</tr>'
463 ENDIF
464 IF(NGRSH3N /= 0)THEN
465 WRITE(IOUTREP,'(A)')'<tr>'
466 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of 3 node shell groups: &nbsp;&nbsp;</td>'
467 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NGRSH3N,'</td>'
468 WRITE(IOUTREP,'(A)')'</tr>'
469 ENDIF
470 IF(NGRTRUS /= 0)THEN
471 WRITE(IOUTREP,'(A)')'<tr>'
472 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of truss groups: &nbsp;&nbsp;</td>'
473 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NGRTRUS,'</td>'
474 WRITE(IOUTREP,'(A)')'</tr>'
475 ENDIF
476 IF(NGRBEAM /= 0)THEN
477 WRITE(IOUTREP,'(A)')'<tr>'
478 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of beam groups: &nbsp;&nbsp;</td>'
479 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NGRBEAM,'</td>'
480 WRITE(IOUTREP,'(A)')'</tr>'
481 ENDIF
482 IF(NGRSPRI /= 0)THEN
483 WRITE(IOUTREP,'(A)')'<tr>'
484 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of spring groups: &nbsp;&nbsp;</td>'
485 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NGRSPRI,'</td>'
486 WRITE(IOUTREP,'(A)')'</tr>'
487 ENDIF
488 IF(NGRPART /= 0)THEN
489 WRITE(IOUTREP,'(A)')'<tr>'
490 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of part groups: &nbsp;&nbsp;</td>'
491 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NGRPART,'</td>'
492 WRITE(IOUTREP,'(A)')'</tr>'
493 ENDIF
494 IF(NSURF /= 0)THEN
495 WRITE(IOUTREP,'(A)')'<tr>'
496 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of surface groups: &nbsp;&nbsp;</td>'
497 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NSURF,'</td>'
498 WRITE(IOUTREP,'(A)')'</tr>'
499 ENDIF
500 IF(NSLIN /= 0)THEN
501 WRITE(IOUTREP,'(A)')'<tr>'
502 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of line groups: &nbsp;&nbsp;</td>'
503 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NSLIN,'</td>'
504 WRITE(IOUTREP,'(A)')'</tr>'
505 ENDIF
506 IF(SENSORS%NSENSOR /= 0)THEN
507 WRITE(IOUTREP,'(A)')'<tr>'
508 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of sensors: &nbsp;&nbsp;</td>'
509 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',SENSORS%NSENSOR,'</td>'
510 WRITE(IOUTREP,'(A)')'</tr>'
511 ENDIF
512 IF(NUMSKW /= 0)THEN
513 WRITE(IOUTREP,'(A)')'<tr>'
514 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of skews: &nbsp;&nbsp;</td>'
515 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NUMSKW,'</td>'
516 WRITE(IOUTREP,'(A)')'</tr>'
517 ENDIF
518 IF(NUMFRAM /= 0)THEN
519 WRITE(IOUTREP,'(A)')'<tr>'
520 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of frames: &nbsp;&nbsp;</td>'
521 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NUMFRAM,'</td>'
522 WRITE(IOUTREP,'(A)')'</tr>'
523 ENDIF
524 IF(NSUBMOD /= 0)THEN
525 WRITE(IOUTREP,'(A)')'<tr>'
526 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of submodels: &nbsp;&nbsp;</td>'
527 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NSUBMOD,'</td>'
528 WRITE(IOUTREP,'(A)')'</tr>'
529 ENDIF
530 WRITE(IOUTREP,'(A)')'</table>'
531 WRITE(IOUTREP,'(A)')' '
532
533
534 WRITE(IOUTREP,'(A)')'<p>'
535 WRITE(IOUTREP,'(A)')'<li><b>Data history</b>'
536 WRITE(IOUTREP,'(A)')'<table cellspacing="0" cellpadding="0">'
537 IF(NTHGRP /= 0)THEN
538 WRITE(IOUTREP,'(A)')'<tr>'
539 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of th groups: &nbsp;&nbsp;</td>'
540 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NTHGRP,'</td>'
541 WRITE(IOUTREP,'(A)')'</tr>'
542 ENDIF
543 IF(NSECT /= 0)THEN
544 WRITE(IOUTREP,'(A)')'<tr>'
545 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of sections: &nbsp;&nbsp;</td>'
546 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NSECT,'</td>'
547 WRITE(IOUTREP,'(A)')'</tr>'
548 ENDIF
549 IF(NACCELM /= 0)THEN
550 WRITE(IOUTREP,'(A)')'<tr>'
551 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of accelerometers: &nbsp;&nbsp;</td>'
552 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NACCELM,'</td>'
553 WRITE(IOUTREP,'(A)')'</tr>'
554 ENDIF
555 IF(NBGAUGE /= 0)THEN
556 WRITE(IOUTREP,'(A)')'<tr>'
557 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Number of gauges: &nbsp;&nbsp;</td>'
558 WRITE(IOUTREP,'(A,I10,A)')'<td><font face="arial" size="2">',NBGAUGE,'</td>'
559 WRITE(IOUTREP,'(A)')'</tr>'
560 ENDIF
561 WRITE(IOUTREP,'(A)')'</table>'
562 WRITE(IOUTREP,'(A)')' '
563
564
565c WRITE(IOUTREP,'(A)')'<p>'
566c WRITE(IOUTREP,'(A)')'<li><b>Materials</b>'
567c WRITE(IOUTREP,'(A)')'<table cellspacing="0" cellpadding="0">'
568c WRITE(IOUTREP,'(A)')'<tr>'
569
570c IF(NUMMAT /= 0)THEN
571c DO I=1,NUMMAT
572c MATERIAL(IPM(2,I)) = 1
573c
574c ENDDO
575c WRITE(IOUTREP,'(A)')'<td><font face="Arial" size="2">Number of /MAT/LAW1 : &nbsp;&nbsp;</td>'
576c WRITE(IOUTREP,'(A)')'<td><font face="Arial" size="2"> 1</td>'
577c WRITE(IOUTREP,'(A)')'</tr>'
578c WRITE(IOUTREP,'(A)')'<tr>'
579c WRITE(IOUTREP,'(A)')'<td><font face="Arial" size="2">Number of /MAT/LAW2 : &nbsp;&nbsp;</td>'
580c WRITE(IOUTREP,'(A)')'<td><font face="Arial" size="2"> 1</td>'
581c WRITE(IOUTREP,'(A)')'</tr>'
582c ENDIF
583
584c WRITE(IOUTREP,'(A)')'</table>'
585c WRITE(IOUTREP,'(A)')' '
586c WRITE(IOUTREP,'(A)')'<p>'
587
588c WRITE(IOUTREP,'(A)')'<p>'
589c WRITE(IOUTREP,'(A)')'<li><b>Properties</b>'
590c WRITE(IOUTREP,'(A)')'<table cellspacing="0" cellpadding="0">'
591c WRITE(IOUTREP,'(A)')'<tr>'
592c WRITE(IOUTREP,'(A)')'<td><font face="Arial" size="2">Number of /PROP/SHELL : &nbsp;&nbsp;</td>'
593c WRITE(IOUTREP,'(A)')'<td><font face="Arial" size="2"> 1</td>'
594c WRITE(IOUTREP,'(A)')'</tr>'
595c WRITE(IOUTREP,'(A)')'<tr>'
596c WRITE(IOUTREP,'(A)')'<td><font face="Arial" size="2">Number of /PROP/SOLID : &nbsp;&nbsp;</td>'
597c WRITE(IOUTREP,'(A)')'<td><font face="Arial" size="2"> 1</td>'
598c WRITE(IOUTREP,'(A)')'</tr>'
599c WRITE(IOUTREP,'(A)')'</table>'
600c WRITE(IOUTREP,'(A)')' '
601 WRITE(IOUTREP,'(A)')'<p>'
602
603
604 OUTNAME = ROOTNAM(1:ROOTLEN)//'_0000.out'
605
606 IS_FILE_FOUND = 0
607
608 OPEN (UNIT=OUT_TMP,STATUS='OLD',FORM='FORMATTED',FILE=OUTNAME,ERR=100)
609 IS_FILE_FOUND = 1
610 IS_WARNING = 0
611 IS_MESSAGE = 0
612 IEND = 0
613 DO WHILE (IS_MESSAGE == 0)
614 READ(OUT_TMP,'(A)',END=100)CART
615 IF (CART(1:29) == ' TERMINATION WITH WARNING') IS_WARNING = 1
616 IF (CART(1:29) == '| ERROR(S) SUMMARY') IS_MESSAGE = 1
617 END DO
618
619 IF(IS_WARNING == 1)THEN
620 WRITE(IOUTREP,'(A)')' '
621 WRITE(IOUTREP,'(A)')'<li type="square">'
622 IF(GOT_INSPIRE_ALM == 1)THEN
623 WRITE(IOUTREP,'(A)')'<font face="arial" size="3"><b>Solver : Warning(s) :</b></font>'
624 ELSE
625 WRITE(IOUTREP,'(A)')'<font face="arial" size="3"><b>Starter : Warning(s) :</b></font>'
626 ENDIF
627 WRITE(IOUTREP,'(A)')'</li>'
628 WRITE(IOUTREP,'(A)')'<p>'
629 WRITE(IOUTREP,'(A)')'<table cellspacing="0" cellpadding="0">'
630 ENDIF
631
632 READ(OUT_TMP,'(A)',END=100)CART
633 DO WHILE (IEND /= 1)
634 WRITE(IOUTREP,'(A)')'<tr>'
635 IF (CART /= ' ' . AND.
636 . CART(61:118) /= '---------------------------------------------------------')
637 . WRITE(IOUTREP,'(A)')'<td><font face="arial" size="1">&nbsp;&nbsp;&nbsp;&nbsp;',CART(63:119),' </td>'
638 WRITE(IOUTREP,'(A)')'</tr>'
639 READ(OUT_TMP,'(A)',END=100)CART
640 IF (CART(1:29) == '-----------------------------')IEND = 1
641 END DO
642 100 CONTINUE
643 IF ( IS_FILE_FOUND == 0 )THEN
644 WRITE(IOUTREP,'(A)')' '
645 WRITE(IOUTREP,'(A)')'<li type="square">'
646 IF(GOT_INSPIRE_ALM == 1)THEN
647 WRITE(IOUTREP,'(A)')'<font face="arial" size="3"><b>Solver : Warning(s) :</b></font>'
648 ELSE
649 WRITE(IOUTREP,'(A)')'<font face="arial" size="3"><b>Starter : Warning(s) :</b></font>'
650 ENDIF
651 WRITE(IOUTREP,'(A)')'</li>'
652 WRITE(IOUTREP,'(A)')'<p>'
653 WRITE(IOUTREP,'(A)')'<tr>'
654 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">No 0.out file found !!! &nbsp;&nbsp;</td>'
655 WRITE(IOUTREP,'(A)')'</tr>'
656 WRITE(IOUTREP,'(A)')'<tr>'
657 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">Not able to write information !!! &nbsp;&nbsp;</td>'
658 WRITE(IOUTREP,'(A)')'</tr>'
659
660 ENDIF
661
662
663 IF(NTHGRP /= 0)THEN
664 WRITE(IOUTREP,'(A)')'</table>'
665 ENDIF
666
667 CLOSE (OUT_TMP)
668
669c WRITE(IOUTREP,'(A)')' '
670c WRITE(IOUTREP,'(A)')'<li type="square">'
671c WRITE(IOUTREP,'(A)')'<font face="Arial" size="3"><b>Engine : Warning(s)/Error(s) :</b></font>'
672c WRITE(IOUTREP,'(A)')'</li>'
673c WRITE(IOUTREP,'(A)')'<p>'
674
675 WRITE(IOUTREP,'(A)')'<li type="square">'
676 IF(GOT_INSPIRE_ALM == 1)THEN
677 WRITE(IOUTREP,'(A)')'<font face="arial" size="3"><b>Solver : Last cycle information :</b></font>'
678 ELSE
679 WRITE(IOUTREP,'(A)')'<font face="arial" size="3"><b>Engine : Last cycle information :</b></font>'
680 ENDIF
681 WRITE(IOUTREP,'(A)')'</li>'
682 WRITE(IOUTREP,'(A)')'<p>'
683
684.OR..OR..OR. IF(N == 2 N == 4 N == 5 N == 20)THEN
685 WRITE(IOUTREP,'(A)')'<tr>'
686 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">ERROR TERMINATION &nbsp;&nbsp;</td>'
687 WRITE(IOUTREP,'(A)')'</tr>'
688 ELSEIF(N == 3)THEN
689 WRITE(IOUTREP,'(A)')'<tr>'
690 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">USER BREAK &nbsp;&nbsp;</td>'
691 WRITE(IOUTREP,'(A)')'</tr>'
692 ELSE
693 WRITE(IOUTREP,'(A)')'<tr>'
694 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">NORMAL TERMINATION &nbsp;&nbsp;</td>'
695 WRITE(IOUTREP,'(A)')'</tr>'
696 ENDIF
697
698 WRITE(IOUTREP,'(A)')'<p>'
699 WRITE(IOUTREP,'(A)')'<table cellspacing="0" cellpadding="0">'
700 WRITE(IOUTREP,'(A)')'<tr>'
701 WRITE(IOUTREP,'(A)')'<td><font face="arial" size="2">'
702 WRITE(IOUTREP,'(A)')'CYCLE &nbsp;&nbsp;&nbsp;'
703 WRITE(IOUTREP,'(A)')'</td><td><font face="arial" size="2">'
704 WRITE(IOUTREP,'(A)')'FINAL TIME&nbsp;&nbsp;&nbsp;'
705 WRITE(IOUTREP,'(A)')'</td><td><font face="arial" size="2">'
706 WRITE(IOUTREP,'(A)')'TIME-STEP&nbsp;&nbsp;&nbsp;'
707 WRITE(IOUTREP,'(A)')'</td><td align="right"><font face="arial" size="2">'
708 WRITE(IOUTREP,'(A)')'ELEMENT&nbsp;&nbsp;&nbsp;'
709 WRITE(IOUTREP,'(A)')'</td><td align="right"><font face="arial" size="2">'
710 WRITE(IOUTREP,'(A)')'%ERROR&nbsp;&nbsp;&nbsp;'
711 WRITE(IOUTREP,'(A)')'</td><td align="right"><font face="arial" size="2">'
712 WRITE(IOUTREP,'(A)')'I-ENERGY&nbsp;&nbsp;&nbsp;'
713 WRITE(IOUTREP,'(A)')'</td><td align="right"><font face="arial" size="2">'
714 WRITE(IOUTREP,'(A)')'K-ENERGY T&nbsp;&nbsp;&nbsp;'
715 WRITE(IOUTREP,'(A)')'</td><td align="right"><font face="arial" size="2">'
716 WRITE(IOUTREP,'(A)')'K-ENERGY R&nbsp;&nbsp;&nbsp;'
717 WRITE(IOUTREP,'(A)')'</td><td align="right"><font face="arial" size="2">'
718 WRITE(IOUTREP,'(A)')'EXT-WORK&nbsp;&nbsp;&nbsp;'
719 WRITE(IOUTREP,'(A)')'</td><td align="right"><font face="arial" size="2">'
720 WRITE(IOUTREP,'(A)')'MAS.ERR'
721 WRITE(IOUTREP,'(A)')'</td></tr>'
722 WRITE(IOUTREP,'(A)')'<tr><td colspan=10>'
723 WRITE(IOUTREP,'(A)')'<hr size="1" color="#000000" noshade>'
724 WRITE(ioutrep,'(A)')'</td></tr>'
725 WRITE(ioutrep,'(A)')'<tr align="center">'
726
727 WRITE(ioutrep,'(A,I10,A)')'<td><font face="Arial" size="2">',ncycle,'</td>'
728 WRITE(ioutrep,'(A,G11.4,A)')'<td><font face="Arial" size="2">',tt,'</td>'
729 WRITE(ioutrep,'(A,G11.4,A)')'<td><font face="Arial" size="2">',dt2,'</td>'
730 WRITE(ioutrep,'(2A,I10,A)')'<td><font face="Arial" size="2">',eltyp(itypts),nelts,'</td>'
731 WRITE(ioutrep,'(A,G11.4,A)')'<td><font face="Arial" size="2">',err1,'</td>'
732 WRITE(ioutrep,'(A,G11.4,A)')'<td><font face="Arial" size="2">',enint,'</td>'
733 WRITE(ioutrep,'(A,G11.4,A)')'<td><font face="Arial" size="2">',encin,'</td>'
734 WRITE(ioutrep,'(A,G11.4,A)')'<td><font face="Arial" size="2">',enrot,'</td>'
735 WRITE(ioutrep,'(A,G11.4,A)')'<td><font face="Arial" size="2">',wfext,'</td>'
736 WRITE(ioutrep,'(A,G11.4,A)')'<td align="right"><font face="Arial" size="2">',emass,'</td>'
737 WRITE(ioutrep,'(A)')'</tr>'
738 WRITE(ioutrep,'(A)')'</table>'
739 WRITE(ioutrep,'(A)')'</li>'
740 WRITE(ioutrep,'(A)')'</ul>'
741 WRITE(ioutrep,'(A)')'<p>'
742
743 IF (ih3dreader /= 0 .OR. imvw /= 0) THEN
744
745 WRITE(ioutrep,'(A)')' '
746 WRITE(ioutrep,'(A)')'<font face="Arial" size="4"><b><i>Results summary</i></b></font>'
747 WRITE(ioutrep,'(A)')'<hr size="1" color="#000000" noshade>'
748 WRITE(ioutrep,'(A)')'<p>'
749 ENDIF
750
751 IF ( imvw /= 0) THEN
752 WRITE(ioutrep,'(A)')'<a href="',mvwnam(1:rootlen+4),'">Open ',mvwnam(1:rootlen+4),' with Hyperview</a>'
753 WRITE(ioutrep,'(A)')'<p>'
754 ENDIF
755
756 IF (ih3dreader /= 0) THEN
757 WRITE(ioutrep,'(A)')'<OBJECT ID="HVPControl" WIDTH=800 HEIGHT=600'
758 WRITE(ioutrep,'(A)')'classid="clsid:D28D4D39-57F5-4DFB-8832-C8CB1B1DC410">'
759 WRITE(ioutrep,'(3A)')'<PARAM name="src" value="',rootnam(1:rootlen),'.h3d" />'
760 IF (ih3dreader == 1) WRITE(ioutrep,'(A)')'<PARAM name="inplace" value="1" />'
761 IF (ih3dreader == 2) WRITE(ioutrep,'(A)')'<PARAM name="inplace" value="0" />'
762 WRITE(ioutrep,'(A)')'<PARAM name="launch_size" value="800x600" />'
763c WRITE(IOUTREP,'(A)')'<PARAM name="rr_name0" value="contour dataset" />'
764c WRITE(IOUTREP,'(A)')'<PARAM name="rr_val0" value="Displacement" />'
765c WRITE(IOUTREP,'(A)')'<PARAM name="rr_name1" value="contour component" />'
766c WRITE(IOUTREP,'(A)')'<PARAM name="rr_val1" value="Load Case 1" />'
767c WRITE(IOUTREP,'(A)')'<PARAM name="rr_name2" value="simulation" />'
768c WRITE(IOUTREP,'(A)')'<PARAM name="rr_val2" value="1" />'
769 WRITE(ioutrep,'(A)')'<EMBED type="application/x-h3d"'
770 WRITE(ioutrep,'(A)')'pluginspage="http://www.altair.com"'
771 WRITE(ioutrep,'(A)')'width=800 height=600'
772 WRITE(ioutrep,'(A)')'src="',rootnam(1:rootlen),'h3d"'
773 IF (ih3dreader == 1) WRITE(ioutrep,'(A)')'inplace=1'
774 IF (ih3dreader == 2) WRITE(ioutrep,'(A)')'inplace=0'
775 WRITE(ioutrep,'(A)')'launch_size="800x600"'
776 WRITE(ioutrep,'(A)')'>'
777 WRITE(ioutrep,'(A)')'</OBJECT>'
778 WRITE(ioutrep,'(A)')'<p>'
779
780
781c WRITE(IOUTREP,'(A)')'<font face="Arial" size="2">'
782c WRITE(IOUTREP,'(A)')'<a href="javascript:h3d();">Click here</a> to view the results with HyperViewPlayer
783c . . This feature requires a modern browser with Javascript enabled, as well as the
784c .HyperViewPlayer plugin installed.'
785 ENDIF
786
787 IF (ih3dreader /= 0 .OR. imvw /= 0) THEN
788 WRITE(ioutrep,'(A)')'</font>'
789 ENDIF
790
791 WRITE(ioutrep,'(A)')'<p>'
792 WRITE(ioutrep,'(A)')' '
793 WRITE(ioutrep,'(A)')'<br>'
794 WRITE(ioutrep,'(A)')'<hr size="1" color="#000000" width="50%" noshade>'
795 WRITE(ioutrep,'(A)')'<center>'
796 WRITE(ioutrep,'(A)')'<font face="Arial" size="1">'
797 WRITE(ioutrep,'(A)')'<b>&#169; 1996-2022 Altair Engineering, Inc.</b>'
798 WRITE(ioutrep,'(A)')'</font> '
799 WRITE(ioutrep,'(A)')'</center> '
800 WRITE(ioutrep,'(A)')'</body>'
801 WRITE(ioutrep,'(A)')'</html>'
802
803
804
805 CLOSE(unit=ioutrep)
806
807
808 ENDIF
809c-----------
810 RETURN
my_real
#define my_real
Definition cppsort.cpp:32
min
#define min(a, b)
Definition macros.h:20
max
#define max(a, b)
Definition macros.h:21
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
names_and_titles_mod
Definition names_and_titles_mod.F:1002
names_and_titles_mod::lpath
integer, parameter lpath
Definition names_and_titles_mod.F:1016
radioss
program radioss
Definition radioss.F:34
report
subroutine report(ih3dreader, n, imvw, wfext, wfext_md, output)
Definition report.F:35