OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
i25_fie_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!|| i25_fie_mod ../starter/share/modules1/i25_fie_mod.F
25!||--- called by ------------------------------------------------------
26!|| prepare_split_i25e2e ../starter/source/spmd/prepare_split_i25e2e.F
27!|| split_cand_i25_edge ../starter/source/restart/ddsplit/inter_tools.F
28!|| w_fi ../starter/source/restart/ddsplit/w_fi.F
29!||====================================================================
31C-----------------------------------------------------------------------
32#include "my_real.inc"
33c=======================================================================
34c
36C candidates E2E
37 integer :: nb_cand_e2e
38 integer, DIMENSION(:), ALLOCATABLE :: id_e2e
39 integer, DIMENSION(:), ALLOCATABLE :: cands_e2e
40 integer, DIMENSION(:), ALLOCATABLE :: candm_e2e
41C candidates E2S
42 integer :: nb_cand_e2s
43 integer, DIMENSION(:), ALLOCATABLE :: id_e2s
44 integer, DIMENSION(:), ALLOCATABLE :: cands_e2s
45 integer, DIMENSION(:), ALLOCATABLE :: candm_e2s
46 END TYPE i25_cand_
48 integer :: nedge_tot
49 integer, DIMENSION(:), ALLOCATABLE :: nedge
50 integer, DIMENSION(:), ALLOCATABLE :: ID
51 END TYPE i25_fie_
52
53 TYPE(i25_cand_), DIMENSION(:,:), ALLOCATABLE :: i25_split_cand
54 TYPE(i25_fie_), DIMENSION(:,:), ALLOCATABLE :: i25_fie
55
56c
57c---------------
58 END MODULE i25_fie_mod
type(i25_fie_), dimension(:,:), allocatable i25_fie
Definition i25_fie_mod.F:54
type(i25_cand_), dimension(:,:), allocatable i25_split_cand
Definition i25_fie_mod.F:53