OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
hm_read_prop_generic.F File Reference
#include "implicit_f.inc"
#include "com01_c.inc"
#include "com04_c.inc"
#include "scr17_c.inc"
#include "scr19_c.inc"
#include "units_c.inc"
#include "param_c.inc"
#include "tablen_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine hm_read_prop_generic (igtyp, ig, idtitl, keytype, geo, igeo, lbufgeo, bufgeo, iadbuf, unitab, iskn, knot, iad_knot, prop_tag, lsubmodel, rtrans, sub_id, iunit, sub_index, defaults)

Function/Subroutine Documentation

◆ hm_read_prop_generic()

subroutine hm_read_prop_generic ( integer, intent(out) igtyp,
integer, intent(in) ig,
character(len=nchartitle), intent(in) idtitl,
character(len=ncharline) keytype,
dimension(npropg), intent(inout) geo,
integer, dimension(npropgi), intent(inout) igeo,
integer, intent(inout) lbufgeo,
double precision, dimension(*), intent(inout) bufgeo,
integer, intent(inout) iadbuf,
type (unit_type_), intent(in) unitab,
integer, dimension(liskn,*), intent(in) iskn,
dimension(*), intent(inout) knot,
integer, intent(inout) iad_knot,
type(prop_tag_), dimension(0:maxprop), intent(inout) prop_tag,
type(submodel_data), dimension(nsubmod), intent(in) lsubmodel,
dimension(ntransf,*), intent(in) rtrans,
integer, intent(in) sub_id,
integer, intent(in) iunit,
integer, intent(in) sub_index,
type(defaults_), intent(in) defaults )

Definition at line 49 of file hm_read_prop_generic.F.

