RANDOM_SEED — Initialize a pseudo-random number sequence#

RANDOM_SEED(SIZE, PUT, GET)#

Restarts or queries the state of the pseudorandom number generator used by RANDOM_NUMBER.

Parameters:

SIZE – (Optional) Shall be a scalar and of type default INTEGER, with INTENT(OUT). It specifies the minimum size of the arrays used with the PUT and GET arguments.
PUT – (Optional) Shall be an array of type default INTEGER and rank one. It is INTENT(IN) and the size of the array must be larger than or equal to the number returned by the SIZE argument.
GET – (Optional) Shall be an array of type default INTEGER and rank one. It is INTENT(OUT) and the size of the array must be larger than or equal to the number returned by the SIZE argument.

Standard:

Fortran 90 and later

Class:

Subroutine

Syntax:

CALL RANDOM_SEED([SIZE, PUT, GET])

Example:

program test_random_seed
  implicit none
  integer, allocatable :: seed(:)
  integer :: n

  call random_seed(size = n)
  allocate(seed(n))
  call random_seed(get=seed)
  write (*, *) seed
end program test_random_seed