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, J ,ICOR
121C REAL
122C 12
123 my_real
124 . A1PR1,A1PR3,A1PR5,A1PR7,
125 . A4PR1,A4PR3,A4PR5,A4PR7,
126 . A7PR1,A7PR3,A7PR5,A7PR7,
127 . A2PS1,A2PS2,A2PS5,A2PS6,
128 . A5PS1,A5PS2,A5PS5,A5PS6,
129 . A8PS1,A8PS2,A8PS5,A8PS6,
130 . A3PT1,A3PT2,A3PT3,A3PT4,
131 . A6PT1,A6PT2,A6PT3,A6PT4,
132 . A9PT1,A9PT2,A9PT3,A9PT4,
133 . BXHI,BYHI,BZHI,TMP,DETI
134C-----------------------------------------------
135 DO I=1,nel
136 rx(i) = aj4(i)
137 ry(i) = aj5(i)
138 rz(i) = aj6(i)
139 sx(i) = aj7(i)
140 sy(i) = aj8(i)
141 sz(i) = aj9(i)
142 ENDDO
143C
144 DO i=1,nel
145 off(i) = offg(i)
146 vol(i) = volp(i)
147 ENDDO
148 IF (idts6==0) THEN
149 DO i=1,nel
150 deltax(i)=min(deltax(i),hundred28*vol(i)*smax(i)/wi)
151 ENDDO
152 ELSE
153 DO i=1,nel
154 IF (ideg(i)==0) deltax(i)=min(deltax(i),hundred28*vol(i)*smax(i)/wi)
155 ENDDO
156 END IF
157C-----------for the imcompressible laws
158C-------|BXX BYX BZX |
159C-------|BXY BYY BZY | same than H8A
160C-------|BXZ BYZ BZZ |
161 IF (icp==11) THEN
162 CALL s8bicp11(
163 1 px1, px2, px3, px4,
164 2 px5, px6, px7, px8,
165 3 py1, py2, py3, py4,
166 4 py5, py6, py7, py8,
167 5 pz1, pz2, pz3, pz4,
168 6 pz5, pz6, pz7, pz8,
169 7 pxc1, pxc2, pxc3, pxc4,
170 8 pyc1, pyc2, pyc3, pyc4,
171 9 pzc1, pzc2, pzc3, pzc4,
172 a bxy1, bxy2, bxy3, bxy4,
173 b bxy5, bxy6, bxy7, bxy8,
174 c byx1, byx2, byx3, byx4,
175 d byx5, byx6, byx7, byx8,
176 e bxz1, bxz2, bxz3, bxz4,
177 f bxz5, bxz6, bxz7, bxz8,
178 g bzx1, bzx2, bzx3, bzx4,
179 h bzx5, bzx6, bzx7, bzx8,
180 i byz1, byz2, byz3, byz4,
181 j byz5, byz6, byz7, byz8,
182 k bzy1, bzy2, bzy3, bzy4,
183 l bzy5, bzy6, bzy7, bzy8,
184 m bxx1, bxx2, bxx3, bxx4,
185 n bxx5, bxx6, bxx7, bxx8,
186 o byy1, byy2, byy3, byy4,
187 p byy5, byy6, byy7, byy8,
188 q bzz1, bzz2, bzz3, bzz4,
189 r bzz5, bzz6, bzz7, bzz8,
190 s nu, nel)
191 ENDIF
192C
193 RETURN
194 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