%N ismax %F $MIR/src/subs/math.for
%D Return index of maximum value of a real array.
%P pjt
%: scilib
%B
        integer function ismax(n,data,step)

        implicit none
        integer n,step
        real data(*)

  Find the index of the maximum value of a real array.

  Input:
    n          Number of elements to be searched.
    data       The real array to be searched.
    step       Skip distance between elements of the searched array.
  Output:
    ismax      Index of the maximum value in the array.

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