HP Fortran Programmer's Reference (September 2007)

Intrinsic procedures
Intrinsic procedure specifications
Chapter 11620
SET_EXPONENT(X, I)
Description
Returns the model number whose exponent is I and whose fractional part is the fractional
part of X.
Class
Elemental function.
Arguments
X must be of type real.
I must be of type integer.
Result type/
type parameters
Same as X.
Result value
The result has the value X * b
I-e
, where b and e are as defined in “The Real Number System
Model” on page 509, provided this result is within range; if not, the result is
processor-dependent.
If X has value zero, the result has value zero.
SHAPE(SOURCE)
Description
Returns the shape of an array or a scalar.
Class
Inquiry function.
Argument
SOURCE may be of any type. It may be array valued or scalar. It must not be a pointer that is
disassociated or an allocatable array that is not allocated. It must not be an assumed-size
array.