integer function luf(target,array,n)
c     ------------------------------------
c     find index of the first element of array that is greater than target
c     
      dimension array(*)
c-----------------------------------------------------------------------
      luf = isrchfgt(n,array,target)
      luf = min(luf,n)
c     
      return
      end
c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*