OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
s20bilan.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!|| s20bilan ../engine/source/elements/solid/solide20/s20bilan.f
25!||--- called by ------------------------------------------------------
26!|| s20forc3 ../engine/source/elements/solid/solide20/s20forc3.F
27!||--- calls -----------------------------------------------------
28!|| grelem_sav ../engine/source/output/th/grelem_sav.F
29!|| sensor_energy_bilan ../engine/source/tools/sensor/sensor_energy_bilan.F
30!||--- uses -----------------------------------------------------
31!|| sensor_mod ../common_source/modules/sensor_mod.F90
32!||====================================================================
33 SUBROUTINE s20bilan(PARTSAV,EINTG,RHOG, VOLG,
34 . VX, VY, VZ,IPARTS, VOL0G,
35 . GRESAV,GRTH,IGRTH,IEXPAN,EINTTH,
36 . FILL ,X, Y, Z,ITASK,IPARG,OFFG,SENSORS,
37 . NEL,G_WPLA,WPLA)
38C-----------------------------------------------
39C M o d u l e s
40C-----------------------------------------------
41 USE sensor_mod
42C-----------------------------------------------
43C I m p l i c i t T y p e s
44C-----------------------------------------------
45#include "implicit_f.inc"
46C-----------------------------------------------
47C G l o b a l P a r a m e t e r s
48C-----------------------------------------------
49#include "mvsiz_p.inc"
50C-----------------------------------------------
51C C o m m o n B l o c k s
52C-----------------------------------------------
53#include "param_c.inc"
54#include "vect01_c.inc"
55C-----------------------------------------------
56C D u m m y A r g u m e n t s
57C-----------------------------------------------
58 INTEGER IEXPAN,
59 . IPARTS(*),GRTH(*),IGRTH(*),IPARG(*),ITASK
60C REAL
61 my_real
62 . partsav(npsav,*), eintg(*), rhog(*),
63 . vx(mvsiz,*),vy(mvsiz,*),vz(mvsiz,*),
64 . volg(*),vol0g(*),gresav(*),eintth(*),
65 . fill(*),
66 . x(mvsiz,*),y(mvsiz,*),z(mvsiz,*)
67 my_real, INTENT(IN) :: offg(mvsiz)
68 INTEGER, INTENT(IN) :: NEL,G_WPLA
69 my_real,DIMENSION(NEL*G_WPLA), INTENT(IN) :: WPLA
70C-----------------------------------------------
71C L o c a l V a r i a b l e s
72C-----------------------------------------------
73 INTEGER I, M,N, FLAG
74C REAL
75 my_real
76 . X1, X2, X3, V1, V2, V3, FAC,
77 . vxa(mvsiz), vya(mvsiz) , vza(mvsiz),
78 . va2(mvsiz), xmas(mvsiz),
79 . off(mvsiz), ei(mvsiz) , ek(mvsiz),
80 . xm(mvsiz) , ym(mvsiz) , zm(mvsiz),
81 . xx(mvsiz) , yy(mvsiz) , zz(mvsiz),
82 . xy(mvsiz) , yz(mvsiz) , zx(mvsiz),
83 . xx2(mvsiz), yy2(mvsiz), zz2(mvsiz),
84 . xcg(mvsiz), ycg(mvsiz), zcg(mvsiz),
85 . xxm(mvsiz), yym(mvsiz), zzm(mvsiz),
86 . ixx(mvsiz), iyy(mvsiz), izz(mvsiz),
87 . ixy(mvsiz), iyz(mvsiz), izx(mvsiz),
88 . rei(mvsiz), rek(mvsiz), off_l(mvsiz)
89 type (sensors_),INTENT(INOUT) :: SENSORS
90C-----------------------------------------------
91 FLAG = iparg(80) ! Flag pour sorties additionnelles
92C-----------------------------------------------
93C CALCUL BILAN SORTIES DEF
94C-----------------------------------------------
95 n=1
96 DO i=lft,llt
97 v1=vx(i,n)
98 v2=vy(i,n)
99 v3=vz(i,n)
100 vxa(i)=v1
101 vya(i)=v2
102 vza(i)=v3
103 va2(i)=(v1**2+v2**2+v3**2)
104 ENDDO
105C
106 DO n=2,8
107 DO i=lft,llt
108 v1=vx(i,n)
109 v2=vy(i,n)
110 v3=vz(i,n)
111 vxa(i)=vxa(i)+v1
112 vya(i)=vya(i)+v2
113 vza(i)=vza(i)+v3
114 va2(i)=va2(i)+(v1**2+v2**2+v3**2)
115 ENDDO
116 ENDDO
117C
118 fac = three/fourteen
119 DO i=lft,llt
120 vxa(i)=vxa(i)*fac
121 vya(i)=vya(i)*fac
122 vza(i)=vza(i)*fac
123 va2(i)=va2(i)*fac
124 ENDDO
125C
126 DO n=9,20
127 DO i=lft,llt
128 v1=vx(i,n)
129 v2=vy(i,n)
130 v3=vz(i,n)
131 vxa(i)=vxa(i)+v1
132 vya(i)=vya(i)+v2
133 vza(i)=vza(i)+v3
134 va2(i)=va2(i)+(v1**2+v2**2+v3**2)
135 ENDDO
136 ENDDO
137C
138 fac = seven/eighty16
139 DO i=lft,llt
140 vxa(i)=vxa(i)*fac
141 vya(i)=vya(i)*fac
142 vza(i)=vza(i)*fac
143 va2(i)=va2(i)*fac
144 ENDDO
145C
146 DO i=lft,llt
147 xmas(i)= fill(i)*rhog(i)*volg(i)
148 ei(i) = fill(i)*eintg(i)*vol0g(i)
149 ek(i) = xmas(i)*va2(i)*half
150 xm(i) = xmas(i)*vxa(i)
151 ym(i) = xmas(i)*vya(i)
152 zm(i) = xmas(i)*vza(i)
153 ENDDO
154C
155 DO i=lft,llt
156 m=iparts(i)
157 partsav(1,m)=partsav(1,m) + fill(i)*eintg(i)*vol0g(i)
158 partsav(2,m)=partsav(2,m) + xmas(i)*va2(i)*half
159 partsav(3,m)=partsav(3,m) + xmas(i)*vxa(i)
160 partsav(4,m)=partsav(4,m) + xmas(i)*vya(i)
161 partsav(5,m)=partsav(5,m) + xmas(i)*vza(i)
162 IF (offg(i) >= one) partsav(6,m)=partsav(6,m) + xmas(i)
163 IF (g_wpla > 0) partsav(29,m)=partsav(29,m) + wpla(i)
164 ENDDO
165C
166 IF(iexpan/=0)THEN
167 DO i=lft,llt
168 m=iparts(i)
169 partsav(27,m)=partsav(27,m) + eintth(i)*vol0g(i)
170 ENDDO
171 ENDIF
172C
173C-----------------------------------------------
174C CALCUL BILAN SORTIES ADDITIONNELLES
175C-----------------------------------------------
176 IF(flag==1) THEN
177 n=1
178 DO i=lft,llt
179 x1=x(i,n)
180 x2=y(i,n)
181 x3=z(i,n)
182 xx(i)=x1
183 yy(i)=x2
184 zz(i)=x3
185 xx2(i)=(x1**2)
186 yy2(i)=(x2**2)
187 zz2(i)=(x3**2)
188 xy(i)=(x1*x2)
189 yz(i)=(x2*x3)
190 zx(i)=(x3*x1)
191 ENDDO
192 DO n=2,8
193 DO i=lft,llt
194 x1=x(i,n)
195 x2=y(i,n)
196 x3=z(i,n)
197 xx(i)=xx(i)+x1
198 yy(i)=yy(i)+x2
199 zz(i)=zz(i)+x3
200 xx2(i)=xx2(i)+(x1**2)
201 yy2(i)=yy2(i)+(x2**2)
202 zz2(i)=zz2(i)+(x3**2)
203 xy(i)=xy(i)+(x1*x2)
204 yz(i)=yz(i)+(x2*x3)
205 zx(i)=zx(i)+(x3*x1)
206 ENDDO
207 ENDDO
208C
209 fac = three/fourteen
210 DO i=lft,llt
211 xx(i)=xx(i)*fac
212 yy(i)=yy(i)*fac
213 zz(i)=zz(i)*fac
214 xx2(i)=xx2(i)*fac
215 yy2(i)=yy2(i)*fac
216 zz2(i)=zz2(i)*fac
217 xy(i)=xy(i)*fac
218 yz(i)=yz(i)*fac
219 zx(i)=zx(i)*fac
220 ENDDO
221C
222 DO n=9,20
223 DO i=lft,llt
224 x1=x(i,n)
225 x2=y(i,n)
226 x3=z(i,n)
227 xx(i)=xx(i)+x1
228 yy(i)=yy(i)+x2
229 zz(i)=zz(i)+x3
230 xx2(i)=xx2(i)+(x1**2)
231 yy2(i)=yy2(i)+(x2**2)
232 zz2(i)=zz2(i)+(x3**2)
233 xy(i)=xy(i)+(x1*x2)
234 yz(i)=yz(i)+(x2*x3)
235 zx(i)=zx(i)+(x3*x1)
236 ENDDO
237 ENDDO
238C
239 fac = seven/eighty16
240 DO i=lft,llt
241 xx(i)=xx(i)*fac
242 yy(i)=yy(i)*fac
243 zz(i)=zz(i)*fac
244 xx2(i)=xx2(i)*fac
245 yy2(i)=yy2(i)*fac
246 zz2(i)=zz2(i)*fac
247 xy(i)=xy(i)*fac
248 yz(i)=yz(i)*fac
249 zx(i)=zx(i)*fac
250 ENDDO
251C
252 DO i=lft,llt
253 xcg(i)= xmas(i)*xx(i)
254 ycg(i)= xmas(i)*yy(i)
255 zcg(i)= xmas(i)*zz(i)
256 ixy(i)= -xmas(i)*xy(i)
257 iyz(i)= -xmas(i)*yz(i)
258 izx(i)= -xmas(i)*zx(i)
259 ixx(i)= xmas(i)*(yy2(i) + zz2(i))
260 iyy(i)= xmas(i)*(zz2(i) + xx2(i))
261 izz(i)= xmas(i)*(xx2(i) + yy2(i))
262 xxm(i)= vza(i)*ycg(i)-vya(i)*zcg(i)
263 yym(i)= vxa(i)*zcg(i)-vza(i)*xcg(i)
264 zzm(i)= vya(i)*xcg(i)-vxa(i)*ycg(i)
265 rei(i)= zero
266 rek(i)= zero
267 ENDDO
268C
269 DO i=lft,llt
270 m=iparts(i)
271 partsav(9,m) =partsav(9,m) + xcg(i)
272 partsav(10,m)=partsav(10,m) + ycg(i)
273 partsav(11,m)=partsav(11,m) + zcg(i)
274 partsav(12,m)=partsav(12,m) + xxm(i)
275 partsav(13,m)=partsav(13,m) + yym(i)
276 partsav(14,m)=partsav(14,m) + zzm(i)
277 partsav(15,m)=partsav(15,m) + ixx(i)
278 partsav(16,m)=partsav(16,m) + iyy(i)
279 partsav(17,m)=partsav(17,m) + izz(i)
280 partsav(18,m)=partsav(18,m) + ixy(i)
281 partsav(19,m)=partsav(19,m) + iyz(i)
282 partsav(20,m)=partsav(20,m) + izx(i)
283 partsav(21,m)=partsav(21,m) + rei(i)
284 partsav(22,m)=partsav(22,m) + rek(i)
285
286 ENDDO
287 ENDIF
288C
289C-----------------------------------------------
290 IF (igre /= 0) THEN
291 DO i=lft,llt
292 off(i) = one
293 ENDDO
294 CALL grelem_sav(lft ,llt ,gresav,igrth ,grth ,
295 2 off ,ei ,ek ,xm ,ym ,
296 3 zm ,xmas ,xcg ,ycg ,zcg ,
297 4 xxm ,yym ,zzm ,ixx ,iyy ,
298 5 izz ,ixy ,iyz ,izx ,rei ,
299 6 rek ,flag )
300 ENDIF
301C-----------------------------------------------
302C
303 off_l(lft:llt) = one
304C
305 DO i = lft,llt
306 m=iparts(i)
307 IF (offg(i) < one) THEN
308 partsav(25,m) = partsav(25,m) + one
309 ENDIF
310 ENDDO
311C
312 CALL sensor_energy_bilan(lft,llt,ei,ek,off_l,iparts,itask,sensors)
313C
314 RETURN
315 END
grelem_sav
subroutine grelem_sav(jft, jlt, gresav, igrth, grth, off, ei, ek, xm, ym, zm, xmas, xcg, ycg, zcg, xxm, yym, zzm, ixx, iyy, izz, ixy, iyz, izx, rei, rek, flag)
Definition grelem_sav.F:54
s20bilan
subroutine s20bilan(partsav, eintg, rhog, volg, vx, vy, vz, iparts, vol0g, gresav, grth, igrth, iexpan, eintth, fill, x, y, z, itask, iparg, offg, sensors, nel, g_wpla, wpla)
Definition s20bilan.F:38
sensor_energy_bilan
subroutine sensor_energy_bilan(jft, jlt, ei, ek, off, ipart, itask, sensors)
Definition sensor_energy_bilan.F:51