OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
nod2el_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!|| nod2el_mod ../starter/share/modules1/nod2el_mod.F
25!||--- called by ------------------------------------------------------
26!|| i2tid3 ../starter/source/interfaces/inter3d1/i2tid3.F
27!|| lectur ../starter/source/starter/lectur.F
28!|| merge_node ../starter/source/elements/nodes/merge_node.F
29!|| r2r_check_seg ../starter/source/coupling/rad2rad/routines_r2r.F
30!|| r2r_count ../starter/source/coupling/rad2rad/r2r_count.F
31!|| r2r_prelec ../starter/source/coupling/rad2rad/r2r_prelec.F
32!|| r2r_split ../starter/source/coupling/rad2rad/r2r_split.F
33!|| tag_elem_void_r2r ../starter/source/coupling/rad2rad/tagelem_r2r.F
34!|| tag_elem_void_r2r_lin ../starter/source/coupling/rad2rad/tagelem_r2r.F
35!||====================================================================
37C-----------------------------------------------
38C m y _ r e a l
39C-----------------------------------------------
40#include "my_real.inc"
41C-----------------------------------------------
42C DO IN=1,NUMNOD
43C DO K=KNOD2ELS(IN)+1,KNOD2ELS(IN+1)
44C IELS=NOD2ELS(K) ! Solid element number IELS contains node IN
45C
46C DO IN=1,NUMNOD
47C DO K=KNOD2ELC(IN)+1,KNOD2ELC(IN+1)
48C IELC=NOD2ELC(K) ! Shell element number IELC contains node IN
49C
50C DO IN=1,NUMNOD
51C DO K=KNOD2ELTG(IN)+1,KNOD2ELTG(IN+1)
52C IELTG=NOD2ELTG(K) ! 3-node shell element number IELTG contains node IN
53C
54C DO IN=1,NUMNOD
55C DO K=KNOD2ELIG3D(IN)+1,KNOD2ELIG3D(IN+1)
56C IELIG3D=NOD2ELIG3D(K) ! Solid isogeometric element number IELIG3D contains node IN
57C-----------------------------------------------
58 INTEGER, DIMENSION(:), ALLOCATABLE :: knod2els,KNOD2ELC,knod2eltg,
59 . NOD2ELS ,nod2elc ,nod2eltg,
62 . knod2elq,NOD2ELQ
63C-----------------------------------------------
64 END MODULE nod2el_mod
integer, dimension(:), allocatable knod2els
Definition nod2el_mod.F:58
integer, dimension(:), allocatable nod2elig3d
Definition nod2el_mod.F:58
integer, dimension(:), allocatable knod2el1d
Definition nod2el_mod.F:58
integer, dimension(:), allocatable nod2el1d
Definition nod2el_mod.F:58
integer, dimension(:), allocatable knod2elig3d
Definition nod2el_mod.F:58
integer, dimension(:), allocatable nod2eltg
Definition nod2el_mod.F:58
integer, dimension(:), allocatable nod2elc
Definition nod2el_mod.F:58
integer, dimension(:), allocatable knod2elq
Definition nod2el_mod.F:58
integer, dimension(:), allocatable knod2eltg
Definition nod2el_mod.F:58