OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
st_qaprint_initial_conditions.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!|| st_qaprint_initial_conditions ../starter/source/output/qaprint/st_qaprint_initial_conditions.F
25!||--- called by ------------------------------------------------------
26!|| st_qaprint_driver ../starter/source/output/qaprint/st_qaprint_driver.F
27!||--- calls -----------------------------------------------------
28!||--- uses -----------------------------------------------------
29!|| inigrav ../starter/share/modules1/inigrav_mod.F
30!|| inimap1d_mod ../starter/share/modules1/inimap1d_mod.f
31!|| inimap2d_mod ../starter/share/modules1/inimap2d_mod.F
32!||====================================================================
33 SUBROUTINE st_qaprint_initial_conditions(
34 1 NOM_OPT ,INOM_OPT ,ITAB ,V ,VR ,
35 2 W ,TEMP ,INICRACK ,FVM_INIVEL,
36 3 INIMAP1D, INIMAP2D)
37C============================================================================
38C M o d u l e s
39C-----------------------------------------------
40 USE qa_out_mod
41 USE inigrav
42 USE optiondef_mod
43 USE multi_fvm_mod
44 USE inimap1d_mod
45 USE inimap2d_mod
46 USE names_and_titles_mod , ONLY : nchartitle
47C-----------------------------------------------
48C I m p l i c i t T y p e s
49C-----------------------------------------------
50#include "implicit_f.inc"
51C-----------------------------------------------
52C C o m m o n B l o c k s
53C-----------------------------------------------
54#include "com01_c.inc"
55#include "com04_c.inc"
56#include "scr16_c.inc"
57#include "scr17_c.inc"
58#include "tabsiz_c.inc"
59#include "com_xfem1.inc"
60C-----------------------------------------------
61C D u m m y A r g u m e n t s
62C-----------------------------------------------
63 INTEGER, INTENT(IN) :: NOM_OPT(LNOPT1,SNOM_OPT1), INOM_OPT(SINOM_OPT)
64 INTEGER, INTENT(IN) :: ITAB(NUMNOD)
65 TYPE (FVM_INIVEL_STRUCT), DIMENSION(NINVEL), INTENT(IN) :: FVM_INIVEL
66 TYPE(inimap1d_struct), DIMENSION(NINIMAP1D), INTENT(IN) :: INIMAP1D
67 TYPE(inimap2d_struct), DIMENSION(NINIMAP2D), INTENT(IN) :: INIMAP2D
68C-----------------------------------------------
69C NOM_OPT(LNOPT1,SNOM_OPT1)
70C * Possibly, NOM_OPT(1) = ID
71C NOM_OPT(LNOPT1-LTITL+1:LTITL) <=> TITLES of the OPTIONS
72C--------------------------------------------------
73C SNOM_OPT1= NRBODY+NACCELM+NVOLU+NINTER+NINTSUB+
74C + NRWALL+NJOINT+NSECT+NLINK+
75C + NUMSKW+1+NUMFRAM+1+NFXBODY+NFLOW+NRBE2+
76C + NRBE3+NSUBMOD+NFXVEL+NUMBCS+NUMMPC+
77C + NGJOINT+NUNIT0+NFUNCT+NADMESH+
78C + NSPHIO+NSPCOND+NRBYKIN+NEBCS+
79C + NINICRACK+NODMAS+NBGAUGE+NCLUSTER+NINTERFRIC+
80C + NRBMERGE
81C-----------------------------------------------
82C INOM_OPT(SINOM_OPT)
83C--------------------------------------------------
84C INOM_OPT(1) = NRBODY
85C INOM_OPT(2) = INOM_OPT(1) + NACCELM
86C INOM_OPT(3) = INOM_OPT(2) + NVOLU
87C INOM_OPT(4) = INOM_OPT(3) + NINTER
88C INOM_OPT(5) = INOM_OPT(4) + NINTSUB
89C INOM_OPT(6) = INOM_OPT(5) + NRWALL
90C INOM_OPT(7) = INOM_OPT(6)
91C INOM_OPT(8) = INOM_OPT(7) + NJOINT
92C INOM_OPT(9) = INOM_OPT(8) + NSECT
93C INOM_OPT(10)= INOM_OPT(9) + NLINK
94C INOM_OPT(11)= INOM_OPT(10)+ NUMSKW+1+NUMFRAM+1+NSUBMOD
95C INOM_OPT(12)= INOM_OPT(11)+ NFXBODY
96C INOM_OPT(13)= INOM_OPT(12)+ NFLOW
97C INOM_OPT(14)= INOM_OPT(13)+ NRBE2
98C INOM_OPT(15)= INOM_OPT(14)+ NRBE3
99C INOM_OPT(16)= INOM_OPT(15)+ NFXVEL
100C INOM_OPT(17)= INOM_OPT(16)+ NUMBCS
101C INOM_OPT(18)= INOM_OPT(17)+ NUMMPC
102C INOM_OPT(19)= INOM_OPT(18)+ NGJOINT
103C INOM_OPT(20)= INOM_OPT(19)+ NUNIT0
104C INOM_OPT(21)= INOM_OPT(20)+ NFUNCT
105C INOM_OPT(22)= INOM_OPT(21)+ NADMESH
106C INOM_OPT(23)= INOM_OPT(22)+ NSPHIO
107C INOM_OPT(24)= INOM_OPT(23)+ NSPCOND
108C INOM_OPT(25)= INOM_OPT(24)+ NEBCS
109C INOM_OPT(26)= INOM_OPT(25)+ NINICRACK
110C INOM_OPT(27)= INOM_OPT(26)+ NODMAS
111C INOM_OPT(28)= INOM_OPT(27)+ NBGAUGE
112C INOM_OPT(29)= INOM_OPT(28)+ NCLUSTER
113C INOM_OPT(30)= INOM_OPT(29)+ NINTERFRIC
114C INOM_OPT(31)= INOM_OPT(30)+ NRBMERGE
115C .. TO BE MAINTAINED (cf doc/inom_opt.txt) ..
116C-----------------------------------------------
117 my_real, INTENT(IN) ::
118 . v(3,numnod), vr(svr), ! SVR=3*NUMNOD*IRODDL
119 . w(sw) ! SW=3*NUMNOD*IALE
120 my_real, INTENT(IN) ::
121 . temp(numnod)
122 TYPE (INICRACK_) , DIMENSION(NINICRACK) :: INICRACK
123C--------------------------------------------------
124C L o c a l V a r i a b l e s
125C-----------------------------------------------
126 INTEGER I,II,JJ,MY_ID,MY_NODE,POSI(NINIGRAV+1),IDS(NINIGRAV),IDX(NINIGRAV),
127 . IDS2(NINICRACK),IDX2(NINICRACK)
128 CHARACTER(LEN=NCHARTITLE) :: TITR
129 CHARACTER (LEN=255) :: VARNAME
130 DOUBLE PRECISION TEMP_DOUBLE
131 LOGICAL :: DO_QA
132C-----------------------------------------------
133C INIVEL
134C-----------------------------------------------
135 do_qa = myqakey('VELOCITIES')
136 IF (do_qa) THEN
137 DO my_node=1,numnod
138C
139 my_id = itab(my_node)
140C
141 DO i=1,3
142 IF(v(i,my_node)/=zero)THEN
143C
144C VARNAME: variable name in ref.extract (without blanks)
145 WRITE(varname,'(A,I0,A,I0)') 'V_',my_id,'_',i ! Specific format for THIS option !
146 temp_double = v(i,my_node)
147 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
148 END IF
149 END DO
150C
151 IF(svr/=0)THEN
152 DO i=1,3
153 IF(vr(3*(my_node-1)+i)/=zero)THEN
154C
155C VARNAME: variable name in ref.extract (without blanks)
156 WRITE(varname,'(A,I0,A,I0)') 'VR_',my_id,'_',i ! Specific format for THIS option !
157 temp_double = vr(3*(my_node-1)+i)
158 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
159 END IF
160 END DO
161 END IF
162C
163 END DO ! MY_NODE=1,NUMNOD
164 DO ii = 1, ninvel
165 IF (fvm_inivel(ii)%FLAG) THEN
166 WRITE(varname, '(A, I0)') "FVM_INIVEL_", ii
167 CALL qaprint(varname(1:len_trim(varname)),0,0.0_8)
168 WRITE(varname,'(A)') 'VX_'
169 temp_double = fvm_inivel(ii)%VX
170 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
171 WRITE(varname,'(A)') 'vy_'
172 TEMP_DOUBLE = FVM_INIVEL(II)%VY
173 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),0,TEMP_DOUBLE)
174 WRITE(VARNAME,'(a)') 'vz_'
175 TEMP_DOUBLE = FVM_INIVEL(II)%VZ
176 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),0,TEMP_DOUBLE)
177 WRITE(VARNAME,'(a)') 'grbric_'
178 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),FVM_INIVEL(II)%GRBRICID,0.0_8)
179 WRITE(VARNAME,'(a)') 'grquad_'
180 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),FVM_INIVEL(II)%GRQUADID,0.0_8)
181 WRITE(VARNAME,'(a)') 'grtria_'
182 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),FVM_INIVEL(II)%GRSH3NID,0.0_8)
183 ENDIF
184 ENDDO
185 END IF
186C-----------------------------------------------
187.AND. IF (SW /= 0 MYQAKEY('grid_velocities')) THEN
188 DO MY_NODE=1,NUMNOD
189C
190 MY_ID = ITAB(MY_NODE)
191C
192 DO I=1,3
193 IF(W(3*(MY_NODE-1)+I)/=ZERO)THEN
194C
195C VARNAME: variable name in ref.extract (without blanks)
196 WRITE(VARNAME,'(a,i0,a,i0)') 'w_',MY_ID,'_',I ! Specific format for THIS option !
197 TEMP_DOUBLE = W(3*(MY_NODE-1)+I)
198 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),0,TEMP_DOUBLE)
199 END IF
200 END DO
201C
202 END DO ! MY_NODE=1,NUMNOD
203 END IF
204C-----------------------------------------------
205C INITEMP
206C-----------------------------------------------
207 IF (MYQAKEY('/initemp')) THEN
208 DO MY_NODE=1,NUMNOD
209C
210 MY_ID = ITAB(MY_NODE)
211C
212 IF(TEMP(MY_NODE)/=ZERO)THEN
213C
214C VARNAME: variable name in ref.extract (without blanks)
215 WRITE(VARNAME,'(a,i0)') 'temp_',MY_ID ! Specific format for THIS option !
216 TEMP_DOUBLE = TEMP(MY_NODE)
217 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),0,TEMP_DOUBLE)
218 END IF
219C
220 END DO ! MY_NODE=1,NUMNOD
221 END IF
222C-----------------------------------------------
223C INITEMP
224C-----------------------------------------------
225 IF (MYQAKEY('/inigrav')) THEN
226C
227 IF (NINIGRAV > 0) THEN
228C
229! Sort by ID to ensure internal order independent output
230 DO I = 1, NINIGRAV
231 IDS(I) = INIGRV(4,I)
232 IDX(I) = I
233 ENDDO
234 CALL QUICKSORT_I2(IDS, IDX, 1, NINIGRAV)
235C
236! Loop over INIGRAVs
237 DO II = 1, NINIGRAV
238C
239 MY_ID = IDX(II)
240 CALL QAPRINT('a_inigrav_fake_name',II,0.0_8)
241C
242 ! INIGRV table
243 DO I = 1,4
244 WRITE(VARNAME,'(a,i0)') 'inigrv_',I
245 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),INIGRV(I,MY_ID),0.0_8)
246 ENDDO
247C
248 ! LINIGRAV table
249 DO I = 1,11
250 WRITE(VARNAME,'(a,i0)') 'linigrav_',I
251 TEMP_DOUBLE = LINIGRAV(I,MY_ID)
252 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),0,TEMP_DOUBLE)
253 ENDDO
254 ENDDO
255 ENDIF
256 END IF
257C-----------------------------------------------
258C INISTA
259C-----------------------------------------------
260 IF (MYQAKEY('/inista')) THEN
261C
262 ! Inista file name
263 CALL QAPRINT('inista_file_name',0,0.0_8)
264 CALL QAPRINT(S0FILE(1:LEN_TRIM(S0FILE)),0,0.0_8)
265C
266 ! Inista initial balance
267 WRITE(VARNAME,'(a)') 'isigi_'
268 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),ISIGI,0.0_8)
269C
270 ! Inista output format
271 WRITE(VARNAME,'(a)') 'ioutp_fmt_'
272 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),IOUTP_FMT,0.0_8)
273C
274 ! Inista file format reading
275 WRITE(VARNAME,'(a)') 'irootyy_r_'
276 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),IROOTYY_R,0.0_8)
277C
278 END IF
279C-----------------------------------------------
280C INICRACK
281C-----------------------------------------------
282 IF (MYQAKEY('/inicrack')) THEN
283C
284 IF (NINICRACK > 0) THEN
285C
286! Sort by ID to ensure internal order independent output
287 DO I = 1, NINICRACK
288 IDS2(I) = INICRACK(I)%ID
289 IDX2(I) = I
290 ENDDO
291 CALL QUICKSORT_I2(IDS2, IDX2, 1, NINICRACK)
292C
293! Loop over INICRACKs
294 DO II = 1, NINICRACK
295C
296 MY_ID = IDX2(II)
297 TITR = INICRACK(MY_ID)%TITLE
298 IF (LEN_TRIM(TITR) /= 0) THEN
299 CALL QAPRINT(TITR(1:LEN_TRIM(TITR)),II,0.0_8)
300 ELSE
301 CALL QAPRINT('a_inicrack_fake_name',II,0.0_8)
302 END IF
303C
304 WRITE(VARNAME,'(a,i0,a)') 'inicrack_',II,'_id_'
305 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),INICRACK(MY_ID)%ID,0.0_8)
306C
307 DO I = 1,INICRACK(MY_ID)%NSEG
308
309 WRITE(VARNAME,'(a,i0,a,i0,a)') 'inicrack_',II,'_seg_',I,'_node1_'
310 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),INICRACK(MY_ID)%SEG(I)%NODES(1),0.0_8)
311C
312 WRITE(VARNAME,'(a,i0,a,i0,a)') 'inicrack_',II,'_seg_',I,'_node2_'
313 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),INICRACK(MY_ID)%SEG(I)%NODES(2),0.0_8)
314C
315 WRITE(VARNAME,'(a,i0,a,i0,a)') 'inicrack_',II,'_seg_',I,'_ratio_'
316 TEMP_DOUBLE = INICRACK(MY_ID)%SEG(I)%RATIO
317 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),0,TEMP_DOUBLE)
318C
319 ENDDO
320 ENDDO
321C
322 ENDIF
323C
324 END IF
325
326! /INIMAP1D and /INIMAP2D options
327 DO_QA = MYQAKEY('inimap')
328 IF (DO_QA) THEN
329 IF (NINIMAP1D > 0) THEN
330 DO II = 1, NINIMAP1D
331 WRITE(VARNAME, '(a)') INIMAP1D(II)%TITLE(1:255)
332 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP1D(II)%ID, 0.0_8)
333 WRITE(VARNAME, '(a)') 'formulation '
334 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP1D(II)%FORMULATION, 0.0_8)
335 WRITE(VARNAME, '(a)') 'projection TYPE '
336 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP1D(II)%PROJ, 0.0_8)
337 WRITE(VARNAME, '(a)') 'grbric '
338 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP1D(II)%GRBRICID, 0.0_8)
339 WRITE(VARNAME, '(a)') 'grquad '
340 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP1D(II)%GRQUADID, 0.0_8)
341 WRITE(VARNAME, '(a)') 'grtria '
342 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP1D(II)%GRSH3NID, 0.0_8)
343 WRITE(VARNAME, '(a)') 'ndoe1 '
344 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP1D(II)%NODEID1, 0.0_8)
345 WRITE(VARNAME, '(a)') 'ndoe2 '
346 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP1D(II)%NODEID2, 0.0_8)
347 WRITE(VARNAME, '(a)') 'func_vel '
348 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP1D(II)%FUNC_VEL, 0.0_8)
349 TEMP_DOUBLE = INIMAP1D(II)%FAC_VEL
350 WRITE(VARNAME, '(a)') 'fac_vel '
351 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), 0, TEMP_DOUBLE)
352 DO JJ = 1, INIMAP1D(II)%NBMAT
353 WRITE(VARNAME, '(a)') 'func_alpha '
354 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP1D(II)%FUNC_ALPHA(JJ), 0.0_8)
355 WRITE(VARNAME, '(a)') 'func_rho '
356 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP1D(II)%FUNC_RHO(JJ), 0.0_8)
357 WRITE(VARNAME, '(a)') 'func_pres '
358 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP1D(II)%FUNC_PRES(JJ), 0.0_8)
359 WRITE(VARNAME, '(a)') 'func_ener '
360 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP1D(II)%FUNC_ENER(JJ), 0.0_8)
361 TEMP_DOUBLE = INIMAP1D(II)%FAC_RHO(JJ)
362 WRITE(VARNAME, '(a)') 'fac_rho '
363 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), 0, TEMP_DOUBLE)
364 TEMP_DOUBLE = INIMAP1D(II)%FAC_PRES_ENER(JJ)
365 WRITE(VARNAME, '(a)') 'fac_pres_ener '
366 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), 0, TEMP_DOUBLE)
367 ENDDO
368 ENDDO
369 ENDIF
370 IF (NINIMAP2D > 0) THEN
371 DO II = 1, NINIMAP2D
372 WRITE(VARNAME, '(a)') INIMAP2D(II)%TITLE(1:255)
373 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP2D(II)%ID, 0.0_8)
374 WRITE(VARNAME, '(a)') 'formulation '
375 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP2D(II)%FORMULATION, 0.0_8)
376 WRITE(VARNAME, '(a)') 'grbric '
377 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP2D(II)%GRBRICID, 0.0_8)
378 WRITE(VARNAME, '(a)') 'grquad '
379 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP2D(II)%GRQUADID, 0.0_8)
380 WRITE(VARNAME, '(a)') 'grtria '
381 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP2D(II)%GRSH3NID, 0.0_8)
382 WRITE(VARNAME, '(a)') 'ndoe1 '
383 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP2D(II)%NODEID1, 0.0_8)
384 WRITE(VARNAME, '(a)') 'ndoe2 '
385 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP2D(II)%NODEID2, 0.0_8)
386 WRITE(VARNAME, '(a)') 'ndoe3 '
387 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP2D(II)%NODEID3, 0.0_8)
388 WRITE(VARNAME, '(a)') 'func_vel '
389 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP2D(II)%FUNC_VEL, 0.0_8)
390 TEMP_DOUBLE = INIMAP2D(II)%FAC_VEL
391 WRITE(VARNAME, '(a)') 'fac_vel '
392 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), 0, TEMP_DOUBLE)
393 DO JJ = 1, INIMAP2D(II)%NBMAT
394 WRITE(VARNAME, '(a)') 'func_alpha '
395 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP2D(II)%FUNC_ALPHA(JJ), 0.0_8)
396 WRITE(VARNAME, '(a)') 'func_rho '
397 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP2D(II)%FUNC_RHO(JJ), 0.0_8)
398 WRITE(VARNAME, '(a)') 'func_pres '
399 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP2D(II)%FUNC_PRES(JJ), 0.0_8)
400 WRITE(VARNAME, '(a)') 'func_ener '
401 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), INIMAP2D(II)%FUNC_ENER(JJ), 0.0_8)
402 TEMP_DOUBLE = INIMAP2D(II)%FAC_RHO(JJ)
403 WRITE(VARNAME, '(a)') 'fac_rho '
404 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), 0, TEMP_DOUBLE)
405 TEMP_DOUBLE = INIMAP2D(II)%FAC_PRES_ENER(JJ)
406 WRITE(VARNAME, '(a)') 'fac_pres_ener '
407 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)), 0, TEMP_DOUBLE)
408 ENDDO
409 ENDDO
410 ENDIF
411 ENDIF
412C-----------------------------------------------
413
414C-----------------------------------------------
415 RETURN
416 END
my_real
#define my_real
Definition cppsort.cpp:32
inimap1d_mod
Definition inimap1d_mod.F:35
inimap2d_mod
Definition inimap2d_mod.F:35
names_and_titles_mod
Definition names_and_titles_mod.F:997
names_and_titles_mod::nchartitle
integer, parameter nchartitle
Definition names_and_titles_mod.F:1003
optiondef_mod
Definition optiondef_mod.F:90
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
st_qaprint_initial_conditions
subroutine st_qaprint_initial_conditions(nom_opt, inom_opt, itab, v, vr, w, temp, inicrack, fvm_inivel, inimap1d, inimap2d)
Definition st_qaprint_initial_conditions.F:37
starter
program starter
Definition starter.F:39
inimap1d_mod::inimap1d_struct
Definition inimap1d_mod.F:45
inimap2d_mod::inimap2d_struct
Definition inimap2d_mod.F:45
optiondef_mod::inicrack_
Definition optiondef_mod.F:106