HP Fortran Programmer's Reference (September 2007)

Intrinsic procedures
Intrinsic procedure specifications
Chapter 11602
The model for interpreting an integer value as a sequence of bits is described in “The Bit
Model” on page 508.
PACK(ARRAY, MASK, VECTOR)
Optional argument
VECTOR
Description
Pack an array into an array of rank one under the control of a mask.
Class
Transformational function.
Arguments
ARRAY may be of any type. It must not be scalar.
MASK must be of type logical and must be conformable with ARRAY.
VECTOR (optional) must be of the same type and type parameters as ARRAY and must have
rank one. VECTOR must have at least as many elements as there are .TRUE.
elements in MASK.IfMASK is scalar with the value .TRUE., VECTOR must have
at least as many elements as there are in ARRAY.
101
011
000
Table 11-11 Truth table for OR intrinsic (Continued)
I J OR(I, J)