MPI_Comm_size(MPI_COMM_WORLD, &numprocs);
MPI_Comm_rank(MPI_COMM_WORLD, &rank);
- TRACE_smpi_set_category("A");
- if (rank == 0) {
- MPI_Send(r, DATATOSENT, MPI_INT, 1, tag, MPI_COMM_WORLD);
- } else if (rank == 1) {
- MPI_Recv(r, DATATOSENT, MPI_INT, 0, tag, MPI_COMM_WORLD, &status);
- } else {
- //do nothing
- }
- TRACE_smpi_set_category("B");
- if (rank == 0) {
- MPI_Recv(r, DATATOSENT, MPI_INT, 1, tag, MPI_COMM_WORLD, &status);
- } else if (rank == 1) {
- MPI_Send(r, DATATOSENT, MPI_INT, 0, tag, MPI_COMM_WORLD);
- } else {
- //do nothing
+
+ int i;
+ for (i = 0; i < 10; i++) {
+ TRACE_smpi_set_category("A");
+ if (rank == 0) {
+ MPI_Send(r, DATATOSENT, MPI_INT, 1, tag, MPI_COMM_WORLD);
+ } else if (rank == 1) {
+ MPI_Recv(r, DATATOSENT, MPI_INT, 0, tag, MPI_COMM_WORLD, &status);
+ } else {
+ //do nothing
+ }
+
+ TRACE_smpi_set_category("B");
+ if (rank == 0) {
+ MPI_Recv(r, DATATOSENT, MPI_INT, 1, tag, MPI_COMM_WORLD, &status);
+ } else if (rank == 1) {
+ MPI_Send(r, DATATOSENT, MPI_INT, 0, tag, MPI_COMM_WORLD);
+ } else {
+ //do nothing
+ }
}
TRACE_smpi_set_category("C");
MPI_Barrier(MPI_COMM_WORLD);