Changeset 1601 for XIOS/dev/dev_trunk_omp/src/event_scheduler.cpp
- Timestamp:
- 11/19/18 15:52:54 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_trunk_omp/src/event_scheduler.cpp
r1224 r1601 3 3 #include "mpi.hpp" 4 4 #include "tracer.hpp" 5 6 using namespace ep_lib; 5 7 6 8 namespace xios … … 135 137 while(received) 136 138 { 137 MPI_Iprobe( MPI_ANY_SOURCE,1,communicator,&received, &status) ;139 MPI_Iprobe(-2,1,communicator,&received, &status) ; 138 140 if (received) 139 141 { 140 142 recvRequest=new SPendingRequest ; 141 MPI_Irecv(recvRequest->buffer, 3, MPI_UNSIGNED_LONG, MPI_ANY_SOURCE, 1, communicator, &(recvRequest->request)) ;143 MPI_Irecv(recvRequest->buffer, 3, MPI_UNSIGNED_LONG, -2, 1, communicator, &(recvRequest->request)) ; 142 144 pendingRecvParentRequest.push(recvRequest) ; 143 145 } … … 177 179 while(received) 178 180 { 179 MPI_Iprobe( MPI_ANY_SOURCE,0,communicator,&received, &status) ;181 MPI_Iprobe(-2,0,communicator,&received, &status) ; 180 182 if (received) 181 183 { 182 184 recvRequest=new SPendingRequest ; 183 MPI_Irecv(recvRequest->buffer, 3, MPI_UNSIGNED_LONG, MPI_ANY_SOURCE, 0, communicator, &recvRequest->request) ;185 MPI_Irecv(recvRequest->buffer, 3, MPI_UNSIGNED_LONG, -2, 0, communicator, &recvRequest->request) ; 184 186 pendingRecvChildRequest.push_back(recvRequest) ; 185 187 }
Note: See TracChangeset
for help on using the changeset viewer.