diff --git a/ompi/mpiext/pcollreq/use-mpi-f08/mpiext_pcollreq_usempif08.h b/ompi/mpiext/pcollreq/use-mpi-f08/mpiext_pcollreq_usempif08.h index 9377c44126..33e3556cce 100644 --- a/ompi/mpiext/pcollreq/use-mpi-f08/mpiext_pcollreq_usempif08.h +++ b/ompi/mpiext/pcollreq/use-mpi-f08/mpiext_pcollreq_usempif08.h @@ -22,9 +22,9 @@ ! replicated here. interface mpix_allgather_init - subroutine mpix_allgather_init(sendbuf, sendcount, sendtype, & - recvbuf, recvcount, recvtype, & - comm, info, request, ierror) + 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 implicit none !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf @@ -40,13 +40,13 @@ 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, & - recvbuf, recvcounts, displs, recvtype, & - comm, info, request, ierror) + 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 implicit none !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf @@ -63,13 +63,13 @@ 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, & - datatype, op, & - comm, info, request, ierror) + 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 implicit none !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf @@ -86,13 +86,13 @@ 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, & - recvbuf, recvcount, recvtype, & - comm, info, request, ierror) + 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 implicit none !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf @@ -108,13 +108,13 @@ 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, & - recvbuf, recvcounts, rdispls, recvtype, & - comm, info, request, ierror) + 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 implicit none !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf @@ -130,13 +130,13 @@ 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, & - recvbuf, recvcounts, rdispls, recvtypes, & - comm, info, request, ierror) + 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 implicit none !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf @@ -152,23 +152,23 @@ 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, & - comm, info, request, ierror) + 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 !DEC$ ATTRIBUTES NO_ARG_CHECK :: buffer @@ -183,373 +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, & - datatype, op, & - comm, info, request, ierror) - use :: mpi_f08_types, only : mpi_datatype, mpi_op, mpi_comm, mpi_info, mpi_request - implicit none - !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !$PRAGMA IGNORE_TKR sendbuf, recvbuf - !DIR$ IGNORE_TKR sendbuf, recvbuf - !IBM* IGNORE_TKR sendbuf, recvbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf - integer, intent(in) :: count - type(mpi_datatype), intent(in) :: datatype - type(mpi_op), intent(in) :: op - 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_exscan_init -end interface mpix_exscan_init - -interface mpix_gather_init - subroutine mpix_gather_init(sendbuf, sendcount, sendtype, & - recvbuf, recvcount, recvtype, root, & - comm, info, request, ierror) - use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request - implicit none - !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !$PRAGMA IGNORE_TKR sendbuf, recvbuf - !DIR$ IGNORE_TKR sendbuf, recvbuf - !IBM* IGNORE_TKR sendbuf, recvbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf - integer, intent(in) :: sendcount, recvcount, root - type(mpi_datatype), intent(in) :: sendtype, recvtype - 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_gather_init -end interface mpix_gather_init - -interface mpix_gatherv_init - subroutine mpix_gatherv_init(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 - implicit none - !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !$PRAGMA IGNORE_TKR sendbuf, recvbuf - !DIR$ IGNORE_TKR sendbuf, recvbuf - !IBM* IGNORE_TKR sendbuf, recvbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf - integer, intent(in) :: sendcount, root - integer, intent(in), asynchronous :: recvcounts(*), displs(*) - type(mpi_datatype), intent(in) :: sendtype, recvtype - 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_gatherv_init -end interface mpix_gatherv_init - -interface mpix_reduce_init - subroutine mpix_reduce_init(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 - implicit none - !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !$PRAGMA IGNORE_TKR sendbuf, recvbuf - !DIR$ IGNORE_TKR sendbuf, recvbuf - !IBM* IGNORE_TKR sendbuf, recvbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf - integer, intent(in) :: count, root - type(mpi_datatype), intent(in) :: datatype - type(mpi_op), intent(in) :: op - 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_reduce_init -end interface mpix_reduce_init - -interface mpix_reduce_scatter_init - subroutine mpix_reduce_scatter_init(sendbuf, recvbuf, recvcounts, & - datatype, op, & - comm, info, request, ierror) - use :: mpi_f08_types, only : mpi_datatype, mpi_op, mpi_comm, mpi_info, mpi_request - implicit none - !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !$PRAGMA IGNORE_TKR sendbuf, recvbuf - !DIR$ IGNORE_TKR sendbuf, recvbuf - !IBM* IGNORE_TKR sendbuf, recvbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf - integer, intent(in), asynchronous :: recvcounts(*) - type(mpi_datatype), intent(in) :: datatype - type(mpi_op), intent(in) :: op - 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_reduce_scatter_init -end interface mpix_reduce_scatter_init - -interface mpix_reduce_scatter_block_init - subroutine mpix_reduce_scatter_block_init(sendbuf, recvbuf, recvcount, & - datatype, op, & - comm, info, request, ierror) - use :: mpi_f08_types, only : mpi_datatype, mpi_op, mpi_comm, mpi_info, mpi_request - implicit none - !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !$PRAGMA IGNORE_TKR sendbuf, recvbuf - !DIR$ IGNORE_TKR sendbuf, recvbuf - !IBM* IGNORE_TKR sendbuf, recvbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf - integer, intent(in) :: recvcount - type(mpi_datatype), intent(in) :: datatype - type(mpi_op), intent(in) :: op - 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_reduce_scatter_block_init -end interface mpix_reduce_scatter_block_init - -interface mpix_scan_init - subroutine mpix_scan_init(sendbuf, recvbuf, count, & - datatype, op, & - comm, info, request, ierror) - use :: mpi_f08_types, only : mpi_datatype, mpi_op, mpi_comm, mpi_info, mpi_request - implicit none - !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !$PRAGMA IGNORE_TKR sendbuf, recvbuf - !DIR$ IGNORE_TKR sendbuf, recvbuf - !IBM* IGNORE_TKR sendbuf, recvbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf - integer, intent(in) :: count - type(mpi_datatype), intent(in) :: datatype - type(mpi_op), intent(in) :: op - 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_scan_init -end interface mpix_scan_init - -interface mpix_scatter_init - subroutine mpix_scatter_init(sendbuf, sendcount, sendtype, & - recvbuf, recvcount, recvtype, root, & - comm, info, request, ierror) - use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request - implicit none - !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !$PRAGMA IGNORE_TKR sendbuf, recvbuf - !DIR$ IGNORE_TKR sendbuf, recvbuf - !IBM* IGNORE_TKR sendbuf, recvbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf - integer, intent(in) :: sendcount, recvcount, root - type(mpi_datatype), intent(in) :: sendtype, recvtype - 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_scatter_init -end interface mpix_scatter_init - -interface mpix_scatterv_init - subroutine mpix_scatterv_init(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 - implicit none - !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !$PRAGMA IGNORE_TKR sendbuf, recvbuf - !DIR$ IGNORE_TKR sendbuf, recvbuf - !IBM* IGNORE_TKR sendbuf, recvbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf - integer, intent(in) :: recvcount, root - integer, intent(in), asynchronous :: sendcounts(*), displs(*) - type(mpi_datatype), intent(in) :: sendtype, recvtype - 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_scatterv_init -end interface mpix_scatterv_init - -interface mpix_neighbor_allgather_init - subroutine mpix_neighbor_allgather_init(sendbuf, sendcount, sendtype, & - recvbuf, recvcount, recvtype, & - comm, info, request, ierror) - use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request - implicit none - !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !$PRAGMA IGNORE_TKR sendbuf, recvbuf - !DIR$ IGNORE_TKR sendbuf, recvbuf - !IBM* IGNORE_TKR sendbuf, recvbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf - integer, intent(in) :: sendcount, recvcount - type(mpi_datatype), intent(in) :: sendtype, recvtype - 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_neighbor_allgather_init -end interface mpix_neighbor_allgather_init - -interface mpix_neighbor_allgatherv_init - subroutine mpix_neighbor_allgatherv_init(sendbuf, sendcount, sendtype, & - recvbuf, recvcounts, displs, recvtype, & - comm, info, request, ierror) - use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request - implicit none - !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !$PRAGMA IGNORE_TKR sendbuf, recvbuf - !DIR$ IGNORE_TKR sendbuf, recvbuf - !IBM* IGNORE_TKR sendbuf, recvbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf - integer, intent(in) :: sendcount - integer, intent(in), asynchronous :: recvcounts(*), displs(*) - type(mpi_datatype), intent(in) :: sendtype, recvtype - 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_neighbor_allgatherv_init -end interface mpix_neighbor_allgatherv_init - -interface mpix_neighbor_alltoall_init - subroutine mpix_neighbor_alltoall_init(sendbuf, sendcount, sendtype, & - recvbuf, recvcount, recvtype, & - comm, info, request, ierror) - use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request - implicit none - !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !$PRAGMA IGNORE_TKR sendbuf, recvbuf - !DIR$ IGNORE_TKR sendbuf, recvbuf - !IBM* IGNORE_TKR sendbuf, recvbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf - integer, intent(in) :: sendcount, recvcount - type(mpi_datatype), intent(in) :: sendtype, recvtype - 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_neighbor_alltoall_init -end interface mpix_neighbor_alltoall_init - -interface mpix_neighbor_alltoallv_init - subroutine mpix_neighbor_alltoallv_init(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 - implicit none - !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !$PRAGMA IGNORE_TKR sendbuf, recvbuf - !DIR$ IGNORE_TKR sendbuf, recvbuf - !IBM* IGNORE_TKR sendbuf, recvbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf - integer, intent(in), asynchronous :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) - type(mpi_datatype), intent(in) :: sendtype, recvtype - 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_neighbor_alltoallv_init -end interface mpix_neighbor_alltoallv_init - -interface mpix_neighbor_alltoallw_init - subroutine mpix_neighbor_alltoallw_init(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 - implicit none - !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !$PRAGMA IGNORE_TKR sendbuf, recvbuf - !DIR$ IGNORE_TKR sendbuf, recvbuf - !IBM* IGNORE_TKR sendbuf, recvbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf - integer, intent(in), asynchronous :: sendcounts(*), recvcounts(*) - integer(mpi_address_kind), intent(in), asynchronous :: sdispls(*), rdispls(*) - type(mpi_datatype), intent(in), asynchronous :: sendtypes(*), recvtypes(*) - 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_neighbor_alltoallw_init -end interface mpix_neighbor_alltoallw_init - -interface pmpix_allgather_init - subroutine pmpix_allgather_init(sendbuf, sendcount, sendtype, & - recvbuf, recvcount, recvtype, & - comm, info, request, ierror) - use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request - implicit none - !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !$PRAGMA IGNORE_TKR sendbuf, recvbuf - !DIR$ IGNORE_TKR sendbuf, recvbuf - !IBM* IGNORE_TKR sendbuf, recvbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf - integer, intent(in) :: sendcount, recvcount - type(mpi_datatype), intent(in) :: sendtype, recvtype - 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_allgather_init -end interface pmpix_allgather_init - -interface pmpix_allgatherv_init - subroutine pmpix_allgatherv_init(sendbuf, sendcount, sendtype, & - recvbuf, recvcounts, displs, recvtype, & - comm, info, request, ierror) - use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request - implicit none - !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !$PRAGMA IGNORE_TKR sendbuf, recvbuf - !DIR$ IGNORE_TKR sendbuf, recvbuf - !IBM* IGNORE_TKR sendbuf, recvbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf - integer, intent(in) :: sendcount - integer, intent(in), asynchronous :: recvcounts(*), displs(*) - type(mpi_datatype), intent(in) :: sendtype, recvtype - 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_allgatherv_init -end interface pmpix_allgatherv_init - -interface pmpix_allreduce_init - subroutine pmpix_allreduce_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 @@ -568,34 +206,12 @@ 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 interface pmpix_allreduce_init + end subroutine mpix_exscan_init_f08 +end interface mpix_exscan_init -interface pmpix_alltoall_init - subroutine pmpix_alltoall_init(sendbuf, sendcount, sendtype, & - recvbuf, recvcount, recvtype, & - comm, info, request, ierror) - use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request - implicit none - !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !$PRAGMA IGNORE_TKR sendbuf, recvbuf - !DIR$ IGNORE_TKR sendbuf, recvbuf - !IBM* IGNORE_TKR sendbuf, recvbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf - integer, intent(in) :: sendcount, recvcount - type(mpi_datatype), intent(in) :: sendtype, recvtype - 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_alltoall_init -end interface pmpix_alltoall_init - -interface pmpix_alltoallv_init - subroutine pmpix_alltoallv_init(sendbuf, sendcounts, sdispls, sendtype, & - recvbuf, recvcounts, rdispls, recvtype, & +interface mpix_gather_init + 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 implicit none @@ -606,117 +222,19 @@ interface pmpix_alltoallv_init !IBM* IGNORE_TKR sendbuf, recvbuf OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf - integer, intent(in), asynchronous :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) - type(mpi_datatype), intent(in) :: sendtype, recvtype - 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_alltoallv_init -end interface pmpix_alltoallv_init - -interface pmpix_alltoallw_init - subroutine pmpix_alltoallw_init(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 - implicit none - !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !$PRAGMA IGNORE_TKR sendbuf, recvbuf - !DIR$ IGNORE_TKR sendbuf, recvbuf - !IBM* IGNORE_TKR sendbuf, recvbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf - integer, intent(in), asynchronous :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) - type(mpi_datatype), intent(in), asynchronous :: sendtypes(*), recvtypes(*) - 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_alltoallw_init -end interface pmpix_alltoallw_init - -interface pmpix_barrier_init - subroutine pmpix_barrier_init(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 interface pmpix_barrier_init - -interface pmpix_bcast_init - subroutine pmpix_bcast_init(buffer, count, datatype, root, & - comm, info, request, ierror) - use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request - implicit none - !DEC$ ATTRIBUTES NO_ARG_CHECK :: buffer - !GCC$ ATTRIBUTES NO_ARG_CHECK :: buffer - !$PRAGMA IGNORE_TKR buffer - !DIR$ IGNORE_TKR buffer - !IBM* IGNORE_TKR buffer - OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: buffer - integer, intent(in) :: count, root - type(mpi_datatype), intent(in) :: datatype - 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_bcast_init -end interface pmpix_bcast_init - -interface pmpix_exscan_init - subroutine pmpix_exscan_init(sendbuf, recvbuf, count, & - datatype, op, & - comm, info, request, ierror) - use :: mpi_f08_types, only : mpi_datatype, mpi_op, mpi_comm, mpi_info, mpi_request - implicit none - !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !$PRAGMA IGNORE_TKR sendbuf, recvbuf - !DIR$ IGNORE_TKR sendbuf, recvbuf - !IBM* IGNORE_TKR sendbuf, recvbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf - integer, intent(in) :: count - type(mpi_datatype), intent(in) :: datatype - type(mpi_op), intent(in) :: op - 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_exscan_init -end interface pmpix_exscan_init - -interface pmpix_gather_init - subroutine pmpix_gather_init(sendbuf, sendcount, sendtype, & - recvbuf, recvcount, recvtype, root, & - comm, info, request, ierror) - use :: mpi_f08_types, only : mpi_datatype, mpi_comm, mpi_info, mpi_request - implicit none - !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf - !$PRAGMA IGNORE_TKR sendbuf, recvbuf - !DIR$ IGNORE_TKR sendbuf, recvbuf - !IBM* IGNORE_TKR sendbuf, recvbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf integer, intent(in) :: sendcount, recvcount, root type(mpi_datatype), intent(in) :: sendtype, recvtype 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_gather_init -end interface pmpix_gather_init + end subroutine mpix_gather_init_f08 +end interface mpix_gather_init -interface pmpix_gatherv_init - subroutine pmpix_gatherv_init(sendbuf, sendcount, sendtype, & - recvbuf, recvcounts, displs, recvtype, root, & - comm, info, request, ierror) +interface mpix_gatherv_init + 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 implicit none !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf @@ -727,19 +245,19 @@ interface pmpix_gatherv_init OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf integer, intent(in) :: sendcount, root - integer, intent(in) :: recvcounts(*), displs(*) + integer, intent(in), asynchronous :: recvcounts(*), displs(*) type(mpi_datatype), intent(in) :: sendtype, recvtype 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_gatherv_init -end interface pmpix_gatherv_init + end subroutine mpix_gatherv_init_f08 +end interface mpix_gatherv_init -interface pmpix_reduce_init - subroutine pmpix_reduce_init(sendbuf, recvbuf, count, & - datatype, op, root, & - comm, info, request, ierror) +interface mpix_reduce_init + 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 implicit none !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf @@ -756,13 +274,13 @@ 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 interface pmpix_reduce_init + end subroutine mpix_reduce_init_f08 +end interface mpix_reduce_init -interface pmpix_reduce_scatter_init - subroutine pmpix_reduce_scatter_init(sendbuf, recvbuf, recvcounts, & - datatype, op, & - comm, info, request, ierror) +interface mpix_reduce_scatter_init + 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 implicit none !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf @@ -779,13 +297,13 @@ 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 interface pmpix_reduce_scatter_init + end subroutine mpix_reduce_scatter_init_f08 +end interface mpix_reduce_scatter_init -interface pmpix_reduce_scatter_block_init - subroutine pmpix_reduce_scatter_block_init(sendbuf, recvbuf, recvcount, & - datatype, op, & - comm, info, request, ierror) +interface mpix_reduce_scatter_block_init + 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 implicit none !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf @@ -802,13 +320,13 @@ 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 interface pmpix_reduce_scatter_block_init + end subroutine mpix_reduce_scatter_block_init_f08 +end interface mpix_reduce_scatter_block_init -interface pmpix_scan_init - subroutine pmpix_scan_init(sendbuf, recvbuf, count, & - datatype, op, & - comm, info, request, ierror) +interface mpix_scan_init + 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 implicit none !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf @@ -825,13 +343,13 @@ 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 interface pmpix_scan_init + end subroutine mpix_scan_init_f08 +end interface mpix_scan_init -interface pmpix_scatter_init - subroutine pmpix_scatter_init(sendbuf, sendcount, sendtype, & - recvbuf, recvcount, recvtype, root, & - comm, info, request, ierror) +interface mpix_scatter_init + 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 implicit none !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf @@ -847,13 +365,13 @@ 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 interface pmpix_scatter_init + end subroutine mpix_scatter_init_f08 +end interface mpix_scatter_init -interface pmpix_scatterv_init - subroutine pmpix_scatterv_init(sendbuf, sendcounts, displs, sendtype, & - recvbuf, recvcount, recvtype, root, & - comm, info, request, ierror) +interface mpix_scatterv_init + 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 implicit none !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf @@ -870,13 +388,13 @@ 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 interface pmpix_scatterv_init + end subroutine mpix_scatterv_init_f08 +end interface mpix_scatterv_init -interface pmpix_neighbor_allgather_init - subroutine pmpix_neighbor_allgather_init(sendbuf, sendcount, sendtype, & - recvbuf, recvcount, recvtype, & - comm, info, request, ierror) +interface mpix_neighbor_allgather_init + 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 implicit none !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf @@ -892,13 +410,13 @@ 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 interface pmpix_neighbor_allgather_init + end subroutine mpix_neighbor_allgather_init_f08 +end interface mpix_neighbor_allgather_init -interface pmpix_neighbor_allgatherv_init - subroutine pmpix_neighbor_allgatherv_init(sendbuf, sendcount, sendtype, & - recvbuf, recvcounts, displs, recvtype, & - comm, info, request, ierror) +interface mpix_neighbor_allgatherv_init + 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 implicit none !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf @@ -915,13 +433,13 @@ 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 interface pmpix_neighbor_allgatherv_init + end subroutine mpix_neighbor_allgatherv_init_f08 +end interface mpix_neighbor_allgatherv_init -interface pmpix_neighbor_alltoall_init - subroutine pmpix_neighbor_alltoall_init(sendbuf, sendcount, sendtype, & - recvbuf, recvcount, recvtype, & - comm, info, request, ierror) +interface mpix_neighbor_alltoall_init + 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 implicit none !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf @@ -937,13 +455,13 @@ 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 interface pmpix_neighbor_alltoall_init + end subroutine mpix_neighbor_alltoall_init_f08 +end interface mpix_neighbor_alltoall_init -interface pmpix_neighbor_alltoallv_init - subroutine pmpix_neighbor_alltoallv_init(sendbuf, sendcounts, sdispls, sendtype, & - recvbuf, recvcounts, rdispls, recvtype, & - comm, info, request, ierror) +interface mpix_neighbor_alltoallv_init + 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 implicit none !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf @@ -959,13 +477,495 @@ 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 mpix_neighbor_alltoallv_init_f08 +end interface mpix_neighbor_alltoallv_init + +interface mpix_neighbor_alltoallw_init + 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 + implicit none + !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !$PRAGMA IGNORE_TKR sendbuf, recvbuf + !DIR$ IGNORE_TKR sendbuf, recvbuf + !IBM* IGNORE_TKR sendbuf, recvbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf + integer, intent(in), asynchronous :: sendcounts(*), recvcounts(*) + integer(mpi_address_kind), intent(in), asynchronous :: sdispls(*), rdispls(*) + type(mpi_datatype), intent(in), asynchronous :: sendtypes(*), recvtypes(*) + 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_neighbor_alltoallw_init_f08 +end interface mpix_neighbor_alltoallw_init + +interface pmpix_allgather_init + 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 + implicit none + !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !$PRAGMA IGNORE_TKR sendbuf, recvbuf + !DIR$ IGNORE_TKR sendbuf, recvbuf + !IBM* IGNORE_TKR sendbuf, recvbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf + integer, intent(in) :: sendcount, recvcount + type(mpi_datatype), intent(in) :: sendtype, recvtype + 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_allgather_init_f08 +end interface pmpix_allgather_init + +interface pmpix_allgatherv_init + 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 + implicit none + !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !$PRAGMA IGNORE_TKR sendbuf, recvbuf + !DIR$ IGNORE_TKR sendbuf, recvbuf + !IBM* IGNORE_TKR sendbuf, recvbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf + integer, intent(in) :: sendcount + integer, intent(in), asynchronous :: recvcounts(*), displs(*) + type(mpi_datatype), intent(in) :: sendtype, recvtype + 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_allgatherv_init_f08 +end interface pmpix_allgatherv_init + +interface pmpix_allreduce_init + 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 + implicit none + !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !$PRAGMA IGNORE_TKR sendbuf, recvbuf + !DIR$ IGNORE_TKR sendbuf, recvbuf + !IBM* IGNORE_TKR sendbuf, recvbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf + integer, intent(in) :: count + type(mpi_datatype), intent(in) :: datatype + type(mpi_op), intent(in) :: op + 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_allreduce_init_f08 +end interface pmpix_allreduce_init + +interface pmpix_alltoall_init + 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 + implicit none + !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !$PRAGMA IGNORE_TKR sendbuf, recvbuf + !DIR$ IGNORE_TKR sendbuf, recvbuf + !IBM* IGNORE_TKR sendbuf, recvbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf + integer, intent(in) :: sendcount, recvcount + type(mpi_datatype), intent(in) :: sendtype, recvtype + 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_alltoall_init_f08 +end interface pmpix_alltoall_init + +interface pmpix_alltoallv_init + 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 + implicit none + !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !$PRAGMA IGNORE_TKR sendbuf, recvbuf + !DIR$ IGNORE_TKR sendbuf, recvbuf + !IBM* IGNORE_TKR sendbuf, recvbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf + integer, intent(in), asynchronous :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) + type(mpi_datatype), intent(in) :: sendtype, recvtype + 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_alltoallv_init_f08 +end interface pmpix_alltoallv_init + +interface pmpix_alltoallw_init + 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 + implicit none + !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !$PRAGMA IGNORE_TKR sendbuf, recvbuf + !DIR$ IGNORE_TKR sendbuf, recvbuf + !IBM* IGNORE_TKR sendbuf, recvbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf + integer, intent(in), asynchronous :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) + type(mpi_datatype), intent(in), asynchronous :: sendtypes(*), recvtypes(*) + 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_alltoallw_init_f08 +end interface pmpix_alltoallw_init + +interface pmpix_barrier_init + 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_f08 +end interface pmpix_barrier_init + +interface pmpix_bcast_init + 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 + !DEC$ ATTRIBUTES NO_ARG_CHECK :: buffer + !GCC$ ATTRIBUTES NO_ARG_CHECK :: buffer + !$PRAGMA IGNORE_TKR buffer + !DIR$ IGNORE_TKR buffer + !IBM* IGNORE_TKR buffer + OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: buffer + integer, intent(in) :: count, root + type(mpi_datatype), intent(in) :: datatype + 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_bcast_init_f08 +end interface pmpix_bcast_init + +interface pmpix_exscan_init + 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 + implicit none + !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !$PRAGMA IGNORE_TKR sendbuf, recvbuf + !DIR$ IGNORE_TKR sendbuf, recvbuf + !IBM* IGNORE_TKR sendbuf, recvbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf + integer, intent(in) :: count + type(mpi_datatype), intent(in) :: datatype + type(mpi_op), intent(in) :: op + 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_exscan_init_f08 +end interface pmpix_exscan_init + +interface pmpix_gather_init + 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 + implicit none + !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !$PRAGMA IGNORE_TKR sendbuf, recvbuf + !DIR$ IGNORE_TKR sendbuf, recvbuf + !IBM* IGNORE_TKR sendbuf, recvbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf + integer, intent(in) :: sendcount, recvcount, root + type(mpi_datatype), intent(in) :: sendtype, recvtype + 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_gather_init_f08 +end interface pmpix_gather_init + +interface pmpix_gatherv_init + 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 + implicit none + !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !$PRAGMA IGNORE_TKR sendbuf, recvbuf + !DIR$ IGNORE_TKR sendbuf, recvbuf + !IBM* IGNORE_TKR sendbuf, recvbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf + integer, intent(in) :: sendcount, root + integer, intent(in) :: recvcounts(*), displs(*) + type(mpi_datatype), intent(in) :: sendtype, recvtype + 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_gatherv_init_f08 +end interface pmpix_gatherv_init + +interface pmpix_reduce_init + 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 + implicit none + !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !$PRAGMA IGNORE_TKR sendbuf, recvbuf + !DIR$ IGNORE_TKR sendbuf, recvbuf + !IBM* IGNORE_TKR sendbuf, recvbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf + integer, intent(in) :: count, root + type(mpi_datatype), intent(in) :: datatype + type(mpi_op), intent(in) :: op + 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_reduce_init_f08 +end interface pmpix_reduce_init + +interface pmpix_reduce_scatter_init + 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 + implicit none + !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !$PRAGMA IGNORE_TKR sendbuf, recvbuf + !DIR$ IGNORE_TKR sendbuf, recvbuf + !IBM* IGNORE_TKR sendbuf, recvbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf + integer, intent(in), asynchronous :: recvcounts(*) + type(mpi_datatype), intent(in) :: datatype + type(mpi_op), intent(in) :: op + 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_reduce_scatter_init_f08 +end interface pmpix_reduce_scatter_init + +interface pmpix_reduce_scatter_block_init + 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 + implicit none + !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !$PRAGMA IGNORE_TKR sendbuf, recvbuf + !DIR$ IGNORE_TKR sendbuf, recvbuf + !IBM* IGNORE_TKR sendbuf, recvbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf + integer, intent(in) :: recvcount + type(mpi_datatype), intent(in) :: datatype + type(mpi_op), intent(in) :: op + 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_reduce_scatter_block_init_f08 +end interface pmpix_reduce_scatter_block_init + +interface pmpix_scan_init + 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 + implicit none + !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !$PRAGMA IGNORE_TKR sendbuf, recvbuf + !DIR$ IGNORE_TKR sendbuf, recvbuf + !IBM* IGNORE_TKR sendbuf, recvbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf + integer, intent(in) :: count + type(mpi_datatype), intent(in) :: datatype + type(mpi_op), intent(in) :: op + 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_scan_init_f08 +end interface pmpix_scan_init + +interface pmpix_scatter_init + 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 + implicit none + !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !$PRAGMA IGNORE_TKR sendbuf, recvbuf + !DIR$ IGNORE_TKR sendbuf, recvbuf + !IBM* IGNORE_TKR sendbuf, recvbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf + integer, intent(in) :: sendcount, recvcount, root + type(mpi_datatype), intent(in) :: sendtype, recvtype + 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_scatter_init_f08 +end interface pmpix_scatter_init + +interface pmpix_scatterv_init + 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 + implicit none + !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !$PRAGMA IGNORE_TKR sendbuf, recvbuf + !DIR$ IGNORE_TKR sendbuf, recvbuf + !IBM* IGNORE_TKR sendbuf, recvbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf + integer, intent(in) :: recvcount, root + integer, intent(in), asynchronous :: sendcounts(*), displs(*) + type(mpi_datatype), intent(in) :: sendtype, recvtype + 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_scatterv_init_f08 +end interface pmpix_scatterv_init + +interface pmpix_neighbor_allgather_init + 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 + implicit none + !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !$PRAGMA IGNORE_TKR sendbuf, recvbuf + !DIR$ IGNORE_TKR sendbuf, recvbuf + !IBM* IGNORE_TKR sendbuf, recvbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf + integer, intent(in) :: sendcount, recvcount + type(mpi_datatype), intent(in) :: sendtype, recvtype + 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_neighbor_allgather_init_f08 +end interface pmpix_neighbor_allgather_init + +interface pmpix_neighbor_allgatherv_init + 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 + implicit none + !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !$PRAGMA IGNORE_TKR sendbuf, recvbuf + !DIR$ IGNORE_TKR sendbuf, recvbuf + !IBM* IGNORE_TKR sendbuf, recvbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf + integer, intent(in) :: sendcount + integer, intent(in), asynchronous :: recvcounts(*), displs(*) + type(mpi_datatype), intent(in) :: sendtype, recvtype + 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_neighbor_allgatherv_init_f08 +end interface pmpix_neighbor_allgatherv_init + +interface pmpix_neighbor_alltoall_init + 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 + implicit none + !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !$PRAGMA IGNORE_TKR sendbuf, recvbuf + !DIR$ IGNORE_TKR sendbuf, recvbuf + !IBM* IGNORE_TKR sendbuf, recvbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf + integer, intent(in) :: sendcount, recvcount + type(mpi_datatype), intent(in) :: sendtype, recvtype + 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_neighbor_alltoall_init_f08 +end interface pmpix_neighbor_alltoall_init + +interface pmpix_neighbor_alltoallv_init + 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 + implicit none + !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf + !$PRAGMA IGNORE_TKR sendbuf, recvbuf + !DIR$ IGNORE_TKR sendbuf, recvbuf + !IBM* IGNORE_TKR sendbuf, recvbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in), asynchronous :: sendbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, asynchronous :: recvbuf + integer, intent(in), asynchronous :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) + type(mpi_datatype), intent(in) :: sendtype, recvtype + 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_neighbor_alltoallv_init_f08 end interface pmpix_neighbor_alltoallv_init interface pmpix_neighbor_alltoallw_init - subroutine pmpix_neighbor_alltoallw_init(sendbuf, sendcounts, sdispls, sendtypes, & - recvbuf, recvcounts, rdispls, recvtypes, & - comm, info, request, ierror) + 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 implicit none !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf @@ -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