src/missing/mpi.c
int MPI_Cart_get(MPI_Comm comm, int maxdims, int * dims, int * periods,
		 int * coords) {
  int rc;
  int n;

  err_err_rcif(comm < 0, MPI_ERR_COMM);
  err_err_rcif(maxdims > 3, MPI_ERR_DIMS);
  err_err_rcif(dims == NULL, MPI_ERR_ARG);
  err_err_rcif(periods == NULL, MPI_ERR_ARG);
  err_err_rcif(coords == NULL, MPI_ERR_ARG);

  for (n = 0; n < maxdims; n++) {
    dims[n] = 1;
    periods[n] = periods_[n];
    coords[n] = 0;
  }

  return MPI_SUCCESS;

 err:
  mpi_errhandler_(&comm, &rc);

  return rc;
}
/*****************************************************************************
 *
 *  MPI_Cart_get
 *
 *  The state held for periods[] is only required for the tests.
 *
 *****************************************************************************/
MPI_Cart_get
The state held for periods[] is only required for the tests.
MPI_Cart_get The state held for periods [] is only required for the tests .
int MPI_Cart_get(MPI_Comm comm, int maxdims, int * dims, int * periods,
		 int * coords) {
  int rc;
  int n;
  err_err_rcif(comm < 0, MPI_ERR_COMM);
  err_err_rcif(maxdims > 3, MPI_ERR_DIMS);
  err_err_rcif(dims == NULL, MPI_ERR_ARG);
  err_err_rcif(periods == NULL, MPI_ERR_ARG);
  err_err_rcif(coords == NULL, MPI_ERR_ARG);
  for (n = 0; n < maxdims; n++) {
    dims[n] = 1;
    periods[n] = periods_[n];
    coords[n] = 0;
  }
  return MPI_SUCCESS;
 err:
  mpi_errhandler_(&comm, &rc);
  return rc;
}
int MPI_Cart_get ( MPI_Comm comm , int maxdims , int * dims , int * periods , int * coords ) { int rc ; int n ; err_err_rcif ( comm < 0 , MPI_ERR_COMM ) ; err_err_rcif ( maxdims > 3 , MPI_ERR_DIMS ) ; err_err_rcif ( dims == NULL , MPI_ERR_ARG ) ; err_err_rcif ( periods == NULL , MPI_ERR_ARG ) ; err_err_rcif ( coords == NULL , MPI_ERR_ARG ) ; for ( n = 0 ; n < maxdims ; n ++ ) { dims [ n ] = 1 ; periods [ n ] = periods_ [ n ] ; coords [ n ] = 0 ; } return MPI_SUCCESS ; err : mpi_errhandler_ ( & comm , & rc ) ; return rc ; }
MPI_Cart_get
  The state held for periods[] is only required for the tests.
MPI_Cart_get The state held for periods [] is only required for the tests .