9.195 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