9.145 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