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

Timestamp:

06/04/18 19:25:08 (5 years ago)

Author:

yushan

Message:

save dev. TO DO : test with xios

File:

• XIOS/dev/branch_openmp/extern/src_ep_dev/ep_init.cpp (modified) (1 diff)

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

@@ -11 +11 @@
   int MPI_Init_thread(int *argc, char*** argv, int required, int*provided)
   {
-    //printf("MPI_Init_thread\n");
+    Debug("MPI_Init_thread with EP/MPI\n");
 
-    int id = omp_get_thread_num();
-
-    if(id == 0)
+    if(omp_get_thread_num() == 0)
     {
       ::MPI_Init_thread(argc, argv, required, provided);
     }
-    return 0;
   }
 
   int MPI_Init(int *argc, char ***argv)
   {
-    //printf("MPI_init called\n");
-    int id = omp_get_thread_num();
+    Debug("MPI_Init with EP/MPI\n");
 
-    if(id == 0)
+    if(omp_get_thread_num() == 0)
     {
       ::MPI_Init(argc, argv);
     }
-        return 0;
   }
 
   int MPI_Initialized(int *flag)
   {
-    //printf("MPI_initialized called\n");
+    Debug("MPI_Initialized with EP/MPI\n");
 
-    ::MPI_Initialized(flag);
-    
-    return 0;
+    return ::MPI_Initialized(flag);
   }