OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
hm_get_int_array_index.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_get_int_array_index ../starter/source/devtools/hm_reader/hm_get_int_array_index.F
25!||--- called by ------------------------------------------------------
26!|| create_elt_box ../starter/source/model/sets/create_elt_box.F
27!|| create_elt_list ../starter/source/model/sets/create_element_clause.F
28!|| create_elt_list_g ../starter/source/model/sets/create_element_clause.F
29!|| create_node_box ../starter/source/model/sets/create_node_box.F
30!|| create_node_list ../starter/source/model/sets/create_node_clause.F
31!|| create_node_list_g ../starter/source/model/sets/create_node_clause.F
32!|| create_nodens_clause ../starter/source/model/sets/create_nodens_clause.F90
33!|| create_part_list ../starter/source/model/sets/create_part_clause.F
34!|| create_part_list_g ../starter/source/model/sets/create_part_clause.F
35!|| create_rbody_box ../starter/source/model/sets/create_rbody_box.F
36!|| create_rbody_list ../starter/source/model/sets/create_rbody_clause.F
37!|| create_rbody_list_g ../starter/source/model/sets/create_rbody_clause.F
38!|| create_seg_clause ../starter/source/model/sets/create_seg_clause.F
39!|| create_set_list ../starter/source/model/sets/create_set_clause.F
40!|| create_set_list_g ../starter/source/model/sets/create_set_clause.F
41!|| create_setcol_list ../starter/source/model/sets/create_setcol_clause.F
42!|| create_setcol_list_g ../starter/source/model/sets/create_setcol_clause.F
43!|| create_subm_list ../starter/source/model/sets/create_subm_clause.F
44!|| create_subm_list_g ../starter/source/model/sets/create_subm_clause.F
45!|| create_subs_list ../starter/source/model/sets/create_subs_clause.F
46!|| create_subs_list_g ../starter/source/model/sets/create_subs_clause.F
47!|| groups_get_elem_list ../starter/source/groups/groups_get_elem_list.F
48!|| hm_admlist ../starter/source/groups/hm_admlist.F
49!|| hm_bigsbox ../starter/source/groups/hm_bigsbox.F
50!|| hm_elngr ../starter/source/groups/hm_elngr.F
51!|| hm_elngrr ../starter/source/groups/hm_elngrr.f
52!|| hm_elngrs ../starter/source/groups/hm_elngr.f
53!|| hm_lecgre ../starter/source/groups/hm_lecgre.F
54!|| hm_lecgrn ../starter/source/groups/hm_lecgrn.F
55!|| hm_linengr ../starter/source/groups/hm_linengr.F
56!|| hm_lines_of_lines ../starter/source/groups/hm_lines_of_lines.F
57!|| hm_prelecgrns ../starter/source/groups/hm_prelecgrns.F
59!|| hm_preread_merge ../starter/source/constraints/general/merge/hm_preread_merge.F
60!|| hm_preread_properties ../starter/source/properties/hm_preread_properties.F
61!|| hm_preread_rbe3 ../starter/source/constraints/general/rbe3/hm_preread_rbe3.F
62!|| hm_read_admas ../starter/source/tools/admas/hm_read_admas.F
63!|| hm_read_bem ../starter/source/loads/bem/hm_read_bem.F
64!|| hm_read_drape ../starter/source/properties/composite_options/drape/hm_read_drape.F
65!|| hm_read_ebcs_inlet ../starter/source/boundary_conditions/ebcs/hm_read_ebcs_inlet.F
66!|| hm_read_eref ../starter/source/loads/reference_state/eref/hm_read_eref.F
67!|| hm_read_fail_inievo ../starter/source/materials/fail/inievo/hm_read_fail_inievo.F
68!|| hm_read_fail_tab_old ../starter/source/materials/fail/tabulated/hm_read_fail_tab_old.F
69!|| hm_read_friction ../starter/source/interfaces/friction/reader/hm_read_friction.F
70!|| hm_read_friction_orientations ../starter/source/interfaces/friction/reader/hm_read_friction_orientations.F
71!|| hm_read_grpart ../starter/source/groups/hm_read_grpart.F
72!|| hm_read_inicrack ../starter/source/initial_conditions/inicrack/hm_read_inicrack.F
73!|| hm_read_inimap1d ../starter/source/initial_conditions/inimap/hm_read_inimap1d.F
74!|| hm_read_inimap2d ../starter/source/initial_conditions/inimap/hm_read_inimap2d.f
75!|| hm_read_inistate_d00 ../starter/source/elements/initia/hm_read_inistate_d00.F
76!|| hm_read_initemp ../starter/source/initial_conditions/thermic/hm_read_initemp.F
77!|| hm_read_inivel ../starter/source/initial_conditions/general/inivel/hm_read_inivel.F
78!|| hm_read_inivol ../starter/source/initial_conditions/inivol/hm_read_inivol.f90
79!|| hm_read_inject1 ../starter/source/properties/injector/hm_read_inject1.F
80!|| hm_read_inject2 ../starter/source/properties/injector/hm_read_inject2.F
81!|| hm_read_intsub ../starter/source/output/subinterface/hm_read_intsub.F
82!|| hm_read_lines ../starter/source/groups/hm_read_lines.F
83!|| hm_read_load_pressure ../starter/source/loads/general/load_pressure/hm_read_load_pressure.F
84!|| hm_read_mat100 ../starter/source/materials/mat/mat100/hm_read_mat100.F
85!|| hm_read_mat151 ../starter/source/materials/mat/mat151/hm_read_mat151.F
86!|| hm_read_mat36 ../starter/source/materials/mat/mat036/hm_read_mat36.f
87!|| hm_read_mat38 ../starter/source/materials/mat/mat038/hm_read_mat38.F
88!|| hm_read_mat43 ../starter/source/materials/mat/mat043/hm_read_mat43.F
89!|| hm_read_mat51 ../starter/source/materials/mat/mat051/hm_read_mat51.F
90!|| hm_read_mat51_iform11 ../starter/source/materials/mat/mat051/hm_read_mat51_iform11.F
91!|| hm_read_mat52 ../starter/source/materials/mat/mat052/hm_read_mat52.F
92!|| hm_read_mat57 ../starter/source/materials/mat/mat057/hm_read_mat57.F90
93!|| hm_read_mat59 ../starter/source/materials/mat/mat059/hm_read_mat59.F
94!|| hm_read_mat65 ../starter/source/materials/mat/mat065/hm_read_mat65.F
95!|| hm_read_mat66 ../starter/source/materials/mat/mat066/hm_read_mat66.F
96!|| hm_read_mat70 ../starter/source/materials/mat/mat070/hm_read_mat70.F
97!|| hm_read_mat77 ../starter/source/materials/mat/mat077/hm_read_mat77.F
98!|| hm_read_mat87 ../starter/source/materials/mat/mat087/hm_read_mat87.F90
99!|| hm_read_mat88 ../starter/source/materials/mat/mat088/hm_read_mat88.F90
100!|| hm_read_mat90 ../starter/source/materials/mat/mat090/hm_read_mat90.f
101!|| hm_read_mat93 ../starter/source/materials/mat/mat093/hm_read_mat93.F
102!|| hm_read_merge ../starter/source/constraints/general/merge/hm_read_merge.F
103!|| hm_read_monvol_type11 ../starter/source/airbag/hm_read_monvol_type11.F
104!|| hm_read_monvol_type3 ../starter/source/airbag/hm_read_monvol_type3.F
105!|| hm_read_monvol_type4 ../starter/source/airbag/hm_read_monvol_type4.F
106!|| hm_read_monvol_type5 ../starter/source/airbag/hm_read_monvol_type5.F
107!|| hm_read_monvol_type6 ../starter/source/airbag/hm_read_monvol_type6.F
108!|| hm_read_monvol_type7 ../starter/source/airbag/hm_read_monvol_type7.F
109!|| hm_read_monvol_type8 ../starter/source/airbag/hm_read_monvol_type8.F
110!|| hm_read_monvol_type9 ../starter/source/airbag/hm_read_monvol_type9.F
111!|| hm_read_mpc ../starter/source/constraints/general/mpc/hm_read_mpc.F
112!|| hm_read_nbcs ../starter/source/constraints/general/bcs/hm_read_nbcs.F
113!|| hm_read_prop11 ../starter/source/properties/shell/hm_read_prop11.F
114!|| hm_read_prop16 ../starter/source/properties/shell/hm_read_prop16.F
115!|| hm_read_prop17 ../starter/source/properties/shell/hm_read_prop17.F
116!|| hm_read_prop22 ../starter/source/properties/thickshell/hm_read_prop22.F
117!|| hm_read_prop26 ../starter/source/properties/spring/hm_read_prop26.F
118!|| hm_read_prop28 ../starter/source/properties/xelem/hm_read_prop28.F
119!|| hm_read_prop51 ../starter/source/properties/shell/hm_read_prop51.F
120!|| hm_read_rbe3 ../starter/source/constraints/general/rbe3/hm_read_rbe3.F
121!|| hm_read_stack ../starter/source/stack/hm_read_stack.F
122!|| hm_read_subset ../starter/source/model/assembling/hm_read_subset.F
123!|| hm_read_surf ../starter/source/groups/hm_read_surf.f
124!|| hm_read_surfsurf ../starter/source/groups/hm_read_surfsurf.F
125!|| hm_read_table2_1 ../starter/source/tools/curve/hm_read_table2_1.F
126!|| hm_read_thgrki ../starter/source/output/th/hm_read_thgrki.F
127!|| hm_read_thgrki_rbody ../starter/source/output/th/hm_read_thgrki_rbody.F
128!|| hm_read_thgrne ../starter/source/output/th/hm_read_thgrne.F
129!|| hm_read_thgrns ../starter/source/output/th/hm_read_thgrns.f
130!|| hm_read_thgrpa ../starter/source/output/th/hm_read_thgrpa.f
131!|| hm_read_thgrpa_sub ../starter/source/output/th/hm_read_thgrpa.F
132!|| hm_read_thgrsens ../starter/source/output/th/hm_read_thgrsens.F
133!|| hm_read_thgrsurf ../starter/source/output/th/hm_read_thgrsurf.F
134!|| hm_read_xref ../starter/source/loads/reference_state/xref/hm_read_xref.F
135!|| hm_set ../starter/source/model/sets/hm_set.F
136!|| hm_surfnod ../starter/source/groups/hm_surfnod.F
137!|| hm_tagpart2 ../starter/source/groups/hm_tagpart2.F
138!|| hm_thgrki_vent ../starter/source/output/th/hm_thgrki_vent.F
139!|| hm_thvarvent ../starter/source/output/th/hm_thvarent.F
140!|| hm_yctrl ../starter/source/elements/initia/hm_yctrl.F
141!|| lecextlnk ../starter/source/coupling/rad2rad/lecextlnk.F
142!|| lecfill ../starter/source/elements/initia/lecfill.f
143!|| leclas1 ../starter/source/loads/laser/leclas1.F
144!|| lecsec42 ../starter/source/tools/sect/hm_read_sect.F
145!|| lecsec4bolt ../starter/source/tools/sect/lecsec4bolt.F
146!|| nbadmesh ../starter/source/model/remesh/nbadmesh.F
147!|| r2r_monvol ../starter/source/coupling/rad2rad/r2r_prelec.F
148!|| r2r_prelec ../starter/source/coupling/rad2rad/r2r_prelec.F
149!|| read_box_box ../starter/source/model/box/read_box_box.F
150!|| read_impdisp_fgeo ../starter/source/constraints/general/impvel/read_impdisp_fgeo.F
151!|| read_impvel_fgeo ../starter/source/constraints/general/impvel/read_impvel_fgeo.F
152!|| read_sensor_gauge ../starter/source/tools/sensor/read_sensor_gauge.F
153!|| sboxboxsurf ../starter/source/model/box/bigbox.F
154!|| set_admesh ../starter/source/model/remesh/set_admesh.F
155!|| sort_set ../starter/source/model/sets/sort_sets.F
156!|| st_qaprint_set ../starter/source/output/qaprint/st_qaprint_set.F
157!|| state_admesh ../starter/source/model/remesh/state_admesh.F
158!||--- calls -----------------------------------------------------
159!||--- uses -----------------------------------------------------
160!|| message_mod ../starter/share/message_module/message_mod.F
161!|| submodel_mod ../starter/share/modules1/submodel_mod.F
162!||====================================================================
163 SUBROUTINE hm_get_int_array_index(NAME,IVAL,INDEX,IS_AVAILABLE,LSUBMODEL)
164C-----------------------------------------------
165C ROUTINE DESCRIPTION :
166C ===================
167C REQUEST DATA INTO MODEL NEUTRAL OBJECT DATABASE USING HM_READER
168C PICK VALUE IN A LIST OF VALUES
169C ASK INDEX_TH (REAL) VALUE OF 'NAME' FIELD DEFINED IN .cfg FILE
170C APPLY AUTOMATICALLY SUBMODEL OFFSETS USING DATATYPE DEFINED IN .cfg FILE
171C-----------------------------------------------
172C DUMMY ARGUMENTS DESCRIPTION:
173C ===================
174C
175C NAME DESCRIPTION
176C
177C NAME FIELD NAME
178C IVAL INTEGER VALUE OF THE FIELD
179C INDEX INDEX NUMBER OF THE VALUE
180C IS_AVAILABLE VALUE AVAILABLE IN MODEL OR NOT
181C LSUBMODEL SUBMODEL STRUCTURE
182C============================================================================
183C M o d u l e s
184C-----------------------------------------------
185 USE message_mod
186 USE submodel_mod
187C-----------------------------------------------
188C I m p l i c i t T y p e s
189C-----------------------------------------------
190#include "implicit_f.inc"
191C-----------------------------------------------
192C D u m m y A r g u m e n t s
193C-----------------------------------------------
194C INPUT ARGUMENTS
195 INTEGER,INTENT(IN)::INDEX
196 CHARACTER*(*),INTENT(IN)::NAME
197 TYPE(submodel_data),INTENT(IN)::LSUBMODEL(*)
198C OUTPUT ARGUMENTS
199 INTEGER,INTENT(OUT)::IVAL
200 LOGICAL,INTENT(OUT)::IS_AVAILABLE
201C-----------------------------------------------
202C L o c a l V a r i a b l e s
203C-----------------------------------------------
204 INTEGER VALUE_TYPE, SUB_ID
205C--------------------------------------------------
206 value_type = 0
207 sub_id = 0
208C--------------------------------------------------
209 CALL cpp_get_intv_index(name(1:len_trim(name)),len_trim(name),ival,index,sub_id,
210 . is_available,value_type)
211C--------------------------------------------------
212 RETURN
213C
214 END
subroutine hm_elngr(ix, nix, nix1, nix2, ngrele, elchar, id, igrelem, tagbuf, titr, flag, lsubmodel)
Definition hm_elngr.F:39
subroutine hm_elngrs(ixs, ixs10, ixs20, ixs16, ngrele, elchar, id, igrelem, tagbuf, titr, flag, lsubmodel)
Definition hm_elngr.F:116
subroutine hm_elngrr(ixr, geo, ngrele, id, igrelem, tagbuf, titr, flag, lsubmodel)
Definition hm_elngrr.F:39
subroutine hm_get_int_array_index(name, ival, index, is_available, lsubmodel)
subroutine hm_preread_load_pressure(numloadp, igrsurf, lsubmodel)
subroutine hm_read_inimap2d(inimap2d, func2d, itabm1, xgrid, igrbric, igrquad, igrsh3n, unitab, lsubmodel)
subroutine hm_read_mat36(uparam, maxuparam, nuparam, nuvar, nvartmp, ifunc, maxfunc, mfunc, parmat, unitab, id, mtag, titr, lsubmodel, pm, israte, matparam)
subroutine hm_read_mat90(uparam, maxuparam, nuparam, nuvar, ifunc, maxfunc, nfunc, parmat, unitab, id, titr, israte, pm, imatvis, lsubmodel, mtag, matparam, nvartmp)
subroutine hm_read_surf(itab, itabm1, igrsurf, ixs, ixq, ixc, ixt, ixp, ixr, ixtg, ipart, iparts, ipartq, ipartc, ipartt, ipartp, ipartr, iparttg, x, mfi, iskn, skew, bufsf, knod2els, nod2els, sh4tree, sh3tree, isubmod, flag, unitab, ibox, ixs10, ixs16, ixs20, rtrans, lsubmodel, knod2elc, nod2elc, knod2eltg, nod2eltg, kxig3d, ixig3d, ipartig3d, knot, igeo, wige, knod2elig3d, nod2elig3d, v, nige, rige, xige, vige, iadtabige, decaligeo, iadboxmax, knod2elq, nod2elq, subset, igrbric, igrsh4n, igrsh3n, knotlocpc, knotlocel, nsets, map_tables)
subroutine hm_read_thgrns(ityp, key, itab, itabm1, kxx, ixx, iad, ifi, ithgrp, ithbuf, nv, vare, varg, nvg, ivarg, nsne, ivns2r, nv0, id, titr, ithvar, flagabf, nvarabf, lsubmodel)
subroutine hm_read_thgrpa(ipasu, npasu, ithbuf, iad, ifi, varpa, nvarpa, varg, nvarg, numthpart, ivarpag, pathid, tagp, iparth, nparth, nvparth, lsubmodel)
subroutine initia(iparg, elbuf, ms, in, v, x, ixs, ixq, ixc, ixt, ixp, ixr, detonators, geo, pm, rby, npby, lpby, npc, npts, pld, veul, ale_connectivity, skew, fill, ipart, itab, sensors, skvol, ixtg, thk, nloc_dmg, group_param_tab, glob_therm, igrnod, igrsurf, bufsf, vr, bufmat, xlas, las, dtelem, mss, msq, msc, mst, msp, msr, mstg, ptg, inc, nod2eltg, knod2eltg, inp, inr, intg, index, itri, kxx, ixx, xelemwa, iwa, nod2elq, knod2elq, nod2els, knod2els, kxsp, ixsp, nod2sp, ispcond, icode, iskew, iskn, ispsym, xframe, isptag, spbuf, mssx, nsigi, npbyl, lpbyl, rbyl, msnf, mssf, nsigsh, igeo, ipm, nsigs, nsigsph, vns, vnsx, stc, stt, stp, str, sttg, stur, bns, bnsx, volnod, bvolnod, etnod, nshnod, stifint, fxbdep, fxbvit, fxbacc, fxbipm, fxbrpm, fxbelm, fxbsig, fxbmod, ins, ptshel, ptsh3n, ptsol, ptquad, wma, ptsph, fxbnod, mbufel, mdepl, fxani, numel, nsigrs, sh4tree, sh3tree, mcp, temp, imerge2, iadmerge2, slnrbm, nslnrbm, rmstifn, rmstifr, ms_layer, zi_layer, itag, itagel, mcpc, mcptg, xrefc, xreftg, xrefs, mssa, msrt, irbe2, lrbe2, inivol, kvol, nbsubmat, ixs10, ixs16, ixs20, totaddmas, ipmas, stifn, msz2, itagn, sitage, itage, ixr_kj, elbuf_tab, nom_opt, ptr_nopt_rbe2, ptr_nopt_adm, ptr_nopt_fun, sol2sph, irst, sh3trim, xfem_tab, kxig3d, ixig3d, msig3d, knot, nctrlmax, wige, stack, rnoise, drape, sh4ang, sh3ang, geo_stack, igeo_stack, stifintr, strc, strp, strr, strtg, perturb, itagnd, nativ_sms, iloadp, facload, ptspri, nsigbeam, ptbeam, nsigtruss, pttruss, multi_fvm, sigi, sigsh, sigsp, sigsph, sigrs, sigbeam, sigtruss, strsglob, straglob, orthoglob, isigsh, iyldini, ksigsh3, fail_ini, iusolyld, iuser, iddlevel, inimap1d, inimap2d, func2d, fvm_inivel, tagprt_sms, igrbric, igrquad, igrsh4n, igrsh3n, igrpart, totmas, knotlocpc, knotlocel, vnige, bnige, fxbglm, fxbcpm, fxbcps, fxblm, fxbfls, fxbdls, fxb_matrix, fxb_matrix_add, fxb_last_adress, ptr_nopt_fxb, r_skew, knod2el1d, nod2el1d, ebcs_tab, rby_iniaxis, alea, knod2elc, nod2elc, dr, slrbody, drapeg, ipari, intbuf_tab, interfaces, mat_param, npreload_a, preload_a, fail_fractal, fail_brokmann, defaults, ndamp_freq_range, dampr, ibeam_vector, rbeam_vector, ikine, lsigi, lsigsp, srnoise, nprw, lprw, rwstif_pen, sln_pen)
Definition initia.F:198
subroutine lecfill(ixs, fillsol, unitab, lsubmodel)
Definition lecfill.F:42
subroutine load_pressure(iloadp, loadp, lloadp, npc, tf, a, v, x, skew, sensor_tab, iadc, fsky, fext, tagncont, nsensor, loadp_hyd_inter, h3d_data, python, npresload, loadp_tagdel, th_surf, pblast, wfext)
program starter
Definition starter.F:39