+----------------------------------IBM 拡張----------------------------------+
目的
乱数発生ルーチン関数 RAND が使用するシード値を提供します。 この組み込みサブルーチンは極力使用しないでください。標準準拠の組み込みサブルーチン RANDOM_NUMBER(HARVEST) を使用してください。
クラス
サブルーチン
引き数の型と属性
例
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 拡張-------------------------------+