8.222 RAND — Вещественное псевдослучайное число

Описание:

RAND(FLAG) возвращает псевдослучайное число из равномерного распределения между 0 и 1. Если FLAG равно 0, возвращается следующее число в текущей последовательности; если FLAG равно 1, генератор перезапускается CALL SRAND(0); если FLAG имеет другое значение, оно используется в качестве нового значения seed с 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 — Псевдослучайное число

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