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

Go to the source code of this file.

Functions/Subroutines

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)

Function/Subroutine Documentation

◆ 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 at line 33 of file deges4v.F.

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-----------------------------------------------
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
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
#define my_real
Definition cppsort.cpp:32
subroutine nodedege(x, y, z, xyz, nn)
Definition nodedege.F:29
subroutine tetra4v(det, x1, x2, x3, x4, y1, y2, y3, y4, z1, z2, z3, z4)
Definition tetra4v.F:32