OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
s8ederi_2.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!|| s8ederi_2 ../engine/source/elements/solid/solide8e/s8ederi_2.F
25!||--- called by ------------------------------------------------------
26!|| s8eforc3 ../engine/source/elements/solid/solide8e/s8eforc3.F
27!|| s8sforc3 ../engine/source/elements/solid/solide8s/s8sforc3.F
28!||--- calls -----------------------------------------------------
29!|| s8bicp11 ../engine/source/elements/solid/solide8e/s8bicp11.F
30!||====================================================================
31 SUBROUTINE s8ederi_2(
32 1 OFFG, OFF, VOL, KSI,
33 2 ETA, ZETA, WI, PX1,
34 3 PX2, PX3, PX4, PX5,
35 4 PX6, PX7, PX8, PY1,
36 5 PY2, PY3, PY4, PY5,
37 6 PY6, PY7, PY8, PZ1,
38 7 PZ2, PZ3, PZ4, PZ5,
39 8 PZ6, PZ7, PZ8, PXC1,
40 9 PXC2, PXC3, PXC4, PYC1,
41 A PYC2, PYC3, PYC4, PZC1,
42 B PZC2, PZC3, PZC4, BXY1,
43 C BXY2, BXY3, BXY4, BXY5,
44 D BXY6, BXY7, BXY8, BYX1,
45 E BYX2, BYX3, BYX4, BYX5,
46 F BYX6, BYX7, BYX8, BXZ1,
47 G BXZ2, BXZ3, BXZ4, BXZ5,
48 H BXZ6, BXZ7, BXZ8, BZX1,
49 I BZX2, BZX3, BZX4, BZX5,
50 J BZX6, BZX7, BZX8, BYZ1,
51 K BYZ2, BYZ3, BYZ4, BYZ5,
52 L BYZ6, BYZ7, BYZ8, BZY1,
53 M BZY2, BZY3, BZY4, BZY5,
54 N BZY6, BZY7, BZY8, BXX1,
55 O BXX2, BXX3, BXX4, BXX5,
56 P BXX6, BXX7, BXX8, BYY1,
57 Q BYY2, BYY3, BYY4, BYY5,
58 R BYY6, BYY7, BYY8, BZZ1,
59 S BZZ2, BZZ3, BZZ4, BZZ5,
60 T BZZ6, BZZ7, BZZ8, AJ4,
61 U AJ5, AJ6, AJ7, AJ8,
62 V AJ9, RX, RY, RZ,
63 W SX, SY, SZ, SMAX,
64 X DELTAX, ICP, IDEG, NU,
65 Y VOLP, NEL)
66C-----------------------------------------------
67C I m p l i c i t T y p e s
68C-----------------------------------------------
69#include "implicit_f.inc"
70#include "comlock.inc"
71C-----------------------------------------------
72C C o m m o n B l o c k s
73C-----------------------------------------------
74#include "scr17_c.inc"
75C-----------------------------------------------
76C D u m m y A r g u m e n t s
77C-----------------------------------------------
78 INTEGER, INTENT(IN) :: NEL
79 INTEGER ICP,IDEG(*)
80C REAL
81 my_real
82 . OFF(*),OFFG(*),VOL(*),KSI,ETA,ZETA,WI,
83 . PX1(*), PX2(*), PX3(*), PX4(*),
84 . PX5(*), PX6(*), PX7(*), PX8(*),
85 . PY1(*), PY2(*), PY3(*), PY4(*),
86 . PY5(*), PY6(*), PY7(*), PY8(*),
87 . PZ1(*), PZ2(*), PZ3(*), PZ4(*),
88 . PZ5(*), PZ6(*), PZ7(*), PZ8(*),
89 . AJ4(*),AJ5(*),AJ6(*),
90 . AJ7(*),AJ8(*),AJ9(*),
91 . RX(*) ,RY(*) ,RZ(*) ,
92 . SX(*) ,SY(*) ,SZ(*) ,
93 . SMAX(*),DELTAX(*),
94 . PXC1(*), PXC2(*), PXC3(*), PXC4(*),
95 . PYC1(*), PYC2(*), PYC3(*), PYC4(*),
96 . PZC1(*), PZC2(*), PZC3(*), PZC4(*),
97 . BXY1(*),BXY2(*),BXY3(*),BXY4(*),
98 . BXY5(*),BXY6(*),BXY7(*),BXY8(*),
99 . BYX1(*),BYX2(*),BYX3(*),BYX4(*),
100 . BYX5(*),BYX6(*),BYX7(*),BYX8(*),
101 . BXZ1(*),BXZ2(*),BXZ3(*),BXZ4(*),
102 . BXZ5(*),BXZ6(*),BXZ7(*),BXZ8(*),
103 . BZX1(*),BZX2(*),BZX3(*),BZX4(*),
104 . BZX5(*),BZX6(*),BZX7(*),BZX8(*),
105 . BYZ1(*),BYZ2(*),BYZ3(*),BYZ4(*),
106 . BYZ5(*),BYZ6(*),BYZ7(*),BYZ8(*),
107 . BZY1(*),BZY2(*),BZY3(*),BZY4(*),
108 . BZY5(*),BZY6(*),BZY7(*),BZY8(*),
109 . BXX1(*),BXX2(*),BXX3(*),BXX4(*),
110 . BXX5(*),BXX6(*),BXX7(*),BXX8(*),
111 . BYY1(*),BYY2(*),BYY3(*),BYY4(*),
112 . byy5(*),byy6(*),byy7(*),byy8(*),
113 . bzz1(*),bzz2(*),bzz3(*),bzz4(*),
114 . bzz5(*),bzz6(*),bzz7(*),bzz8(*),nu(*)
115 DOUBLE PRECISION
116 . VOLP(*)
117C-----------------------------------------------
118C L o c a l V a r i a b l e s
119C-----------------------------------------------
120 INTEGER I
121C-----------------------------------------------
122 DO I=1,nel
123 rx(i) = aj4(i)
124 ry(i) = aj5(i)
125 rz(i) = aj6(i)
126 sx(i) = aj7(i)
127 sy(i) = aj8(i)
128 sz(i) = aj9(i)
129 ENDDO
130C
131 DO i=1,nel
132 off(i) = offg(i)
133 vol(i) = volp(i)
134 ENDDO
135 IF (idts6==0) THEN
136 DO i=1,nel
137 deltax(i)=min(deltax(i),hundred28*vol(i)*smax(i)/wi)
138 ENDDO
139 ELSE
140 DO i=1,nel
141 IF (ideg(i)==0) deltax(i)=min(deltax(i),hundred28*vol(i)*smax(i)/wi)
142 ENDDO
143 END IF
144C-----------for the imcompressible laws
145C-------|BXX BYX BZX |
146C-------|BXY BYY BZY | same than H8A
147C-------|BXZ BYZ BZZ |
148 IF (icp==11) THEN
149 CALL s8bicp11(
150 1 px1, px2, px3, px4,
151 2 px5, px6, px7, px8,
152 3 py1, py2, py3, py4,
153 4 py5, py6, py7, py8,
154 5 pz1, pz2, pz3, pz4,
155 6 pz5, pz6, pz7, pz8,
156 7 pxc1, pxc2, pxc3, pxc4,
157 8 pyc1, pyc2, pyc3, pyc4,
158 9 pzc1, pzc2, pzc3, pzc4,
159 a bxy1, bxy2, bxy3, bxy4,
160 b bxy5, bxy6, bxy7, bxy8,
161 c byx1, byx2, byx3, byx4,
162 d byx5, byx6, byx7, byx8,
163 e bxz1, bxz2, bxz3, bxz4,
164 f bxz5, bxz6, bxz7, bxz8,
165 g bzx1, bzx2, bzx3, bzx4,
166 h bzx5, bzx6, bzx7, bzx8,
167 i byz1, byz2, byz3, byz4,
168 j byz5, byz6, byz7, byz8,
169 k bzy1, bzy2, bzy3, bzy4,
170 l bzy5, bzy6, bzy7, bzy8,
171 m bxx1, bxx2, bxx3, bxx4,
172 n bxx5, bxx6, bxx7, bxx8,
173 o byy1, byy2, byy3, byy4,
174 p byy5, byy6, byy7, byy8,
175 q bzz1, bzz2, bzz3, bzz4,
176 r bzz5, bzz6, bzz7, bzz8,
177 s nu, nel)
178 ENDIF
179C
180 RETURN
181 END
min
#define min(a, b)
Definition macros.h:20
s8bicp11
subroutine s8bicp11(px1, px2, px3, px4, px5, px6, px7, px8, py1, py2, py3, py4, py5, py6, py7, py8, pz1, pz2, pz3, pz4, pz5, pz6, pz7, pz8, pxc1, pxc2, pxc3, pxc4, pyc1, pyc2, pyc3, pyc4, pzc1, pzc2, pzc3, pzc4, bxy1, bxy2, bxy3, bxy4, bxy5, bxy6, bxy7, bxy8, byx1, byx2, byx3, byx4, byx5, byx6, byx7, byx8, bxz1, bxz2, bxz3, bxz4, bxz5, bxz6, bxz7, bxz8, bzx1, bzx2, bzx3, bzx4, bzx5, bzx6, bzx7, bzx8, byz1, byz2, byz3, byz4, byz5, byz6, byz7, byz8, bzy1, bzy2, bzy3, bzy4, bzy5, bzy6, bzy7, bzy8, bxx1, bxx2, bxx3, bxx4, bxx5, bxx6, bxx7, bxx8, byy1, byy2, byy3, byy4, byy5, byy6, byy7, byy8, bzz1, bzz2, bzz3, bzz4, bzz5, bzz6, bzz7, bzz8, nu, nel)
Definition s8bicp11.F:57
s8ederi_2
subroutine s8ederi_2(offg, off, vol, ksi, eta, zeta, wi, px1, px2, px3, px4, px5, px6, px7, px8, py1, py2, py3, py4, py5, py6, py7, py8, pz1, pz2, pz3, pz4, pz5, pz6, pz7, pz8, pxc1, pxc2, pxc3, pxc4, pyc1, pyc2, pyc3, pyc4, pzc1, pzc2, pzc3, pzc4, bxy1, bxy2, bxy3, bxy4, bxy5, bxy6, bxy7, bxy8, byx1, byx2, byx3, byx4, byx5, byx6, byx7, byx8, bxz1, bxz2, bxz3, bxz4, bxz5, bxz6, bxz7, bxz8, bzx1, bzx2, bzx3, bzx4, bzx5, bzx6, bzx7, bzx8, byz1, byz2, byz3, byz4, byz5, byz6, byz7, byz8, bzy1, bzy2, bzy3, bzy4, bzy5, bzy6, bzy7, bzy8, bxx1, bxx2, bxx3, bxx4, bxx5, bxx6, bxx7, bxx8, byy1, byy2, byy3, byy4, byy5, byy6, byy7, byy8, bzz1, bzz2, bzz3, bzz4, bzz5, bzz6, bzz7, bzz8, aj4, aj5, aj6, aj7, aj8, aj9, rx, ry, rz, sx, sy, sz, smax, deltax, icp, ideg, nu, volp, nel)
Definition s8ederi_2.F:66