PRECISION(3I) Last changed: 1-6-98
NAMEPRECISION - Returns the decimal precision of a number in the real
number model
SYNOPSISPRECISION ([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 ALSOMODELS(3I)
Intrinsic Procedures Reference Manual, publication SR-2138, for the
printed version of this man page.
