| Description: | Returns the decimal precision in the model representing real numbers with the same kind parameter as the argument. | ||
| Class: | Inquiry function; Generic | ||
| Arguments: | X must be of type real or complex. It can be scalar or array valued. | ||
| Results: | The result is a scalar of type default integer. The result has the value INT((DIGITS(X) - 1) * LOG10(RADIX(X))). If RADIX(X) is an integral power of 10, 1 is added to the result. | ||
Examples
If X is a REAL(4) value, PRECISION (X) has the value 6. The value 6 is derived from INT ((24-1) * LOG10 (2.)) = INT (6.92...). For more information on the model for REAL(4), see Section D.2.