Check if MPI is initialized for node rank detection

sguzwf · May 19, 2020 · 8f4b1c3 · 8f4b1c3
1 parent 877a5c6
commit 8f4b1c3
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/mpi/mpi_machine.cpp b/src/mpi/mpi_machine.cpp
@@ -57,9 +57,14 @@ int get_rank_for_node()
     if (gethostname(hostname, max_len) < 0)
         return -1;
 
+    int initialized = 0;
+    PMPI_Initialized(&initialized);
+    if (!initialized)
+        return 0;
+
     return ::get_rank_for_hash(std::hash<std::string>{}(std::string(hostname)), MPI_COMM_WORLD);
 }
 
 } // namespace mpi
 
-} // namespace cali
+} // namespace cali