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!|| message_mod ../engine/share/message_module/message_mod.F
31!|| output_mod ../common_source/modules/output/output_mod.F90
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(OUTPUT,SENSORS)
36C-----------------------------------------------
37C M o d u l e s
38C-----------------------------------------------
39 USE qa_out_mod
40 USE message_mod
41 USE output_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 TYPE(output_), INTENT(INOUT) :: OUTPUT
56 INTEGER I
57 CHARACTER (LEN=255) :: VARNAME
58 DOUBLE PRECISION TEMP_DOUBLE
59 TYPE (SENSORS_) ,INTENT(IN) :: SENSORS
60C=======================================================================
61C-----------------------------------------------
62C QA PRINT FOR ANIM INPUTS
63C-----------------------------------------------
64 IF (myqakey('/ANIM')) THEN
65
66 WRITE(varname,'(A)') 'ANIM_VERS'
67 CALL qaprint(varname(1:len_trim(varname)),anim_vers,0.0_8)
68
69 WRITE(varname,'(A)') 'OUTPUT%TANIM0'
70 temp_double = output%TANIM0
71 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
72
73 WRITE(varname,'(A)') 'OUTPUT%DTANIM0'
74 temp_double = output%DTANIM0
75 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
76
77 WRITE(varname,'(A)') 'OUTPUT%TANIM_STOP0'
78 temp_double = output%TANIM_STOP0
79 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
80
81 WRITE(varname,'(A)') 'SENSORS%ANIM_ID'
82 CALL qaprint(varname(1:len_trim(varname)),sensors%ANIM_ID,0.0_8)
83
84 WRITE(varname,'(A)') 'SENSORS%NANIM'
85 CALL qaprint(varname(1:len_trim(varname)),sensors%NANIM,0.0_8)
86
87 WRITE(varname,'(A)') 'MX_ANI'
88 CALL qaprint(varname(1:len_trim(varname)),mx_ani,0.0_8)
89
90 DO i = 1,mx_ani
91 IF(anim_v(i)/=0)THEN
92 WRITE(varname,'(A,I0)') 'ANIM_V_',i
93 CALL qaprint(varname(1:len_trim(varname)),anim_v(i),0.0_8)
94 ENDIF
95 ENDDO
96 DO i = 1,mx_ani
97 IF(anim_t(i)/=0)THEN
98 WRITE(varname,'(A,I0)') 'ANIM_T_',i
99 CALL qaprint(varname(1:len_trim(varname)),anim_t(i),0.0_8)
100 ENDIF
101 ENDDO
102 DO i = 1,mx_ani
103 IF(anim_e(i)/=0)THEN
104 WRITE(varname,'(A,I0)') 'ANIM_E_',i
105 CALL qaprint(varname(1:len_trim(varname)),anim_e(i),0.0_8)
106 ENDIF
107 ENDDO
108 DO i = 1,mx_ani
109 IF(anim_n(i)/=0)THEN
110 WRITE(varname,'(A,I0)') 'ANIM_N_',i
111 CALL qaprint(varname(1:len_trim(varname)),anim_n(i),0.0_8)
112 ENDIF
113 ENDDO
114 DO i = 1,mx_ani
115 IF(anim_st(i)/=0)THEN
116 WRITE(varname,'(A,I0)') 'ANIM_ST_',i
117 CALL qaprint(varname(1:len_trim(varname)),anim_st(i),0.0_8)
118 ENDIF
119 ENDDO
120 DO i = 1,mx_ani
121 IF(anim_se(i)/=0)THEN
122 WRITE(varname,'(A,I0)') 'ANIM_SE_',i
123 CALL qaprint(varname(1:len_trim(varname)),anim_se(i),0.0_8)
124 ENDIF
125 ENDDO
126 DO i = 1,mx_ani
127 IF(anim_ct(i)/=0)THEN
128 WRITE(varname,'(A,I0)') 'ANIM_CT_',i
129 CALL qaprint(varname(1:len_trim(varname)),anim_ct(i),0.0_8)
130 ENDIF
131 ENDDO
132 DO i = 1,mx_ani
133 IF(anim_ce(i)/=0)THEN
134 WRITE(varname,'(A,I0)') 'ANIM_CE_',i
135 CALL qaprint(varname(1:len_trim(varname)),anim_ce(i),0.0_8)
136 ENDIF
137 ENDDO
138 DO i = 1,mx_ani
139 IF(anim_ft(i)/=0)THEN
140 WRITE(varname,'(A,I0)') 'ANIM_FT_',i
141 CALL qaprint(varname(1:len_trim(varname)),anim_ft(i),0.0_8)
142 ENDIF
143 ENDDO
144 DO i = 1,mx_ani
145 IF(anim_fe(i)/=0)THEN
146 WRITE(varname,'(A,I0)') 'ANIM_FE_',i
147 CALL qaprint(varname(1:len_trim(varname)),anim_fe(i),0.0_8)
148 ENDIF
149 ENDDO
150
151 DO i = 1,sensors%NANIM
152 IF(anim_fe(i)/=0)THEN
153 WRITE(varname,'(A,I0)') 'SENSORS_NANIM_',i
154 CALL qaprint(varname(1:len_trim(varname)),sensors%ANIM(i),0.0_8)
155 ENDIF
156 ENDDO
157
158 DO i = 1,mx_ani
159 IF(ntitletab(i)/=0)THEN
160 WRITE(varname,'(A,I0)') 'NTITLETAB_',i
161 CALL qaprint(varname(1:len_trim(varname)),ntitletab(i),0.0_8)
162 ENDIF
163 ENDDO
164
165 WRITE(varname,'(A)') 'NV_ANI'
166 CALL qaprint(varname(1:len_trim(varname)),nv_ani,0.0_8)
167
168 WRITE(varname,'(A)') 'NT_ANI'
169 CALL qaprint(varname(1:len_trim(varname)),nt_ani,0.0_8)
170
171 WRITE(varname,'(A)') 'NE_ANI'
172 CALL qaprint(varname(1:len_trim(varname)),ne_ani,0.0_8)
173
174 WRITE(varname,'(A)') 'NN_ANI'
175 CALL qaprint(varname(1:len_trim(varname)),nn_ani,0.0_8)
176
177 WRITE(varname,'(A)') 'NST_ANI'
178 CALL qaprint(varname(1:len_trim(varname)),nst_ani,0.0_8)
179
180 WRITE(varname,'(A)') 'NSE_ANI'
181 CALL qaprint(varname(1:len_trim(varname)),nse_ani,0.0_8)
182
183 WRITE(varname,'(A)') 'NCT_ANI'
184 CALL qaprint(varname(1:len_trim(varname)),nct_ani,0.0_8)
185
186 WRITE(varname,'(A)') 'NCE_ANI'
187 CALL qaprint(varname(1:len_trim(varname)),nce_ani,0.0_8)
188
189 WRITE(varname,'(A)') 'NFT_ANI'
190 CALL qaprint(varname(1:len_trim(varname)),nft_ani,0.0_8)
191
192 WRITE(varname,'(A)') 'NFE_ANI'
193 CALL qaprint(varname(1:len_trim(varname)),nfe_ani,0.0_8)
194
195 DO i = 1,maxlay
196 IF(anim_stress(i)/=0)THEN
197 WRITE(varname,'(A,I0)') 'ANIM_STRESS_',i
198 CALL qaprint(varname(1:len_trim(varname)),anim_stress(i),0.0_8)
199 ENDIF
200 ENDDO
201
202 DO i = 1,maxlay
203 IF(anim_strain(i)/=0)THEN
204 WRITE(varname,'(A,I0)') 'ANIM_STRAIN_',i
205 CALL qaprint(varname(1:len_trim(varname)),anim_strain(i),0.0_8)
206 ENDIF
207 ENDDO
208
209 DO i = 1,maxlay
210 IF(anim_epsp(i)/=0)THEN
211 WRITE(varname,'(A,I0)') 'ANIM_EPSP_',i
212 CALL qaprint(varname(1:len_trim(varname)),anim_epsp(i),0.0_8)
213 ENDIF
214 ENDDO
215
216 DO i = 1,maxlay
217 IF(anim_dama(i)/=0)THEN
218 WRITE(varname,'(A,I0)') 'ANIM_DAMA_',i
219 CALL qaprint(varname(1:len_trim(varname)),anim_dama(i),0.0_8)
220 ENDIF
221 ENDDO
222
223 DO i = 1,maxlay
224 IF(anim_wpla(i)/=0)THEN
225 WRITE(varname,'(A,I0)') 'ANIM_WPLA_',i
226 CALL qaprint(varname(1:len_trim(varname)),anim_wpla(i),0.0_8)
227 ENDIF
228 ENDDO
229
230 DO i = 1,maxlay
231 IF(anim_epsdot(i)/=0)THEN
232 WRITE(varname,'(A,I0)') 'ANIM_EPSDOT_',i
233 CALL qaprint(varname(1:len_trim(varname)),anim_epsdot(i),0.0_8)
234 ENDIF
235 ENDDO
236
237 WRITE(varname,'(A)') 'IZIP'
238 CALL qaprint(varname(1:len_trim(varname)),izip,0.0_8)
239
240 WRITE(varname,'(A)') 'ANIM_MAT'
241 CALL qaprint(varname(1:len_trim(varname)),anim_mat,0.0_8)
242
243 WRITE(varname,'(A)') 'ANIM_M'
244 CALL qaprint(varname(1:len_trim(varname)),anim_m,0.0_8)
245
246 WRITE(varname,'(A)') 'ANIM_K'
247 CALL qaprint(varname(1:len_trim(varname)),anim_k,0.0_8)
248
249 WRITE(varname,'(A)') 'ANIM_U'
250 CALL qaprint(varname(1:len_trim(varname)),anim_u,0.0_8)
251
252 WRITE(varname,'(A)') 'ANIM_CRK'
253 CALL qaprint(varname(1:len_trim(varname)),anim_crk,.0_8)
254
255 WRITE(varname,'(A)') 'FMT_ANI'
256 CALL qaprint(varname(1:len_trim(varname)),fmt_ani,.0_8)
257
258 WRITE(varname,'(A)') 'IFVANI'
259 CALL qaprint(varname(1:len_trim(varname)),ifvani,.0_8)
260
261 WRITE(varname,'(A)') 'IAD_GPS'
262 CALL qaprint(varname(1:len_trim(varname)),iad_gps,.0_8)
263
264 WRITE(varname,'(A)') 'IZIPSTRS'
265 CALL qaprint(varname(1:len_trim(varname)),izipstrs,.0_8)
266
267 WRITE(varname,'(A)') 'ISTRAIALL'
268 CALL qaprint(varname(1:len_trim(varname)),istraiall,.0_8)
269
270 WRITE(varname,'(A)') 'IEPSDOALL'
271 CALL qaprint(varname(1:len_trim(varname)),iepsdoall,0.0_8)
272
273 WRITE(varname,'(A)') 'IEPSDOFULL'
274 CALL qaprint(varname(1:len_trim(varname)),iepsdofull,0.0_8)
275
276 WRITE(varname,'(A)') 'IEPSPALL'
277 CALL qaprint(varname(1:len_trim(varname)),iepspall,0.0_8)
278
279 WRITE(varname,'(A)') 'IEPSPFULL'
280 CALL qaprint(varname(1:len_trim(varname)),iepspfull,0.0_8)
281
282 WRITE(varname,'(A)') 'ISTRESALL'
283 CALL qaprint(varname(1:len_trim(varname)),istresall,0.0_8)
284
285 WRITE(varname,'(A)') 'ISTRESFULL'
286 CALL qaprint(varname(1:len_trim(varname)),istresfull,0.0_8)
287
288 WRITE(varname,'(A)') 'ISTRAINFULL'
289 CALL qaprint(varname(1:len_trim(varname)),istrainfull,0.0_8)
290
291 WRITE(varname,'(A)') 'IEPSDOT'
292 CALL qaprint(varname(1:len_trim(varname)),iepsdot,0.0_8)
293
294 WRITE(varname,'(A)') 'IFAILA'
295 CALL qaprint(varname(1:len_trim(varname)),ifaila,0.0_8)
296
297 WRITE(varname,'(A)') 'IPHIALL'
298 CALL qaprint(varname(1:len_trim(varname)),iphiall,0.0_8)
299
300 WRITE(varname,'(A)') 'IDAMAALL'
301 CALL qaprint(varname(1:len_trim(varname)),idamaall,0.0_8)
302
303 WRITE(varname,'(A)') 'IDAMAFULL'
304 CALL qaprint(varname(1:len_trim(varname)),idamafull,0.0_8)
305
306 WRITE(varname,'(A)') 'INXTFALL'
307 CALL qaprint(varname(1:len_trim(varname)),inxtfall,0.0_8)
308
309 WRITE(varname,'(A)') 'SIGH1ALL'
310 CALL qaprint(varname(1:len_trim(varname)),sigh1all,0.0_8)
311
312 WRITE(varname,'(A)') 'SIGH2ALL'
313 CALL qaprint(varname(1:len_trim(varname)),sigh2all,0.0_8)
314
315 WRITE(varname,'(A)') 'IWPLAALL'
316 CALL qaprint(varname(1:len_trim(varname)),iwplaall,0.0_8)
317
318 WRITE(varname,'(A)') 'IWPLAFULL'
319 CALL qaprint(varname(1:len_trim(varname)),iwplafull,0.0_8)
320
321 WRITE(varname,'(A)') 'IBRICK_STRESSALL'
322 CALL qaprint(varname(1:len_trim(varname)),ibrick_stressall,0.0_8)
323
324 WRITE(varname,'(A)') 'IBRICK_STRAINALL'
325 CALL qaprint(varname(1:len_trim(varname)),ibrick_strainall,0.0_8)
326
327 WRITE(varname,'(A)') 'IBRICK_EPSPALL'
328 CALL qaprint(varname(1:len_trim(varname)),ibrick_epspall,0.0_8)
329
330 WRITE(varname,'(A)') 'IORTHDALL'
331 CALL qaprint(varname(1:len_trim(varname)),iorthdall,0.0_8)
332
333 WRITE(varname,'(A)') 'IBEAM_EPSPALL'
334 CALL qaprint(varname(1:len_trim(varname)),ibeam_epspall,0.0_8)
335
336 WRITE(varname,'(A)') 'ANIM_PLY'
337 CALL qaprint(varname(1:len_trim(varname)),anim_ply,0.0_8)
338
339 WRITE(varname,'(A)') 'ISTRESALL_PLY'
340 CALL qaprint(varname(1:len_trim(varname)),istresall_ply,0.0_8)
341
342 WRITE(varname,'(A)') 'ISTRAINALL_PLY '
343 CALL qaprint(varname(1:len_trim(varname)),istrainall_ply ,0.0_8)
344
345 WRITE(varname,'(A)') 'IEPSDOTALL_PLY'
346 CALL qaprint(varname(1:len_trim(varname)),iepsdotall_ply,0.0_8)
347
348 WRITE(varname,'(A)') 'IPHIALL_PLY'
349 CALL qaprint(varname(1:len_trim(varname)),iphiall_ply,0.0_8)
350
351 WRITE(varname,'(A)') 'IEPSPALL_PLY'
352 CALL qaprint(varname(1:len_trim(varname)),iepspall_ply,0.0_8)
353
354 WRITE(varname,'(A)') 'IDAMAALL_PLY'
355 CALL qaprint(varname(1:len_trim(varname)),idamaall_ply,0.0_8)
356
357 WRITE(varname,'(A)') 'IPLYALL'
358 CALL qaprint(varname(1:len_trim(varname)),iplyall,0.0_8)
359
360 DO i = 1,mx_ply_anim
361 IF(ply_anim(i)/=0)THEN
362 WRITE(varname,'(A,I0)') 'PLY_ANIM_',i
363 CALL qaprint(varname(1:len_trim(varname)),ply_anim(i),0.0_8)
364 ENDIF
365 ENDDO
366
367 DO i = 1,mx_ply_anim
368 IF(ply_anim_stress(i)/=0)THEN
369 WRITE(varname,'(A,I0)') 'PLY_ANIM_STRESS_',i
370 CALL qaprint(varname(1:len_trim(varname)),ply_anim_stress(i),0.0_8)
371 ENDIF
372 ENDDO
373
374 DO i = 1,mx_ply_anim
375 IF(ply_anim_strain(i)/=0)THEN
376 WRITE(varname,'(A,I0)') 'PLY_ANIM_STRAIN_',i
377 CALL qaprint(varname(1:len_trim(varname)),ply_anim_strain(i),0.0_8)
378 ENDIF
379 ENDDO
380
381 DO i = 1,mx_ply_anim
382 IF(ply_anim_epsdot(i)/=0)THEN
383 WRITE(varname,'(A,I0)') 'PLY_ANIM_EPSDOT_',i
384 CALL qaprint(varname(1:len_trim(varname)),ply_anim_epsdot(i),0.0_8)
385 ENDIF
386 ENDDO
387
388 DO i = 1,mx_ply_anim
389 IF(ply_anim_phi(i)/=0)THEN
390 WRITE(varname,'(A,I0)') 'PLY_ANIM_PHI_',i
391 CALL qaprint(varname(1:len_trim(varname)),ply_anim_phi(i),0.0_8)
392 ENDIF
393 ENDDO
394
395 DO i = 1,mx_ply_anim
396 IF(ply_anim_epsp(i)/=0)THEN
397 WRITE(varname,'(A,I0)') 'PLY_ANIM_EPSP_',i
398 CALL qaprint(varname(1:len_trim(varname)),ply_anim_epsp(i),0.0_8)
399 ENDIF
400 ENDDO
401
402 DO i = 1,mx_ply_anim
403 IF(ply_anim_dama(i)/=0)THEN
404 WRITE(varname,'(A,I0)') 'PLY_ANIM_DAMA_',i
405 CALL qaprint(varname(1:len_trim(varname)),ply_anim_dama(i),0.0_8)
406 ENDIF
407 ENDDO
408
409 ENDIF
410
411 RETURN
412 END
eng_qaprint_animinput
subroutine eng_qaprint_animinput(output, sensors)
Definition eng_qaprint_animinput.F:36
message_mod
Definition message_mod.F:1257
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