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