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