- MPI_Isend((char *)rbuf + send_offset, scount, stype, to, tag + i, comm,
- &srequest_array[i]);
- MPI_Wait(&rrequest_array[i], &status);
- MPI_Wait(&srequest_array[i], &status2);
+ srequest_array[i] = smpi_mpi_isend((char *)rbuf + send_offset, scount, stype, to, tag + i, comm);
+ smpi_mpi_wait(&rrequest_array[i], &status);
+ smpi_mpi_wait(&srequest_array[i], &status2);