- if(reqs[*index]==MPI_REQUEST_NULL){
- simgrid::smpi::Request::free_f(requests[*index]);
- requests[*index]=MPI_FORTRAN_REQUEST_NULL;
+ if(*index!=MPI_UNDEFINED){
+ if(reqs[*index]==MPI_REQUEST_NULL){
+ simgrid::smpi::Request::free_f(requests[*index]);
+ requests[*index]=MPI_FORTRAN_REQUEST_NULL;
+ }
+ *index=*index+1;