+----------------------------------IBM 拡張----------------------------------+
乱数発生ルーチン関数 RAND が使用するシード値を提供します。
引き数タイプおよび属性
クラス
サブルーチン
例
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
+--------------------------------IBM 拡張の終り-------------------------------+