8.154 IRAND — Целочисленное псевдослучайное число

Описание:

IRAND(FLAG) возвращает псевдослучайное число из равномерного распределения между 0 и системно-зависимым пределом (в большинстве случаев 2147483647). Если FLAG равно 0, возвращается следующее число в текущей последовательности; если FLAG равно 1, генератор перезапускается CALL SRAND(0); если FLAG имеет любое другое значение, оно используется как новое семя с SRAND.

Эта встроенная процедура предоставляется для обратной совместимости с GNU Fortran 77. Она реализует простую генерацию по модулю, как указано в g77. Для нового кода следует рассмотреть использование RANDOM_NUMBER — Псевдослучайное число, так как оно реализует более совершенный алгоритм.

Стандарт:

Расширение GNU

Класс:

Функция

Синтаксис:

RESULT = IRAND(I)

Аргументы:

`I`	Должен быть скалярным `INTEGER` типа 4.

Возвращаемое значение:

Значение возвращается типа INTEGER(kind=4).

Пример:

program test_irand
  integer,parameter :: seed = 86456
  
  call srand(seed)
  print *, irand(), irand(), irand(), irand()
  print *, irand(seed), irand(), irand(), irand()
end program test_irand

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