RANGE

 RANGE (number)

 Class:  Inquiry function - Generic

 Returns the decimal exponent range in the model representing
 numbers with the same kind type parameter as the argument.

 The argument can be of type integer, real, or complex.  It can be
 scalar or array valued.

 The result is a scalar of type default integer.  For an integer
 argument, the result has the value INT (LOG10 ( HUGE("number") )).
 For a real or complex argument, the result has the value INT(MIN
 (LOG10( HUGE("number") ), -LOG10( TINY("number") ))).

 For information on the integer and real models, see the HP Fortran
 for OpenVMS Language Reference Manual.

 Example:

 If X is a REAL*4 value, RANGE (X) has the value 37.  (HUGE(X) = (1
 - 2**-24) x 2**128 and TINY(X) = 2**-126.)