OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
xfem2vars_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!|| xfem2vars_mod ../engine/share/modules/xfem2vars_mod.F
25!||--- called by ------------------------------------------------------
26!|| crkxfem_rrestanim ../engine/source/output/restart/rdresb.F
27!|| resol ../engine/source/engine/resol.F
28!|| wrrestp ../engine/source/output/restart/wrrestp.F
29!||--- uses -----------------------------------------------------
30!|| crackxfem_mod ../engine/share/modules/crackxfem_mod.F
31!||====================================================================
33C-----------------------------------------------
34c Global XFEM variables and structures declarations
35C=======================================================================
37c----------------------
38 INTEGER, DIMENSION(:) , ALLOCATABLE :: indx_crk
39 INTEGER, DIMENSION(:,:), ALLOCATABLE :: xedge4n
40 INTEGER, DIMENSION(:,:), ALLOCATABLE :: xedge3n
41c
42 TYPE (xfem_edge_) ,DIMENSION(:), ALLOCATABLE :: crkedge
43c
44 TYPE (xfem_sky_) ,DIMENSION(:), ALLOCATABLE :: crksky
45
46c----------------------
47! TYPE(XFEM_LVSET_) , DIMENSION(:), ALLOCATABLE :: CRKLVSET
48
49! TYPE(XFEM_AVX_) , DIMENSION(:), ALLOCATABLE :: CRKAVX
50
51! TYPE (XFEM_NODES_), DIMENSION(:), ALLOCATABLE :: CRKNOD
52
53! TYPE (XFEM_SHELL_), DIMENSION(:), ALLOCATABLE :: CRKSHELL
54
55C NCRKPART & IND_CRK are global values shared by all processors
56! INTEGER NCRKPART -> com_xfem1.inc
57c-----------------------------
58 END MODULE xfem2vars_mod
type(xfem_sky_), dimension(:), allocatable crksky
integer, dimension(:,:), allocatable xedge4n
integer, dimension(:), allocatable indx_crk
type(xfem_edge_), dimension(:), allocatable crkedge
integer, dimension(:,:), allocatable xedge3n