OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
hm_read_mat68.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_mat68 ../starter/source/materials/mat/mat068/hm_read_mat68.F
25!||--- called by ------------------------------------------------------
26!|| hm_read_mat ../starter/source/materials/mat/hm_read_mat.F90
27!||--- calls -----------------------------------------------------
28!|| hm_get_floatv ../starter/source/devtools/hm_reader/hm_get_floatv.F
29!|| hm_get_floatv_dim ../starter/source/devtools/hm_reader/hm_get_floatv_dim.F
30!|| hm_get_intv ../starter/source/devtools/hm_reader/hm_get_intv.F
31!|| hm_option_is_encrypted ../starter/source/devtools/hm_reader/hm_option_is_encrypted.F
32!|| init_mat_keyword ../starter/source/materials/mat/init_mat_keyword.F
33!||--- uses -----------------------------------------------------
34!|| elbuftag_mod ../starter/share/modules1/elbuftag_mod.F
35!|| message_mod ../starter/share/message_module/message_mod.F
36!|| submodel_mod ../starter/share/modules1/submodel_mod.F
37!||====================================================================
38 SUBROUTINE hm_read_mat68(UPARAM ,MAXUPARAM,NUPARAM ,ISRATE , IMATVIS ,
39 . NUVAR ,IFUNC ,MAXFUNC ,NFUNC , PARMAT ,
40 . UNITAB ,MAT_ID ,TITR ,MTAG , LSUBMODEL,
41 . PM ,IPM ,MATPARAM )
42C-----------------------------------------------
43C D e s c r i p t i o n
44C-----------------------------------------------
45C READ MAT LAW68 WITH HM READER
46C
47C DUMMY ARGUMENTS DESCRIPTION:
48C ===================
49C
50C NAME DESCRIPTION
51C
52C PM MATERIAL ARRAY(REAL)
53C UNITAB UNITS ARRAY
54C ID MATERIAL ID(INTEGER)
55C TITR MATERIAL TITLE
56C LSUBMODEL SUBMODEL STRUCTURE
57C
58C-----------------------------------------------
59C M o d u l e s
60C-----------------------------------------------
61 USE unitab_mod
62 USE elbuftag_mod
63 USE message_mod
64 USE submodel_mod
65 USE matparam_def_mod
66 USE names_and_titles_mod , ONLY : nchartitle
67C-----------------------------------------------
68C I m p l i c i t T y p e s
69C-----------------------------------------------
70#include "implicit_f.inc"
71C-----------------------------------------------
72C C o m m o n B l o c k s
73C-----------------------------------------------
74#include "units_c.inc"
75#include "com01_c.inc"
76#include "param_c.inc"
77C-----------------------------------------------
78C D u m m y A r g u m e n t s
79C-----------------------------------------------
80 TYPE (UNIT_TYPE_),INTENT(IN) ::UNITAB
81 my_real, INTENT(INOUT) :: PM(NPROPM),PARMAT(100),UPARAM(MAXUPARAM)
82 INTEGER, INTENT(INOUT) :: IPM(NPROPMI),ISRATE,IFUNC(MAXFUNC),NFUNC,MAXFUNC,MAXUPARAM,NUPARAM, NUVAR,IMATVIS
83 TYPE(mlaw_tag_),INTENT(INOUT) :: MTAG
84 INTEGER,INTENT(IN) :: MAT_ID
85 CHARACTER(LEN=NCHARTITLE) ,INTENT(IN) :: TITR
86 TYPE(submodel_data),INTENT(IN) :: LSUBMODEL(NSUBMOD)
87 TYPE(matparam_struct_) ,INTENT(INOUT) :: MATPARAM
88C-----------------------------------------------
89C L o c a l V a r i a b l e s
90C-----------------------------------------------
91 my_real
92 . e11,e22,e33,g12,g23,g31,emx11,emx22,emx33,emx12,emx23,emx31,
93 . emf11,emf22,emf33,emf12,emf23,emf31,
94 . fac1,fac2,fac3,fac4,fac5,fac6,fac7,fac8,fac9,
95 . fac10,fac11,fac12,fac13,fac14,fac15,fac16,fac17,fac18
96 my_real dmin,dmax
97 INTEGER I11,I22,I33,I12,I23,I31,I21,I32,I13,IF1,IF2
98 INTEGER J11,J22,J33,J12,J23,J31,J21,J32,J13
99 my_real :: rho0, rhor, fac_unit
100 LOGICAL :: IS_AVAILABLE,IS_ENCRYPTED
101C-----------------------------------------------
102C S o u r c e L i n e s
103C-----------------------------------------------
104 ifrwv = max(1,ifrwv)
105
106 is_encrypted = .false.
107 is_available = .false.
108 israte = 0
109 imatvis = 0
110 mtag%G_GAMA = 6
111 mtag%L_SIGL = 6
112 mtag%L_SIGD = 6
113 mtag%L_EPSA = 1 ! hyperelastic energy needed for mullins
114 nuparam=38
115 nfunc=18
116 nuvar=18
117
118 CALL hm_option_is_encrypted(is_encrypted)
119 !line+1
120 CALL hm_get_floatv('MAT_RHO' ,rho0 ,is_available, lsubmodel, unitab)
121 CALL hm_get_floatv('refer_rho' ,RHOR ,IS_AVAILABLE, LSUBMODEL, UNITAB)
122 !line-2
123 CALL HM_GET_FLOATV('mat_ea' ,E11 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
124 CALL HM_GET_FLOATV('mat_eb' ,E22 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
125 CALL HM_GET_FLOATV('mat_ec' ,E33 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
126 !line-3
127 CALL HM_GET_FLOATV('mat_gab' ,G12 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
128 CALL HM_GET_FLOATV('mat_gbc' ,G23 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
129 CALL HM_GET_FLOATV('mat_gca' ,G31 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
130 !line-4
131 CALL HM_GET_INTV ('fun_a1' ,I11 ,IS_AVAILABLE, LSUBMODEL)
132 CALL HM_GET_INTV ('fun_b1' ,I22 ,IS_AVAILABLE, LSUBMODEL)
133 CALL HM_GET_INTV ('fun_a2' ,I33 ,IS_AVAILABLE, LSUBMODEL)
134 CALL HM_GET_INTV ('gflag' ,IF1 ,IS_AVAILABLE, LSUBMODEL)
135 CALL HM_GET_FLOATV('fscale11' ,FAC1 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
136 CALL HM_GET_FLOATV('fscale22' ,FAC2 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
137 CALL HM_GET_FLOATV('fscale33' ,FAC3 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
138 !line-5
139 CALL HM_GET_FLOATV('mat_epsr1' ,EMX11 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
140 CALL HM_GET_FLOATV('mat_epsr2' ,EMX22 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
141 CALL HM_GET_FLOATV('mat_epsr3' ,EMX33 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
142 !line-6
143 CALL HM_GET_INTV ('fun_a3' ,I12 ,IS_AVAILABLE, LSUBMODEL)
144 CALL HM_GET_INTV ('fun_b3' ,I23 ,IS_AVAILABLE, LSUBMODEL)
145 CALL HM_GET_INTV ('fun_a4' ,I31 ,IS_AVAILABLE, LSUBMODEL)
146 CALL HM_GET_INTV ('vflag' ,IF2 ,IS_AVAILABLE, LSUBMODEL)
147 CALL HM_GET_FLOATV('fscale12' ,FAC4 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
148 CALL HM_GET_FLOATV('fscale23' ,FAC5 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
149 CALL HM_GET_FLOATV('fscale31' ,FAC6 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
150 !line-7
151 CALL HM_GET_FLOATV('mat_epsr4' ,EMX12 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
152 CALL HM_GET_FLOATV('mat_epsr5' ,EMX23 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
153 CALL HM_GET_FLOATV('mat_epsr6' ,EMX31 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
154 !line-8
155 CALL HM_GET_INTV ('fun_b4' ,I21 ,IS_AVAILABLE, LSUBMODEL)
156 CALL HM_GET_INTV ('fun_b5' ,I32 ,IS_AVAILABLE, LSUBMODEL)
157 CALL HM_GET_INTV ('fun_b6' ,I13 ,IS_AVAILABLE, LSUBMODEL)
158 CALL HM_GET_FLOATV('fscale21' ,FAC7 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
159 CALL HM_GET_FLOATV('fscale32' ,FAC8 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
160 CALL HM_GET_FLOATV('fscale13' ,FAC9 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
161 !line-9
162 CALL HM_GET_INTV ('mat_yfun11_2' ,J11 ,IS_AVAILABLE, LSUBMODEL)
163 CALL HM_GET_INTV ('mat_yfun22_2' ,J22 ,IS_AVAILABLE, LSUBMODEL)
164 CALL HM_GET_INTV ('mat_yfun33_2' ,J33 ,IS_AVAILABLE, LSUBMODEL)
165 CALL HM_GET_FLOATV('fscale11_2' ,FAC10 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
166 CALL HM_GET_FLOATV('fscale22_2' ,FAC11 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
167 CALL HM_GET_FLOATV('fscale33_2' ,FAC12 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
168 !line-10
169 CALL HM_GET_FLOATV('mat_eps11_2' ,EMF11 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
170 CALL HM_GET_FLOATV('mat_eps22_2' ,EMF22 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
171 CALL HM_GET_FLOATV('mat_eps33_2' ,EMF33 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
172 !line-11
173 CALL HM_GET_INTV ('mat_yfun12_2' ,J12 ,IS_AVAILABLE, LSUBMODEL)
174 CALL HM_GET_INTV ('mat_yfun23_2' ,J23 ,IS_AVAILABLE, LSUBMODEL)
175 CALL HM_GET_INTV ('mat_yfun31_2' ,J31 ,IS_AVAILABLE, LSUBMODEL)
176 CALL HM_GET_FLOATV('fscale12_2' ,FAC13 ,IS_AVAILABLE, LSUBMODEL, UNITAB)
177 CALL HM_GET_FLOATV('fscale23_2' ,fac14 ,is_available, lsubmodel, unitab)
178 CALL hm_get_floatv('FScale31_2' ,fac15 ,is_available, lsubmodel, unitab)
179 !line-12
180 CALL hm_get_floatv('MAT_EPS12_2' ,emf12 ,is_available, lsubmodel, unitab)
181 CALL hm_get_floatv('MAT_EPS23_2' ,emf23 ,is_available, lsubmodel, unitab)
182 CALL hm_get_floatv('MAT_EPS31_2' ,emf31 ,is_available, lsubmodel, unitab)
183 !line-13
184 CALL hm_get_intv ('MAT_YFUN21_2' ,j21 ,is_available, lsubmodel)
185 CALL hm_get_intv ('MAT_YFUN32_2' ,j32 ,is_available, lsubmodel)
186 CALL hm_get_intv ('MAT_YFUN13_2' ,j13 ,is_available, lsubmodel)
187 CALL hm_get_floatv('FScale21_2' ,fac16 ,is_available, lsubmodel, unitab)
188 CALL hm_get_floatv('FScale32_2' ,fac17 ,is_available, lsubmodel, unitab)
189 CALL hm_get_floatv('FScale13_2' ,fac18 ,is_available, lsubmodel, unitab)
190 !units
191 CALL hm_get_floatv_dim('FScale11' ,fac_unit,is_available, lsubmodel, unitab)
192
193 !---DEFAULT VALUES
194 IF(rhor == zero)rhor=rho0
195 pm(1) =rhor
196 pm(89)=rho0
197 IF (fac1 == zero) fac1 = one*fac_unit
198 IF (fac2 == zero) fac2 = one*fac_unit
199 IF (fac3 == zero) fac3 = one*fac_unit
200 IF (fac4 == zero) fac4 = one*fac_unit
201 IF (fac5 == zero) fac5 = one*fac_unit
202 IF (fac6 == zero) fac6 = one*fac_unit
203 IF (fac7 == zero) fac7 = one*fac_unit
204 IF (fac8 == zero) fac8 = one*fac_unit
205 IF (fac9 == zero) fac9 = one*fac_unit
206 IF (fac10== zero) fac10 = one*fac_unit
207 IF (fac11== zero) fac11 = one*fac_unit
208 IF (fac12== zero) fac12 = one*fac_unit
209 IF (fac13== zero) fac13 = one*fac_unit
210 IF (fac14== zero) fac14 = one*fac_unit
211 IF (fac15== zero) fac15 = one*fac_unit
212 IF (fac16== zero) fac16 = one*fac_unit
213 IF (fac17== zero) fac17 = one*fac_unit
214 IF (fac18== zero) fac18 = one*fac_unit
215
216 !---STORAGE
217 uparam(1)=e11
218 uparam(2)=e22
219 uparam(3)=e33
220 uparam(4)=g12
221 uparam(5)=g23
222 uparam(6)=g31
223 uparam(7)=if1
224 uparam(8)=if2
225 uparam(9) =emx11
226 uparam(10)=emx22
227 uparam(11)=emx33
228 uparam(12)=emx12
229 uparam(13)=emx23
230 uparam(14)=emx31
231 IF(uparam(9) == zero)uparam(9) =infinity
232 IF(uparam(10) == zero)uparam(10)=infinity
233 IF(uparam(11) == zero)uparam(11)=infinity
234 IF(uparam(12) == zero)uparam(12)=infinity
235 IF(uparam(13) == zero)uparam(13)=infinity
236 IF(uparam(14) == zero)uparam(14)=infinity
237 uparam(15)=emf11
238 uparam(16)=emf22
239 uparam(17)=emf33
240 uparam(18)=emf12
241 uparam(19)=emf23
242 uparam(20)=emf31
243 IF(uparam(15) == zero)uparam(15)=infinity
244 IF(uparam(16) == zero)uparam(16)=infinity
245 IF(uparam(17) == zero)uparam(17)=infinity
246 IF(uparam(18) == zero)uparam(18)=infinity
247 IF(uparam(19) == zero)uparam(19)=infinity
248 IF(uparam(20) == zero)uparam(20)=infinity
249 uparam(21)=fac1
250 uparam(22)=fac2
251 uparam(23)=fac3
252 uparam(24)=fac4
253 uparam(25)=fac5
254 uparam(26)=fac6
255 uparam(27)=fac7
256 uparam(28)=fac8
257 uparam(29)=fac9
258 uparam(30)=fac10
259 uparam(31)=fac11
260 uparam(32)=fac12
261 uparam(33)=fac13
262 uparam(34)=fac14
263 uparam(35)=fac15
264 uparam(36)=fac16
265 uparam(37)=fac17
266 uparam(38)=fac18
267
268 parmat(1)= max(e11,e22,e33,g12,g23,g31)
269
270 ifunc(1)=i11
271 ifunc(2)=i22
272 ifunc(3)=i33
273 ifunc(4)=i12
274 ifunc(5)=i23
275 ifunc(6)=i31
276 ifunc(7)=i21
277 ifunc(8)=i32
278 ifunc(9)=i13
279 IF(j11 == 0)j11=i11
280 IF(j22 == 0)j22=i22
281 IF(j33 == 0)j33=i33
282 IF(j12 == 0)j12=i12
283 IF(j23 == 0)j23=i23
284 IF(j31 == 0)j31=i31
285 IF(j21 == 0)j21=i21
286 IF(j32 == 0)j32=i32
287 IF(j13 == 0)j13=i13
288 ifunc(10)=j11
289 ifunc(11)=j22
290 ifunc(12)=j33
291 ifunc(13)=j12
292 ifunc(14)=j23
293 ifunc(15)=j31
294 ifunc(16)=j21
295 ifunc(17)=j32
296 ifunc(18)=j13
297
298 !Formulation for solid elements time step computation.
299 dmin = min(e11*e22, e22*e33,e11*e33)
300 dmax = max(e11,e22,e33)
301 parmat(16) = 1
302 parmat(17) = dmin/dmax/dmax
303c
304 CALL init_mat_keyword(matparam,"COMPRESSIBLE")
305 CALL init_mat_keyword(matparam,"HOOK")
306 CALL init_mat_keyword(matparam,"ORTHOTROPIC")
307 ! Properties compatibility
308 CALL init_mat_keyword(matparam,"SOLID_ORTHOTROPIC")
309c
310 !---LISTING OUTPUT
311 WRITE(iout,1001) trim(titr),mat_id,68
312 WRITE(iout,1000)
313 IF(is_encrypted)THEN
314 WRITE(iout,'(5X,A,//)')'CONFIDENTIAL DATA'
315 ELSE
316 WRITE(iout,1002) rho0
317 WRITE(iout,1100)e11,e22,e33,g12,g23,g31,
318 . i11,i22,i33,i12,i23,i31,i21,i32,i13,
319 . fac1,fac2,fac3,fac4,fac5,fac6,fac7,fac8,fac9,
320 . j11,j22,j33,j12,j23,j31,j21,j32,j13,
321 . fac10,fac11,fac12,fac13,fac14,fac15,fac16,fac17,fac18
322 IF(if1+if2/=0)WRITE(iout,1200)if1,if2
323 IF(emx11+emx22+emx33+emx12+emx23+emx31/=0)WRITE(iout,1300)
324 . emx11,emx22,emx33,emx12,emx23,emx31
325 ENDIF
326
327 RETURN
328
329 !---OUTPUT FORMAT
330 1000 FORMAT(
331 & 5x,40h honeycoms law - cossera formulation ,/,
332 & 5x,40h ----------------------------------- ,//)
333 1001 FORMAT(
334 & 5x,a,/,
335 & 5x,'MATERIAL NUMBER . . . . . . . . . . . . =',i10/,
336 & 5x,'MATERIAL LAW. . . . . . . . . . . . . . =',i10/)
337 1002 FORMAT(
338 & 5x,'INITIAL DENSITY . . . . . . . . . . . . =',1pg20.13/)
339 1100 FORMAT(
340 & 5x,'E11 . . . . . . . . . . . . . . . . . .=',1pg20.13/
341 & 5x,'E22 . . . . . . . . . . . . . . . . . .=',1pg20.13/
342 & 5x,'E33 . . . . . . . . . . . . . . . . . .=',1pg20.13/
343 & 5x,'G12 . . . . . . . . . . . . . . . . . .=',1pg20.13/
344 & 5x,'G23 . . . . . . . . . . . . . . . . . .=',1pg20.13/
345 & 5x,'G31 . . . . . . . . . . . . . . . . . .=',1pg20.13/
346 & 5x,'INITIAL STRESS CURVES . . . . . . . . .=',/
347 & 5x,'YIELD STRESS 11 FUNCTION NUMBER . . . .=',i10/
348 & 5x,'YIELD STRESS 22 FUNCTION NUMBER . . . .=',i10/
349 & 5x,'YIELD STRESS 33 FUNCTION NUMBER . . . .=',i10/
350 & 5x,'YIELD STRESS 12 FUNCTION NUMBER . . . .=',i10/
351 & 5x,'YIELD STRESS 23 FUNCTION NUMBER . . . .=',i10/
352 & 5x,'YIELD STRESS 31 FUNCTION NUMBER . . . .=',i10/
353 & 5x,'YIELD STRESS 21 FUNCTION NUMBER . . . .=',i10/
354 & 5x,'YIELD STRESS 32 FUNCTION NUMBER . . . .=',i10/
355 & 5x,'YIELD STRESS 13 FUNCTION NUMBER . . . .=',i10/
356 & 5x,'FUNCTION 11 SCALE FACTOR . . . . . . . =',1pg20.13/
357 & 5x,'FUNCTION 22 SCALE FACTOR . . . . . . . =',1pg20.13/
358 & 5x,'FUNCTION 33 SCALE FACTOR . . . . . . . =',1pg20.13/
359 & 5x,'FUNCTION 12 SCALE FACTOR . . . . . . . =',1pg20.13/
360 & 5x,'FUNCTION 23 SCALE FACTOR . . . . . . . =',1pg20.13/
361 & 5x,'FUNCTION 31 SCALE FACTOR . . . . . . . =',1pg20.13/
362 & 5x,'FUNCTION 21 SCALE FACTOR . . . . . . . =',1pg20.13/
363 & 5x,'FUNCTION 32 SCALE FACTOR . . . . . . . =',1pg20.13/
364 & 5x,'FUNCTION 13 SCALE FACTOR . . . . . . . =',1pg20.13/
365 & 5x,'RESIDUAL STRESS CURVES . . . . . . . . .=',/
366 & 5x,'YIELD STRESS 11 FUNCTION NUMBER . . . .=',i10/
367 & 5x,'YIELD STRESS 22 FUNCTION NUMBER . . . .=',i10/
368 & 5x,'YIELD STRESS 33 FUNCTION NUMBER . . . .=',i10/
369 & 5x,'YIELD STRESS 12 FUNCTION NUMBER . . . .=',i10/
370 & 5x,'YIELD STRESS 23 FUNCTION NUMBER . . . .=',i10/
371 & 5x,'YIELD STRESS 31 FUNCTION NUMBER . . . .=',i10/
372 & 5x,'YIELD STRESS 21 FUNCTION NUMBER . . . .=',i10/
373 & 5x,'YIELD STRESS 32 FUNCTION NUMBER . . . .=',i10/
374 & 5x,'yield stress 13 FUNCTION number . . . .=',I10/
375 & 5X,'function 11 scale factor . . . . . . . =',1PG20.13/
376 & 5X,'function 22 scale factor . . . . . . . =',1PG20.13/
377 & 5X,'function 33 scale factor . . . . . . . =',1PG20.13/
378 & 5X,'function 12 scale factor . . . . . . . =',1PG20.13/
379 & 5X,'function 23 scale factor . . . . . . . =',1PG20.13/
380 & 5X,'function 31 scale factor . . . . . . . =',1PG20.13/
381 & 5X,'function 21 scale factor . . . . . . . =',1PG20.13/
382 & 5X,'function 32 scale factor . . . . . . . =',1PG20.13/
383 & 5X,'function 13 scale factor . . . . . . . =',1PG20.13//)
384 1200 FORMAT(
385 & 5X,'yield function 11,22,33 flag . . . . .=',I10/
386 & 5X,'yield function 12,23,31 flag . . . . .=',I10//)
387 1300 FORMAT(
388 & 5X,'tension failure strain 11 . . . . . . .=',1PG20.13/
389 & 5X,'tension failure strain 22 . . . . . . .=',1PG20.13/
390 & 5X,'tension failure strain 33 . . . . . . .=',1PG20.13/
391 & 5X,'shear failure strain 12 . . . . . . . .=',1PG20.13/
392 & 5X,'shear failure strain 23 . . . . . . . .=',1PG20.13/
393 & 5X,'shear failure strain 31 . . . . . . . .=',1PG20.13//)
394 END
hm_get_floatv
subroutine hm_get_floatv(name, rval, is_available, lsubmodel, unitab)
Definition hm_get_floatv.F:418
hm_get_floatv_dim
subroutine hm_get_floatv_dim(name, dim_fac, is_available, lsubmodel, unitab)
Definition hm_get_floatv_dim.F:161
hm_get_intv
subroutine hm_get_intv(name, ival, is_available, lsubmodel)
Definition hm_get_intv.F:528
hm_option_is_encrypted
subroutine hm_option_is_encrypted(is_encrypted)
Definition hm_option_is_encrypted.F:288
hm_read_mat68
subroutine hm_read_mat68(uparam, maxuparam, nuparam, israte, imatvis, nuvar, ifunc, maxfunc, nfunc, parmat, unitab, mat_id, titr, mtag, lsubmodel, pm, ipm, matparam)
Definition hm_read_mat68.F:42
init_mat_keyword
subroutine init_mat_keyword(matparam, keyword)
Definition init_mat_keyword.F:153
min
#define min(a, b)
Definition macros.h:20
max
#define max(a, b)
Definition macros.h:21
elbuftag_mod
Definition elbuftag_mod.F:230
message_mod
Definition message_mod.F:1257
names_and_titles_mod
Definition names_and_titles_mod.F:1002
names_and_titles_mod::nchartitle
integer, parameter nchartitle
Definition names_and_titles_mod.F:1008
submodel_mod
Definition submodel_mod.F:717
unitab_mod
Definition unitab_mod.F:517
elbuftag_mod::mlaw_tag_
Definition elbuftag_mod.F:235
submodel_mod::submodel_data
Definition submodel_mod.F:728