OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
hm_read_definter_type19.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!|| hm_read_definter_type19 ../starter/source/general_controls/default_values/hm_read_definter_type19.F
25!||--- called by ------------------------------------------------------
26!|| hm_read_definter ../starter/source/general_controls/default_values/hm_read_definter.F
27!||--- calls -----------------------------------------------------
28!|| definter ../starter/source/interfaces/interf1/definter.F
29!|| hm_get_intv ../starter/source/devtools/hm_reader/hm_get_intv.F
30!||--- uses -----------------------------------------------------
31!|| message_mod ../starter/share/message_module/message_mod.F
32!|| submodel_mod ../starter/share/modules1/submodel_mod.F
33!||====================================================================
34 SUBROUTINE hm_read_definter_type19( NTYP , DEF_INTER,LSUBMODEL)
35C============================================================================
36C-----------------------------------------------
37C M o d u l e s
38C-----------------------------------------------
39 USE message_mod
40 USE submodel_mod , ONLY : submodel_data, nsubmod
41 USE names_and_titles_mod , ONLY : ncharkey
42C-----------------------------------------------
43C I m p l i c i t T y p e s
44C-----------------------------------------------
45#include "implicit_f.inc"
46C-----------------------------------------------
47C C o m m o n B l o c k s
48C-----------------------------------------------
49C-----------------------------------------------
50C D u m m y A r g u m e n t s
51C-----------------------------------------------
52 INTEGER NTYP
53 INTEGER DEF_INTER(100)
54 TYPE(submodel_data) LSUBMODEL(NSUBMOD)
55C-----------------------------------------------
56C C o m m o n B l o c k s
57C-----------------------------------------------
58#include "units_c.inc"
59C-----------------------------------------------
60C L o c a l V a r i a b l e s
61C-----------------------------------------------
62 INTEGER IGSTI,IGAP,IBAG,IDEL7N,FLAGREMNOD,IREM7I2,INACTI,MODFR,IPRINT,IASSIGN,IEDGE
63 CHARACTER(LEN=NCHARKEY) :: KEY1
64 LOGICAL IS_AVAILABLE
65
66CC============================================================================
67C READING DEFAULT VALUES INTERFACE TYPE19 (/DEFAULT/INTER/TYPE19)
68C============================================================================
69
70 igsti = 0
71 ibag=0
72 idel7n = 0
73 inacti = 0
74 iedge = 0
75C
76 iassign = 0
77C
78 is_available = .false.
79C--------------------------------------------------
80C EXTRACT DATAS (INTEGER VALUES)
81C--------------------------------------------------
82 CALL hm_get_intv('Istf',igsti,is_available,lsubmodel)
83 CALL hm_get_intv('Igap',igap,is_available,lsubmodel)
84 CALL hm_get_intv('Iedge_Type19',iedge,is_available,lsubmodel)
85 CALL hm_get_intv('Ibag',ibag,is_available,lsubmodel)
86 CALL hm_get_intv('Idel7',idel7n,is_available,lsubmodel)
87C
88 CALL hm_get_intv('IKREM',flagremnod,is_available,lsubmodel)
89 CALL hm_get_intv('ICOG',irem7i2,is_available,lsubmodel)
90
91C
92 CALL hm_get_intv('INACTIV',inacti,is_available,lsubmodel)
93 CALL hm_get_intv('IFORM',modfr,is_available,lsubmodel)
94C
95C----------------------------------------------------
96C READING DEFAULT VALUES
97C----------------------------------------------------
98 iprint = 0
99C
100 key1='IGSTI'
101 CALL definter(key1 ,igsti ,iassign ,iprint ,
102 . ntyp ,def_inter)
103C
104 key1='IGAP'
105 CALL definter(key1 ,igap ,iassign ,iprint ,
106 . ntyp ,def_inter)
107C
108 key1='IEDGE'
109 CALL definter(key1 ,iedge ,iassign ,iprint ,
110 . ntyp ,def_inter)
111C
112 key1='IBAG'
113 CALL definter(key1 ,ibag ,iassign ,iprint ,
114 . ntyp ,def_inter)
115C
116 key1='IDEL'
117 CALL definter(key1 ,idel7n ,iassign ,iprint ,
118 . ntyp ,def_inter)
119C
120 key1='FLAGREMNOD'
121 CALL definter(key1 ,flagremnod,iassign ,iprint ,
122 . ntyp ,def_inter)
123C
124 key1='IREM7I2'
125 CALL definter(key1 ,irem7i2 ,iassign ,iprint ,
126 . ntyp ,def_inter)
127C
128 key1='INACTI'
129 CALL definter(key1 ,inacti ,iassign ,iprint ,
130 . ntyp ,def_inter)
131C
132 key1='MODFR'
133 CALL definter(key1 ,modfr ,iassign ,iprint ,
134 . ntyp ,def_inter)
135C
136C----------------------------------------------------
137C DEFAULT VALUES PRINT
138C----------------------------------------------------
139 iprint = 1
140c
141 key1='IGSTI'
142 CALL definter(key1 ,igsti ,iassign ,iprint ,
143 . ntyp ,def_inter)
144C
145 key1='IGAP'
146 CALL definter(key1 ,igap ,iassign ,iprint ,
147 . ntyp ,def_inter)
148C
149 key1='IEDGE'
150 CALL definter(key1 ,iedge ,iassign ,iprint ,
151 . ntyp ,def_inter)
152C
153 key1='IBAG'
154 CALL definter(key1 ,ibag ,iassign ,iprint ,
155 . ntyp ,def_inter)
156C
157 key1='IDEL'
158 CALL definter(key1 ,idel7n ,iassign ,iprint ,
159 . ntyp ,def_inter)
160C
161 key1='INACTI'
162 CALL definter(key1 ,inacti ,iassign ,iprint ,
163 . ntyp ,def_inter)
164C
165 key1='MODFR'
166 CALL definter(key1 ,modfr ,iassign ,iprint ,
167 . ntyp ,def_inter)
168C
169 key1='FLAGREMNOD'
170 CALL definter(key1 ,flagremnod,iassign ,iprint ,
171 . ntyp ,def_inter)
172C
173 key1='IREM7I2'
174 CALL definter(key1 ,irem7i2 ,iassign ,iprint ,
175 . ntyp ,def_inter)
176C
177 WRITE(iout,5019) igsti,igap,ibag,idel7n,inacti,
178 . modfr,iedge,flagremnod,irem7i2
179C--------------------------------------------------------------
180 RETURN
181C--------------------------------------------------------------
182 5019 FORMAT(/
183 . ' INTERFACE TYPE 19 ' //,
184 . ' STIFFNESS FORMULATION. . . . . . . . . . ',i5/,
185 . ' VARIABLE GAP FLAG . . . . . . . . . . . . ',i5/,
186 . ' AIRBAG VENT HOLES CLOSURE FLAG ' /,
187 . ' IN CASE OF CONTACT. . . . . . . . . . . . ',i5/,
188 . ' DELETION FLAG ON FAILURE OF MAIN ELEMENT',i5/,
189 . ' DE-ACTIVATION OF INITIAL PENETRATIONS . . ',i5/,
190 . ' TYPE OF FRICTION PENALTY FORMULATION. . . ',i5/,
191 . ' EDGES SELECTION FLAG . . . . . . . . . . .',i5/,
192 . ' FLAGREMNODE : NOT CONSIDER NEIGHBORING '/,
193 . ' NODES IN CASE OF ELEMENT SIZE < GAP VALUE ',i5/,
194 . ' DE-ACTIVATION FLAG IF CONFLICTING W/ TYPE2 ',i5/)
195C
196C--------------------------------------------------------------
197 END
definter
subroutine definter(key, ival, flag, iprint, ityp, def_inter)
Definition definter.F:46
hm_get_intv
subroutine hm_get_intv(name, ival, is_available, lsubmodel)
Definition hm_get_intv.F:523
hm_read_definter_type19
subroutine hm_read_definter_type19(ntyp, def_inter, lsubmodel)
Definition hm_read_definter_type19.F:35
message_mod
Definition message_mod.F:1249
names_and_titles_mod
Definition names_and_titles_mod.F:997
names_and_titles_mod::ncharkey
integer, parameter ncharkey
Definition names_and_titles_mod.F:1000
submodel_mod
Definition submodel_mod.F:712
submodel_mod::nsubmod
integer nsubmod
Definition submodel_mod.F:720
submodel_mod::submodel_data
Definition submodel_mod.F:723