OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
read_monvol.F File Reference
#include "implicit_f.inc"
#include "com04_c.inc"
#include "scr17_c.inc"
#include "r2r_c.inc"
#include "param_c.inc"
#include "units_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine read_monvol (t_monvol, t_monvol_metadata, itab, itabm1, ipm, igeo, x, pm, geo, ixc, ixtg, sensors, unitab, npc, npt, pld, igrsurf, igrbric, nom_opt, iframe, xframe, lsubmodel)

Function/Subroutine Documentation

◆ read_monvol()

subroutine read_monvol ( type(monvol_struct_), dimension(nvolu + nmonvol), intent(inout) t_monvol,
type(monvol_metadata_), intent(inout) t_monvol_metadata,
integer, dimension(*), intent(in) itab,
integer, dimension(*), intent(in) itabm1,
integer, dimension(npropmi, nummat), intent(in) ipm,
integer, dimension(npropgi, numgeo), intent(in) igeo,
dimension(3, numnod), intent(in) x,
dimension(npropm, nummat), intent(in) pm,
dimension(npropg, numgeo), intent(in) geo,
integer, dimension(nixc, numelc), intent(in) ixc,
integer, dimension(nixtg, numeltg), intent(in) ixtg,
type (sensors_), intent(in) sensors,
type(unit_type_), intent(in) unitab,
integer, dimension(*), intent(in) npc,
integer, dimension(*), intent(in) npt,
dimension(2, *), intent(in) pld,
type (surf_), dimension(nsurf), intent(inout) igrsurf,
type (group_), dimension(ngrbric), intent(in) igrbric,
integer, dimension(lnopt1, *), intent(inout) nom_opt,
integer, dimension(liskn,*), intent(in) iframe,
dimension(nxframe,*), intent(in) xframe,
type (submodel_data), dimension(nsubmod), intent(in) lsubmodel )

Definition at line 62 of file read_monvol.F.

