source: XIOS/dev/branch_openmp/extern/ep_dev/ep_rank.cpp @ 1515

Last change on this file since 1515 was 1515, checked in by yushan, 3 years ago

save dev

File size: 516 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_Comm_rank(MPI_Comm comm, int* rank)
10  {
11    if(comm->is_ep)
12    {
13      Debug("MPI_Comm_rank with EP");
14      return *rank = comm->ep_comm_ptr->size_rank_info[0].first;     
15    }
16
17    return MPI_Comm_rank_mpi(comm, rank);
18  }
19
20
21  int MPI_Comm_rank_mpi(MPI_Comm comm, int* rank)
22  {
23    Debug("MPI_Comm_rank with MPI");
24    return ::MPI_Comm_rank(to_mpi_comm(comm->mpi_comm), rank);
25  }
26
27
28}
29
30
Note: See TracBrowser for help on using the repository browser.