| 47 | 
  | 
{ | 
| 48 | 
  | 
  mBEvent mpiEventContainer; | 
| 49 | 
  | 
  int mpiStatus; | 
| 50 | 
– | 
  int mpiError; | 
| 50 | 
  | 
 | 
| 51 | 
  | 
 | 
| 52 | 
  | 
  if (the_event == NULL)     mpiStatus = MPI_INTERFACE_DONE; | 
| 163 | 
  | 
// Everybody but node 0 runs this | 
| 164 | 
  | 
void mpiEventLoop(void) | 
| 165 | 
  | 
{ | 
| 167 | 
– | 
  int mpiError; | 
| 166 | 
  | 
  int mpiContinue; | 
| 167 | 
  | 
 | 
| 168 | 
  | 
#ifdef MPIBASS_VERBOSE | 
| 207 | 
  | 
{ | 
| 208 | 
  | 
  event the_event; | 
| 209 | 
  | 
  mBEvent mpiEventContainer; | 
| 212 | 
– | 
  int mpiError; | 
| 210 | 
  | 
 | 
| 214 | 
– | 
 | 
| 211 | 
  | 
   | 
| 212 | 
  | 
  MPI_Bcast(&mpiEventContainer,1,mpiBASSEventType,0,MPI_COMM_WORLD); | 
| 213 | 
  | 
 | 
| 340 | 
  | 
 | 
| 341 | 
  | 
 | 
| 342 | 
  | 
void mpiInterfaceExit(void){ | 
| 347 | 
– | 
  int mpiError; | 
| 343 | 
  | 
  int mpiStatus = MPI_INTERFACE_ABORT; | 
| 344 | 
  | 
   | 
| 345 | 
  | 
  MPI_Bcast(&mpiStatus,1,MPI_INT,0,MPI_COMM_WORLD); |