Changeset 1110 for XIOS/dev/branch_yushan/extern/src_ep_dev/ep_probe.cpp

Timestamp:

05/02/17 17:03:25 (7 years ago)

Author:

yushan

Message:

redefinition of mpi_any_source and mpi_any_tag

File:

• XIOS/dev/branch_yushan/extern/src_ep_dev/ep_probe.cpp (modified) (2 diffs)

XIOS/dev/branch_yushan/extern/src_ep_dev/ep_probe.cpp

@@ -16 +16 @@
       ::MPI_Comm mpi_comm = static_cast< ::MPI_Comm >(comm.mpi_comm);
       ::MPI_Status *mpi_status = static_cast< ::MPI_Status* >(status->mpi_status);
-      ::MPI_Iprobe(src, tag, mpi_comm, flag, mpi_status);
+      ::MPI_Iprobe(src<0? MPI_ANY_SOURCE : src, tag<0? MPI_ANY_TAG: tag, mpi_comm, flag, mpi_status);
 
       status->mpi_status = mpi_status;
@@ -81 +81 @@
       #pragma omp critical (_mpi_call)
       {
-        ::MPI_Iprobe(src, tag, mpi_comm, flag, &mpi_status);
+        ::MPI_Iprobe(src<0? MPI_ANY_SOURCE : src, tag<0? MPI_ANY_TAG: tag, mpi_comm, flag, &mpi_status);
         if(*flag)
         {
-          ::MPI_Mprobe(src, tag, mpi_comm, &mpi_message, &mpi_status);
+          ::MPI_Mprobe(src<0? MPI_ANY_SOURCE : src, tag<0? MPI_ANY_TAG: tag, mpi_comm, &mpi_message, &mpi_status);
         }
       }
       #elif _intelmpi
-        ::MPI_Improbe(src, tag, mpi_comm, flag, &mpi_message, &mpi_status);
+        ::MPI_Improbe(src<0? MPI_ANY_SOURCE : src, tag<0? MPI_ANY_TAG: tag, mpi_comm, flag, &mpi_message, &mpi_status);
       #endif