8.199 RAND — Генерация псевдослучайного числа

Описание:

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

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

Стандарт:

Расширение GNU

Класс:

Функция

Синтаксис:

RESULT = RAND(I)

Аргументы:

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

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

Возвращаемое значение имеет тип REAL и стандартный размер.

Пример:

program test_rand
  integer,parameter :: seed = 86456

  call srand(seed)
  print *, rand(), rand(), rand(), rand()
  print *, rand(seed), rand(), rand(), rand()
end program test_rand

См. также:

SRAND, RANDOM_NUMBER