#include "Bdef.h"



void dgpk4op(MatInf)
MATINFO  *MatInf;
/*
 * Packs message from a rectangular array for those combine operations
 * requiring only one array (SUM, MAX2, MIN2, XOR, and PY2)
 */
{
   void dpack00();

   dpack00(MatInf->M, MatInf->N, (double *) MatInf->A, MatInf->lda);
}
