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

Go to the source code of this file.

Functions/Subroutines

subroutine r23forc3 (python, elbuf_str, jft, jlt, nel, mtn, igeo, geo, ipm, ixr, x, table, xdp, f, npf, tf, skew, flg_kj2, vr, ar, v, dt2t, neltst, ityptst, stifn, stifr, ms, in, fsky, iadr, sensors, offset, anim, partsav, ipartr, tani, fr_wave, bufmat, bufgeo, pm, rby, fx1, fx2, fy1, fy2, fz1, fz2, mx1, mx2, my1, my2, mz1, mz2, gresav, grth, igrth, msrt, dmelrt, flag_slipring_update, flag_retractor_update, h3d_data, jsms, igre, nft, preld1, stf_f, stf, sanin, iresp, snpc)

Function/Subroutine Documentation

◆ r23forc3()

subroutine r23forc3 ( type(python_), intent(inout) python,
type (elbuf_struct_), target elbuf_str,
integer jft,
integer jlt,
integer nel,
integer mtn,
integer, dimension(npropgi,*) igeo,
geo,
integer, dimension(npropmi,*) ipm,
integer, dimension(nixr,*) ixr,
x,
type(ttable), dimension(*) table,
double precision, dimension(3,*) xdp,
f,
integer, dimension(*) npf,
tf,
skew,
integer flg_kj2,
vr,
ar,
v,
dt2t,
integer neltst,
integer ityptst,
stifn,
stifr,
ms,
in,
fsky,
integer, dimension(3,*) iadr,
type (sensors_), intent(in) sensors,
integer offset,
anim,
partsav,
integer, dimension(*) ipartr,
tani,
fr_wave,
bufmat,
bufgeo,
pm,
rby,
fx1,
fx2,
fy1,
fy2,
fz1,
fz2,
mx1,
mx2,
my1,
my2,
mz1,
mz2,
gresav,
integer, dimension(*) grth,
integer, dimension(*) igrth,
msrt,
dmelrt,
integer flag_slipring_update,
integer flag_retractor_update,
type(h3d_database) h3d_data,
integer, intent(in) jsms,
integer, intent(in) igre,
integer, intent(in) nft,
intent(in) preld1,
intent(in) stf_f,
integer, intent(in) stf,
integer, intent(in) sanin,
integer, intent(in) iresp,
integer, intent(in) snpc )
Parameters
[in]stfSize of TF
[in]saninSize of ANIM
[in]irespSingle precision flag
[in]snpcSize of NPF

Definition at line 38 of file r23forc3.F.

