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.