ADAS Subroutine ccsort

      SUBROUTINE CCSORT( XA   , IA   , N )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: CCSORT *********************
C
C  PURPOSE:  TO SORT AN ARRAY SO THAT XA IS INCREASING ORDER.
C
C  CALLING PROGRAM: ADAS312
C
C  SUBROUTINE:
C
C  I/O   : (R*8) XA()     = X-VALUES INITIAL THEN SORTED
C  I/O   : (I*4) IA()     = I-VALUES INITIAL THEN SORTED
C  INPUT : (I*4) N        = NUMBER OF VALUES
C
C          (I*4) N1       = GENERAL INTEGER VARIABLE
C          (I*4) I        = GENERAL INTEGER VARIABLE
C          (I*4) I1       = GENERAL INTEGER VARIABLE
C          (I*4) J        = GENERAL INTEGER VARIABLE
C          (I*4) ISWAP    = GENERAL INTEGER VARIABLE
C          (R*8) SWAP     = GENERAL REAL VARIABLE
C
C
C ROUTINES:
C          NONE
C
C
C
C AUTHOR:  HARVEY ANDERSON, UNIVERSITY OF STRATHCLYDE/JET
C          JA8.08
C          TEL. 0141-553-4196
C
C
C DATE:    16/05/97
C
C UNIX-IDL PORT: H.P.SUMMERS
C
C VERSION: 1.1				DATE: 10-07-97
C MODIFIED: HUGH SUMMERS, UNIVERSITY OF STRATHCLYDE
C	    - PUT UNDER S.C.C.S. CONTROL
C
C
C
C-----------------------------------------------------------------------
      INTEGER             IA(*),       N
      REAL*8              XA(*)