SUBROUTINE ISORT (IWORK, N)

ARGUMENTS

IN

IWORK     elements to sort in increasing order.            integer
N         number of elements in IWORK                      integer

OUT

IWORK     elements sorted in increasing order.             integer

DESCRIPTION

EXAMPLE

        program try
        implicit none
        external ISORT
        integer WK(10),i,j
c       fill array with numbers
        j=0 
        do 50 i=10,1,-1
           j=j+1
           WK(i)=j
   50   continue
        print *,'Array WK unsorted'
        print *,(WK(i),i=1,10)
c       sort the array
        CALL ISORT(WK,10)
        print *,'Array WK after ISORT'
        print *,(WK(i),i=1,10)
        end

SEE ALSO