OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
eng_qaprint_animinput.F File Reference
#include "implicit_f.inc"
#include "scr14_c.inc"
#include "scr25_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine eng_qaprint_animinput (sensors)

Function/Subroutine Documentation

◆ eng_qaprint_animinput()

subroutine eng_qaprint_animinput ( type (sensors_), intent(in) sensors)

Definition at line 35 of file eng_qaprint_animinput.F.

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
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