mpiext/pcollreq: Add Fortran use-mpi-f08 bindings
Signed-off-by: Gilles Gouaillardet <gilles@rist.or.jp>
Этот коммит содержится в:
Gilles Gouaillardet
родитель
73e038ec18
Коммит
47351b7fac
@ -210,6 +210,8 @@ EOF
|
||||
! *** THIS FILE IS AUTOMATICALLY GENERATED!
|
||||
! *** Any manual edits will be lost!
|
||||
!
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
module mpi_f08_ext
|
||||
! Even though this is not a useful parameter (cannot be used as a
|
||||
! preprocessor catch) define it to keep the linker from complaining
|
||||
@ -624,7 +626,7 @@ EOF
|
||||
fi
|
||||
|
||||
cat >> $mpiusempif08_ext_h <<EOF
|
||||
include '${srcdir}/ompi/mpiext/$component/use-mpi-f08/$component_header'
|
||||
#include "${srcdir}/ompi/mpiext/$component/use-mpi-f08/$component_header"
|
||||
|
||||
EOF
|
||||
else
|
||||
|
||||
@ -7,4 +7,4 @@
|
||||
# $HEADER$
|
||||
#
|
||||
|
||||
SUBDIRS = c mpif-h use-mpi
|
||||
SUBDIRS = c mpif-h use-mpi use-mpi-f08
|
||||
|
||||
@ -20,6 +20,7 @@ AC_DEFUN([OMPI_MPIEXT_pcollreq_CONFIG],[
|
||||
ompi/mpiext/pcollreq/mpif-h/Makefile
|
||||
ompi/mpiext/pcollreq/mpif-h/profile/Makefile
|
||||
ompi/mpiext/pcollreq/use-mpi/Makefile
|
||||
ompi/mpiext/pcollreq/use-mpi-f08/Makefile
|
||||
])
|
||||
|
||||
AS_IF([test "$ENABLE_pcollreq" = "1" || \
|
||||
|
||||
107
ompi/mpiext/pcollreq/use-mpi-f08/Makefile.am
Обычный файл
107
ompi/mpiext/pcollreq/use-mpi-f08/Makefile.am
Обычный файл
@ -0,0 +1,107 @@
|
||||
#
|
||||
# Copyright (c) 2011-2012 Cisco Systems, Inc. All rights reserved.
|
||||
# Copyright (c) 2017-2018 Research Organization for Information Science
|
||||
# and Technology (RIST). All rights reserved.
|
||||
# Copyright (c) 2018 FUJITSU LIMITED. All rights reserved.
|
||||
# $COPYRIGHT$
|
||||
#
|
||||
# Additional copyrights may follow
|
||||
#
|
||||
# $HEADER$
|
||||
#
|
||||
|
||||
# This file builds the use_mpi_f08-based bindings for MPI extensions. It
|
||||
# is optional in MPI extensions.
|
||||
|
||||
# We must set these #defines and include paths so that the inner OMPI
|
||||
# MPI prototype header files do the Right Thing.
|
||||
AM_FCFLAGS = $(OMPI_FC_MODULE_FLAG)$(top_builddir)/ompi/mpi/fortran/use-mpi-f08/mod \
|
||||
-I$(top_srcdir) $(FCFLAGS_f90)
|
||||
|
||||
# Note that the mpi_f08-based bindings are optional -- they can only
|
||||
# be built if OMPI is also building the Fortran-based bindings. So we
|
||||
# initially set some Makefile macros to empty, and then conditionally
|
||||
# add to them later.
|
||||
noinst_LTLIBRARIES =
|
||||
|
||||
# Use the Automake conditional to know if we're building the mpif.h
|
||||
# bindings.
|
||||
if OMPI_BUILD_FORTRAN_USEMPIF08_BINDINGS
|
||||
|
||||
# If we are, build the convenience libtool library that will be
|
||||
# slurped up into libmpi_usempif08.la.
|
||||
noinst_LTLIBRARIES += libmpiext_pcollreq_usempif08.la
|
||||
|
||||
# Note that no header files are installed; instead,
|
||||
# mpiext_pcollreq_usempif08.h is automatically slurped up into the
|
||||
# mpi_f08_ext module. It must be listed so that it is included in
|
||||
# dist tarballs.
|
||||
noinst_HEADERS = mpiext_pcollreq_usempif08.h
|
||||
|
||||
mpi_api_files = \
|
||||
allgather_init_f08.F90 \
|
||||
allgatherv_init_f08.F90 \
|
||||
allreduce_init_f08.F90 \
|
||||
alltoall_init_f08.F90 \
|
||||
alltoallv_init_f08.F90 \
|
||||
alltoallw_init_f08.F90 \
|
||||
barrier_init_f08.F90 \
|
||||
bcast_init_f08.F90 \
|
||||
exscan_init_f08.F90 \
|
||||
gather_init_f08.F90 \
|
||||
gatherv_init_f08.F90 \
|
||||
reduce_init_f08.F90 \
|
||||
reduce_scatter_block_init_f08.F90 \
|
||||
reduce_scatter_init_f08.F90 \
|
||||
scan_init_f08.F90 \
|
||||
scatter_init_f08.F90 \
|
||||
scatterv_init_f08.F90 \
|
||||
\
|
||||
neighbor_allgather_init_f08.F90 \
|
||||
neighbor_allgatherv_init_f08.F90 \
|
||||
neighbor_alltoall_init_f08.F90 \
|
||||
neighbor_alltoallv_init_f08.F90 \
|
||||
neighbor_alltoallw_init_f08.F90
|
||||
|
||||
pmpi_api_files = \
|
||||
profile/pallgather_init_f08.F90 \
|
||||
profile/pallgatherv_init_f08.F90 \
|
||||
profile/pallreduce_init_f08.F90 \
|
||||
profile/palltoall_init_f08.F90 \
|
||||
profile/palltoallv_init_f08.F90 \
|
||||
profile/palltoallw_init_f08.F90 \
|
||||
profile/pbarrier_init_f08.F90 \
|
||||
profile/pbcast_init_f08.F90 \
|
||||
profile/pexscan_init_f08.F90 \
|
||||
profile/pgather_init_f08.F90 \
|
||||
profile/pgatherv_init_f08.F90 \
|
||||
profile/preduce_init_f08.F90 \
|
||||
profile/preduce_scatter_block_init_f08.F90 \
|
||||
profile/preduce_scatter_init_f08.F90 \
|
||||
profile/pscan_init_f08.F90 \
|
||||
profile/pscatter_init_f08.F90 \
|
||||
profile/pscatterv_init_f08.F90 \
|
||||
\
|
||||
profile/pneighbor_allgather_init_f08.F90 \
|
||||
profile/pneighbor_allgatherv_init_f08.F90 \
|
||||
profile/pneighbor_alltoall_init_f08.F90 \
|
||||
profile/pneighbor_alltoallv_init_f08.F90 \
|
||||
profile/pneighbor_alltoallw_init_f08.F90
|
||||
|
||||
mpi_api_lo_files = $(mpi_api_files:.F90=.lo)
|
||||
pmpi_api_lo_files = $(pmpi_api_files:.F90=.lo)
|
||||
|
||||
$(mpi_api_lo_files): mpiext_pcollreq_f08.lo
|
||||
$(pmpi_api_lo_files): mpiext_pcollreq_f08.lo
|
||||
|
||||
# Sources for the convenience libtool library.
|
||||
libmpiext_pcollreq_usempif08_la_SOURCES = \
|
||||
mpiext_pcollreq_f08.F90 \
|
||||
$(mpi_api_files) \
|
||||
$(pmpi_api_files)
|
||||
|
||||
# Remove the intermediate module file
|
||||
distclean-local:
|
||||
rm -f mpiext_pcollreq_f08.mod
|
||||
|
||||
endif
|
||||
30
ompi/mpiext/pcollreq/use-mpi-f08/allgather_init_f08.F90
Обычный файл
30
ompi/mpiext/pcollreq/use-mpi-f08/allgather_init_f08.F90
Обычный файл
@ -0,0 +1,30 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_allgather_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount, recvcount
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_allgather_init_f(sendbuf,sendcount,sendtype%MPI_VAL,&
|
||||
recvbuf,recvcount,recvtype%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine MPIX_Allgather_init_f08
|
||||
32
ompi/mpiext/pcollreq/use-mpi-f08/allgatherv_init_f08.F90
Обычный файл
32
ompi/mpiext/pcollreq/use-mpi-f08/allgatherv_init_f08.F90
Обычный файл
@ -0,0 +1,32 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_allgatherv_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount
|
||||
INTEGER, INTENT(IN) :: recvcounts(*), displs(*)
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_allgatherv_init_f(sendbuf,sendcount,sendtype%MPI_VAL,recvbuf,recvcounts,&
|
||||
displs,recvtype%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine MPIX_Allgatherv_init_f08
|
||||
30
ompi/mpiext/pcollreq/use-mpi-f08/allreduce_init_f08.F90
Обычный файл
30
ompi/mpiext/pcollreq/use-mpi-f08/allreduce_init_f08.F90
Обычный файл
@ -0,0 +1,30 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_allreduce_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, 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
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_allreduce_init_f(sendbuf,recvbuf,count,datatype%MPI_VAL,&
|
||||
op%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine MPIX_Allreduce_init_f08
|
||||
31
ompi/mpiext/pcollreq/use-mpi-f08/alltoall_init_f08.F90
Обычный файл
31
ompi/mpiext/pcollreq/use-mpi-f08/alltoall_init_f08.F90
Обычный файл
@ -0,0 +1,31 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_alltoall_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount, recvcount
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_alltoall_init_f(sendbuf,sendcount,sendtype%MPI_VAL,recvbuf,&
|
||||
recvcount,recvtype%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine MPIX_Alltoall_init_f08
|
||||
31
ompi/mpiext/pcollreq/use-mpi-f08/alltoallv_init_f08.F90
Обычный файл
31
ompi/mpiext/pcollreq/use-mpi-f08/alltoallv_init_f08.F90
Обычный файл
@ -0,0 +1,31 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_alltoallv_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*)
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_alltoallv_init_f(sendbuf,sendcounts,sdispls,sendtype%MPI_VAL,&
|
||||
recvbuf,recvcounts,rdispls,recvtype%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine MPIX_Alltoallv_init_f08
|
||||
41
ompi/mpiext/pcollreq/use-mpi-f08/alltoallw_init_f08.F90
Обычный файл
41
ompi/mpiext/pcollreq/use-mpi-f08/alltoallw_init_f08.F90
Обычный файл
@ -0,0 +1,41 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2013 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_alltoallw_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*)
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtypes(*)
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtypes(*)
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
! Note that we pass a scalar here for both the sendtypes and
|
||||
! recvtypes arguments, even though the real Alltoallw function
|
||||
! expects an array of integers. This is a hack: we know that
|
||||
! [send|recv]types(1)%MPI_VAL will pass the address of the first
|
||||
! integer in the array of Type(MPI_Datatype) derived types. And
|
||||
! since Type(MPI_Datatype) are exactly memory-equivalent to a
|
||||
! single INTEGER, passing the address of the first one is the same
|
||||
! as passing the address to an array of integers. To be clear: the
|
||||
! back-end ompi_alltoallw_f is expecting a pointer to an array of
|
||||
! integers. So it all works out (but is a hack :-\ ).
|
||||
call ompix_alltoallw_init_f(sendbuf,sendcounts,sdispls,sendtypes(1)%MPI_VAL,&
|
||||
recvbuf,recvcounts,rdispls,recvtypes(1)%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine MPIX_Alltoallw_init_f08
|
||||
23
ompi/mpiext/pcollreq/use-mpi-f08/barrier_init_f08.F90
Обычный файл
23
ompi/mpiext/pcollreq/use-mpi-f08/barrier_init_f08.F90
Обычный файл
@ -0,0 +1,23 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
subroutine MPIX_Barrier_init_f08(comm,info,request,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm, MPI_Info, MPI_Request
|
||||
use :: mpiext_pcollreq_f08, only : ompix_barrier_init_f
|
||||
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
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_barrier_init_f(comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine MPIX_Barrier_init_f08
|
||||
28
ompi/mpiext/pcollreq/use-mpi-f08/bcast_init_f08.F90
Обычный файл
28
ompi/mpiext/pcollreq/use-mpi-f08/bcast_init_f08.F90
Обычный файл
@ -0,0 +1,28 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_bcast_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: 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
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_bcast_init_f(buffer,count,datatype%MPI_VAL,root,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine MPIX_Bcast_init_f08
|
||||
30
ompi/mpiext/pcollreq/use-mpi-f08/exscan_init_f08.F90
Обычный файл
30
ompi/mpiext/pcollreq/use-mpi-f08/exscan_init_f08.F90
Обычный файл
@ -0,0 +1,30 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_exscan_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, 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
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_exscan_init_f(sendbuf,recvbuf,count,datatype%MPI_VAL,&
|
||||
op%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine MPIX_Exscan_init_f08
|
||||
31
ompi/mpiext/pcollreq/use-mpi-f08/gather_init_f08.F90
Обычный файл
31
ompi/mpiext/pcollreq/use-mpi-f08/gather_init_f08.F90
Обычный файл
@ -0,0 +1,31 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_gather_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount, recvcount, root
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_gather_init_f(sendbuf,sendcount,sendtype%MPI_VAL,recvbuf,recvcount,&
|
||||
recvtype%MPI_VAL,root,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine MPIX_Gather_init_f08
|
||||
32
ompi/mpiext/pcollreq/use-mpi-f08/gatherv_init_f08.F90
Обычный файл
32
ompi/mpiext/pcollreq/use-mpi-f08/gatherv_init_f08.F90
Обычный файл
@ -0,0 +1,32 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_gatherv_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount, root
|
||||
INTEGER, INTENT(IN) :: recvcounts(*), displs(*)
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_gatherv_init_f(sendbuf,sendcount,sendtype%MPI_VAL,recvbuf,recvcounts,&
|
||||
displs,recvtype%MPI_VAL,root,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine MPIX_Gatherv_init_f08
|
||||
346
ompi/mpiext/pcollreq/use-mpi-f08/mpiext_pcollreq_f08.F90
Обычный файл
346
ompi/mpiext/pcollreq/use-mpi-f08/mpiext_pcollreq_f08.F90
Обычный файл
@ -0,0 +1,346 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
|
||||
! University Research and Technology
|
||||
! Corporation. All rights reserved.
|
||||
! Copyright (c) 2004-2005 The University of Tennessee and The University
|
||||
! of Tennessee Research Foundation. All rights
|
||||
! reserved.
|
||||
! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
|
||||
! University of Stuttgart. All rights reserved.
|
||||
! Copyright (c) 2004-2005 The Regents of the University of California.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2006-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2016-2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
!
|
||||
! Additional copyrights may follow
|
||||
!
|
||||
! $HEADER$
|
||||
!
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
module mpiext_pcollreq_f08
|
||||
|
||||
use mpi_f08_types
|
||||
use mpi_f08_interfaces ! this module contains the mpi_f08 interface declarations
|
||||
use pmpi_f08_interfaces ! this module contains the pmpi_f08 interface declarations
|
||||
use mpi_f08_callbacks ! this module contains the mpi_f08 attribute callback subroutines
|
||||
use mpi_f08_interfaces_callbacks ! this module contains the mpi_f08 callback interfaces
|
||||
|
||||
interface
|
||||
|
||||
subroutine ompix_allgather_init_f(sendbuf,sendcount,sendtype,recvbuf, &
|
||||
recvcount,recvtype,comm,info,request,ierror) &
|
||||
BIND(C, name="ompix_allgather_init_f")
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount, recvcount
|
||||
INTEGER, INTENT(IN) :: sendtype
|
||||
INTEGER, INTENT(IN) :: recvtype
|
||||
INTEGER, INTENT(IN) :: comm
|
||||
INTEGER, INTENT(IN) :: info
|
||||
INTEGER, INTENT(OUT) :: request
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine ompix_allgather_init_f
|
||||
|
||||
subroutine ompix_allgatherv_init_f(sendbuf,sendcount,sendtype,recvbuf, &
|
||||
recvcounts,displs,recvtype,comm,info,request,ierror) &
|
||||
BIND(C, name="ompix_allgatherv_init_f")
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount
|
||||
INTEGER, INTENT(IN) :: recvcounts(*), displs(*)
|
||||
INTEGER, INTENT(IN) :: sendtype
|
||||
INTEGER, INTENT(IN) :: recvtype
|
||||
INTEGER, INTENT(IN) :: comm
|
||||
INTEGER, INTENT(IN) :: info
|
||||
INTEGER, INTENT(OUT) :: request
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine ompix_allgatherv_init_f
|
||||
|
||||
subroutine ompix_allreduce_init_f(sendbuf,recvbuf,count,datatype,op,comm,info,request,ierror) &
|
||||
BIND(C, name="ompix_allreduce_init_f")
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: count
|
||||
INTEGER, INTENT(IN) :: datatype
|
||||
INTEGER, INTENT(IN) :: op
|
||||
INTEGER, INTENT(IN) :: comm
|
||||
INTEGER, INTENT(IN) :: info
|
||||
INTEGER, INTENT(OUT) :: request
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine ompix_allreduce_init_f
|
||||
|
||||
subroutine ompix_alltoall_init_f(sendbuf,sendcount,sendtype,recvbuf, &
|
||||
recvcount,recvtype,comm,info,request,ierror) &
|
||||
BIND(C, name="ompix_alltoall_init_f")
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount, recvcount
|
||||
INTEGER, INTENT(IN) :: sendtype
|
||||
INTEGER, INTENT(IN) :: recvtype
|
||||
INTEGER, INTENT(IN) :: comm
|
||||
INTEGER, INTENT(IN) :: info
|
||||
INTEGER, INTENT(OUT) :: request
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine ompix_alltoall_init_f
|
||||
|
||||
subroutine ompix_alltoallv_init_f(sendbuf,sendcounts,sdispls,sendtype, &
|
||||
recvbuf,recvcounts,rdispls,recvtype,comm,info,request,ierror) &
|
||||
BIND(C, name="ompix_alltoallv_init_f")
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*)
|
||||
INTEGER, INTENT(IN) :: sendtype
|
||||
INTEGER, INTENT(IN) :: recvtype
|
||||
INTEGER, INTENT(IN) :: comm
|
||||
INTEGER, INTENT(IN) :: info
|
||||
INTEGER, INTENT(OUT) :: request
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine ompix_alltoallv_init_f
|
||||
|
||||
subroutine ompix_alltoallw_init_f(sendbuf,sendcounts,sdispls,sendtypes, &
|
||||
recvbuf,recvcounts,rdispls,recvtypes,comm,info,request,ierror) &
|
||||
BIND(C, name="ompix_alltoallw_init_f")
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*)
|
||||
INTEGER, INTENT(IN) :: sendtypes
|
||||
INTEGER, INTENT(IN) :: recvtypes
|
||||
INTEGER, INTENT(IN) :: comm
|
||||
INTEGER, INTENT(IN) :: info
|
||||
INTEGER, INTENT(OUT) :: request
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine ompix_alltoallw_init_f
|
||||
|
||||
subroutine ompix_barrier_init_f(comm,info,request,ierror) &
|
||||
BIND(C, name="ompix_barrier_init_f")
|
||||
implicit none
|
||||
INTEGER, INTENT(IN) :: comm
|
||||
INTEGER, INTENT(IN) :: info
|
||||
INTEGER, INTENT(OUT) :: request
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine ompix_barrier_init_f
|
||||
|
||||
subroutine ompix_bcast_init_f(buffer,count,datatype,root,comm,info,request,ierror) &
|
||||
BIND(C, name="ompix_bcast_init_f")
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buffer
|
||||
INTEGER, INTENT(IN) :: count, root
|
||||
INTEGER, INTENT(IN) :: datatype
|
||||
INTEGER, INTENT(IN) :: comm
|
||||
INTEGER, INTENT(IN) :: info
|
||||
INTEGER, INTENT(OUT) :: request
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine ompix_bcast_init_f
|
||||
|
||||
subroutine ompix_exscan_init_f(sendbuf,recvbuf,count,datatype,op,comm,info,request,ierror) &
|
||||
BIND(C, name="ompix_exscan_init_f")
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: count
|
||||
INTEGER, INTENT(IN) :: datatype
|
||||
INTEGER, INTENT(IN) :: op
|
||||
INTEGER, INTENT(IN) :: comm
|
||||
INTEGER, INTENT(IN) :: info
|
||||
INTEGER, INTENT(OUT) :: request
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine ompix_exscan_init_f
|
||||
|
||||
subroutine ompix_gather_init_f(sendbuf,sendcount,sendtype,recvbuf, &
|
||||
recvcount,recvtype,root,comm,info,request,ierror) &
|
||||
BIND(C, name="ompix_gather_init_f")
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount, recvcount, root
|
||||
INTEGER, INTENT(IN) :: sendtype
|
||||
INTEGER, INTENT(IN) :: recvtype
|
||||
INTEGER, INTENT(IN) :: comm
|
||||
INTEGER, INTENT(IN) :: info
|
||||
INTEGER, INTENT(OUT) :: request
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine ompix_gather_init_f
|
||||
|
||||
subroutine ompix_gatherv_init_f(sendbuf,sendcount,sendtype,recvbuf, &
|
||||
recvcounts,displs,recvtype,root,comm,info,request,ierror) &
|
||||
BIND(C, name="ompix_gatherv_init_f")
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount, root
|
||||
INTEGER, INTENT(IN) :: recvcounts(*), displs(*)
|
||||
INTEGER, INTENT(IN) :: sendtype
|
||||
INTEGER, INTENT(IN) :: recvtype
|
||||
INTEGER, INTENT(IN) :: comm
|
||||
INTEGER, INTENT(IN) :: info
|
||||
INTEGER, INTENT(OUT) :: request
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine ompix_gatherv_init_f
|
||||
|
||||
subroutine ompix_reduce_init_f(sendbuf,recvbuf,count,datatype,op,root,comm,info,request,ierror) &
|
||||
BIND(C, name="ompix_reduce_init_f")
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: count, root
|
||||
INTEGER, INTENT(IN) :: datatype
|
||||
INTEGER, INTENT(IN) :: op
|
||||
INTEGER, INTENT(IN) :: comm
|
||||
INTEGER, INTENT(IN) :: info
|
||||
INTEGER, INTENT(OUT) :: request
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine ompix_reduce_init_f
|
||||
|
||||
subroutine ompix_reduce_scatter_init_f(sendbuf,recvbuf,recvcounts, &
|
||||
datatype,op,comm,info,request,ierror) &
|
||||
BIND(C, name="ompix_reduce_scatter_init_f")
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: recvcounts(*)
|
||||
INTEGER, INTENT(IN) :: datatype
|
||||
INTEGER, INTENT(IN) :: op
|
||||
INTEGER, INTENT(IN) :: comm
|
||||
INTEGER, INTENT(IN) :: info
|
||||
INTEGER, INTENT(OUT) :: request
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine ompix_reduce_scatter_init_f
|
||||
|
||||
subroutine ompix_reduce_scatter_block_init_f(sendbuf,recvbuf,recvcount, &
|
||||
datatype,op,comm,info,request,ierror) &
|
||||
BIND(C, name="ompix_reduce_scatter_block_init_f")
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: recvcount
|
||||
INTEGER, INTENT(IN) :: datatype
|
||||
INTEGER, INTENT(IN) :: op
|
||||
INTEGER, INTENT(IN) :: comm
|
||||
INTEGER, INTENT(IN) :: info
|
||||
INTEGER, INTENT(OUT) :: request
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine ompix_reduce_scatter_block_init_f
|
||||
|
||||
subroutine ompix_scan_init_f(sendbuf,recvbuf,count,datatype,op,comm,info,request,ierror) &
|
||||
BIND(C, name="ompix_scan_init_f")
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: count
|
||||
INTEGER, INTENT(IN) :: datatype
|
||||
INTEGER, INTENT(IN) :: op
|
||||
INTEGER, INTENT(IN) :: comm
|
||||
INTEGER, INTENT(IN) :: info
|
||||
INTEGER, INTENT(OUT) :: request
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine ompix_scan_init_f
|
||||
|
||||
subroutine ompix_scatter_init_f(sendbuf,sendcount,sendtype,recvbuf, &
|
||||
recvcount,recvtype,root,comm,info,request,ierror) &
|
||||
BIND(C, name="ompix_scatter_init_f")
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount, recvcount, root
|
||||
INTEGER, INTENT(IN) :: sendtype
|
||||
INTEGER, INTENT(IN) :: recvtype
|
||||
INTEGER, INTENT(IN) :: comm
|
||||
INTEGER, INTENT(IN) :: info
|
||||
INTEGER, INTENT(OUT) :: request
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine ompix_scatter_init_f
|
||||
|
||||
subroutine ompix_scatterv_init_f(sendbuf,sendcounts,displs,sendtype, &
|
||||
recvbuf,recvcount,recvtype,root,comm,info,request,ierror) &
|
||||
BIND(C, name="ompix_scatterv_init_f")
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: recvcount, root
|
||||
INTEGER, INTENT(IN) :: sendcounts(*), displs(*)
|
||||
INTEGER, INTENT(IN) :: sendtype
|
||||
INTEGER, INTENT(IN) :: recvtype
|
||||
INTEGER, INTENT(IN) :: comm
|
||||
INTEGER, INTENT(IN) :: info
|
||||
INTEGER, INTENT(OUT) :: request
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine ompix_scatterv_init_f
|
||||
|
||||
subroutine ompix_neighbor_allgather_init_f(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvtype, &
|
||||
comm,info,request,ierror) &
|
||||
BIND(C, name="ompix_neighbor_allgather_init_f")
|
||||
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount, recvcount
|
||||
INTEGER, INTENT(IN) :: sendtype, recvtype
|
||||
INTEGER, INTENT(IN) :: comm
|
||||
INTEGER, INTENT(IN) :: info
|
||||
INTEGER, INTENT(OUT) :: request
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine ompix_neighbor_allgather_init_f
|
||||
|
||||
subroutine ompix_neighbor_allgatherv_init_f(sendbuf,sendcount,sendtype,recvbuf,recvcounts,displs, &
|
||||
recvtype,comm,info,request,ierror) &
|
||||
BIND(C, name="ompix_neighbor_allgatherv_init_f")
|
||||
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount
|
||||
INTEGER, INTENT(IN) :: recvcounts(*), displs(*)
|
||||
INTEGER, INTENT(IN) :: sendtype, recvtype
|
||||
INTEGER, INTENT(IN) :: comm
|
||||
INTEGER, INTENT(IN) :: info
|
||||
INTEGER, INTENT(OUT) :: request
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine ompix_neighbor_allgatherv_init_f
|
||||
|
||||
subroutine ompix_neighbor_alltoall_init_f(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvtype, &
|
||||
comm,info,request,ierror) &
|
||||
BIND(C, name="ompix_neighbor_alltoall_init_f")
|
||||
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount, recvcount
|
||||
INTEGER, INTENT(IN) :: sendtype, recvtype
|
||||
INTEGER, INTENT(IN) :: comm
|
||||
INTEGER, INTENT(IN) :: info
|
||||
INTEGER, INTENT(OUT) :: request
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine ompix_neighbor_alltoall_init_f
|
||||
|
||||
subroutine ompix_neighbor_alltoallv_init_f(sendbuf,sendcounts,sdispls,sendtype,recvbuf,recvcounts, &
|
||||
rdispls,recvtype,comm,info,request,ierror) &
|
||||
BIND(C, name="ompix_neighbor_alltoallv_init_f")
|
||||
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*)
|
||||
INTEGER, INTENT(IN) :: sendtype, recvtype
|
||||
INTEGER, INTENT(IN) :: comm
|
||||
INTEGER, INTENT(IN) :: info
|
||||
INTEGER, INTENT(OUT) :: request
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine ompix_neighbor_alltoallv_init_f
|
||||
|
||||
subroutine ompix_neighbor_alltoallw_init_f(sendbuf,sendcounts,sdispls,sendtypes,recvbuf,recvcounts, &
|
||||
rdispls,recvtypes,comm,info,request,ierror) &
|
||||
BIND(C, name="ompix_neighbor_alltoallw_init_f")
|
||||
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request, MPI_ADDRESS_KIND
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcounts(*), recvcounts(*)
|
||||
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: sdispls(*), rdispls(*)
|
||||
INTEGER, INTENT(IN) :: sendtypes, recvtypes
|
||||
INTEGER, INTENT(IN) :: comm
|
||||
INTEGER, INTENT(IN) :: info
|
||||
INTEGER, INTENT(OUT) :: request
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine ompix_neighbor_alltoallw_init_f
|
||||
|
||||
end interface
|
||||
|
||||
end module mpiext_pcollreq_f08
|
||||
986
ompi/mpiext/pcollreq/use-mpi-f08/mpiext_pcollreq_usempif08.h
Обычный файл
986
ompi/mpiext/pcollreq/use-mpi-f08/mpiext_pcollreq_usempif08.h
Обычный файл
@ -0,0 +1,986 @@
|
||||
! -*- fortran -*-
|
||||
!
|
||||
! Copyright (c) 2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2018 FUJITSU LIMITED. All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
!
|
||||
! Additional copyrights may follow
|
||||
!
|
||||
! $HEADER$
|
||||
!
|
||||
|
||||
! This whole file will be included in the mpi_f08_ext module interface
|
||||
! section. Note that the extension's mpif.h file will be included
|
||||
! first, so there's no need to re-define anything that's in there (e.g.,
|
||||
! OMPI_EXAMPLE_GLOBAL).
|
||||
|
||||
! Declare any interfaces, subroutines, and global variables/constants
|
||||
! here. Note that the mpiext_example_mpif.h will automatically be
|
||||
! included before this, so anything declared there does not need to be
|
||||
! replicated here.
|
||||
|
||||
interface mpix_allgather_init
|
||||
subroutine mpix_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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: 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_allgather_init
|
||||
end interface mpix_allgather_init
|
||||
|
||||
interface mpix_allgatherv_init
|
||||
subroutine mpix_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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
|
||||
integer, intent(in) :: sendcount
|
||||
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 mpix_allgatherv_init
|
||||
end interface mpix_allgatherv_init
|
||||
|
||||
interface mpix_allreduce_init
|
||||
subroutine mpix_allreduce_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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: 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_allreduce_init
|
||||
end interface mpix_allreduce_init
|
||||
|
||||
interface mpix_alltoall_init
|
||||
subroutine mpix_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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: 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_alltoall_init
|
||||
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)
|
||||
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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
|
||||
integer, intent(in) :: 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_alltoallv_init
|
||||
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)
|
||||
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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
|
||||
integer, intent(in) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*)
|
||||
type(mpi_datatype), intent(in) :: 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_alltoallw_init
|
||||
end interface mpix_alltoallw_init
|
||||
|
||||
interface mpix_barrier_init
|
||||
subroutine mpix_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 mpix_barrier_init
|
||||
end interface mpix_barrier_init
|
||||
|
||||
interface mpix_bcast_init
|
||||
subroutine mpix_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 :: 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 mpix_bcast_init
|
||||
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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: 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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: 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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: 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 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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: 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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
|
||||
integer, intent(in) :: 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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: 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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: 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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: 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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
|
||||
integer, intent(in) :: recvcount, root
|
||||
integer, intent(in) :: 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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: 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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
|
||||
integer, intent(in) :: sendcount
|
||||
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 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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: 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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
|
||||
integer, intent(in) :: 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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
|
||||
integer, intent(in) :: sendcounts(*), recvcounts(*)
|
||||
integer(mpi_address_kind), intent(in) :: sdispls(*), rdispls(*)
|
||||
type(mpi_datatype), intent(in) :: 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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: 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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
|
||||
integer, intent(in) :: sendcount
|
||||
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_allgatherv_init
|
||||
end interface pmpix_allgatherv_init
|
||||
|
||||
interface pmpix_allreduce_init
|
||||
subroutine pmpix_allreduce_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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: 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
|
||||
end interface pmpix_allreduce_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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: 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, &
|
||||
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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
|
||||
integer, intent(in) :: 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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
|
||||
integer, intent(in) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*)
|
||||
type(mpi_datatype), intent(in) :: 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 :: 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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: 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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: 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
|
||||
|
||||
interface pmpix_gatherv_init
|
||||
subroutine pmpix_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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: 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
|
||||
end interface pmpix_gatherv_init
|
||||
|
||||
interface pmpix_reduce_init
|
||||
subroutine pmpix_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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: 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
|
||||
end interface pmpix_reduce_init
|
||||
|
||||
interface pmpix_reduce_scatter_init
|
||||
subroutine pmpix_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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
|
||||
integer, intent(in) :: 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
|
||||
end interface pmpix_reduce_scatter_init
|
||||
|
||||
interface pmpix_reduce_scatter_block_init
|
||||
subroutine pmpix_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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: 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
|
||||
end interface pmpix_reduce_scatter_block_init
|
||||
|
||||
interface pmpix_scan_init
|
||||
subroutine pmpix_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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: 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
|
||||
end interface pmpix_scan_init
|
||||
|
||||
interface pmpix_scatter_init
|
||||
subroutine pmpix_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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: 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
|
||||
end interface pmpix_scatter_init
|
||||
|
||||
interface pmpix_scatterv_init
|
||||
subroutine pmpix_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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
|
||||
integer, intent(in) :: recvcount, root
|
||||
integer, intent(in) :: 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
|
||||
end interface pmpix_scatterv_init
|
||||
|
||||
interface pmpix_neighbor_allgather_init
|
||||
subroutine pmpix_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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: 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
|
||||
end interface pmpix_neighbor_allgather_init
|
||||
|
||||
interface pmpix_neighbor_allgatherv_init
|
||||
subroutine pmpix_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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
|
||||
integer, intent(in) :: sendcount
|
||||
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_neighbor_allgatherv_init
|
||||
end interface pmpix_neighbor_allgatherv_init
|
||||
|
||||
interface pmpix_neighbor_alltoall_init
|
||||
subroutine pmpix_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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: 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
|
||||
end interface pmpix_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)
|
||||
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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
|
||||
integer, intent(in) :: 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
|
||||
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)
|
||||
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) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
|
||||
integer, intent(in) :: sendcounts(*), recvcounts(*)
|
||||
integer(mpi_address_kind), intent(in) :: sdispls(*), rdispls(*)
|
||||
type(mpi_datatype), intent(in) :: 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_neighbor_alltoallw_init
|
||||
end interface pmpix_neighbor_alltoallw_init
|
||||
30
ompi/mpiext/pcollreq/use-mpi-f08/neighbor_allgather_init_f08.F90
Обычный файл
30
ompi/mpiext/pcollreq/use-mpi-f08/neighbor_allgather_init_f08.F90
Обычный файл
@ -0,0 +1,30 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2013 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_neighbor_allgather_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount, recvcount
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_neighbor_allgather_init_f(sendbuf,sendcount,sendtype%MPI_VAL,&
|
||||
recvbuf,recvcount,recvtype%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine MPIX_Neighbor_allgather_init_f08
|
||||
@ -0,0 +1,32 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2013 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_neighbor_allgatherv_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount
|
||||
INTEGER, INTENT(IN) :: recvcounts(*), displs(*)
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_neighbor_allgatherv_init_f(sendbuf,sendcount,sendtype%MPI_VAL,recvbuf,recvcounts,&
|
||||
displs,recvtype%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine MPIX_Neighbor_allgatherv_init_f08
|
||||
31
ompi/mpiext/pcollreq/use-mpi-f08/neighbor_alltoall_init_f08.F90
Обычный файл
31
ompi/mpiext/pcollreq/use-mpi-f08/neighbor_alltoall_init_f08.F90
Обычный файл
@ -0,0 +1,31 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2013 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_neighbor_alltoall_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount, recvcount
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_neighbor_alltoall_init_f(sendbuf,sendcount,sendtype%MPI_VAL,recvbuf,&
|
||||
recvcount,recvtype%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine MPIX_Neighbor_alltoall_init_f08
|
||||
32
ompi/mpiext/pcollreq/use-mpi-f08/neighbor_alltoallv_init_f08.F90
Обычный файл
32
ompi/mpiext/pcollreq/use-mpi-f08/neighbor_alltoallv_init_f08.F90
Обычный файл
@ -0,0 +1,32 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2013 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_neighbor_alltoallv_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*)
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_neighbor_alltoallv_init_f(sendbuf,sendcounts,sdispls,sendtype%MPI_VAL,&
|
||||
recvbuf,recvcounts,rdispls,recvtype%MPI_VAL,&
|
||||
comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine MPIX_Neighbor_alltoallv_init_f08
|
||||
34
ompi/mpiext/pcollreq/use-mpi-f08/neighbor_alltoallw_init_f08.F90
Обычный файл
34
ompi/mpiext/pcollreq/use-mpi-f08/neighbor_alltoallw_init_f08.F90
Обычный файл
@ -0,0 +1,34 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2013 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2013 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
subroutine MPIX_Neighbor_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, MPI_ADDRESS_KIND
|
||||
use :: mpiext_pcollreq_f08, only : ompix_neighbor_alltoallw_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcounts(*), recvcounts(*)
|
||||
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: sdispls(*), rdispls(*)
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtypes(*)
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtypes(*)
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_neighbor_alltoallw_init_f(sendbuf,sendcounts,sdispls,sendtypes(1)%MPI_VAL,&
|
||||
recvbuf,recvcounts,rdispls,recvtypes(1)%MPI_VAL,&
|
||||
comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine MPIX_Neighbor_alltoallw_init_f08
|
||||
30
ompi/mpiext/pcollreq/use-mpi-f08/profile/pallgather_init_f08.F90
Обычный файл
30
ompi/mpiext/pcollreq/use-mpi-f08/profile/pallgather_init_f08.F90
Обычный файл
@ -0,0 +1,30 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_allgather_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount, recvcount
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_allgather_init_f(sendbuf,sendcount,sendtype%MPI_VAL,&
|
||||
recvbuf,recvcount,recvtype%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine PMPIX_Allgather_init_f08
|
||||
@ -0,0 +1,32 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_allgatherv_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount
|
||||
INTEGER, INTENT(IN) :: recvcounts(*), displs(*)
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_allgatherv_init_f(sendbuf,sendcount,sendtype%MPI_VAL,recvbuf,recvcounts,&
|
||||
displs,recvtype%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine PMPIX_Allgatherv_init_f08
|
||||
30
ompi/mpiext/pcollreq/use-mpi-f08/profile/pallreduce_init_f08.F90
Обычный файл
30
ompi/mpiext/pcollreq/use-mpi-f08/profile/pallreduce_init_f08.F90
Обычный файл
@ -0,0 +1,30 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_allreduce_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, 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
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_allreduce_init_f(sendbuf,recvbuf,count,datatype%MPI_VAL,&
|
||||
op%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine PMPIX_Allreduce_init_f08
|
||||
31
ompi/mpiext/pcollreq/use-mpi-f08/profile/palltoall_init_f08.F90
Обычный файл
31
ompi/mpiext/pcollreq/use-mpi-f08/profile/palltoall_init_f08.F90
Обычный файл
@ -0,0 +1,31 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_alltoall_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount, recvcount
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_alltoall_init_f(sendbuf,sendcount,sendtype%MPI_VAL,recvbuf,&
|
||||
recvcount,recvtype%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine PMPIX_Alltoall_init_f08
|
||||
31
ompi/mpiext/pcollreq/use-mpi-f08/profile/palltoallv_init_f08.F90
Обычный файл
31
ompi/mpiext/pcollreq/use-mpi-f08/profile/palltoallv_init_f08.F90
Обычный файл
@ -0,0 +1,31 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_alltoallv_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*)
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_alltoallv_init_f(sendbuf,sendcounts,sdispls,sendtype%MPI_VAL,&
|
||||
recvbuf,recvcounts,rdispls,recvtype%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine PMPIX_Alltoallv_init_f08
|
||||
41
ompi/mpiext/pcollreq/use-mpi-f08/profile/palltoallw_init_f08.F90
Обычный файл
41
ompi/mpiext/pcollreq/use-mpi-f08/profile/palltoallw_init_f08.F90
Обычный файл
@ -0,0 +1,41 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2013 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_alltoallw_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*)
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtypes(*)
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtypes(*)
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
! Note that we pass a scalar here for both the sendtypes and
|
||||
! recvtypes arguments, even though the real Alltoallw function
|
||||
! expects an array of integers. This is a hack: we know that
|
||||
! [send|recv]types(1)%MPI_VAL will pass the address of the first
|
||||
! integer in the array of Type(MPI_Datatype) derived types. And
|
||||
! since Type(MPI_Datatype) are exactly memory-equivalent to a
|
||||
! single INTEGER, passing the address of the first one is the same
|
||||
! as passing the address to an array of integers. To be clear: the
|
||||
! back-end ompi_alltoallw_f is expecting a pointer to an array of
|
||||
! integers. So it all works out (but is a hack :-\ ).
|
||||
call ompix_alltoallw_init_f(sendbuf,sendcounts,sdispls,sendtypes(1)%MPI_VAL,&
|
||||
recvbuf,recvcounts,rdispls,recvtypes(1)%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine PMPIX_Alltoallw_init_f08
|
||||
23
ompi/mpiext/pcollreq/use-mpi-f08/profile/pbarrier_init_f08.F90
Обычный файл
23
ompi/mpiext/pcollreq/use-mpi-f08/profile/pbarrier_init_f08.F90
Обычный файл
@ -0,0 +1,23 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
subroutine PMPIX_Barrier_init_f08(comm,info,request,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm, MPI_Info, MPI_Request
|
||||
use :: mpiext_pcollreq_f08, only : ompix_barrier_init_f
|
||||
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
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_barrier_init_f(comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine PMPIX_Barrier_init_f08
|
||||
28
ompi/mpiext/pcollreq/use-mpi-f08/profile/pbcast_init_f08.F90
Обычный файл
28
ompi/mpiext/pcollreq/use-mpi-f08/profile/pbcast_init_f08.F90
Обычный файл
@ -0,0 +1,28 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_bcast_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: 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
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_bcast_init_f(buffer,count,datatype%MPI_VAL,root,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine PMPIX_Bcast_init_f08
|
||||
30
ompi/mpiext/pcollreq/use-mpi-f08/profile/pexscan_init_f08.F90
Обычный файл
30
ompi/mpiext/pcollreq/use-mpi-f08/profile/pexscan_init_f08.F90
Обычный файл
@ -0,0 +1,30 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_exscan_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, 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
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_exscan_init_f(sendbuf,recvbuf,count,datatype%MPI_VAL,&
|
||||
op%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine PMPIX_Exscan_init_f08
|
||||
31
ompi/mpiext/pcollreq/use-mpi-f08/profile/pgather_init_f08.F90
Обычный файл
31
ompi/mpiext/pcollreq/use-mpi-f08/profile/pgather_init_f08.F90
Обычный файл
@ -0,0 +1,31 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_gather_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount, recvcount, root
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_gather_init_f(sendbuf,sendcount,sendtype%MPI_VAL,recvbuf,recvcount,&
|
||||
recvtype%MPI_VAL,root,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine PMPIX_Gather_init_f08
|
||||
32
ompi/mpiext/pcollreq/use-mpi-f08/profile/pgatherv_init_f08.F90
Обычный файл
32
ompi/mpiext/pcollreq/use-mpi-f08/profile/pgatherv_init_f08.F90
Обычный файл
@ -0,0 +1,32 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_gatherv_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount, root
|
||||
INTEGER, INTENT(IN) :: recvcounts(*), displs(*)
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_gatherv_init_f(sendbuf,sendcount,sendtype%MPI_VAL,recvbuf,recvcounts,&
|
||||
displs,recvtype%MPI_VAL,root,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine PMPIX_Gatherv_init_f08
|
||||
@ -0,0 +1,30 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2013 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_neighbor_allgather_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount, recvcount
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_neighbor_allgather_init_f(sendbuf,sendcount,sendtype%MPI_VAL,&
|
||||
recvbuf,recvcount,recvtype%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine PMPIX_Neighbor_allgather_init_f08
|
||||
@ -0,0 +1,32 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2013 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_neighbor_allgatherv_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount
|
||||
INTEGER, INTENT(IN) :: recvcounts(*), displs(*)
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_neighbor_allgatherv_init_f(sendbuf,sendcount,sendtype%MPI_VAL,recvbuf,recvcounts,&
|
||||
displs,recvtype%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine PMPIX_Neighbor_allgatherv_init_f08
|
||||
@ -0,0 +1,31 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2013 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_neighbor_alltoall_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount, recvcount
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_neighbor_alltoall_init_f(sendbuf,sendcount,sendtype%MPI_VAL,recvbuf,&
|
||||
recvcount,recvtype%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine PMPIX_Neighbor_alltoall_init_f08
|
||||
@ -0,0 +1,32 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2013 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_neighbor_alltoallv_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*)
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_neighbor_alltoallv_init_f(sendbuf,sendcounts,sdispls,sendtype%MPI_VAL,&
|
||||
recvbuf,recvcounts,rdispls,recvtype%MPI_VAL,&
|
||||
comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine PMPIX_Neighbor_alltoallv_init_f08
|
||||
@ -0,0 +1,34 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2013 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2013 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
subroutine PMPIX_Neighbor_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, MPI_ADDRESS_KIND
|
||||
use :: mpiext_pcollreq_f08, only : ompix_neighbor_alltoallw_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcounts(*), recvcounts(*)
|
||||
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: sdispls(*), rdispls(*)
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtypes(*)
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtypes(*)
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_neighbor_alltoallw_init_f(sendbuf,sendcounts,sdispls,sendtypes(1)%MPI_VAL,&
|
||||
recvbuf,recvcounts,rdispls,recvtypes(1)%MPI_VAL,&
|
||||
comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine PMPIX_Neighbor_alltoallw_init_f08
|
||||
30
ompi/mpiext/pcollreq/use-mpi-f08/profile/preduce_init_f08.F90
Обычный файл
30
ompi/mpiext/pcollreq/use-mpi-f08/profile/preduce_init_f08.F90
Обычный файл
@ -0,0 +1,30 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_reduce_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, 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
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_reduce_init_f(sendbuf,recvbuf,count,datatype%MPI_VAL,&
|
||||
op%MPI_VAL,root,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine PMPIX_Reduce_init_f08
|
||||
@ -0,0 +1,30 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_reduce_scatter_block_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, 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
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_reduce_scatter_block_init_f(sendbuf,recvbuf,recvcount,&
|
||||
datatype%MPI_VAL,op%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine PMPIX_Reduce_scatter_block_init_f08
|
||||
@ -0,0 +1,30 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_reduce_scatter_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: 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
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_reduce_scatter_init_f(sendbuf,recvbuf,recvcounts,datatype%MPI_VAL,&
|
||||
op%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine PMPIX_Reduce_scatter_init_f08
|
||||
30
ompi/mpiext/pcollreq/use-mpi-f08/profile/pscan_init_f08.F90
Обычный файл
30
ompi/mpiext/pcollreq/use-mpi-f08/profile/pscan_init_f08.F90
Обычный файл
@ -0,0 +1,30 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_scan_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, 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
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_scan_init_f(sendbuf,recvbuf,count,datatype%MPI_VAL,&
|
||||
op%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine PMPIX_Scan_init_f08
|
||||
31
ompi/mpiext/pcollreq/use-mpi-f08/profile/pscatter_init_f08.F90
Обычный файл
31
ompi/mpiext/pcollreq/use-mpi-f08/profile/pscatter_init_f08.F90
Обычный файл
@ -0,0 +1,31 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_scatter_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount, recvcount, root
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_scatter_init_f(sendbuf,sendcount,sendtype%MPI_VAL,recvbuf,recvcount,&
|
||||
recvtype%MPI_VAL,root,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine PMPIX_Scatter_init_f08
|
||||
32
ompi/mpiext/pcollreq/use-mpi-f08/profile/pscatterv_init_f08.F90
Обычный файл
32
ompi/mpiext/pcollreq/use-mpi-f08/profile/pscatterv_init_f08.F90
Обычный файл
@ -0,0 +1,32 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_scatterv_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: recvcount, root
|
||||
INTEGER, INTENT(IN) :: sendcounts(*), displs(*)
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_scatterv_init_f(sendbuf,sendcounts,displs,sendtype%MPI_VAL,recvbuf,&
|
||||
recvcount,recvtype%MPI_VAL,root,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine PMPIX_Scatterv_init_f08
|
||||
30
ompi/mpiext/pcollreq/use-mpi-f08/reduce_init_f08.F90
Обычный файл
30
ompi/mpiext/pcollreq/use-mpi-f08/reduce_init_f08.F90
Обычный файл
@ -0,0 +1,30 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_reduce_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, 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
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_reduce_init_f(sendbuf,recvbuf,count,datatype%MPI_VAL,&
|
||||
op%MPI_VAL,root,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine MPIX_Reduce_init_f08
|
||||
@ -0,0 +1,30 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_reduce_scatter_block_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, 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
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_reduce_scatter_block_init_f(sendbuf,recvbuf,recvcount,&
|
||||
datatype%MPI_VAL,op%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine MPIX_Reduce_scatter_block_init_f08
|
||||
30
ompi/mpiext/pcollreq/use-mpi-f08/reduce_scatter_init_f08.F90
Обычный файл
30
ompi/mpiext/pcollreq/use-mpi-f08/reduce_scatter_init_f08.F90
Обычный файл
@ -0,0 +1,30 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_reduce_scatter_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: 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
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_reduce_scatter_init_f(sendbuf,recvbuf,recvcounts,datatype%MPI_VAL,&
|
||||
op%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine MPIX_Reduce_scatter_init_f08
|
||||
30
ompi/mpiext/pcollreq/use-mpi-f08/scan_init_f08.F90
Обычный файл
30
ompi/mpiext/pcollreq/use-mpi-f08/scan_init_f08.F90
Обычный файл
@ -0,0 +1,30 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_scan_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, 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
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_scan_init_f(sendbuf,recvbuf,count,datatype%MPI_VAL,&
|
||||
op%MPI_VAL,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine MPIX_Scan_init_f08
|
||||
31
ompi/mpiext/pcollreq/use-mpi-f08/scatter_init_f08.F90
Обычный файл
31
ompi/mpiext/pcollreq/use-mpi-f08/scatter_init_f08.F90
Обычный файл
@ -0,0 +1,31 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_scatter_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: sendcount, recvcount, root
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_scatter_init_f(sendbuf,sendcount,sendtype%MPI_VAL,recvbuf,recvcount,&
|
||||
recvtype%MPI_VAL,root,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine MPIX_Scatter_init_f08
|
||||
32
ompi/mpiext/pcollreq/use-mpi-f08/scatterv_init_f08.F90
Обычный файл
32
ompi/mpiext/pcollreq/use-mpi-f08/scatterv_init_f08.F90
Обычный файл
@ -0,0 +1,32 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
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
|
||||
use :: mpiext_pcollreq_f08, only : ompix_scatterv_init_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
|
||||
INTEGER, INTENT(IN) :: recvcount, root
|
||||
INTEGER, INTENT(IN) :: sendcounts(*), displs(*)
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
|
||||
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
|
||||
TYPE(MPI_Comm), INTENT(IN) :: comm
|
||||
TYPE(MPI_Info), INTENT(IN) :: info
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
||||
call ompix_scatterv_init_f(sendbuf,sendcounts,displs,sendtype%MPI_VAL,recvbuf,&
|
||||
recvcount,recvtype%MPI_VAL,root,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine MPIX_Scatterv_init_f08
|
||||
Загрузка…
x
Ссылка в новой задаче
Block a user