DIGITS (number)

  Class:  Inquiry function - Generic

  Returns the number of significant binary digits for numbers of
  the same type and kind type parameter as the argument.  The
  argument can be an integer or real number (scalar or array
  valued).

  The result is type default integer.

  The models for integer and real numbers are described in the
  HP Fortran for OpenVMS Language Reference Manual.

  Example:

  If X is of type REAL*4, DIGITS (X) has the value 24.