OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
s4repiso3.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!|| s4repiso3 ../starter/source/elements/solid/solide4/s4repiso3.F
25!||--- called by ------------------------------------------------------
26!|| s4refsta3 ../starter/source/elements/solid/solide4/s4refsta3.F
27!||====================================================================
28 SUBROUTINE s4repiso3(X1 ,X2 ,X3 ,X4 ,
29 . Y1 ,Y2 ,Y3 ,Y4 ,
30 . Z1 ,Z2 ,Z3 ,Z4 ,
31 . RX ,RY ,RZ ,
32 . SX ,SY ,SZ ,
33 . TX ,TY ,TZ )
34C-----------------------------------------------
35C I m p l i c i t T y p e s
36C-----------------------------------------------
37#include "implicit_f.inc"
38C-----------------------------------------------
39C D u m m y A r g u m e n t s
40C-----------------------------------------------
41C REAL
42 double precision
43 . x1(*), x2(*), x3(*), x4(*),y1(*), y2(*), y3(*), y4(*),
44 . z1(*), z2(*), z3(*), z4(*)
45 my_real
46 . rx(*) ,ry(*) ,rz(*) ,sx(*) ,sy(*) ,sz(*) ,tx(*) ,ty(*) ,tz(*)
47C-----------------------------------------------
48C C o m m o n B l o c k s
49C-----------------------------------------------
50#include "vect01_c.inc"
51C-----------------------------------------------
52C L o c a l V a r i a b l e s
53C-----------------------------------------------
54 INTEGER I
55C REAL
56 my_real
57 . X41, Y41, Z41, X42, Y42, Z42, X43, Y43, Z43
58C=======================================================================
59C Repere isoparametrique element tetra 4 nodes
60C
61 DO i = lft,llt
62 x43 = x4(i) - x3(i)
63 y43 = y4(i) - y3(i)
64 z43 = z4(i) - z3(i)
65 x41 = x4(i) - x1(i)
66 y41 = y4(i) - y1(i)
67 z41 = z4(i) - z1(i)
68 x42 = x4(i) - x2(i)
69 y42 = y4(i) - y2(i)
70 z42 = z4(i) - z2(i)
71 rx(i) = -x41
72 ry(i) = -y41
73 rz(i) = -z41
74 sx(i) = -x42
75 sy(i) = -y42
76 sz(i) = -z42
77 tx(i) = -x43
78 ty(i) = -y43
79 tz(i) = -z43
80 ENDDO
81C-------------
82 RETURN
83 END SUBROUTINE s4repiso3
84
85!||====================================================================
86!|| s4repisot3 ../starter/source/elements/solid/solide4/s4repiso3.F
87!||--- called by ------------------------------------------------------
88!|| s4refsta3 ../starter/source/elements/solid/solide4/s4refsta3.F
89!||====================================================================
90 SUBROUTINE s4repisot3(X1 ,X2 ,X3 ,X4 ,
91 . Y1 ,Y2 ,Y3 ,Y4 ,
92 . Z1 ,Z2 ,Z3 ,Z4 ,
93 . RX ,RY ,RZ ,
94 . SX ,SY ,SZ ,
95 . TX ,TY ,TZ )
96C-----------------------------------------------
97C I m p l i c i t T y p e s
98C-----------------------------------------------
99#include "implicit_f.inc"
100C-----------------------------------------------
101C D u m m y A r g u m e n t s
102C-----------------------------------------------
103C REAL
104 my_real
105 . x1(*), x2(*), x3(*), x4(*),y1(*), y2(*), y3(*), y4(*),
106 . z1(*), z2(*), z3(*), z4(*),
107 . rx(*) ,ry(*) ,rz(*) ,sx(*) ,sy(*) ,sz(*) ,tx(*) ,ty(*) ,tz(*)
108C-----------------------------------------------
109C C o m m o n B l o c k s
110C-----------------------------------------------
111#include "vect01_c.inc"
112C-----------------------------------------------
113C L o c a l V a r i a b l e s
114C-----------------------------------------------
115 INTEGER I
116C REAL
117 my_real
118 . X41, Y41, Z41, X42, Y42, Z42, X43, Y43, Z43
119C=======================================================================
120C Repere isoparametrique element tetra 4 nodes
121C
122 DO I = lft,llt
123 x43 = x4(i) - x3(i)
124 y43 = y4(i) - y3(i)
125 z43 = z4(i) - z3(i)
126 x41 = x4(i) - x1(i)
127 y41 = y4(i) - y1(i)
128 z41 = z4(i) - z1(i)
129 x42 = x4(i) - x2(i)
130 y42 = y4(i) - y2(i)
131 z42 = z4(i) - z2(i)
132 rx(i) = -x41
133 ry(i) = -y41
134 rz(i) = -z41
135 sx(i) = -x42
136 sy(i) = -y42
137 sz(i) = -z42
138 tx(i) = -x43
139 ty(i) = -y43
140 tz(i) = -z43
141 ENDDO
142C-------------
143 RETURN
144 END SUBROUTINE s4repisot3
my_real
#define my_real
Definition cppsort.cpp:32
s4repiso3
subroutine s4repiso3(x1, x2, x3, x4, y1, y2, y3, y4, z1, z2, z3, z4, rx, ry, rz, sx, sy, sz, tx, ty, tz)
Definition s4repiso3.F:34
s4repisot3
subroutine s4repisot3(x1, x2, x3, x4, y1, y2, y3, y4, z1, z2, z3, z4, rx, ry, rz, sx, sy, sz, tx, ty, tz)
Definition s4repiso3.F:96