Exemplos de PMPI_Comm_join em C++ (Cpp)

Exemplo n.º 1

Arquivo: epk_mpiwrap_spawn.c Projeto: linearregression/scalasca

/**
 * Measurement wrapper for MPI_Comm_join
 * @note Auto-generated by wrapgen from template: comm_mgnt.w
 * @note C interface
 * @note Introduced with MPI 2.0
 * @ingroup spawn
 */
int MPI_Comm_join(int       fd,
                  MPI_Comm* newcomm)
{
  const int event_gen_active = IS_EVENT_GEN_ON_FOR(SPAWN);
  int       return_val;

  if (event_gen_active)
  {
    EVENT_GEN_OFF();
    esd_enter(epk_mpi_regid[EPK__MPI_COMM_JOIN]);
  }

  return_val = PMPI_Comm_join(fd, newcomm);
  if (*newcomm != MPI_COMM_NULL)
  {
    epk_comm_create(*newcomm);
  }

  if (event_gen_active)
  {
    esd_exit(epk_mpi_regid[EPK__MPI_COMM_JOIN]);
    EVENT_GEN_ON();
  }

  return return_val;
}

Exemplo n.º 2

Arquivo: comm_join_f.c Projeto: 00datman/ompi

void ompi_comm_join_f(MPI_Fint *fd, MPI_Fint *intercomm, MPI_Fint *ierr)
{
    int c_ierr;
    MPI_Comm c_intercomm;

    c_ierr = PMPI_Comm_join(OMPI_FINT_2_INT(*fd), &c_intercomm);
    if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);

    if (MPI_SUCCESS == c_ierr) {
        *intercomm = PMPI_Comm_c2f(c_intercomm);
    }
}

Exemplo n.º 3

Arquivo: smpi_mpi.c Projeto: FlorianPO/simgrid

int MPI_Comm_join( int fd, MPI_Comm *intercomm){
  return PMPI_Comm_join( fd, intercomm);
}