%N hsorta %F $MIR/src/subs/hsort.for
%D Perform an index heapsort on a character string array.
%P jm
%: sorting
%B
      subroutine hsorta(n, array, indx)

      implicit none
      integer n, indx(n)
      character*(*) array(n)

  HSORTA performs an index based heapsort on a character string array.
  The number of elements in the array and the array are left unchanged.
  The size of the indx array should be at least as large as the size of
  the string array.

     Input:
       n        The number of elements in the character array.
       array    The character array on which to base the sort.

     Output:
       indx     Sorted integer index array such that array(indx(1)) is
                the smallest and array(indx(n)) is the largest string.
