Changeset 1164 for XIOS/dev/branch_yushan_merged/extern/src_ep_dev/ep_wait.cpp

Timestamp:

06/08/17 17:31:50 (7 years ago)

Author:

yushan

Message:

Bug fixed in MPI_(All)Gatherv with displs

File:

• XIOS/dev/branch_yushan_merged/extern/src_ep_dev/ep_wait.cpp (modified) (1 diff)

XIOS/dev/branch_yushan_merged/extern/src_ep_dev/ep_wait.cpp

@@ -22 +22 @@
     if(request->type == 1)
     {
-      ::MPI_Request mpi_request = static_cast< ::MPI_Request >(request->mpi_request);
+      ::MPI_Request *mpi_request = static_cast< ::MPI_Request* >(&(request->mpi_request));
       ::MPI_Status mpi_status;
-      ::MPI_Wait(&mpi_request, &mpi_status);
+      ::MPI_Errhandler_set(MPI_COMM_WORLD_STD, MPI_ERRORS_RETURN);
+      int error_code = ::MPI_Wait(mpi_request, &mpi_status);
+      if (error_code != MPI_SUCCESS) {
+      
+         char error_string[BUFSIZ];
+         int length_of_error_string, error_class;
+      
+         ::MPI_Error_class(error_code, &error_class);
+         ::MPI_Error_string(error_class, error_string, &length_of_error_string);
+         printf("%s\n", error_string);
+      }
 
       status->mpi_status = &mpi_status;