- MPI_Cart_create( MPI_COMM_WORLD, 1, dims, periods, 0, &comm );
- MPI_Cart_shift( comm, 0, 1, &source, &dest );
- if ((rank > 0 && source != (rank - 1)) ||
- (rank == 0 && source != MPI_PROC_NULL)) {
- errs++;
- printf( "source for non-periodic shift 1 is %d\n", source );
+ MPI_Cart_create(MPI_COMM_WORLD, 1, dims, periods, 0, &comm);
+ MPI_Cart_shift(comm, 0, 1, &source, &dest);
+ if ((rank > 0 && source != (rank - 1)) || (rank == 0 && source != MPI_PROC_NULL)) {
+ errs++;
+ printf("source for non-periodic shift 1 is %d\n", source);