epsilon(3I)

NAME
     EPSILON - Returns r-1, where r is the smallest number greater than 1
     in the numeric model

SYNOPSIS
     EPSILON ([X=]x)

STANDARDS
     Fortran

DESCRIPTION
     The EPSILON intrinsic function returns a positive model number that is
     almost negligible compared to unity in the model representing numbers
     of the same type and kind type parameter as the argument.  It accepts
     the following argument:

     x         Must be of type real.  It can be scalar or array valued.

     EPSILON is an inquiry function.  The name of this intrinsic cannot be
     passed as an argument.

RETURN VALUES
     The result type is a scalar of the same type and kind type parameter
     as x.  The result has the value

     b(1-p) where b and p are as defined in the model for real numbers
     representing numbers of the same type and kind type parameter as x.
     For information on the real number model, see the MODELS(3I) man page.

EXAMPLES
     The following code fragment was run:

          REAL(KIND=4) r4
          REAL(KIND=8) r8
          REAL(KIND=16) r16
          REAL rd
          PRINT *,'EPSILON r4=',EPSILON(r4)
          PRINT *,'EPSILON r8=',EPSILON(r8)
          PRINT *,'EPSILON r16=',EPSILON(r16)
          PRINT *,'EPSILON rd=',EPSILON(rd)
          END

     The results of this test case on IRIX systems are as follows:

          EPSILON r4= 1.192092896E-7
          EPSILON r8= 2.22044604925031308E-16
          EPSILON r16= 1.23259516440783094595582588325435348E-32
          EPSILON rd= 1.192092896E-7

SEE ALSO
     MODELS(3I)