- prcv = (char*) recv_buff;
- psnd = (char*) send_buff;
- for (i = 0; i < size; i++)
- {
- src = dst = (rank + i) % size;
- if (src == rank) continue;
- if (dst == rank) continue;
- MPI_Recv_init(prcv + (src * rcvinc), recv_count, recv_type, src,
- tag, comm, preq++);
- MPI_Send_init(psnd + (dst * sndinc), send_count, send_type, dst,
- tag, comm, qreq++);
- }
+ prcv = (char *) recv_buff;
+ psnd = (char *) send_buff;
+ for (i = 0; i < size; i++) {
+ src = dst = (rank + i) % size;
+ if (src == rank)
+ continue;
+ if (dst == rank)
+ continue;
+ *(preq++) = smpi_mpi_recv_init(prcv + (src * rcvinc), recv_count, recv_type, src,
+ tag, comm);
+ *(qreq++) = smpi_mpi_send_init(psnd + (dst * sndinc), send_count, send_type, dst,
+ tag, comm);
+ }