OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
s8sav3_imp.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!|| s8sav3_imp ../engine/source/elements/solid/solide8s/s8sav3_imp.F
25!||--- called by ------------------------------------------------------
26!|| srcoor3_imp ../engine/source/elements/solid/solide8s/srcoor3_imp.f
27!||====================================================================
28 SUBROUTINE s8sav3_imp(
29 1 OFFG, SAV, XD1, XD2,
30 2 XD3, XD4, XD5, XD6,
31 3 XD7, XD8, YD1, YD2,
32 4 YD3, YD4, YD5, YD6,
33 5 YD7, YD8, ZD1, ZD2,
34 6 ZD3, ZD4, ZD5, ZD6,
35 7 ZD7, ZD8, NEL)
36C-----------------------------------------------
37C I m p l i c i t T y p e s
38C-----------------------------------------------
39#include "implicit_f.inc"
40C-----------------------------------------------
41C C o m m o n B l o c k s
42C-----------------------------------------------
43C-----------------------------------------------
44C D u m m y A r g u m e n t s
45C-----------------------------------------------
46 INTEGER NEL
47C REAL
48 my_real
49 . OFFG(*)
50
51 DOUBLE PRECISION
52 . XD1(*), XD2(*), XD3(*), XD4(*), XD5(*), XD6(*), XD7(*), XD8(*),
53 . yd1(*), yd2(*), yd3(*), yd4(*), yd5(*), yd6(*), yd7(*), yd8(*),
54 . zd1(*), zd2(*), zd3(*), zd4(*), zd5(*), zd6(*), zd7(*), zd8(*),
55 . sav(nel,21)
56C-----------------------------------------------
57C L o c a l V a r i a b l e s
58C-----------------------------------------------
59 INTEGER I
60C=======================================================================
61 !print*,'OFFG(10) ', offg(10)
62 DO I=1,nel
63 IF(abs(offg(i)) <= one )THEN
64 sav(i,1)=xd2(i)-xd1(i)
65 sav(i,2)=yd2(i)-yd1(i)
66 sav(i,3)=zd2(i)-zd1(i)
67 sav(i,4)=xd3(i)-xd1(i)
68 sav(i,5)=yd3(i)-yd1(i)
69 sav(i,6)=zd3(i)-zd1(i)
70 sav(i,7)=xd4(i)-xd1(i)
71 sav(i,8)=yd4(i)-yd1(i)
72 sav(i,9)=zd4(i)-zd1(i)
73 sav(i,10)=xd5(i)-xd1(i)
74 sav(i,11)=yd5(i)-yd1(i)
75 sav(i,12)=zd5(i)-zd1(i)
76 sav(i,13)=xd6(i)-xd1(i)
77 sav(i,14)=yd6(i)-yd1(i)
78 sav(i,15)=zd6(i)-zd1(i)
79 sav(i,16)=xd7(i)-xd1(i)
80 sav(i,17)=yd7(i)-yd1(i)
81 sav(i,18)=zd7(i)-zd1(i)
82 sav(i,19)=xd8(i)-xd1(i)
83 sav(i,20)=yd8(i)-yd1(i)
84 sav(i,21)=zd8(i)-zd1(i)
85 ENDIF
86 ENDDO
87C-----------
88 RETURN
89 END
s8sav3_imp
subroutine s8sav3_imp(offg, sav, xd1, xd2, xd3, xd4, xd5, xd6, xd7, xd8, yd1, yd2, yd3, yd4, yd5, yd6, yd7, yd8, zd1, zd2, zd3, zd4, zd5, zd6, zd7, zd8, nel)
Definition s8sav3_imp.F:36
srcoor3_imp
subroutine srcoor3_imp(x, ixs, v, w, gama0, gama, x1, x2, x3, x4, x5, x6, x7, x8, y1, y2, y3, y4, y5, y6, y7, y8, z1, z2, z3, z4, z5, z6, z7, z8, vx1, vx2, vx3, vx4, vx5, vx6, vx7, vx8, vy1, vy2, vy3, vy4, vy5, vy6, vy7, vy8, vz1, vz2, vz3, vz4, vz5, vz6, vz7, vz8, vd2, vis, offg, off, sav, rho, rhoo, r, nc1, nc2, nc3, nc4, nc5, nc6, nc7, nc8, ngl, mxt, ngeo, ioutprt, vgax, vgay, vgaz, vga2, xd1, xd2, xd3, xd4, xd5, xd6, xd7, xd8, yd1, yd2, yd3, yd4, yd5, yd6, yd7, yd8, zd1, zd2, zd3, zd4, zd5, zd6, zd7, zd8, xdp, x0, y0, z0, nel, trm, xref, ulx1, ulx2, ulx3, ulx4, ulx5, ulx6, ulx7, ulx8, uly1, uly2, uly3, uly4, uly5, uly6, uly7, uly8, ulz1, ulz2, ulz3, ulz4, ulz5, ulz6, ulz7, ulz8, xgax, xgay, xgaz, xgxa2, xgya2, xgza2, xgxya, xgyza, xgzxa, iparg)
Definition srcoor3_imp.F:53