digits(3I)

NAME
     DIGITS - Returns the number of significant digits

SYNOPSIS
     DIGITS ([X=]x)

IMPLEMENTATION
     UNICOS, UNICOS/mk, and IRIX systems

STANDARDS
     Fortran 90

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

     CRAY T90 systems that support IEEE floating-point arithmetic generated
     the following results:

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

     UNICOS systems, except for CRAY T90 systems that support IEEE
     floating-point arithmetic, generated the following results:

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

     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, publication SR-2138, for the
     printed version of this man page.