mpiext/pcollreq: Add _f08 to procedure names
The procedure names don't contain "_f08" of Fortran 2008 bindings of Persistent Collective Operations(mpiext/pcollreq/use-mpi-f08). This fix adds "_f08" to the procedure names of pcollreq/use-mpi-f08, same as other Fortran 2008 routines in `ompi/mpi/fortran/use-mpi-f08/mod`. Signed-off-by: Tsubasa Yanagibashi <fj2505dt@aa.jp.fujitsu.com>
Этот коммит содержится в:
Tsubasa Yanagibashi
родитель
e3eb6b5897
Коммит
3148b0cfaa
@ -22,7 +22,7 @@
|
||||
! replicated here.
|
||||
|
||||
interface mpix_allgather_init
|
||||
subroutine mpix_allgather_init(sendbuf, sendcount, sendtype, &
|
||||
subroutine mpix_allgather_init_f08(sendbuf, sendcount, sendtype, &
|
||||
recvbuf, recvcount, recvtype, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -40,11 +40,11 @@ interface mpix_allgather_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine mpix_allgather_init
|
||||
end subroutine mpix_allgather_init_f08
|
||||
end interface mpix_allgather_init
|
||||
|
||||
interface mpix_allgatherv_init
|
||||
subroutine mpix_allgatherv_init(sendbuf, sendcount, sendtype, &
|
||||
subroutine mpix_allgatherv_init_f08(sendbuf, sendcount, sendtype, &
|
||||
recvbuf, recvcounts, displs, recvtype, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -63,11 +63,11 @@ interface mpix_allgatherv_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine mpix_allgatherv_init
|
||||
end subroutine mpix_allgatherv_init_f08
|
||||
end interface mpix_allgatherv_init
|
||||
|
||||
interface mpix_allreduce_init
|
||||
subroutine mpix_allreduce_init(sendbuf, recvbuf, count, &
|
||||
subroutine mpix_allreduce_init_f08(sendbuf, recvbuf, count, &
|
||||
datatype, op, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_op, mpi_comm, mpi_info, mpi_request
|
||||
@ -86,11 +86,11 @@ interface mpix_allreduce_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine mpix_allreduce_init
|
||||
end subroutine mpix_allreduce_init_f08
|
||||
end interface mpix_allreduce_init
|
||||
|
||||
interface mpix_alltoall_init
|
||||
subroutine mpix_alltoall_init(sendbuf, sendcount, sendtype, &
|
||||
subroutine mpix_alltoall_init_f08(sendbuf, sendcount, sendtype, &
|
||||
recvbuf, recvcount, recvtype, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -108,11 +108,11 @@ interface mpix_alltoall_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine mpix_alltoall_init
|
||||
end subroutine mpix_alltoall_init_f08
|
||||
end interface mpix_alltoall_init
|
||||
|
||||
interface mpix_alltoallv_init
|
||||
subroutine mpix_alltoallv_init(sendbuf, sendcounts, sdispls, sendtype, &
|
||||
subroutine mpix_alltoallv_init_f08(sendbuf, sendcounts, sdispls, sendtype, &
|
||||
recvbuf, recvcounts, rdispls, recvtype, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -130,11 +130,11 @@ interface mpix_alltoallv_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine mpix_alltoallv_init
|
||||
end subroutine mpix_alltoallv_init_f08
|
||||
end interface mpix_alltoallv_init
|
||||
|
||||
interface mpix_alltoallw_init
|
||||
subroutine mpix_alltoallw_init(sendbuf, sendcounts, sdispls, sendtypes, &
|
||||
subroutine mpix_alltoallw_init_f08(sendbuf, sendcounts, sdispls, sendtypes, &
|
||||
recvbuf, recvcounts, rdispls, recvtypes, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -152,22 +152,22 @@ interface mpix_alltoallw_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine mpix_alltoallw_init
|
||||
end subroutine mpix_alltoallw_init_f08
|
||||
end interface mpix_alltoallw_init
|
||||
|
||||
interface mpix_barrier_init
|
||||
subroutine mpix_barrier_init(comm, info, request, ierror)
|
||||
subroutine mpix_barrier_init_f08(comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_comm, mpi_info, mpi_request
|
||||
implicit none
|
||||
type(mpi_comm), intent(in) :: comm
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine mpix_barrier_init
|
||||
end subroutine mpix_barrier_init_f08
|
||||
end interface mpix_barrier_init
|
||||
|
||||
interface mpix_bcast_init
|
||||
subroutine mpix_bcast_init(buffer, count, datatype, root, &
|
||||
subroutine mpix_bcast_init_f08(buffer, count, datatype, root, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
implicit none
|
||||
@ -183,11 +183,11 @@ interface mpix_bcast_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine mpix_bcast_init
|
||||
end subroutine mpix_bcast_init_f08
|
||||
end interface mpix_bcast_init
|
||||
|
||||
interface mpix_exscan_init
|
||||
subroutine mpix_exscan_init(sendbuf, recvbuf, count, &
|
||||
subroutine mpix_exscan_init_f08(sendbuf, recvbuf, count, &
|
||||
datatype, op, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_op, mpi_comm, mpi_info, mpi_request
|
||||
@ -206,11 +206,11 @@ interface mpix_exscan_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine mpix_exscan_init
|
||||
end subroutine mpix_exscan_init_f08
|
||||
end interface mpix_exscan_init
|
||||
|
||||
interface mpix_gather_init
|
||||
subroutine mpix_gather_init(sendbuf, sendcount, sendtype, &
|
||||
subroutine mpix_gather_init_f08(sendbuf, sendcount, sendtype, &
|
||||
recvbuf, recvcount, recvtype, root, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -228,11 +228,11 @@ interface mpix_gather_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine mpix_gather_init
|
||||
end subroutine mpix_gather_init_f08
|
||||
end interface mpix_gather_init
|
||||
|
||||
interface mpix_gatherv_init
|
||||
subroutine mpix_gatherv_init(sendbuf, sendcount, sendtype, &
|
||||
subroutine mpix_gatherv_init_f08(sendbuf, sendcount, sendtype, &
|
||||
recvbuf, recvcounts, displs, recvtype, root, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -251,11 +251,11 @@ interface mpix_gatherv_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine mpix_gatherv_init
|
||||
end subroutine mpix_gatherv_init_f08
|
||||
end interface mpix_gatherv_init
|
||||
|
||||
interface mpix_reduce_init
|
||||
subroutine mpix_reduce_init(sendbuf, recvbuf, count, &
|
||||
subroutine mpix_reduce_init_f08(sendbuf, recvbuf, count, &
|
||||
datatype, op, root, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_op, mpi_comm, mpi_info, mpi_request
|
||||
@ -274,11 +274,11 @@ interface mpix_reduce_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine mpix_reduce_init
|
||||
end subroutine mpix_reduce_init_f08
|
||||
end interface mpix_reduce_init
|
||||
|
||||
interface mpix_reduce_scatter_init
|
||||
subroutine mpix_reduce_scatter_init(sendbuf, recvbuf, recvcounts, &
|
||||
subroutine mpix_reduce_scatter_init_f08(sendbuf, recvbuf, recvcounts, &
|
||||
datatype, op, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_op, mpi_comm, mpi_info, mpi_request
|
||||
@ -297,11 +297,11 @@ interface mpix_reduce_scatter_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine mpix_reduce_scatter_init
|
||||
end subroutine mpix_reduce_scatter_init_f08
|
||||
end interface mpix_reduce_scatter_init
|
||||
|
||||
interface mpix_reduce_scatter_block_init
|
||||
subroutine mpix_reduce_scatter_block_init(sendbuf, recvbuf, recvcount, &
|
||||
subroutine mpix_reduce_scatter_block_init_f08(sendbuf, recvbuf, recvcount, &
|
||||
datatype, op, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_op, mpi_comm, mpi_info, mpi_request
|
||||
@ -320,11 +320,11 @@ interface mpix_reduce_scatter_block_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine mpix_reduce_scatter_block_init
|
||||
end subroutine mpix_reduce_scatter_block_init_f08
|
||||
end interface mpix_reduce_scatter_block_init
|
||||
|
||||
interface mpix_scan_init
|
||||
subroutine mpix_scan_init(sendbuf, recvbuf, count, &
|
||||
subroutine mpix_scan_init_f08(sendbuf, recvbuf, count, &
|
||||
datatype, op, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_op, mpi_comm, mpi_info, mpi_request
|
||||
@ -343,11 +343,11 @@ interface mpix_scan_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine mpix_scan_init
|
||||
end subroutine mpix_scan_init_f08
|
||||
end interface mpix_scan_init
|
||||
|
||||
interface mpix_scatter_init
|
||||
subroutine mpix_scatter_init(sendbuf, sendcount, sendtype, &
|
||||
subroutine mpix_scatter_init_f08(sendbuf, sendcount, sendtype, &
|
||||
recvbuf, recvcount, recvtype, root, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -365,11 +365,11 @@ interface mpix_scatter_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine mpix_scatter_init
|
||||
end subroutine mpix_scatter_init_f08
|
||||
end interface mpix_scatter_init
|
||||
|
||||
interface mpix_scatterv_init
|
||||
subroutine mpix_scatterv_init(sendbuf, sendcounts, displs, sendtype, &
|
||||
subroutine mpix_scatterv_init_f08(sendbuf, sendcounts, displs, sendtype, &
|
||||
recvbuf, recvcount, recvtype, root, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -388,11 +388,11 @@ interface mpix_scatterv_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine mpix_scatterv_init
|
||||
end subroutine mpix_scatterv_init_f08
|
||||
end interface mpix_scatterv_init
|
||||
|
||||
interface mpix_neighbor_allgather_init
|
||||
subroutine mpix_neighbor_allgather_init(sendbuf, sendcount, sendtype, &
|
||||
subroutine mpix_neighbor_allgather_init_f08(sendbuf, sendcount, sendtype, &
|
||||
recvbuf, recvcount, recvtype, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -410,11 +410,11 @@ interface mpix_neighbor_allgather_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine mpix_neighbor_allgather_init
|
||||
end subroutine mpix_neighbor_allgather_init_f08
|
||||
end interface mpix_neighbor_allgather_init
|
||||
|
||||
interface mpix_neighbor_allgatherv_init
|
||||
subroutine mpix_neighbor_allgatherv_init(sendbuf, sendcount, sendtype, &
|
||||
subroutine mpix_neighbor_allgatherv_init_f08(sendbuf, sendcount, sendtype, &
|
||||
recvbuf, recvcounts, displs, recvtype, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -433,11 +433,11 @@ interface mpix_neighbor_allgatherv_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine mpix_neighbor_allgatherv_init
|
||||
end subroutine mpix_neighbor_allgatherv_init_f08
|
||||
end interface mpix_neighbor_allgatherv_init
|
||||
|
||||
interface mpix_neighbor_alltoall_init
|
||||
subroutine mpix_neighbor_alltoall_init(sendbuf, sendcount, sendtype, &
|
||||
subroutine mpix_neighbor_alltoall_init_f08(sendbuf, sendcount, sendtype, &
|
||||
recvbuf, recvcount, recvtype, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -455,11 +455,11 @@ interface mpix_neighbor_alltoall_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine mpix_neighbor_alltoall_init
|
||||
end subroutine mpix_neighbor_alltoall_init_f08
|
||||
end interface mpix_neighbor_alltoall_init
|
||||
|
||||
interface mpix_neighbor_alltoallv_init
|
||||
subroutine mpix_neighbor_alltoallv_init(sendbuf, sendcounts, sdispls, sendtype, &
|
||||
subroutine mpix_neighbor_alltoallv_init_f08(sendbuf, sendcounts, sdispls, sendtype, &
|
||||
recvbuf, recvcounts, rdispls, recvtype, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -477,11 +477,11 @@ interface mpix_neighbor_alltoallv_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine mpix_neighbor_alltoallv_init
|
||||
end subroutine mpix_neighbor_alltoallv_init_f08
|
||||
end interface mpix_neighbor_alltoallv_init
|
||||
|
||||
interface mpix_neighbor_alltoallw_init
|
||||
subroutine mpix_neighbor_alltoallw_init(sendbuf, sendcounts, sdispls, sendtypes, &
|
||||
subroutine mpix_neighbor_alltoallw_init_f08(sendbuf, sendcounts, sdispls, sendtypes, &
|
||||
recvbuf, recvcounts, rdispls, recvtypes, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_address_kind, mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -500,11 +500,11 @@ interface mpix_neighbor_alltoallw_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine mpix_neighbor_alltoallw_init
|
||||
end subroutine mpix_neighbor_alltoallw_init_f08
|
||||
end interface mpix_neighbor_alltoallw_init
|
||||
|
||||
interface pmpix_allgather_init
|
||||
subroutine pmpix_allgather_init(sendbuf, sendcount, sendtype, &
|
||||
subroutine pmpix_allgather_init_f08(sendbuf, sendcount, sendtype, &
|
||||
recvbuf, recvcount, recvtype, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -522,11 +522,11 @@ interface pmpix_allgather_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine pmpix_allgather_init
|
||||
end subroutine pmpix_allgather_init_f08
|
||||
end interface pmpix_allgather_init
|
||||
|
||||
interface pmpix_allgatherv_init
|
||||
subroutine pmpix_allgatherv_init(sendbuf, sendcount, sendtype, &
|
||||
subroutine pmpix_allgatherv_init_f08(sendbuf, sendcount, sendtype, &
|
||||
recvbuf, recvcounts, displs, recvtype, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -545,11 +545,11 @@ interface pmpix_allgatherv_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine pmpix_allgatherv_init
|
||||
end subroutine pmpix_allgatherv_init_f08
|
||||
end interface pmpix_allgatherv_init
|
||||
|
||||
interface pmpix_allreduce_init
|
||||
subroutine pmpix_allreduce_init(sendbuf, recvbuf, count, &
|
||||
subroutine pmpix_allreduce_init_f08(sendbuf, recvbuf, count, &
|
||||
datatype, op, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_op, mpi_comm, mpi_info, mpi_request
|
||||
@ -568,11 +568,11 @@ interface pmpix_allreduce_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine pmpix_allreduce_init
|
||||
end subroutine pmpix_allreduce_init_f08
|
||||
end interface pmpix_allreduce_init
|
||||
|
||||
interface pmpix_alltoall_init
|
||||
subroutine pmpix_alltoall_init(sendbuf, sendcount, sendtype, &
|
||||
subroutine pmpix_alltoall_init_f08(sendbuf, sendcount, sendtype, &
|
||||
recvbuf, recvcount, recvtype, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -590,11 +590,11 @@ interface pmpix_alltoall_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine pmpix_alltoall_init
|
||||
end subroutine pmpix_alltoall_init_f08
|
||||
end interface pmpix_alltoall_init
|
||||
|
||||
interface pmpix_alltoallv_init
|
||||
subroutine pmpix_alltoallv_init(sendbuf, sendcounts, sdispls, sendtype, &
|
||||
subroutine pmpix_alltoallv_init_f08(sendbuf, sendcounts, sdispls, sendtype, &
|
||||
recvbuf, recvcounts, rdispls, recvtype, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -612,11 +612,11 @@ interface pmpix_alltoallv_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine pmpix_alltoallv_init
|
||||
end subroutine pmpix_alltoallv_init_f08
|
||||
end interface pmpix_alltoallv_init
|
||||
|
||||
interface pmpix_alltoallw_init
|
||||
subroutine pmpix_alltoallw_init(sendbuf, sendcounts, sdispls, sendtypes, &
|
||||
subroutine pmpix_alltoallw_init_f08(sendbuf, sendcounts, sdispls, sendtypes, &
|
||||
recvbuf, recvcounts, rdispls, recvtypes, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -634,22 +634,22 @@ interface pmpix_alltoallw_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine pmpix_alltoallw_init
|
||||
end subroutine pmpix_alltoallw_init_f08
|
||||
end interface pmpix_alltoallw_init
|
||||
|
||||
interface pmpix_barrier_init
|
||||
subroutine pmpix_barrier_init(comm, info, request, ierror)
|
||||
subroutine pmpix_barrier_init_f08(comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_comm, mpi_info, mpi_request
|
||||
implicit none
|
||||
type(mpi_comm), intent(in) :: comm
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine pmpix_barrier_init
|
||||
end subroutine pmpix_barrier_init_f08
|
||||
end interface pmpix_barrier_init
|
||||
|
||||
interface pmpix_bcast_init
|
||||
subroutine pmpix_bcast_init(buffer, count, datatype, root, &
|
||||
subroutine pmpix_bcast_init_f08(buffer, count, datatype, root, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
implicit none
|
||||
@ -665,11 +665,11 @@ interface pmpix_bcast_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine pmpix_bcast_init
|
||||
end subroutine pmpix_bcast_init_f08
|
||||
end interface pmpix_bcast_init
|
||||
|
||||
interface pmpix_exscan_init
|
||||
subroutine pmpix_exscan_init(sendbuf, recvbuf, count, &
|
||||
subroutine pmpix_exscan_init_f08(sendbuf, recvbuf, count, &
|
||||
datatype, op, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_op, mpi_comm, mpi_info, mpi_request
|
||||
@ -688,11 +688,11 @@ interface pmpix_exscan_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine pmpix_exscan_init
|
||||
end subroutine pmpix_exscan_init_f08
|
||||
end interface pmpix_exscan_init
|
||||
|
||||
interface pmpix_gather_init
|
||||
subroutine pmpix_gather_init(sendbuf, sendcount, sendtype, &
|
||||
subroutine pmpix_gather_init_f08(sendbuf, sendcount, sendtype, &
|
||||
recvbuf, recvcount, recvtype, root, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -710,11 +710,11 @@ interface pmpix_gather_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine pmpix_gather_init
|
||||
end subroutine pmpix_gather_init_f08
|
||||
end interface pmpix_gather_init
|
||||
|
||||
interface pmpix_gatherv_init
|
||||
subroutine pmpix_gatherv_init(sendbuf, sendcount, sendtype, &
|
||||
subroutine pmpix_gatherv_init_f08(sendbuf, sendcount, sendtype, &
|
||||
recvbuf, recvcounts, displs, recvtype, root, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -733,11 +733,11 @@ interface pmpix_gatherv_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine pmpix_gatherv_init
|
||||
end subroutine pmpix_gatherv_init_f08
|
||||
end interface pmpix_gatherv_init
|
||||
|
||||
interface pmpix_reduce_init
|
||||
subroutine pmpix_reduce_init(sendbuf, recvbuf, count, &
|
||||
subroutine pmpix_reduce_init_f08(sendbuf, recvbuf, count, &
|
||||
datatype, op, root, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_op, mpi_comm, mpi_info, mpi_request
|
||||
@ -756,11 +756,11 @@ interface pmpix_reduce_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine pmpix_reduce_init
|
||||
end subroutine pmpix_reduce_init_f08
|
||||
end interface pmpix_reduce_init
|
||||
|
||||
interface pmpix_reduce_scatter_init
|
||||
subroutine pmpix_reduce_scatter_init(sendbuf, recvbuf, recvcounts, &
|
||||
subroutine pmpix_reduce_scatter_init_f08(sendbuf, recvbuf, recvcounts, &
|
||||
datatype, op, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_op, mpi_comm, mpi_info, mpi_request
|
||||
@ -779,11 +779,11 @@ interface pmpix_reduce_scatter_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine pmpix_reduce_scatter_init
|
||||
end subroutine pmpix_reduce_scatter_init_f08
|
||||
end interface pmpix_reduce_scatter_init
|
||||
|
||||
interface pmpix_reduce_scatter_block_init
|
||||
subroutine pmpix_reduce_scatter_block_init(sendbuf, recvbuf, recvcount, &
|
||||
subroutine pmpix_reduce_scatter_block_init_f08(sendbuf, recvbuf, recvcount, &
|
||||
datatype, op, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_op, mpi_comm, mpi_info, mpi_request
|
||||
@ -802,11 +802,11 @@ interface pmpix_reduce_scatter_block_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine pmpix_reduce_scatter_block_init
|
||||
end subroutine pmpix_reduce_scatter_block_init_f08
|
||||
end interface pmpix_reduce_scatter_block_init
|
||||
|
||||
interface pmpix_scan_init
|
||||
subroutine pmpix_scan_init(sendbuf, recvbuf, count, &
|
||||
subroutine pmpix_scan_init_f08(sendbuf, recvbuf, count, &
|
||||
datatype, op, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_op, mpi_comm, mpi_info, mpi_request
|
||||
@ -825,11 +825,11 @@ interface pmpix_scan_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine pmpix_scan_init
|
||||
end subroutine pmpix_scan_init_f08
|
||||
end interface pmpix_scan_init
|
||||
|
||||
interface pmpix_scatter_init
|
||||
subroutine pmpix_scatter_init(sendbuf, sendcount, sendtype, &
|
||||
subroutine pmpix_scatter_init_f08(sendbuf, sendcount, sendtype, &
|
||||
recvbuf, recvcount, recvtype, root, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -847,11 +847,11 @@ interface pmpix_scatter_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine pmpix_scatter_init
|
||||
end subroutine pmpix_scatter_init_f08
|
||||
end interface pmpix_scatter_init
|
||||
|
||||
interface pmpix_scatterv_init
|
||||
subroutine pmpix_scatterv_init(sendbuf, sendcounts, displs, sendtype, &
|
||||
subroutine pmpix_scatterv_init_f08(sendbuf, sendcounts, displs, sendtype, &
|
||||
recvbuf, recvcount, recvtype, root, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -870,11 +870,11 @@ interface pmpix_scatterv_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine pmpix_scatterv_init
|
||||
end subroutine pmpix_scatterv_init_f08
|
||||
end interface pmpix_scatterv_init
|
||||
|
||||
interface pmpix_neighbor_allgather_init
|
||||
subroutine pmpix_neighbor_allgather_init(sendbuf, sendcount, sendtype, &
|
||||
subroutine pmpix_neighbor_allgather_init_f08(sendbuf, sendcount, sendtype, &
|
||||
recvbuf, recvcount, recvtype, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -892,11 +892,11 @@ interface pmpix_neighbor_allgather_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine pmpix_neighbor_allgather_init
|
||||
end subroutine pmpix_neighbor_allgather_init_f08
|
||||
end interface pmpix_neighbor_allgather_init
|
||||
|
||||
interface pmpix_neighbor_allgatherv_init
|
||||
subroutine pmpix_neighbor_allgatherv_init(sendbuf, sendcount, sendtype, &
|
||||
subroutine pmpix_neighbor_allgatherv_init_f08(sendbuf, sendcount, sendtype, &
|
||||
recvbuf, recvcounts, displs, recvtype, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -915,11 +915,11 @@ interface pmpix_neighbor_allgatherv_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine pmpix_neighbor_allgatherv_init
|
||||
end subroutine pmpix_neighbor_allgatherv_init_f08
|
||||
end interface pmpix_neighbor_allgatherv_init
|
||||
|
||||
interface pmpix_neighbor_alltoall_init
|
||||
subroutine pmpix_neighbor_alltoall_init(sendbuf, sendcount, sendtype, &
|
||||
subroutine pmpix_neighbor_alltoall_init_f08(sendbuf, sendcount, sendtype, &
|
||||
recvbuf, recvcount, recvtype, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -937,11 +937,11 @@ interface pmpix_neighbor_alltoall_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine pmpix_neighbor_alltoall_init
|
||||
end subroutine pmpix_neighbor_alltoall_init_f08
|
||||
end interface pmpix_neighbor_alltoall_init
|
||||
|
||||
interface pmpix_neighbor_alltoallv_init
|
||||
subroutine pmpix_neighbor_alltoallv_init(sendbuf, sendcounts, sdispls, sendtype, &
|
||||
subroutine pmpix_neighbor_alltoallv_init_f08(sendbuf, sendcounts, sdispls, sendtype, &
|
||||
recvbuf, recvcounts, rdispls, recvtype, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -959,11 +959,11 @@ interface pmpix_neighbor_alltoallv_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine pmpix_neighbor_alltoallv_init
|
||||
end subroutine pmpix_neighbor_alltoallv_init_f08
|
||||
end interface pmpix_neighbor_alltoallv_init
|
||||
|
||||
interface pmpix_neighbor_alltoallw_init
|
||||
subroutine pmpix_neighbor_alltoallw_init(sendbuf, sendcounts, sdispls, sendtypes, &
|
||||
subroutine pmpix_neighbor_alltoallw_init_f08(sendbuf, sendcounts, sdispls, sendtypes, &
|
||||
recvbuf, recvcounts, rdispls, recvtypes, &
|
||||
comm, info, request, ierror)
|
||||
use :: mpi_f08_types, only : mpi_address_kind, mpi_datatype, mpi_comm, mpi_info, mpi_request
|
||||
@ -982,5 +982,5 @@ interface pmpix_neighbor_alltoallw_init
|
||||
type(mpi_info), intent(in) :: info
|
||||
type(mpi_request), intent(out) :: request
|
||||
integer, optional, intent(out) :: ierror
|
||||
end subroutine pmpix_neighbor_alltoallw_init
|
||||
end subroutine pmpix_neighbor_alltoallw_init_f08
|
||||
end interface pmpix_neighbor_alltoallw_init
|
||||
|
||||
Загрузка…
Ссылка в новой задаче
Block a user