OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
failwave_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!|| failwave_mod ../common_source/modules/failwave_mod.F
25!||--- called by ------------------------------------------------------
26!|| c3forc3 ../engine/source/elements/sh3n/coque3n/c3forc3.F
27!|| c3forc3_crk ../engine/source/elements/xfem/c3forc3_crk.F
28!|| cbaforc3 ../engine/source/elements/shell/coqueba/cbaforc3.F
29!|| cdk6forc3 ../engine/source/elements/sh3n/coquedk6/cdk6forc3.F
30!|| cdkforc3 ../engine/source/elements/sh3n/coquedk/cdkforc3.F
31!|| cforc3 ../engine/source/elements/shell/coque/cforc3.F
32!|| cforc3_crk ../engine/source/elements/xfem/cforc3_crk.F
33!|| cmain3 ../engine/source/materials/mat_share/cmain3.F
34!|| cmain3pinch ../engine/source/elements/shell/coqueba/cmain3pinch.F
35!|| czforc3 ../engine/source/elements/shell/coquez/czforc3.F
36!|| czforc3_crk ../engine/source/elements/xfem/czforc3_crk.F
37!|| ddsplit ../starter/source/restart/ddsplit/ddsplit.F
38!|| fail_setoff_c ../engine/source/materials/fail/fail_setoff_c.F
39!|| fail_setoff_npg_c ../engine/source/materials/fail/fail_setoff_npg_c.F
40!|| fail_setoff_wind_frwave ../engine/source/materials/fail/fail_setoff_wind_frwave.F
41!|| failwave_init ../starter/source/materials/fail/failwave_init.F
42!|| forintc ../engine/source/elements/forintc.F
43!|| hm_read_fail ../starter/source/materials/fail/hm_read_fail.F
44!|| lectur ../engine/source/input/lectur.F
45!|| mulawc ../engine/source/materials/mat_share/mulawc.F90
46!|| read_failwave ../engine/source/output/restart/read_failwave.F
47!|| read_material_models ../starter/source/materials/read_material_models.F
48!|| resol ../engine/source/engine/resol.F
49!|| resol_init ../engine/source/engine/resol_init.F
50!|| restmod ../engine/share/modules/restart_mod.F
51!|| set_failwave_nod3 ../engine/source/materials/fail/failwave/set_failwave_nod3.F
52!|| set_failwave_nod4 ../engine/source/materials/fail/failwave/set_failwave_nod4.F
53!|| set_failwave_sh3n ../engine/source/materials/fail/failwave/upd_failwave_sh3n.F
54!|| set_failwave_sh4n ../engine/source/materials/fail/failwave/upd_failwave_sh4n.F
55!|| spmd_exch_failwave ../engine/source/mpi/output/spmd_exch_failwave.F
56!|| spmd_failwave_boundaries ../engine/source/mpi/output/spmd_exch_failwave.F
57!|| update_failwave ../engine/source/materials/fail/failwave/update_failwave.F
58!|| usermat_shell ../engine/source/materials/mat_share/usermat_shell.F
59!|| w_failwave ../engine/source/output/restart/w_failwave.F
60!||====================================================================
61 MODULE failwave_mod
62C-----------------------------------------------
63#include "my_real.inc"
64C=======================================================================
65c Structure for failure propagation info between elements
66c---------------------------------------------
67c
68 TYPE failwave_str_
69 INTEGER :: wave_mod ! activation / mode switch flag
70 INTEGER :: nnod ! number of nodes using frontwave
71 INTEGER :: nddl ! number of degrees of freedom per node
72 INTEGER :: size ! number of stack levels per node
73 INTEGER, DIMENSION(:) ,ALLOCATABLE :: indx ! (NNOD) nodal index table
74 INTEGER, DIMENSION(:) ,ALLOCATABLE :: idxi ! (NUMNOD) inversed nodal index table
75 INTEGER, DIMENSION(:) ,ALLOCATABLE :: maxlev ! max number of used levels
76 INTEGER, DIMENSION(:) ,ALLOCATABLE :: maxlev_stack
77 INTEGER, DIMENSION(:,:,:) ,ALLOCATABLE :: fwave_nod ! nodal table
78 INTEGER, DIMENSION(:,:,:) ,ALLOCATABLE :: fwave_nod_stack ! nodal table
79C
80 INTEGER, DIMENSION(:) ,ALLOCATABLE :: fwave_iad
81 INTEGER, DIMENSION(:) ,ALLOCATABLE :: fwave_fr
82 END TYPE failwave_str_
83c
84c----------------------------
85c starter allocation : FWAVE_NOD(NDDL,NUMNOD,SIZE)
86c MAXLEV(NUMNOD)
87c engine allocation : FWAVE_NOD(NDDL,NNOD,SIZE)
88c FWAVE_NOD_STACK(NDDL,NNOD,SIZE)
89c MAXLEV(NNOD)
90c MAXLEV_STACK(NNOD)
91c index tables :
92c global node numbers = INDX(NNOD)
93c frontwave node numbers = IDXI(NUMNNOD)
94c SPMD Neighbour structures
95c FWAVE_IAD : #nodes / SPMD domain to exchange
96c FWAVE_FR : boundary nodes index
97c----------------------------
98 END MODULE failwave_mod
failwave_mod
Definition failwave_mod.F:61
failwave_mod::failwave_str_
Definition failwave_mod.F:68