1
1

Add missing MPI_Dist_graph interfaces to the ignore-TKR Fortran mpi module bindings.

This commit was SVN r29295.
Этот коммит содержится в:
Jeff Squyres 2013-09-30 16:09:10 +00:00
родитель f3d18028e5
Коммит b84863be20

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

@ -850,6 +850,68 @@ end subroutine MPI_Dims_create
end interface
interface MPI_Dist_graph_create
subroutine MPI_Dist_graph_create(comm_old,n,sources,degrees,destinations,weights, &
info,reorder,comm_dist_graph,ierror)
implicit none
integer, intent(in) :: comm_old
integer, intent(in) :: n, sources(n), degrees(n), destinations(*), weights(*)
integer, intent(in) :: info
logical, intent(in) :: reorder
integer, intent(out) :: comm_dist_graph
integer, intent(out) :: ierror
end subroutine MPI_Dist_graph_create
end interface
interface MPI_Dist_graph_create_adjacent
subroutine MPI_Dist_graph_create_adjacent(comm_old,indegree,sources,sourceweights, &
outdegree,destinations,destweights,info,reorder, &
comm_dist_graph,ierror)
implicit none
integer, intent(in) :: comm_old
integer, intent(in) :: indegree, sources(indegree), outdegree, destinations(outdegree)
integer, intent(in) :: sourceweights(indegree), destweights(outdegree)
integer, intent(in) :: info
logical, intent(in) :: reorder
integer, intent(out) :: comm_dist_graph
integer, intent(out) :: ierror
end subroutine MPI_Dist_graph_create_adjacent
end interface
interface MPI_Dist_graph_neighbors
subroutine MPI_Dist_graph_neighbors(comm,maxindegree,sources,sourceweights, &
maxoutdegree,destinations,destweights,ierror)
implicit none
integer, intent(in) :: comm
integer, intent(in) :: maxindegree, maxoutdegree
integer, intent(out) :: sources(maxindegree), destinations(maxoutdegree)
integer, intent(out) :: sourceweights(maxindegree), destweights(maxoutdegree)
integer, intent(out) :: ierror
end subroutine MPI_Dist_graph_neighbors
end interface
interface MPI_Dist_graph_neighbors_count
subroutine MPI_Dist_graph_neighbors_count(comm,indegree,outdegree,weighted,ierror)
implicit none
integer, intent(in) :: comm
integer, intent(out) :: indegree, outdegree
logical, intent(out) :: weighted
integer, intent(out) :: ierror
end subroutine MPI_Dist_graph_neighbors_count
end interface
interface MPI_Errhandler_create
subroutine MPI_Errhandler_create(function, errhandler, ierror)