Remove a line that looks like a copy-n-paste error.
This line results in a compile error when you configure thusly: ./configure CC=icc CXX=icpc FC=ifort FCFLAGS=-i8 cmr=v1.7.4:reviewer=hjelmn:subject=fix Fortran compile with -i8 This commit was SVN r29602.
Этот коммит содержится в:
родитель
71a4edb0bf
Коммит
8aaa15c0ef
@ -4,6 +4,7 @@
|
|||||||
* reserved.
|
* reserved.
|
||||||
* Copyright (c) 2011 INRIA. All rights reserved.
|
* Copyright (c) 2011 INRIA. All rights reserved.
|
||||||
* Copyright (c) 2011 Université Bordeaux 1
|
* Copyright (c) 2011 Université Bordeaux 1
|
||||||
|
* Copyright (c) 2013 Cisco Systems, Inc. All rights reserved.
|
||||||
* $COPYRIGHT$
|
* $COPYRIGHT$
|
||||||
*
|
*
|
||||||
* Additional copyrights may follow
|
* Additional copyrights may follow
|
||||||
@ -86,9 +87,6 @@ void ompi_dist_graph_create_adjacent_f(MPI_Fint *comm_old, MPI_Fint *indegree,
|
|||||||
OMPI_ARRAY_FINT_2_INT(destweights, *outdegree);
|
OMPI_ARRAY_FINT_2_INT(destweights, *outdegree);
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Number of edges is equal to the last entry in the index array */
|
|
||||||
OMPI_ARRAY_FINT_2_INT(edges, index[*nnodes - 1]);
|
|
||||||
|
|
||||||
*ierr = OMPI_INT_2_FINT(MPI_Dist_graph_create_adjacent(c_comm_old, OMPI_FINT_2_INT(*indegree),
|
*ierr = OMPI_INT_2_FINT(MPI_Dist_graph_create_adjacent(c_comm_old, OMPI_FINT_2_INT(*indegree),
|
||||||
OMPI_ARRAY_NAME_CONVERT(sources),
|
OMPI_ARRAY_NAME_CONVERT(sources),
|
||||||
OMPI_IS_FORTRAN_UNWEIGHTED(sourceweights) ? MPI_UNWEIGHTED : OMPI_ARRAY_NAME_CONVERT(sourceweights),
|
OMPI_IS_FORTRAN_UNWEIGHTED(sourceweights) ? MPI_UNWEIGHTED : OMPI_ARRAY_NAME_CONVERT(sourceweights),
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user