source:
XIOS/dev/dev_trunk_omp/extern/src_ep_dev/ep_finalize.cpp
@
1604
Last change on this file since 1604 was 1603, checked in by yushan, 6 years ago | |
---|---|
File size: 363 bytes |
Rev | Line | |
---|---|---|
[1603] | 1 | #include "ep_lib.hpp" |
2 | #include <mpi.h> | |
3 | #include "ep_declaration.hpp" | |
4 | #include "ep_mpi.hpp" | |
5 | ||
6 | namespace ep_lib | |
7 | { | |
8 | ||
9 | int MPI_Finalize() | |
10 | { | |
11 | #pragma omp master | |
12 | { | |
13 | printf("calling EP Finalize\n"); | |
14 | ::MPI_Finalize(); | |
15 | } | |
16 | } | |
17 | ||
18 | int MPI_Abort(MPI_Comm comm, int errorcode) | |
19 | { | |
20 | return ::MPI_Abort(to_mpi_comm(comm->mpi_comm), errorcode); | |
21 | } | |
22 | ||
23 | } | |
24 | ||
25 |
Note: See TracBrowser
for help on using the repository browser.