8.223 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