if(*index!=MPI_UNDEFINED){
trace_smpi_recv_helper(&savedreqs[*index], status);
TRACE_smpi_comm_out(rank_traced);
- requests[*index] = MPI_REQUEST_NULL;
}
for (MPI_Request& req : savedreqs)
if ((requests[index] == MPI_REQUEST_NULL) ||
(not((requests[index]->flags_ & MPI_REQ_ACCUMULATE) && (requests[index]->flags_ & MPI_REQ_RECV)))) {
finish_wait(&requests[index],status);
- if (requests[i] != MPI_REQUEST_NULL && (requests[i]->flags_ & MPI_REQ_NON_PERSISTENT))
+ if (requests[index] != MPI_REQUEST_NULL && (requests[index]->flags_ & MPI_REQ_NON_PERSISTENT))
requests[index] = MPI_REQUEST_NULL;
}
}