HP Fortran Programmer's Reference (September 2007)

Intrinsic procedures
Intrinsic procedure specifications
Chapter 11 611
Class
Inquiry function.
Argument
X must be of type integer, real, or complex. It may be scalar or array valued.
Result type,
type parameters,
and shape
Default integer scalar.
Result value
Case 1 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. See “The Integer Number
System Model” on page 509 for more information.
Case 2 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. See “The
Real Number System Model” on page 509 for more information.
Example
RANGE(X) has the value 38 for real X, whose model is described in “The Real Number System
Model” on page 509, because in this case huge = (1 - 2
-24
) * 2
127
and tiny = 2
-127
.
Specific forms
SNGL, SNGLQ.
REAL(A, KIND)
Optional argument
KIND