#include "Bdef.h"

void BlacsAbort00(ErrNo)
int  ErrNo;
{
   int i;
   extern int Iam00, Np00, *pvmtids00;

   fflush(stderr);
   fflush(stdout);
   for (i=0; i < Np00; i++) if (i != Iam00) pvm_kill(pvmtids00[i]);
   pvm_exit();
   exit(ErrNo);
}
