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

Go to the source code of this file.

Functions/Subroutines

subroutine s8get_x3 (nc1, nc2, nc3, nc4, nc5, nc6, nc7, nc8, x1, x2, x3, x4, x5, x6, x7, x8, y1, y2, y3, y4, y5, y6, y7, y8, z1, z2, z3, z4, z5, z6, z7, z8, x, xdp, numnod, nel)

Function/Subroutine Documentation

◆ s8get_x3()

subroutine s8get_x3 ( integer, dimension(mvsiz), intent(in) nc1,
integer, dimension(mvsiz), intent(in) nc2,
integer, dimension(mvsiz), intent(in) nc3,
integer, dimension(mvsiz), intent(in) nc4,
integer, dimension(mvsiz), intent(in) nc5,
integer, dimension(mvsiz), intent(in) nc6,
integer, dimension(mvsiz), intent(in) nc7,
integer, dimension(mvsiz), intent(in) nc8,
intent(inout) x1,
intent(inout) x2,
intent(inout) x3,
intent(inout) x4,
intent(inout) x5,
intent(inout) x6,
intent(inout) x7,
intent(inout) x8,
intent(inout) y1,
intent(inout) y2,
intent(inout) y3,
intent(inout) y4,
intent(inout) y5,
intent(inout) y6,
intent(inout) y7,
intent(inout) y8,
intent(inout) z1,
intent(inout) z2,
intent(inout) z3,
intent(inout) z4,
intent(inout) z5,
intent(inout) z6,
intent(inout) z7,
intent(inout) z8,
intent(in) x,
double precision, dimension(3,numnod), intent(in) xdp,
integer, intent(in) numnod,
integer, intent(in) nel )

Definition at line 32 of file s8get_x3.F.

42C-----------------------------------------------
43C I m p l i c i t T y p e s
44C-----------------------------------------------
45#include "implicit_f.inc"
46C-----------------------------------------------
47C G l o b a l P a r a m e t e r s
48C-----------------------------------------------
49#include "mvsiz_p.inc"
50C-----------------------------------------------
51C C o m m o n B l o c k s
52C-----------------------------------------------
53C-----------------------------------------------
54C D u m m y A r g u m e n t s
55C-----------------------------------------------
56 INTEGER, INTENT(IN) :: NUMNOD,NEL
57 INTEGER, DIMENSION(MVSIZ), INTENT(IN) ::
58 . NC1, NC2, NC3, NC4,
59 . NC5, NC6, NC7, NC8
60!
61 my_real, DIMENSION(3,NUMNOD), INTENT(IN) :: x
62 DOUBLE PRECISION, DIMENSION(3,NUMNOD), INTENT(IN) ::XDP
63 my_real, DIMENSION(MVSIZ), INTENT(INOUT) ::
64 . x1, x2, x3, x4,
65 . x5, x6, x7, x8,
66 . y1, y2, y3, y4,
67 . y5, y6, y7, y8,
68 . z1, z2, z3, z4,
69 . z5, z6, z7, z8
70C-----------------------------------------------
71C L o c a l V a r i a b l e s
72C-----------------------------------------------
73 INTEGER I, J
74C REAL
75C-----------------------------------------------
76#ifdef MYREAL8
77 DO i=1,nel
78 x1(i)=x(1,nc1(i))
79 y1(i)=x(2,nc1(i))
80 z1(i)=x(3,nc1(i))
81 x2(i)=x(1,nc2(i))
82 y2(i)=x(2,nc2(i))
83 z2(i)=x(3,nc2(i))
84 x3(i)=x(1,nc3(i))
85 y3(i)=x(2,nc3(i))
86 z3(i)=x(3,nc3(i))
87 x4(i)=x(1,nc4(i))
88 y4(i)=x(2,nc4(i))
89 z4(i)=x(3,nc4(i))
90 x5(i)=x(1,nc5(i))
91 y5(i)=x(2,nc5(i))
92 z5(i)=x(3,nc5(i))
93 x6(i)=x(1,nc6(i))
94 y6(i)=x(2,nc6(i))
95 z6(i)=x(3,nc6(i))
96 x7(i)=x(1,nc7(i))
97 y7(i)=x(2,nc7(i))
98 z7(i)=x(3,nc7(i))
99 x8(i)=x(1,nc8(i))
100 y8(i)=x(2,nc8(i))
101 z8(i)=x(3,nc8(i))
102 ENDDO
103#else
104 DO i=1,nel
105 x1(i)=xdp(1,nc1(i))
106 y1(i)=xdp(2,nc1(i))
107 z1(i)=xdp(3,nc1(i))
108 x2(i)=xdp(1,nc2(i))
109 y2(i)=xdp(2,nc2(i))
110 z2(i)=xdp(3,nc2(i))
111 x3(i)=xdp(1,nc3(i))
112 y3(i)=xdp(2,nc3(i))
113 z3(i)=xdp(3,nc3(i))
114 x4(i)=xdp(1,nc4(i))
115 y4(i)=xdp(2,nc4(i))
116 z4(i)=xdp(3,nc4(i))
117 x5(i)=xdp(1,nc5(i))
118 y5(i)=xdp(2,nc5(i))
119 z5(i)=xdp(3,nc5(i))
120 x6(i)=xdp(1,nc6(i))
121 y6(i)=xdp(2,nc6(i))
122 z6(i)=xdp(3,nc6(i))
123 x7(i)=xdp(1,nc7(i))
124 y7(i)=xdp(2,nc7(i))
125 z7(i)=xdp(3,nc7(i))
126 x8(i)=xdp(1,nc8(i))
127 y8(i)=xdp(2,nc8(i))
128 z8(i)=xdp(3,nc8(i))
129 ENDDO
130#endif
131C-----------
132 RETURN
my_real
#define my_real
Definition cppsort.cpp:32