RANDOM_SEED ([size] [, put] [, get])

  Class:  Subroutine

  Changes or queries the seed (starting point) for the pseudorandom
  number generator used by RANDOM_NUMBER.  No more than one argument
  can be specified.  If an argument is specified, it must be of
  default integer type.

  The "size" must be scalar; it is set to the number of integers (N)
  that the processor uses to hold the value of the seed.

  The "put" must be an array of rank 1 and size >= N; it is used to
  reset the value of the seed.

  The "get" must be an array of rank 1 and size >= N; it is set to
  the current value of the seed.

  If no argument is specified, a random number based on the date and
  time is assigned to the seed.

  Example:

  Consider the following:

  CALL RANDOM_SEED ( )                   ! Processor reinitializes the
                                         !  seed randomly from the date
                                         !  and time
  CALL RANDOM_SEED (SIZE = M)            ! Sets M to N
  CALL RANDOM_SEED (PUT = SEED (1 : M))  ! Sets user seed
  CALL RANDOM_SEED (GET = OLD  (1 : M))  ! Reads current seed