OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
fvdeal.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!|| fvdeal ../engine/source/airbag/fvdeal.F
25!||--- called by ------------------------------------------------------
26!|| radioss2 ../engine/source/engine/radioss2.F
27!||--- uses -----------------------------------------------------
28!|| fvbag_mod ../engine/share/modules/fvbag_mod.F
29!||====================================================================
30 SUBROUTINE fvdeal()
31C-----------------------------------------------
32C D e s c r i p t i o n
33C-----------------------------------------------
34C DEALLOCATE
35C (FVDATA data structure)
36C-----------------------------------------------
37C M o d u l e s
38C-----------------------------------------------
39 USE fvbag_mod
40C-----------------------------------------------
41C I m p l i c i t T y p e s
42C-----------------------------------------------
43#include "implicit_f.inc"
44C-----------------------------------------------
45C L o c a l V a r i a b l e s
46C-----------------------------------------------
47 INTEGER I
48C
49 IF (ALLOCATED(fvdata)) THEN
50 DO i=1,nfvbag
51 IF (ASSOCIATED(fvdata(i)%IFVNOD))
52 . DEALLOCATE(fvdata(i)%IFVNOD)
53 IF (ASSOCIATED(fvdata(i)%RFVNOD))
54 . DEALLOCATE(fvdata(i)%RFVNOD)
55 IF (ASSOCIATED(fvdata(i)%IFVTRI))
56 . DEALLOCATE(fvdata(i)%IFVTRI)
57 IF (ASSOCIATED(fvdata(i)%IFVPOLY))
58 . DEALLOCATE(fvdata(i)%IFVPOLY)
59 IF (ASSOCIATED(fvdata(i)%IFVTADR))
60 . DEALLOCATE(fvdata(i)%IFVTADR)
61 IF (ASSOCIATED(fvdata(i)%IFVPOLH))
62 . DEALLOCATE(fvdata(i)%IFVPOLH)
63 IF (ASSOCIATED(fvdata(i)%IFVPADR))
64 . DEALLOCATE(fvdata(i)%IFVPADR)
65 IF (ASSOCIATED(fvdata(i)%IDPOLH))
66 . DEALLOCATE(fvdata(i)%IDPOLH)
67 IF (ASSOCIATED(fvdata(i)%IBPOLH))
68 . DEALLOCATE(fvdata(i)%IBPOLH)
69 IF (ASSOCIATED(fvdata(i)%IFVPOLY_ANIM))
70 . DEALLOCATE(fvdata(i)%IFVPOLY_ANIM)
71 IF (ASSOCIATED(fvdata(i)%IFVTADR_ANIM))
72 . DEALLOCATE(fvdata(i)%IFVTADR_ANIM)
73 IF (ASSOCIATED(fvdata(i)%IFVPOLH_ANIM))
74 . DEALLOCATE(fvdata(i)%IFVPOLH_ANIM)
75 IF (ASSOCIATED(fvdata(i)%IFVPADR_ANIM))
76 . DEALLOCATE(fvdata(i)%IFVPADR_ANIM)
77 IF (ASSOCIATED(fvdata(i)%REDIR_ANIM))
78 . DEALLOCATE(fvdata(i)%REDIR_ANIM)
79 IF (ASSOCIATED(fvdata(i)%NOD_ANIM))
80 . DEALLOCATE(fvdata(i)%NOD_ANIM)
81 IF (ASSOCIATED(fvdata(i)%MPOLH))
82 . DEALLOCATE(fvdata(i)%MPOLH)
83 IF (ASSOCIATED(fvdata(i)%QPOLH))
84 . DEALLOCATE(fvdata(i)%QPOLH)
85 IF (ASSOCIATED(fvdata(i)%EPOLH))
86 . DEALLOCATE(fvdata(i)%EPOLH)
87 IF (ASSOCIATED(fvdata(i)%PPOLH))
88 . DEALLOCATE(fvdata(i)%PPOLH)
89 IF (ASSOCIATED(fvdata(i)%RPOLH))
90 . DEALLOCATE(fvdata(i)%RPOLH)
91 IF (ASSOCIATED(fvdata(i)%GPOLH))
92 . DEALLOCATE(fvdata(i)%GPOLH)
93 IF (ASSOCIATED(fvdata(i)%CPAPOLH))
94 . DEALLOCATE(fvdata(i)%CPAPOLH)
95 IF (ASSOCIATED(fvdata(i)%CPBPOLH))
96 . DEALLOCATE(fvdata(i)%CPBPOLH)
97 IF (ASSOCIATED(fvdata(i)%CPCPOLH))
98 . DEALLOCATE(fvdata(i)%CPCPOLH)
99 IF (ASSOCIATED(fvdata(i)%RMWPOLH))
100 . DEALLOCATE(fvdata(i)%RMWPOLH)
101 IF (ASSOCIATED(fvdata(i)%VPOLH_INI))
102 . DEALLOCATE(fvdata(i)%VPOLH_INI)
103 IF (ASSOCIATED(fvdata(i)%DTPOLH))
104 . DEALLOCATE(fvdata(i)%DTPOLH)
105 IF (ASSOCIATED(fvdata(i)%TPOLH))
106 . DEALLOCATE(fvdata(i)%TPOLH)
107 IF (ASSOCIATED(fvdata(i)%CPDPOLH))
108 . DEALLOCATE(fvdata(i)%CPDPOLH)
109 IF (ASSOCIATED(fvdata(i)%CPEPOLH))
110 . DEALLOCATE(fvdata(i)%CPEPOLH)
111 IF (ASSOCIATED(fvdata(i)%CPFPOLH))
112 . DEALLOCATE(fvdata(i)%CPFPOLH)
113 IF (ASSOCIATED(fvdata(i)%SSPPOLH))
114 . DEALLOCATE(fvdata(i)%SSPPOLH)
115 IF (ASSOCIATED(fvdata(i)%CENTROID_POLH))
116 . DEALLOCATE(fvdata(i)%CENTROID_POLH)
117 ENDDO
118 DEALLOCATE(fvdata)
119 ENDIF
120C
121 IF (ALLOCATED(fvdata_old)) THEN
122 DO i=1,nfvbag
123 IF (ASSOCIATED(fvdata_old(i)%IFVNOD))
124 . DEALLOCATE(fvdata_old(i)%IFVNOD)
125 IF (ASSOCIATED(fvdata_old(i)%RFVNOD))
126 . DEALLOCATE(fvdata_old(i)%RFVNOD)
127 IF (ASSOCIATED(fvdata_old(i)%IFVTRI))
128 . DEALLOCATE(fvdata_old(i)%IFVTRI)
129 IF (ASSOCIATED(fvdata_old(i)%IFVPOLY))
130 . DEALLOCATE(fvdata_old(i)%IFVPOLY)
131 IF (ASSOCIATED(fvdata_old(i)%IFVTADR))
132 . DEALLOCATE(fvdata_old(i)%IFVTADR)
133 IF (ASSOCIATED(fvdata_old(i)%IFVPOLH))
134 . DEALLOCATE(fvdata_old(i)%IFVPOLH)
135 IF (ASSOCIATED(fvdata_old(i)%IFVPADR))
136 . DEALLOCATE(fvdata_old(i)%IFVPADR)
137 IF (ASSOCIATED(fvdata_old(i)%IDPOLH))
138 . DEALLOCATE(fvdata_old(i)%IDPOLH)
139 IF (ASSOCIATED(fvdata_old(i)%IBPOLH))
140 . DEALLOCATE(fvdata_old(i)%IBPOLH)
141 IF (ASSOCIATED(fvdata_old(i)%IFVPOLY_ANIM))
142 . DEALLOCATE(fvdata_old(i)%IFVPOLY_ANIM)
143 IF (ASSOCIATED(fvdata_old(i)%IFVTADR_ANIM))
144 . DEALLOCATE(fvdata_old(i)%IFVTADR_ANIM)
145 IF (ASSOCIATED(fvdata_old(i)%IFVPOLH_ANIM))
146 . DEALLOCATE(fvdata_old(i)%IFVPOLH_ANIM)
147 IF (ASSOCIATED(fvdata_old(i)%IFVPADR_ANIM))
148 . DEALLOCATE(fvdata_old(i)%IFVPADR_ANIM)
149 IF (ASSOCIATED(fvdata_old(i)%REDIR_ANIM))
150 . DEALLOCATE(fvdata_old(i)%REDIR_ANIM)
151 IF (ASSOCIATED(fvdata_old(i)%NOD_ANIM))
152 . DEALLOCATE(fvdata_old(i)%NOD_ANIM)
153 IF (ASSOCIATED(fvdata_old(i)%MPOLH))
154 . DEALLOCATE(fvdata_old(i)%MPOLH)
155 IF (ASSOCIATED(fvdata_old(i)%QPOLH))
156 . DEALLOCATE(fvdata_old(i)%QPOLH)
157 IF (ASSOCIATED(fvdata_old(i)%EPOLH))
158 . DEALLOCATE(fvdata_old(i)%EPOLH)
159 IF (ASSOCIATED(fvdata_old(i)%PPOLH))
160 . DEALLOCATE(fvdata_old(i)%PPOLH)
161 IF (ASSOCIATED(fvdata_old(i)%RPOLH))
162 . DEALLOCATE(fvdata_old(i)%RPOLH)
163 IF (ASSOCIATED(fvdata_old(i)%GPOLH))
164 . DEALLOCATE(fvdata_old(i)%GPOLH)
165 IF (ASSOCIATED(fvdata_old(i)%CPAPOLH))
166 . DEALLOCATE(fvdata_old(i)%CPAPOLH)
167 IF (ASSOCIATED(fvdata_old(i)%CPBPOLH))
168 . DEALLOCATE(fvdata_old(i)%CPBPOLH)
169 IF (ASSOCIATED(fvdata_old(i)%CPCPOLH))
170 . DEALLOCATE(fvdata_old(i)%CPCPOLH)
171 IF (ASSOCIATED(fvdata_old(i)%RMWPOLH))
172 . DEALLOCATE(fvdata_old(i)%RMWPOLH)
173 IF (ASSOCIATED(fvdata_old(i)%VPOLH_INI))
174 . DEALLOCATE(fvdata_old(i)%VPOLH_INI)
175 IF (ASSOCIATED(fvdata_old(i)%DTPOLH))
176 . DEALLOCATE(fvdata_old(i)%DTPOLH)
177 IF (ASSOCIATED(fvdata_old(i)%TPOLH))
178 . DEALLOCATE(fvdata_old(i)%TPOLH)
179 IF (ASSOCIATED(fvdata_old(i)%CPDPOLH))
180 . DEALLOCATE(fvdata_old(i)%CPDPOLH)
181 IF (ASSOCIATED(fvdata_old(i)%CPEPOLH))
182 . DEALLOCATE(fvdata_old(i)%CPEPOLH)
183 IF (ASSOCIATED(fvdata_old(i)%CPFPOLH))
184 . DEALLOCATE(fvdata_old(i)%CPFPOLH)
185 IF (ASSOCIATED(fvdata_old(i)%SSPPOLH))
186 . DEALLOCATE(fvdata_old(i)%SSPPOLH)
187 IF (ASSOCIATED(fvdata_old(i)%CENTROID_POLH))
188 . DEALLOCATE(fvdata_old(i)%CENTROID_POLH)
189 ENDDO
190 DEALLOCATE(fvdata_old)
191 ENDIF
192C
193 IF (ALLOCATED(fvspmd)) THEN
194 DO i=1,nfvbag
195 IF (ASSOCIATED(fvspmd(i)%IBUF_L))
196 . DEALLOCATE(fvspmd(i)%IBUF_L)
197 IF (ASSOCIATED(fvspmd(i)%IBUFA_L))
198 . DEALLOCATE(fvspmd(i)%IBUFA_L)
199 IF (ASSOCIATED(fvspmd(i)%IBUFSA_L))
200 . DEALLOCATE(fvspmd(i)%IBUFSA_L)
201 IF (ASSOCIATED(fvspmd(i)%IXSA))
202 . DEALLOCATE(fvspmd(i)%IXSA)
203 IF (ASSOCIATED(fvspmd(i)%ELEMSA))
204 . DEALLOCATE(fvspmd(i)%ELEMSA)
205 IF (ASSOCIATED(fvspmd(i)%ITAB))
206 . DEALLOCATE(fvspmd(i)%ITAB)
207 ENDDO
208 DEALLOCATE(fvspmd)
209 ENDIF
210C
211 RETURN
212 END
fvdeal
subroutine fvdeal()
Definition fvdeal.F:31
fvbag_mod
Definition fvbag_mod.F:44
fvbag_mod::fvdata_old
type(fvbag_data), dimension(:), allocatable fvdata_old
Definition fvbag_mod.F:193
fvbag_mod::fvspmd
type(fvbag_spmd), dimension(:), allocatable fvspmd
Definition fvbag_mod.F:129
fvbag_mod::fvdata
type(fvbag_data), dimension(:), allocatable fvdata
Definition fvbag_mod.F:128
fvbag_mod::nfvbag
integer nfvbag
Definition fvbag_mod.F:127