Fix a typo that breaks the F77 build.
This commit was SVN r22140.
Этот коммит содержится в:
родитель
1346b677fa
Коммит
8bdd70400a
@ -65,8 +65,8 @@ void mpi_op_commutative_f(MPI_Fint *op, MPI_Fint *commute, MPI_Fint *ierr)
|
|||||||
|
|
||||||
c_op = MPI_Op_f2c(*op);
|
c_op = MPI_Op_f2c(*op);
|
||||||
|
|
||||||
*ierr = OMPI_INT_2_FINT(MPI_op_commutative(c_op,
|
*ierr = OMPI_INT_2_FINT(MPI_Op_commutative(c_op,
|
||||||
OMPI_SINGLE_NAME_CONVERT(commute));
|
OMPI_SINGLE_NAME_CONVERT(commute)));
|
||||||
if (MPI_SUCCESS == OMPI_FINT_2_INT(*ierr)) {
|
if (MPI_SUCCESS == OMPI_FINT_2_INT(*ierr)) {
|
||||||
OMPI_SINGLE_INT_2_FINT(commute);
|
OMPI_SINGLE_INT_2_FINT(commute);
|
||||||
}
|
}
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user