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

Go to the source code of this file.

Functions/Subroutines

subroutine s8zcumg3 (r11, r21, r31, r12, r22, r32, r13, r23, r33, 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

◆ s8zcumg3()

subroutine s8zcumg3 ( r11,
r21,
r31,
r12,
r22,
r32,
r13,
r23,
r33,
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, intent(in) nel )

Definition at line 31 of file s8zcumg3.F.

44C-----------------------------------------------
45C I m p l i c i t T y p e s
46C-----------------------------------------------
47#include "implicit_f.inc"
48C-----------------------------------------------
49C G l o b a l P a r a m e t e r s
50C-----------------------------------------------
51#include "mvsiz_p.inc"
52C-----------------------------------------------
53C D u m m y A r g u m e n t s
54C-----------------------------------------------
55 INTEGER, INTENT(IN) :: NEL
56C REAL
57 my_real
58 . r11(*), r12(*), r13(*),
59 . r21(*), r22(*), r23(*),
60 . r31(*), r32(*), r33(*),
61 . k11(9,*) ,k12(9,*) ,k13(9,*) ,k14(9,*) ,k15(9,*) ,
62 . k16(9,*) ,k17(9,*) ,k18(9,*) ,k22(9,*) ,k23(9,*) ,
63 . k24(9,*) ,k25(9,*) ,k26(9,*) ,k27(9,*) ,k28(9,*) ,
64 . k33(9,*) ,k34(9,*) ,k35(9,*) ,k36(9,*) ,k37(9,*) ,
65 . k38(9,*) ,k44(9,*) ,k45(9,*) ,k46(9,*) ,k47(9,*) ,
66 . k48(9,*) ,k55(9,*) ,k56(9,*) ,k57(9,*) ,k58(9,*) ,
67 . k66(9,*) ,k67(9,*) ,k68(9,*) ,k77(9,*) ,k78(9,*) ,
68 . k88(9,*)
69C-----------------------------------------------
70C C o m m o n B l o c k s
71C-----------------------------------------------
72C-----------------------------------------------
73C L o c a l V a r i a b l e s
74C-----------------------------------------------
75 INTEGER I,ISYM
76C REAL
77 my_real
78 . q(3,3,mvsiz)
79C-----------------------------------------------
80 DO i=1,nel
81 q(1,1,i)=r11(i)
82 q(2,1,i)=r21(i)
83 q(3,1,i)=r31(i)
84 q(1,2,i)=r12(i)
85 q(2,2,i)=r22(i)
86 q(3,2,i)=r32(i)
87 q(1,3,i)=r13(i)
88 q(2,3,i)=r23(i)
89 q(3,3,i)=r33(i)
90 ENDDO
91 isym=1
92 CALL systran3(1,nel,q,k11,isym)
93 CALL systran3(1,nel,q,k22,isym)
94 CALL systran3(1,nel,q,k33,isym)
95 CALL systran3(1,nel,q,k44,isym)
96 CALL systran3(1,nel,q,k55,isym)
97 CALL systran3(1,nel,q,k66,isym)
98 CALL systran3(1,nel,q,k77,isym)
99 CALL systran3(1,nel,q,k88,isym)
100 isym=0
101 CALL systran3(1,nel,q,k12,isym)
102 CALL systran3(1,nel,q,k13,isym)
103 CALL systran3(1,nel,q,k14,isym)
104 CALL systran3(1,nel,q,k15,isym)
105 CALL systran3(1,nel,q,k16,isym)
106 CALL systran3(1,nel,q,k17,isym)
107 CALL systran3(1,nel,q,k18,isym)
108 CALL systran3(1,nel,q,k23,isym)
109 CALL systran3(1,nel,q,k24,isym)
110 CALL systran3(1,nel,q,k25,isym)
111 CALL systran3(1,nel,q,k26,isym)
112 CALL systran3(1,nel,q,k27,isym)
113 CALL systran3(1,nel,q,k28,isym)
114 CALL systran3(1,nel,q,k34,isym)
115 CALL systran3(1,nel,q,k35,isym)
116 CALL systran3(1,nel,q,k36,isym)
117 CALL systran3(1,nel,q,k37,isym)
118 CALL systran3(1,nel,q,k38,isym)
119 CALL systran3(1,nel,q,k45,isym)
120 CALL systran3(1,nel,q,k46,isym)
121 CALL systran3(1,nel,q,k47,isym)
122 CALL systran3(1,nel,q,k48,isym)
123 CALL systran3(1,nel,q,k56,isym)
124 CALL systran3(1,nel,q,k57,isym)
125 CALL systran3(1,nel,q,k58,isym)
126 CALL systran3(1,nel,q,k67,isym)
127 CALL systran3(1,nel,q,k68,isym)
128 CALL systran3(1,nel,q,k78,isym)
129c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
130 RETURN
my_real
#define my_real
Definition cppsort.cpp:32
systran3
subroutine systran3(jft, jlt, vq, kk, isym)
Definition systran3.F:30