RAND— Real pseudo-random number
RAND(FLAG)returns a pseudo-random number from a uniform distribution between 0 and 1. If FLAG is 0, the next number in the current sequence is returned; if FLAG is 1, the generator is restarted by
CALL SRAND(0); if FLAG has any other value, it is used as a new seed with
X = RAND(FLAG)
|FLAG||shall be a scalar |
REALtype and the default kind.
program test_rand integer,parameter :: seed = 86456 call srand(seed) print *, rand(), rand(), rand(), rand() print *, rand(seed), rand(), rand(), rand() end program test_rand
RANintrinsic is provided as an alias for