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

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

  Isrchfge returns the first location in a real array that is greater
  than or equal to the real target.

  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 target is not
               found, then the routine returns n+1.
  Output:
    isrchfge   Index of the first occurrence of greater or equal to "target".

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