OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
eng_qaprint_dtinput.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_dtinput ../engine/source/output/qaprint/eng_qaprint_dtinput.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!|| dt_mod ../engine/source/modules/dt_mod.F
31!|| glob_therm_mod ../common_source/modules/mat_elem/glob_therm_mod.F90
32!|| message_mod ../engine/share/message_module/message_mod.F
33!|| qa_out_mod ../common_source/qa/qa_out_mod.F
34!||====================================================================
35 SUBROUTINE eng_qaprint_dtinput(DT,GLOB_THERM)
36C-----------------------------------------------
37C M o d u l e s
38C-----------------------------------------------
39 USE qa_out_mod
40 USE message_mod
41 USE dt_mod
42 use glob_therm_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 "scr02_c.inc"
51#include "scr18_c.inc"
52#include "scr17_c.inc"
53#include "sms_c.inc"
54#include "cong2_c.inc"
55C-----------------------------------------------
56C D u m m y A r g u m e n t s
57C-----------------------------------------------
58 TYPE(dt_) , INTENT(INOUT) :: DT
59 type (glob_therm_) ,intent(in) :: glob_therm
60C-----------------------------------------------
61C L o c a l V a r i a b l e s
62C-----------------------------------------------
63 INTEGER I
64 CHARACTER (LEN=255) :: VARNAME
65 DOUBLE PRECISION TEMP_DOUBLE
66C=======================================================================
67C-----------------------------------------------
68C QA PRINT FOR DT INPUTS
69C-----------------------------------------------
70 IF (myqakey('/DT')) THEN
71
72 WRITE(varname,'(A)') 'NODADT'
73 CALL qaprint(varname(1:len_trim(varname)),nodadt,0.0_8)
74
75 DO i=1,102
76C VARNAME: variable name in ref.extract (without blanks)
77 WRITE(varname,'(A,I0)') 'IDTMIN_',i ! IDTMIN(11) => 'IDTMIN_11'
78 CALL qaprint(varname(1:len_trim(varname)),idtmin(i),0.0_8)
79
80 WRITE(varname,'(A,I0)') 'IDTGR_',i
81 CALL qaprint(varname(1:len_trim(varname)),idtgr(i),0.0_8)
82
83 WRITE(varname,'(A,I0)') 'DTFAC_',i
84 temp_double = dtfac1(i)
85 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
86
87 WRITE(varname,'(A,I0)') 'DTMIN_',i
88 temp_double = dtmin1(i)
89 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
90 ENDDO
91
92 WRITE(varname,'(A)') 'MIN_ASPECT'
93 temp_double = dt%BRICK_CST_COL_MIN
94 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
95
96 WRITE(varname,'(A)') 'MIN_DEFV'
97 temp_double = dt%BRICK_CST_DEFV_MIN
98 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
99
100C-----------------------------------------------
101C AMS
102C-----------------------------------------------
103 WRITE(varname,'(A)') 'IDTMINS'
104 CALL qaprint(varname(1:len_trim(varname)),idtmins,0.0_8)
105
106 WRITE(varname,'(A)') 'DTMINS'
107 temp_double = dtmins
108 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
109
110 WRITE(varname,'(A)') 'DTFACS'
111 temp_double = dtfacs
112 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
113
114 WRITE(varname,'(A)') 'TOL_SMS'
115 temp_double = tol_sms
116 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
117
118 WRITE(varname,'(A)') 'NSMSPCG'
119 CALL qaprint(varname(1:len_trim(varname)),nsmspcg,0.0_8)
120
121C-----------------------------------------------
122C /DTIX
123C-----------------------------------------------
124 WRITE(varname,'(A)') 'DTIN'
125 temp_double = dtin
126 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
127
128 WRITE(varname,'(A)') 'DTMX'
129 temp_double = dtmx
130 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
131
132C-----------------------------------------------
133C Interface
134C-----------------------------------------------
135 WRITE(varname,'(A)') 'IDTMINS_INT'
136 CALL qaprint(varname(1:len_trim(varname)),idtmins_int,0.0_8)
137
138 WRITE(varname,'(A)') 'DTMINS_INT'
139 temp_double = dtmins_int
140 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
141
142 WRITE(varname,'(A)') 'DTFACS_INT'
143 temp_double = dtfacs_int
144 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
145
146C-----------------------------------------------
147C Thermique
148C-----------------------------------------------
149 WRITE(varname,'(A)') 'NODADT_THERM'
150 CALL qaprint(varname(1:len_trim(varname)),glob_therm%NODADT_THERM,0.0_8)
151
152 WRITE(varname,'(A)') 'IDT_THERM'
153 CALL qaprint(varname(1:len_trim(varname)),glob_therm%IDT_THERM,0.0_8)
154
155 WRITE(varname,'(A)') 'DTFACTHERM'
156 temp_double = glob_therm%DTFACTHERM
157 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
158
159C-----------------------------------------------
160
161 WRITE(varname,'(A)') 'IDT1SH'
162 CALL qaprint(varname(1:len_trim(varname)),idt1sh,0.0_8)
163
164 WRITE(varname,'(A)') 'IDT1SOL'
165 CALL qaprint(varname(1:len_trim(varname)),idt1sol,0.0_8)
166
167 WRITE(varname,'(A)') 'IDT1TET10'
168 CALL qaprint(varname(1:len_trim(varname)),idt1tet10,0.0_8)
169
170
171 ENDIF
172
173 RETURN
174 END
eng_qaprint_dtinput
subroutine eng_qaprint_dtinput(dt, glob_therm)
Definition eng_qaprint_dtinput.F:36
dt_mod
Definition dt_mod.F:79
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
dt_mod::dt_
Definition dt_mod.F:85