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