precision(3I)

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

SYNOPSIS
     PRECISION ([X=]x)

IMPLEMENTATION
     UNICOS, UNICOS/mk, and IRIX systems

STANDARDS
     Fortran 90

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
     On UNICOS systems, except for CRAY T90 systems that support IEEE
     floating-point arithmetic, PRECISION(X) has the value 13 for
     REAL(KIND=8).

     On CRAY T90 systems that support IEEE floating-point arithmetic,
     PRECISION(X) has the following values:

     * 6 for REAL(KIND=4) X

     * 15 for REAL(KIND=8) X

     * 33 for REAL(KIND=16) X

     On IRIX systems, PRECISION(X) has the following values:

     * 6 for REAL(KIND=4) X

     * 15 for REAL(KIND=8) X

     * 31 for REAL(KIND=16) X

     On UNICOS/mk systems, PRECISION(X) has the following values:

     * 6 for REAL(KIND=4) X

     * 15 for REAL(KIND=8) X

SEE ALSO
     MODELS(3I)

     Intrinsic Procedures Reference Manual, publication SR-2138, for the
     printed version of this man page.