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

Go to the source code of this file.

Functions/Subroutines

subroutine s4kgeo3 (sig, vol, px1, px2, px3, px4, py1, py2, py3, py4, pz1, pz2, pz3, pz4, k11, k12, k13, k14, k22, k23, k24, k33, k34, k44, nel)

Function/Subroutine Documentation

◆ s4kgeo3()

subroutine s4kgeo3 ( sig,
vol,
px1,
px2,
px3,
px4,
py1,
py2,
py3,
py4,
pz1,
pz2,
pz3,
pz4,
k11,
k12,
k13,
k14,
k22,
k23,
k24,
k33,
k34,
k44,
integer nel )

Definition at line 30 of file s4kgeo3.F.

38C-----------------------------------------------
39C I m p l i c i t T y p e s
40C-----------------------------------------------
41#include "implicit_f.inc"
42C-----------------------------------------------
43C G l o b a l P a r a m e t e r s
44C-----------------------------------------------
45#include "mvsiz_p.inc"
46C-----------------------------------------------
47C C o m m o n B l o c k s
48C-----------------------------------------------
49C-----------------------------------------------
50C D u m m y A r g u m e n t s
51C-----------------------------------------------
52 INTEGER NEL
53C REAL
54 my_real
55 . px1(*), px2(*), px3(*), px4(*),
56 . py1(*), py2(*), py3(*), py4(*),
57 . pz1(*), pz2(*), pz3(*), pz4(*),
58 . k11(3,3,*),k12(3,3,*),k13(3,3,*),k14(3,3,*) ,
59 . k22(3,3,*) ,k23(3,3,*) ,k24(3,3,*),
60 . k33(3,3,*),k34(3,3,*),
61 . k44(3,3,*),vol(*),sig(nel,6)
62C-----------------------------------------------
63C L o c a l V a r i a b l e s
64C-----------------------------------------------
65 INTEGER I,J
66C REAL
67 my_real
68 . fxx(mvsiz),fyy(mvsiz),fzz(mvsiz),fxy(mvsiz),fxz(mvsiz),
69 . fyz(mvsiz)
70C-----------------------------------------------
71 DO i=1,nel
72 fxx(i)=sig(i,1)*vol(i)
73 fyy(i)=sig(i,2)*vol(i)
74 fzz(i)=sig(i,3)*vol(i)
75 fxy(i)=sig(i,4)*vol(i)
76 fyz(i)=sig(i,5)*vol(i)
77 fxz(i)=sig(i,6)*vol(i)
78 ENDDO
79C -----------------------------------------------
80 CALL s4keh3(1,nel,
81 . px1, py1 ,pz1 ,px1, py1, pz1,
82 . fxx, fyy ,fzz ,fxy, fyz, fxz,k11 )
83 CALL s4keh3(1,nel,
84 . px2, py2 ,pz2 ,px2, py2, pz2,
85 . fxx, fyy ,fzz ,fxy, fyz, fxz,k22 )
86 CALL s4keh3(1,nel,
87 . px3, py3 ,pz3 ,px3, py3, pz3,
88 . fxx, fyy ,fzz ,fxy, fyz, fxz,k33 )
89 CALL s4keh3(1,nel,
90 . px4, py4 ,pz4 ,px4, py4, pz4,
91 . fxx, fyy ,fzz ,fxy, fyz, fxz,k44 )
92 CALL s4keh3(1,nel,
93 . px1, py1 ,pz1 ,px2, py2, pz2,
94 . fxx, fyy ,fzz ,fxy, fyz, fxz,k12 )
95 CALL s4keh3(1,nel,
96 . px1, py1 ,pz1 ,px3, py3, pz3,
97 . fxx, fyy ,fzz ,fxy, fyz, fxz,k13 )
98 CALL s4keh3(1,nel,
99 . px1, py1 ,pz1 ,px4, py4, pz4,
100 . fxx, fyy ,fzz ,fxy, fyz, fxz,k14 )
101 CALL s4keh3(1,nel,
102 . px2, py2 ,pz2 ,px3, py3, pz3,
103 . fxx, fyy ,fzz ,fxy, fyz, fxz,k23 )
104 CALL s4keh3(1,nel,
105 . px2, py2 ,pz2 ,px4, py4, pz4,
106 . fxx, fyy ,fzz ,fxy, fyz, fxz,k24 )
107 CALL s4keh3(1,nel,
108 . px3, py3 ,pz3 ,px4, py4, pz4,
109 . fxx, fyy ,fzz ,fxy, fyz, fxz,k34 )
110C
111 RETURN
my_real
#define my_real
Definition cppsort.cpp:32
s4keh3
subroutine s4keh3(lft, llt, pxi, pyi, pzi, pxj, pyj, pzj, fxx, fyy, fzz, fxy, fyz, fxz, kij)
Definition s4keh3.F:35