source: XIOS/dev/branch_openmp/extern/ep_dev/ep_init.cpp @ 1381

Last change on this file since 1381 was 1381, checked in by yushan, 3 years ago

add folder for MPI EP-RMA development. Current: MPI_Win, MPI_win_create, MPI_win_fence, MPI_win_free

File size: 564 bytes
Line 
1#include "ep_lib.hpp"
2#include <mpi.h>
3#include "ep_declaration.hpp"
4
5
6namespace ep_lib
7{
8
9
10
11  int MPI_Init_thread(int *argc, char*** argv, int required, int*provided)
12  {
13    int id = omp_get_thread_num();
14
15    if(id == 0)
16    {
17      ::MPI_Init_thread(argc, argv, required, provided);
18    }
19    return 0;
20  }
21
22  int MPI_Init(int *argc, char ***argv)
23  {
24    int id = omp_get_thread_num();
25
26    if(id == 0)
27    {
28      ::MPI_Init(argc, argv);
29    }
30        return 0;
31  }
32
33  int MPI_Initialized(int *flag)
34  {
35    ::MPI_Initialized(flag);
36   
37    return 0;
38  }
39
40
41
42}
43
44
Note: See TracBrowser for help on using the repository browser.