8.181 NEAREST — Ближайшее представимое число

Описание:

NEAREST(X, S) возвращает число, представимое процессором, ближайшее к X в направлении, указанном знаком S.

Стандарт:

Fortran 95 и более поздние версии

Класс:

Элементарная функция

Синтаксис:

RESULT = NEAREST(X, S)

Аргументы:

X	Должен быть типа REAL.
S	Должен быть типа REAL и не равен нулю.

Значение результата:

Значение результата имеет тот же тип, что и X. Если S положительно, NEAREST возвращает число, представимое процессором, большее, чем X и ближайшее к нему. Если S отрицательно, NEAREST возвращает число, представимое процессором, меньшее, чем X и ближайшее к нему.

Пример:

program test_nearest
  real :: x, y
  x = nearest(42.0, 1.0)
  y = nearest(42.0, -1.0)
  write (*,"(3(G20.15))") x, y, x - y
end program test_nearest