#include "Bdef.h"
void Ssend2dID(ctxt, rdest, cdest)
BLACSCONTEXT  *ctxt;
int  rdest;
int  cdest;
{
   int dest, vdest, msgid;

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

   dest = pvm_send(dest, msgid);
   Mpvmerror(dest, "pvm_send", __LINE__, __FILE__);
   if ( ++(ctxt->SDcount[vdest]) >= ctxt->IDsPerNode) ctxt->SDcount[vdest] = 0;
}
