Esempi in C++ (Cpp) per PMPI_Topo_test

Esempio n. 1

File: epk_mpiwrap_topo.c Progetto: linearregression/scalasca

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

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

    return_val = PMPI_Topo_test(comm, status);

    esd_exit(epk_mpi_regid[EPK__MPI_TOPO_TEST]);
    EVENT_GEN_ON();
  }
  else
  {
    return_val = PMPI_Topo_test(comm, status);
  }

  return return_val;
}

Esempio n. 2

File: topo_test_f.c Progetto: 00datman/ompi

void ompi_topo_test_f(MPI_Fint *comm, MPI_Fint *topo_type, MPI_Fint *ierr)
{
    int c_ierr;
    MPI_Comm c_comm;
    OMPI_SINGLE_NAME_DECL(topo_type);

    c_comm = PMPI_Comm_f2c(*comm);

    c_ierr = PMPI_Topo_test(c_comm, OMPI_SINGLE_NAME_CONVERT(topo_type));
    if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);

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

Esempio n. 3

File: cart_subf.c Progetto: ParaStation/psmpi2

FORT_DLL_SPEC void FORT_CALL mpi_cart_sub_ ( MPI_Fint *v1, MPI_Fint v2[], MPI_Fint *v3, MPI_Fint *ierr ){
    int _ctsize;
    int *l2=0;
    {int _topotype;
    PMPI_Topo_test( (MPI_Comm)*v1, &_topotype );
    if (_topotype != MPI_CART) {
        _ctsize = 0;
    }
    else 
        PMPI_Cartdim_get( (MPI_Comm)*v1, &_ctsize );
    }

    if (_ctsize) {int li;
     l2 = (int *)MPL_malloc(_ctsize * sizeof(int), MPL_MEM_OTHER);
     for (li=0; li<_ctsize; li++) {
        l2[li] = MPII_FROM_FLOG(v2[li]);
     }
    }
    *ierr = MPI_Cart_sub( (MPI_Comm)(*v1), l2, (MPI_Comm *)(v3) );
    if (l2) { MPL_free( l2 ); }
}

Esempio n. 4

File: MPI_Topo_test.c Progetto: 00liujj/trilinos

int MPI_Topo_test ( MPI_Comm comm, int *top_type )
{
  _MPI_COVERAGE();
  return PMPI_Topo_test (comm, top_type);
}

Esempio n. 5

File: smpi_mpi.c Progetto: FlorianPO/simgrid

int MPI_Topo_test(MPI_Comm comm, int* top_type) {
  return PMPI_Topo_test(comm, top_type);
}