spacing(3f) - [FORTRAN:INTRINSIC:MODEL_COMPONENTS] Smallest distance between two numbers of a given type
result = spacing(x)
Determines the distance between the argument X and the nearest adjacent number of the same type.
X Shall be of type REAL.
The result is of the same type as the input argument X.
Sample program:
program demo_spacing implicit none 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 demo_spacing
[[Fortran 95]] and later
Elemental function
rrspacing(3)
spacing (3) | March 11, 2021 |