OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
group_ini.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!|| group_ini ../engine/source/groups/group_ini.F
25!||--- called by ------------------------------------------------------
26!|| rdresb ../engine/source/output/restart/rdresb.F
27!||--- calls -----------------------------------------------------
28!|| alloc_group_str ../engine/source/groups/alloc_group_str.F
29!||--- uses -----------------------------------------------------
30!|| group_mod ../engine/share/modules/group_mod.F
31!|| groupdef_mod ../common_source/modules/groupdef_mod.F
32!|| message_mod ../engine/share/message_module/message_mod.F
33!||====================================================================
34 SUBROUTINE group_ini
35C-----------------------------------------------
36C M o d u l e s
37C-----------------------------------------------
38 USE message_mod
39 USE groupdef_mod
40 USE group_mod
41C-----------------------------------------------
42C I m p l i c i t T y p e s
43C-----------------------------------------------
44#include "implicit_f.inc"
45C-----------------------------------------------
46C C o m m o n B l o c k s
47C-----------------------------------------------
48#include "com04_c.inc"
49#include "tabsiz_c.inc"
50C-----------------------------------------------
51C L o c a l V a r i a b l e s
52C-----------------------------------------------
53!
54!! IGRNOD,IGRBRICK,IGRQUAD,...
55!
56! --- READ IGRNOD ---
57 IF (ngrnod > 0)THEN
58 ALLOCATE(igrnod(ngrnod))
59 CALL alloc_group_str(igrnod,ngrnod,lenigrnod)
60 ELSE
61 ALLOCATE(igrnod(0))
62 ENDIF
63! --- READ IGRBRIC ---
64 IF (ngrbric > 0)THEN
65 ALLOCATE(igrbric(ngrbric))
66 CALL alloc_group_str(igrbric,ngrbric,lenigrbric)
67 ELSE
68 ALLOCATE(igrbric(0))
69 ENDIF
70! --- READ IGRQUAD ---
71 IF (ngrquad > 0)THEN
72 ALLOCATE(igrquad(ngrquad))
73 CALL alloc_group_str(igrquad,ngrquad,lenigrquad)
74 ELSE
75 ALLOCATE(igrquad(0))
76 ENDIF
77! --- READ IGRSH4N ---
78 IF (ngrshel > 0)THEN
79 ALLOCATE(igrsh4n(ngrshel))
80 CALL alloc_group_str(igrsh4n,ngrshel,lenigrsh4n)
81 ELSE
82 ALLOCATE(igrsh4n(0))
83 ENDIF
84! --- READ IGRTRUSS ---
85 IF (ngrtrus > 0)THEN
86 ALLOCATE(igrtruss(ngrtrus))
87 CALL alloc_group_str(igrtruss,ngrtrus,lenigrtrus)
88 ELSE
89 ALLOCATE(igrtruss(0))
90 ENDIF
91! --- READ IGRBEAM ---
92 IF (ngrbeam > 0)THEN
93 ALLOCATE(igrbeam(ngrbeam))
94 CALL alloc_group_str(igrbeam,ngrbeam,lenigrbeam)
95 ELSE
96 ALLOCATE(igrbeam(0))
97 ENDIF
98! --- READ IGRSPRING ---
99 IF (ngrspri > 0)THEN
100 ALLOCATE(igrspring(ngrspri))
101 CALL alloc_group_str(igrspring,ngrspri,lenigrspri)
102 ELSE
103 ALLOCATE(igrspring(0))
104 ENDIF
105! --- READ IGRSH3N ---
106 IF (ngrsh3n > 0)THEN
107 ALLOCATE(igrsh3n(ngrsh3n))
108 CALL alloc_group_str(igrsh3n,ngrsh3n,lenigrsh3n)
109 ELSE
110 ALLOCATE(igrsh3n(0))
111 ENDIF
112! --- READ IGRPART ---
113 IF (ngrpart > 0)THEN
114 ALLOCATE(igrpart(ngrpart))
115 CALL alloc_group_str(igrpart,ngrpart,lenigrpart)
116 ELSE
117 ALLOCATE(igrpart(0))
118 ENDIF
119!---------
120 RETURN
121 END
subroutine alloc_group_str(igr, ngr, lenigr)
subroutine group_ini
Definition group_ini.F:35
type(group_), dimension(:), allocatable, target igrsh4n
Definition group_mod.F:38
type(group_), dimension(:), allocatable, target igrquad
Definition group_mod.F:37
type(group_), dimension(:), allocatable, target igrbeam
Definition group_mod.F:41
type(group_), dimension(:), allocatable, target igrpart
Definition group_mod.F:43
type(group_), dimension(:), allocatable, target igrtruss
Definition group_mod.F:40
type(group_), dimension(:), allocatable, target igrsh3n
Definition group_mod.F:39
type(group_), dimension(:), allocatable, target igrspring
Definition group_mod.F:42
type(group_), dimension(:), allocatable, target igrbric
Definition group_mod.F:36
type(group_), dimension(:), allocatable, target igrnod
Definition group_mod.F:35