OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
r2r_mod.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!|| r2r_mod ../starter/share/modules1/r2r_mod.F
25!||--- called by ------------------------------------------------------
26!|| c3grtails ../starter/source/elements/sh3n/coque3n/c3grtails.F
27!|| cgrhead ../starter/source/elements/shell/coque/cgrhead.F
28!|| cgrtails ../starter/source/elements/shell/coque/cgrtails.F
29!|| chk_flg_fsi ../starter/source/coupling/rad2rad/routines_r2r.F
30!|| dometis ../starter/source/spmd/domain_decomposition/grid2mat.F
31!|| find_dt_engine ../starter/source/coupling/rad2rad/r2r_speedup.F
32!|| hm_pre_read_link ../starter/source/constraints/rigidlink/hm_pre_read_rlink.F
33!|| hm_pre_read_preload ../starter/source/loads/general/preload/hm_pre_read_preload.F
34!|| hm_prelecjoi ../starter/source/constraints/general/cyl_joint/hm_prelecjoi.F
35!|| hm_preread_cload ../starter/source/loads/general/cload/hm_preread_cload.F
36!|| hm_preread_pload ../starter/source/loads/general/pload/hm_preread_pload.F
37!|| hm_preread_rbe2 ../starter/source/constraints/general/rbe2/hm_read_rbe2.F
38!|| hm_preread_rbe3 ../starter/source/constraints/general/rbe3/hm_preread_rbe3.F
39!|| hm_preread_rbody ../starter/source/constraints/general/rbody/hm_preread_rbody.F
40!|| hm_preread_sphio ../starter/source/loads/sph/hm_preread_sphio.F
41!|| hm_read_admas ../starter/source/tools/admas/hm_read_admas.F
42!|| hm_read_cload ../starter/source/loads/general/cload/hm_read_cload.F
43!|| hm_read_cyljoint ../starter/source/constraints/general/cyl_joint/hm_read_cyljoint.F
44!|| hm_read_friction_models ../starter/source/interfaces/friction/reader/hm_read_friction_models.F
45!|| hm_read_friction_orientations ../starter/source/interfaces/friction/reader/hm_read_friction_orientations.F
46!|| hm_read_gauge ../starter/source/output/gauge/hm_read_gauge.F
47!|| hm_read_gjoint ../starter/source/constraints/general/gjoint/hm_read_gjoint.F
48!|| hm_read_inivol ../starter/source/initial_conditions/inivol/hm_read_inivol.F90
49!|| hm_read_interfaces ../starter/source/interfaces/reader/hm_read_interfaces.F
50!|| hm_read_intsub ../starter/source/output/subinterface/hm_read_intsub.F
51!|| hm_read_link ../starter/source/constraints/rigidlink/hm_read_rlink.F
52!|| hm_read_load_centri ../starter/source/loads/general/load_centri/hm_read_load_centri.F
53!|| hm_read_load_pressure ../starter/source/loads/general/load_pressure/hm_read_load_pressure.F
54!|| hm_read_mpc ../starter/source/constraints/general/mpc/hm_read_mpc.F
55!|| hm_read_pblast ../starter/source/loads/pblast/hm_read_pblast.F
56!|| hm_read_pfluid ../starter/source/loads/general/pfluid/hm_read_pfluid.F
57!|| hm_read_pload ../starter/source/loads/general/pload/hm_read_pload.F
58!|| hm_read_rbe2 ../starter/source/constraints/general/rbe2/hm_read_rbe2.F
59!|| hm_read_rbe3 ../starter/source/constraints/general/rbe3/hm_read_rbe3.F
60!|| hm_read_rbody ../starter/source/constraints/general/rbody/hm_read_rbody.F
61!|| hm_read_rbody_lagmul ../starter/source/constraints/general/rbody/hm_read_rbody_lagmul.F
62!|| hm_read_rwall_cyl ../starter/source/constraints/general/rwall/hm_read_rwall_cyl.F
63!|| hm_read_rwall_lagmul ../starter/source/constraints/general/rwall/hm_read_rwall_lagmul.F
64!|| hm_read_rwall_paral ../starter/source/constraints/general/rwall/hm_read_rwall_paral.F
65!|| hm_read_rwall_plane ../starter/source/constraints/general/rwall/hm_read_rwall_plane.F
66!|| hm_read_rwall_spher ../starter/source/constraints/general/rwall/hm_read_rwall_spher.F
67!|| hm_read_rwall_therm ../starter/source/constraints/general/rwall/hm_read_rwall_therm.F
68!|| hm_read_spcnd ../starter/source/constraints/sph/hm_read_spcnd.F
69!|| hm_read_sphio ../starter/source/loads/sph/hm_read_sphio.F
70!|| hm_tagpart ../starter/source/groups/hm_tagpart.F
71!|| hm_tagpart2 ../starter/source/groups/hm_tagpart2.F
72!|| i11sti3 ../starter/source/interfaces/inter3d1/i11sti3.F
73!|| inirby ../starter/source/constraints/general/rbody/inirby.F
74!|| init_monvol ../starter/source/airbag/init_monvol.F
75!|| lecextlnk ../starter/source/coupling/rad2rad/lecextlnk.F
76!|| lecint ../starter/source/interfaces/interf1/lecint.F
77!|| lecsec42 ../starter/source/tools/sect/hm_read_sect.F
78!|| lecsec4bolt ../starter/source/tools/sect/lecsec4bolt.F
79!|| lectur ../starter/source/starter/lectur.F
80!|| new_link ../starter/source/coupling/rad2rad/new_link.F
81!|| nodgr_r2r ../starter/source/coupling/rad2rad/routines_r2r.F
82!|| outrin ../starter/source/materials/time_step/outri.F
83!|| pgrtails ../starter/source/elements/beam/pgrtails.F
84!|| prelecsec ../starter/source/tools/sect/prelecsec.F
85!|| prelecsec4bolt ../starter/source/tools/sect/prelecsec4bolt.F
86!|| preread_rbody_lagmul ../starter/source/constraints/general/rbody/preread_rbody_lagmul.F
87!|| printgroup ../starter/source/output/outfile/printgroup.F
88!|| qgrtails ../starter/source/elements/solid_2d/quad/qgrtails.F
89!|| r2r_check ../starter/source/coupling/rad2rad/r2r_check.F
90!|| r2r_check_seg ../starter/source/coupling/rad2rad/routines_r2r.F
91!|| r2r_clean_inter ../starter/source/coupling/rad2rad/r2r_clean_inter.F
92!|| r2r_count ../starter/source/coupling/rad2rad/r2r_count.F
93!|| r2r_domdec ../starter/source/coupling/rad2rad/r2r_domdec.F
94!|| r2r_exist ../starter/source/coupling/rad2rad/routines_r2r.F
95!|| r2r_fork ../starter/source/coupling/rad2rad/r2r_fork.F
96!|| r2r_group ../starter/source/coupling/rad2rad/r2r_group.F
97!|| r2r_input ../starter/source/coupling/rad2rad/r2r_input.F
98!|| r2r_listcnt ../starter/source/coupling/rad2rad/routines_r2r.F
99!|| r2r_monvol ../starter/source/coupling/rad2rad/r2r_prelec.F
100!|| r2r_nom_opt ../starter/source/coupling/rad2rad/routines_r2r.F
101!|| r2r_prelec ../starter/source/coupling/rad2rad/r2r_prelec.F
102!|| r2r_prelec_name ../starter/source/coupling/rad2rad/r2r_prelec_name.F
103!|| r2r_speedup ../starter/source/coupling/rad2rad/r2r_speedup.F
104!|| r2r_split ../starter/source/coupling/rad2rad/r2r_split.F
105!|| r2r_void ../starter/source/coupling/rad2rad/r2r_void.F
106!|| r2r_void_1d ../starter/source/coupling/rad2rad/r2r_void.F
107!|| read_flag_ale ../starter/source/coupling/rad2rad/r2r_fork.F
108!|| read_monvol ../starter/source/airbag/read_monvol.F
109!|| read_rwall ../starter/source/constraints/general/rwall/read_rwall.F
110!|| rgrtails ../starter/source/elements/spring/rgrtails.F
111!|| setrbyon ../starter/source/constraints/general/rbody/hm_read_rbody.F
112!|| sgrhead ../starter/source/elements/solid/solide/sgrhead.F
113!|| sgrtails ../starter/source/elements/solid/solide/sgrtails.F
114!|| spgrtails ../starter/source/elements/sph/spgrtails.F
115!|| st_qaprint_constraints ../starter/source/output/qaprint/st_qaprint_constraints.F
116!|| st_qaprint_multidomains ../starter/source/output/qaprint/st_qaprint_multidomains.F
117!|| t3grtails ../starter/source/elements/solid_2d/tria/t3grtails.F
118!|| tag_elem_void_r2r ../starter/source/coupling/rad2rad/tagelem_r2r.F
119!|| tag_elem_void_r2r_lin ../starter/source/coupling/rad2rad/tagelem_r2r.F
120!|| tagint_r2r ../starter/source/coupling/rad2rad/tagint_r2r.F
121!|| tagnod_r2r_s ../starter/source/coupling/rad2rad/tagnod_r2r.F
122!|| tgrtails ../starter/source/elements/truss/tgrtails.F
123!|| xgrtails ../starter/source/elements/xelem/xgrtails.F
124!||====================================================================
125 MODULE r2r_mod
126C-----------------------------------------------
127C m y _ r e a l
128C-----------------------------------------------
129#include "my_real.inc"
130C-----------------------------------------------
131 INTEGER, DIMENSION(:), ALLOCATABLE :: isubdom_part,nncl
132 INTEGER, DIMENSION(:), ALLOCATABLE :: tagno,tagrby,tagint,tagmon
133 INTEGER, DIMENSION(:), ALLOCATABLE :: tag_elc,tag_els,tag_elp
134 INTEGER, DIMENSION(:), ALLOCATABLE :: tag_elr,tag_elt,tag_part
135 INTEGER, DIMENSION(:), ALLOCATABLE :: tag_elq,tag_elg,tag_subs
136 INTEGER, DIMENSION(:), ALLOCATABLE :: tag_mat,tag_prop,tag_surf
137 INTEGER, DIMENSION(:), ALLOCATABLE :: tagsec,tagcyl,TAGINT_WARN
138 INTEGER, DIMENSION(:), ALLOCATABLE :: TAGLNK,tagrb3,tagrb2,tagjoin
139 INTEGER, DIMENSION(:), ALLOCATABLE :: tagsphio,TAGSPHBCS,tagsph2s
140 INTEGER, DIMENSION(:), ALLOCATABLE :: tagmpc,front_r2r,flagkin_r2r
141 INTEGER, DIMENSION(:), ALLOCATABLE :: tag_elcf,tag_elcf2,tag_elsf,tag_elsf2
142 INTEGER, DIMENSION(:), ALLOCATABLE :: tag_elsp,nom_opt_temp,taggau,tag_inivol
143 INTEGER, DIMENSION(:,:), ALLOCATABLE :: isurf_r2r,islin_r2r,igrbric_r2r
144 INTEGER, DIMENSION(:,:), ALLOCATABLE :: isubdom,ipart_r2r
145 my_real ,DIMENSION(:), ALLOCATABLE :: pm_r2r,link_dom
146C-----------------------------------------------
147 END MODULE r2r_mod
#define my_real
Definition cppsort.cpp:32
integer, dimension(:), allocatable tag_els
Definition r2r_mod.F:133
integer, dimension(:), allocatable tag_elg
Definition r2r_mod.F:135
integer, dimension(:), allocatable tagno
Definition r2r_mod.F:132
integer, dimension(:), allocatable tagsphio
Definition r2r_mod.F:139
integer, dimension(:), allocatable tag_prop
Definition r2r_mod.F:136
integer, dimension(:), allocatable tag_inivol
Definition r2r_mod.F:142
integer, dimension(:), allocatable tagsec
Definition r2r_mod.F:137
integer, dimension(:), allocatable tag_elq
Definition r2r_mod.F:135
integer, dimension(:), allocatable tagrby
Definition r2r_mod.F:132
integer, dimension(:), allocatable tagrb2
Definition r2r_mod.F:138
integer, dimension(:), allocatable tag_elcf
Definition r2r_mod.F:141
integer, dimension(:), allocatable tag_elc
Definition r2r_mod.F:133
integer, dimension(:), allocatable tagrb3
Definition r2r_mod.F:138
integer, dimension(:), allocatable tag_part
Definition r2r_mod.F:134
integer, dimension(:), allocatable tag_elr
Definition r2r_mod.F:134
integer, dimension(:), allocatable tag_mat
Definition r2r_mod.F:136
integer, dimension(:,:), allocatable igrbric_r2r
Definition r2r_mod.F:143
integer, dimension(:), allocatable flagkin_r2r
Definition r2r_mod.F:140
integer, dimension(:), allocatable tag_elt
Definition r2r_mod.F:134
integer, dimension(:), allocatable tagint
Definition r2r_mod.F:132
integer, dimension(:), allocatable front_r2r
Definition r2r_mod.F:140
integer, dimension(:), allocatable tag_surf
Definition r2r_mod.F:136
integer, dimension(:), allocatable tagjoin
Definition r2r_mod.F:138
integer, dimension(:), allocatable tagmon
Definition r2r_mod.F:132
integer, dimension(:), allocatable nncl
Definition r2r_mod.F:131
integer, dimension(:), allocatable nom_opt_temp
Definition r2r_mod.F:142
integer, dimension(:), allocatable isubdom_part
Definition r2r_mod.F:131
integer, dimension(:,:), allocatable isurf_r2r
Definition r2r_mod.F:143
integer, dimension(:), allocatable tag_subs
Definition r2r_mod.F:135
integer, dimension(:), allocatable tag_elsf
Definition r2r_mod.F:141
integer, dimension(:,:), allocatable ipart_r2r
Definition r2r_mod.F:144
integer, dimension(:), allocatable taggau
Definition r2r_mod.F:142
integer, dimension(:), allocatable tagmpc
Definition r2r_mod.F:140
integer, dimension(:), allocatable tag_elsf2
Definition r2r_mod.F:141
integer, dimension(:), allocatable tag_elp
Definition r2r_mod.F:133
integer, dimension(:,:), allocatable isubdom
Definition r2r_mod.F:144
integer, dimension(:), allocatable tagsph2s
Definition r2r_mod.F:139
integer, dimension(:,:), allocatable islin_r2r
Definition r2r_mod.F:143
integer, dimension(:), allocatable tagcyl
Definition r2r_mod.F:137
integer, dimension(:), allocatable tag_elsp
Definition r2r_mod.F:142
integer, dimension(:), allocatable tag_elcf2
Definition r2r_mod.F:141