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