OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
csmall3.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!|| csmall3 ../engine/source/elements/solid/solide/csmall3.f
25!||--- called by ------------------------------------------------------
26!|| s6cforc3 ../engine/source/elements/thickshell/solide6c/s6cforc3.f
27!|| s8cforc3 ../engine/source/elements/thickshell/solide8c/s8cforc3.F
28!|| s8eforc3 ../engine/source/elements/solid/solide8e/s8eforc3.F
29!|| s8sforc3 ../engine/source/elements/solid/solide8s/s8sforc3.F
30!|| s8zforc3 ../engine/source/elements/solid/solide8z/s8zforc3.F
31!|| scforc3 ../engine/source/elements/thickshell/solidec/scforc3.F
32!||====================================================================
33 SUBROUTINE csmall3(SIG, S1, S2, S3, S4, S5, S6,
34 . OFFG ,OFF ,NEL)
35C-----------------------------------------------
36C I m p l i c i t T y p e s
37C-----------------------------------------------
38#include "implicit_f.inc"
39C-----------------------------------------------
40C C o m m o n B l o c k s
41C-----------------------------------------------
42C-----------------------------------------------
43C D u m m y A r g u m e n t s
44C-----------------------------------------------
45 INTEGER NEL
46 my_real
47 . sig(nel,6),
48 . s1(*), s2(*), s3(*), s4(*), s5(*), s6(*),
49 . offg(*),off(*)
50C-----------------------------------------------
51C L o c a l V a r i a b l e s
52C-----------------------------------------------
53 INTEGER I
54 my_real
55 . dv,dv1
56C-----------------------------------------------
57C STRESSES EXTRACTION.
58C-----------------------------------------------
59 s1(1:nel)=sig(1:nel,1)
60 s2(1:nel)=sig(1:nel,2)
61 s3(1:nel)=sig(1:nel,3)
62 s4(1:nel)=sig(1:nel,4)
63 s5(1:nel)=sig(1:nel,5)
64 s6(1:nel)=sig(1:nel,6)
65C-----------------------------------------------
66C SMALL STRAIN. moved to SRHO3.F
67C-----------------------------------------------
68C
69 RETURN
70 END
my_real
#define my_real
Definition cppsort.cpp:32
csmall3
subroutine csmall3(sig, s1, s2, s3, s4, s5, s6, offg, off, nel)
Definition csmall3.F:35
s6cforc3
subroutine s6cforc3(timers, output, 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, f11, f21, f31, f12, f22, f32, f13, f23, f33, f14, f24, f34, f15, f25, f35, f16, f26, f36, nel, icp, icsig, nloc_dmg, ipm, istrain, igeo, gresav, grth, igrth, table, mssa, dmels, voln, itask, ioutprt, mat_elem, h3d_strain, temp, fthe, fthesky, condn, condnsky, iexpan, ifthe, icondn, dt, snpc, stf, sbufmat, svis, nsvois, idtmins, iresp, idel7ng, idel7nok, maxfunc, imon_mat, userl_avail, glob_therm, xdp, sensors)
Definition s6cforc3.F:100