OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
deges4v.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!|| deges4v ../engine/source/elements/solid/solide/deges4v.F
25!||--- called by ------------------------------------------------------
26!|| sdlen_dege ../engine/source/elements/solid/solide/sdlen_dege.F
27!|| sdlen_sms ../engine/source/elements/solid/solidez/sdlen_sms.F
28!|| sldege ../engine/source/elements/solid/solide/sldege.F
29!||--- calls -----------------------------------------------------
30!|| nodedege ../engine/source/elements/solid/solide/nodedege.F
31!|| tetra4v ../engine/source/elements/solid/solide/tetra4v.F
32!||====================================================================
33 SUBROUTINE deges4v(DET,
34 . X1, X2, X3, X4, X5, X6, X7, X8,
35 . Y1, Y2, Y3, Y4, Y5, Y6, Y7, Y8,
36 . Z1, Z2, Z3, Z4, Z5, Z6, Z7, Z8)
37C-----------------------------------------------
38C I m p l i c i t T y p e s
39C-----------------------------------------------
40#include "implicit_f.inc"
41C-----------------------------------------------
42C D u m m y A r g u m e n t s
43C-----------------------------------------------
44 my_real
45 . det,x1, x2, x3, x4,x5, x6, x7, x8,
46 . y1, y2, y3, y4, y5, y6, y7, y8,
47 . z1, z2, z3, z4, z5, z6, z7, z8
48C-----------------------------------------------
49C L o c a l V a r i a b l e s
50C-----------------------------------------------
51 INTEGER I,NNOD
52C 12
53 my_real
54 . xyz(3,4),xij,yij,zij
55C-----------------------------------------------
56C
57 nnod=1
58 xyz(1,nnod)=x1
59 xyz(2,nnod)=y1
60 xyz(3,nnod)=z1
61 CALL nodedege(x2,y2,z2,xyz,nnod)
62 CALL nodedege(x3,y3,z3,xyz,nnod)
63 CALL nodedege(x4,y4,z4,xyz,nnod)
64 IF (nnod==4) GOTO 100
65 CALL nodedege(x5,y5,z5,xyz,nnod)
66 IF (nnod==4) GOTO 100
67 CALL nodedege(x6,y6,z6,xyz,nnod)
68 IF (nnod==4) GOTO 100
69 CALL nodedege(x7,y7,z7,xyz,nnod)
70 IF (nnod==4) GOTO 100
71 CALL nodedege(x8,y8,z8,xyz,nnod)
72 100 CONTINUE
73 CALL tetra4v(det,
74 . xyz(1,1), xyz(1,2), xyz(1,3), xyz(1,4),
75 . xyz(2,1), xyz(2,2), xyz(2,3), xyz(2,4),
76 . xyz(3,1), xyz(3,2), xyz(3,3), xyz(3,4))
77C
78 RETURN
79 END
my_real
#define my_real
Definition cppsort.cpp:32
deges4v
subroutine deges4v(det, x1, x2, x3, x4, x5, x6, x7, x8, y1, y2, y3, y4, y5, y6, y7, y8, z1, z2, z3, z4, z5, z6, z7, z8)
Definition deges4v.F:37
nodedege
subroutine nodedege(x, y, z, xyz, nn)
Definition nodedege.F:29
tetra4v
subroutine tetra4v(det, x1, x2, x3, x4, y1, y2, y3, y4, z1, z2, z3, z4)
Definition tetra4v.F:32