OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
srota3.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/.
23C ds008 18/2/00 +2
24!||====================================================================
25!|| srota3 ../engine/source/elements/solid/solide/srota3.F
26!||--- called by ------------------------------------------------------
27!|| ig3duforc3 ../engine/source/elements/ige3d/ig3duforc3.F
28!|| s10forc3 ../engine/source/elements/solid/solide10/s10forc3.F
29!|| s16forc3 ../engine/source/elements/thickshell/solide16/s16forc3.F
30!|| s20forc3 ../engine/source/elements/solid/solide20/s20forc3.f
31!|| s4forc3 ../engine/source/elements/solid/solide4/s4forc3.F
32!|| s8cforc3 ../engine/source/elements/thickshell/solide8c/s8cforc3.F
33!|| s8eforc3 ../engine/source/elements/solid/solide8e/s8eforc3.f
34!|| s8zforc3 ../engine/source/elements/solid/solide8z/s8zforc3.F
35!|| sforc3 ../engine/source/elements/solid/solide/sforc3.F
36!|| spstres ../engine/source/elements/sph/spstres.F
37!||====================================================================
38 SUBROUTINE srota3(
39 1 SIG, S1, S2, S3,
40 2 S4, S5, S6, WXX,
41 3 WYY, WZZ, NEL, MTN,
42 4 ISMSTR)
43C-----------------------------------------------
44C I m p l i c i t T y p e s
45C-----------------------------------------------
46#include "implicit_f.inc"
47C-----------------------------------------------
48C G l o b a l P a r a m e t e r s
49C-----------------------------------------------
50#include "mvsiz_p.inc"
51C-----------------------------------------------
52C D u m m y A r g u m e n t s
53C-----------------------------------------------
54 INTEGER, INTENT(IN) :: MTN
55 INTEGER, INTENT(IN) :: ISMSTR
56 INTEGER NEL
57 my_real
58 . sig(nel,6),wxx(*), wyy(*), wzz(*),
59 . s1(mvsiz), s2(mvsiz), s3(mvsiz), s4(mvsiz), s5(mvsiz), s6(mvsiz)
60C-----------------------------------------------
61C C o m m o n B l o c k s
62C-----------------------------------------------
63C-----------------------------------------------
64C L o c a l V a r i a b l e s
65C-----------------------------------------------
66 INTEGER I, J
67 my_real
68 . Q1, Q2, Q3
69C=======================================================================
70 s1(1:nel)=sig(1:nel,1)
71 s2(1:nel)=sig(1:nel,2)
72 s3(1:nel)=sig(1:nel,3)
73 s4(1:nel)=sig(1:nel,4)
74 s5(1:nel)=sig(1:nel,5)
75 s6(1:nel)=sig(1:nel,6)
76
77C
78 IF (mtn==6.OR.mtn==17.OR.mtn==46.OR.mtn==47
79 . .OR.ismstr==10.OR.ismstr==12) RETURN
80C
81 DO i=1,nel
82 q1 = two*s4(i)*wzz(i)
83 q2 = two*s6(i)*wyy(i)
84 q3 = two*s5(i)*wxx(i)
85!
86 sig(i,1)=s1(i)-q1+q2
87 sig(i,2)=s2(i)+q1-q3
88 sig(i,3)=s3(i)-q2+q3
89 sig(i,4)=s4(i)+wzz(i)*(s1(i)-s2(i))+wyy(i)*s5(i)-wxx(i)*s6(i)
90 sig(i,5)=s5(i)+wxx(i)*(s2(i)-s3(i))+wzz(i)*s6(i)-wyy(i)*s4(i)
91 sig(i,6)=s6(i)+wyy(i)*(s3(i)-s1(i))+wxx(i)*s4(i)-wzz(i)*s5(i)
92 ENDDO
93C-----------
94 RETURN
95 END
s20forc3
subroutine s20forc3(timers, output, elbuf_tab, ng, pm, geo, ixs, x, a, v, ms, w, flux, flu1, veul, fv, ale_connect, iparg, tf, npf, bufmat, partsav, nloc_dmg, dt2t, neltst, ityptst, stifn, fsky, iads, offset, eani, iparts, ixs20, iads20, nel, fx, fy, fz, volnp, rx, ry, rz, sx, sy, sz, tx, ty, tz, stig, stin, ul, xx, yy, zz, vx, vy, vz, vdxx, vdyy, vdzz, dnidr, dnids, dnidt, px, py, pz, ipm, istrain, temp, fthe, fthesky, iexpan, gresav, grth, igrth, table, igeo, voln, condn, condnsky, itask, ioutprt, mat_elem, h3d_strain, dt, idel7nok, snpc, stf, sbufmat, svis, idtmins, nsvois, iresp, idel7ng, idtmin, maxfunc, imon_mat, userl_avail, glob_therm, impl_s, idyna, sensors)
Definition s20forc3.F:87
s8eforc3
subroutine s8eforc3(timers, output, elbuf_tab, ng, pm, geo, ixs, x, a, v, ms, w, flux, flu1, veul, fv, ale_connect, iparg, tf, npf, bufmat, partsav, nloc_dmg, dt2t, neltst, ityptst, stifn, fsky, iads, offset, eani, iparts, icp, f11, f21, f31, f12, f22, f32, f13, f23, f33, f14, f24, f34, f15, f25, f35, f16, f26, f36, f17, f27, f37, f18, f28, f38, nel, nvc, ipm, itask, istrain, temp, fthe, fthesky, iexpan, gresav, grth, igrth, mssa, dmels, table, igeo, xdp, voln, condn, condnsky, d, sensors, ioutprt, mat_elem, h3d_strain, dt, snpc, stf, sbufmat, svis, nsvois, idtmins, iresp, maxfunc, userl_avail, glob_therm, impl_s, idyna)
Definition s8eforc3.F:147
srota3
subroutine srota3(sig, s1, s2, s3, s4, s5, s6, wxx, wyy, wzz, nel, mtn, ismstr)
Definition srota3.F:43