OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
assem_s6.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!|| assem_s6 ../engine/source/implicit/assem_s6.F
25!||--- called by ------------------------------------------------------
26!|| s6cke3 ../engine/source/elements/thickshell/solide6c/s6cke3.f
27!||--- calls -----------------------------------------------------
28!|| assem_kii ../engine/source/implicit/imp_glob_k.F
29!|| assem_kij ../engine/source/implicit/imp_glob_k.F
30!||--- uses -----------------------------------------------------
31!|| element_mod ../common_source/modules/elements/element_mod.F90
32!||====================================================================
33 SUBROUTINE assem_s6(
34 1 IXS ,NEL ,IDDL ,NDOF ,K_DIAG,
35 2 K_LT ,IADK ,JDIK ,K11 ,K12 ,
36 3 K13 ,K14 ,K15 ,K16 ,K22 ,
37 4 K23 ,K24 ,K25 ,K26 ,K33 ,
38 5 K34 ,K35 ,K36 ,K44 ,K45 ,
39 6 K46 ,K55 ,K56 ,K66 ,OFF )
40 use element_mod , only : nixs
41C----6---------------------------------------------------------------7---------8
42C I m p l i c i t T y p e s
43C-----------------------------------------------
44#include "implicit_f.inc"
45C-----------------------------------------------
46C G l o b a l P a r a m e t e r s
47C-----------------------------------------------
48#include "mvsiz_p.inc"
49C-----------------------------------------------
50C C o m m o n B l o c k s
51C-----------------------------------------------
52C-----------------------------------------------------------------
53C D u m m y A r g u m e n t s
54C-----------------------------------------------
55 INTEGER IXS(NIXS,*),NEL ,IDDL(*) ,NDOF(*) ,
56 . IADK(*) ,JDIK(*)
57C REAL
58 my_real
59 . K_DIAG(*) ,K_LT(*) ,
60 . K11(9,*),K12(9,*),K13(9,*),K14(9,*),
61 . k15(9,*),k16(9,*),k22(9,*),k23(9,*),
62 . k24(9,*),k25(9,*),k26(9,*),k33(9,*),
63 . k34(9,*),k35(9,*),k36(9,*),k44(9,*),
64 . k45(9,*),k46(9,*),k55(9,*),k56(9,*),
65 . k66(9,*),off(*)
66C-----------------------------------------------
67C L o c a l V a r i a b l e s
68C-----------------------------------------------
69 INTEGER EP,NN(MVSIZ,6)
70C----6---------------------------------------------------------------7---------8
71 DO EP = 1,nel
72 nn(ep,1)=ixs(2,ep)
73 nn(ep,2)=ixs(3,ep)
74 nn(ep,3)=ixs(4,ep)
75 nn(ep,4)=ixs(6,ep)
76 nn(ep,5)=ixs(7,ep)
77 nn(ep,6)=ixs(8,ep)
78 ENDDO
79C-------block diagonal k11,k22...k66-----
80 CALL assem_kii(nn(1,1),nel,iddl,iadk,k_diag,k_lt ,k11,3,off)
81 CALL assem_kii(nn(1,2),nel,iddl,iadk,k_diag,k_lt ,k22,3,off)
82 CALL assem_kii(nn(1,3),nel,iddl,iadk,k_diag,k_lt ,k33,3,off)
83 CALL assem_kii(nn(1,4),nel,iddl,iadk,k_diag,k_lt ,k44,3,off)
84 CALL assem_kii(nn(1,5),nel,iddl,iadk,k_diag,k_lt ,k55,3,off)
85 CALL assem_kii(nn(1,6),nel,iddl,iadk,k_diag,k_lt ,k66,3,off)
86C-------non diag kij-----
87 CALL assem_kij(nn(1,1),nn(1,2),nel,iddl,iadk,jdik,
88 . k_diag,k_lt,k12,3,off)
89 CALL assem_kij(nn(1,1),nn(1,3),nel,iddl,iadk,jdik,
90 . k_diag,k_lt,k13,3,off)
91 CALL assem_kij(nn(1,1),nn(1,4),nel,iddl,iadk,jdik,
92 . k_diag,k_lt,k14,3,off)
93 CALL assem_kij(nn(1,1),nn(1,5),nel,iddl,iadk,jdik,
94 . k_diag,k_lt,k15,3,off)
95 CALL assem_kij(nn(1,1),nn(1,6),nel,iddl,iadk,jdik,
96 . k_diag,k_lt,k16,3,off)
97 CALL assem_kij(nn(1,2),nn(1,3),nel,iddl,iadk,jdik,
98 . k_diag,k_lt,k23,3,off)
99 CALL assem_kij(nn(1,2),nn(1,4),nel,iddl,iadk,jdik,
100 . k_diag,k_lt,k24,3,off)
101 CALL assem_kij(nn(1,2),nn(1,5),nel,iddl,iadk,jdik,
102 . k_diag,k_lt,k25,3,off)
103 CALL assem_kij(nn(1,2),nn(1,6),nel,iddl,iadk,jdik,
104 . k_diag,k_lt,k26,3,off)
105 CALL assem_kij(nn(1,3),nn(1,4),nel,iddl,iadk,jdik,
106 . k_diag,k_lt,k34,3,off)
107 CALL assem_kij(nn(1,3),nn(1,5),nel,iddl,iadk,jdik,
108 . k_diag,k_lt,k35,3,off)
109 CALL assem_kij(nn(1,3),nn(1,6),nel,iddl,iadk,jdik,
110 . k_diag,k_lt,k36,3,off)
111 CALL assem_kij(nn(1,4),nn(1,5),nel,iddl,iadk,jdik,
112 . k_diag,k_lt,k45,3,off)
113 CALL assem_kij(nn(1,4),nn(1,6),nel,iddl,iadk,jdik,
114 . k_diag,k_lt,k46,3,off)
115 CALL assem_kij(nn(1,5),nn(1,6),nel,iddl,iadk,jdik,
116 . k_diag,k_lt,k56,3,off)
117C
118C----6---------------------------------------------------------------7---------8
119 RETURN
120 END
assem_s6
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)
Definition assem_s6.F:40
assem_kii
subroutine assem_kii(ni, nel, iddl, iadk, k_diag, k_lt, kii, nd, off)
Definition imp_glob_k.F:964
assem_kij
subroutine assem_kij(ni, nj, nel, iddl, iadk, jdik, k_diag, k_lt, kij, nd, off)
Definition imp_glob_k.F:1043
s6cke3
subroutine s6cke3(pm, geo, ixs, x, elbuf_str, etag, iddl, ndof, k_diag, k_lt, iadk, jdik, nel, icp, icsig, ipm, igeo, ikgeo, bufmat, nft, mtn, jhbe, isorth, isorthg, ismstr)
Definition s6cke3.F:51