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-14.2.0/gfortran/RANDOM_005fINIT.html