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.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      my_real
     .   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
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER  I,NNOD
C                                                                     12
      my_real
     .   xyz(3,4),xij,yij,zij
C-----------------------------------------------
C
             nnod=1
             xyz(1,nnod)=x1
             xyz(2,nnod)=y1
             xyz(3,nnod)=z1
       CALL nodedege(x2,y2,z2,xyz,nnod)
       CALL nodedege(x3,y3,z3,xyz,nnod)
       CALL nodedege(x4,y4,z4,xyz,nnod)
       IF (nnod==4) GOTO 100     
       CALL nodedege(x5,y5,z5,xyz,nnod)     
       IF (nnod==4) GOTO 100     
       CALL nodedege(x6,y6,z6,xyz,nnod)     
       IF (nnod==4) GOTO 100     
       CALL nodedege(x7,y7,z7,xyz,nnod)     
       IF (nnod==4) GOTO 100     
       CALL nodedege(x8,y8,z8,xyz,nnod)     
 100   CONTINUE
       CALL tetra4v(det,
     .   xyz(1,1), xyz(1,2), xyz(1,3), xyz(1,4), 
     .   xyz(2,1), xyz(2,2), xyz(2,3), xyz(2,4), 
     .   xyz(3,1), xyz(3,2), xyz(3,3), xyz(3,4))
C      
      RETURN