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

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

    return_val = PMPI_Cartdim_get(comm, ndims);

    esd_exit(epk_mpi_regid[EPK__MPI_CARTDIM_GET]);
    EVENT_GEN_ON();
  }
  else
  {
    return_val = PMPI_Cartdim_get(comm, ndims);
  }

  return return_val;
}
示例#2
0
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 ); }
}
示例#3
0
/* STUB */
int MPI_Cartdim_get ( MPI_Comm comm, int *ndims )
{
  _MPI_COVERAGE();
  return PMPI_Cartdim_get (comm, ndims); 
}
示例#4
0
int MPI_Cartdim_get(MPI_Comm comm, int* ndims) {
  return PMPI_Cartdim_get(comm, ndims);
}