RANDOM_SEED

 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