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