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 IF(flag == 0 .AND. iprint == 0
318 . .AND. def_inter(index) /= 0)THEN
319 CALL ancmsg(msgid=1073,
320 . msgtype=msgerror,
321 . anmode=aninfo,
322 . i1=ityp)
323 ELSEIF(flag == 0 .AND. iprint == 0
324 . .AND. ival /= 0)THEN
325 ! put default value in DEF_INTER array
326 def_inter(index) = ival
327 ELSEIF(flag == 0 .AND. iprint == 0)THEN
328 ! put default_default value in DEF_INTER array
329 def_inter(index) = def_def
330 ELSEIF(flag == 0 .AND. iprint == 1)THEN
331 ! build IVAL value printed in 0.out for /DEFAULT option
332 ival = def_inter(index)
333 ELSEIF(flag == 1 .AND. iprint == 0)THEN
334 ! replace 0 by default value in /INTER
335 IF(ival == 0 .AND. def_inter(index) /= 0)THEN
336 ival = def_inter( index)
337 ELSEIF(ival == 0)THEN
338 ival = def_def
339 ENDIF
340 IF(ival == 1000 .AND. is_defaut_1000 ) ival = 0
341 ELSEIF(flag == 1 .AND. iprint == 1)THEN
342 IF(ival == 0 .AND. def_inter(index) /= 0)THEN
343 ival = def_inter(index)
344 ELSEIF(ival == 0 .AND. 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
ale_mod
Definition ale_mod.F:150
ale_mod::ale
type(ale_) ale
Definition ale_mod.F:253
message_mod
Definition message_mod.F:1257
ancmsg
subroutine ancmsg(msgid, msgtype, anmode, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, r1, r2, r3, r4, r5, r6, r7, r8, r9, c1, c2, c3, c4, c5, c6, c7, c8, c9, prmode)
Definition message.F:895