#include "Bdef.h"

void Srecv2dID(ctxt, rsrc, csrc)
BLACSCONTEXT  *ctxt;
int  rsrc;
int  csrc;
{
   int msgid, src, vsrc;

   vsrc = Mvkpnum(ctxt, rsrc, csrc);
   msgid = Mrvid(ctxt, vsrc);
   src = ctxt->coord2proc[vsrc];

   vsrc = pvm_recv(src, msgid);
   Mpvmerror(vsrc, "pvm_recv", __LINE__, __FILE__);
}
