OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
mmain.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!|| mmain ../starter/source/materials/mat_share/mmain.F
25!||--- called by ------------------------------------------------------
26!|| s4refsta3 ../starter/source/elements/solid/solide4/s4refsta3.F
27!|| srefsta3 ../starter/source/elements/solid/solide/srefsta3.F
28!||--- calls -----------------------------------------------------
29!|| mulaw ../starter/source/materials/mat_share/mulaw.F
30!||--- uses -----------------------------------------------------
31!||====================================================================
32 SUBROUTINE mmain(PM ,ELBUF_STR,IX ,NIX ,X ,
33 2 GEO ,IPARG ,NEL ,SKEW ,BUFMAT ,
34 3 IPART ,IPARTEL,NUMMAT ,MATPARAM,
35 4 IMAT ,IPM ,NGL ,PID ,NPF ,
36 5 TF ,MFXX ,MFXY ,MFXZ ,MFYX ,
37 6 MFYY ,MFYZ ,MFZX ,MFZY ,MFZZ ,
38 7 RX ,RY ,RZ ,SX ,SY ,
39 8 SZ ,GAMA ,VOLN ,DVOL ,S1 ,
40 C S2 ,S3 ,S4 ,S5 ,S6 ,
41 9 DXX ,DYY ,DZZ ,D4 ,D5 ,
42 A D6 ,WXX ,WYY ,WZZ )
43C-----------------------------------------------
44C M o d u l e s
45C-----------------------------------------------
46 USE mat_elem_mod
47C-----------------------------------------------
48C I m p l i c i t T y p e s
49C-----------------------------------------------
50#include "implicit_f.inc"
51C-----------------------------------------------
52C G l o b a l P a r a m e t e r s
53C-----------------------------------------------
54#include "mvsiz_p.inc"
55C-----------------------------------------------
56C C o m m o n B l o c k s
57C-----------------------------------------------
58#include "param_c.inc"
59#include "vect01_c.inc"
60#include "scr17_c.inc"
61C-----------------------------------------------
62C D u m m y A r g u m e n t s
63C-----------------------------------------------
64 INTEGER ,INTENT(IN) :: NUMMAT
65 INTEGER ,INTENT(IN) :: IMAT
66 INTEGER ,INTENT(IN) :: NIX,NEL
67 INTEGER IX(NIX,*), IPARG(*),
68 . IPART(LIPART1,*),IPARTEL(*),IPM(NPROPMI,*),
69 . NGL(*), PID(*), NPF(*)
70 my_real
71 . X(*), GEO(*), PM(NPROPM,*),
72 . SKEW(LSKEW,*),BUFMAT(*),
73 . MFXX(*) ,MFXY(*) ,MFXZ(*) ,MFYX(*) ,MFYY(*) ,
74 . mfyz(*) ,mfzx(*) ,mfzy(*) ,mfzz(*) ,
75 . rx(*) ,ry(*) ,rz(*) ,
76 . sx(*) ,sy(*) ,sz(*) ,gama(nel,6),
77 . voln(*) ,dvol(*),
78 . tf(*) ,dxx(*) ,dyy(*) ,dzz(*),
79 . d4(*) ,d5(*) ,d6(*),
80 . wxx(*) ,wyy(*) ,wzz(*),
81 . s1(*) ,s2(*) ,s3(*) ,
82 . s4(*) ,s5(*) ,s6(*)
83 TYPE (ELBUF_STRUCT_), TARGET :: ELBUF_STR
84 TYPE(MATPARAM_STRUCT_) ,DIMENSION(NUMMAT) ,INTENT(INOUT) :: MATPARAM
85C-----------------------------------------------
86C L o c a l V a r i a b l e s
87C-----------------------------------------------
88 INTEGER NUVAR,NVARTMP,NUVARR
89 my_real
90 . TX(MVSIZ), TY(MVSIZ), TZ(MVSIZ),
91 . VIS(MVSIZ), CXX(MVSIZ), OFF(MVSIZ), EPSD(MVSIZ)
92C-----
93 TYPE(g_bufel_) ,POINTER :: GBUF
94 TYPE(l_bufel_) ,POINTER :: LBUF
95 TYPE(BUF_MAT_) ,POINTER :: MBUF
96C=======================================================================
97 IF (MTN >= 28 .AND. mtn /= 49.OR.mtn ==1) THEN
98 gbuf => elbuf_str%GBUF
99 lbuf => elbuf_str%BUFLY(1)%LBUF(1,1,1)
100 mbuf => elbuf_str%BUFLY(1)%MAT(1,1,1)
101 nuvar = elbuf_str%BUFLY(1)%NVAR_MAT
102 nvartmp = elbuf_str%BUFLY(1)%NVARTMP
103 off = one
104 epsd = zero
105C
106 CALL mulaw(lft ,llt ,nft ,mtn ,jcvt ,
107 2 pm ,off ,gbuf%SIG ,gbuf%EINT,gbuf%RHO,
108 3 gbuf%VOL ,lbuf%STRA,gama ,
109 4 mbuf%VAR ,bufmat ,tf ,npf ,
110 5 imat ,ngl ,nuvar ,nvartmp, mbuf%VARTMP,
111 6 geo ,pid ,epsd ,
112 8 wxx ,wyy ,wzz ,jsph ,cxx ,
113 a voln ,vis ,dxx ,
114 b dyy ,dzz ,d4 ,d5 ,d6 ,
115 c dvol ,s1 ,s2 ,s3 ,s4 ,
116 d s5 ,s6 ,rx ,ry ,rz ,
117 e sx ,sy ,sz ,tx ,ty ,
118 f tz ,ismstr ,
119 g mfxx ,mfxy ,mfxz ,mfyx ,mfyy ,
120 h mfyz ,mfzx ,mfzy ,mfzz ,ipm ,
121 i isorth ,nel ,matparam)
122 j
123 ENDIF
124C------------
125 RETURN
126 END
mmain
subroutine mmain(pm, elbuf_str, ix, nix, x, geo, iparg, nel, skew, bufmat, ipart, ipartel, nummat, matparam, imat, ipm, ngl, pid, npf, tf, mfxx, mfxy, mfxz, mfyx, mfyy, mfyz, mfzx, mfzy, mfzz, rx, ry, rz, sx, sy, sz, gama, voln, dvol, s1, s2, s3, s4, s5, s6, dxx, dyy, dzz, d4, d5, d6, wxx, wyy, wzz)
Definition mmain.F:43
mulaw
subroutine mulaw(lft, llt, nft, mtn, jcvt, pm, off, sig, eint, rho, vol, strain, gama, uvar, bufmat, tf, npf, imat, ngl, nuvar, nvartmp, vartmp, geo, pid, epsd, wxx, wyy, wzz, jsph, ssp, voln, vis, d1, d2, d3, d4, d5, d6, dvol, sold1, sold2, sold3, sold4, sold5, sold6, rx, ry, rz, sx, sy, sz, tx, ty, tz, ismstr, mfxx, mfxy, mfxz, mfyx, mfyy, mfyz, mfzx, mfzy, mfzz, ipm, isorth, nel, matparam)
Definition mulaw.F:54