OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
sigeps120.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!|| sigeps120 ../engine/source/materials/mat/mat120/sigeps120.F
25!||--- called by ------------------------------------------------------
26!|| mulaw ../engine/source/materials/mat_share/mulaw.F90
27!||--- calls -----------------------------------------------------
28!|| sigeps120_dp ../engine/source/materials/mat/mat120/sigeps120_dp.F
29!|| sigeps120_tab_dp ../engine/source/materials/mat/mat120/sigeps120_tab_dp.F
30!|| sigeps120_tab_vm ../engine/source/materials/mat/mat120/sigeps120_tab_vm.F
31!|| sigeps120_vm ../engine/source/materials/mat/mat120/sigeps120_vm.F
32!||--- uses -----------------------------------------------------
33!|| interface_table_mod ../engine/share/modules/table_mod.F
34!|| table_mod ../engine/share/modules/table_mod.F
35!||====================================================================
36 SUBROUTINE sigeps120(
37 1 NEL ,NUPARAM ,NUVAR ,NVARTMP ,NUMTABL ,ITABLE ,
38 2 TABLE ,TIME ,TIMESTEP,SOUNDSP ,UVAR ,VARTMP ,
39 3 UPARAM ,NGL ,OFF ,PLA ,EPSD ,TEMP ,
40 4 EPSPXX ,EPSPYY ,EPSPZZ ,EPSPXY ,EPSPYZ ,EPSPZX ,
41 5 DEPSXX ,DEPSYY ,DEPSZZ ,DEPSXY ,DEPSYZ ,DEPSZX ,
42 6 SIGOXX ,SIGOYY ,SIGOZZ ,SIGOXY ,SIGOYZ ,SIGOZX ,
43 7 SIGNXX ,SIGNYY ,SIGNZZ ,SIGNXY ,SIGNYZ ,SIGNZX ,
44 8 INLOC ,DPLANL ,DMG ,DMG_SCALE)
45C-----------------------------------------------
46C M o d u l e s
47C-----------------------------------------------
48 USE table_mod
49 USE interface_table_mod
50C-----------------------------------------------
51C I m p l i c i t T y p e s
52C-----------------------------------------------
53#include "implicit_f.inc"
54C-----------------------------------------------
55C C o m m o n B l o c k s
56C-----------------------------------------------
57#include "com04_c.inc"
58C----------------------------------------------------------------
59C D u m m y A R G U M E N T S
60C----------------------------------------------------------------
61 INTEGER :: NEL,NUPARAM,NUVAR,NVARTMP,NUMTABL,INLOC
62 my_real :: TIME,TIMESTEP
63 INTEGER ,DIMENSION(NEL) ,INTENT(IN) :: NGL
64 INTEGER ,DIMENSION(NUMTABL) ,INTENT(IN) :: ITABLE
65 my_real ,DIMENSION(NUPARAM) ,INTENT(IN) :: UPARAM
66 my_real ,DIMENSION(NEL) ,INTENT(IN) :: TEMP,
67 . EPSPXX,EPSPYY,EPSPZZ,EPSPXY,EPSPYZ,EPSPZX,
68 . DEPSXX,DEPSYY,DEPSZZ,DEPSXY,DEPSYZ,DEPSZX,
69 . sigoxx,sigoyy,sigozz,sigoxy,sigoyz,sigozx
70 my_real, DIMENSION(NEL) ,INTENT(INOUT) :: epsd,soundsp,
71 . signxx,signyy,signzz,signxy,signyz,signzx
72 my_real ,DIMENSION(NEL) ,INTENT(INOUT) :: pla,dplanl,off,dmg,dmg_scale
73 my_real ,DIMENSION(NEL,NUVAR) ,INTENT(INOUT) :: uvar
74 INTEGER ,DIMENSION(NEL,NVARTMP) ,INTENT(INOUT) :: VARTMP
75 TYPE(TTABLE) ,DIMENSION(NTABLE) ,INTENT(IN) :: TABLE
76c----------------------------------------------------------------
77c L o c a l v a r ia b l e s
78c----------------------------------------------------------------
79 INTEGER :: IFORM,ITABL
80C=======================================================================
81 iform = nint(uparam(25))
82 itabl = nint(uparam(29))
83c
84c------------------------------------------------------------------
85 IF (itabl > 0) THEN
86 IF (iform == 1) THEN ! tabulated Drucker-Prager formulation
87 CALL sigeps120_tab_dp(
88 1 nel ,ngl ,nuparam ,nuvar ,time ,timestep,
89 2 uparam ,uvar ,off ,pla ,epsd ,soundsp ,
90 3 epspxx ,epspyy ,epspzz ,epspxy ,epspyz ,epspzx ,
91 4 depsxx ,depsyy ,depszz ,depsxy ,depsyz ,depszx ,
92 5 sigoxx ,sigoyy ,sigozz ,sigoxy ,sigoyz ,sigozx ,
93 6 signxx ,signyy ,signzz ,signxy ,signyz ,signzx ,
94 7 numtabl ,itable ,table ,nvartmp ,vartmp ,temp ,
95 8 inloc ,dplanl ,dmg , dmg_scale)
96 ELSE ! tabulated Von-Mises formulation
97 CALL sigeps120_tab_vm(
98 1 nel ,ngl ,nuparam ,nuvar ,time ,timestep,
99 2 uparam ,uvar ,off ,pla ,epsd ,soundsp ,
100 3 epspxx ,epspyy ,epspzz ,epspxy ,epspyz ,epspzx ,
101 4 depsxx ,depsyy ,depszz ,depsxy ,depsyz ,depszx ,
102 5 sigoxx ,sigoyy ,sigozz ,sigoxy ,sigoyz ,sigozx ,
103 6 signxx ,signyy ,signzz ,signxy ,signyz ,signzx ,
104 7 ntable ,itable ,table ,nvartmp ,vartmp ,temp ,
105 8 inloc ,dplanl ,dmg , dmg_scale)
106 END IF
107c
108 ELSE
109c
110 IF (iform == 1) THEN ! analytical Drucker-Prager formulation
111 CALL sigeps120_dp(
112 1 nel ,ngl ,nuparam ,nuvar ,time ,timestep,
113 2 uparam ,uvar ,off ,pla ,epsd ,soundsp ,
114 3 epspxx ,epspyy ,epspzz ,epspxy ,epspyz ,epspzx ,
115 4 depsxx ,depsyy ,depszz ,depsxy ,depsyz ,depszx ,
116 5 sigoxx ,sigoyy ,sigozz ,sigoxy ,sigoyz ,sigozx ,
117 6 signxx ,signyy ,signzz ,signxy ,signyz ,signzx ,
118 7 inloc ,dplanl ,dmg , dmg_scale)
119 ELSE ! analytical Von-Mises formulation
120 CALL sigeps120_vm(
121 1 nel ,ngl ,nuparam ,nuvar ,time ,timestep,
122 2 uparam ,uvar ,off ,pla ,epsd ,soundsp ,
123 3 epspxx ,epspyy ,epspzz ,epspxy ,epspyz ,epspzx ,
124 4 depsxx ,depsyy ,depszz ,depsxy ,depsyz ,depszx ,
125 5 sigoxx ,sigoyy ,sigozz ,sigoxy ,sigoyz ,sigozx ,
126 6 signxx ,signyy ,signzz ,signxy ,signyz ,signzx ,
127 7 inloc ,dplanl ,dmg , dmg_scale)
128 END IF
129 END IF
130c-----------------------------------------------------------------
131 RETURN
132 END
interface_table_mod
Definition table_mod.F:238
table_mod
Definition table_mod.F:112
sigeps120
subroutine sigeps120(nel, nuparam, nuvar, nvartmp, numtabl, itable, table, time, timestep, soundsp, uvar, vartmp, uparam, ngl, off, pla, epsd, temp, epspxx, epspyy, epspzz, epspxy, epspyz, epspzx, depsxx, depsyy, depszz, depsxy, depsyz, depszx, sigoxx, sigoyy, sigozz, sigoxy, sigoyz, sigozx, signxx, signyy, signzz, signxy, signyz, signzx, inloc, dplanl, dmg, dmg_scale)
Definition sigeps120.F:45
sigeps120_dp
subroutine sigeps120_dp(nel, ngl, nuparam, nuvar, time, timestep, uparam, uvar, off, pla, epsd, soundsp, epspxx, epspyy, epspzz, epspxy, epspyz, epspzx, depsxx, depsyy, depszz, depsxy, depsyz, depszx, sigoxx, sigoyy, sigozz, sigoxy, sigoyz, sigozx, signxx, signyy, signzz, signxy, signyz, signzx, inloc, dplanl, dmg, dmg_scale)
Definition sigeps120_dp.F:36
sigeps120_tab_dp
subroutine sigeps120_tab_dp(nel, ngl, nuparam, nuvar, time, timestep, uparam, uvar, off, pla, epsd, soundsp, epspxx, epspyy, epspzz, epspxy, epspyz, epspzx, depsxx, depsyy, depszz, depsxy, depsyz, depszx, sigoxx, sigoyy, sigozz, sigoxy, sigoyz, sigozx, signxx, signyy, signzz, signxy, signyz, signzx, numtabl, itable, table, nvartmp, vartmp, temp, inloc, dplanl, dmg, dmg_scale)
Definition sigeps120_tab_dp.F:42
sigeps120_tab_vm
subroutine sigeps120_tab_vm(nel, ngl, nuparam, nuvar, time, timestep, uparam, uvar, off, pla, epsd, soundsp, epspxx, epspyy, epspzz, epspxy, epspyz, epspzx, depsxx, depsyy, depszz, depsxy, depsyz, depszx, sigoxx, sigoyy, sigozz, sigoxy, sigoyz, sigozx, signxx, signyy, signzz, signxy, signyz, signzx, numtabl, itable, table, nvartmp, vartmp, temp, inloc, dplanl, dmg, dmg_scale)
Definition sigeps120_tab_vm.F:42
sigeps120_vm
subroutine sigeps120_vm(nel, ngl, nuparam, nuvar, time, timestep, uparam, uvar, off, pla, epsd, soundsp, epspxx, epspyy, epspzz, epspxy, epspyz, epspzx, depsxx, depsyy, depszz, depsxy, depsyz, depszx, sigoxx, sigoyy, sigozz, sigoxy, sigoyz, sigozx, signxx, signyy, signzz, signxy, signyz, signzx, inloc, dplanl, dmg, dmg_scale)
Definition sigeps120_vm.F:36