8.49 EPSILON — Epsilon function

Description:

EPSILON(X) returns a nearly negligible number relative to 1.

Option:

f95, gnu

Class:

inquiry function

Syntax:

C = EPSILON(X)

Arguments:

X	The type shall be REAL(*).

Return value:

The return value is of same type as the argument.

Example:

          program test_epsilon
              real :: x = 3.143
              real(8) :: y = 2.33
              print *, EPSILON(x)
              print *, EPSILON(y)
          end program test_epsilon