OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
eng_qaprint_animinput.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!|| eng_qaprint_animinput ../engine/source/output/qaprint/eng_qaprint_animinput.F
25!||--- called by ------------------------------------------------------
26!|| eng_qaprint_driver ../engine/source/output/qaprint/eng_qaprint_driver.F
27!||--- calls -----------------------------------------------------
28!|| qaprint ../common_source/qa/qa_out_mod.F
29!||--- uses -----------------------------------------------------
30!|| anim_mod ../common_source/modules/output/anim_mod.F
31!|| message_mod ../engine/share/message_module/message_mod.F
32!|| qa_out_mod ../common_source/qa/qa_out_mod.F
33!|| sensor_mod ../common_source/modules/sensor_mod.F90
34!||====================================================================
35 SUBROUTINE eng_qaprint_animinput(SENSORS)
36C-----------------------------------------------
37C M o d u l e s
38C-----------------------------------------------
39 USE qa_out_mod
40 USE message_mod
41 USE anim_mod
42 USE sensor_mod
43C-----------------------------------------------
44C I m p l i c i t T y p e s
45C-----------------------------------------------
46#include "implicit_f.inc"
47C-----------------------------------------------
48C C o m m o n B l o c k s
49C-----------------------------------------------
50#include "scr14_c.inc"
51#include "scr25_c.inc"
52C-----------------------------------------------
53C L o c a l V a r i a b l e s
54C-----------------------------------------------
55 INTEGER I
56 CHARACTER (LEN=255) :: VARNAME
57 DOUBLE PRECISION TEMP_DOUBLE
58 TYPE (SENSORS_) ,INTENT(IN) :: SENSORS
59C=======================================================================
60C-----------------------------------------------
61C QA PRINT FOR ANIM INPUTS
62C-----------------------------------------------
63 IF (myqakey('/ANIM')) THEN
64
65 WRITE(varname,'(A)') 'ANIM_VERS'
66 CALL qaprint(varname(1:len_trim(varname)),anim_vers,0.0_8)
67
68 WRITE(varname,'(A)') 'TANIM0'
69 temp_double = tanim0
70 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
71
72 WRITE(varname,'(A)') 'DTANIM0'
73 temp_double = dtanim0
74 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
75
76 WRITE(varname,'(A)') 'TANIM_STOP0'
77 temp_double = tanim_stop0
78 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
79
80 WRITE(varname,'(A)') 'SENSORS%ANIM_ID'
81 CALL qaprint(varname(1:len_trim(varname)),sensors%ANIM_ID,0.0_8)
82
83 WRITE(varname,'(A)') 'SENSORS%NANIM'
84 CALL qaprint(varname(1:len_trim(varname)),sensors%NANIM,0.0_8)
85
86 WRITE(varname,'(A)') 'MX_ANI'
87 CALL qaprint(varname(1:len_trim(varname)),mx_ani,0.0_8)
88
89 DO i = 1,mx_ani
90 IF(anim_v(i)/=0)THEN
91 WRITE(varname,'(A,I0)') 'ANIM_V_',i
92 CALL qaprint(varname(1:len_trim(varname)),anim_v(i),0.0_8)
93 ENDIF
94 ENDDO
95 DO i = 1,mx_ani
96 IF(anim_t(i)/=0)THEN
97 WRITE(varname,'(A,I0)') 'ANIM_T_',i
98 CALL qaprint(varname(1:len_trim(varname)),anim_t(i),0.0_8)
99 ENDIF
100 ENDDO
101 DO i = 1,mx_ani
102 IF(anim_e(i)/=0)THEN
103 WRITE(varname,'(a,i0)') 'anim_e_',I
104 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),ANIM_E(I),0.0_8)
105 ENDIF
106 ENDDO
107 DO I = 1,MX_ANI
108 IF(ANIM_N(I)/=0)THEN
109 WRITE(VARNAME,'(a,i0)') 'anim_n_',I
110 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),ANIM_N(I),0.0_8)
111 ENDIF
112 ENDDO
113 DO I = 1,MX_ANI
114 IF(ANIM_ST(I)/=0)THEN
115 WRITE(VARNAME,'(a,i0)') 'anim_st_',I
116 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),ANIM_ST(I),0.0_8)
117 ENDIF
118 ENDDO
119 DO I = 1,MX_ANI
120 IF(ANIM_SE(I)/=0)THEN
121 WRITE(VARNAME,'(a,i0)') 'anim_se_',I
122 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),ANIM_SE(I),0.0_8)
123 ENDIF
124 ENDDO
125 DO I = 1,MX_ANI
126 IF(ANIM_CT(I)/=0)THEN
127 WRITE(VARNAME,'(a,i0)') 'anim_ct_',I
128 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),ANIM_CT(I),0.0_8)
129 ENDIF
130 ENDDO
131 DO I = 1,MX_ANI
132 IF(ANIM_CE(I)/=0)THEN
133 WRITE(VARNAME,'(a,i0)') 'anim_ce_',I
134 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),ANIM_CE(I),0.0_8)
135 ENDIF
136 ENDDO
137 DO I = 1,MX_ANI
138 IF(ANIM_FT(I)/=0)THEN
139 WRITE(VARNAME,'(a,i0)') 'anim_ft_',I
140 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),ANIM_FT(I),0.0_8)
141 ENDIF
142 ENDDO
143 DO I = 1,MX_ANI
144 IF(ANIM_FE(I)/=0)THEN
145 WRITE(VARNAME,'(a,i0)') 'anim_fe_',I
146 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),ANIM_FE(I),0.0_8)
147 ENDIF
148 ENDDO
149
150 DO I = 1,SENSORS%NANIM
151 IF(ANIM_FE(I)/=0)THEN
152 WRITE(VARNAME,'(a,i0)') 'sensors_nanim_',I
153 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),SENSORS%ANIM(I),0.0_8)
154 ENDIF
155 ENDDO
156
157 DO I = 1,MX_ANI
158 IF(NTITLETAB(I)/=0)THEN
159 WRITE(VARNAME,'(a,i0)') 'ntitletab_',I
160 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),NTITLETAB(I),0.0_8)
161 ENDIF
162 ENDDO
163
164 WRITE(VARNAME,'(a)') 'nv_ani'
165 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),NV_ANI,0.0_8)
166
167 WRITE(VARNAME,'(a)') 'nt_ani'
168 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),NT_ANI,0.0_8)
169
170 WRITE(VARNAME,'(a)') 'ne_ani'
171 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),NE_ANI,0.0_8)
172
173 WRITE(VARNAME,'(a)') 'nn_ani'
174 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),NN_ANI,0.0_8)
175
176 WRITE(VARNAME,'(a)') 'nst_ani'
177 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),NST_ANI,0.0_8)
178
179 WRITE(VARNAME,'(a)') 'nse_ani'
180 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),NSE_ANI,0.0_8)
181
182 WRITE(VARNAME,'(a)') 'nct_ani'
183 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),NCT_ANI,0.0_8)
184
185 WRITE(VARNAME,'(a)') 'nce_ani'
186 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),NCE_ANI,0.0_8)
187
188 WRITE(VARNAME,'(a)') 'nft_ani'
189 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),NFT_ANI,0.0_8)
190
191 WRITE(VARNAME,'(a)') 'nfe_ani'
192 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),NFE_ANI,0.0_8)
193
194 DO I = 1,MAXLAY
195 IF(ANIM_STRESS(I)/=0)THEN
196 WRITE(VARNAME,'(a,i0)') 'anim_stress_',I
197 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),ANIM_STRESS(I),0.0_8)
198 ENDIF
199 ENDDO
200
201 DO I = 1,MAXLAY
202 IF(ANIM_STRAIN(I)/=0)THEN
203 WRITE(VARNAME,'(a,i0)') 'anim_strain_',I
204 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),ANIM_STRAIN(I),0.0_8)
205 ENDIF
206 ENDDO
207
208 DO I = 1,MAXLAY
209 IF(ANIM_EPSP(I)/=0)THEN
210 WRITE(VARNAME,'(a,i0)') 'anim_epsp_',I
211 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),ANIM_EPSP(I),0.0_8)
212 ENDIF
213 ENDDO
214
215 DO I = 1,MAXLAY
216 IF(ANIM_DAMA(I)/=0)THEN
217 WRITE(VARNAME,'(a,i0)') 'anim_dama_',I
218 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),ANIM_DAMA(I),0.0_8)
219 ENDIF
220 ENDDO
221
222 DO I = 1,MAXLAY
223 IF(ANIM_WPLA(I)/=0)THEN
224 WRITE(VARNAME,'(a,i0)') 'anim_wpla_',I
225 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),ANIM_WPLA(I),0.0_8)
226 ENDIF
227 ENDDO
228
229 DO I = 1,MAXLAY
230 IF(ANIM_EPSDOT(I)/=0)THEN
231 WRITE(VARNAME,'(a,i0)') 'anim_epsdot_',I
232 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),ANIM_EPSDOT(I),0.0_8)
233 ENDIF
234 ENDDO
235
236 WRITE(VARNAME,'(a)') 'izip'
237 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),IZIP,0.0_8)
238
239 WRITE(VARNAME,'(a)') 'anim_mat'
240 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),ANIM_MAT,0.0_8)
241
242 WRITE(VARNAME,'(a)') 'anim_m'
243 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),ANIM_M,0.0_8)
244
245 WRITE(VARNAME,'(a)') 'anim_k'
246 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),ANIM_K,0.0_8)
247
248 WRITE(VARNAME,'(a)') 'anim_u'
249 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),ANIM_U,0.0_8)
250
251 WRITE(VARNAME,'(a)') 'anim_crk'
252 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),ANIM_CRK,.0_8)
253
254 WRITE(VARNAME,'(a)') 'fmt_ani'
255 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),FMT_ANI,.0_8)
256
257 WRITE(VARNAME,'(a)') 'ifvani'
258 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),IFVANI,.0_8)
259
260 WRITE(VARNAME,'(a)') 'iad_gps'
261 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),IAD_GPS,.0_8)
262
263 WRITE(VARNAME,'(a)') 'IZIPSTRS'
264 CALL qaprint(varname(1:len_trim(varname)),izipstrs,.0_8)
265
266 WRITE(varname,'(A)') 'ISTRAIALL'
267 CALL qaprint(varname(1:len_trim(varname)),istraiall,.0_8)
268
269 WRITE(varname,'(A)') 'IEPSDOALL'
270 CALL qaprint(varname(1:len_trim(varname)),iepsdoall,0.0_8)
271
272 WRITE(varname,'(A)') 'IEPSDOFULL'
273 CALL qaprint(varname(1:len_trim(varname)),iepsdofull,0.0_8)
274
275 WRITE(varname,'(A)') 'IEPSPALL'
276 CALL qaprint(varname(1:len_trim(varname)),iepspall,0.0_8)
277
278 WRITE(varname,'(A)') 'IEPSPFULL'
279 CALL qaprint(varname(1:len_trim(varname)),iepspfull,0.0_8)
280
281 WRITE(varname,'(A)') 'ISTRESALL'
282 CALL qaprint(varname(1:len_trim(varname)),istresall,0.0_8)
283
284 WRITE(varname,'(A)') 'ISTRESFULL'
285 CALL qaprint(varname(1:len_trim(varname)),istresfull,0.0_8)
286
287 WRITE(varname,'(A)') 'ISTRAINFULL'
288 CALL qaprint(varname(1:len_trim(varname)),istrainfull,0.0_8)
289
290 WRITE(varname,'(A)') 'IEPSDOT'
291 CALL qaprint(varname(1:len_trim(varname)),iepsdot,0.0_8)
292
293 WRITE(varname,'(A)') 'IFAILA'
294 CALL qaprint(varname(1:len_trim(varname)),ifaila,0.0_8)
295
296 WRITE(varname,'(A)') 'IPHIALL'
297 CALL qaprint(varname(1:len_trim(varname)),iphiall,0.0_8)
298
299 WRITE(varname,'(A)') 'IDAMAALL'
300 CALL qaprint(varname(1:len_trim(varname)),idamaall,0.0_8)
301
302 WRITE(varname,'(A)') 'IDAMAFULL'
303 CALL qaprint(varname(1:len_trim(varname)),idamafull,0.0_8)
304
305 WRITE(varname,'(A)') 'INXTFALL'
306 CALL qaprint(varname(1:len_trim(varname)),inxtfall,0.0_8)
307
308 WRITE(varname,'(A)') 'SIGH1ALL'
309 CALL qaprint(varname(1:len_trim(varname)),sigh1all,0.0_8)
310
311 WRITE(varname,'(A)') 'sigh2all'
312 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),SIGH2ALL,0.0_8)
313
314 WRITE(VARNAME,'(a)') 'iwplaall'
315 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),IWPLAALL,0.0_8)
316
317 WRITE(VARNAME,'(a)') 'iwplafull'
318 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),IWPLAFULL,0.0_8)
319
320 WRITE(VARNAME,'(a)') 'IBRICK_STRESSALL'
321 CALL qaprint(varname(1:len_trim(varname)),ibrick_stressall,0.0_8)
322
323 WRITE(varname,'(A)') 'IBRICK_STRAINALL'
324 CALL qaprint(varname(1:len_trim(varname)),ibrick_strainall,0.0_8)
325
326 WRITE(varname,'(A)') 'IBRICK_EPSPALL'
327 CALL qaprint(varname(1:len_trim(varname)),ibrick_epspall,0.0_8)
328
329 WRITE(varname,'(A)') 'IORTHDALL'
330 CALL qaprint(varname(1:len_trim(varname)),iorthdall,0.0_8)
331
332 WRITE(varname,'(A)') 'IBEAM_EPSPALL'
333 CALL qaprint(varname(1:len_trim(varname)),ibeam_epspall,0.0_8)
334
335 WRITE(varname,'(A)') 'ANIM_PLY'
336 CALL qaprint(varname(1:len_trim(varname)),anim_ply,0.0_8)
337
338 WRITE(varname,'(A)') 'ISTRESALL_PLY'
339 CALL qaprint(varname(1:len_trim(varname)),istresall_ply,0.0_8)
340
341 WRITE(varname,'(A)') 'ISTRAINALL_PLY '
342 CALL qaprint(varname(1:len_trim(varname)),istrainall_ply ,0.0_8)
343
344 WRITE(varname,'(A)') 'IEPSDOTALL_PLY'
345 CALL qaprint(varname(1:len_trim(varname)),iepsdotall_ply,0.0_8)
346
347 WRITE(varname,'(A)') 'IPHIALL_PLY'
348 CALL qaprint(varname(1:len_trim(varname)),iphiall_ply,0.0_8)
349
350 WRITE(varname,'(A)') 'IEPSPALL_PLY'
351 CALL qaprint(varname(1:len_trim(varname)),iepspall_ply,0.0_8)
352
353 WRITE(varname,'(A)') 'IDAMAALL_PLY'
354 CALL qaprint(varname(1:len_trim(varname)),idamaall_ply,0.0_8)
355
356 WRITE(varname,'(A)') 'IPLYALL'
357 CALL qaprint(varname(1:len_trim(varname)),iplyall,0.0_8)
358
359 DO i = 1,mx_ply_anim
360 IF(ply_anim(i)/=0)THEN
361 WRITE(varname,'(A,I0)') 'PLY_ANIM_',i
362 CALL qaprint(varname(1:len_trim(varname)),ply_anim(i),0.0_8)
363 ENDIF
364 ENDDO
365
366 DO i = 1,mx_ply_anim
367 IF(ply_anim_stress(i)/=0)THEN
368 WRITE(varname,'(A,I0)') 'PLY_ANIM_STRESS_',i
369 CALL qaprint(varname(1:len_trim(varname)),ply_anim_stress(i),0.0_8)
370 ENDIF
371 ENDDO
372
373 DO i = 1,mx_ply_anim
374 IF(ply_anim_strain(i)/=0)THEN
375 WRITE(varname,'(A,I0)') 'PLY_ANIM_STRAIN_',i
376 CALL qaprint(varname(1:len_trim(varname)),ply_anim_strain(i),0.0_8)
377 ENDIF
378 ENDDO
379
380 DO i = 1,mx_ply_anim
381 IF(ply_anim_epsdot(i)/=0)THEN
382 WRITE(varname,'(A,I0)') 'PLY_ANIM_EPSDOT_',i
383 CALL qaprint(varname(1:len_trim(varname)),ply_anim_epsdot(i),0.0_8)
384 ENDIF
385 ENDDO
386
387 DO i = 1,mx_ply_anim
388 IF(ply_anim_phi(i)/=0)THEN
389 WRITE(varname,'(A,I0)') 'PLY_ANIM_PHI_',i
390 CALL qaprint(varname(1:len_trim(varname)),ply_anim_phi(i),0.0_8)
391 ENDIF
392 ENDDO
393
394 DO i = 1,mx_ply_anim
395 IF(ply_anim_epsp(i)/=0)THEN
396 WRITE(varname,'(A,I0)') 'PLY_ANIM_EPSP_',i
397 CALL qaprint(varname(1:len_trim(varname)),ply_anim_epsp(i),0.0_8)
398 ENDIF
399 ENDDO
400
401 DO i = 1,mx_ply_anim
402 IF(ply_anim_dama(i)/=0)THEN
403 WRITE(varname,'(A,I0)') 'PLY_ANIM_DAMA_',i
404 CALL qaprint(varname(1:len_trim(varname)),ply_anim_dama(i),0.0_8)
405 ENDIF
406 ENDDO
407
408 ENDIF
409
410 RETURN
411 END
eng_qaprint_animinput
subroutine eng_qaprint_animinput(sensors)
Definition eng_qaprint_animinput.F:36
anim_mod
Definition anim_mod.F:96
message_mod
Definition message_mod.F:1249
qa_out_mod
Definition qa_out_mod.F:78
qa_out_mod::myqakey
logical function myqakey(value)
@purpose Check if a given value is part of the values set by env variable Useful to make a condition ...
Definition qa_out_mod.F:694
qa_out_mod::qaprint
subroutine qaprint(name, idin, value)
@purpose print one entry to QA extract file example of call for real print CALL QAPRINT('MY_LABEL',...
Definition qa_out_mod.F:390