Changeset 1539 for XIOS/dev/branch_openmp/extern/src_ep_dev/ep_init.cpp

Timestamp:

06/12/18 11:54:13 (6 years ago)

Author:

yushan

Message:

update intercomm_merge and remove redundant files

File:

• XIOS/dev/branch_openmp/extern/src_ep_dev/ep_init.cpp (modified) (3 diffs)

XIOS/dev/branch_openmp/extern/src_ep_dev/ep_init.cpp

@@ -2 +2 @@
 #include <mpi.h>
 #include "ep_declaration.hpp"
+#include "ep_mpi.hpp"
 
+extern MPI_Group MPI_GROUP_WORLD;
 
 namespace ep_lib
@@ -13 +15 @@
     Debug("MPI_Init_thread with EP/MPI\n");
 
-    if(omp_get_thread_num() == 0)
+    #pragma omp master
     {
       ::MPI_Init_thread(argc, argv, required, provided);
+      ::MPI_Comm_group(to_mpi_comm(MPI_COMM_WORLD->mpi_comm), &MPI_GROUP_WORLD);
     }
   }
@@ -23 +26 @@
     Debug("MPI_Init with EP/MPI\n");
 
-    if(omp_get_thread_num() == 0)
+    #pragma omp master
     {
       ::MPI_Init(argc, argv);
     }
-  }
-  
-  int EP_group_init()
-  {
-  
   }