-int PMPI_Pack_size(int incount, MPI_Datatype datatype, MPI_Comm comm, int* size) {
- NOT_YET_IMPLEMENTED
+int PMPI_Cart_get(MPI_Comm comm, int maxdims, int* dims, int* periods, int* coords) {
+ if(comm == NULL || smpi_comm_topo(comm) == NULL) {
+ return MPI_ERR_TOPOLOGY;
+ }
+ if(maxdims <= 0 || dims == NULL || periods == NULL || coords == NULL) {
+ return MPI_ERR_ARG;
+ }
+ return smpi_mpi_cart_get(comm, maxdims, dims, periods, coords);