PACK Intrinsic

PACK(SOURCE,MASK[,VECTOR]) -- pack a arbitrary shaped array into a one-dimensional array under a mask. VECTOR, if present, must be 1-D and must be of same type and kind as SOURCE.

If

and

then

• PACK(A,MASK) is (/1, 5, 11/);
• PACK(A,MASK,(/3,4,5,6/)) is (/1, 5, 11, 6/).
• PACK(A,.TRUE.,(/1,2,3,4,5,6,7,8,9/)) is
  (/1,3,5,7,9,11,7,8,9/).

For more information, click here