OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
sfor_n2stria.F File Reference
#include "implicit_f.inc"
#include "mvsiz_p.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine sfor_n2stria (xc, yc, zc, x1, x2, x3, y1, y2, y3, z1, z2, z3, vcx, vcy, vcz, vx1, vx2, vx3, vy1, vy2, vy3, vz1, vz2, vz3, for_t1, for_t2, for_t3, forc_n, stif0, stif, fqmax, penmin, penref, ll, ifctl, nel, e_distor, dt1)

Function/Subroutine Documentation

◆ sfor_n2stria()

subroutine sfor_n2stria ( intent(in) xc,
intent(in) yc,
intent(in) zc,
intent(in) x1,
intent(in) x2,
intent(in) x3,
intent(in) y1,
intent(in) y2,
intent(in) y3,
intent(in) z1,
intent(in) z2,
intent(in) z3,
intent(in) vcx,
intent(in) vcy,
intent(in) vcz,
intent(in) vx1,
intent(in) vx2,
intent(in) vx3,
intent(in) vy1,
intent(in) vy2,
intent(in) vy3,
intent(in) vz1,
intent(in) vz2,
intent(in) vz3,
intent(inout) for_t1,
intent(inout) for_t2,
intent(inout) for_t3,
intent(inout) forc_n,
intent(in) stif0,
intent(inout) stif,
intent(in) fqmax,
intent(in) penmin,
intent(in) penref,
intent(in) ll,
integer, intent(out) ifctl,
integer, intent(in) nel,
intent(inout) e_distor,
intent(in) dt1 )

Definition at line 31 of file sfor_n2stria.F.

44C-----------------------------------------------
45C I m p l i c i t T y p e s
46C-----------------------------------------------
47#include "implicit_f.inc"
48C-----------------------------------------------
49C G l o b a l P a r a m e t e r s
50C-----------------------------------------------
51#include "mvsiz_p.inc"
52C-----------------------------------------------
53C D u m m y A r g u m e n t s
54C-----------------------------------------------
55 INTEGER, INTENT (IN) :: NEL
56 INTEGER, INTENT (OUT) :: IFCTL
57 my_real, INTENT (IN) :: fqmax,dt1
58 my_real, DIMENSION(MVSIZ), INTENT (IN) :: stif0,ll,
59 . x1, x2, x3,
60 . y1, y2, y3,
61 . z1, z2, z3,
62 . xc, yc, zc,
63 . vcx, vcy, vcz,
64 . vx1, vx2, vx3,
65 . vy1, vy2, vy3,
66 . vz1, vz2, vz3,
67 . penmin, penref
68 my_real, DIMENSION(MVSIZ), INTENT (INOUT) :: stif
69 my_real, DIMENSION(MVSIZ,3), INTENT (INOUT) :: forc_n,
70 . for_t1, for_t2, for_t3
71 my_real, DIMENSION(NEL), INTENT (INOUT) :: e_distor
72C-----------------------------------------------
73C C o m m o n B l o c k s
74C-----------------------------------------------
75C
76C-----------------------------------------------
77C L o c a l V a r i a b l e s
78C-----------------------------------------------
79 INTEGER I,J,IFCTL1,IFC2(MVSIZ)
80C 12
81 my_real
82 . fx,fy,fz,fkt(mvsiz)
83C----------------------------
84 ifc2(1:nel) = 1
85 fkt(1:nel) = one
86 DO i=1,nel
87 IF (stif0(i)>zero) cycle
88 ifc2(i) = 0
89 ENDDO
90 CALL sfor_n2s3(xc , yc , zc , forc_n,
91 . x1, y1, z1, for_t1,
92 . x2, y2, z2, for_t2,
93 . x3, y3, z3, for_t3,
94 . stif0, ifc2, ifctl, penmin,
95 . penref, fkt, ll , fqmax,
96 . vx1, vx2, vx3, vcx ,
97 . vy1, vy2, vy3, vcy ,
98 . vz1, vz2, vz3, vcz ,
99 . nel,e_distor, dt1)
100 DO i=1,nel
101 IF (stif0(i)==zero) cycle
102 stif(i) =max(stif(i),fkt(i)*stif0(i))
103 ENDDO
104C
105 RETURN
my_real
#define my_real
Definition cppsort.cpp:32
max
#define max(a, b)
Definition macros.h:21
sfor_n2s3
subroutine sfor_n2s3(xi, yi, zi, forc_n, x1, y1, z1, for_t1, x2, y2, z2, for_t2, x3, y3, z3, for_t3, stif, ifc1, ifctl, penmin, penref, fktmax, ll, fqmax, vx1, vx2, vx3, vxi, vy1, vy2, vy3, vyi, vz1, vz2, vz3, vzi, nel, e_distor, dt1)
Definition sfor_n2s3.F:40