From 73e038ec18e7a9fd36a3a1ea2e64d2f09d9bb100 Mon Sep 17 00:00:00 2001
From: "Kurita, Takehiro" <fj6370fp@aa.jp.fujitsu.com>
Date: Fri, 13 Jul 2018 21:10:02 +0900
Subject: [PATCH] mpiext/pcollreq: Add Fortran use-mpi bindings

Signed-off-by: Kurita, Takehiro <fj6370fp@aa.jp.fujitsu.com>
---
 config/ompi_ext.m4                            |   4 +-
 ompi/mpiext/pcollreq/Makefile.am              |   4 +-
 ompi/mpiext/pcollreq/configure.m4             |   3 +-
 ompi/mpiext/pcollreq/use-mpi/Makefile.am      |  16 +
 .../pcollreq/use-mpi/mpiext_pcollreq_usempi.h | 983 ++++++++++++++++++
 5 files changed, 1006 insertions(+), 4 deletions(-)
 create mode 100644 ompi/mpiext/pcollreq/use-mpi/Makefile.am
 create mode 100644 ompi/mpiext/pcollreq/use-mpi/mpiext_pcollreq_usempi.h

diff --git a/config/ompi_ext.m4 b/config/ompi_ext.m4
index 5f857a403c..9162dfa8ac 100644
--- a/config/ompi_ext.m4
+++ b/config/ompi_ext.m4
@@ -168,6 +168,8 @@ EOF
 ! *** THIS FILE IS AUTOMATICALLY GENERATED!
 ! *** Any manual edits will be lost!
 !
+#include "ompi/mpi/fortran/configure-fortran-output.h"
+
 module mpi_ext
 !     Even though this is not a useful parameter (cannot be used as a
 !     preprocessor catch) define it to keep the linker from complaining
@@ -569,7 +571,7 @@ EOF
         fi
 
         cat >> $mpiusempi_ext_h <<EOF
-      include '${srcdir}/ompi/mpiext/$component/use-mpi/$component_header'
+#include "${srcdir}/ompi/mpiext/$component/use-mpi/$component_header"
 
 EOF
     else
diff --git a/ompi/mpiext/pcollreq/Makefile.am b/ompi/mpiext/pcollreq/Makefile.am
index 8ba16aba09..8b7a110661 100644
--- a/ompi/mpiext/pcollreq/Makefile.am
+++ b/ompi/mpiext/pcollreq/Makefile.am
@@ -1,5 +1,5 @@
 #
-# Copyright (c) 2017      FUJITSU LIMITED.  All rights reserved.
+# Copyright (c) 2017-2018 FUJITSU LIMITED.  All rights reserved.
 # $COPYRIGHT$
 #
 # Additional copyrights may follow
@@ -7,4 +7,4 @@
 # $HEADER$
 #
 
-SUBDIRS = c mpif-h
+SUBDIRS = c mpif-h use-mpi
diff --git a/ompi/mpiext/pcollreq/configure.m4 b/ompi/mpiext/pcollreq/configure.m4
index c8dd8f63c1..c27300445b 100644
--- a/ompi/mpiext/pcollreq/configure.m4
+++ b/ompi/mpiext/pcollreq/configure.m4
@@ -1,6 +1,6 @@
 # -*- shell-script -*-
 #
-# Copyright (c) 2017      FUJITSU LIMITED.  All rights reserved.
+# Copyright (c) 2017-2018 FUJITSU LIMITED.  All rights reserved.
 # Copyright (c) 2018      Research Organization for Information Science
 #                         and Technology (RIST). All rights reserved.
 # $COPYRIGHT$
