OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
storth3.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 12
24!||====================================================================
25!|| storth3 ../engine/source/elements/solid/solidez/storth3.F
26!||--- called by ------------------------------------------------------
27!|| s8cforc3 ../engine/source/elements/thickshell/solide8c/s8cforc3.f
28!|| s8zforc3 ../engine/source/elements/solid/solide8z/s8zforc3.F
29!|| szforc3 ../engine/source/elements/solid/solidez/szforc3.f
30!||====================================================================
31 SUBROUTINE storth3(
32 1 JFT, JLT, NEL, G1X,
33 2 G1Y, G1Z, G2X, G2Y,
34 3 G2Z, G3X, G3Y, G3Z,
35 4 GAMA, ISORTH)
36C-----------------------------------------------
37C I m p l i c i t T y p e s
38C-----------------------------------------------
39#include "implicit_f.inc"
40C-----------------------------------------------
41C D u m m y A r g u m e n t s
42C-----------------------------------------------
43 INTEGER, INTENT(IN) :: ISORTH
44 INTEGER JFT, JLT ,NEL
45C REAL
46 my_real
47 . g1x(*),g1y(*),g1z(*),
48 . g2x(*),g2y(*),g2z(*),g3x(*),g3y(*),g3z(*),gama(nel,6)
49C-----------------------------------------------
50C C o m m o n B l o c k s
51C-----------------------------------------------
52C-----------------------------------------------
53C L o c a l V a r i a b l e s
54C-----------------------------------------------
55 INTEGER I
56C=======================================================================
57 IF (ISORTH == 1) then
58 DO i=jft,jlt
59 g1x(i)=gama(i,1)
60 g1y(i)=gama(i,2)
61 g1z(i)=gama(i,3)
62 g2x(i)=gama(i,4)
63 g2y(i)=gama(i,5)
64 g2z(i)=gama(i,6)
65 g3x(i)=g1y(i)*g2z(i)-g1z(i)*g2y(i)
66 g3y(i)=g1z(i)*g2x(i)-g1x(i)*g2z(i)
67 g3z(i)=g1x(i)*g2y(i)-g1y(i)*g2x(i)
68 ENDDO
69 ELSE
70 DO i=jft,jlt
71 g1x(i)=one
72 g1y(i)=zero
73 g1z(i)=zero
74 g2x(i)=zero
75 g2y(i)=one
76 g2z(i)=zero
77 g3x(i)=zero
78 g3y(i)=zero
79 g3z(i)=one
80 ENDDO
81 ENDIF
82C-----------
83 RETURN
84 END
s8cforc3
subroutine s8cforc3(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, 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, icp, icsig, smr, sms, smt, mfxx, mfxy, mfxz, mfyx, mfyy, mfyz, mfzx, mfzy, mfzz, nvc, ipm, itask, istrain, temp, fthe, fthesky, iexpan, igeo, nnpt, gresav, grth, igrth, mssa, dmels, table, xdp, voln, condn, condnsky, sensors, ioutprt, mat_elem, h3d_strain, dt, nodadt, dtfac1, dtmin1, idtmin, snpc, stf, sbufmat, svis, nsvois, idtmins, iresp, maxfunc, userl_avail, glob_therm, impl_s, idyna)
Definition s8cforc3.F:110
storth3
subroutine storth3(jft, jlt, nel, g1x, g1y, g1z, g2x, g2y, g2z, g3x, g3y, g3z, gama, isorth)
Definition storth3.F:36
szforc3
subroutine szforc3(timers, elbuf_tab, ng, pm, geo, ixs, x, a, v, ms, w, flux, flu1, veul, fv, ale_connect, iparg, tf, npf, bufmat, partsav, 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, fskym, msnf, nvc, ipm, itask, qmv, istrain, imatvis, temp, fthe, fthesky, iexpan, gresav, grth, igrth, mssa, dmels, table, igeo, xdp, condn, condnsky, d, tagprt_sms, sensors, ioutprt, nale, nloc_dmg, mat_elem, h3d_strain, dt, output, nsvois, sz_bufvois, snpc, stf, sbufmat, svis, iresp, maxfunc, userl_avail, glob_therm, impl_s, idyna)
Definition szforc3.F:124