HP Fortran Programmer's Reference (September 2007)

Intrinsic procedures
Intrinsic procedure specifications
Chapter 11 603
Result type,
type parameters,
and shape
The result is an array of rank one with the same type and type parameters as ARRAY. If
VECTOR is present, the result size is that of VECTOR; otherwise, the result size is the number t
of .TRUE. elements in MASK unless MASK is scalar with the value .TRUE., in which case the
result size is the size of ARRAY.
Result value
Element i of the result is the element of ARRAY that corresponds to the i th .TRUE. element of
MASK, taking elements in array element order, for i = 1, 2, ..., t . If VECTOR is present and has
size n > t , element i of the result has the value VECTOR ( i ), for i = t +1, ..., n .
Specific forms
KPACK.
PRECISION(X)
Description
Returns the decimal precision in the model representing real numbers with the same kind
type parameter as the argument.
Class
Inquiry function.
Argument
X must be of type real or complex. It may be scalar or array valued.
Result type,
type parameters,
and shape
Default integer scalar.