OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
s8zkgei3.F File Reference
#include "implicit_f.inc"
#include "mvsiz_p.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine s8zkgei3 (sig, vol, px1, px2, px3, px4, py1, py2, py3, py4, pz1, pz2, pz3, pz4, px5, px6, px7, px8, py5, py6, py7, py8, pz5, pz6, pz7, pz8, k11, k12, k13, k14, k15, k16, k17, k18, k22, k23, k24, k25, k26, k27, k28, k33, k34, k35, k36, k37, k38, k44, k45, k46, k47, k48, k55, k56, k57, k58, k66, k67, k68, k77, k78, k88, nel)

Function/Subroutine Documentation

◆ s8zkgei3()

subroutine s8zkgei3 ( sig,
vol,
px1,
px2,
px3,
px4,
py1,
py2,
py3,
py4,
pz1,
pz2,
pz3,
pz4,
px5,
px6,
px7,
px8,
py5,
py6,
py7,
py8,
pz5,
pz6,
pz7,
pz8,
k11,
k12,
k13,
k14,
k15,
k16,
k17,
k18,
k22,
k23,
k24,
k25,
k26,
k27,
k28,
k33,
k34,
k35,
k36,
k37,
k38,
k44,
k45,
k46,
k47,
k48,
k55,
k56,
k57,
k58,
k66,
k67,
k68,
k77,
k78,
k88,
integer nel )

Definition at line 31 of file s8zkgei3.F.

