Fix silly typo that prevented Fortran MPI_GRAPH_CREATE from working.
This commit was SVN r6208.
Этот коммит содержится в:
родитель
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);
|
||||
}
|
||||
|
||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user