8.255 SPACING — Наименьшее расстояние между двумя числами заданного типа

Описание:

Определяет расстояние между аргументом X и ближайшим смежным числом того же типа.

Стандарт:

Fortran 90 и позднее

Класс:

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

Синтаксис:

RESULT = SPACING(X)

Аргументы:

`X`	Должен быть типа `REAL`.

Значение возврата:

Результат имеет тот же тип, что и входной аргумент X.

Пример:

PROGRAM test_spacing
  INTEGER, PARAMETER :: SGL = SELECTED_REAL_KIND(p=6, r=37)
  INTEGER, PARAMETER :: DBL = SELECTED_REAL_KIND(p=13, r=200)

  WRITE(*,*) spacing(1.0_SGL)      ! "1.1920929E-07"          on i686
  WRITE(*,*) spacing(1.0_DBL)      ! "2.220446049250313E-016" on i686
END PROGRAM

См. также:

RRSPACING — Взаимное относительное расстояние

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