OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
init_mat_keyword.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!|| init_mat_keyword ../starter/source/materials/mat/init_mat_keyword.f
25!||--- called by ------------------------------------------------------
26!|| hm_read_mat ../starter/source/materials/mat/hm_read_mat.F90
27!|| hm_read_mat00 ../starter/source/materials/mat/mat000/hm_read_mat00.F
28!|| hm_read_mat01 ../starter/source/materials/mat/mat001/hm_read_mat01.F
29!|| hm_read_mat02_jc ../starter/source/materials/mat/mat002/hm_read_mat02_jc.F90
30!|| hm_read_mat02_predef ../starter/source/materials/mat/mat002/hm_read_mat02_predef.F90
31!|| hm_read_mat02_zerilli ../starter/source/materials/mat/mat002/hm_read_mat02_zerilli.F90
32!|| hm_read_mat03 ../starter/source/materials/mat/mat003/hm_read_mat03.F
33!|| hm_read_mat04 ../starter/source/materials/mat/mat004/hm_read_mat04.F
34!|| hm_read_mat05 ../starter/source/materials/mat/mat005/hm_read_mat05.F
35!|| hm_read_mat06 ../starter/source/materials/mat/mat006/hm_read_mat06.F
36!|| hm_read_mat06_keps ../starter/source/materials/mat/mat006/hm_read_mat06_keps.F
37!|| hm_read_mat10 ../starter/source/materials/mat/mat010/hm_read_mat10.F
38!|| hm_read_mat100 ../starter/source/materials/mat/mat100/hm_read_mat100.F
39!|| hm_read_mat101 ../starter/source/materials/mat/mat101/hm_read_mat101.F
40!|| hm_read_mat102 ../starter/source/materials/mat/mat102/hm_read_mat102.F
41!|| hm_read_mat103 ../starter/source/materials/mat/mat103/hm_read_mat103.F
42!|| hm_read_mat104 ../starter/source/materials/mat/mat104/hm_read_mat104.F
43!|| hm_read_mat105 ../starter/source/materials/mat/mat105/hm_read_mat105.F90
44!|| hm_read_mat106 ../starter/source/materials/mat/mat106/hm_read_mat106.F90
45!|| hm_read_mat107 ../starter/source/materials/mat/mat107/hm_read_mat107.F
46!|| hm_read_mat108 ../starter/source/materials/mat/mat108/hm_read_mat108.F
47!|| hm_read_mat109 ../starter/source/materials/mat/mat109/hm_read_mat109.F
48!|| hm_read_mat11 ../starter/source/materials/mat/mat011/hm_read_mat11.F
49!|| hm_read_mat110 ../starter/source/materials/mat/mat110/hm_read_mat110.F
50!|| hm_read_mat111 ../starter/source/materials/mat/mat111/hm_read_mat111.F
51!|| hm_read_mat112 ../starter/source/materials/mat/mat112/hm_read_mat112.F
52!|| hm_read_mat113 ../starter/source/materials/mat/mat113/hm_read_mat113.F
53!|| hm_read_mat114 ../starter/source/materials/mat/mat114/hm_read_mat114.F
54!|| hm_read_mat115 ../starter/source/materials/mat/mat115/hm_read_mat115.F
55!|| hm_read_mat116 ../starter/source/materials/mat/mat116/hm_read_mat116.F
56!|| hm_read_mat117 ../starter/source/materials/mat/mat117/hm_read_mat117.F
57!|| hm_read_mat119 ../starter/source/materials/mat/mat119/hm_read_mat119.F
58!|| hm_read_mat11_k_eps ../starter/source/materials/mat/mat011/hm_read_mat11_k_eps.f
59!|| hm_read_mat12 ../starter/source/materials/mat/mat012/hm_read_mat12.F
60!|| hm_read_mat120 ../starter/source/materials/mat/mat120/hm_read_mat120.F
61!|| hm_read_mat121 ../starter/source/materials/mat/mat121/hm_read_mat121.F
62!|| hm_read_mat122 ../starter/source/materials/mat/mat122/hm_read_mat122.f
63!|| hm_read_mat124 ../starter/source/materials/mat/mat124/hm_read_mat124.F
64!|| hm_read_mat125 ../starter/source/materials/mat/mat125/hm_read_mat125.F90
65!|| hm_read_mat126 ../starter/source/materials/mat/mat126/hm_read_mat126.F90
66!|| hm_read_mat127 ../starter/source/materials/mat/mat127/hm_read_mat127.F90
67!|| hm_read_mat128 ../starter/source/materials/mat/mat128/hm_read_mat128.F90
68!|| hm_read_mat129 ../starter/source/materials/mat/mat129/hm_read_mat129.F90
69!|| hm_read_mat13 ../starter/source/materials/mat/mat013/hm_read_mat13.F
70!|| hm_read_mat130 ../starter/source/materials/mat/mat130/hm_read_mat130.F90
71!|| hm_read_mat133 ../starter/source/materials/mat/mat133/hm_read_mat133.F90
72!|| hm_read_mat134 ../starter/source/materials/mat/mat134/hm_read_mat134.F90
73!|| hm_read_mat14 ../starter/source/materials/mat/mat014/hm_read_mat14.F
74!|| hm_read_mat15 ../starter/source/materials/mat/mat015/hm_read_mat15.F
75!|| hm_read_mat151 ../starter/source/materials/mat/mat151/hm_read_mat151.F
76!|| hm_read_mat158 ../starter/source/materials/mat/mat158/hm_read_mat158.F
77!|| hm_read_mat16 ../starter/source/materials/mat/mat016/hm_read_mat16.F
78!|| hm_read_mat163 ../starter/source/materials/mat/mat163/hm_read_mat163.F90
79!|| hm_read_mat169_arup ../starter/source/materials/mat/mat169/hm_read_mat169.F90
80!|| hm_read_mat18 ../starter/source/materials/mat/mat018/hm_read_mat18.F
81!|| hm_read_mat19 ../starter/source/materials/mat/mat019/hm_read_mat19.F
82!|| hm_read_mat190 ../starter/source/materials/mat/mat190/hm_read_mat190.F
83!|| hm_read_mat20 ../starter/source/materials/mat/mat020/hm_read_mat20.F
84!|| hm_read_mat21 ../starter/source/materials/mat/mat021/hm_read_mat21.f
85!|| hm_read_mat22 ../starter/source/materials/mat/mat022/hm_read_mat22.F
86!|| hm_read_mat23 ../starter/source/materials/mat/mat023/hm_read_mat23.F
87!|| hm_read_mat24 ../starter/source/materials/mat/mat024/hm_read_mat24.F
88!|| hm_read_mat25 ../starter/source/materials/mat/mat025/hm_read_mat25.f
89!|| hm_read_mat26 ../starter/source/materials/mat/mat026/hm_read_mat26.F
90!|| hm_read_mat27 ../starter/source/materials/mat/mat027/hm_read_mat27.f
91!|| hm_read_mat28 ../starter/source/materials/mat/mat028/hm_read_mat28.F
92!|| hm_read_mat29_31 ../starter/source/materials/mat/matuser/hm_read_mat_user29_31.F
93!|| hm_read_mat32 ../starter/source/materials/mat/mat032/hm_read_mat32.F
94!|| hm_read_mat33 ../starter/source/materials/mat/mat033/hm_read_mat33.F
95!|| hm_read_mat34 ../starter/source/materials/mat/mat034/hm_read_mat34.F
96!|| hm_read_mat35 ../starter/source/materials/mat/mat035/hm_read_mat35.F
97!|| hm_read_mat36 ../starter/source/materials/mat/mat036/hm_read_mat36.F
98!|| hm_read_mat37 ../starter/source/materials/mat/mat037/hm_read_mat37.F
99!|| hm_read_mat38 ../starter/source/materials/mat/mat038/hm_read_mat38.F
100!|| hm_read_mat40 ../starter/source/materials/mat/mat040/hm_read_mat40.F
101!|| hm_read_mat41 ../starter/source/materials/mat/mat041/hm_read_mat41.F
102!|| hm_read_mat42 ../starter/source/materials/mat/mat042/hm_read_mat42.F
103!|| hm_read_mat43 ../starter/source/materials/mat/mat043/hm_read_mat43.F
104!|| hm_read_mat44 ../starter/source/materials/mat/mat044/hm_read_mat44.F
105!|| hm_read_mat46 ../starter/source/materials/mat/mat046/hm_read_mat46.f
106!|| hm_read_mat48 ../starter/source/materials/mat/mat048/hm_read_mat48.F
107!|| hm_read_mat49 ../starter/source/materials/mat/mat049/hm_read_mat49.F
108!|| hm_read_mat50 ../starter/source/materials/mat/mat050/hm_read_mat50.F90
109!|| hm_read_mat51 ../starter/source/materials/mat/mat051/hm_read_mat51.F
110!|| hm_read_mat52 ../starter/source/materials/mat/mat052/hm_read_mat52.F
111!|| hm_read_mat53 ../starter/source/materials/mat/mat053/hm_read_mat53.F
112!|| hm_read_mat54 ../starter/source/materials/mat/mat054/hm_read_mat54.F
113!|| hm_read_mat57 ../starter/source/materials/mat/mat057/hm_read_mat57.F90
114!|| hm_read_mat58 ../starter/source/materials/mat/mat058/hm_read_mat58.F
115!|| hm_read_mat59 ../starter/source/materials/mat/mat059/hm_read_mat59.f
116!|| hm_read_mat60 ../starter/source/materials/mat/mat060/hm_read_mat60.F
117!|| hm_read_mat62 ../starter/source/materials/mat/mat062/hm_read_mat62.F
118!|| hm_read_mat63 ../starter/source/materials/mat/mat063/hm_read_mat63.F
119!|| hm_read_mat64 ../starter/source/materials/mat/mat064/hm_read_mat64.F
120!|| hm_read_mat65 ../starter/source/materials/mat/mat065/hm_read_mat65.F
121!|| hm_read_mat66 ../starter/source/materials/mat/mat066/hm_read_mat66.f
122!|| hm_read_mat68 ../starter/source/materials/mat/mat068/hm_read_mat68.F
123!|| hm_read_mat69 ../starter/source/materials/mat/mat069/hm_read_mat69.F
124!|| hm_read_mat70 ../starter/source/materials/mat/mat070/hm_read_mat70.F
125!|| hm_read_mat71 ../starter/source/materials/mat/mat071/hm_read_mat71.F
126!|| hm_read_mat72 ../starter/source/materials/mat/mat072/hm_read_mat72.F
127!|| hm_read_mat73 ../starter/source/materials/mat/mat073/hm_read_mat73.F
128!|| hm_read_mat74 ../starter/source/materials/mat/mat074/hm_read_mat74.F
129!|| hm_read_mat75 ../starter/source/materials/mat/mat075/hm_read_mat75.F
130!|| hm_read_mat76 ../starter/source/materials/mat/mat076/hm_read_mat76.F
131!|| hm_read_mat77 ../starter/source/materials/mat/mat077/hm_read_mat77.F
132!|| hm_read_mat78 ../starter/source/materials/mat/mat078/hm_read_mat78.f
133!|| hm_read_mat79 ../starter/source/materials/mat/mat079/hm_read_mat79.F
134!|| hm_read_mat80 ../starter/source/materials/mat/mat080/hm_read_mat80.F
135!|| hm_read_mat81 ../starter/source/materials/mat/mat081/hm_read_mat81.f90
136!|| hm_read_mat82 ../starter/source/materials/mat/mat082/hm_read_mat82.F
137!|| hm_read_mat83 ../starter/source/materials/mat/mat083/hm_read_mat83.F
138!|| hm_read_mat84 ../starter/source/materials/mat/mat084/hm_read_mat84.F
139!|| hm_read_mat87 ../starter/source/materials/mat/mat087/hm_read_mat87.F90
140!|| hm_read_mat88 ../starter/source/materials/mat/mat088/hm_read_mat88.F90
141!|| hm_read_mat90 ../starter/source/materials/mat/mat090/hm_read_mat90.F
142!|| hm_read_mat92 ../starter/source/materials/mat/mat092/hm_read_mat92.F
143!|| hm_read_mat93 ../starter/source/materials/mat/mat093/hm_read_mat93.F
144!|| hm_read_mat94 ../starter/source/materials/mat/mat094/hm_read_mat94.F
145!|| hm_read_mat95 ../starter/source/materials/mat/mat095/hm_read_mat95.F
146!|| hm_read_mat97 ../starter/source/materials/mat/mat097/hm_read_mat97.F
147!|| hm_read_mat_99 ../starter/source/materials/mat/matuser/hm_read_mat_user_99.F
148!|| hm_read_visc ../starter/source/materials/visc/hm_read_visc.F
149!|| sgrtails ../starter/source/elements/solid/solide/sgrtails.F
150!||--- uses -----------------------------------------------------
151!||====================================================================
152 SUBROUTINE init_mat_keyword(MATPARAM,KEYWORD)
153C-----------------------------------------------
154C M o d u l e s
155C-----------------------------------------------
156 USE matparam_def_mod
157C============================================================================
158C I m p l i c i t T y p e s
159C-----------------------------------------------
160#include "implicit_f.inc"
161C-----------------------------------------------
162C D u m m y A r g u m e n t s
163C-----------------------------------------------
164 CHARACTER(LEN=*) :: KEYWORD
165 TYPE(matparam_struct_) ,INTENT(INOUT) :: MATPARAM
166C=======================================================================
167 SELECT CASE (keyword)
168c---
169 CASE ("COMPRESSIBLE")
170 matparam%COMPRESSIBILITY = 1
171c
172 CASE ("INCOMPRESSIBLE")
173 matparam%COMPRESSIBILITY = 2
174c
175 CASE ("ELASTO_PLASTIC")
176 matparam%COMPRESSIBILITY = 3
177c
178 CASE ("INCREMENTAL")
179 matparam%STRAIN_FORMULATION = 1
180c
181 CASE ("TOTAL")
182 matparam%STRAIN_FORMULATION = 2
183c
184 CASE ("LARGE_STRAIN")
185 matparam%SMSTR = 2
186c
187 CASE ("SMALL_STRAIN")
188 matparam%SMSTR = 1
189c
190 CASE ("HYDROSTATIC")
191 matparam%IPRES = 1
192c
193 CASE ("HYDRO_EOS")
194 matparam%IPRES = 2
195c
196 CASE ("HOOK")
197 matparam%IPRES = 3
198c
199 CASE ("ISOTROPIC")
200 matparam%ORTHOTROPY = 1
201c
202 CASE ("ORTHOTROPIC")
203 matparam%ORTHOTROPY = 2
204c
205 CASE ("ANISOTROPIC")
206 matparam%ORTHOTROPY = 3
207c
208 CASE ("SOLID_ISOTROPIC") ! Compatibility with /PROP/TYPE 6/14/20/21/22
209 matparam%PROP_SOLID = 1
210c
211 CASE ("SOLID_ORTHOTROPIC") ! Compatibility with /PROP/TYPE 6/21/22
212 matparam%PROP_SOLID = 2
213c
214 CASE ("SOLID_COMPOSITE") ! Compatibility with /PROP/TYPE 22
215 matparam%PROP_SOLID = 3
216c
217 CASE ("SOLID_COHESIVE") ! Compatibility with /PROP/TYPE 43
218 matparam%PROP_SOLID = 4
219c
220 CASE ("SOLID_POROUS") ! Compatibility with /PROP/TYPE 14/15
221 matparam%PROP_SOLID = 5
222c
223 CASE ("SOLID_ALL") ! Compatibility with /PROP/TYPE 6/14/20/21/22/43
224 matparam%PROP_SOLID = 6
225c
226 CASE ("SHELL_ISOTROPIC") ! Compatibility with /PROP/TYPE 1/9/10/11/17/19/51/52
227 matparam%PROP_SHELL = 1
228c
229 CASE ("SHELL_ORTHOTROPIC") ! Compatibility with /PROP/TYPE 9/10/11/17/19/51/52
230 matparam%PROP_SHELL = 2
231c
232 CASE ("SHELL_COMPOSITE") ! Compatibility with /PROP/TYPE 10/11/17/19/51/52
233 matparam%PROP_SHELL = 3
234c
235 CASE ("SHELL_ANISOTROPIC") ! Compatibility with /PROP/TYPE 10/11/16/17/19/51/52
236 matparam%PROP_SHELL = 4
237c
238 CASE ("SHELL_ALL") ! Compatibility with /PROP/TYPE 1/9/10/11/16/17/19/51/52
239 matparam%PROP_SHELL = 5
240c
241 CASE ("BEAM_CLASSIC") ! Compatibility with /PROP/TYPE 3
242 matparam%PROP_BEAM = 1
243c
244 CASE ("BEAM_INTEGRATED") ! Compatibility with /PROP/TYPE 18
245 matparam%PROP_BEAM = 2
246c
247 CASE ("BEAM_ALL") ! Compatibility with /PROP/TYPE 3/18
248 matparam%PROP_BEAM = 3
249c
250 CASE ("SPRING_PREDIT") ! Compatibility with /PROP/TYPE 36
251 matparam%PROP_SPRING = 1
252c
253 CASE ("SPRING_MATERIAL") ! Compatibility with /PROP/TYPE 23
254 matparam%PROP_SPRING = 2
255c
256 CASE ("SPRING_ALL") ! Compatibility with /PROP/TYPE 23/36
257 matparam%PROP_SPRING = 3
258c
259 CASE ("TRUSS") ! Compatibility with /PROP/TYPE 2
260 matparam%PROP_TRUSS = 1
261c
262 CASE ("SPH") ! Compatibility with /PROP/TYPE 34
263 matparam%PROP_SPH = 1
264c
265 CASE ("EOS")
266 matparam%COMPATIBILITY_EOS = 1 ! Compatibility with option /EOS
267c
268 CASE ("VISC")
269 matparam%COMPATIBILITY_VISC = 1 ! Compatibility with option /VISC
270 CASE DEFAULT
271 ! write error : keyword not recognized"
272c---
273 END SELECT
274c-----------
275 RETURN
276 END
hm_read_mat11_k_eps
subroutine hm_read_mat11_k_eps(lsubmodel, mtag, unitab, ipm, pm, mat_id, titr, matparam)
Definition hm_read_mat11_k_eps.F:41
hm_read_mat122
subroutine hm_read_mat122(uparam, maxuparam, nuparam, nuvar, maxfunc, nfunc, ifunc, mtag, parmat, unitab, pm, lsubmodel, israte, mat_id, titr, matparam, nvartmp)
Definition hm_read_mat122.F:44
hm_read_mat21
subroutine hm_read_mat21(lsubmodel, mtag, unitab, ipm, pm, mat_id, titr, matparam)
Definition hm_read_mat21.F:42
hm_read_mat25
subroutine hm_read_mat25(uparam, maxuparam, nuparam, unitab, lsubmodel, mtag, id, titr, pm, israte, parmat, matparam)
Definition hm_read_mat25.F:43
hm_read_mat27
subroutine hm_read_mat27(mtag, parmat, unitab, pm, lsubmodel, israte, mat_id, titr, matparam)
Definition hm_read_mat27.F:41
hm_read_mat46
subroutine hm_read_mat46(uparam, maxuparam, nuparam, israte, imatvis, nuvar, ifunc, maxfunc, nfunc, parmat, unitab, mat_id, titr, mtag, lsubmodel, pm, ipm, matparam)
Definition hm_read_mat46.F:41
hm_read_mat59
subroutine hm_read_mat59(uparam, maxuparam, nuparam, israte, imatvis, nuvar, ifunc, maxfunc, nfunc, parmat, unitab, id, titr, mtag, lsubmodel, pm, matparam)
Definition hm_read_mat59.F:46
hm_read_mat66
subroutine hm_read_mat66(uparam, maxuparam, nuparam, nuvar, ifunc, maxfunc, mfunc, parmat, unitab, id, mtag, titr, lsubmodel, pm, matparam)
Definition hm_read_mat66.F:46
hm_read_mat78
subroutine hm_read_mat78(uparam, maxuparam, nuparam, israte, imatvis, nuvar, ifunc, maxfunc, nfunc, parmat, unitab, mat_id, titr, mtag, lsubmodel, pm, nvartmp, matparam)
Definition hm_read_mat78.F:44
init_mat_keyword
subroutine init_mat_keyword(matparam, keyword)
Definition init_mat_keyword.F:153
starter
program starter
Definition starter.F:39