OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
s8erefcoor3.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!|| s8erefcoor3 ../starter/source/elements/solid/solide8z/s8erefcoor3.F
25!||--- called by ------------------------------------------------------
26!|| s8zinit3 ../starter/source/elements/solid/solide8z/s8zinit3.F
27!|| sinit3 ../starter/source/elements/solid/solide/sinit3.F
28!||====================================================================
29 SUBROUTINE s8erefcoor3(SAV,NPE,NEL,
30 . XD1 ,XD2 ,XD3 ,XD4 ,XD5 ,XD6 ,XD7 ,XD8 ,
31 . YD1 ,YD2 ,YD3 ,YD4 ,YD5 ,YD6 ,YD7 ,YD8 ,
32 . ZD1 ,ZD2 ,ZD3 ,ZD4 ,ZD5 ,ZD6 ,ZD7 ,ZD8 )
33C-----------------------------------------------
34C I m p l i c i t T y p e s
35C-----------------------------------------------
36#include "implicit_f.inc"
37C-----------------------------------------------
38C G l o b a l P a r a m e t e r s
39C-----------------------------------------------
40#include "mvsiz_p.inc"
41C-----------------------------------------------
42C D u m m y A r g u m e n t s
43C-----------------------------------------------
44 INTEGER , INTENT(IN) :: NPE,NEL
45 DOUBLE PRECISION , DIMENSION(NEL,3*(NPE-1)),INTENT(IN) :: SAV
46 DOUBLE PRECISION , DIMENSION(MVSIZ), INTENT(OUT) ::
47 . xd1, xd2, xd3, xd4, xd5, xd6, xd7, xd8,
48 . yd1, yd2, yd3, yd4, yd5, yd6, yd7, yd8,
49 . zd1, zd2, zd3, zd4, zd5, zd6, zd7, zd8
50C-----------------------------------------------
51C L o c a l V a r i a b l e s
52C-----------------------------------------------
53 INTEGER I,NPE1,N,N2,N3
54 DOUBLE PRECISION
55 . X0(MVSIZ,NPE), Y0(MVSIZ,NPE), Z0(MVSIZ,NPE)
56C-----------------------------------------------
57 DO i=1,nel
58 x0(i,npe)=zero
59 y0(i,npe)=zero
60 z0(i,npe)=zero
61 ENDDO
62 npe1=npe-1
63 DO n=1,npe1
64 n2 = n + npe1
65 n3 = n2 + npe1
66 DO i=1,nel
67 x0(i,n)=sav(i,n)
68 y0(i,n)=sav(i,n2)
69 z0(i,n)=sav(i,n3)
70 ENDDO
71 ENDDO
72 xd1(1:nel) = x0(1:nel,1)
73 xd2(1:nel) = x0(1:nel,2)
74 xd3(1:nel) = x0(1:nel,3)
75 xd4(1:nel) = x0(1:nel,4)
76 xd5(1:nel) = x0(1:nel,5)
77 xd6(1:nel) = x0(1:nel,6)
78 xd7(1:nel) = x0(1:nel,7)
79 xd8(1:nel) = x0(1:nel,8)
80 yd1(1:nel) = y0(1:nel,1)
81 yd2(1:nel) = y0(1:nel,2)
82 yd3(1:nel) = y0(1:nel,3)
83 yd4(1:nel) = y0(1:nel,4)
84 yd5(1:nel) = y0(1:nel,5)
85 yd6(1:nel) = y0(1:nel,6)
86 yd7(1:nel) = y0(1:nel,7)
87 yd8(1:nel) = y0(1:nel,8)
88 zd1(1:nel) = z0(1:nel,1)
89 zd2(1:nel) = z0(1:nel,2)
90 zd3(1:nel) = z0(1:nel,3)
91 zd4(1:nel) = z0(1:nel,4)
92 zd5(1:nel) = z0(1:nel,5)
93 zd6(1:nel) = z0(1:nel,6)
94 zd7(1:nel) = z0(1:nel,7)
95 zd8(1:nel) = z0(1:nel,8)
96C
97 RETURN
98 END
99
s8erefcoor3
subroutine s8erefcoor3(sav, npe, nel, xd1, xd2, xd3, xd4, xd5, xd6, xd7, xd8, yd1, yd2, yd3, yd4, yd5, yd6, yd7, yd8, zd1, zd2, zd3, zd4, zd5, zd6, zd7, zd8)
Definition s8erefcoor3.F:33