OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
definter.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!|| definter ../starter/source/interfaces/interf1/definter.f
25!||--- called by ------------------------------------------------------
26!|| hm_read_definter_type02 ../starter/source/general_controls/default_values/hm_read_definter_type02.F
27!|| hm_read_definter_type07 ../starter/source/general_controls/default_values/hm_read_definter_type07.F
28!|| hm_read_definter_type11 ../starter/source/general_controls/default_values/hm_read_definter_type11.F
29!|| hm_read_definter_type19 ../starter/source/general_controls/default_values/hm_read_definter_type19.F
30!|| hm_read_definter_type24 ../starter/source/general_controls/default_values/hm_read_definter_type24.f
31!|| hm_read_definter_type25 ../starter/source/general_controls/default_values/hm_read_definter_type25.F
32!|| hm_read_inter_lagdt_type07 ../starter/source/interfaces/int07/hm_read_inter_lagdt_type07.F
33!|| hm_read_inter_lagmul_type02 ../starter/source/interfaces/int02/hm_read_inter_lagmul_type02.F
34!|| hm_read_inter_type02 ../starter/source/interfaces/int02/hm_read_inter_type02.F
35!|| hm_read_inter_type07 ../starter/source/interfaces/int07/hm_read_inter_type07.F
36!|| hm_read_inter_type11 ../starter/source/interfaces/int11/hm_read_inter_type11.F
37!|| hm_read_inter_type24 ../starter/source/interfaces/int24/hm_read_inter_type24.F
38!|| hm_read_inter_type25 ../starter/source/interfaces/int25/hm_read_inter_type25.f
39!||--- calls -----------------------------------------------------
40!|| ancmsg ../starter/source/output/message/message.F
41!||--- uses -----------------------------------------------------
42!|| message_mod ../starter/share/message_module/message_mod.F
43!||====================================================================
44 SUBROUTINE definter(KEY,IVAL,FLAG,IPRINT,
45 . ITYP ,DEF_INTER)
46C-----------------------------------------------
47C M o d u l e s
48C-----------------------------------------------
49 USE message_mod
50 USE ale_mod
51C-----------------------------------------------
52C I m p l i c i t T y p e s
53C-----------------------------------------------
54#include "implicit_f.inc"
55C-----------------------------------------------
56C C o m m o n B l o c k s
57C-----------------------------------------------
58#include "com01_c.inc"
59C-----------------------------------------------
60C D u m m y A r g u m e n t s
61C-----------------------------------------------
62 CHARACTER KEY*10
63 INTEGER IVAL,FLAG,IPRINT,ITYP,DEF_INTER(*)
64C-----------------------------------------------
65C L o c a l V a r i a b l e s
66C-----------------------------------------------
67 INTEGER INDEX,DEF_DEF
68 LOGICAL IS_DEFAUT_1000
69C-----------------------------------------------
70c KEY : KEYWORD
71c IVAL : INTEGER VALUE
72c INDEX : INDEX IN DEF_INTER ARRAY
73c DEF_DEF : DEFAULT VALUE IN CASE NO DEFAULT SPECIFIED
74C FLAG :
75c = 0 : DEFINITION of DEFAULT VALUES
76c = 1 : USE DEFAULT VALUES
77c IPRINT :
78c = 1 : USE JUST BEFORE PRINTING VALUES IN 0.out
79C IN ORDER TO REPLACE 0 BY CORRECT VALUES
80C ITYP : TYPE OF THE INTERFACE
81C DEF_INTER: INTEGER ARRAY CONTAINING DEFAULT INTEGER VALUES
82C=======================================================================
83 index = 0
84 is_defaut_1000 = .true.
85 def_def = 0
86 IF(ityp == 2) THEN
87 SELECT CASE (key)
88C
89 CASE ('IGNORE')
90 index = 1
91 def_def = 1000
92C
93 CASE ('ILEV')
94 index = 2
95 IF(ale%GLOBAL%ICAA == 1) THEN
96 def_def = 4
97 ELSE
98 def_def = 5
99 ENDIF
100C
101 CASE ('IBUC')
102 index = 3
103 def_def = 2
104C
105 CASE ('IDEL2')
106 index = 4
107 def_def = 1000
108C
109 CASE ('IGSTI')
110 index = 5
111 def_def = 2
112C
113 CASE DEFAULT
114 index = 0
115 END SELECT
116C
117 ELSEIF(ityp == 7) THEN
118 SELECT CASE (key)
119 CASE ('IGSTI')
120 index = 10
121 def_def = 1000
122C
123 CASE ('IGAP')
124 index = 11
125 def_def = 1000
126C
127 CASE ('IBAG')
128 index = 12
129 def_def = 1000
130C
131 CASE ('IDEL')
132 index = 13
133 def_def = 1000
134C
135 CASE ('FLAGREMNOD')
136 index = 14
137 def_def = 1
138C
139 CASE ('IREM7I2')
140 index = 15
141 IF (iimplicit>0)THEN
142 def_def = 1
143 ELSE
144 def_def = 3
145 ENDIF
146C
147 CASE ('INACTI')
148 index = 16
149 def_def = 1000
150C
151 CASE ('MODFR')
152 index = 17
153 def_def = 1
154C
155 CASE DEFAULT
156 index = 0
157 END SELECT
158C
159 ELSEIF(ityp == 11) THEN
160 SELECT CASE (key)
161 CASE ('IGSTI')
162 index = 20
163 def_def = 5
164C
165 CASE ('IGAP')
166 index = 21
167 def_def = 1000
168C
169 CASE ('IDEL')
170 index = 22
171 def_def = 1000
172C
173 CASE ('IFORM')
174 index = 23
175 def_def = 1
176C
177 CASE ('inacti')
178 INDEX = 24
179 DEF_DEF = 1000
180C
181 CASE ('flagremnod')
182 INDEX = 25
183 DEF_DEF = 1
184C
185 CASE DEFAULT
186 INDEX = 0
187 END SELECT
188C
189 ELSEIF(ITYP == 19) THEN
190 SELECT CASE (KEY)
191 CASE ('igsti')
192 INDEX = 30
193c
194 DEF_DEF = 1000
195C
196 CASE ('igap')
197 INDEX = 31
198 DEF_DEF = 1000
199C
200 CASE ('ibag')
201 INDEX = 32
202 DEF_DEF = 1000
203C
204 CASE ('idel')
205 INDEX = 33
206 DEF_DEF = 1000
207C
208 CASE ('inacti')
209 INDEX = 34
210 DEF_DEF = 1000
211C
212 CASE ('modfr')
213 INDEX = 36
214 DEF_DEF = 1
215C
216 CASE ('iedge')
217 INDEX = 37
218 DEF_DEF = 2
219C
220 CASE ('flagremnod')
221 INDEX = 38
222 DEF_DEF = 1
223C
224 CASE ('irem7i2')
225 INDEX = 39
226 IF (IIMPLICIT>0)THEN
227 DEF_DEF = 1
228 ELSE
229 DEF_DEF = 3
230 ENDIF
231C
232 CASE DEFAULT
233 INDEX = 0
234 END SELECT
235 ELSEIF(ITYP == 24) THEN
236 SELECT CASE (KEY)
237 CASE ('igsti')
238 INDEX = 40
239 DEF_DEF = 1000
240C
241 CASE ('irem24i2')
242 INDEX = 41
243 DEF_DEF = 1
244C
245 CASE ('idel24')
246 INDEX = 42
247 DEF_DEF = 1000
248C
249 CASE ('iedge')
250 INDEX = 43
251 DEF_DEF = 1000
252C
253 CASE ('igap0')
254 INDEX = 44
255 DEF_DEF = 1000
256C
257 CASE ('ipen0')
258 INDEX = 45
259 DEF_DEF = 1000
260C
261 CASE ('inacti')
262 INDEX = 46
263 DEF_DEF = 1000
264C
265 CASE DEFAULT
266 INDEX = 0
267 END SELECT
268 ELSEIF(ITYP == 25) THEN
269 SELECT CASE (KEY)
270 CASE ('igsti')
271 INDEX = 47
272 DEF_DEF = 1000
273C
274 CASE ('igap')
275 INDEX = 48
276 DEF_DEF = 1
277C
278 CASE ('ibag')
279 INDEX = 49
280 DEF_DEF = 1000
281C
282 CASE ('idel25')
283 INDEX = 50
284 DEF_DEF = 1000
285C
286 CASE ('igap0')
287 INDEX = 51
288 DEF_DEF = 1000
289C
290 CASE ('inacti')
291 INDEX = 52
292 DEF_DEF = 1000
293C
294 CASE ('irem25i2')
295 INDEX = 53
296 DEF_DEF = 1
297C
298 CASE ('isharp')
299 INDEX = 54
300 DEF_DEF = 1
301C
302 CASE ('iedge')
303 INDEX = 55
304 DEF_DEF = 1000
305C
306 CASE ('ithk')
307 INDEX = 56
308 DEF_DEF = 1000
309C
310 CASE DEFAULT
311 INDEX = 0
312 END SELECT
313 IF (DEF_DEF /= 1000) IS_DEFAUT_1000 = .FALSE.
314 ENDIF
315C
316 IF(INDEX/=0)THEN
317.AND. IF(FLAG == 0 IPRINT == 0
318.AND. . DEF_INTER(INDEX) /= 0)THEN
319 CALL ANCMSG(MSGID=1073,
320 . MSGTYPE=MSGERROR,
321 . ANMODE=ANINFO,
322 . I1=ITYP)
323.AND. ELSEIF(FLAG == 0 IPRINT == 0
324.AND. . IVAL /= 0)THEN
325 ! put default value in DEF_INTER array
326 DEF_INTER(INDEX) = IVAL
327.AND. ELSEIF(FLAG == 0 IPRINT == 0)THEN
328 ! put default_default value in DEF_INTER array
329 DEF_INTER(INDEX) = DEF_DEF
330.AND. ELSEIF(FLAG == 0 IPRINT == 1)THEN
331 ! build IVAL value printed in 0.out for /DEFAULT option
332 IVAL = DEF_INTER(INDEX)
333.AND. ELSEIF(FLAG == 1 IPRINT == 0)THEN
334 ! replace 0 by default value in /INTER
335.AND. IF(IVAL == 0 DEF_INTER(INDEX) /= 0)THEN
336 IVAL = DEF_INTER( INDEX)
337 ELSEIF(IVAL == 0)THEN
338 IVAL = DEF_DEF
339 ENDIF
340.AND. IF(IVAL == 1000 IS_DEFAUT_1000 ) IVAL = 0
341.AND. ELSEIF(FLAG == 1 IPRINT == 1)THEN
342.AND. IF(IVAL == 0 DEF_INTER(INDEX) /= 0)THEN
343 IVAL = DEF_INTER(INDEX)
344.AND. ELSEIF(IVAL == 0 DEF_INTER(INDEX) == 0)THEN
345 IVAL = DEF_DEF
346 ENDIF
347 ENDIF
348 ENDIF!(INDEX/=0)
349C-----
350 RETURN
351 END
definter
subroutine definter(key, ival, flag, iprint, ityp, def_inter)
Definition definter.F:46
hm_read_definter_type24
subroutine hm_read_definter_type24(ntyp, def_inter, lsubmodel)
Definition hm_read_definter_type24.F:35
hm_read_inter_type25
subroutine hm_read_inter_type25(ipari, stfac, frigap, noint, ni, igrnod, igrsurf, xfiltr, fric_p, def_inter, sensors, nom_opt, unitab, lsubmodel, titr, nom_optfric, intbuf_fric_tab, npc, npc1, tf, parameters, npari, nparir, snpc, snpc1, npts, itherm_fe, intheat)
Definition hm_read_inter_type25.F:48
ale_mod
Definition ale_mod.F:149
ale_mod::ale
type(ale_) ale
Definition ale_mod.F:249
message_mod
Definition message_mod.F:1249
starter
program starter
Definition starter.F:39