OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
r2coor3.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!|| r2coor3 ../engine/source/elements/spring/r2coor3.F
25!||--- called by ------------------------------------------------------
26!|| rforc3 ../engine/source/elements/spring/rforc3.F
27!||--- uses -----------------------------------------------------
28!|| element_mod ../common_source/modules/elements/element_mod.F90
29!||====================================================================
30 SUBROUTINE r2coor3(
31 1 X, VR, IXR, XDP,
32 2 X1DP, X2DP, NGL, X1,
33 3 Y1, Z1, X2, Y2,
34 4 Z2, MGM, RX1, RY1,
35 5 RZ1, RX2, RY2, RZ2,
36 6 NC1, NC2, NEL)
37 use element_mod , only : nixr
38C-----------------------------------------------
39C I m p l i c i t T y p e s
40C-----------------------------------------------
41#include "implicit_f.inc"
42C-----------------------------------------------
43C G l o b a l P a r a m e t e r s
44C-----------------------------------------------
45#include "mvsiz_p.inc"
46C-----------------------------------------------
47C C o m m o n B l o c k s
48C-----------------------------------------------
49#include "scr05_c.inc"
50C-----------------------------------------------
51C D u m m y A r g u m e n t s
52C-----------------------------------------------
53 INTEGER, INTENT(IN) :: NEL
54 INTEGER IXR(NIXR,*),NGL(*),MGM(*),NC1(*),NC2(*)
55C REAL
56 my_real
57 . X(3,*), VR(3,*),X1(*),X2(*),Y1(*),Y2(*),
58 . Z1(*),Z2(*),RX1(MVSIZ),RX2(MVSIZ),
59 . ry1(mvsiz),ry2(mvsiz),rz1(mvsiz),rz2(mvsiz)
60 DOUBLE PRECISION XDP(3,*),X1DP(3,*),X2DP(3,*)
61C-----------------------------------------------
62C L o c a l V a r i a b l e s
63C-----------------------------------------------
64 INTEGER I
65C-----------------------------------------------
66 DO i=1,nel
67 ngl(i)=ixr(nixr,i)
68 nc1(i)=ixr(2,i)
69 nc2(i)=ixr(3,i)
70 mgm(i)=ixr(1,i)
71 ENDDO
72C----------------------------
73C COORDONNEES+ROTATIONS
74C----------------------------
75 IF (iresp == 1) THEN
76 DO i=1,nel
77 x1dp(1,i)=xdp(1,nc1(i))
78 x1dp(2,i)=xdp(2,nc1(i))
79 x1dp(3,i)=xdp(3,nc1(i))
80 x2dp(1,i)=xdp(1,nc2(i))
81 x2dp(2,i)=xdp(2,nc2(i))
82 x2dp(3,i)=xdp(3,nc2(i))
83 ENDDO
84 ELSE
85 DO i=1,nel
86 x1dp(1,i)=x(1,nc1(i))
87 x1dp(2,i)=x(2,nc1(i))
88 x1dp(3,i)=x(3,nc1(i))
89 x2dp(1,i)=x(1,nc2(i))
90 x2dp(2,i)=x(2,nc2(i))
91 x2dp(3,i)=x(3,nc2(i))
92 ENDDO
93 ENDIF
94C
95 DO i=1,nel
96 x1(i)=x(1,nc1(i))
97 y1(i)=x(2,nc1(i))
98 z1(i)=x(3,nc1(i))
99 x2(i)=x(1,nc2(i))
100 y2(i)=x(2,nc2(i))
101 z2(i)=x(3,nc2(i))
102C
103 rx1(i)=vr(1,nc1(i))
104 ry1(i)=vr(2,nc1(i))
105 rz1(i)=vr(3,nc1(i))
106 rx2(i)=vr(1,nc2(i))
107 ry2(i)=vr(2,nc2(i))
108 rz2(i)=vr(3,nc2(i))
109 ENDDO
110C---
111 RETURN
112 END
r2coor3
subroutine r2coor3(x, vr, ixr, xdp, x1dp, x2dp, ngl, x1, y1, z1, x2, y2, z2, mgm, rx1, ry1, rz1, rx2, ry2, rz2, nc1, nc2, nel)
Definition r2coor3.F:37