qsort_down(array, len, isize)

目的

qsort_down サブルーチンは、 1 次元の配列 ARRAY に対して並列クイック・ソートを実行します。 この ARRAY の長さ LEN は配列内のエレメント数であり、 各エレメントの大きさは ISIZE です。 結果は、配列 ARRAY 内に降順で格納されます。 qsort_ とは異なり、 qsort_down サブルーチンは COMPAR 関数を必要としません。

クラス

サブルーチン

引き数の型と属性

array
ソートされる配列。 型はどんな型でもかまいません。

len
配列でのエレメントの数。引き数の型は、INTEGER(4) です。

isize
配列の単一エレメントのサイズ。引き数の型は、INTEGER(4) です。

結果の値と属性

結果の値

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
IBM Copyright 2003