return MPI_ERR_TOPOLOGY;
}
if (coords == nullptr) {
- return MPI_ERR_ARG;
+ return MPI_SUCCESS;
}
MPIR_Cart_Topology topo = static_cast<MPIR_Cart_Topology>(comm->topo());
if (topo==nullptr) {
if (rank < 0 || rank >= comm->size()) {
return MPI_ERR_RANK;
}
- if (maxdims <= 0) {
+ if (maxdims < 0) {
return MPI_ERR_ARG;
}
- if(coords == nullptr) {
- return MPI_ERR_ARG;
+ if(maxdims==0 || coords == nullptr) {
+ return MPI_SUCCESS;
}
MPIR_Cart_Topology topo = static_cast<MPIR_Cart_Topology>(comm->topo());
if (topo==nullptr) {
}
int PMPI_Cart_get(MPI_Comm comm, int maxdims, int* dims, int* periods, int* coords) {
+ if(dims == nullptr || periods == nullptr || coords == nullptr){
+ return MPI_SUCCESS;
+ }
if(comm == nullptr || comm->topo() == nullptr) {
return MPI_ERR_TOPOLOGY;
}
- if(maxdims <= 0 || dims == nullptr || periods == nullptr || coords == nullptr) {
+ if(maxdims <= 0) {
return MPI_ERR_ARG;
}
MPIR_Cart_Topology topo = static_cast<MPIR_Cart_Topology>(comm->topo());
int PMPI_Dims_create(int nnodes, int ndims, int* dims) {
if(dims == nullptr) {
- return MPI_ERR_ARG;
+ return MPI_SUCCESS;
}
if (ndims < 1 || nnodes < 1) {
return MPI_ERR_DIMS;