digits(3I)

NAME
     DIGITS - Returns the number of significant digits

SYNOPSIS
     DIGITS ([X=]x)

STANDARDS
     Fortran

DESCRIPTION
     The DIGITS intrinsic function returns the number of significant digits
     in the model representing numbers of the same type and kind type
     parameter as the argument.  The number returned is the number of
     significant radix digits (base 2 digits), not decimal digits.  It
     accepts the following argument:

     x         Must be of type integer or real.  It can be scalar or array
               valued.

     DIGITS is an inquiry function.  The name of this intrinsic cannot be
     passed as an argument.

RETURN VALUES
     The result type is an integer scalar.  The result has the value q if x
     is of type integer.  It has the value p if x is of type real.  The
     values q and p are defined on the MODELS(3I) man page.

EXAMPLES
     The following code fragment was run:

          INTEGER(KIND=1) i1
          INTEGER(KIND=2) i2
          INTEGER(KIND=4) i4
          INTEGER(KIND=8) i8
          INTEGER id
          PRINT *,'DIGITS i1=',DIGITS(i1)
          PRINT *,'DIGITS i2=',DIGITS(i2)
          PRINT *,'DIGITS i4=',DIGITS(i4)
          PRINT *,'DIGITS i8=',DIGITS(i8)
          PRINT *,'DIGITS id=',DIGITS(id)
          END

     IRIX systems generated the following results:

          DIGITS i1= 7
          DIGITS i2= 15
          DIGITS i4= 31
          DIGITS i8= 63
          DIGITS id= 31

SEE ALSO
     MODELS(3I)