OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
srepisot3.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!|| srepisot3 ../engine/source/elements/solid/solide/srepisot3.F
25!||--- called by ------------------------------------------------------
26!|| pre_heph ../engine/source/output/anim/generate/tensor6.F
27!|| sr8coor3 ../engine/source/elements/solid/solide8/sr8coor3.F
28!|| srcoork ../engine/source/elements/solid/solide8z/srcoork.F
29!|| srep2glo ../engine/source/elements/sph/srep2glo.F
30!|| tsh_dir2 ../engine/source/output/h3d/h3d_results/h3d_skin_tensor.F
31!||====================================================================
32 SUBROUTINE srepisot3(
33 1 X1, X2, X3, X4,
34 2 X5, X6, X7, X8,
35 3 Y1, Y2, Y3, Y4,
36 4 Y5, Y6, Y7, Y8,
37 5 Z1, Z2, Z3, Z4,
38 6 Z5, Z6, Z7, Z8,
39 7 RX, RY, RZ, SX,
40 8 SY, SZ, TX, TY,
41 9 TZ, NEL)
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 D u m m y A r g u m e n t s
52C-----------------------------------------------
53 INTEGER, INTENT(IN) :: NEL
54C REAL
55 my_real, INTENT(IN), DIMENSION(MVSIZ) ::
56 . X1, X2, X3, X4, X5, X6, X7, X8,
57 . Y1, Y2, Y3, Y4, Y5, Y6, Y7, Y8,
58 . Z1, Z2, Z3, Z4, Z5, Z6, Z7, Z8
59 my_real, INTENT(OUT), DIMENSION(MVSIZ) ::
60 . RX, RY, RZ, SX, SY, SZ, TX, TY, TZ
61C-----------------------------------------------
62C C o m m o n B l o c k s
63C-----------------------------------------------
64C-----------------------------------------------
65C L o c a l V a r i a b l e s
66C-----------------------------------------------
67 INTEGER I
68C REAL
69 my_real
70 . x17 , x28 , x35 , x46, y17 , y28 , y35 , y46,
71 . z17 , z28 , z35 , z46, a17 , a28 , b17 , b28 , c17 , c28
72C=======================================================================
73 DO i=1,nel
74 x17 = x7(i) - x1(i)
75 x28 = x8(i) - x2(i)
76 x35 = x5(i) - x3(i)
77 x46 = x6(i) - x4(i)
78 y17 = y7(i) - y1(i)
79 y28 = y8(i) - y2(i)
80 y35 = y5(i) - y3(i)
81 y46 = y6(i) - y4(i)
82 z17 = z7(i) - z1(i)
83 z28 = z8(i) - z2(i)
84 z35 = z5(i) - z3(i)
85 z46 = z6(i) - z4(i)
86C
87 a17 = x17 + x46
88 a28 = x28 + x35
89 b17 = y17 + y46
90 b28 = y28 + y35
91 c17 = z17 + z46
92 c28 = z28 + z35
93C
94 rx(i) = x17 + x28 - x35 - x46
95 ry(i) = y17 + y28 - y35 - y46
96 rz(i) = z17 + z28 - z35 - z46
97 sx(i) = a17 + a28
98 sy(i) = b17 + b28
99 sz(i) = c17 + c28
100 tx(i) = a17 - a28
101 ty(i) = b17 - b28
102 tz(i) = c17 - c28
103 ENDDO
104C-------------
105 RETURN
106 END
srepisot3
subroutine srepisot3(x1, x2, x3, x4, x5, x6, x7, x8, y1, y2, y3, y4, y5, y6, y7, y8, z1, z2, z3, z4, z5, z6, z7, z8, rx, ry, rz, sx, sy, sz, tx, ty, tz, nel)
Definition srepisot3.F:42