isrchfle.F

Go to the documentation of this file.

      FUNCTION isrchfle(N,ARRAY,INC,TARGET)
      USE parkind1, ONLY : jpim, jprb
      IMPLICIT NONE
      INTEGER(KIND=JPIM) :: ISRCHFLE
      INTEGER(KIND=JPIM) :: N
      INTEGER(KIND=JPIM) :: INC
      REAL(KIND=JPRB) :: TARGET
      REAL(KIND=JPRB) :: ARRAY(1+inc*(n-1))
      INTEGER(KIND=JPIM) :: I
!
      IF (n.LE.0) THEN
        isrchfle=0
        RETURN
      ELSE
        DO 1 i=1,n
          IF ( array(1+inc*(i-1)).LE.TARGET ) THEN
            isrchfle=i
            RETURN
          ENDIF
 1      CONTINUE
        isrchfle=n+1
      ENDIF
      ENDFUNCTION isrchfle