Fortran Wiki
spacing

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.220446049250313e-016" on i686
end program

See also

rrspacing