+/* MPI_Ireduce_scatter_block(sbuf, rbuf, NUM_INTS, MPI_INT, MPI_SUM, comm, &req);*/
+/* MPI_Wait(&req, MPI_STATUS_IGNORE);*/
+
+/* MPI_Ireduce_scatter_block(MPI_IN_PLACE, rbuf, NUM_INTS, MPI_INT, MPI_SUM, comm, &req);*/
+/* MPI_Wait(&req, MPI_STATUS_IGNORE);*/
+
+/* MPI_Iscan(sbuf, rbuf, NUM_INTS, MPI_INT, MPI_SUM, comm, &req);*/
+/* MPI_Wait(&req, MPI_STATUS_IGNORE);*/
+
+/* MPI_Iscan(MPI_IN_PLACE, rbuf, NUM_INTS, MPI_INT, MPI_SUM, comm, &req);*/
+/* MPI_Wait(&req, MPI_STATUS_IGNORE);*/
+
+/* MPI_Iexscan(sbuf, rbuf, NUM_INTS, MPI_INT, MPI_SUM, comm, &req);*/
+/* MPI_Wait(&req, MPI_STATUS_IGNORE);*/
+
+/* MPI_Iexscan(MPI_IN_PLACE, rbuf, NUM_INTS, MPI_INT, MPI_SUM, comm, &req);*/
+/* MPI_Wait(&req, MPI_STATUS_IGNORE);*/
+
+ if (sbuf)
+ free(sbuf);
+ if (rbuf)
+ free(rbuf);
+ if (scounts)
+ free(scounts);
+ if (rcounts)
+ free(rcounts);
+ if (sdispls)
+ free(sdispls);
+ if (rdispls)
+ free(rdispls);
+ if (types)
+ free(types);