66C-----------------------------------------------
67C M o d u l e s
68C-----------------------------------------------
69 USE unitab_mod
70 USE r2r_mod
71 USE message_mod
72 USE groupdef_mod , only:group_,surf_
73 USE monvol_struct_mod
74 USE submodel_mod
75 USE hm_option_read_mod
76 USE sensor_mod
77 USE names_and_titles_mod , ONLY : nchartitle, ncharkey
78 USE hm_read_monvol_type1_mod ,ONLY : hm_read_monvol_type1
79 USE hm_read_monvol_type2_mod ,ONLY : hm_read_monvol_type2
80 USE hm_read_monvol_type3_mod ,ONLY : hm_read_monvol_type3
81 USE hm_read_monvol_type4_mod ,ONLY : hm_read_monvol_type4
82 USE hm_read_monvol_type5_mod ,ONLY : hm_read_monvol_type5
83 USE hm_read_monvol_type6_mod ,ONLY : hm_read_monvol_type6
84 USE hm_read_monvol_type7_mod ,ONLY : hm_read_monvol_type7
85 USE hm_read_monvol_type8_mod ,ONLY : hm_read_monvol_type8
86 USE hm_read_monvol_type9_mod ,ONLY : hm_read_monvol_type9
87 USE hm_read_monvol_type10_mod ,ONLY : hm_read_monvol_type10
88 USE hm_read_monvol_type11_mod ,ONLY : hm_read_monvol_type11
89 use element_mod , only : nixc,nixtg
90C-----------------------------------------------
91C I m p l i c i t T y p e s
92C-----------------------------------------------
93#include "implicit_f.inc"
94C-----------------------------------------------
95C C o m m o n B l o c k s
96C-----------------------------------------------
97C NVOLU
98#include "com04_c.inc"
99C KMONVO, IREC
100#include "scr17_c.inc"
101C NSUBDOM
102#include "r2r_c.inc"
103C NIMV, NRVOLU
104#include "param_c.inc"
105C LUNIT, NUNITS
106C IOUT
107#include "units_c.inc"
108C-----------------------------------------------
109C D u m m y A r g u m e n t s
110C-----------------------------------------------
111 TYPE(MONVOL_STRUCT_), DIMENSION(NVOLU + NMONVOL), INTENT(INOUT) :: T_MONVOL
112 TYPE(MONVOL_METADATA_), INTENT(INOUT) :: T_MONVOL_METADATA
113 TYPE(UNIT_TYPE_), INTENT(IN) :: UNITAB
114 my_real, INTENT(IN) :: x(3, numnod), geo(npropg, numgeo), pm(npropm, nummat), pld(2, *),
115 . xframe(nxframe,*)
116 INTEGER, INTENT(IN) :: NPC(*), NPT(*), ITAB(*), ITABM1(*),
117 . IXC(NIXC, NUMELC), IXTG(NIXTG, NUMELTG),IPM(NPROPMI, NUMMAT),
118 . IGEO(NPROPGI, NUMGEO),IFRAME(LISKN,*)
119 INTEGER, INTENT(INOUT) :: NOM_OPT(LNOPT1, *)
120 TYPE (SURF_), INTENT(INOUT), DIMENSION(NSURF) :: IGRSURF
121 TYPE (GROUP_), DIMENSION(NGRBRIC), INTENT(IN) :: IGRBRIC
122 TYPE (SUBMODEL_DATA), DIMENSION(NSUBMOD), INTENT(IN) :: LSUBMODEL
123 TYPE (SENSORS_) ,INTENT(IN) :: SENSORS
124C-----------------------------------------------
125C L o c a l V a r i a b l e s
126C-----------------------------------------------
127 INTEGER :: II, JJ
128 INTEGER :: NVB, ITYPE, ID, UID, LOCAL_UID
129 CHARACTER(len=ncharkey) :: KEY
130 CHARACTER(len=nchartitle) :: TITR
131 LOGICAL :: FOUND
132C-----------------------------------------------
133C B e g i n n i n g o f s o u r c e
134C-----------------------------------------------
135C Beginning of MONVOL cards in the IIN file
136 WRITE(iout, 1000)
137 t_monvol_metadata%LCA = 0
138 nvb = 0
139C
140! ************************** !
141! MONVOL read with hm reader !
142! ************************** !
143 CALL hm_option_start('/MONVOL')
144 DO ii = 1, nmonvol
145 nvb = nvb + 1
146C Multidomain -> skip untagged monvols
147 IF (nsubdom > 0) THEN
148 IF( tagmon(nvb) == 0) THEN
149 CALL hm_sz_r2r(tagmon, nvb, lsubmodel)
150 ENDIF
151 ENDIF
152 CALL hm_option_read_key(lsubmodel, option_id = id, unit_id = uid, option_titr = titr,
153 . keyword2 = key)
154 nom_opt(1, ii) = id
155 CALL fretitl(titr,nom_opt(lnopt1-ltitr+1,ii),ltitr)
156C Check units
157 found = .false.
158 DO jj = 1,unitab%NUNITS
159 IF (unitab%UNIT_ID(jj) == uid) THEN
160 found = .true.
161 local_uid = jj
162 EXIT
163 ENDIF
164 ENDDO
165 IF (.NOT. found) THEN
166 CALL ancmsg(msgid = 659, anmode = aninfo, msgtype = msgerror,
167 . i2 = uid, i1 = id, c1 = 'MONITORED VOLUME', c2 = 'MONITORED VOLUME', c3=titr)
168 ENDIF
169 IF (key(1:4) == 'AREA') THEN
170 itype = 1
171 ELSEIF (key(1:4) == 'PRES') THEN
172 itype = 2
173 ELSEIF (key(1:3) == 'GAS') THEN
174 itype = 3
175 ELSEIF (key(1:7) == 'AIRBAG1') THEN
176 itype = 7
177 ELSEIF (key(1:6) == 'airbag') THEN
178 ITYPE = 4
179 ELSEIF (KEY(1:6) == 'commu1') THEN
180 ITYPE = 9
181 ELSEIF (KEY(1:5) == 'commu') THEN
182 ITYPE = 5
183 ELSEIF (KEY(1:7) == 'fvmbag2') THEN
184 ITYPE = 11
185 ELSEIF (KEY(1:7) == 'fvmbag1') THEN
186 ITYPE = 8
187 ELSEIF (KEY(1:6) == 'fvmbag') THEN
188 ITYPE = 6
189 ELSEIF (KEY(1:6) == 'lfluid') THEN
190 ITYPE = 10
191 ELSE
192 ITYPE = 0
193 CALL ANCMSG(MSGID=7,ANMODE=ANINFO,MSGTYPE=MSGERROR,
194 . I1=ID,C1=TITR)
195 ENDIF
196
197 T_MONVOL(II)%ID = ID
198 T_MONVOL(II)%IVOLU(1) = ID
199 T_MONVOL(II)%IVOLU(27) = -1 !ID_DT_OPTION ( /DT/FVMBAG/[id_dt_option] )
200 T_MONVOL(II)%TYPE = ITYPE
201 T_MONVOL(II)%IVOLU(2) = ITYPE
202 T_MONVOL(II)%TITLE = TRIM(TITR)
203
204 WRITE(IOUT,1001) ID, T_MONVOL(II)%TITLE, KEY(1:LEN_TRIM(KEY))
205
206 SELECT CASE(ITYPE)
207 CASE(1)
208! ************ !
209! /MONVOL/AREA !
210! ************ !
211 CALL HM_READ_MONVOL_TYPE1(T_MONVOL(II),
212 . UNITAB, LOCAL_UID, IGRSURF,
213 . ITAB, X, PM, GEO, IXC, IXTG,LSUBMODEL)
214 CASE(2)
215! ************ !
216! /MONVOL/PRES !
217! ************ !
218 CALL HM_READ_MONVOL_TYPE2(T_MONVOL(II),
219 . UNITAB, LOCAL_UID, NPC, IGRSURF,
220 . ITAB, X, PM, GEO, IXC, IXTG,LSUBMODEL)
221 CASE(3)
222! *********** !
223! /MONVOL/GAS !
224! *********** !
225 CALL HM_READ_MONVOL_TYPE3(T_MONVOL(II),
226 . UNITAB, LOCAL_UID, NPC, IGRSURF,
227 . ITAB, X, PM, GEO, IXC, IXTG, LSUBMODEL)
228 CASE(4)
229! ************** !
230! /MONVOL/AIRBAG !
231! ************** !
232 CALL HM_READ_MONVOL_TYPE4(T_MONVOL(II), ITABM1,
233 . SENSORS, NPT, PLD, UNITAB, LOCAL_UID, NPC, IGRSURF,
234 . ITAB, X, PM, GEO, IXC, IXTG, LSUBMODEL)
235 CASE(5)
236! ************* !
237! /MONVOL/COMMU !
238! ************* !
239 CALL HM_READ_MONVOL_TYPE5(T_MONVOL(II), T_MONVOL_METADATA, ITABM1,
240 . SENSORS, NPT, PLD,
241 . UNITAB, LOCAL_UID, NPC, IGRSURF, ITAB, X, PM, GEO, IXC, IXTG,
242 . LSUBMODEL)
243 CASE(6)
244! ************** !
245! /MONVOL/FVMBAG !
246! ************** !
247 CALL HM_READ_MONVOL_TYPE6(T_MONVOL(II),
248 . SENSORS, NPT, PLD, IGRBRIC,
249 . UNITAB, NPC, IGRSURF, ITAB, X, PM, GEO, IXC, IXTG,
250 . LSUBMODEL)
251 CASE(7)
252! *************** !
253! /MONVOL/AIRBAG1 !
254! *************** !
255 CALL HM_READ_MONVOL_TYPE7(T_MONVOL(II), IPM, IGEO, ITABM1,
256 . SENSORS,
257 . UNITAB, LOCAL_UID, NPC, IGRSURF, ITAB, X, PM, GEO, IXC, IXTG,
258 . LSUBMODEL)
259 CASE(8)
260! *************** !
261! /MONVOL/FVMBAG1 !
262! *************** !
263 CALL HM_READ_MONVOL_TYPE8(T_MONVOL(II), IPM, IGEO, ITABM1,
264 . SENSORS, IFRAME, XFRAME, IGRBRIC,
265 . UNITAB, LOCAL_UID, NPC, IGRSURF, ITAB, X, PM, GEO, IXC, IXTG,
266 . LSUBMODEL)
267
268 CASE(9)
269! ************** !
270! /MONVOL/COMMU1 !
271! ************** !
272 CALL HM_READ_MONVOL_TYPE9(T_MONVOL(II), T_MONVOL_METADATA, IPM, IGEO, ITABM1,
273 . SENSORS,
274 . UNITAB, LOCAL_UID, NPC, IGRSURF, ITAB, X, PM, GEO, IXC, IXTG,
275 . LSUBMODEL)
276 CASE(10)
277! ************** !
278! /MONVOL/LFLUID !
279! ************** !
280 CALL HM_READ_MONVOL_TYPE10(T_MONVOL(II),
281 . UNITAB, NPC, IGRSURF, ITAB, X, PM, GEO, IXC, IXTG,LSUBMODEL)
282 CASE(11)
283! *************** !
284! /MONVOL/FVMBAG2 !
285! *************** !
286 CALL HM_READ_MONVOL_TYPE11(T_MONVOL(II), IPM, IGEO, ITABM1,
287 . SENSORS, XFRAME, IGRBRIC,
288 . UNITAB, LOCAL_UID, NPC, IGRSURF, ITAB, X, PM, GEO, IXC, IXTG,
289 . LSUBMODEL)
290 END SELECT
291 ENDDO
292
293 NVOLU = NVOLU + NMONVOL
294
295 RETURN
296 1000 FORMAT(
297 . //,' monitored volume definition '/
298 . ' ---------------------------- ')
299 1001 FORMAT(//5X,'volume number ',I10,
300 . / 5X,'------------------------',
301 . / 5X,'title: ',A,
302 . / 5X,'TYPE of monitored volume. . . . . . . .=',A10)
my_real
#define my_real
Definition cppsort.cpp:32
hm_option_start
subroutine hm_option_start(entity_type)
Definition hm_option_start.F:253
hm_option_read_mod::hm_option_read_key
Definition hm_option_read_mod.F:414
id
initmumps id
Definition multiplerhs_example.m:4
groupdef_mod
Definition groupdef_mod.F:668
hm_option_read_mod
Definition hm_option_read_mod.F:412
hm_read_monvol_type10_mod
Definition hm_read_monvol_type10.F:28
hm_read_monvol_type10_mod::hm_read_monvol_type10
subroutine hm_read_monvol_type10(t_monvoln, unitab, npc, igrsurf, itab, x, pm, geo, ixc, ixtg, lsubmodel)
Definition hm_read_monvol_type10.F:51
hm_read_monvol_type11_mod
Definition hm_read_monvol_type11.F:28
hm_read_monvol_type11_mod::hm_read_monvol_type11
subroutine hm_read_monvol_type11(t_monvoln, ipm, igeo, itabm1, sensors, xframe, igrbric, unitab, luid, npc, igrsurf, itab, x, pm, geo, ixc, ixtg, lsubmodel)
Definition hm_read_monvol_type11.F:57
hm_read_monvol_type1_mod
Definition hm_read_monvol_type1.F:28
hm_read_monvol_type1_mod::hm_read_monvol_type1
subroutine hm_read_monvol_type1(t_monvoln, unitab, luid, igrsurf, itab, x, pm, geo, ixc, ixtg, lsubmodel)
Definition hm_read_monvol_type1.F:50
hm_read_monvol_type2_mod
Definition hm_read_monvol_type2.F:28
hm_read_monvol_type2_mod::hm_read_monvol_type2
subroutine hm_read_monvol_type2(t_monvoln, unitab, luid, npc, igrsurf, itab, x, pm, geo, ixc, ixtg, lsubmodel)
Definition hm_read_monvol_type2.F:51
hm_read_monvol_type3_mod
Definition hm_read_monvol_type3.F:28
hm_read_monvol_type3_mod::hm_read_monvol_type3
subroutine hm_read_monvol_type3(t_monvoln, unitab, luid, npc, igrsurf, itab, x, pm, geo, ixc, ixtg, lsubmodel)
Definition hm_read_monvol_type3.F:54
hm_read_monvol_type4_mod
Definition hm_read_monvol_type4.F:28
hm_read_monvol_type4_mod::hm_read_monvol_type4
subroutine hm_read_monvol_type4(t_monvoln, itabm1, sensors, npt, pld, unitab, luid, npc, igrsurf, itab, x, pm, geo, ixc, ixtg, lsubmodel)
Definition hm_read_monvol_type4.F:58
hm_read_monvol_type5_mod
Definition hm_read_monvol_type5.F:28
hm_read_monvol_type5_mod::hm_read_monvol_type5
subroutine hm_read_monvol_type5(t_monvoln, t_monvol_metadata, itabm1, sensors, npt, pld, unitab, luid, npc, igrsurf, itab, x, pm, geo, ixc, ixtg, lsubmodel)
Definition hm_read_monvol_type5.F:57
hm_read_monvol_type6_mod
Definition hm_read_monvol_type6.F:28
hm_read_monvol_type6_mod::hm_read_monvol_type6
subroutine hm_read_monvol_type6(t_monvoln, sensors, npt, pld, igrbric, unitab, npc, igrsurf, itab, x, pm, geo, ixc, ixtg, lsubmodel)
Definition hm_read_monvol_type6.F:57
hm_read_monvol_type7_mod
Definition hm_read_monvol_type7.F:28
hm_read_monvol_type7_mod::hm_read_monvol_type7
subroutine hm_read_monvol_type7(t_monvoln, ipm, igeo, itabm1, sensors, unitab, luid, npc, igrsurf, itab, x, pm, geo, ixc, ixtg, lsubmodel)
Definition hm_read_monvol_type7.F:59
hm_read_monvol_type8_mod
Definition hm_read_monvol_type8.F:28
hm_read_monvol_type8_mod::hm_read_monvol_type8
subroutine hm_read_monvol_type8(t_monvoln, ipm, igeo, itabm1, sensors, iframe, xframe, igrbric, unitab, luid, npc, igrsurf, itab, x, pm, geo, ixc, ixtg, lsubmodel)
Definition hm_read_monvol_type8.F:59
hm_read_monvol_type9_mod
Definition hm_read_monvol_type9.F:28
hm_read_monvol_type9_mod::hm_read_monvol_type9
subroutine hm_read_monvol_type9(t_monvoln, t_monvol_metadata, ipm, igeo, itabm1, sensors, unitab, luid, npc, igrsurf, itab, x, pm, geo, ixc, ixtg, lsubmodel)
Definition hm_read_monvol_type9.F:58
message_mod
Definition message_mod.F:1257
monvol_struct_mod
Definition monvol_struct_mod.F:66
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
names_and_titles_mod::ncharkey
integer, parameter ncharkey
Definition names_and_titles_mod.F:1005
r2r_mod
Definition r2r_mod.F:125
r2r_mod::tagmon
integer, dimension(:), allocatable tagmon
Definition r2r_mod.F:132
submodel_mod
Definition submodel_mod.F:717
unitab_mod
Definition unitab_mod.F:517
hm_sz_r2r
subroutine hm_sz_r2r(tag, val, lsubmodel)
Definition routines_r2r.F:299
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:895
fretitl
subroutine fretitl(titr, iasc, l)
Definition freform.F:615
groupdef_mod::group_
Definition groupdef_mod.F:706
groupdef_mod::surf_
Definition groupdef_mod.F:751