Changeset 1071 for XIOS/dev/dev_olga/src/buffer_client.cpp

Timestamp:

03/13/17 17:21:04 (7 years ago)

Author:

oabramkina

Message:

dev: test for secondary servers added.

File:

• XIOS/dev/dev_olga/src/buffer_client.cpp (modified) (2 diffs)

XIOS/dev/dev_olga/src/buffer_client.cpp

@@ -74 +74 @@
     int flag;
 
+    int error, errclass, len;
+    char errstring[MPI_MAX_ERROR_STRING];
+
     if (pending)
     {
@@ -86 +89 @@
       if (count > 0)
       {
-        MPI_Comm_test_inter(interComm, &flag);
-        MPI_Issend(buffer[current], count, MPI_CHAR, serverRank, 20, interComm, &request);
+        MPI_Errhandler_set(interComm,MPI_ERRORS_RETURN);
+        error = MPI_Issend(buffer[current], count, MPI_CHAR, serverRank, 20, interComm, &request);
+        if (error != MPI_SUCCESS)
+        {
+          MPI_Error_class(error, &errclass);
+          MPI_Error_string(error, errstring, &len);
+          ERROR("MPI error class: ", <<errclass<<" MPI error "<<errstring );
+        }
         pending = true;
         if (current == 1) current = 0;