OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
uroto.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!|| uroto ../engine/source/airbag/uroto.f
25!||--- called by ------------------------------------------------------
26!|| mulawglc ../engine/source/materials/mat_share/mulawglc.F
27!||====================================================================
28 SUBROUTINE uroto(JFT,JLT,SIG,DIR,NEL)
29C-----------------------------------------------
30C I m p l i c i t T y p e s
31C-----------------------------------------------
32#include "implicit_f.inc"
33C-----------------------------------------------
34C D u m m y A r g u m e n t s
35C-----------------------------------------------
36 INTEGER JFT, JLT,NEL
37 my_real
38 . sig(5,*), dir(nel,2)
39C-----------------------------------------------
40C L o c a l V a r i a b l e s
41C-----------------------------------------------
42 INTEGER I
43 my_real s1, s2, s3, s4, s5
44C-----------------------------------------------
45 DO i=jft,jlt
46 s1 = dir(i,1)*dir(i,1)*sig(1,i)
47 . + dir(i,2)*dir(i,2)*sig(2,i)
48 .-two*dir(i,1)*dir(i,2)*sig(3,i)
49 s2 = dir(i,2)*dir(i,2)*sig(1,i)
50 . + dir(i,1)*dir(i,1)*sig(2,i)
51 .+two*dir(i,2)*dir(i,1)*sig(3,i)
52 s3 = dir(i,1)*dir(i,2)*sig(1,i)
53 . - dir(i,2)*dir(i,1)*sig(2,i)
54 . +(dir(i,1)*dir(i,1)-dir(i,2)*dir(i,2))*sig(3,i)
55 s4 = dir(i,2)*sig(5,i)+dir(i,1)*sig(4,i)
56 s5 = dir(i,1)*sig(5,i)-dir(i,2)*sig(4,i)
57 sig(1,i)=s1
58 sig(2,i)=s2
59 sig(3,i)=s3
60 sig(4,i)=s4
61 sig(5,i)=s5
62 ENDDO
63C
64 RETURN
65 END
66!||====================================================================
67!|| urotov ../engine/source/airbag/uroto.F
68!||--- called by ------------------------------------------------------
69!|| m32plas ../engine/source/materials/mat/mat032/m32plas.F
70!|| mat25_crasurv_c ../engine/source/materials/mat/mat025/mat25_crasurv_c.F90
71!|| mat25_tsaiwu_c ../engine/source/materials/mat/mat025/mat25_tsaiwu_c.F90
72!|| mulawc ../engine/source/materials/mat_share/mulawc.F90
73!|| sigrota ../engine/source/output/anim/generate/sigrota.F
74!|| sigrota_xfe ../engine/source/output/anim/generate/sigrota_xfe.f
75!|| tensorc_crk ../engine/source/output/anim/generate/tensorc_crk.F
76!|| usermat_shell ../engine/source/materials/mat_share/usermat_shell.F
77!||====================================================================
78 SUBROUTINE urotov(JFT,JLT,SIG,DIR,NEL)
79C-----------------------------------------------
80C I m p l i c i t T y p e s
81C-----------------------------------------------
82#include "implicit_f.inc"
83C-----------------------------------------------
84C G l o b a l P a r a m e t e r s
85C-----------------------------------------------
86#include "mvsiz_p.inc"
87C-----------------------------------------------
88C D u m m y A r g u m e n t s
89C-----------------------------------------------
90 INTEGER JFT, JLT,NEL
91 my_real sig(mvsiz,5), dir(nel,2)
92C-----------------------------------------------
93C L o c a l V a r i a b l e s
94C-----------------------------------------------
95 INTEGER I
96 my_real s1, s2, s3, s4, s5
97C-----------------------------------------------
98 DO i=jft,jlt
99 s1 = dir(i,1)*dir(i,1)*sig(i,1)
100 . + dir(i,2)*dir(i,2)*sig(i,2)
101 .-two*dir(i,1)*dir(i,2)*sig(i,3)
102 s2 = dir(i,2)*dir(i,2)*sig(i,1)
103 . + dir(i,1)*dir(i,1)*sig(i,2)
104 .+two*dir(i,2)*dir(i,1)*sig(i,3)
105 s3 = dir(i,1)*dir(i,2)*sig(i,1)
106 . - dir(i,2)*dir(i,1)*sig(i,2)
107 . +(dir(i,1)*dir(i,1)-dir(i,2)*dir(i,2))*sig(i,3)
108 s4 = dir(i,2)*sig(i,5)+dir(i,1)*sig(i,4)
109 s5 = dir(i,1)*sig(i,5)-dir(i,2)*sig(i,4)
110 sig(i,1)=s1
111 sig(i,2)=s2
112 sig(i,3)=s3
113 sig(i,4)=s4
114 sig(i,5)=s5
115 ENDDO
116C
117 RETURN
118 END
119!||====================================================================
120!|| uroto_sig ../engine/source/airbag/uroto.F
121!||--- called by ------------------------------------------------------
122!|| sigeps27c ../engine/source/materials/mat/mat027/sigeps27c.F
123!||====================================================================
124 SUBROUTINE uroto_sig(JFT,JLT,SIG,DIR,NEL)
125C-----------------------------------------------
126C I m p l i c i t T y p e s
127C-----------------------------------------------
128#include "implicit_f.inc"
129C-----------------------------------------------
130C D u m m y A r g u m e n t s
131C-----------------------------------------------
132 INTEGER JFT,JLT,NEL
133 my_real sig(nel,5),dir(nel,2)
134C-----------------------------------------------
135C L o c a l V a r i a b l e s
136C-----------------------------------------------
137 INTEGER I
138 my_real s1, s2, s3, s4, s5
139C-----------------------------------------------
140 DO i=jft,jlt
141 s1 = dir(i,1)*dir(i,1)*sig(i,1)
142 . + dir(i,2)*dir(i,2)*sig(i,2)
143 . -two*dir(i,1)*dir(i,2)*sig(i,3)
144 s2 = dir(i,2)*dir(i,2)*sig(i,1)
145 . + dir(i,1)*dir(i,1)*sig(i,2)
146 . +two*dir(i,2)*dir(i,1)*sig(i,3)
147 s3 = dir(i,1)*dir(i,2)*sig(i,1)
148 . - dir(i,2)*dir(i,1)*sig(i,2)
149 . +(dir(i,1)*dir(i,1)-dir(i,2)*dir(i,2))*sig(i,3)
150 s4 = dir(i,2)*sig(i,5)+dir(i,1)*sig(i,4)
151 s5 = dir(i,1)*sig(i,5)-dir(i,2)*sig(i,4)
152 sig(i,1)=s1
153 sig(i,2)=s2
154 sig(i,3)=s3
155 sig(i,4)=s4
156 sig(i,5)=s5
157 ENDDO
158C
159 RETURN
160 END
my_real
#define my_real
Definition cppsort.cpp:32
sigrota_xfe
subroutine sigrota_xfe(elbuf_str, xfem_str, jft, jlt, nft, ilay, nel, ity, iel_crk, iadc_crk, iadtg_crk, ixfem, icrk, nlay, sig, ivisc, crkedge)
Definition sigrota_xfe.F:37
uroto
subroutine uroto(jft, jlt, sig, dir, nel)
Definition uroto.F:29
urotov
subroutine urotov(jft, jlt, sig, dir, nel)
Definition uroto.F:79
uroto_sig
subroutine uroto_sig(jft, jlt, sig, dir, nel)
Definition uroto.F:125