9.226 RANDOM_SEED — Инициализация последовательности псевдослучайных чисел

Описание:

Перезапускает или запрашивает состояние генератора псевдослучайных чисел, используемого в RANDOM_NUMBER.

Если RANDOM_SEED вызывается без аргументов, она инициализируется случайными данными, полученными из операционной системы.

Как расширение к стандарту Fortran, GFortran RANDOM_NUMBER поддерживает несколько потоков. Каждый поток в многопоточной программе имеет свой собственный начальный параметр. Когда RANDOM_SEED вызывается либо без аргументов, либо с аргументом PUT, заданный начальный параметр копируется в мастер-начальный параметр, а также в начальный параметр текущего потока. Когда новый поток использует RANDOM_NUMBER в первый раз, начальный параметр копируется из мастер-начального параметра и сдвигается на N * 2^{512} шагов, чтобы гарантировать, что поток случайных чисел не дублируется ни с каким другим потоком в системе, где N — количество потоков, которые использовали RANDOM_NUMBER до этого момента во время выполнения программы.

Стандарт:

Fortran 95 и более поздние версии

Класс:

Подпрограмма

Синтаксис:

CALL RANDOM_SEED([SIZE, PUT, GET])

Аргументы:

SIZE	(Необязательно) Должен быть скаляром и иметь тип по умолчанию INTEGER, со значением INTENT(OUT). Он задает минимальный размер массивов, используемых с аргументами PUT и GET.
PUT	(Необязательно) Должен быть массивом типа по умолчанию INTEGER и ранга один. Он INTENT(IN) и размер массива должен быть больше или равен числу, возвращаемому аргументом SIZE.
GET	(Необязательно) Должен быть массивом типа по умолчанию INTEGER и ранга один. Он INTENT(OUT) и размер массива должен быть больше или равен числу, возвращаемому аргументом SIZE.

Пример:

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

См. также:

RANDOM_NUMBER, RANDOM_INIT

Далее: RANGE, Предыдущее: RANDOM_NUMBER, Вверх: Встроенные процедуры [Содержание][Индекс]