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

#include "ep_lib.hpp"
#include <mpi.h>
#include "ep_declaration.hpp"
#include "ep_mpi.hpp"

namespace ep_lib
{



  int MPI_Comm_rank(MPI_Comm comm, int* rank)
  {

    if(comm.is_ep)
    {
      Debug("Calling EP_Comm_rank\n");

      if(comm.is_intercomm)
      {
        *rank = comm.ep_comm_ptr->intercomm->size_rank_info[0].first;
        return 0;
      }
      else
      {
        *rank = comm.ep_comm_ptr->size_rank_info[0].first;
        return 0;
      }
    }


    if(comm != MPI_COMM_NULL)
    {
      ::MPI_Comm mpi_comm = to_mpi_comm(comm.mpi_comm);
      ::MPI_Comm_rank(mpi_comm, rank);
      return 0;
    }
    else
    {
      printf("rank is undefined\n");

      *rank = MPI_UNDEFINED;
      return 0;
    }

  }



}