1
1

Oops -- changed a field name that should not have been changed.

This commit was SVN r25754.
Этот коммит содержится в:
Jeff Squyres 2012-01-20 11:02:18 +00:00
родитель be3dfb6a1a
Коммит e114bd8a7b
2 изменённых файлов: 2 добавлений и 2 удалений

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

@ -98,7 +98,7 @@ void mpi_testany_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *indx,
if (*flag &&
MPI_UNDEFINED != *(OMPI_SINGLE_NAME_CONVERT(indx))) {
array_of_requests[OMPI_INT_2_FINT(*indx)] =
c_req[OMPI_INT_2_FINT(*indx)]->req_f_to_c_indx;
c_req[OMPI_INT_2_FINT(*indx)]->req_f_to_c_index;
++(*indx);
}
if (!OMPI_IS_FORTRAN_STATUS_IGNORE(status)) {

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

@ -95,7 +95,7 @@ void mpi_waitany_f(MPI_Fint *count, MPI_Fint *array_of_requests,
OMPI_SINGLE_INT_2_FINT(indx);
if (MPI_UNDEFINED != *(OMPI_SINGLE_NAME_CONVERT(indx))) {
array_of_requests[OMPI_INT_2_FINT(*indx)] =
c_req[OMPI_INT_2_FINT(*indx)]->req_f_to_c_indx;
c_req[OMPI_INT_2_FINT(*indx)]->req_f_to_c_index;
++(*indx);
}
if (!OMPI_IS_FORTRAN_STATUS_IGNORE(status)) {