source: XIOS/trunk/extern/src_ep/ep_init.cpp @ 1034

Last change on this file since 1034 was 1034, checked in by yushan, 4 years ago

adding src_ep into extern folder

File size: 672 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    printf("MPI_Init_thread\n");
14
15    int id = omp_get_thread_num();
16
17    if(id == 0)
18    {
19      ::MPI_Init_thread(argc, argv, required, provided);
20    }
21    return 0;
22  }
23
24  int MPI_Init(int *argc, char ***argv)
25  {
26    printf("MPI_init called\n");
27    int id = omp_get_thread_num();
28
29    if(id == 0)
30    {
31      ::MPI_Init(argc, argv);
32    }
33        return 0;
34  }
35
36  int MPI_Initialized(int *flag)
37  {
38    printf("MPI_initialized called\n");
39
40    ::MPI_Initialized(flag);
41   
42    return 0;
43  }
44
45
46
47}
48
49
Note: See TracBrowser for help on using the repository browser.