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

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

  Isrchine returns the first location in an integer array that is not equal
  to the integer target.

  Inputs:
    n          Number of elements to be searched.
    array      The integer array to be searched.
    inc        Skip distance between elements of the searched array.
    target     Integer value searched for in the array. If all elements
               in the array are equal to "target", then the routine
               returns n+1.
  Output:
    isrchine   Index of the element not equal to "target".

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