1
1

Once we start the C requests we have to put back their f_to_c index

in the fortran array, as we might get new C requests from the startall
function.

This commit was SVN r13079.
Этот коммит содержится в:
George Bosilca 2007-01-11 08:39:42 +00:00
родитель ceb5d436d8
Коммит 53d87897c8

Просмотреть файл

@ -75,10 +75,13 @@ void mpi_startall_f(MPI_Fint *count, MPI_Fint *array_of_requests,
return; return;
} }
for (i = 0; i < *count; i++) { for(i = 0; i < *count; i++ ) {
c_req[i] = MPI_Request_f2c(array_of_requests[i]); c_req[i] = MPI_Request_f2c(array_of_requests[i]);
} }
*ierr = OMPI_INT_2_FINT(MPI_Startall(OMPI_FINT_2_INT(*count), c_req)); *ierr = OMPI_INT_2_FINT(MPI_Startall(OMPI_FINT_2_INT(*count), c_req));
for( i = 0; i < *count; i++ ) {
array_of_requests[i] = MPI_Request_c2f(c_req[i]);
}
free(c_req); free(c_req);
} }