nodedege.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	nodedege (x, y, z, xyz, nn)

Function/Subroutine Documentation

nodedege()

subroutine nodedege	(		x,
			y,
			z,
			xyz,
		integer	nn )

Definition at line 28 of file nodedege.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-----------------------------------------------
      INTEGER :: NN
      my_real :: xyz(3,*),x,y,z
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER :: J
      my_real :: xij,yij,zij
C-----------------------------------------------
       DO j=1,nn
         xij=xyz(1,j)-x
         yij=xyz(2,j)-y
         zij=xyz(3,j)-z
         IF (xij == zero .AND. yij == zero .AND. zij == zero) RETURN
       END DO !J=1,NN
       nn = nn + 1
       xyz(1,nn)=x
       xyz(2,nn)=y
       xyz(3,nn)=z
C-----------------------------------------------
      RETURN