source:
XIOS/dev/branch_openmp/extern/ep_dev/ep_init.cpp
@
2146
Last change on this file since 2146 was 1527, checked in by yushan, 6 years ago | |
---|---|
File size: 732 bytes |
Rev | Line | |
---|---|---|
[1381] | 1 | #include "ep_lib.hpp" |
2 | #include <mpi.h> | |
3 | #include "ep_declaration.hpp" | |
[1525] | 4 | #include "ep_mpi.hpp" |
[1381] | 5 | |
[1525] | 6 | extern MPI_Group MPI_GROUP_WORLD; |
[1381] | 7 | |
8 | namespace ep_lib | |
9 | { | |
10 | ||
11 | ||
12 | ||
13 | int MPI_Init_thread(int *argc, char*** argv, int required, int*provided) | |
14 | { | |
[1517] | 15 | Debug("MPI_Init_thread with EP/MPI\n"); |
[1499] | 16 | |
[1527] | 17 | #pragma omp master |
[1381] | 18 | { |
19 | ::MPI_Init_thread(argc, argv, required, provided); | |
[1525] | 20 | ::MPI_Comm_group(to_mpi_comm(MPI_COMM_WORLD->mpi_comm), &MPI_GROUP_WORLD); |
[1381] | 21 | } |
22 | } | |
23 | ||
24 | int MPI_Init(int *argc, char ***argv) | |
25 | { | |
[1517] | 26 | Debug("MPI_Init with EP/MPI\n"); |
[1381] | 27 | |
[1527] | 28 | #pragma omp master |
[1381] | 29 | { |
30 | ::MPI_Init(argc, argv); | |
31 | } | |
32 | } | |
33 | ||
34 | int MPI_Initialized(int *flag) | |
35 | { | |
[1517] | 36 | Debug("MPI_Initialized with EP/MPI\n"); |
[1499] | 37 | |
[1517] | 38 | return ::MPI_Initialized(flag); |
[1381] | 39 | } |
40 | ||
41 | ||
42 | ||
43 | } | |
44 | ||
45 |
Note: See TracBrowser
for help on using the repository browser.