OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
smallb3.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!|| smallb3 ../engine/source/elements/solid/solide/smallb3.F
25!||--- called by ------------------------------------------------------
26!|| ig3duforc3 ../engine/source/elements/ige3d/ig3duforc3.F
27!|| q4forc2 ../engine/source/elements/solid_2d/quad4/q4forc2.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!|| s6cforc3 ../engine/source/elements/thickshell/solide6c/s6cforc3.F
33!|| s8cforc3 ../engine/source/elements/thickshell/solide8c/s8cforc3.F
34!|| s8eforc3 ../engine/source/elements/solid/solide8e/s8eforc3.F
35!|| s8forc3 ../engine/source/elements/solid/solide8/s8forc3.F
36!|| s8sforc3 ../engine/source/elements/solid/solide8s/s8sforc3.F
37!|| s8zforc3 ../engine/source/elements/solid/solide8z/s8zforc3.F
38!|| scforc3 ../engine/source/elements/thickshell/solidec/scforc3.F
39!|| sforc3 ../engine/source/elements/solid/solide/sforc3.F
40!|| szforc3 ../engine/source/elements/solid/solidez/szforc3.f
41!||====================================================================
42 SUBROUTINE smallb3(
43 1 OFFG, OFF, NEL, ISMSTR)
44C-----------------------------------------------
45C I m p l i c i t T y p e s
46C-----------------------------------------------
47#include "implicit_f.inc"
48C-----------------------------------------------
49C C o m m o n B l o c k s
50C-----------------------------------------------
51C-----------------------------------------------
52C D u m m y A r g u m e n t s
53C-----------------------------------------------
54 INTEGER, INTENT(IN) :: NEL
55 INTEGER, INTENT(IN) :: ISMSTR
56 my_real offg(*),off(*)
57C-----------------------------------------------
58C L o c a l V a r i a b l e s
59C-----------------------------------------------
60 INTEGER I
61C-----------------------------------------------
62 IF(ismstr==1.OR.ismstr==3)THEN
63 DO i=1,nel
64 IF(offg(i)>zero)offg(i)=two
65 ENDDO
66 ENDIF
67C
68 DO i=1,nel
69 IF(off(i)<one)THEN
70 IF(off(i)==zero)THEN
71 offg(i)=zero
72 ELSEIF(offg(i)>one)THEN
73 offg(i) = one+off(i)
74 ELSE
75 offg(i) = off(i)
76 END IF
77 END IF
78 ENDDO
79C
80 RETURN
81 END
my_real
#define my_real
Definition cppsort.cpp:32
s10forc3
subroutine s10forc3(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, ixs10, iads10, nel, fx, fy, fz, ar, vr, dr, ipm, istrain, isolnod, itask, temp, fthe, fthesky, iexpan, stifr, d, gresav, grth, igrth, table, mssa, dmels, igeo, xdp, voln, condn, condnsky, sfem_nodvar, itagdn, sensors, ioutprt, mat_elem, h3d_strain, dt, idel7nok, snpc, stf, sbufmat, svis, nsvois, idtmins, idel7ng, maxfunc, userl_avail, glob_therm, impl_s, idyna, s_sfem_nodvar)
Definition s10forc3.F:114
smallb3
subroutine smallb3(offg, off, nel, ismstr)
Definition smallb3.F:44
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