deparr.f

Go to the documentation of this file.

!                       *****************
                        SUBROUTINE deparr
!                       *****************
!
     &(ikle,ndepar,lgvec)
!
!***********************************************************************
! STBTEL    V5P2                                   28/08/89
!***********************************************************************
!
!brief    DETECTION OF BACKWARD DEPENDENCIES
!
!history  J-M HERVOUET (LNH)
!+        28/08/89
!+        V5P2
!+
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| IKLE      |<--| GLOBAL NUMBERING OF ALL NODES BY ELEMENT
!| NDEPAR    |<--| NUMBER OF BACKWARD DEPENDENCIES
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE declarations_special
      USE declarations_stbtel, ONLY: nelem, nelmax
      IMPLICIT NONE
!
      INTEGER, INTENT(IN) :: LGVEC
      INTEGER, INTENT(INOUT) :: NDEPAR
      INTEGER, INTENT(IN) :: IKLE(nelmax,4)
!
      INTEGER IELEM , K
      INTEGER I1 , I2 , I3 , J1 , J2 , J3 , IEL1
!
!=======================================================================
!
      ndepar = 0
      DO ielem = 1,nelem
        i1 = ikle(ielem,1)
        i2 = ikle(ielem,2)
        i3 = ikle(ielem,3)
        DO k = 2,lgvec
          iel1 = mod(nelem+ielem-k,nelem) + 1
          j1 = ikle(iel1,1)
          j2 = ikle(iel1,2)
          j3 = ikle(iel1,3)
          IF (i1.EQ.j1.OR.i1.EQ.j2.OR.i1.EQ.j3.OR.
     &        i2.EQ.j1.OR.i2.EQ.j2.OR.i2.EQ.j3.OR.
     &        i3.EQ.j1.OR.i3.EQ.j2.OR.i3.EQ.j3) ndepar = ndepar + 1
        ENDDO
      ENDDO
!
!=======================================================================
!
      RETURN
      END