Contents
blas_isort - sorts an integer vector X in increasing or
decreasing order using quick sort algorithm
SUBROUTINE BLAS_ISORT (SORT, N, X, INCX)
INTEGER SORT
INTEGER N
INTEGER X(*)
INTEGER INCX
SUBROUTINE BLAS_ISORT_64 (SORT, N, X, INCX)
INTEGER*8 SORT
INTEGER*8 N
INTEGER*8 X(*)
INTEGER*8 INCX
F95 INTERFACE
SUBROUTINE SORT (X [, SORT])
USE SUNPERF
SUBROUTINE SORT_64 (X [, SORT])
USE SUNPERF
The functionality of SORT is covered by SORTV
SORT (input) INTEGER, indicating sort directions
SORT = 0, descending
SORT = 1, ascending
SORT = other value, error
SORT is default to 1 for F95 INTERFACE
N (input) INTEGER, the number of elements to be sorted in X
If N <= 1, the subroutine returns without trying
to sort X.
X (input/output) INTEGER((N-1)*|INCX|+1), the array to be
sorted
Minimum size (N-1)*|INCX|+1 is required
INCX (input) INTEGER, increment for X
INCX must not be zero. INCX could be negative. If
INCX < 0, change the sorting direction defined by
SORT. That is
If SORT = 0, let SORT = 1, INCX = |INCX|;
If SORT = 1, let SORT = 0, INCX = |INCX|.
blas_isortv(3P), blas_ipermute(3P)