- MPI_Sendrecv(send_ptr + rank * send_chunk, send_count, send_type, rank, tag,
- recv_ptr + rank * recv_chunk, recv_count, recv_type, rank, tag,
- comm, &s);
-
- for (i = 1; i < num_procs; i++)
- {
- src = (rank - i + num_procs) % num_procs;
- dst = (rank + i) % num_procs;
-
- MPI_Sendrecv(send_ptr + dst * send_chunk, send_count, send_type,
- dst, tag, recv_ptr + src * recv_chunk, recv_count,
- recv_type, src, tag, comm, &s);
-
- if ((i + 1) < num_procs)
- {
- next_src = (rank - (i + 1) + num_procs) % num_procs;
- next_dst = (rank + (i + 1) + num_procs) % num_procs;
- MPI_Sendrecv(&send_sync, 1, MPI_CHAR, next_src, tag,
- &recv_sync, 1, MPI_CHAR, next_dst, tag,
- comm, &s);
-
- }
+ smpi_mpi_sendrecv(send_ptr + rank * send_chunk, send_count, send_type, rank, tag,
+ recv_ptr + rank * recv_chunk, recv_count, recv_type, rank, tag,
+ comm, &s);
+
+ for (i = 1; i < num_procs; i++) {
+ src = (rank - i + num_procs) % num_procs;
+ dst = (rank + i) % num_procs;
+
+ smpi_mpi_sendrecv(send_ptr + dst * send_chunk, send_count, send_type,
+ dst, tag, recv_ptr + src * recv_chunk, recv_count,
+ recv_type, src, tag, comm, &s);
+
+ if ((i + 1) < num_procs) {
+ next_src = (rank - (i + 1) + num_procs) % num_procs;
+ next_dst = (rank + (i + 1) + num_procs) % num_procs;
+ smpi_mpi_sendrecv(&send_sync, 1, MPI_CHAR, next_src, tag,
+ &recv_sync, 1, MPI_CHAR, next_dst, tag, comm, &s);
+