- else if (rank % NUM_CORE == 0) {
- MPI_Irecv(buf, count, datatype, from_inter, tag, comm, &request);
- MPI_Wait(&request, &status);
- MPI_Send(buf, count, datatype, to_inter, tag, comm);
- MPI_Send(buf, count, datatype, to_intra, tag, comm);
+ else if (rank % num_core == 0) {
+ request = smpi_mpi_irecv(buf, count, datatype, from_inter, tag, comm);
+ smpi_mpi_wait(&request, &status);
+ smpi_mpi_send(buf, count, datatype, to_inter, tag, comm);
+ smpi_mpi_send(buf, count, datatype, to_intra, tag, comm);