source:
XIOS/dev/branch_openmp/extern/src_ep_dev/ep_init.cpp
@
1520
Last change on this file since 1520 was 1520, checked in by yushan, 6 years ago | |
---|---|
File size: 617 bytes |
Rev | Line | |
---|---|---|
[1134] | 1 | #include "ep_lib.hpp" |
2 | #include <mpi.h> | |
3 | #include "ep_declaration.hpp" | |
4 | ||
5 | ||
6 | namespace ep_lib | |
7 | { | |
8 | ||
9 | ||
10 | ||
11 | int MPI_Init_thread(int *argc, char*** argv, int required, int*provided) | |
12 | { | |
[1520] | 13 | Debug("MPI_Init_thread with EP/MPI\n"); |
[1134] | 14 | |
[1520] | 15 | if(omp_get_thread_num() == 0) |
[1134] | 16 | { |
17 | ::MPI_Init_thread(argc, argv, required, provided); | |
18 | } | |
19 | } | |
20 | ||
21 | int MPI_Init(int *argc, char ***argv) | |
22 | { | |
[1520] | 23 | Debug("MPI_Init with EP/MPI\n"); |
[1134] | 24 | |
[1520] | 25 | if(omp_get_thread_num() == 0) |
[1134] | 26 | { |
27 | ::MPI_Init(argc, argv); | |
28 | } | |
29 | } | |
30 | ||
31 | int MPI_Initialized(int *flag) | |
32 | { | |
[1520] | 33 | Debug("MPI_Initialized with EP/MPI\n"); |
[1134] | 34 | |
[1520] | 35 | return ::MPI_Initialized(flag); |
[1134] | 36 | } |
37 | ||
38 | ||
39 | ||
40 | } | |
41 | ||
42 |
Note: See TracBrowser
for help on using the repository browser.