isrchfgt.F

Go to the documentation of this file.

      FUNCTION isrchfgt(N,ARRAY,INC,TARGET)
      USE parkind1, ONLY : jpim, jprb
      IMPLICIT NONE
      INTEGER(KIND=JPIM) :: ISRCHFGT
      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
        isrchfgt=0
        RETURN
      ELSE
        DO 1 i=1,n
          IF ( array(1+inc*(i-1)).GT.TARGET ) THEN
            isrchfgt=i
            RETURN
          ENDIF
 1      CONTINUE
        isrchfgt=n+1
      ENDIF
      ENDFUNCTION isrchfgt