- inter_comm_size) % inter_comm_size) * NUM_CORE * sextent * scount;
- MPI_Irecv((char *) rbuf + recv_offset, (rcount * NUM_CORE), rtype,
- rank - 1, tag + i + 1, comm, &request);
- MPI_Wait(&request, &status);
- MPI_Isend((char *) rbuf + recv_offset, (scount * NUM_CORE), stype,
- (rank + 1), tag + i + 1, comm, &request);
+ inter_comm_size) % inter_comm_size) * num_core * sextent * scount;
+ smpi_mpi_recv((char *) rbuf + recv_offset, (rcount * num_core), rtype,
+ rank - 1, tag + i + 1, comm, MPI_STATUS_IGNORE);
+ smpi_mpi_send((char *) rbuf + recv_offset, (scount * num_core), stype,
+ (rank + 1), tag + i + 1, comm);