OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
intstamp_glob_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!|| intstamp_glob_mod ../engine/share/modules/intstamp_glob_mod.F
25!||--- called by ------------------------------------------------------
26!|| i21buce ../engine/source/interfaces/intsort/i21buce.F
27!|| i21cor3 ../engine/source/interfaces/int21/i21cor3.F
28!|| lectur ../engine/source/input/lectur.F
29!|| radioss2 ../engine/source/engine/radioss2.F
30!|| rdresb ../engine/source/output/restart/rdresb.F
31!|| resol ../engine/source/engine/resol.F
32!|| restalloc ../engine/source/output/restart/arralloc.F
33!|| spmd_i21fthecom ../engine/source/mpi/interfaces/send_cand.F
34!|| spmd_i21tempcom ../engine/source/mpi/interfaces/send_cand.F
35!|| spmd_ifront_stamp ../engine/source/mpi/interfaces/send_cand.F
36!|| spmd_initfi ../engine/source/mpi/interfaces/spmd_i7tool.F
37!|| spmd_savefi ../engine/source/mpi/interfaces/spmd_i7tool.F
38!|| update_struct_int21 ../engine/source/interfaces/int21/update_struct_int21.F
39!|| wrrestp ../engine/source/output/restart/wrrestp.F
40!||--- uses -----------------------------------------------------
41!|| intstamp_mod ../engine/share/modules/intstamp_mod.F
42!||====================================================================
44C-----------------------------------------------
45C M o d u l e s
46C-----------------------------------------------
47 USE intstamp_mod
48C-----------------------------------------------
49C m y _ r e a l
50C-----------------------------------------------
51#include "my_real.inc"
52C-----------------------------------------------
54 INTEGER, DIMENSION(:), POINTER :: p
55 END TYPE int_pointer
56
58 my_real, DIMENSION(:), POINTER :: p
59 END TYPE real_pointer
60
61 TYPE(INTSTAMP_DATA), DIMENSION(:), ALLOCATABLE :: INTSTAMP
62 INTEGER,
63 . DIMENSION(:), ALLOCATABLE :: indexcont, tagcont
64 my_real,
65 . DIMENSION(:,:), ALLOCATABLE :: fcontg, fncontg, ftcontg, pskids
66
67C SPMD STRUCTURES :
68C NMNFI : Tab of pointers siz NINSTAMP => number of remote main node in NMVFI
69C by SPMD domain
70C NMVFI/NMVSI : Tab of pointers => remote main node
71C TEMPNOD : Tab of pointers => Local nodes corresponding to main node in NMVFI
72C NTEMP : Tab of pointers => Temperature of main node in NMVFI
73 TYPE(int_pointer), DIMENSION(:), ALLOCATABLE ::
75
76 TYPE(real_pointer), DIMENSION(:), ALLOCATABLE ::
77 . nmtemp
78
79 END MODULE intstamp_glob_mod
#define my_real
Definition cppsort.cpp:32
type(int_pointer), dimension(:), allocatable nmvsi
type(int_pointer), dimension(:), allocatable nmnsi
type(int_pointer), dimension(:), allocatable nmvfi
type(int_pointer), dimension(:), allocatable nmnfi
type(real_pointer), dimension(:), allocatable nmtemp
integer, dimension(:), allocatable indexcont
type(int_pointer), dimension(:), allocatable tempnod
integer, dimension(:), allocatable tagcont