7.41 DIGITS — Significant digits function

Description:

DIGITS(X) returns the number of significant digits of the internal model representation of X. For example, on a system using a 32-bit floating point representation, a default real number would likely return 24.

Option:

f95, gnu

Class:

inquiry function

Syntax:

C = DIGITS(X)

Arguments:

X	The type may be INTEGER(*) or REAL(*).

Return value:

The return value is of type INTEGER.

Example:

          program test_digits
              integer :: i = 12345
              real :: x = 3.143
              real(8) :: y = 2.33
              print *, digits(i)
              print *, digits(x)
              print *, digits(y)
          end program test_digits