Search Site | Contact Details | FAQ

ADAS Subroutine isort

       SUBROUTINE ISORT(ND,IAIN,IAOUT,IVSORT,N,LPAPER)
C-----------------------------------------------------------------------
C  PURPOSE: SORT AN INTEGER ARRAY SO THAT IT IS IN INCREASING ORDER
C
C  INPUT
C      ND       = MAXIMUM DIMENSION OF ARRAY
C      IAIN(I)  = INPUT ARRAY
C      N        = NUMBER OF VALUES
C  OUTPUT
C      IAOUT(I) = SORTED ARRAY VALUES
C      IVSORT(I)= INVERSE SORT VALUES
C
C
C AUTHOR: UNKOWN
C
C UNIX-IDL PORT:
C
C VERSION: 1.1                          DATE: 31-7-96
C MODIFIED: WILLIAM OSBORN (TESSELLA SUPPORT SERVICES PLC)
C               - FIRST VERSION
C
C VERSION: 1.2                          DATE: 20-7-07
C MODIFIED: Allan Whiteford
C               - Small modification to comments to allow for
C                 automatic documentation preparation.
C               - Removed junk from columnds > 72.
C               - Removed old SCCS header.
C
C-----------------------------------------------------------------------
      INTEGER             IAIN(ND),    IAOUT(ND),   IVSORT(ND),  N
      INTEGER             ND
      LOGICAL             LPAPER
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk