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