OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
hm_read_definter_type25.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_type25 ../starter/source/general_controls/default_values/hm_read_definter_type25.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_type25( 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 : ncharfield, 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
63 . IGSTI,IBID,IGAP,IREM25I2,IBAG,IDEL25,IEDGE,
64 . IGAP0,ISHARP,IVIS2,INACTI,MFROT,IFQ,MODFR,IDSENS,INTFRIC,
65 . IPRINT,IASSIGN,ITHK
66 my_real
67 . gapscale,percent_size,
68 . penmin,fric,gap,startt,stopt,visc,viscf,
69 . bumult,alpha,pmax
70 CHARACTER(LEN=NCHARFIELD) :: BCFLAG, BCFLAGM
71 CHARACTER(LEN=NCHARKEY) :: KEY,KEY1
72 LOGICAL IS_AVAILABLE
73
74C============================================================================
75C READING DEFAULT VALUES INTERFACE TYPE25 (/DEFAULT/INTER/TYPE25)
76C============================================================================
77C
78 igsti = 0
79 ibag=0
80 inacti = 0
81 idsens = 0
82 mfrot=0
83 ifq=0
84 intfric = 0
85 ithk = 0
86 modfr = 0
87C
88 gapscale = zero
89 percent_size = zero
90 fric = zero
91 gap = zero
92 startt = zero
93 stopt=ep30
94 viscf = zero
95 visc = zero
96 pmax = ep30
97C
98 iassign = 0
99C---------------------------------------------------------------
100 iprint = 0
101C
102 is_available = .false.
103C--------------------------------------------------
104C EXTRACT DATAS (INTEGER VALUES)
105C--------------------------------------------------
106 CALL hm_get_intv('Istf',igsti,is_available,lsubmodel)
107 CALL hm_get_intv('Igap',igap,is_available,lsubmodel)
108 CALL hm_get_intv('Irem_i2',irem25i2,is_available,lsubmodel)
109 CALL hm_get_intv('TYPE24_Idel',idel25,is_available,lsubmodel)
110 CALL hm_get_intv('Iedge',iedge,is_available,lsubmodel)
111 CALL hm_get_intv('Itied',igap0,is_available,lsubmodel)
112 CALL hm_get_intv('Ishape',isharp,is_available,lsubmodel)
113 CALL hm_get_intv('Irs',intfric,is_available,lsubmodel)
114C
115 key1='IGSTI'
116 CALL definter(key1 ,igsti ,iassign ,iprint ,
117 . ntyp ,def_inter)
118C
119 key1='IGAP'
120 CALL definter(key1 ,igap ,iassign ,iprint ,
121 . ntyp ,def_inter)
122C
123 key1='IREM25I2'
124 CALL definter(key1 ,irem25i2 ,iassign ,iprint ,
125 . ntyp ,def_inter)
126C
127 key1='IEDGE'
128 CALL definter(key1 ,iedge ,iassign ,iprint ,
129 . ntyp ,def_inter)
130C
131 key1='IBAG'
132 CALL definter(key1 ,ibag ,iassign ,iprint ,
133 . ntyp ,def_inter)
134C
135 key1='IDEL25'
136 CALL definter(key1 ,idel25 ,iassign ,iprint ,
137 . ntyp ,def_inter)
138C
139 key1='IGAP0'
140 CALL definter(key1 ,igap0 ,iassign ,iprint ,
141 . ntyp ,def_inter)
142C
143 key1='ISHARP'
144 CALL definter(key1 ,isharp ,iassign ,iprint ,
145 . ntyp ,def_inter)
146
147 CALL hm_get_intv('Irs',inacti,is_available,lsubmodel)
148
149 key1='INACTI'
150 CALL definter(key1 ,inacti ,iassign ,iprint ,
151 . ntyp ,def_inter)
152C
153 key1='ITHK'
154 CALL definter(key1 ,ithk ,iassign ,iprint ,
155 . ntyp ,def_inter)
156C
157C----------------------------------------------------
158C DEFAULT VALUES PRINT
159C----------------------------------------------------
160 iprint = 1
161c
162 key1='IGSTI'
163 CALL definter(key1 ,igsti ,iassign ,iprint ,
164 . ntyp ,def_inter)
165C
166 key1='IGAP'
167 CALL definter(key1 ,igap ,iassign ,iprint ,
168 . ntyp ,def_inter)
169C
170 key1='IREM25I2'
171 CALL definter(key1 ,irem25i2 ,iassign ,iprint ,
172 . ntyp ,def_inter)
173C
174 key1='IEDGE'
175 CALL definter(key1 ,iedge ,iassign ,iprint ,
176 . ntyp ,def_inter)
177C
178 key1='IBAG'
179 CALL definter(key1 ,ibag ,iassign ,iprint ,
180 . ntyp ,def_inter)
181C
182 key1='IDEL25'
183 CALL definter(key1 ,idel25 ,iassign ,iprint ,
184 . ntyp ,def_inter)
185C
186 key1='IGAP0'
187 CALL definter(key1 ,igap0 ,iassign ,iprint ,
188 . ntyp ,def_inter)
189C
190 key1='ISHARP'
191 CALL definter(key1 ,isharp ,iassign ,iprint ,
192 . ntyp ,def_inter)
193C
194 key1='INACTI'
195 CALL definter(key1 ,inacti ,iassign ,iprint ,
196 . ntyp ,def_inter)
197C
198 key1='ITHK'
199 CALL definter(key1 ,ithk ,iassign ,iprint ,
200 . ntyp ,def_inter)
201C
202 WRITE(iout,5025) igsti,igap,igap0,isharp,iedge,idel25,irem25i2,inacti,modfr
203C
204C--------------------------------------------------------------
205 RETURN
206C--------------------------------------------------------------
207
208 5025 FORMAT(/
209 . ' INTERFACE TYPE 25 ' //,
210 . ' STIFFNESS FORMULATION. . . . . . . . . . ',i5/,
211 . ' GAP FLAG. . . . . . . . . . . . . . . . . ',i5/,
212 . ' ZERO GAP FOR SECONDARY SHELL ON FREE EDGE ',i5/,
213 . ' GAP SHAPE ALONG MAIN FREE EDGES . . . . ',/,
214 . ' (1:SQUARE,2:CYLINDRICAL) . . . . .',i5/,
215 . ' EDGE FLAG . . . . . . . . . . . . . . . . ',i5/,
216 . ' DELETION FLAG ON FAILURE OF MAIN ELEMENT',i5/,
217 . ' DE-ACTIVATION FLAG IF CONFLICTING W/ TYPE2',i10/,
218 . ' DE-ACTIVATION OF INITIAL PENETRATIONS . . ',i5/,
219 . ' FRICTION FORMULATION. . . . . . . . . . . ',i5/)
220C--------------------------------------------------------------
221 END
my_real
#define my_real
Definition cppsort.cpp:32
definter
subroutine definter(key, ival, flag, iprint, ityp, def_inter)
Definition definter.F:46
alpha
#define alpha
Definition eval.h:35
hm_get_intv
subroutine hm_get_intv(name, ival, is_available, lsubmodel)
Definition hm_get_intv.F:523
hm_read_definter_type25
subroutine hm_read_definter_type25(ntyp, def_inter, lsubmodel)
Definition hm_read_definter_type25.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
names_and_titles_mod::ncharfield
integer, parameter ncharfield
Definition names_and_titles_mod.F:1005
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