range(3I)

NAME
     RANGE - Returns the decimal exponent range of a number according to
     the real or integer model

SYNOPSIS
     RANGE ([X=]x)

IMPLEMENTATION
     UNICOS, UNICOS/mk, IRIX systems

     CF90, MIPSpro 7 Fortran 90

STANDARDS
     Fortran

DESCRIPTION
     The RANGE intrinsic function returns the decimal exponent range in the
     model representing integer or real numbers with the same kind type
     parameter as the argument.  For information on integer number model or
     the real number model, see the MODELS(3I) man page.  It accepts the
     following argument:

     x         Must be of type integer, real, or complex.  It may be scalar
               or array valued.

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

RETURN VALUES
     The result is a default integer scalar.

     For an integer argument, the result has the value INT(LOG10 (huge)),
     where huge is the largest positive integer in the model representing
     integer numbers with same kind type parameter as x.

     For a real or complex argument, the result has the value
     INT(MIN(LOG10(huge),-LOG10(tiny))), where huge and tiny are the
     largest and smallest positive numbers in the model representing real
     numbers with the same value for the kind type parameter as x.

EXAMPLES
     On UNICOS systems, excluding CRAY T90 systems that support IEEE
     floating-point arithmetic, RANGE(X) has the value 2465 for real X.

     On IRIX systems, RANGE(X) has the following values:

     * 37 for real (KIND=4) X

     * 307 for real (KIND=8) X

     * 291 for real (KIND=16) X

     On UNICOS/mk systems, RANGE(X) has the following values:

     * 37 for real (KIND=4) X

     * 307 for real (KIND=8) X

     On CRAY T90 systems that support IEEE floating-point arithmetic,
     RANGE(X) has the following values:

     * 37 for real (KIND=4) X

     * 307 for real (KIND=8) X

     * 4931 for real (KIND=16) X

SEE ALSO
     MODELS(3I)

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