9.224 RANDOM_INIT — Инициализация генератора псевдослучайных чисел

Описание:

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

Стандарт:

Fortran 2018

Класс:

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

Синтаксис:

CALL RANDOM_INIT(REPEATABLE, IMAGE_DISTINCT)

Аргументы:

REPEATABLE

Должен быть скалярным значением типа LOGICAL, и он INTENT(IN). Если он .true., то начальное значение устанавливается в значение, зависящее от процессора, которое одинаково каждый раз, когда вызывается RANDOM_INIT из одной и той же области. Термин «одна и та же область» означает один экземпляр выполнения программы. Последовательность случайных чисел отличается при повторном выполнении программы. Если он .false., начальное значение устанавливается в значение, зависящее от процессора.

IMAGE_DISTINCT

Должен быть скалярным значением типа LOGICAL, и он INTENT(IN). Если он .true., начальное значение устанавливается в значение, зависящее от процессора, отличное от значения, установленного вызовом RANDOM_INIT в другой области. Если он .false., начальное значение устанавливается в значение, зависящее от того, какая область вызвала RANDOM_INIT.

Пример:

program test_random_seed
  implicit none
  real x(3), y(3)
  call random_init(.true., .true.)
  call random_number(x)
  call random_init(.true., .true.)
  call random_number(y)
  ! x and y are the same sequence
  if (any(x /= y)) call abort
end program test_random_seed

См. также:

RANDOM_NUMBER, RANDOM_SEED