Changeset 2551

Timestamp:

08/30/23 11:33:23 (9 months ago)

Author:

jderouillat

Message:

Add a test on the inter-communicator in ContextClient? and ContextServer? constructor

Location:

XIOS3/trunk/src/transport

Files:

• context_client.cpp (modified) (1 diff)
• context_server.cpp (modified) (1 diff)

XIOS3/trunk/src/transport/context_client.cpp

@@ -39 +39 @@
       MPI_Comm_size(intraComm, &clientSize);
 
-      int flag;
-      
-      MPI_Comm_remote_size(interComm, &serverSize);
+      int flag;      
+      MPI_Comm_test_inter(interComm, &flag);
+      if (flag) MPI_Comm_remote_size(interComm, &serverSize);
+      else  MPI_Comm_size(interComm, &serverSize);
       
       computeLeader(clientRank, clientSize, serverSize, ranksServerLeader, ranksServerNotLeader);

XIOS3/trunk/src/transport/context_server.cpp

@@ -44 +44 @@
 
     interComm=interComm_;
-    MPI_Comm_remote_size(interComm,&clientSize_);
+    int flag;
+    MPI_Comm_test_inter(interComm,&flag);
+    if (flag) MPI_Comm_remote_size(interComm,&clientSize_);
+    else MPI_Comm_size(interComm,&clientSize_);
     
     SRegisterContextInfo contextInfo ;