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 ( )