isrchflt.F

Go to the documentation of this file.

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