GNU Fortran 6
GNU Fortran 6
  • 请登录查看
字典 我要纠错

9.245. SPACING

9.245 SPACING — Smallest distance between two numbers of a given type

Description:
Determines the distance between the argument X and the nearest adjacent number of the same type.
Standard:
Fortran 95 and later
Class:
Elemental function
Syntax:
RESULT = SPACING(X)
Arguments:
X Shall be of type REAL.
Return value:
The result is of the same type as the input argument X.
Example:
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.22044604925