Subroutine:   SORTRA

Purpose:      SORTRA sorts a Real array in Ascending order.

File:         sort.c

Author:       K.G. Begeman

Use:          CALL SORTRA( DATA,     In/Output     REAL ARRAY
                           NDAT )     Input        INTEGER

              DATA         Data array to sort.
              NDAT         Number of data points in DATA.

Updates:      Nov  4, 1989: KGB Document created.