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.
Этот коммит содержится в:
родитель
ceb5d436d8
Коммит
53d87897c8
@ -80,5 +80,8 @@ void mpi_startall_f(MPI_Fint *count, MPI_Fint *array_of_requests,
|
||||
}
|
||||
|
||||
*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);
|
||||
}
|
||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user