Sources Esope | Cast3M

kadj
C KADJ      SOURCE    CHAT      05/01/13    00:50:25     5004
      SUBROUTINE  KADJ(I,J,KBITM,NR,NADJ,IADJ,JADJ)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C Calcul des facteurs de forme en 3D
C Sp appele par KPARC
C     Determination des points adjacents au point I J
 
      DIMENSION IADJ(4),JADJ(4),KBITM(NR,NR)
      N = 0
C
      IF (I.GT.1.AND.KBITM(I-1,J).EQ.0) THEN
            N = N + 1
            IADJ(N) = I-1
            JADJ(N) = J
      ENDIF
      IF (J.GT.1.AND.KBITM(I,J-1).EQ.0) THEN
            N = N + 1
            IADJ(N) = I
            JADJ(N) = J-1
      ENDIF
      IF (I.LT.NR.AND.KBITM(I+1,J).EQ.0) THEN
            N = N + 1
            IADJ(N) = I+1
            JADJ(N) = J
      ENDIF
      IF (J.LT.NR.AND.KBITM(I,J+1).EQ.0) THEN
            N = N + 1
            IADJ(N) = I
            JADJ(N) = J+1
      ENDIF
      NADJ = N
      RETURN
      END