- MPI_Comm_rank(comm, &rank);
- MPI_Comm_size(comm, &num_procs);
+ rank = smpi_comm_rank(comm);
+ num_procs = smpi_comm_size(comm);
MPIC_Send(send_buff, send_count, send_type, dst, tag, comm);
}
MPIC_Send(send_buff, send_count, send_type, dst, tag, comm);
}