#include "Bdef.h"
void zpack00(m, n, A, lda)
int  m;
int  n;
DCOMPLEX  *A;
int  lda;
{
   int info, j, k=0;

   j = pvm_initsend(PvmDataDefault);
   Mpvmerror(j, "pvm_initsend", __LINE__, __FILE__);
   if (m < 1 || n < 1) return;

   if (m > 1)
   {
      for (j = 0; j < n; j++)
      {
         info = pvm_pkdcplx((double *) &A[k], m, 1);
         Mpvmerror(info, "pvm_upkdcplx", __LINE__, __FILE__);
         k += lda;
      }
   }
   else
   {
      info = pvm_pkdcplx((double *) A, n, lda);
      Mpvmerror(info, "pvm_upkdcplx", __LINE__, __FILE__);
   }
} /* end zpack00 */
