fortran: Fix: info
should be an integer parameter.
Этот коммит содержится в:
родитель
9bf93810d7
Коммит
d5e1f40a1e
@ -3379,7 +3379,7 @@ subroutine MPI_Dist_graph_create(comm_old, n, sources, degrees, destinations, &
|
|||||||
integer, dimension(n), intent(in) :: degrees
|
integer, dimension(n), intent(in) :: degrees
|
||||||
integer, dimension(n), intent(in) :: destinations
|
integer, dimension(n), intent(in) :: destinations
|
||||||
integer, dimension(n), intent(in) :: weights
|
integer, dimension(n), intent(in) :: weights
|
||||||
logical, intent(in) :: info
|
integer, intent(in) :: info
|
||||||
logical, intent(in) :: reorder
|
logical, intent(in) :: reorder
|
||||||
integer, intent(out) :: comm_dist_graph
|
integer, intent(out) :: comm_dist_graph
|
||||||
integer, intent(out) :: ierror
|
integer, intent(out) :: ierror
|
||||||
@ -3400,7 +3400,7 @@ subroutine MPI_Dist_graph_create_adjacent(comm_old, indegree, sources, sourcewei
|
|||||||
integer, intent(in) :: outdegree
|
integer, intent(in) :: outdegree
|
||||||
integer, dimension(outdegree), intent(in) :: destinations
|
integer, dimension(outdegree), intent(in) :: destinations
|
||||||
integer, dimension(outdegree), intent(in) :: destweights
|
integer, dimension(outdegree), intent(in) :: destweights
|
||||||
logical, intent(in) :: info
|
integer, intent(in) :: info
|
||||||
logical, intent(in) :: reorder
|
logical, intent(in) :: reorder
|
||||||
integer, intent(out) :: comm_dist_graph
|
integer, intent(out) :: comm_dist_graph
|
||||||
integer, intent(out) :: ierror
|
integer, intent(out) :: ierror
|
||||||
|
Загрузка…
Ссылка в новой задаче
Block a user