rrspacing(x) returns the reciprocal of the relative spacing of model numbers near x.
Fortran 95 and later
result = rrspacing(x)
x - Shall be of type real.The return value is of the same type and kind as x. The value returned is equal to abs(fraction(x)) * float(radix(x))**digits(x).