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