This function returns the decimal precision of floatingpoint numbers that have the same kind as X.
The result is equal to INT((DIGITS(X)1)*LOG10(REAL(RADIX(X))))+k, where k is 1 if RADIX(X) is an integral power of 10, and 0 otherwise; thus all decimal integers with PRECISION(X) digits (or fewer) can be exactly represented in this kind, but not all integers with PRECISION(X)+1 digits can be.
Note that if X is Complex, PRECISION(X) is equal to PRECISION(REAL(X)) and also PRECISION(AIMAG(X)), i.e. it is the precision of the real and imaginary parts.
This is an inquiry function, so X need not be defined; indeed, it is permitted to be an unallocated allocatable or a disassociated or undefined pointer.
