- SetData( sendbuf, recvbuf, nx, ny, myrow, mycol, dims[0], dims[1] );
- MPI_Scatterv( sendbuf, sendcounts, scdispls, block,
- (rank == 0 ? MPI_IN_PLACE : recvbuf), nx * ny, MPI_DOUBLE, 0, comm2d );
- errs_in_place = CheckData( recvbuf, nx, ny, myrow, mycol, dims[0], (rank == 0) );
- if(errs_in_place) {
- fprintf( stdout, "Failed to transfer data (MPI_IN_PLACE)\n" );
+ SetData(sendbuf, recvbuf, nx, ny, myrow, mycol, dims[0], dims[1]);
+ MPI_Scatterv(sendbuf, sendcounts, scdispls, block,
+ (rank == 0 ? MPI_IN_PLACE : recvbuf), nx * ny, MPI_DOUBLE, 0, comm2d);
+ errs_in_place = CheckData(recvbuf, nx, ny, myrow, mycol, dims[0], (rank == 0));
+ if (errs_in_place) {
+ fprintf(stdout, "Failed to transfer data (MPI_IN_PLACE)\n");