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

Описание:

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

Стандарт:

Fortran 2018

Класс:

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

Синтаксис:

CALL RANDOM_INIT(REPEATABLE, IMAGE_DISTINCT)

Аргументы:

REPEATABLE

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

IMAGE_DISTINCT

Должен быть скаляром с типом LOGICAL, и он INTENT(IN). Если он .true., seed устанавливается в зависящее от процессора значение, отличное от seed, установленного вызовом RANDOM_INIT в другом образе. Если он .false., seed устанавливается в значение, которое зависит от образа, вызвавшего 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