OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
rgjoint.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!|| rgjoint ../engine/source/elements/joint/rgjoint.F
25!||--- called by ------------------------------------------------------
26!|| rforc3 ../engine/source/elements/spring/rforc3.F
27!||--- calls -----------------------------------------------------
28!|| ranim33 ../engine/source/elements/joint/ranim33.F
29!|| rbilan33 ../engine/source/elements/joint/rbilan33.F
30!|| rcum33 ../engine/source/elements/joint/rcum33.F
31!|| rcum33p ../engine/source/elements/joint/rcum33p.F
32!|| rdtime33 ../engine/source/elements/joint/rdtime33.F
33!|| rskew33 ../engine/source/elements/joint/rskew33.F
34!|| ruser33 ../engine/source/elements/joint/ruser33.F
35!||--- uses -----------------------------------------------------
36!|| h3d_mod ../engine/share/modules/h3d_mod.F
37!|| sensor_mod ../common_source/modules/sensor_mod.F90
38!||====================================================================
39 SUBROUTINE rgjoint(
40 1 JFT, JLT, IPARTR, NEL,
41 2 NUVAR, IOUT, IPROP, IADR,
42 3 FSKY, FSKYV, OFF, FORX,
43 4 FORY, FORZ, E, DX,
44 5 DY, DZ, RX, RY,
45 6 RZ, XMOM, YMOM, ZMOM,
46 7 UVAR, STIFN, STIFR, IXR,
47 8 TANI, RBY, X, VX,
48 9 VR, STI, STIR, MS,
49 A IN, PARTSAV, DT1, DT2T,
50 B F, AR, FX1, FX2,
51 C FY1, FY2, FZ1, FZ2,
52 D MX1, MX2, MY1, MY2,
53 E MZ1, MZ2, GRESAV, GRTH,
54 F IGRTH, MSRT, DMELRT, NELTST,
55 G ITYPTST, IGTYP, SENSOR_TAB,NC1,
56 H NC2, XDP, X0_ERR, H3D_DATA,
57 I JSMS, IGRE, NFT , NSENSOR )
58C-----------------------------------------------
59C M o d u l e s
60C-----------------------------------------------
61 USE h3d_mod
62 USE sensor_mod
63C-------------------------------------------------------------------------
64C I m p l i c i t T y p e s
65C-----------------------------------------------
66#include "implicit_f.inc"
67C-----------------------------------------------
68C G l o b a l P a r a m e t e r s
69C-----------------------------------------------
70#include "com04_c.inc"
71#include "mvsiz_p.inc"
72#include "parit_c.inc"
73C----------------------------------------------------------
74C D u m m y A r g u m e n t s a n d F u n c t i o n
75C----------------------------------------------------------
76 INTEGER, INTENT(IN) :: NFT,NSENSOR
77 INTEGER, INTENT(IN) :: IGRE
78 INTEGER, INTENT(IN) :: JSMS
79 INTEGER JFT,JLT,IOUT,NEL,NUVAR,IPROP,
80 . ipartr(*),ixr(nixr,*),iadr(3,*),grth(*),igrth(*),
81 . neltst,ityptst,igtyp,nc1(*),nc2(*)
82 my_real
83 . dt1, dt2t, uvar(nuvar,*),stifn(*),stifr(*), off(*), e(*),
84 . x(*), vx(*), vr(*),dx(*),dy(*),dz(*), rx(*),ry(*),rz(*),
85 . f(*) , forx(*), fory(*), forz(*),
86 . ar(*), xmom(*), ymom(*), zmom(*),
87 . fx1(mvsiz),fy1(mvsiz),fz1(mvsiz),
88 . fx2(mvsiz),fy2(mvsiz),fz2(mvsiz),
89 . mx1(mvsiz),my1(mvsiz),mz1(mvsiz),
90 . mx2(mvsiz),my2(mvsiz),mz2(mvsiz),rby(*),
91 . partsav(*),tani(15,*),ms(*),in(*),fsky(*),fskyv(*),gresav(*),
92 . msrt(*), dmelrt(*),x0_err(3,*)
93 DOUBLE PRECISION XDP(3,*)
94 TYPE(h3d_database) :: H3D_DATA
95 TYPE (SENSOR_STR_) ,DIMENSION(NSENSOR) , INTENT(IN) :: SENSOR_TAB
96C-----------------------------------------------
97C L o c a l V a r i a b l e s
98C-----------------------------------------------
99 INTEGER ISENS
100 my_real
101 . umas(mvsiz),uiner(mvsiz),
102 . rot1(3,mvsiz),rot2(3,mvsiz),sti(3,mvsiz),stir(3,mvsiz),
103 . xkm(mvsiz),xkr(mvsiz),xcm(mvsiz),xcr(mvsiz)
104 DOUBLE PRECISION XL(MVSIZ,3)
105C=======================================================================
106C
107 CALL RSKEW33(JFT ,JLT ,IXR ,IOUT ,IPROP,
108 . NUVAR ,UVAR ,RBY ,X ,XL ,
109 . ROT1 ,ROT2 ,DX ,DY ,DZ ,
110 . RX ,RY ,RZ ,VR ,IGTYP,
111 . nsensor,sensor_tab,isens ,nc1 ,nc2 ,
112 . xdp)
113C
114 CALL ruser33(nel ,iout ,iprop ,nuvar ,uvar ,
115 . forx ,fory ,forz ,xmom ,ymom ,
116 . zmom ,xkm ,xkr ,xcm ,xcr ,
117 . xl ,umas ,uiner ,off ,e ,
118 . rot1 ,rot2 ,dx ,dy ,dz ,
119 . rx ,ry ,rz ,igtyp ,isens ,
120 . x0_err)
121C
122 CALL rdtime33(
123 1 jft, jlt, dt2t, neltst,
124 2 ityptst, ixr, e, sti,
125 3 stir, off, xkm, xkr,
126 4 xcm, xcr, umas, uiner,
127 5 forx, fory, forz, xmom,
128 6 ymom, zmom, rot1, rot2,
129 7 msrt, dmelrt, nuvar, uvar,
130 8 igtyp, jsms)
131C
132 CALL rbilan33(
133 1 jft, jlt, e, partsav,
134 2 umas, vx, ipartr, gresav,
135 3 grth, igrth, nc1, nc2,
136 4 igre)
137 CALL ranim33 (jft,jlt,forx,fory,forz,xmom,ymom,zmom,xl,tani,h3d_data)
138C
139 IF(iparit==0)THEN
140 CALL rcum33(jft ,jlt ,xl ,nc1 ,nc2 ,
141 . f ,forx ,fory ,forz ,ar ,
142 . xmom ,ymom ,zmom ,sti ,stir ,
143 . stifn ,stifr ,fx1 ,fx2 ,fy1 ,
144 . fy2 ,fz1 ,fz2 ,mx1 ,mx2 ,
145 . my1 ,my2 ,mz1 ,mz2 ,nuvar ,
146 . uvar)
147 ELSE
148 CALL rcum33p(
149 1 jft, jlt, xl, fsky,
150 2 fskyv, forx, fory, forz,
151 3 xmom, ymom, zmom, sti,
152 4 stir, fx1, fx2, fy1,
153 5 fy2, fz1, fz2, mx1,
154 6 mx2, my1, my2, mz1,
155 7 mz2, iadr, nuvar, uvar,
156 8 nft)
157 ENDIF
158C-------------------------------
159 RETURN
160 END
my_real
#define my_real
Definition cppsort.cpp:32
h3d_mod
Definition h3d_mod.F:308
ranim33
subroutine ranim33(jft, jlt, forx, fory, forz, xmom, ymom, zmom, xl, tani, h3d_data)
Definition ranim33.F:31
rbilan33
subroutine rbilan33(jft, jlt, eint, partsav, umas, v, ipartr, gresav, grth, igrth, nc1, nc2, igre)
Definition rbilan33.F:35
rcum33
subroutine rcum33(jft, jlt, xl, nc1, nc2, f, forx, fory, forz, xm, xmom, ymom, zmom, sti, stir, stifn, stifr, fx1, fx2, fy1, fy2, fz1, fz2, mx1, mx2, my1, my2, mz1, mz2, nuvar, uvar)
Definition rcum33.F:35
rcum33p
subroutine rcum33p(jft, jlt, xl, fsky, fskyv, forx, fory, forz, xmom, ymom, zmom, sti, stir, fx1, fx2, fy1, fy2, fz1, fz2, mx1, mx2, my1, my2, mz1, mz2, iadr, nuvar, uvar, nft)
Definition rcum33p.F:37
rdtime33
subroutine rdtime33(jft, jlt, dt2t, neltst, ityptst, ixr, eint, sti, stir, off, xkm, xkr, xcm, xcr, umas, uiner, fx, fy, fz, xmom, ymom, zmom, rot1, rot2, msrt, dmelrt, nuvar, uvar, jntyp, jsms)
Definition rdtime33.F:37
rgjoint
subroutine rgjoint(jft, jlt, ipartr, nel, nuvar, iout, iprop, iadr, fsky, fskyv, off, forx, fory, forz, e, dx, dy, dz, rx, ry, rz, xmom, ymom, zmom, uvar, stifn, stifr, ixr, tani, rby, x, vx, vr, sti, stir, ms, in, partsav, dt1, dt2t, f, ar, fx1, fx2, fy1, fy2, fz1, fz2, mx1, mx2, my1, my2, mz1, mz2, gresav, grth, igrth, msrt, dmelrt, neltst, ityptst, igtyp, sensor_tab, nc1, nc2, xdp, x0_err, h3d_data, jsms, igre, nft, nsensor)
Definition rgjoint.F:58
ruser33
subroutine ruser33(nel, iout, iprop, nuvar, uvar, fx, fy, fz, xmom, ymom, zmom, xkm, xkr, xcm, xcr, xl, mass, iner, off, eint, rot1, rot2, dx, dy, dz, rx, ry, rz, igtyp, isens, x0_err)
Definition ruser33.F:46
h3d_mod::h3d_database
Definition h3d_mod.F:435