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
@ -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);
|
||||||
}
|
}
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user