digits(3I)

NAME
     DIGITS - Returns the number of significant digits

SYNOPSIS
     DIGITS ([X=]x)

IMPLEMENTATION
     UNICOS, UNICOS/mk, IRIX systems

     CF90, MIPSpro 7 Fortran 90

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 on several systems:

          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

     UNICOS and UNICOS/mk systems generated the following results:

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

SEE ALSO
     MODELS(3I)

     Intrinsic Procedures Reference Manual for the printed version of this
     man page.