#include "Bdef.h"

void Ssend2d00(ctxt, rdest, cdest, msgid)
BLACSCONTEXT  *ctxt;
int  rdest;
int  cdest;
int  msgid;
{
   int dest, vdest;

   vdest = Mvkpnum(ctxt, rdest, cdest);
   dest = ctxt->coord2proc[vdest];

   dest = pvm_send(dest, msgid);
   Mpvmerror(dest, "pvm_send", __LINE__, __FILE__);
}
