OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
hm_read_mat59.F File Reference
#include "implicit_f.inc"
#include "units_c.inc"
#include "param_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine hm_read_mat59 (uparam, maxuparam, nuparam, israte, imatvis, nuvar, ifunc, maxfunc, nfunc, parmat, unitab, id, titr, mtag, lsubmodel, pm, matparam)

Function/Subroutine Documentation

◆ hm_read_mat59()

subroutine hm_read_mat59 ( intent(inout) uparam,
integer, intent(inout) maxuparam,
integer, intent(inout) nuparam,
integer, intent(inout) israte,
integer, intent(inout) imatvis,
integer, intent(inout) nuvar,
integer, dimension(maxfunc), intent(inout) ifunc,
integer, intent(inout) maxfunc,
integer, intent(inout) nfunc,
intent(inout) parmat,
type (unit_type_), intent(in) unitab,
integer, intent(in) id,
character(len=nchartitle), intent(in) titr,
type(mlaw_tag_), intent(inout) mtag,
type(submodel_data), dimension(nsubmod), intent(in) lsubmodel,
intent(inout) pm,
type(matparam_struct_), intent(inout) matparam )

Definition at line 42 of file hm_read_mat59.F.

46C-----------------------------------------------
47C D e s c r i p t i o n
48C-----------------------------------------------
49C READ MAT LAW151 WITH HM READER ( TO BE COMPLETED )
50C
51C DUMMY ARGUMENTS DESCRIPTION:
52C ===================
53C
54C NAME DESCRIPTION
55C
56C IPM MATERIAL ARRAY(INTEGER)
57C PM MATERIAL ARRAY(REAL)
58C UNITAB UNITS ARRAY
59C ID MATERIAL ID(INTEGER)
60C TITR MATERIAL TITLE
61C LSUBMODEL SUBMODEL STRUCTURE
62C
63C-----------------------------------------------
64C M o d u l e s
65C-----------------------------------------------
66 USE unitab_mod
67 USE elbuftag_mod
68 USE message_mod
69 USE submodel_mod
70 USE matparam_def_mod
71 USE names_and_titles_mod , ONLY : nchartitle
72C-----------------------------------------------
73C I m p l i c i t T y p e s
74C-----------------------------------------------
75#include "implicit_f.inc"
76C-----------------------------------------------
77C C o m m o n B l o c k s
78C-----------------------------------------------
79#include "units_c.inc"
80#include "param_c.inc"
81C-----------------------------------------------
82C D u m m y A r g u m e n t s
83C-----------------------------------------------
84 TYPE (UNIT_TYPE_),INTENT(IN) ::UNITAB
85 my_real, DIMENSION(NPROPM) ,INTENT(INOUT) :: pm
86 my_real, DIMENSION(100) ,INTENT(INOUT) :: parmat
87 my_real, DIMENSION(MAXUPARAM) ,INTENT(INOUT) :: uparam
88 INTEGER, DIMENSION(MAXFUNC) ,INTENT(INOUT) :: IFUNC
89 INTEGER, INTENT(INOUT) :: ISRATE,IMATVIS,NFUNC,MAXFUNC,MAXUPARAM,NUPARAM,NUVAR
90 TYPE(MLAW_TAG_),INTENT(INOUT) :: MTAG
91 INTEGER,INTENT(IN) :: ID
92 CHARACTER(LEN=NCHARTITLE) ,INTENT(IN) :: TITR
93 TYPE(SUBMODEL_DATA),INTENT(IN) :: LSUBMODEL(NSUBMOD)
94 TYPE(MATPARAM_STRUCT_) ,INTENT(INOUT) :: MATPARAM
95C-----------------------------------------------
96C L o c a l V a r i a b l e s
97C-----------------------------------------------
98 INTEGER :: NBMAT ! Number of declared materials
99 INTEGER :: I,J
100 INTEGER :: RHOFLAG,ICOMP,NRATE,IFILTR,IFUNN(MAXFUNC),IFUNT(MAXFUNC)
101 my_real :: rho0, rhor,e,g,ecomp,fcut,rate0,yfac(maxfunc)
102 my_real :: rate(maxfunc),nu,fcut_unit,yfac_unit(maxfunc),rate_unit(maxfunc)
103 LOGICAL :: IS_AVAILABLE,IS_ENCRYPTED
104C-----------------------------------------------
105C S o u r c e L i n e s
106C-----------------------------------------------
107 is_encrypted = .false.
108 is_available = .false.
109
110 CALL hm_option_is_encrypted(is_encrypted)
111
112 CALL hm_get_floatv('MAT_RHO' ,rho0 ,is_available, lsubmodel, unitab)
113 CALL hm_get_floatv('Refer_Rho',rhor ,is_available, lsubmodel, unitab)
114 CALL hm_get_floatv('MAT_E' ,e ,is_available, lsubmodel, unitab)
115 CALL hm_get_floatv('MAT_G0' ,g ,is_available, lsubmodel, unitab)
116 CALL hm_get_intv ('MAT_IMASS',rhoflag ,is_available, lsubmodel)
117 CALL hm_get_intv ('COMP_OPT' ,icomp ,is_available, lsubmodel)
118 CALL hm_get_floatv('Ecomp' ,ecomp ,is_available, lsubmodel, unitab)
119 CALL hm_get_intv ('NFUNC' ,nrate ,is_available, lsubmodel)
120 CALL hm_get_intv ('Fsmooth' ,ifiltr ,is_available, lsubmodel)
121 CALL hm_get_floatv('Fcut' ,fcut ,is_available, lsubmodel, unitab)
122 CALL hm_get_floatv_dim('Fcut' ,fcut_unit,is_available, lsubmodel, unitab)
123
124 DO i=1,nrate
125 CALL hm_get_int_array_index ('ABG_IPt' ,ifunn(i) ,i ,is_available, lsubmodel)
126 CALL hm_get_int_array_index ('ABG_IPdel',ifunt(i) ,i ,is_available, lsubmodel)
127 CALL hm_get_float_array_index('Fp1' ,rate(i) ,i ,is_available, lsubmodel, unitab)
128 CALL hm_get_float_array_index_dim('Fp1' ,rate_unit(i) ,i ,is_available, lsubmodel, unitab)
129 CALL hm_get_float_array_index('Fp2' ,yfac(i) ,i ,is_available, lsubmodel, unitab)
130 CALL hm_get_float_array_index_dim('Fp2' ,yfac_unit(i) ,i ,is_available, lsubmodel, unitab)
131 ENDDO
132
133 IF (icomp /= 1 .OR. ecomp <= 0) THEN
134 ecomp = e
135 ENDIF
136 IF (icomp /= 1) icomp = 0
137
138 IF (fcut == zero) fcut = one * fcut_unit
139
140 nfunc = nrate*2
141 DO i=1,nrate
142 j = (i-1)*2
143 ifunc(j+1) = ifunn(i)
144 ifunc(j+2) = ifunt(i)
145 ENDDO
146C---
147 DO i=1,nfunc
148 IF (ifunc(i) == 0) THEN
149 CALL ancmsg(msgid=126,
150 . msgtype=msgerror,
151 . anmode=aninfo_blind_1,
152 . i1=id,
153 . c1=titr,
154 . i2=ifunc(i))
155 ENDIF
156 ENDDO
157 IF(nrate > 1 .AND. ifiltr == 0) THEN
158 CALL ancmsg(msgid=1220,
159 . msgtype=msgwarning,
160 . anmode=aninfo_blind_1,
161 . i1=id,
162 . c1=titr)
163 ENDIF
164 DO i=1,nrate
165 IF (yfac(i) == zero) yfac(i) = one * yfac_unit(i)
166 ENDDO
167 rate0 = rate(1)
168 DO i=2,nrate
169 IF (rate(i) < rate0) THEN
170c error
171 ENDIF
172 rate0 = rate(i)
173 ENDDO
174C----------------
175 IF (rhor == zero) rhor=rho0
176 pm(1) = rhor
177 pm(89)= rho0
178C----------------
179 uparam(1)=e
180 uparam(2)=g
181 uparam(3)=nrate
182 uparam(4)=ifiltr
183 uparam(5)=fcut
184 uparam(6)=ecomp*icomp
185 uparam(7)=rhoflag
186 DO i=1,nrate
187 uparam(7+i)=yfac(i)
188 uparam(7+nrate+i)=rate(i)
189 ENDDO
190C----------------
191 nuparam = 7 + nrate*2
192 nuvar = 0
193C----------------
194 parmat(1) = e/three
195 parmat(2) = max(e,g)
196 parmat(5) = fcut
197C----------------
198C Formulation for solid elements time step computation.
199!! G= HALF*E/(ONE + NU)
200!! RBULK = THIRD*E/(ONE - TWO*NU)
201 nu = half*e/g - one
202 parmat(16) = 2
203 parmat(17) = (one - two*nu)/(one - nu)
204C-----------
205 israte = 1
206 mtag%G_GAMA=9
207 mtag%G_EPSD=1
208 mtag%G_EINS=2
209 mtag%L_EPE =3
210 mtag%L_PLA =2
211C-----------------------
212 ! MATPARAM keyword
213 CALL init_mat_keyword(matparam,"HOOK")
214c
215 ! Properties compatibility
216 CALL init_mat_keyword(matparam,"SOLID_COHESIVE")
217C-----------------------
218 WRITE(iout,1010) trim(titr),id,59
219 WRITE(iout,1000)
220 IF (is_encrypted)THEN
221 WRITE(iout,'(5X,A,//)')'CONFIDENTIAL DATA'
222 ELSE
223 WRITE(iout,1100)rho0
224 WRITE(iout,1002) e,ecomp,g,icomp,rhoflag,nrate
225 IF (nrate > 0) THEN
226 WRITE(iout,1001)ifiltr,fcut
227 WRITE(iout,1200)(rate(j),ifunn(j),ifunt(j),yfac(j),j=1,nrate)
228 ENDIF
229 ENDIF
230C-----------
231 RETURN
232C-----------
233 1000 FORMAT(
234 & 5x,40h connection material law 59 ,/,
235 & 5x,40h -------------------------- ,//)
236 1010 FORMAT(/
237 & 5x,a,/,
238 & 5x,'MATERIAL NUMBER. . . . . . . . . . . . . . . . .=',i10/,
239 & 5x,'MATERIAL LAW . . . . . . . . . . . . . . . . . .=',i10/)
240 1002 FORMAT(
241 & 5x,'YOUNG MODULUS PER THICKNESS UNIT IN TENSION =',1pg20.13/,
242 & 5x,'YOUNG MODULUS PER THICKNESS UNIT IN COMPRESSION =',1pg20.13/,
243 & 5x,'SHEAR MODULUS PER THICKNESS UNIT . . . . =',1pg20.13/,
244 & 5x,'LINEAR BEHAVIOUR IN COMPRESSION (FLAG) . . . . .=',i10/,
245 & 5x,'DENSITY UNIT FLAG . . . . . . . . . . . . . . =',i10/,
246 & 5x,' = 0 => VOLUME DENSITY '/,
247 & 5x,' = 1 => SURFACE DENSITY '/,
248 & 5x,'NUMBER OF YIELD(STRAIN RATE) FUNCTIONS . =',i10/)
249 1001 FORMAT(
250 & 5x,'STRAIN RATE FILTERING FLAG . . . . . . . . . =',i10/,
251 & 5x,'CUT FREQ FOR STRAIN RATE FILTERING . . . . . =',1pg20.13/)
252 1100 FORMAT(
253 & 5x,'INITIAL DENSITY . . . . . . . . . . . . . . . . =',1pg20.13/)
254 1200 FORMAT(
255 & 5x,'STRAIN RATE . . . . . . . . . . . . . . =',1pg20.13/,
256 &10x,'YIELD STRESS FUNCTION IN NORMAL DIRECTION . =',i10/,
257 &10x,'YIELD STRESS FUNCTION IN TANGENT DIRECTION . =',i10/,
258 &10x,'SCALE FACTOR. . . . . . . . . . . . . . =',1pg20.13)
259C--------
260
my_real
#define my_real
Definition cppsort.cpp:32
hm_get_float_array_index
subroutine hm_get_float_array_index(name, rval, index, is_available, lsubmodel, unitab)
Definition hm_get_float_array_index.F:105
hm_get_float_array_index_dim
subroutine hm_get_float_array_index_dim(name, dim_fac, index, is_available, lsubmodel, unitab)
Definition hm_get_float_array_index_dim.F:47
hm_get_floatv
subroutine hm_get_floatv(name, rval, is_available, lsubmodel, unitab)
Definition hm_get_floatv.F:415
hm_get_floatv_dim
subroutine hm_get_floatv_dim(name, dim_fac, is_available, lsubmodel, unitab)
Definition hm_get_floatv_dim.F:159
hm_get_int_array_index
subroutine hm_get_int_array_index(name, ival, index, is_available, lsubmodel)
Definition hm_get_int_array_index.F:164
hm_get_intv
subroutine hm_get_intv(name, ival, is_available, lsubmodel)
Definition hm_get_intv.F:523
hm_option_is_encrypted
subroutine hm_option_is_encrypted(is_encrypted)
Definition hm_option_is_encrypted.F:284
init_mat_keyword
subroutine init_mat_keyword(matparam, keyword)
Definition init_mat_keyword.F:150
max
#define max(a, b)
Definition macros.h:21
id
initmumps id
Definition multiplerhs_example.m:4
elbuftag_mod
Definition elbuftag_mod.F:227
message_mod
Definition message_mod.F:1249
names_and_titles_mod
Definition names_and_titles_mod.F:997
names_and_titles_mod::nchartitle
integer, parameter nchartitle
Definition names_and_titles_mod.F:1003
submodel_mod
Definition submodel_mod.F:712
unitab_mod
Definition unitab_mod.F:513
ancmsg
subroutine ancmsg(msgid, msgtype, anmode, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, r1, r2, r3, r4, r5, r6, r7, r8, r9, c1, c2, c3, c4, c5, c6, c7, c8, c9, prmode)
Definition message.F:889