degenes8.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	degenes8 (ixs, idege, nel)

Function/Subroutine Documentation

degenes8()

subroutine degenes8	(	integer, dimension(nixs,*)	ixs,
		integer, dimension(*)	idege,
		integer, intent(in)	nel )

Definition at line 35 of file degenes8.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER, INTENT(IN) :: NEL
      INTEGER IXS(NIXS,*), IDEGE(*)
C-----------------------------------------------
C   External function
C-----------------------------------------------
      LOGICAL INTAB
      EXTERNAL intab
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I ,NC(8),NJ,J
C-----------------------------------------------
      DO i=1,nel
       idege(i)=0
       DO j=1,8
        nc(j)=ixs(j+1,i)
       END DO
       DO j=1,8
        nj=nc(j)
        nc(j)=0
        IF (intab(8,nc,nj)) idege(i)=idege(i)+1
        nc(j)=nj
       END DO
C------number of degene nodes       
       idege(i)=idege(i)/2 
      ENDDO
C      
      RETURN