GR8_SORT(X,XSORT,INDEX,N)
Reorder a real*8 array using the sort indexes computed by GR8_TRI. Note that X and XSORT must be different (i.e. sorting cannot take place within the same array).
Arguments :
X R*8(*) Unsorted/Sorted array Input/Output
XSORT R*8(*) Sorted array Work space
INDEX I(*) Integer array of sorted indexes Input
(obtained by GR8_TRI)
N I Length of arrays Input