- /* To improve reporting of problems about operations, we
- change the error handler to errors return */
- MPI_Win_set_errhandler( win, MPI_ERRORS_RETURN );
-
- err = MPI_Put( srcBuf, 1, originType, dest, 0,
- totsize, MPI_INT, win );
- errs += CheckMPIErr( err );
- err = MPI_Win_fence( 0, win );
- errs += CheckMPIErr( err );
+ /* To improve reporting of problems about operations, we
+ * change the error handler to errors return */
+ MPI_Win_set_errhandler(win, MPI_ERRORS_RETURN);
+
+ err = MPI_Put(srcBuf, 1, originType, dest, 0, totsize, MPI_INT, win);
+ errs += CheckMPIErr(err);
+ err = MPI_Win_fence(0, win);
+ errs += CheckMPIErr(err);