ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

use-mpi-f08: fix a typo in [P]MPI_Dist_graph_create_adjacent bindings

Просмотр исходного кода 
Signed-off-by: Gilles Gouaillardet <gilles@rist.or.jp>
Этот коммит содержится в:
Gilles Gouaillardet 2018-09-19 11:36:13 +09:00
родитель cf2880cae6
Коммит d2393251f7
2 изменённых файлов: 6 добавлений и 2 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

4
ompi/mpi/fortran/use-mpi-f08/dist_graph_create_adjacent_f08.F90
Просмотреть файл

@ -3,6 +3,8 @@
! Copyright (c) 2010-2013 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2010-2013 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
! All rights reserved. ! All rights reserved.
! Copyright (c) 2018 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! $COPYRIGHT$ ! $COPYRIGHT$
subroutine MPI_Dist_graph_create_adjacent_f08(comm_old,indegree,sources,sourceweights,& subroutine MPI_Dist_graph_create_adjacent_f08(comm_old,indegree,sources,sourceweights,&
@ -25,6 +27,6 @@ subroutine MPI_Dist_graph_create_adjacent_f08(comm_old,indegree,sources,sourcewe
call PMPI_Dist_graph_create_adjacent(comm_old%MPI_VAL,indegree,sources,& call PMPI_Dist_graph_create_adjacent(comm_old%MPI_VAL,indegree,sources,&
sourceweights,outdegree,destinations,& sourceweights,outdegree,destinations,&
destweights,info%MPI_VAL,& destweights,info%MPI_VAL,&
reorder,comm_dist_graph%MPI_VAL,ierror) reorder,comm_dist_graph%MPI_VAL,c_ierror)
if (present(ierror)) ierror = c_ierror if (present(ierror)) ierror = c_ierror
end subroutine MPI_Dist_graph_create_adjacent_f08 end subroutine MPI_Dist_graph_create_adjacent_f08

4
ompi/mpi/fortran/use-mpi-f08/profile/pdist_graph_create_adjacent_f08.F90
Просмотреть файл

@ -3,6 +3,8 @@
! Copyright (c) 2010-2013 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2010-2013 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
! All rights reserved. ! All rights reserved.
! Copyright (c) 2018 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! $COPYRIGHT$ ! $COPYRIGHT$
subroutine PMPI_Dist_graph_create_adjacent_f08(comm_old,indegree,sources,sourceweights,& subroutine PMPI_Dist_graph_create_adjacent_f08(comm_old,indegree,sources,sourceweights,&
@ -25,6 +27,6 @@ subroutine PMPI_Dist_graph_create_adjacent_f08(comm_old,indegree,sources,sourcew
call PMPI_Dist_graph_create_adjacent(comm_old%MPI_VAL,indegree,sources,& call PMPI_Dist_graph_create_adjacent(comm_old%MPI_VAL,indegree,sources,&
sourceweights,outdegree,destinations,& sourceweights,outdegree,destinations,&
destweights,info%MPI_VAL,& destweights,info%MPI_VAL,&
reorder,comm_dist_graph%MPI_VAL,ierror) reorder,comm_dist_graph%MPI_VAL,c_ierror)
if (present(ierror)) ierror = c_ierror if (present(ierror)) ierror = c_ierror
end subroutine PMPI_Dist_graph_create_adjacent_f08 end subroutine PMPI_Dist_graph_create_adjacent_f08