+----------------------------------IBM 拡張----------------------------------+

SRAND(SEED)

目的

乱数発生ルーチン関数 RAND が使用するシード値を提供します。 この組み込みサブルーチンは極力使用しないでください。標準準拠の組み込みサブルーチン RANDOM_NUMBER(HARVEST) を使用してください。

クラス

サブルーチン

引き数の型と属性

SEED
スカラーでなければなりません。 RAND 関数に対してシード値を提供するのに使用する場合は、型 が REAL(4) で、 IRAND サービスおよびユーティリティー関数に対して シード値を提供するのに使用する場合は、型 が INTEGER(4) でなければなりません。 これは、INTENT(IN) 引き数です。

SRAND サブルーチンを使用するプログラムの例を次に示します。

CALL SRAND(0.5)
DO I = 1, 5
   R = RAND()
   PRINT *,R
ENDDO
END

上記のプログラムで生成される出力例は次のとおりです。

0.3984375000
0.4048461914
0.1644897461
0.1281738281E-01
0.2313232422E-01

+------------------------------End of IBM 拡張-------------------------------+

IBM Copyright 2003