precision(3I)

NAME
     PRECISION - Returns the decimal precision of a number in the real
     number model

SYNOPSIS
     PRECISION ([X=]x)

STANDARDS
     Fortran

DESCRIPTION
     The PRECISION intrinsic function returns the decimal precision of a
     number in the real number model.  The real number model is described
     in the MODELS(3I) man page.  This function accepts the following
     argument:

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

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

RETURN VALUES
     The result is a default integer scalar.  The result has the value
     INT((p-1)*LOG10(b))+k, where b and p are as defined in the model and
     where k is 1 if b is an integral power of 10 and 0 otherwise.

EXAMPLES
     PRECISION(X) yields the following values:

     * 6 for REAL(KIND=4) X

     * 15 for REAL(KIND=8) X

     * 31 for REAL(KIND=16) X

SEE ALSO
     MODELS(3I)