Purpose
The qsort_down subroutine performs a parallel quicksort on a one-dimensional array ARRAY whose length LEN is the number of elements in the array with each element having a size of ISIZE. The result is stored in array ARRAY in descending order. As opposed to qsort_, the qsort_down subroutine does not require the COMPAR function.
Class
Subroutine
Argument Type and Attributes
Result Type and Attributes
Result Value
Examples
SUBROUTINE FOO() INTEGER(4) ARRAY(8), LEN, ISIZE DATA ARRAY/0, 3, 1, 2, 9, 5, 7, 4/ LEN = 8 ISIZE = 4 CALL qsort_down(ARRAY, LEN, ISIZE) PRINT *, ARRAY ! Result value is [9, 7, 5, 4, 3, 2, 1, 0] RETURN END