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 — Инициализация последовательности псевдослучайных чисел

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-13.3.0/gfortran/RANDOM_005fINIT.html