source:
XIOS/dev/branch_openmp/extern/ep_dev/ep_finalize.cpp
@
2146
Last change on this file since 2146 was 1527, checked in by yushan, 6 years ago | |
---|---|
File size: 363 bytes |
Line | |
---|---|
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.