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

Go to the source code of this file.

Functions/Subroutines

subroutine assem_s6 (ixs, nel, iddl, ndof, k_diag, k_lt, iadk, jdik, k11, k12, k13, k14, k15, k16, k22, k23, k24, k25, k26, k33, k34, k35, k36, k44, k45, k46, k55, k56, k66, off)

Function/Subroutine Documentation

◆ assem_s6()

subroutine assem_s6 ( integer, dimension(nixs,*) ixs,
integer nel,
integer, dimension(*) iddl,
integer, dimension(*) ndof,
k_diag,
k_lt,
integer, dimension(*) iadk,
integer, dimension(*) jdik,
k11,
k12,
k13,
k14,
k15,
k16,
k22,
k23,
k24,
k25,
k26,
k33,
k34,
k35,
k36,
k44,
k45,
k46,
k55,
k56,
k66,
off )

Definition at line 31 of file assem_s6.F.

38C----6---------------------------------------------------------------7---------8
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 IXS(NIXS,*),NEL ,IDDL(*) ,NDOF(*) ,
53 . IADK(*) ,JDIK(*)
54C REAL
55 my_real
56 . k_diag(*) ,k_lt(*) ,
57 . k11(9,*),k12(9,*),k13(9,*),k14(9,*),
58 . k15(9,*),k16(9,*),k22(9,*),k23(9,*),
59 . k24(9,*),k25(9,*),k26(9,*),k33(9,*),
60 . k34(9,*),k35(9,*),k36(9,*),k44(9,*),
61 . k45(9,*),k46(9,*),k55(9,*),k56(9,*),
62 . k66(9,*),off(*)
63C-----------------------------------------------
64C L o c a l V a r i a b l e s
65C-----------------------------------------------
66 INTEGER EP,NN(MVSIZ,6)
67C----6---------------------------------------------------------------7---------8
68 DO ep = 1,nel
69 nn(ep,1)=ixs(2,ep)
70 nn(ep,2)=ixs(3,ep)
71 nn(ep,3)=ixs(4,ep)
72 nn(ep,4)=ixs(6,ep)
73 nn(ep,5)=ixs(7,ep)
74 nn(ep,6)=ixs(8,ep)
75 ENDDO
76C-------block diagonal k11,k22...k66-----
77 CALL assem_kii(nn(1,1),nel,iddl,iadk,k_diag,k_lt ,k11,3,off)
78 CALL assem_kii(nn(1,2),nel,iddl,iadk,k_diag,k_lt ,k22,3,off)
79 CALL assem_kii(nn(1,3),nel,iddl,iadk,k_diag,k_lt ,k33,3,off)
80 CALL assem_kii(nn(1,4),nel,iddl,iadk,k_diag,k_lt ,k44,3,off)
81 CALL assem_kii(nn(1,5),nel,iddl,iadk,k_diag,k_lt ,k55,3,off)
82 CALL assem_kii(nn(1,6),nel,iddl,iadk,k_diag,k_lt ,k66,3,off)
83C-------non diag kij-----
84 CALL assem_kij(nn(1,1),nn(1,2),nel,iddl,iadk,jdik,
85 . k_diag,k_lt,k12,3,off)
86 CALL assem_kij(nn(1,1),nn(1,3),nel,iddl,iadk,jdik,
87 . k_diag,k_lt,k13,3,off)
88 CALL assem_kij(nn(1,1),nn(1,4),nel,iddl,iadk,jdik,
89 . k_diag,k_lt,k14,3,off)
90 CALL assem_kij(nn(1,1),nn(1,5),nel,iddl,iadk,jdik,
91 . k_diag,k_lt,k15,3,off)
92 CALL assem_kij(nn(1,1),nn(1,6),nel,iddl,iadk,jdik,
93 . k_diag,k_lt,k16,3,off)
94 CALL assem_kij(nn(1,2),nn(1,3),nel,iddl,iadk,jdik,
95 . k_diag,k_lt,k23,3,off)
96 CALL assem_kij(nn(1,2),nn(1,4),nel,iddl,iadk,jdik,
97 . k_diag,k_lt,k24,3,off)
98 CALL assem_kij(nn(1,2),nn(1,5),nel,iddl,iadk,jdik,
99 . k_diag,k_lt,k25,3,off)
100 CALL assem_kij(nn(1,2),nn(1,6),nel,iddl,iadk,jdik,
101 . k_diag,k_lt,k26,3,off)
102 CALL assem_kij(nn(1,3),nn(1,4),nel,iddl,iadk,jdik,
103 . k_diag,k_lt,k34,3,off)
104 CALL assem_kij(nn(1,3),nn(1,5),nel,iddl,iadk,jdik,
105 . k_diag,k_lt,k35,3,off)
106 CALL assem_kij(nn(1,3),nn(1,6),nel,iddl,iadk,jdik,
107 . k_diag,k_lt,k36,3,off)
108 CALL assem_kij(nn(1,4),nn(1,5),nel,iddl,iadk,jdik,
109 . k_diag,k_lt,k45,3,off)
110 CALL assem_kij(nn(1,4),nn(1,6),nel,iddl,iadk,jdik,
111 . k_diag,k_lt,k46,3,off)
112 CALL assem_kij(nn(1,5),nn(1,6),nel,iddl,iadk,jdik,
113 . k_diag,k_lt,k56,3,off)
114C
115C----6---------------------------------------------------------------7---------8
116 RETURN
my_real
#define my_real
Definition cppsort.cpp:32
assem_kii
subroutine assem_kii(ni, nel, iddl, iadk, k_diag, k_lt, kii, nd, off)
Definition imp_glob_k.F:962
assem_kij
subroutine assem_kij(ni, nj, nel, iddl, iadk, jdik, k_diag, k_lt, kij, nd, off)
Definition imp_glob_k.F:1041