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
58!|| hm_preread_load_pressure ../starter/source/loads/general/load_pressure/hm_preread_load_pressure.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.F
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 I,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
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_read_drape
subroutine hm_read_drape(drape_wrk, iwork_t, iworksh, igrsh3n, igrsh4n, ixc, ixtg, igeo, igeo_stack, lsubmodel, unitab, indxsh)
Definition hm_read_drape.F:110
message_mod
Definition message_mod.F:1249
submodel_mod
Definition submodel_mod.F:712
starter
program starter
Definition starter.F:39
submodel_mod::submodel_data
Definition submodel_mod.F:723