48C-----------------------------------------------
49C I m p l i c i t T y p e s
50C-----------------------------------------------
51#include "implicit_f.inc"
52C-----------------------------------------------
53C G l o b a l P a r a m e t e r s
54C-----------------------------------------------
55#include "mvsiz_p.inc"
56C-----------------------------------------------
57C C o m m o n B l o c k s
58C-----------------------------------------------
59C-----------------------------------------------
60C D u m m y A r g u m e n t s
61C-----------------------------------------------
62 INTEGER NEL
63C REAL
64 my_real
65 . px1(*), px2(*), px3(*), px4(*),
66 . py1(*), py2(*), py3(*), py4(*),
67 . pz1(*), pz2(*), pz3(*), pz4(*),
68 . px5(*), px6(*), px7(*), px8(*),
69 . py5(*), py6(*), py7(*), py8(*),
70 . pz5(*), pz6(*), pz7(*), pz8(*),
71 . k11(3,3,*),k12(3,3,*),k13(3,3,*),k14(3,3,*) ,k15(3,3,*) ,
72 . k16(3,3,*),k17(3,3,*),k18(3,3,*),k22(3,3,*) ,k23(3,3,*) ,
73 . k24(3,3,*),k25(3,3,*),k26(3,3,*),k27(3,3,*) ,k28(3,3,*) ,
74 . k33(3,3,*),k34(3,3,*),k35(3,3,*),k36(3,3,*) ,k37(3,3,*) ,
75 . k38(3,3,*),k44(3,3,*),k45(3,3,*),k46(3,3,*) ,k47(3,3,*) ,
76 . k48(3,3,*),k55(3,3,*),k56(3,3,*),k57(3,3,*) ,k58(3,3,*) ,
77 . k66(3,3,*),k67(3,3,*),k68(3,3,*),k77(3,3,*) ,k78(3,3,*) ,
78 . k88(3,3,*),vol(*),sig(nel,6)
79C-----------------------------------------------
80C L o c a l V a r i a b l e s
81C-----------------------------------------------
82 INTEGER I,J
83C REAL
84 my_real
85 . fxx(mvsiz),fyy(mvsiz),fzz(mvsiz),fxy(mvsiz),fxz(mvsiz),
86 . fyz(mvsiz)
87C-----------------------------------------------
88 DO i=1,nel
89 fxx(i)=sig(i,1)*vol(i)
90 fyy(i)=sig(i,2)*vol(i)
91 fzz(i)=sig(i,3)*vol(i)
92 fxy(i)=sig(i,4)*vol(i)
93 fyz(i)=sig(i,5)*vol(i)
94 fxz(i)=sig(i,6)*vol(i)
95 ENDDO
96C------------K11,K17,K77
97 CALL s8zkehij(1,nel,
98 . px1, py1 ,pz1 ,px1, py1, pz1, k11 ,
99 . fxx, fyy ,fzz ,fxy, fyz, fxz)
100 CALL s8zkehij(1,nel,
101 . px1, py1 ,pz1 ,px7, py7, pz7, k17 ,
102 . fxx, fyy ,fzz ,fxy, fyz, fxz)
103 CALL s8zkehij(1,nel,
104 . px7, py7, pz7 ,px7, py7, pz7, k77 ,
105 . fxx, fyy ,fzz ,fxy, fyz, fxz)
106C------------K12,K18,K27,K78
107 CALL s8zkehij(1,nel,
108 . px1, py1 ,pz1 ,px2, py2, pz2, k12 ,
109 . fxx, fyy ,fzz ,fxy, fyz, fxz)
110 CALL s8zkehij(1,nel,
111 . px1, py1 ,pz1 ,px8, py8, pz8, k18 ,
112 . fxx, fyy ,fzz ,fxy, fyz, fxz)
113 CALL s8zkehij(1,nel,
114 . px2, py2 ,pz2 ,px7, py7, pz7, k27 ,
115 . fxx, fyy ,fzz ,fxy, fyz, fxz)
116 CALL s8zkehij(1,nel,
117 . px7, py7 ,pz7 ,px8, py8, pz8, k78 ,
118 . fxx, fyy ,fzz ,fxy, fyz, fxz)
119C------------K13,K15,K37,K57
120 CALL s8zkehij(1,nel,
121 . px1, py1 ,pz1 ,px3, py3, pz3, k13 ,
122 . fxx, fyy ,fzz ,fxy, fyz, fxz)
123 CALL s8zkehij(1,nel,
124 . px1, py1 ,pz1 ,px5, py5, pz5, k15 ,
125 . fxx, fyy ,fzz ,fxy, fyz, fxz)
126 CALL s8zkehij(1,nel,
127 . px3, py3 ,pz3 ,px7, py7, pz7, k37 ,
128 . fxx, fyy ,fzz ,fxy, fyz, fxz)
129 CALL s8zkehij(1,nel,
130 . px5, py5 ,pz5 ,px7, py7, pz7, k57 ,
131 . fxx, fyy ,fzz ,fxy, fyz, fxz)
132C------------K14,K16,K47,K67
133 CALL s8zkehij(1,nel,
134 . px1, py1 ,pz1 ,px4, py4, pz4, k14 ,
135 . fxx, fyy ,fzz ,fxy, fyz, fxz)
136 CALL s8zkehij(1,nel,
137 . px1, py1 ,pz1 ,px6, py6, pz6, k16 ,
138 . fxx, fyy ,fzz ,fxy, fyz, fxz)
139 CALL s8zkehij(1,nel,
140 . px4, py4 ,pz4 ,px7, py7, pz7, k47 ,
141 . fxx, fyy ,fzz ,fxy, fyz, fxz)
142 CALL s8zkehij(1,nel,
143 . px6, py6 ,pz6 ,px7, py7, pz7, k67 ,
144 . fxx, fyy ,fzz ,fxy, fyz, fxz)
145C------------K22,K28,K88
146 CALL s8zkehij(1,nel,
147 . px2, py2 ,pz2 ,px2, py2, pz2, k22 ,
148 . fxx, fyy ,fzz ,fxy, fyz, fxz)
149 CALL s8zkehij(1,nel,
150 . px2, py2 ,pz2 ,px8, py8, pz8, k28 ,
151 . fxx, fyy ,fzz ,fxy, fyz, fxz)
152 CALL s8zkehij(1,nel,
153 . px8, py8 ,pz8 ,px8, py8, pz8, k88 ,
154 . fxx, fyy ,fzz ,fxy, fyz, fxz)
155C------------K23,K25,K38,K58
156 CALL s8zkehij(1,nel,
157 . px2, py2 ,pz2 ,px3, py3, pz3, k23 ,
158 . fxx, fyy ,fzz ,fxy, fyz, fxz)
159 CALL s8zkehij(1,nel,
160 . px2, py2 ,pz2 ,px5, py5, pz5, k25 ,
161 . fxx, fyy ,fzz ,fxy, fyz, fxz)
162 CALL s8zkehij(1,nel,
163 . px3, py3 ,pz3 ,px8, py8, pz8, k38 ,
164 . fxx, fyy ,fzz ,fxy, fyz, fxz)
165 CALL s8zkehij(1,nel,
166 . px5, py5 ,pz5 ,px8, py8, pz8, k58 ,
167 . fxx, fyy ,fzz ,fxy, fyz, fxz)
168C------------K24,K26,K48,K68
169 CALL s8zkehij(1,nel,
170 . px2, py2 ,pz2 ,px4, py4, pz4, k24 ,
171 . fxx, fyy ,fzz ,fxy, fyz, fxz)
172 CALL s8zkehij(1,nel,
173 . px2, py2 ,pz2 ,px6, py6, pz6, k26 ,
174 . fxx, fyy ,fzz ,fxy, fyz, fxz)
175 CALL s8zkehij(1,nel,
176 . px4, py4 ,pz4 ,px8, py8, pz8, k48 ,
177 . fxx, fyy ,fzz ,fxy, fyz, fxz)
178 CALL s8zkehij(1,nel,
179 . px6, py6 ,pz6 ,px8, py8, pz8, k68 ,
180 . fxx, fyy ,fzz ,fxy, fyz, fxz)
181C------------K33,K35,K55
182 CALL s8zkehij(1,nel,
183 . px3, py3 ,pz3 ,px3, py3, pz3, k33 ,
184 . fxx, fyy ,fzz ,fxy, fyz, fxz)
185 CALL s8zkehij(1,nel,
186 . px3, py3 ,pz3 ,px5, py5, pz5, k35 ,
187 . fxx, fyy ,fzz ,fxy, fyz, fxz)
188 CALL s8zkehij(1,nel,
189 . px5, py5 ,pz5 ,px5, py5, pz5, k55 ,
190 . fxx, fyy ,fzz ,fxy, fyz, fxz)
191C------------K34,K36,K56,K45
192 CALL s8zkehij(1,nel,
193 . px3, py3 ,pz3 ,px4, py4, pz4, k34 ,
194 . fxx, fyy ,fzz ,fxy, fyz, fxz)
195 CALL s8zkehij(1,nel,
196 . px3, py3 ,pz3 ,px6, py6, pz6, k36 ,
197 . fxx, fyy ,fzz ,fxy, fyz, fxz)
198 CALL s8zkehij(1,nel,
199 . px5, py5 ,pz5 ,px6, py6, pz6, k56 ,
200 . fxx, fyy ,fzz ,fxy, fyz, fxz)
201 CALL s8zkehij(1,nel,
202 . px4, py4 ,pz4 ,px5, py5, pz5, k45 ,
203 . fxx, fyy ,fzz ,fxy, fyz, fxz)
204C------------K44,K46,K66
205 CALL s8zkehij(1,nel,
206 . px4, py4 ,pz4 ,px4, py4, pz4, k44 ,
207 . fxx, fyy ,fzz ,fxy, fyz, fxz)
208 CALL s8zkehij(1,nel,
209 . px4, py4 ,pz4 ,px6, py6, pz6, k46 ,
210 . fxx, fyy ,fzz ,fxy, fyz, fxz)
211 CALL s8zkehij(1,nel,
212 . px6, py6 ,pz6 ,px6, py6, pz6, k66 ,
213 . fxx, fyy ,fzz ,fxy, fyz, fxz)
214C
215 RETURN
my_real
#define my_real
Definition cppsort.cpp:32
s8zkehij
subroutine s8zkehij(lft, llt, pxi, pyi, pzi, pxj, pyj, pzj, kij, fxx, fyy, fzz, fxy, fyz, fxz)
Definition s8zkehij.F:31