epsilon(x)
returns a nearly negligible number relative to 1
.
Fortran 95 and later
result = epsilon(x)
x
- The type shall be real
.The return value is of same type as the argument.
program test_epsilon
real :: x = 3.143
real(8) :: y = 2.33
print *, epsilon(x)
print *, epsilon(y)
end program test_epsilon