57C-----------------------------------------------
58C M o d u l e s
59C-----------------------------------------------
60 USE python_funct_mod
61 USE elbufdef_mod
62 USE table_mod
63 USE h3d_mod
64 USE sensor_mod
65C-----------------------------------------------
66C I m p l i c i t T y p e s
67C-----------------------------------------------
68#include "implicit_f.inc"
69C-----------------------------------------------
70C G l o b a l P a r a m e t e r s
71C-----------------------------------------------
72#include "mvsiz_p.inc"
73C-----------------------------------------------
74C C o m m o n B l o c k s
75C-----------------------------------------------
76#include "param_c.inc"
77#include "com04_c.inc"
78C-----------------------------------------------
79C D u m m y A r g u m e n t s
80C-----------------------------------------------
81 type(python_), intent(inout) :: PYTHON
82 INTEGER, INTENT(IN) :: STF !< Size of TF
83 INTEGER, INTENT(IN) :: SANIN !< Size of ANIM
84 INTEGER, INTENT(IN) :: IRESP !< Single precision flag
85 INTEGER, INTENT(IN) :: SNPC !< Size of NPF
86 INTEGER, INTENT(IN) :: IGRE
87 INTEGER, INTENT(IN) :: NFT
88 INTEGER, INTENT(IN) :: JSMS
89 INTEGER IXR(NIXR,*), NPF(*),IADR(3,*),IPARTR(*),
90 . IGEO(NPROPGI,*),JFT,JLT,NELTST ,ITYPTST,OFFSET,
91 . NEL,MTN,GRTH(*),IGRTH(*),FLG_KJ2,IPM(NPROPMI,*),FLAG_SLIPRING_UPDATE,
92 . FLAG_RETRACTOR_UPDATE
93 my_real dt2t ,
94 . geo(npropg,*),x(*),f(*),tf(stf),skew(lskew,*),fsky(*),
95 . vr(*), v(*), ar(*), stifn(*),stifr(*),ms(*), in(*),
96 . anim(sanin),partsav(*),tani(15,*),
97 . fr_wave(*),bufmat(*),bufgeo(*),pm(*),rby(*),
98 . fx1(mvsiz),fy1(mvsiz),fz1(mvsiz),
99 . fx2(mvsiz),fy2(mvsiz),fz2(mvsiz),
100 . mx1(mvsiz),my1(mvsiz),mz1(mvsiz),
101 . mx2(mvsiz),my2(mvsiz),mz2(mvsiz),gresav(*),
102 . msrt(*), dmelrt(*)
103 my_real, INTENT(IN) :: preld1,stf_f
104 DOUBLE PRECISION XDP(3,*)
105 TYPE(TTABLE) TABLE(*)
106C
107 TYPE (ELBUF_STRUCT_), TARGET :: ELBUF_STR
108 TYPE(H3D_DATABASE) :: H3D_DATA
109 TYPE (SENSORS_) , INTENT(IN) :: SENSORS
110C-----------------------------------------------
111C L o c a l V a r i a b l e s
112C-----------------------------------------------
113 INTEGER :: NSENSOR
114C=======================================================================
115 nsensor = sensors%NSENSOR
116!
117 IF(mtn == 108) THEN
118 ! Like type08 spring
119 CALL r23law108(python,
120 1 elbuf_str, jft, jlt, nel,
121 2 mtn, igeo, geo, ipm,
122 3 ixr, x, table, xdp,
123 4 f, npf, tf, skew,
124 5 flg_kj2, vr, ar, v,
125 6 dt2t, neltst, ityptst, stifn,
126 7 stifr, ms, in, fsky,
127 8 iadr, nsensor,sensors%SENSOR_TAB,offset, anim,
128 9 partsav, ipartr, tani,
129 a bufmat, bufgeo, pm, rby,
130 b fx1, fx2, fy1, fy2,
131 c fz1, fz2, mx1, mx2,
132 d my1, my2, mz1, mz2,
133 e gresav, grth, igrth, msrt,
134 f dmelrt, h3d_data, jsms, igre,
135 g nft, stf, sanin, iresp,
136 h snpc)
137
138 ELSEIF(mtn == 113) THEN
139 ! Like type13 spring
140 CALL r23law113(python,
141 1 elbuf_str, jft, jlt, nel,
142 2 mtn, igeo, geo, ipm,
143 3 ixr, x, table, xdp,
144 4 f, npf, tf, skew,
145 5 flg_kj2, vr, ar, v,
146 6 dt2t, neltst, ityptst, stifn,
147 7 stifr, ms, in, fsky,
148 8 iadr, nsensor,sensors%SENSOR_TAB,offset, anim,
149 9 partsav, ipartr, tani, fr_wave,
150 a bufmat, bufgeo, pm, rby,
151 b fx1, fx2, fy1, fy2,
152 c fz1, fz2, mx1, mx2,
153 d my1, my2, mz1, mz2,
154 e gresav, grth, igrth, msrt,
155 f dmelrt, h3d_data, jsms, igre,
156 g nft, preld1, stf_f, stf,
157 h sanin, iresp, snpc)
158
159 ELSEIF(mtn == 114) THEN
160 ! seatbelt_element
161 CALL r23law114(python,
162 1 elbuf_str, jft, jlt, nel,
163 2 mtn, igeo, geo, ipm,
164 3 ixr, x, table, xdp,
165 4 f, npf, tf, skew,
166 5 flg_kj2, vr, ar, v,
167 6 dt2t, neltst, ityptst, stifn,
168 7 stifr, ms, in, fsky,
169 8 iadr, sensors%SENSOR_TAB, offset, anim,
170 9 partsav, ipartr, tani, fr_wave,
171 a bufmat, bufgeo, pm, rby,
172 b fx1, fx2, fy1, fy2,
173 c fz1, fz2, mx1, mx2,
174 d my1, my2, mz1, mz2,
175 e gresav, grth, igrth, msrt,
176 f dmelrt, flag_slipring_update, flag_retractor_update,h3d_data,
177 g jsms, igre, nft, nsensor,
178 h stf, sanin, iresp, snpc )
179
180 ENDIF
181C-----------------------------------------------
182 RETURN
my_real
#define my_real
Definition cppsort.cpp:32
h3d_mod
Definition h3d_mod.F:308
table_mod
Definition table_mod.F:112
r23law108
subroutine r23law108(python, elbuf_str, jft, jlt, nel, mtn, igeo, geo, ipm, ixr, x, table, xdp, f, npf, tf, skew, flg_kj2, vr, ar, v, dt2t, neltst, ityptst, stifn, stifr, ms, in, fsky, iadr, nsensor, sensor_tab, offset, anim, partsav, ipartr, tani, bufmat, bufgeo, pm, rby, fx1, fx2, fy1, fy2, fz1, fz2, mx1, mx2, my1, my2, mz1, mz2, gresav, grth, igrth, msrt, dmelrt, h3d_data, jsms, igre, nft, stf, sanin, iresp, snpc)
Definition r23law108.F:61
r23law113
subroutine r23law113(python, elbuf_str, jft, jlt, nel, mtn, igeo, geo, ipm, ixr, x, table, xdp, f, npf, tf, skew, flg_kj2, vr, ar, v, dt2t, neltst, ityptst, stifn, stifr, ms, in, fsky, iadr, nsensor, sensor_tab, offset, anim, partsav, ipartr, tani, fr_wave, bufmat, bufgeo, pm, rby, fx1, fx2, fy1, fy2, fz1, fz2, mx1, mx2, my1, my2, mz1, mz2, gresav, grth, igrth, msrt, dmelrt, h3d_data, jsms, igre, nft, preld1, stf_f, stf, sanin, iresp, snpc)
Definition r23law113.F:64
r23law114
subroutine r23law114(python, elbuf_str, jft, jlt, nel, mtn, igeo, geo, ipm, ixr, x, table, xdp, f, npf, tf, skew, flg_kj2, vr, ar, v, dt2t, neltst, ityptst, stifn, stifr, ms, in, fsky, iadr, sensor_tab, offset, anim, partsav, ipartr, tani, fr_wave, bufmat, bufgeo, pm, rby, fx1, fx2, fy1, fy2, fz1, fz2, mx1, mx2, my1, my2, mz1, mz2, gresav, grth, igrth, msrt, dmelrt, flag_slipring_update, flag_retractor_update, h3d_data, jsms, igre, nft, nsensor, stf, sanin, iresp, snpc)
Definition r23law114.F:63