54C-----------------------------------------------
55C M o d u l e s
56C-----------------------------------------------
57 USE unitab_mod
58 USE message_mod
59 USE elbuftag_mod
60 USE submodel_mod , ONLY : nsubmod, submodel_data
61 USE defaults_mod
62 USE names_and_titles_mod , ONLY : nchartitle, ncharline
63 USE reader_old_mod , ONLY : kline
64C-----------------------------------------------
65C I m p l i c i t T y p e s
66C-----------------------------------------------
67#include "implicit_f.inc"
68C-----------------------------------------------
69C C o m m o n B l o c k s
70C-----------------------------------------------
71#include "com01_c.inc"
72#include "com04_c.inc"
73#include "scr17_c.inc"
74#include "scr19_c.inc"
75#include "units_c.inc"
76#include "param_c.inc"
77#include "tablen_c.inc"
78C-----------------------------------------------
79C D u m m y A r g u m e n t s
80C-----------------------------------------------
81C INPUT ARGUMENTS
82 CHARACTER(LEN=NCHARTITLE),INTENT(IN):: IDTITL
83 CHARACTER(LEN=NCHARLINE) :: KEYTYPE
84 TYPE (UNIT_TYPE_),INTENT(IN) ::UNITAB
85 INTEGER,INTENT(IN):: IG,ISKN(LISKN,*),SUB_ID,IUNIT,SUB_INDEX
86 my_real ,INTENT(IN):: rtrans(ntransf,*)
87 TYPE(SUBMODEL_DATA),INTENT(IN) :: LSUBMODEL(NSUBMOD)
88C OUTPUT ARGUMENTS
89 INTEGER,INTENT(OUT):: IGTYP
90C MODIFIED ARGUMENT
91 INTEGER,INTENT(INOUT) :: IGEO(NPROPGI), LBUFGEO, IADBUF, IAD_KNOT
92 my_real ,INTENT(INOUT)::
93 . geo(npropg), knot(*)
94 DOUBLE PRECISION,INTENT(INOUT):: BUFGEO(*)
95 TYPE(PROP_TAG_) , DIMENSION(0:MAXPROP),INTENT(INOUT) :: PROP_TAG
96 TYPE(DEFAULTS_), INTENT(IN) :: DEFAULTS
97C-----------------------------------------------
98C L o c a l V a r i a b l e s
99C-----------------------------------------------
100 INTEGER ISKW,IADFUN,IADMAT,IADPID,IADTAB
101 INTEGER I, ILAW,NPG,JCVT,NUVAR(2)
102 my_real pargeo(100),stif,tthick
103 my_real qa,qb
104 CHARACTER FILNAM*512,CLAW*4
105 INTEGER LEN_FILNAM
106 CHARACTER(LEN=NCHARTITLE) :: TITR
107C=======================================================================
108c------------------------------
109 DO i = 1,100
110 pargeo(i) = zero
111 ENDDO
112C
113 DO i = 1, bgeosize
114 bufgeo0(i) = zero
115 ENDDO
116C
117 nuvar(1)= 0
118 nuvar(2)= 0
119 nuparam = 0
120 njfunc = 0
121 njmat = 0
122 njpid = 0
123 njtab = 0
124C
125 igeo(1) =ig
126 igeo(5) = 4 ! ISMSTR
127C
128 CALL fretitl2(titr,igeo(npropgi-ltitr+1),ltitr)
129C
130 SELECT CASE(keytype(1:len_trim(keytype)))
131
132 CASE ('TYPE28','NSTRAND')
133 igtyp =28
134 CALL hm_read_prop28(iout , nuvar ,pargeo,unitab,ig,
135 . titr ,igtyp ,prop_tag,lsubmodel,iunit)
136
137 CASE ('TYPE32','SPR_PRE')
138 igtyp =32
139 CALL hm_read_prop32(iout , nuvar ,pargeo,unitab,ig,
140 . igtyp,prop_tag,titr,lsubmodel)
141
142 CASE ('TYPE33','KJOINT')
143 igtyp =33
144 CALL hm_read_prop33(iout ,nuvar ,pargeo,unitab,
145 . iunit ,ig ,titr ,prop_tag,
146 . igtyp ,lsubmodel)
147
148 CASE ('TYPE34','SPH')
149 igtyp =34
150 CALL hm_read_prop34(geo,igeo,iout,nuvar,pargeo,
151 . qa,qb,iskn,ig,titr,unitab,
152 . prop_tag,igtyp,lsubmodel)
153
154 CASE ('TYPE35','STITCH')
155 igtyp =35
156 CALL hm_read_prop35(iout , nuvar ,pargeo,unitab,
157 . ig,igtyp ,prop_tag,lsubmodel)
158
159 CASE ('TYPE36','PREDIT')
160 igtyp =36
161 CALL hm_read_prop36(iout , nuvar ,pargeo,unitab,
162 . iskn,ig,titr,igtyp,prop_tag,geo,
163 . lsubmodel,sub_index)
164 CASE ('USER4')
165C--------------------------------------------------
166C rupture property for interface type 2
167C ( not a true user property )
168C--------------------------------------------------
169 igtyp=37
170 CALL hm_read_prop_user4(iout ,nuvar ,pargeo ,unitab ,lsubmodel)
171
172
173 CASE ('TYPE43','CONNECT')
174 igtyp=43
175 CALL hm_read_prop43(geo ,igeo ,iout ,ig ,
176 . nuvar ,pargeo ,igtyp ,prop_tag,
177 . unitab ,lsubmodel,defaults%SOLID)
178
179 CASE ('TYPE44','SPR_CRUS')
180 igtyp=44
181 CALL hm_read_prop44(iout ,ig ,nuvar ,pargeo,
182 . unitab,iskn ,igeo ,titr ,igtyp ,
183 . prop_tag,lsubmodel ,sub_index,iunit)
184
185 CASE ('TYPE45','KJOINT2')
186 igtyp =45
187 CALL hm_read_prop45(iout , nuvar ,pargeo,unitab,igtyp,
188 . ig,prop_tag,titr,lsubmodel,iunit)
189
190 CASE ('TYPE46','SPR_MUSCLE')
191 igtyp =46
192 CALL hm_read_prop46(iout , nuvar ,pargeo,unitab,igtyp,
193 . ig,prop_tag,titr,lsubmodel,iunit)
194
195 CASE ('TYPE29','TYPE30','TYPE31',
196 . 'USER1' ,'USER2' ,'USER3')
197C--------------------------------------------------
198C HM READING PROPERTY USERnn
199C--------------------------------------------------
200 CALL hm_read_prop_user(
201 . iout ,nuvar ,pargeo ,unitab,igtyp,
202 . ig ,titr ,lsubmodel,iunit ,iskn ,
203 . keytype ,prop_tag)
204!
205 CASE DEFAULT
206 CALL ancmsg(msgid=1647,anmode=aninfo,msgtype=msgerror,
207 . i1=ig,c1='TITR',i2=igtyp) ! This message can not occur !
208
209 END SELECT
210C
211 igeo(11)=igtyp
212 geo(12) =igtyp+em01
213C-----
214 lbufgeo = lbufgeo + nuparam + njfunc + njmat + njpid + njtab
215C
216 DO i=1,nuparam
217 bufgeo(iadbuf+i-1)=bufgeo0(i)
218 ENDDO
219 iadfun = iadbuf + nuparam
220 DO i=1,njfunc
221 bufgeo(iadfun+i-1)=jfunc(i)
222 ENDDO
223 iadmat = iadfun + njfunc
224 DO i=1,njmat
225 bufgeo(iadmat+i-1)=jmat(i)
226 ENDDO
227 iadpid = iadmat + njmat
228 DO i=1,njpid
229 bufgeo(iadpid+i-1)=jpid(i)
230 ENDDO
231 iadtab = iadpid + njpid
232 DO i=1,njtab
233 bufgeo(iadtab+i-1)=jtab(i)
234 ENDDO
235C
236 iskw = nint(pargeo(1))
237 stif = pargeo(2)
238 ifrwv = max(ifrwv,nint(pargeo(3)))
239 npg = nint(pargeo(4))
240 jcvt = nint(pargeo(5))
241C
242 IF (iskw == 0 .AND. igtyp /= 34) iskw = 1
243 geo(2)=iskw
244 igeo(2)=iskw
245 igeo(4)=npg
246 geo(3)=stif
247 geo(8)=5
248 geo(25) = nuvar(1)
249 geo(26) = nuparam
250 geo(27) = iadbuf
251 geo(28) = njfunc
252 geo(29) = iadfun
253 geo(30) = njmat
254 geo(31) = iadmat
255 geo(32) = njpid
256 geo(33) = iadpid
257 geo(35) = nuvar(2)
258 geo(36) = njtab
259 geo(37) = iadtab
260C
261 igeo(16) = jcvt
262 igeo(27) = nuvar(1)
263 igeo(28) = nuvar(2)
264 igeo(52) = nuparam
265 igeo(53) = njfunc
266 igeo(54) = njmat
267 igeo(55) = njpid
268 igeo(56) = njtab
269 igeo(57) = iadbuf
270 igeo(58) = iadfun
271 igeo(59) = iadmat
272 igeo(60) = iadpid
273 igeo(61) = iadtab
274C-----------
275 iadbuf = iadtab + njtab
276C-----------
277 IF (igtyp > 28 .and. igtyp < 32 .or. igtyp > 36 .and. igtyp < 43) THEN ! prop user
278 prop_tag(igtyp)%G_SIG = 6
279 prop_tag(igtyp)%G_VOL = 1
280 prop_tag(igtyp)%G_EINT = 1
281 prop_tag(igtyp)%G_OFF = 1
282 prop_tag(igtyp)%G_FILL = 1
283 prop_tag(igtyp)%L_SIG = 6
284 prop_tag(igtyp)%L_VOL = 1
285 prop_tag(igtyp)%L_EINT = 1
286 prop_tag(igtyp)%L_OFF = 1
287 prop_tag(igtyp)%NUVAR = igeo(27) ! User solid property
288 igeo(4) = 1 ! NPT
289 prop_tag(igtyp)%L_SIG = 6
290 prop_tag(igtyp)%L_VOL = 1
291 prop_tag(igtyp)%L_EINT = 1
292 ENDIF ! IF (IGTYP)
293C-----------
294 RETURN
295
296 RETURN
my_real
#define my_real
Definition cppsort.cpp:32
hm_read_prop28
subroutine hm_read_prop28(iout, nuvar, pargeo, unitab, id, titr, igtyp, prop_tag, lsubmodel, iunit)
Definition hm_read_prop28.F:45
hm_read_prop32
subroutine hm_read_prop32(iout, nuvar, pargeo, unitab, ig, igtyp, prop_tag, titr, lsubmodel)
Definition hm_read_prop32.F:42
hm_read_prop33
subroutine hm_read_prop33(iout, nuvar, pargeo, unitab, iunit, id, titr, prop_tag, igtyp, lsubmodel)
Definition hm_read_prop33.F:48
hm_read_prop34
subroutine hm_read_prop34(geo, igeo, iout, nuvar, pargeo, qa, qb, iskn, ig, titr, unitab, prop_tag, igtyp, lsubmodel)
Definition hm_read_prop34.F:42
hm_read_prop35
subroutine hm_read_prop35(iout, nuvar, pargeo, unitab, id, igtyp, prop_tag, lsubmodel)
Definition hm_read_prop35.F:40
hm_read_prop36
subroutine hm_read_prop36(iout, nuvar, pargeo, unitab, iskn, ig, titr, igtyp, prop_tag, geo, lsubmodel, sub_id)
Definition hm_read_prop36.F:41
hm_read_prop43
subroutine hm_read_prop43(geo, igeo, iout, ig, nuvar, pargeo, igtyp, prop_tag, unitab, lsubmodel, defaults_solid)
Definition hm_read_prop43.F:40
hm_read_prop44
subroutine hm_read_prop44(iout, ig, nuvar, pargeo, unitab, iskn, igeo, titr, igtyp, prop_tag, lsubmodel, sub_id, iunit)
Definition hm_read_prop44.F:43
hm_read_prop45
subroutine hm_read_prop45(iout, nuvar, pargeo, unitab, igtyp, id, prop_tag, titr, lsubmodel, iunit)
Definition hm_read_prop45.F:42
hm_read_prop46
subroutine hm_read_prop46(iout, nuvar, pargeo, unitab, igtyp, id, prop_tag, titr, lsubmodel, iunit)
Definition hm_read_prop46.F:41
hm_read_prop_user4
subroutine hm_read_prop_user4(iout, nuvar, pargeo, unitab, lsubmodel)
Definition hm_read_prop_user4.F:38
hm_read_prop_user
subroutine hm_read_prop_user(iout, nuvar, pargeo, unitab, igtyp, ig, title, lsubmodel, iunit, iskn, key, prop_tag)
Definition hm_read_prop_user.F:41
max
#define max(a, b)
Definition macros.h:21
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
names_and_titles_mod::ncharline
integer, parameter ncharline
Definition names_and_titles_mod.F:1001
submodel_mod
Definition submodel_mod.F:712
submodel_mod::nsubmod
integer nsubmod
Definition submodel_mod.F:720
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
fretitl2
subroutine fretitl2(titr, iasc, l)
Definition freform.F:804
submodel_mod::submodel_data
Definition submodel_mod.F:723