8.83 PRECISION — Decimal precision of a real kind

Description:

PRECISION(X) returns the decimal precision in the model of the type of X.

Option:

f95, gnu

Class:

elemental function

Syntax:

I = PRECISION(X)

Arguments:

X	shall be of type REAL or COMPLEX.

Return value:

The return value is of type INTEGER and of the default integer kind.

Example:

          program prec_and_range
            real(kind=4) :: x(2)
            complex(kind=8) :: y
          
            print *, precision(x), range(x)
            print *, precision(y), range(y)
          end program prec_and_range