#include <misc.h>
#include <params.h>

      integer function isrchfgt(n, array, inc, target) 2
c
c $Id: isrchfgt.F,v 1.1 1998/04/01 07:25:54 ccm Exp $
c $Author: ccm $
c
      integer n,inc
      real array(*),target
      integer i
      if (n.le.0) then
         isrchfgt = 0
         return
      end if
      ind = 1
      do i=1,n
         if (array(ind).gt.target) then
            isrchfgt = i
            return
         else
            ind = ind + inc
         end if
      end do
      isrchfgt = n + 1
      return
      end