rank = comm->rank();
num_procs = comm->size();
- extent = smpi_datatype_get_extent(send_type);
+ extent = send_type->get_extent();
// local send/recv
- smpi_mpi_sendrecv(sendptr, send_count, send_type, rank, tag,
+ Request::sendrecv(sendptr, send_count, send_type, rank, tag,
recvptr + rank * recv_count * extent,
recv_count, recv_type, rank, tag, comm, &status);
for (i = 1; i < num_procs; i++) {
src = (rank - i + num_procs) % num_procs;
dst = (rank + i) % num_procs;
- smpi_mpi_sendrecv(sendptr, send_count, send_type, dst, tag,
+ Request::sendrecv(sendptr, send_count, send_type, dst, tag,
recvptr + src * recv_count * extent, recv_count, recv_type,
src, tag, comm, &status);
}