isrchfge.F

Go to the documentation of this file.

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