%N isrchfle %F $MIR/src/subs/math.for
%D Search real vector for target.
%P pjt
%: scilib
%B
        integer function isrchfle(n,array,inc,target)

        implicit none
        integer n,inc
        real array(*),target

  Isrchfle returns the first location in a real array less than or equal to
  a target value.

  Inputs:
    n          Number of elements to be searched.
    array      The real array to be searched.
    inc        Skip distance between elements of the searched array.
    target     Real value searched for in the array. If all elements
               in the array are greater than "target", then
               the routine returns n+1.
  Output:
    isrchfle   Index of the element less than or equal to "target".

  Reference:
  See page 4-59 to 4-64 of the Cray "Library Reference Manual".
