%N sortidxr %F $MIR/src/subs/sortidx.for
%D Index sort of a an array of real values
%P pjt
%: sorting, indexing
%B
      subroutine sortidxr (n, x ,idx)

      integer n, idx(n)
      real x(n)

       -- see documentation on sortidxd
