OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
eng_qaprint_generalcontrolsinput.F File Reference
#include "implicit_f.inc"
#include "scr03_c.inc"
#include "scr05_c.inc"
#include "scr06_c.inc"
#include "scr07_c.inc"
#include "com04_c.inc"
#include "com06_c.inc"
#include "com08_c.inc"
#include "check.inc"
#include "chara_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine eng_qaprint_generalcontrolsinput (irunn, output, iparit, sensors)

Function/Subroutine Documentation

◆ eng_qaprint_generalcontrolsinput()

subroutine eng_qaprint_generalcontrolsinput ( integer irunn,
type(output_), intent(inout) output,
integer, intent(in) iparit,
type(sensors_), intent(in) sensors )
Parameters
[in,out]outputoutput structure

Definition at line 35 of file eng_qaprint_generalcontrolsinput.F.

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 "scr03_c.inc"
51#include "scr05_c.inc"
52#include "scr06_c.inc"
53#include "scr07_c.inc"
54#include "com04_c.inc"
55#include "com06_c.inc"
56#include "com08_c.inc"
57#include "check.inc"
58#include "chara_c.inc"
59C-----------------------------------------------
60C D u m m y A r g u m e n t s
61C-----------------------------------------------
62 INTEGER IRUNN
63 INTEGER,INTENT(IN):: IPARIT
64C-----------------------------------------------
65C L o c a l V a r i a b l e s
66C-----------------------------------------------
67 INTEGER I
68 CHARACTER (LEN=255) :: VARNAME
69 DOUBLE PRECISION TEMP_DOUBLE
70 TYPE(OUTPUT_), INTENT(INOUT) :: OUTPUT !< output structure
71 TYPE(SENSORS_), INTENT(IN) :: SENSORS
72C-----------------------------------------------
73C E x t e r n a l F u n c t i o n s
74C-----------------------------------------------
75C=======================================================================
76C-----------------------------------------------
77C QA PRINT FOR RUN INPUT
78C-----------------------------------------------
79 IF (myqakey('/RUN')) THEN
80 CALL qaprint(rootnam(1:rootlen),irunn,0.0_8)
81
82C the restart letter of the run is used as the variable name in ref.extract, followed by the run ID
83 IF(len_trim(chrun0)/=0)THEN
84 CALL qaprint(chrun0(1:len_trim(chrun0)),irunn,0.0_8)
85 ELSE
86 CALL qaprint('A_FAKE_RESTART_LETTER',irunn,0.0_8)
87 END IF
88
89 WRITE(varname,'(A)') 'TSTOP'
90 temp_double = tstop
91 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
92 ENDIF
93
94C-----------------------------------------------
95C QA PRINT FOR VERS INPUT
96C-----------------------------------------------
97 IF (myqakey('/VERS')) THEN
98 WRITE(varname,'(A)') 'INVERS'
99 CALL qaprint(varname(1:len_trim(varname)),invers,0.0_8)
100 ENDIF
101
102C-----------------------------------------------
103C QA PRINT FOR RFILE INPUT
104C-----------------------------------------------
105 IF (myqakey('/RFILE')) THEN
106 WRITE(varname,'(A)') 'MULTIREST'
107 CALL qaprint(varname(1:len_trim(varname)),multirest,0.0_8)
108
109 WRITE(varname,'(A)') 'NCRST'
110 CALL qaprint(varname(1:len_trim(varname)),ncrst,0.0_8)
111
112 WRITE(varname,'(A)') 'IRLTYP'
113 CALL qaprint(varname(1:len_trim(varname)),irltyp,0.0_8)
114
115 WRITE(varname,'(A)') 'IRETYP'
116 CALL qaprint(varname(1:len_trim(varname)),iretyp,0.0_8)
117
118 WRITE(varname,'(A)') 'RF_CHECK'
119 CALL qaprint(varname(1:len_trim(varname)),rf_check,0.0_8)
120 ENDIF
121
122C-----------------------------------------------
123C QA PRINT FOR TFILE INPUT
124C-----------------------------------------------
125 IF (myqakey('/TFILE')) THEN
126 WRITE(varname,'(A)') 'DTHIS'
127 temp_double = output%TH%DTHIS
128 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
129
130 WRITE(varname,'(A)') 'ITFORM'
131 CALL qaprint(varname(1:len_trim(varname)),itform,0.0_8)
132
133 DO i=1,9
134 WRITE(varname,'(A,I0)') 'DTHIS1_', i
135 temp_double = output%TH%DTHIS1(i)
136 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
137 ENDDO
138 ENDIF
139
140C-----------------------------------------------
141C QA PRINT FOR STOP INPUT
142C-----------------------------------------------
143 IF (myqakey('/STOP')) THEN
144! WRITE(VARNAME,'(A)') 'NSTOPSENS'
145! CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),NSTOPSENS,0.0_8)
146
147! DO I=1,NSENSOR
148! WRITE(VARNAME,'(A,I0)') 'LSTOPSENS_', I
149! CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),LSTOPSENS(I),0.0_8)
150! ENDDO
151
152 WRITE(varname,'(A)') 'NSANIM'
153 CALL qaprint(varname(1:len_trim(varname)),sensors%STOP_NSANIM,0.0_8)
154
155 WRITE(varname,'(A)') 'NSTH'
156 CALL qaprint(varname(1:len_trim(varname)),sensors%STOP_NSTH,0.0_8)
157
158 WRITE(varname,'(A)') 'NSSTAT'
159 CALL qaprint(varname(1:len_trim(varname)),sensors%STOP_NSSTAT,0.0_8)
160
161 WRITE(varname,'(A)') 'NSOUTP'
162 CALL qaprint(varname(1:len_trim(varname)),sensors%STOP_NSOUTP,0.0_8)
163
164 WRITE(varname,'(A)') 'NSABF'
165 CALL qaprint(varname(1:len_trim(varname)),sensors%STOP_NSABF,0.0_8)
166
167 WRITE(varname,'(A)') 'NSH3D'
168 CALL qaprint(varname(1:len_trim(varname)),sensors%STOP_NSH3D,0.0_8)
169
170 WRITE(varname,'(A)') 'NTH'
171 CALL qaprint(varname(1:len_trim(varname)),nth,0.0_8)
172
173 WRITE(varname,'(A)') 'NANIM'
174 CALL qaprint(varname(1:len_trim(varname)),nanim,0.0_8)
175
176 WRITE(varname,'(A)') 'NERR_POSIT'
177 CALL qaprint(varname(1:len_trim(varname)),nerr_posit,0.0_8)
178
179 WRITE(varname,'(A)') 'DMTMXS'
180 temp_double = dmtmxs
181 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
182
183 WRITE(varname,'(A)') 'DMNMXS'
184 temp_double = dmnmxs
185 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
186
187 WRITE(varname,'(A)') 'DEMXS'
188 temp_double = demxs
189 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
190
191 WRITE(varname,'(A)') 'DMTMXK'
192 temp_double = dmtmxk
193 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
194
195 WRITE(varname,'(A)') 'DMNMXK'
196 temp_double = dmnmxk
197 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
198
199 WRITE(varname,'(A)') 'DEMXK'
200 temp_double = demxk
201 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
202 ENDIF
203C-----------------------------------------------
204C QA PRINT FOR VERS INPUT
205C-----------------------------------------------
206 IF (myqakey('/PARITH')) THEN
207 WRITE(varname,'(A)') 'KEYWORD2'
208 CALL qaprint(varname(1:len_trim(varname)),iparit,0.0_8)
209 ENDIF
210
211
212 RETURN
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