/** * 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; }
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 ); } }
/* STUB */ int MPI_Cartdim_get ( MPI_Comm comm, int *ndims ) { _MPI_COVERAGE(); return PMPI_Cartdim_get (comm, ndims); }
int MPI_Cartdim_get(MPI_Comm comm, int* ndims) { return PMPI_Cartdim_get(comm, ndims); }