C++ (Cpp) PMPI_Cart_shiftの例

コード例 #1

ファイル: epk_mpiwrap_topo.c プロジェクト: linearregression/scalasca

/**
 * Measurement wrapper for MPI_Cart_shift
 * @note Auto-generated by wrapgen from template: std.w
 * @note C interface
 * @note Introduced with MPI 1.0
 * @ingroup topo
 */
int MPI_Cart_shift(MPI_Comm comm,
                   int      direction,
                   int      disp,
                   int*     rank_source,
                   int*     rank_dest)
{
  int return_val;

  if (IS_EVENT_GEN_ON_FOR(TOPO))
  {
    EVENT_GEN_OFF();
    esd_enter(epk_mpi_regid[EPK__MPI_CART_SHIFT]);

    return_val = PMPI_Cart_shift(comm,
                                 direction,
                                 disp,
                                 rank_source,
                                 rank_dest);

    esd_exit(epk_mpi_regid[EPK__MPI_CART_SHIFT]);
    EVENT_GEN_ON();
  }
  else
  {
    return_val = PMPI_Cart_shift(comm,
                                 direction,
                                 disp,
                                 rank_source,
                                 rank_dest);
  }

  return return_val;
}

コード例 #2

ファイル: smpi_mpi.c プロジェクト: FlorianPO/simgrid

int MPI_Cart_shift(MPI_Comm comm, int direction, int displ, int* source, int* dest) {
  return PMPI_Cart_shift(comm, direction, displ, source, dest);
}