XL Fortran for AIX V8.1.1

ランゲージ・リファレンス

qsort_up

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

SUBROUTINE FOO()
  INTEGER(4) ARRAY(8), LEN, ISIZE
  DATA ARRAY/0, 3, 1, 2, 9, 5, 7, 4/
  LEN = 8
  ISIZE = 4
  CALL qsort_up(ARRAY, LEN, ISIZE)
  PRINT *, ARRAY
! Result value is [0, 1, 2, 3, 4, 5, 7, 9]
RETURN
END


[ ページのトップ | 前ページ | 次ページ | 目次 | 索引 ]