source: XIOS/dev/branch_openmp/extern/ep_dev/ep_finalize.cpp @ 1385

Last change on this file since 1385 was 1381, checked in by yushan, 6 years ago

add folder for MPI EP-RMA development. Current: MPI_Win, MPI_win_create, MPI_win_fence, MPI_win_free

File size: 515 bytes
Line 
1#include "ep_lib.hpp"
2#include <mpi.h>
3#include "ep_declaration.hpp"
4#include "ep_mpi.hpp"
5
6namespace ep_lib
7{
8
9  int MPI_Finalize()
10  {
11    printf("calling EP Finalize\n");
12
13    int id = omp_get_thread_num();
14
15    if(id == 0)
16    {
17      ::MPI_Finalize();
18    }
19    return 0;
20  }
21
22  int MPI_Abort(MPI_Comm comm, int errorcode)
23  {
24    int id = omp_get_thread_num();
25
26    if(id == 0)
27    {
28      ::MPI_Comm mpi_comm = to_mpi_comm(comm.mpi_comm);
29      ::MPI_Abort(mpi_comm, errorcode);
30    }
31    return 0;
32  }
33
34}
35
36
Note: See TracBrowser for help on using the repository browser.