- 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 = dst = rank ^ i;
-
- 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_partner = rank ^ (i + 1);
- MPI_Sendrecv(&send_sync, 1, MPI_CHAR, next_partner, tag,
- &recv_sync, 1, MPI_CHAR, next_partner, 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 = dst = rank ^ i;
+
+ 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_partner = rank ^ (i + 1);
+ smpi_mpi_sendrecv(&send_sync, 1, MPI_CHAR, next_partner, tag,
+ &recv_sync, 1, MPI_CHAR, next_partner, tag, comm, &s);