DIGITS(3I) Last changed: 1-6-98
NAMEDIGITS - Returns the number of significant digits
SYNOPSISDIGITS ([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 ALSOMODELS(3I)
Intrinsic Procedures Reference Manual, publication SR-2138, for the
printed version of this man page.