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 Le restart letter du run sert de nom de la variable dans le ref.extract , suivi de l'ID du run
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: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