OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
state_inimap_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#include "my_real.inc"
24
25!||====================================================================
26!|| state_inimap_mod ../engine/share/modules/state_inimap_mod.F
27!||--- called by ------------------------------------------------------
28!|| frestat ../engine/source/input/frestat.F
29!|| genstat ../engine/source/output/sta/genstat.F
30!|| spmd_state_inimap1d_exch_data ../engine/source/output/sta/spmd_state_inimap1d_exch_data.F
31!|| spmd_state_inimap2d_exch_data ../engine/source/output/sta/spmd_state_inimap2d_exch_data.F
32!|| spmd_state_inimap_exch_siz ../engine/source/output/sta/spmd_state_inimap_exch_siz.F
33!|| stat_inimap1d_file_spmd ../engine/source/output/sta/stat_inimap1d_file_spmd.F
34!|| stat_inimap1d_spmd ../engine/source/output/sta/stat_inimap1d_spmd.F
35!|| stat_inimap2d_file_spmd ../engine/source/output/sta/stat_inimap2d_file_spmd.F
36!|| stat_inimap2d_spmd ../engine/source/output/sta/stat_inimap2d_spmd.F
37!||====================================================================
39
41
42 !for each submaterial
44 my_real, ALLOCATABLE, DIMENSION(:) :: rho
45 my_real, ALLOCATABLE, DIMENSION(:) :: vfrac
46 my_real, ALLOCATABLE, DIMENSION(:) :: e
47 my_real, ALLOCATABLE, DIMENSION(:) :: pres
48 END TYPE
49
50 !for each SPMD domain
52 INTEGER :: num_centroids
53 INTEGER :: num_points
54 INTEGER :: mlw
55 INTEGER :: nsubmat
56
57 my_real :: shift_n
58 my_real :: shift_ny
59 my_real :: shift_nz
60
61 my_real :: shift_c
62 my_real :: shift_cy
63 my_real :: shift_cz
64
65 my_real :: length
66
67 my_real, ALLOCATABLE, DIMENSION(:) :: pos_centroids
68 my_real, ALLOCATABLE, DIMENSION(:) :: pos2_centroids
69
70 my_real, ALLOCATABLE, DIMENSION(:) :: pos_nodes
71 my_real, ALLOCATABLE, DIMENSION(:) :: pos2_nodes
72
73 my_real, ALLOCATABLE, DIMENSION(:) :: vel_nodes
74 my_real, ALLOCATABLE, DIMENSION(:) :: vel2_nodes
75
76 INTEGER, ALLOCATABLE, DIMENSION(:) :: node_ids
77 INTEGER, ALLOCATABLE, DIMENSION(:) :: cell_ids
78
79
80 TYPE(cell_data),DIMENSION(:),ALLOCATABLE :: submat
81 END TYPE
82
83 !for each SPMD domain
84 TYPE(map_struct), ALLOCATABLE, DIMENSION(:) :: state_inimap_buf
85
86 !flag
93
94 INTEGER ncell_max
95 INTEGER npts_max
96
97 END MODULE
#define my_real
Definition cppsort.cpp:32
logical is_stat_inimap_single
integer state_inimap_call_number
logical is_stat_inimap_detected
type(map_struct), dimension(:), allocatable state_inimap_buf
logical is_stat_inimap_msg_already_displayed