| 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); |