SRAND

Module

USE IFPORT

CALL SRAND (iseed)

SRAND seeds the random number generator used with IRAND and RAND. Calling SRAND is equivalent to calling IRAND or RAND with a new seed.

The same value for iseed generates the same sequence of random numbers. To vary the sequence, call SRAND with a different iseed value each time the program is executed.

Example

 !  How many random numbers out of 100 will be between .5 and .6?
    USE IFPORT
    ICOUNT = 0
    CALL SRAND(123)
    DO I = 1, 100
      X = RAND(0)
      IF ((X>.5).AND.(x<.6)) ICOUNT = ICOUNT + 1
    END DO
    WRITE(*,*) ICOUNT, "numbers between .5 and .6!"
    END