OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
repla3.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!|| repla3 ../engine/source/elements/spring/repla3.F
25!||--- called by ------------------------------------------------------
26!|| r23l108def3 ../engine/source/elements/spring/r23l108def3.F
27!|| r23l113def3 ../engine/source/elements/spring/r23l113def3.F
28!|| r23l114def3 ../engine/source/elements/spring/r23l114def3.F
29!|| r2def3 ../engine/source/elements/spring/r2def3.f
30!|| r4def3 ../engine/source/elements/spring/r4def3.F
31!|| r6def3 ../engine/source/elements/spring/r6def3.F
32!||--- calls -----------------------------------------------------
33!|| interp ../engine/source/tools/curve/interp.F
34!||====================================================================
35 SUBROUTINE repla3(
36 1 XK, DPX, TF, NPF,
37 2 IECROU, IFUNC, IFV, EPLA,
38 3 NEL)
39C-----------------------------------------------
40C I m p l i c i t T y p e s
41C-----------------------------------------------
42#include "implicit_f.inc"
43C-----------------------------------------------
44C G l o b a l P a r a m e t e r s
45C-----------------------------------------------
46#include "mvsiz_p.inc"
47C-----------------------------------------------
48C C o m m o n B l o c k s
49C-----------------------------------------------
50C-----------------------------------------------
51C D u m m y A r g u m e n t s
52C-----------------------------------------------
53 INTEGER, INTENT(IN) :: NEL
54 INTEGER NPF(*),IECROU(MVSIZ),IFV(MVSIZ)
55C REAL
56 my_real
57 . xk(*), dpx(*), tf(*),epla(mvsiz)
58C-----------------------------------------------
59C L o c a l V a r i a b l e s
60C-----------------------------------------------
61 INTEGER IFUNC(MVSIZ), I, NPOINT
62C REAL
63 my_real
64 . xki, fp
65C-----------------------------------------------
66 DO i=1,nel
67 IF(ifunc(i)/=0.AND.iecrou(i)==3)THEN
68 npoint=(npf(ifunc(i)+1)-npf(ifunc(i)))/2
69C-------------------------------------
70C ELASTO PLASTIQUE (TENSION COMPRESSION COUPLEE 6 DOF COUPLES)
71C-------------------------------------
72 CALL interp(tf(npf(ifunc(i))),dpx(i),npoint,fp,xki)
73 fp = fp * xk(i) / max( em20, (xk(i) - xki) )
74 fp = max(abs(fp), em20)
75 dpx(i) = dpx(i) + epla(i) / fp
76 ENDIF
77 ENDDO
78C
79 RETURN
80 END
my_real
#define my_real
Definition cppsort.cpp:32
interp
subroutine interp(tf, tt, npoint, f, tg)
Definition interp.F:35
max
#define max(a, b)
Definition macros.h:21
r2def3
subroutine r2def3(python, skew, geo, fx, fy, fz, e, dx, dy, dz, npf, tf, off, dpx, dpy, dpz, dpx2, dpy2, dpz2, fxep, fyep, fzep, x0, y0, z0, xmom, ymom, zmom, rx, ry, rz, rpx, rpy, rpz, xmep, ymep, zmep, rpx2, rpy2, rpz2, anim, iposx, iposy, iposz, iposxx, iposyy, iposzz, v, igeo, e6, critnew, nel, x0_err, x1dp, x2dp, yieldx, yieldy, yieldz, yieldx2, yieldy2, yieldz2, ngl, xkr, mgn, exx, eyx, ezx, exy, eyy, ezy, exz, eyz, ezz, xcr, rx1, ry1, rz1, rx2, ry2, rz2, xin, ak, xm, xkm, xcm, nc1, nc2, nuvar, uvar, dx0, dy0, dz0, rx0, ry0, rz0, iequil, skew_id, nft, stf, sanin, iresp, snpc)
Definition r2def3.F:61
repla3
subroutine repla3(xk, dpx, tf, npf, iecrou, ifunc, ifv, epla, nel)
Definition repla3.F:39