Ejemplos de PMPI_Comm_free_keyval en C++ (Cpp)

Ejemplo n.º 1

Archivo: epk_mpiwrap_cg.c Proyecto: linearregression/scalasca

/**
 * Measurement wrapper for MPI_Comm_free_keyval
 * @note Auto-generated by wrapgen from template: std.w
 * @note C interface
 * @note Introduced with MPI 2.0
 * @ingroup cg_ext
 */
int MPI_Comm_free_keyval(int* comm_keyval)
{
  int return_val;

  if (IS_EVENT_GEN_ON_FOR(CG_EXT))
  {
    EVENT_GEN_OFF();
    esd_enter(epk_mpi_regid[EPK__MPI_COMM_FREE_KEYVAL]);

    return_val = PMPI_Comm_free_keyval(comm_keyval);

    esd_exit(epk_mpi_regid[EPK__MPI_COMM_FREE_KEYVAL]);
    EVENT_GEN_ON();
  }
  else
  {
    return_val = PMPI_Comm_free_keyval(comm_keyval);
  }

  return return_val;
}

Ejemplo n.º 2

Archivo: comm_free_keyval_f.c Proyecto: 00datman/ompi

void ompi_comm_free_keyval_f(MPI_Fint *comm_keyval, MPI_Fint *ierr)
{
    int c_ierr;
    OMPI_SINGLE_NAME_DECL(comm_keyval);

    OMPI_SINGLE_FINT_2_INT(comm_keyval);

    c_ierr = PMPI_Comm_free_keyval(OMPI_SINGLE_NAME_CONVERT(comm_keyval));
    if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);

    if (MPI_SUCCESS == c_ierr) {
        OMPI_SINGLE_INT_2_FINT(comm_keyval);
    }
}

Ejemplo n.º 3

Archivo: smpi_mpi.c Proyecto: FlorianPO/simgrid

int MPI_Comm_free_keyval(int* keyval) {
   return PMPI_Comm_free_keyval( keyval);
}