1
1

Fix silly typo that prevented Fortran MPI_GRAPH_CREATE from working.

This commit was SVN r6208.
Этот коммит содержится в:
Jeff Squyres 2005-06-28 21:09:49 +00:00
родитель db58b61ffa
Коммит 65decd83bd

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

@ -77,7 +77,7 @@ void mpi_graph_create_f(MPI_Fint *comm_old, MPI_Fint *nnodes,
OMPI_ARRAY_NAME_CONVERT(edges),
OMPI_FINT_2_INT(*reorder),
&c_comm_graph));
if (OMPI_FINT_2_INT(*ierr)) {
if (OMPI_SUCCESS == OMPI_FINT_2_INT(*ierr)) {
*comm_graph = MPI_Comm_c2f(c_comm_graph);
}