isrcheq.F

Go to the documentation of this file.

      FUNCTION isrcheq(N,ARRAY,INC,TARGET)
!     cray function isrcheq
!     description see manual SR-2081
!
      USE parkind1, ONLY : jpim
      IMPLICIT NONE
      INTEGER(KIND=JPIM) :: ISRCHEQ
      INTEGER(KIND=JPIM) :: N
      INTEGER(KIND=JPIM) :: INC
      INTEGER(KIND=JPIM) :: ARRAY(1+inc*(n-1))
      INTEGER(KIND=JPIM) :: TARGET
      INTEGER :: I, J
!
      j=1
      isrcheq=0
      IF(n.LE.0) RETURN
      IF(inc.LT.0) j=1-(n-1)*inc
      DO 100 i=1,n
           IF(array(j).EQ.TARGET) GOTO 200
           j=j+inc
 100  CONTINUE
 200  isrcheq=i
      RETURN
      ENDFUNCTION isrcheq