OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
xfem2def_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!|| xfem2def_mod ../common_source/modules/xfem2def_mod.F
25!||--- called by ------------------------------------------------------
26!|| activ_xfem ../engine/source/elements/xfem/activ_xfem.F
27!|| allocxfem ../starter/source/elements/xfem/allocxfem.F
28!|| c_ncrkxfem ../starter/source/restart/ddsplit/c_ncrkxfem.F
29!|| ddsplit ../starter/source/restart/ddsplit/ddsplit.F
30!|| edgetip3n ../starter/source/elements/xfem/lslocal.F
31!|| edgetip4n ../starter/source/elements/xfem/lslocal.F
32!|| inicrkfill ../starter/source/elements/xfem/inicrkfill.F
33!|| lectur ../engine/source/input/lectur.F
34!|| lslocal ../starter/source/elements/xfem/lslocal.F
35!|| preinicrk3n ../starter/source/elements/xfem/preinicrk3N.F
36!|| preinicrk4n ../starter/source/elements/xfem/preinicrk4N.F
37!|| w_anim_crk ../starter/source/restart/ddsplit/w_anim_crk.F
38!|| xfem_crack_init ../starter/source/elements/xfem/xfem_crack_init.F
39!||====================================================================
40 MODULE xfem2def_mod
41C-----------------------------------------------
42#include "my_real.inc"
43C=======================================================================
44C Structures needed for cracking of layered shell process
45C---------------------------------------------
46 TYPE xfem_shell_ ! (NLEVMAX) phantom element data structure
47 INTEGER crknumshell ! Number of shell elements for each level
48 INTEGER crknumsh3 ! Number of SH3N elements for each level
49 INTEGER crknumsh4 ! Number of SH4N elements for each level
50 INTEGER, DIMENSION(:) , ALLOCATABLE :: phantoml ! Local shell N for each level = old CRKSHID - local starter
51 INTEGER, DIMENSION(:) , ALLOCATABLE :: phantomg ! Global shell N for each level = old CRKSHELLID
52 INTEGER, DIMENSION(:) , ALLOCATABLE :: eltype ! shell element type (xfem elements)
53c nodal connectivities of phantom shells
54 INTEGER, DIMENSION(:,:) , ALLOCATABLE :: xnodeg ! global phantom node num (KNOD2ELC - not used)
55 INTEGER, DIMENSION(:,:) , ALLOCATABLE :: xnodel ! local phantom node num per ilev = old XFENODES
56 END TYPE xfem_shell_
57C====================================================================================
58
59 TYPE xfem_phantom_ ! (NXLAYMAX)
60 INTEGER, DIMENSION(:,:) ,ALLOCATABLE :: ITRI
61 INTEGER, DIMENSION(:,:,:) ,ALLOCATABLE :: tagxp ! velocity link flag
62 INTEGER, DIMENSION(:) ,ALLOCATABLE :: elcut ! flag of cut xfem element
63 INTEGER, DIMENSION(:) ,ALLOCATABLE :: ifi ! sign within partitioned superposed element
64 END TYPE xfem_phantom_
65c-------------------------------------------------------------------------------------
66c
67 TYPE xfem_lvset_ ! (NLEVMAX)
68 INTEGER, DIMENSION(:), ALLOCATABLE :: elcut ! +/- ICRK (element N)
69 INTEGER, DIMENSION(:,:) , ALLOCATABLE :: hfi0
70 INTEGER, DIMENSION(:,:) , ALLOCATABLE :: enrich0
71 INTEGER, DIMENSION(:,:) , ALLOCATABLE :: edge0
72 INTEGER, DIMENSION(:,:) , ALLOCATABLE :: edge
73 INTEGER, DIMENSION(:,:) , ALLOCATABLE :: edgetg
74 INTEGER, DIMENSION(:) , ALLOCATABLE :: icutedge
75 my_real, DIMENSION(:) , ALLOCATABLE :: ratioedge
76 END TYPE xfem_lvset_
77C---------------------------------------------
78c
79 TYPE xfem_edge_ ! (NXLAYMAX)
80 INTEGER, DIMENSION(:) , ALLOCATABLE :: LAYCUT ! cut xfem element flag = (0,1,2)
81 INTEGER, DIMENSION(:) , ALLOCATABLE :: EDGEICRK ! Id of cracked element if cut
82 INTEGER, DIMENSION(:,:) , ALLOCATABLE :: edgeifi
83 INTEGER, DIMENSION(:,:) , ALLOCATABLE :: edgeenr
84 INTEGER, DIMENSION(:,: ) , ALLOCATABLE :: edgetip
85 END TYPE xfem_edge_
86C-------------------------------
87c
88 TYPE xfem_avx_ ! (NLEVMAX)
89 my_real, DIMENSION(:,:), ALLOCATABLE :: a
90 my_real, DIMENSION(:,:), ALLOCATABLE :: ar
91 my_real, DIMENSION(:,:), ALLOCATABLE :: v
92 my_real, DIMENSION(:,:), ALLOCATABLE :: vr
93 my_real, DIMENSION(:,:), ALLOCATABLE :: x
94 my_real, DIMENSION(:,:), ALLOCATABLE :: u
95 my_real, DIMENSION(:,:), ALLOCATABLE :: xx
96 END TYPE xfem_avx_
97C-------------------------------
98c
99 TYPE xfem_sky_ !
100 my_real, DIMENSION(:,:), ALLOCATABLE :: fsky
101 END TYPE xfem_sky_
102c
103C----------------------------
104 END MODULE xfem2def_mod
105
my_real
#define my_real
Definition cppsort.cpp:32
xfem2def_mod
Definition xfem2def_mod.F:40
xfem2def_mod::xfem_avx_
Definition xfem2def_mod.F:88
xfem2def_mod::xfem_edge_
Definition xfem2def_mod.F:79
xfem2def_mod::xfem_lvset_
Definition xfem2def_mod.F:67
xfem2def_mod::xfem_phantom_
Definition xfem2def_mod.F:59
xfem2def_mod::xfem_shell_
Definition xfem2def_mod.F:46
xfem2def_mod::xfem_sky_
Definition xfem2def_mod.F:99