ADAS Subroutine lsort

       SUBROUTINE LSORT(XA,YA,N)
       IMPLICIT REAL*8(A-H,O-Z)
C-----------------------------------------------------------------------
C                                                                       
C  ************  FORTRAN 77 PROGRAM:  LSORT *************************
C                                                                       
C                                                                       
C  PURPOSE: SORT AN ARRAY SO THAT FIRST INPUT IS IN INCREASING ORDER
C
C  LARGER ARRAY DIMENSION VERSION OF NSORT
C
C  N.B.  INPUT VALUES ARE ALTERED BY THIS ROUTINE !!!!
C
C  INPUT
C      XA(I)=X-VALUES
C      YA(I)=Y-VALUES
C      N=NUMBER OF VALUES
C  OUTPUT
C      XA(I)=SORTED X-VALUES
C      YA(I)=SORTED Y-VALUES
C
C
C AUTHOR:
C
C  ******** H.P. SUMMERS, JET               7 FEB 1989   ***********
C
C UNIX-IDL CONVERSION:
C
C VERSION: 1.1                          DATE: 07-10-96
C MODIFIED: WILLIAM OSBORN
C               - FIRST CONVERTED.
C
C VERSION: 1.2                          DATE: 15-05-07
C MODIFIED: Allan Whiteford
C               - Updated comments as part of subroutine
C                 documentation production.
C
C-----------------------------------------------------------------------
      INTEGER             N
      REAL*8              XA(40),      YA(40)