DIGITS — Significant binary digits function

Description

DIGITS(X) returns the number of significant binary 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.

Syntax

RESULT = 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

Standard

Fortran 95 and later

Class

Inquiry function