OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
fvdeal.F File Reference
#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine fvdeal ()

Function/Subroutine Documentation

◆ fvdeal()

subroutine fvdeal

Definition at line 30 of file fvdeal.F.

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
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