@@ -19,6 +19,7 @@ AC_DEFUN([OMPI_MPIEXT_pcollreq_CONFIG],[
         ompi/mpiext/pcollreq/c/profile/Makefile
         ompi/mpiext/pcollreq/mpif-h/Makefile
         ompi/mpiext/pcollreq/mpif-h/profile/Makefile
+        ompi/mpiext/pcollreq/use-mpi/Makefile
     ])
 
     AS_IF([test "$ENABLE_pcollreq" = "1" || \
diff --git a/ompi/mpiext/pcollreq/use-mpi/Makefile.am b/ompi/mpiext/pcollreq/use-mpi/Makefile.am
new file mode 100644
index 0000000000..225ffa8d58
--- /dev/null
+++ b/ompi/mpiext/pcollreq/use-mpi/Makefile.am
@@ -0,0 +1,16 @@
+#
+# Copyright (c) 2011-2012 Cisco Systems, Inc.  All rights reserved.
+# Copyright (c) 2018 FUJITSU LIMITED.  All rights reserved.
+# $COPYRIGHT$
+#
+# Additional copyrights may follow
+#
+# $HEADER$
+#
+
+# There's nothing to build or install for the "use mpi" bindings for
+# this MPI extension.  However, we must list the header file that will
+# be slurped up to be part of the mpi_ext Fortran module so that it is
+# included in dist tarballs.
+
+noinst_HEADERS = mpiext_pcollreq_usempi.h
diff --git a/ompi/mpiext/pcollreq/use-mpi/mpiext_pcollreq_usempi.h b/ompi/mpiext/pcollreq/use-mpi/mpiext_pcollreq_usempi.h
new file mode 100644
index 0000000000..f083470d18
--- /dev/null
+++ b/ompi/mpiext/pcollreq/use-mpi/mpiext_pcollreq_usempi.h
@@ -0,0 +1,983 @@
+! -*- 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_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)
+        !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) :: sendtype
+        integer, intent(in) :: recvcount
+        integer, intent(in) :: recvtype
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine mpix_allgather_init
+end interface mpix_allgather_init
+
+interface pmpix_allgather_init
+    subroutine pmpix_allgather_init(sendbuf, sendcount, sendtype, &
+                                    recvbuf, recvcount, recvtype, &
+                                    comm, info, request, ierror)
+        !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) :: sendtype
+        integer, intent(in) :: recvcount
+        integer, intent(in) :: recvtype
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine pmpix_allgather_init
+end interface pmpix_allgather_init
+
+interface mpix_allgatherv_init
+    subroutine mpix_allgatherv_init(sendbuf, sendcount, sendtype, &
+                                    recvbuf, recvcounts, displs, recvtype, &
+                                    comm, info, request, ierror)
+        !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) :: sendtype
+        integer, dimension(*), intent(in) :: recvcounts
+        integer, dimension(*), intent(in) :: displs
+        integer, intent(in) :: recvtype
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine mpix_allgatherv_init
+end interface mpix_allgatherv_init
+
+interface pmpix_allgatherv_init
+    subroutine pmpix_allgatherv_init(sendbuf, sendcount, sendtype, &
+                                     recvbuf, recvcounts, displs, recvtype, &
+                                     comm, info, request, ierror)
+        !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) :: sendtype
+        integer, dimension(*), intent(in) :: recvcounts
+        integer, dimension(*), intent(in) :: displs
+        integer, intent(in) :: recvtype
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine pmpix_allgatherv_init
+end interface pmpix_allgatherv_init
+
+interface mpix_allreduce_init
+    subroutine mpix_allreduce_init(sendbuf, recvbuf, count, &
+                                   datatype, op, &
+                                   comm, info, request, ierror)
+        !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
+        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 mpix_allreduce_init
+end interface mpix_allreduce_init
+
+interface pmpix_allreduce_init
+    subroutine pmpix_allreduce_init(sendbuf, recvbuf, count, &
+                                    datatype, op, &
+                                    comm, info, request, ierror)
+        !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
+        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 pmpix_allreduce_init
+end interface pmpix_allreduce_init
+
+interface mpix_alltoall_init
+    subroutine mpix_alltoall_init(sendbuf, sendcount, sendtype, &
+                                  recvbuf, recvcount, recvtype, &
+                                  comm, info, request, ierror)
+        !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) :: sendtype
+        integer, intent(in) :: recvcount
+        integer, intent(in) :: recvtype
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine mpix_alltoall_init
+end interface mpix_alltoall_init
+
+interface pmpix_alltoall_init
+    subroutine pmpix_alltoall_init(sendbuf, sendcount, sendtype, &
+                                   recvbuf, recvcount, recvtype, &
+                                   comm, info, request, ierror)
+        !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) :: sendtype
+        integer, intent(in) :: recvcount
+        integer, intent(in) :: recvtype
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine pmpix_alltoall_init
+end interface pmpix_alltoall_init
+
+interface mpix_alltoallv_init
+    subroutine mpix_alltoallv_init(sendbuf, sendcounts, sdispls, sendtype, &
+                                   recvbuf, recvcounts, rdispls, recvtype, &
+                                   comm, info, request, ierror)
+        !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, dimension(*), intent(in) :: sendcounts
+        integer, dimension(*), intent(in) :: sdispls
+        integer, intent(in) :: sendtype
+        integer, dimension(*), intent(in) :: recvcounts
+        integer, dimension(*), intent(in) :: rdispls
+        integer, intent(in) :: recvtype
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine mpix_alltoallv_init
+end interface mpix_alltoallv_init
+
+interface pmpix_alltoallv_init
+    subroutine pmpix_alltoallv_init(sendbuf, sendcounts, sdispls, sendtype, &
+                                    recvbuf, recvcounts, rdispls, recvtype, &
+                                    comm, info, request, ierror)
+        !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, dimension(*), intent(in) :: sendcounts
+        integer, dimension(*), intent(in) :: sdispls
+        integer, intent(in) :: sendtype
+        integer, dimension(*), intent(in) :: recvcounts
+        integer, dimension(*), intent(in) :: rdispls
+        integer, intent(in) :: recvtype
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine pmpix_alltoallv_init
+end interface pmpix_alltoallv_init
+
+interface mpix_alltoallw_init
+    subroutine mpix_alltoallw_init(sendbuf, sendcounts, sdispls, sendtypes, &
+                                   recvbuf, recvcounts, rdispls, recvtypes, &
+                                   comm, info, request, ierror)
+        !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, dimension(*), intent(in) :: sendcounts
+        integer, dimension(*), intent(in) :: sdispls
+        integer, dimension(*), intent(in) :: sendtypes
+        integer, dimension(*), intent(in) :: recvcounts
+        integer, dimension(*), intent(in) :: rdispls
+        integer, dimension(*), intent(in) :: recvtypes
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine mpix_alltoallw_init
+end interface mpix_alltoallw_init
+
+interface pmpix_alltoallw_init
+    subroutine pmpix_alltoallw_init(sendbuf, sendcounts, sdispls, sendtypes, &
+                                    recvbuf, recvcounts, rdispls, recvtypes, &
+                                    comm, info, request, ierror)
+        !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, dimension(*), intent(in) :: sendcounts
+        integer, dimension(*), intent(in) :: sdispls
+        integer, dimension(*), intent(in) :: sendtypes
+        integer, dimension(*), intent(in) :: recvcounts
+        integer, dimension(*), intent(in) :: rdispls
+        integer, dimension(*), intent(in) :: recvtypes
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine pmpix_alltoallw_init
+end interface pmpix_alltoallw_init
+
+interface mpix_barrier_init
+    subroutine mpix_barrier_init(comm, info, request, ierror)
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine mpix_barrier_init
+end interface mpix_barrier_init
+
+interface pmpix_barrier_init
+    subroutine pmpix_barrier_init(comm, info, request, ierror)
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine pmpix_barrier_init
+end interface pmpix_barrier_init
+
+interface mpix_bcast_init
+    subroutine mpix_bcast_init(buffer, count, datatype, root, &
+                               comm, info, request, ierror)
+        !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
+        integer, intent(in) :: datatype
+        integer, intent(in) :: root
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine mpix_bcast_init
+end interface mpix_bcast_init
+
+interface pmpix_bcast_init
+    subroutine pmpix_bcast_init(buffer, count, datatype, root, &
+                                comm, info, request, ierror)
+        !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
+        integer, intent(in) :: datatype
+        integer, intent(in) :: root
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine pmpix_bcast_init
+end interface pmpix_bcast_init
+
+interface mpix_exscan_init
+    subroutine mpix_exscan_init(sendbuf, recvbuf, count, &
+                                datatype, op, &
+                                comm, info, request, ierror)
+        !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
+        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 mpix_exscan_init
+end interface mpix_exscan_init
+
+interface pmpix_exscan_init
+    subroutine pmpix_exscan_init(sendbuf, recvbuf, count, &
+                                 datatype, op, &
+                                 comm, info, request, ierror)
+        !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
+        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 pmpix_exscan_init
+end interface pmpix_exscan_init
+
+interface mpix_gather_init
+    subroutine mpix_gather_init(sendbuf, sendcount, sendtype, &
+                                recvbuf, recvcount, recvtype, root, &
+                                comm, info, request, ierror)
+        !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) :: sendtype
+        integer, intent(in) :: recvcount
+        integer, intent(in) :: recvtype
+        integer, intent(in) :: root
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine mpix_gather_init
+end interface mpix_gather_init
+
+interface pmpix_gather_init
+    subroutine pmpix_gather_init(sendbuf, sendcount, sendtype, &
+                                 recvbuf, recvcount, recvtype, root, &
+                                 comm, info, request, ierror)
+        !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) :: sendtype
+        integer, intent(in) :: recvcount
+        integer, intent(in) :: recvtype
+        integer, intent(in) :: root
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine pmpix_gather_init
+end interface pmpix_gather_init
+
+interface mpix_gatherv_init
+    subroutine mpix_gatherv_init(sendbuf, sendcount, sendtype, &
+                                 recvbuf, recvcounts, displs, recvtype, root, &
+                                 comm, info, request, ierror)
+        !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) :: sendtype
+        integer, dimension(*), intent(in) :: recvcounts
+        integer, dimension(*), intent(in) :: displs
+        integer, intent(in) :: recvtype
+        integer, intent(in) :: root
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine mpix_gatherv_init
+end interface mpix_gatherv_init
+
+interface pmpix_gatherv_init
+    subroutine pmpix_gatherv_init(sendbuf, sendcount, sendtype, &
+                                  recvbuf, recvcounts, displs, recvtype, root, &
+                                  comm, info, request, ierror)
+        !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) :: sendtype
+        integer, dimension(*), intent(in) :: recvcounts
+        integer, dimension(*), intent(in) :: displs
+        integer, intent(in) :: recvtype
+        integer, intent(in) :: root
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine pmpix_gatherv_init
+end interface pmpix_gatherv_init
+
+interface mpix_reduce_init
+    subroutine mpix_reduce_init(sendbuf, recvbuf, count, &
+                                datatype, op, root, &
+                                comm, info, request, ierror)
+        !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
+        integer, intent(in) :: datatype
+        integer, intent(in) :: op
+        integer, intent(in) :: root
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine mpix_reduce_init
+end interface mpix_reduce_init
+
+interface pmpix_reduce_init
+    subroutine pmpix_reduce_init(sendbuf, recvbuf, count, &
+                                 datatype, op, root, &
+                                 comm, info, request, ierror)
+        !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
+        integer, intent(in) :: datatype
+        integer, intent(in) :: op
+        integer, intent(in) :: root
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine pmpix_reduce_init
+end interface pmpix_reduce_init
+
+interface mpix_reduce_scatter_init
+    subroutine mpix_reduce_scatter_init(sendbuf, recvbuf, recvcounts, &
+                                        datatype, op, &
+                                        comm, info, request, ierror)
+        !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, dimension(*), 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 mpix_reduce_scatter_init
+end interface mpix_reduce_scatter_init
+
+interface pmpix_reduce_scatter_init
+    subroutine pmpix_reduce_scatter_init(sendbuf, recvbuf, recvcounts, &
+                                         datatype, op, &
+                                         comm, info, request, ierror)
+        !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, dimension(*), 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 pmpix_reduce_scatter_init
+end interface pmpix_reduce_scatter_init
+
+interface mpix_reduce_scatter_block_init
+    subroutine mpix_reduce_scatter_block_init(sendbuf, recvbuf, recvcount, &
+                                              datatype, op, &
+                                              comm, info, request, ierror)
+        !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
+        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 mpix_reduce_scatter_block_init
+end interface mpix_reduce_scatter_block_init
+
+interface pmpix_reduce_scatter_block_init
+    subroutine pmpix_reduce_scatter_block_init(sendbuf, recvbuf, recvcount, &
+                                               datatype, op, &
+                                               comm, info, request, ierror)
+        !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
+        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 pmpix_reduce_scatter_block_init
+end interface pmpix_reduce_scatter_block_init
+
+interface mpix_scan_init
+    subroutine mpix_scan_init(sendbuf, recvbuf, count, &
+                              datatype, op, &
+                              comm, info, request, ierror)
+        !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
+        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 mpix_scan_init
+end interface mpix_scan_init
+
+interface pmpix_scan_init
+    subroutine pmpix_scan_init(sendbuf, recvbuf, count, &
+                               datatype, op, &
+                               comm, info, request, ierror)
+        !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
+        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 pmpix_scan_init
+end interface pmpix_scan_init
+
+interface mpix_scatter_init
+    subroutine mpix_scatter_init(sendbuf, sendcount, sendtype, &
+                                 recvbuf, recvcount, recvtype, root, &
+                                 comm, info, request, ierror)
+        !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) :: sendtype
+        integer, intent(in) :: recvcount
+        integer, intent(in) :: recvtype
+        integer, intent(in) :: root
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine mpix_scatter_init
+end interface mpix_scatter_init
+
+interface pmpix_scatter_init
+    subroutine pmpix_scatter_init(sendbuf, sendcount, sendtype, &
+                                  recvbuf, recvcount, recvtype, root, &
+                                  comm, info, request, ierror)
+        !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) :: sendtype
+        integer, intent(in) :: recvcount
+        integer, intent(in) :: recvtype
+        integer, intent(in) :: root
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine pmpix_scatter_init
+end interface pmpix_scatter_init
+
+interface mpix_scatterv_init
+    subroutine mpix_scatterv_init(sendbuf, sendcounts, displs, sendtype, &
+                                  recvbuf, recvcount, recvtype, root, &
+                                  comm, info, request, ierror)
+        !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, dimension(*), intent(in) :: sendcounts
+        integer, dimension(*), intent(in) :: displs
+        integer, intent(in) :: sendtype
+        integer, intent(in) :: recvcount
+        integer, intent(in) :: recvtype
+        integer, intent(in) :: root
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine mpix_scatterv_init
+end interface mpix_scatterv_init
+
+interface pmpix_scatterv_init
+    subroutine pmpix_scatterv_init(sendbuf, sendcounts, displs, sendtype, &
+                                   recvbuf, recvcount, recvtype, root, &
+                                   comm, info, request, ierror)
+        !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, dimension(*), intent(in) :: sendcounts
+        integer, dimension(*), intent(in) :: displs
+        integer, intent(in) :: sendtype
+        integer, intent(in) :: recvcount
+        integer, intent(in) :: recvtype
+        integer, intent(in) :: root
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine pmpix_scatterv_init
+end interface pmpix_scatterv_init
+
+interface mpix_neighbor_allgather_init
+    subroutine mpix_neighbor_allgather_init(sendbuf, sendcount, sendtype, &
+                                            recvbuf, recvcount, recvtype, &
+                                            comm, info, request, ierror)
+        !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) :: sendtype
+        integer, intent(in) :: recvcount
+        integer, intent(in) :: recvtype
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine mpix_neighbor_allgather_init
+end interface mpix_neighbor_allgather_init
+
+interface pmpix_neighbor_allgather_init
+    subroutine pmpix_neighbor_allgather_init(sendbuf, sendcount, sendtype, &
+                                             recvbuf, recvcount, recvtype, &
+                                             comm, info, request, ierror)
+        !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) :: sendtype
+        integer, intent(in) :: recvcount
+        integer, intent(in) :: recvtype
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine pmpix_neighbor_allgather_init
+end interface pmpix_neighbor_allgather_init
+
+interface mpix_neighbor_allgatherv_init
+    subroutine mpix_neighbor_allgatherv_init(sendbuf, sendcount, sendtype, &
+                                             recvbuf, recvcounts, displs, recvtype, &
+                                             comm, info, request, ierror)
+        !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) :: sendtype
+        integer, dimension(*), intent(in) :: recvcounts
+        integer, dimension(*), intent(in) :: displs
+        integer, intent(in) :: recvtype
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine mpix_neighbor_allgatherv_init
+end interface mpix_neighbor_allgatherv_init
+
+interface pmpix_neighbor_allgatherv_init
+    subroutine pmpix_neighbor_allgatherv_init(sendbuf, sendcount, sendtype, &
+                                              recvbuf, recvcounts, displs, recvtype, &
+                                              comm, info, request, ierror)
+        !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) :: sendtype
+        integer, dimension(*), intent(in) :: recvcounts
+        integer, dimension(*), intent(in) :: displs
+        integer, intent(in) :: recvtype
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine pmpix_neighbor_allgatherv_init
+end interface pmpix_neighbor_allgatherv_init
+
+interface mpix_neighbor_alltoall_init
+    subroutine mpix_neighbor_alltoall_init(sendbuf, sendcount, sendtype, &
+                                           recvbuf, recvcount, recvtype, &
+                                           comm, info, request, ierror)
+        !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) :: sendtype
+        integer, intent(in) :: recvcount
+        integer, intent(in) :: recvtype
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine mpix_neighbor_alltoall_init
+end interface mpix_neighbor_alltoall_init
+
+interface pmpix_neighbor_alltoall_init
+    subroutine pmpix_neighbor_alltoall_init(sendbuf, sendcount, sendtype, &
+                                            recvbuf, recvcount, recvtype, &
+                                            comm, info, request, ierror)
+        !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) :: sendtype
+        integer, intent(in) :: recvcount
+        integer, intent(in) :: recvtype
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine pmpix_neighbor_alltoall_init
+end interface pmpix_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)
+        !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, dimension(*), intent(in) :: sendcounts
+        integer, dimension(*), intent(in) :: sdispls
+        integer, intent(in) :: sendtype
+        integer, dimension(*), intent(in) :: recvcounts
+        integer, dimension(*), intent(in) :: rdispls
+        integer, intent(in) :: recvtype
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine mpix_neighbor_alltoallv_init
+end interface mpix_neighbor_alltoallv_init
+
+interface pmpix_neighbor_alltoallv_init
+    subroutine pmpix_neighbor_alltoallv_init(sendbuf, sendcounts, sdispls, sendtype, &
+                                             recvbuf, recvcounts, rdispls, recvtype, &
+                                             comm, info, request, ierror)
+        !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, dimension(*), intent(in) :: sendcounts
+        integer, dimension(*), intent(in) :: sdispls
+        integer, intent(in) :: sendtype
+        integer, dimension(*), intent(in) :: recvcounts
+        integer, dimension(*), intent(in) :: rdispls
+        integer, intent(in) :: recvtype
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine pmpix_neighbor_alltoallv_init
+end interface pmpix_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)
+        include 'mpif-config.h'
+        !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, dimension(*), intent(in) :: sendcounts
+        integer(kind=mpi_address_kind), dimension(*), intent(in) :: sdispls
+        integer, dimension(*), intent(in) :: sendtypes
+        integer, dimension(*), intent(in) :: recvcounts
+        integer(kind=mpi_address_kind), dimension(*), intent(in) :: rdispls
+        integer, dimension(*), intent(in) :: recvtypes
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine mpix_neighbor_alltoallw_init
+end interface mpix_neighbor_alltoallw_init
+
+interface pmpix_neighbor_alltoallw_init
+    subroutine pmpix_neighbor_alltoallw_init(sendbuf, sendcounts, sdispls, sendtypes, &
+                                             recvbuf, recvcounts, rdispls, recvtypes, &
+                                             comm, info, request, ierror)
+        include 'mpif-config.h'
+        !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, dimension(*), intent(in) :: sendcounts
+        integer(kind=mpi_address_kind), dimension(*), intent(in) :: sdispls
+        integer, dimension(*), intent(in) :: sendtypes
+        integer, dimension(*), intent(in) :: recvcounts
+        integer(kind=mpi_address_kind), dimension(*), intent(in) :: rdispls
+        integer, dimension(*), intent(in) :: recvtypes
+        integer, intent(in) :: comm
+        integer, intent(in) :: info
+        integer, intent(out) :: request
+        integer, intent(out) :: ierror
+    end subroutine pmpix_neighbor_alltoallw_init
+end interface pmpix_neighbor_alltoallw_init
+