Fortran Wiki
spacing (Rev #1, changes)

Showing changes from revision #0 to #1: (追記) Added (追記ここまで) | ~~(削除) Removed (削除ここまで)~~ | ~~(削除) Chan (削除ここまで)~~(追記) ged (追記ここまで)

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

Fortran Wiki spacing (Rev #1, changes)