SRAND

可搬用サブルーチン：IRAND と RAND で使用する乱数生成器の種子を作成します。

モジュール：USE DFPORT

形式

CALL SRAND (iseed)
CALL SRAND (rseed)

iseed
(入力) INTEGER(4)。どんな値でも可。

rseed
(入力) REAL(4)。どんな値でも可。

SRAND は IRAND と RAND で使用する乱数生成器の種子を作成します。SRAND を呼び出すことは，新しい種子で IRAND と RAND を呼び出すことと等価です。

互換性

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

関連情報

IRAND，RAND，RANDOM_NUMBER，RANDOM_SEED

例

	! 100 回繰り返して，どれ位の乱数が .5 と .6 の間にあるか？
	USE DFPORT
	ICOUNT = 0
	CALL SRAND(123.4567)
	DO I = 1, 100
	  X = RAND(0.0)
	  IF ((X>.5).AND.(x<.6)) ICOUNT = ICOUNT + 1
	END DO
	WRITE(*,*) ICOUNT, "numbers between .5 and .6!"