- MPI_Wait(&recv_request_array[i], MPI_STATUS_IGNORE);
- MPI_Isend((char *)buf + (i * increment), segment, datatype,
- header_buf[myordering + 1], tag, comm,
- &send_request_array[i]);
+ smpi_mpi_wait(&recv_request_array[i], MPI_STATUS_IGNORE);
+ send_request_array[i] = smpi_mpi_isend((char *)buf + (i * increment), segment, datatype,
+ header_buf[myordering + 1], tag, comm);