RANDOM_NUMBER

 RANDOM_NUMBER (real-number)

 Class:  Subroutine

 Returns one pseudorandom number (or an array of such numbers).  The
 argument is set to contain pseudorandom numbers from the uniform
 distribution within the range 0 <= x < 1.

 Examples:

 Consider the following:

 REAL Y, Z (5, 5)   
 ! Initialize Y with a pseudorandom number
 CALL RANDOM_NUMBER (HARVEST = Y)
 CALL RANDOM_NUMBER (Z)

 Y and Z contain uniformly distributed random numbers.