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 39 of file r23forc3.F.

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