diff --git a/ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh b/ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh
index 9b8a4652be..0fee47ff3e 100755
--- a/ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh
+++ b/ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh
@@ -5516,6 +5516,14 @@ procedure='MPI_File_read_ordered_begin'
 echo "interface ${procedure}"
 echo
 rank=0
+
+# JMS: Override -- need to make the back-end function less than 31
+# characters because F90 standard says that symbol max lengths are 31
+# characters.  So change the value of $procedure to something slightly
+# shorter.  $proc, hard code it to something slightly different.
+# #$%@#$%@#$%
+procedure=MPI_File_read_ord_begin
+
 for kind in $lkinds
 do
   proc="${procedure}${rank}DL${kind}"
@@ -5636,6 +5644,9 @@ do
   done
   echo
 done
+# JMS: Override -- see above.  Put it back to the full name.
+# #$%@#$%@#$%
+procedure=MPI_File_read_ordered_begin
 echo
 echo "end interface ${procedure}"
 echo
@@ -6917,6 +6928,14 @@ procedure='MPI_File_write_at_all_begin'
 echo "interface ${procedure}"
 echo
 rank=0
+
+# JMS: Override -- need to make the back-end function less than 31
+# characters because F90 standard says that symbol max lengths are 31
+# characters.  So change the value of $procedure to something slightly
+# shorter.  $proc, hard code it to something slightly different.
+# #$%@#$%@#$%
+procedure=MPI_File_wr_at_all_begin
+
 for kind in $lkinds
 do
   proc="${procedure}${rank}DL${kind}"
@@ -7053,6 +7072,9 @@ do
   done
   echo
 done
+# JMS: Override -- see above.  Put it back to the full name.
+# #$%@#$%@#$%
+procedure=MPI_File_write_at_all_begin
 echo
 echo "end interface ${procedure}"
 echo
diff --git a/ompi/mpi/f90/scripts/mpi.f90.sh b/ompi/mpi/f90/scripts/mpi.f90.sh
deleted file mode 100755
index 4155def635..0000000000
--- a/ompi/mpi/f90/scripts/mpi.f90.sh
+++ /dev/null
@@ -1,13019 +0,0 @@
-#! /bin/sh
-
-. "$1/fortran_kinds.sh"
-
-
-procedure='MPI_Accumulate'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, op, win, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: origin_addr"
-  echo "  integer, intent(in) :: origin_count"
-  echo "  integer, intent(in) :: origin_datatype"
-  echo "  integer, intent(in) :: target_rank"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
-  echo "  integer, intent(in) :: target_count"
-  echo "  integer, intent(in) :: target_datatype"
-  echo "  integer, intent(in) :: op"
-  echo "  integer, intent(in) :: win"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, op, win, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, op, win, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: origin_addr"
-  echo "  integer, intent(in) :: origin_count"
-  echo "  integer, intent(in) :: origin_datatype"
-  echo "  integer, intent(in) :: target_rank"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
-  echo "  integer, intent(in) :: target_count"
-  echo "  integer, intent(in) :: target_datatype"
-  echo "  integer, intent(in) :: op"
-  echo "  integer, intent(in) :: win"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, op, win, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, op, win, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: origin_addr"
-  echo "  integer, intent(in) :: origin_count"
-  echo "  integer, intent(in) :: origin_datatype"
-  echo "  integer, intent(in) :: target_rank"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
-  echo "  integer, intent(in) :: target_count"
-  echo "  integer, intent(in) :: target_datatype"
-  echo "  integer, intent(in) :: op"
-  echo "  integer, intent(in) :: win"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, op, win, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, op, win, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: origin_addr"
-  echo "  integer, intent(in) :: origin_count"
-  echo "  integer, intent(in) :: origin_datatype"
-  echo "  integer, intent(in) :: target_rank"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
-  echo "  integer, intent(in) :: target_count"
-  echo "  integer, intent(in) :: target_datatype"
-  echo "  integer, intent(in) :: op"
-  echo "  integer, intent(in) :: win"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, op, win, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, op, win, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
-    echo "  integer, intent(in) :: origin_count"
-    echo "  integer, intent(in) :: origin_datatype"
-    echo "  integer, intent(in) :: target_rank"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
-    echo "  integer, intent(in) :: target_count"
-    echo "  integer, intent(in) :: target_datatype"
-    echo "  integer, intent(in) :: op"
-    echo "  integer, intent(in) :: win"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, op, win, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, op, win, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
-    echo "  integer, intent(in) :: origin_count"
-    echo "  integer, intent(in) :: origin_datatype"
-    echo "  integer, intent(in) :: target_rank"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
-    echo "  integer, intent(in) :: target_count"
-    echo "  integer, intent(in) :: target_datatype"
-    echo "  integer, intent(in) :: op"
-    echo "  integer, intent(in) :: win"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, op, win, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, op, win, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
-    echo "  integer, intent(in) :: origin_count"
-    echo "  integer, intent(in) :: origin_datatype"
-    echo "  integer, intent(in) :: target_rank"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
-    echo "  integer, intent(in) :: target_count"
-    echo "  integer, intent(in) :: target_datatype"
-    echo "  integer, intent(in) :: op"
-    echo "  integer, intent(in) :: win"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, op, win, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, op, win, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
-    echo "  integer, intent(in) :: origin_count"
-    echo "  integer, intent(in) :: origin_datatype"
-    echo "  integer, intent(in) :: target_rank"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
-    echo "  integer, intent(in) :: target_count"
-    echo "  integer, intent(in) :: target_datatype"
-    echo "  integer, intent(in) :: op"
-    echo "  integer, intent(in) :: win"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, op, win, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Address'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(location, address, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: location"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(out) :: address"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(location, address, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(location, address, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: location"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(out) :: address"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(location, address, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(location, address, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: location"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(out) :: address"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(location, address, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(location, address, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: location"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(out) :: address"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(location, address, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(location, address, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: location"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(out) :: address"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(location, address, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(location, address, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: location"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(out) :: address"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(location, address, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(location, address, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: location"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(out) :: address"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(location, address, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(location, address, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: location"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(out) :: address"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(location, address, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Allreduce'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: op"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: op"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: op"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: op"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: op"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: op"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: op"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: op"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Alltoall'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, intent(in) :: sendcount"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: recvcount"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, intent(in) :: sendcount"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: recvcount"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, intent(in) :: sendcount"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: recvcount"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, intent(in) :: sendcount"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: recvcount"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, intent(in) :: sendcount"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: recvcount"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, intent(in) :: sendcount"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: recvcount"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, intent(in) :: sendcount"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: recvcount"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, intent(in) :: sendcount"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: recvcount"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Alltoallv'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtype, recvbuf, &
-        recvcounts, rdispls, recvtype, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, dimension(*), intent(in) :: sendcounts"
-  echo "  integer, dimension(*), intent(in) :: sdispls"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, dimension(*), intent(in) :: recvcounts"
-  echo "  integer, dimension(*), intent(in) :: rdispls"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcounts, sdispls, sendtype, recvbuf, &
-        recvcounts, rdispls, recvtype, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtype, recvbuf, &
-        recvcounts, rdispls, recvtype, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, dimension(*), intent(in) :: sendcounts"
-  echo "  integer, dimension(*), intent(in) :: sdispls"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, dimension(*), intent(in) :: recvcounts"
-  echo "  integer, dimension(*), intent(in) :: rdispls"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcounts, sdispls, sendtype, recvbuf, &
-        recvcounts, rdispls, recvtype, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtype, recvbuf, &
-        recvcounts, rdispls, recvtype, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, dimension(*), intent(in) :: sendcounts"
-  echo "  integer, dimension(*), intent(in) :: sdispls"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, dimension(*), intent(in) :: recvcounts"
-  echo "  integer, dimension(*), intent(in) :: rdispls"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcounts, sdispls, sendtype, recvbuf, &
-        recvcounts, rdispls, recvtype, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtype, recvbuf, &
-        recvcounts, rdispls, recvtype, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, dimension(*), intent(in) :: sendcounts"
-  echo "  integer, dimension(*), intent(in) :: sdispls"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, dimension(*), intent(in) :: recvcounts"
-  echo "  integer, dimension(*), intent(in) :: rdispls"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcounts, sdispls, sendtype, recvbuf, &
-        recvcounts, rdispls, recvtype, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtype, recvbuf, &
-        recvcounts, rdispls, recvtype, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, dimension(*), intent(in) :: sendcounts"
-    echo "  integer, dimension(*), intent(in) :: sdispls"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, dimension(*), intent(in) :: recvcounts"
-    echo "  integer, dimension(*), intent(in) :: rdispls"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcounts, sdispls, sendtype, recvbuf, &
-        recvcounts, rdispls, recvtype, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtype, recvbuf, &
-        recvcounts, rdispls, recvtype, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, dimension(*), intent(in) :: sendcounts"
-    echo "  integer, dimension(*), intent(in) :: sdispls"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, dimension(*), intent(in) :: recvcounts"
-    echo "  integer, dimension(*), intent(in) :: rdispls"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcounts, sdispls, sendtype, recvbuf, &
-        recvcounts, rdispls, recvtype, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtype, recvbuf, &
-        recvcounts, rdispls, recvtype, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, dimension(*), intent(in) :: sendcounts"
-    echo "  integer, dimension(*), intent(in) :: sdispls"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, dimension(*), intent(in) :: recvcounts"
-    echo "  integer, dimension(*), intent(in) :: rdispls"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcounts, sdispls, sendtype, recvbuf, &
-        recvcounts, rdispls, recvtype, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtype, recvbuf, &
-        recvcounts, rdispls, recvtype, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, dimension(*), intent(in) :: sendcounts"
-    echo "  integer, dimension(*), intent(in) :: sdispls"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, dimension(*), intent(in) :: recvcounts"
-    echo "  integer, dimension(*), intent(in) :: rdispls"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcounts, sdispls, sendtype, recvbuf, &
-        recvcounts, rdispls, recvtype, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Alltoallw'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
-        recvcounts, rdispls, recvtypes, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, dimension(*), intent(in) :: sendcounts"
-  echo "  integer, dimension(*), intent(in) :: sdispls"
-  echo "  integer, dimension(*), intent(in) :: sendtypes"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, dimension(*), intent(in) :: recvcounts"
-  echo "  integer, dimension(*), intent(in) :: rdispls"
-  echo "  integer, dimension(*), intent(in) :: recvtypes"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
-        recvcounts, rdispls, recvtypes, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
-        recvcounts, rdispls, recvtypes, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, dimension(*), intent(in) :: sendcounts"
-  echo "  integer, dimension(*), intent(in) :: sdispls"
-  echo "  integer, dimension(*), intent(in) :: sendtypes"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, dimension(*), intent(in) :: recvcounts"
-  echo "  integer, dimension(*), intent(in) :: rdispls"
-  echo "  integer, dimension(*), intent(in) :: recvtypes"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
-        recvcounts, rdispls, recvtypes, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
-        recvcounts, rdispls, recvtypes, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, dimension(*), intent(in) :: sendcounts"
-  echo "  integer, dimension(*), intent(in) :: sdispls"
-  echo "  integer, dimension(*), intent(in) :: sendtypes"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, dimension(*), intent(in) :: recvcounts"
-  echo "  integer, dimension(*), intent(in) :: rdispls"
-  echo "  integer, dimension(*), intent(in) :: recvtypes"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
-        recvcounts, rdispls, recvtypes, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
-        recvcounts, rdispls, recvtypes, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, dimension(*), intent(in) :: sendcounts"
-  echo "  integer, dimension(*), intent(in) :: sdispls"
-  echo "  integer, dimension(*), intent(in) :: sendtypes"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, dimension(*), intent(in) :: recvcounts"
-  echo "  integer, dimension(*), intent(in) :: rdispls"
-  echo "  integer, dimension(*), intent(in) :: recvtypes"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
-        recvcounts, rdispls, recvtypes, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
-        recvcounts, rdispls, recvtypes, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, dimension(*), intent(in) :: sendcounts"
-    echo "  integer, dimension(*), intent(in) :: sdispls"
-    echo "  integer, dimension(*), intent(in) :: sendtypes"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, dimension(*), intent(in) :: recvcounts"
-    echo "  integer, dimension(*), intent(in) :: rdispls"
-    echo "  integer, dimension(*), intent(in) :: recvtypes"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
-        recvcounts, rdispls, recvtypes, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
-        recvcounts, rdispls, recvtypes, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, dimension(*), intent(in) :: sendcounts"
-    echo "  integer, dimension(*), intent(in) :: sdispls"
-    echo "  integer, dimension(*), intent(in) :: sendtypes"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, dimension(*), intent(in) :: recvcounts"
-    echo "  integer, dimension(*), intent(in) :: rdispls"
-    echo "  integer, dimension(*), intent(in) :: recvtypes"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
-        recvcounts, rdispls, recvtypes, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
-        recvcounts, rdispls, recvtypes, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, dimension(*), intent(in) :: sendcounts"
-    echo "  integer, dimension(*), intent(in) :: sdispls"
-    echo "  integer, dimension(*), intent(in) :: sendtypes"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, dimension(*), intent(in) :: recvcounts"
-    echo "  integer, dimension(*), intent(in) :: rdispls"
-    echo "  integer, dimension(*), intent(in) :: recvtypes"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
-        recvcounts, rdispls, recvtypes, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
-        recvcounts, rdispls, recvtypes, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, dimension(*), intent(in) :: sendcounts"
-    echo "  integer, dimension(*), intent(in) :: sdispls"
-    echo "  integer, dimension(*), intent(in) :: sendtypes"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, dimension(*), intent(in) :: recvcounts"
-    echo "  integer, dimension(*), intent(in) :: rdispls"
-    echo "  integer, dimension(*), intent(in) :: recvtypes"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
-        recvcounts, rdispls, recvtypes, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Bcast'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(buffer, count, datatype, root, comm&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buffer"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: root"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buffer, count, datatype, root, comm&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(buffer, count, datatype, root, comm&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buffer"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: root"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buffer, count, datatype, root, comm&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(buffer, count, datatype, root, comm&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buffer"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: root"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buffer, count, datatype, root, comm&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(buffer, count, datatype, root, comm&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buffer"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: root"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buffer, count, datatype, root, comm&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(buffer, count, datatype, root, comm&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buffer"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: root"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buffer, count, datatype, root, comm&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(buffer, count, datatype, root, comm&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buffer"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: root"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buffer, count, datatype, root, comm&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(buffer, count, datatype, root, comm&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buffer"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: root"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buffer, count, datatype, root, comm&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(buffer, count, datatype, root, comm&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buffer"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: root"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buffer, count, datatype, root, comm&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Bsend'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Bsend_init'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Buffer_attach'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(buffer, size, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buffer"
-  echo "  integer, intent(in) :: size"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buffer, size, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(buffer, size, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buffer"
-  echo "  integer, intent(in) :: size"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buffer, size, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(buffer, size, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buffer"
-  echo "  integer, intent(in) :: size"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buffer, size, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(buffer, size, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buffer"
-  echo "  integer, intent(in) :: size"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buffer, size, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(buffer, size, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buffer"
-    echo "  integer, intent(in) :: size"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buffer, size, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(buffer, size, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buffer"
-    echo "  integer, intent(in) :: size"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buffer, size, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(buffer, size, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buffer"
-    echo "  integer, intent(in) :: size"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buffer, size, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(buffer, size, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buffer"
-    echo "  integer, intent(in) :: size"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buffer, size, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Buffer_detach'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(buffer, size, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buffer"
-  echo "  integer, intent(out) :: size"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buffer, size, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(buffer, size, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buffer"
-  echo "  integer, intent(out) :: size"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buffer, size, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(buffer, size, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: buffer"
-  echo "  integer, intent(out) :: size"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buffer, size, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(buffer, size, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buffer"
-  echo "  integer, intent(out) :: size"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buffer, size, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(buffer, size, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buffer"
-    echo "  integer, intent(out) :: size"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buffer, size, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(buffer, size, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buffer"
-    echo "  integer, intent(out) :: size"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buffer, size, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(buffer, size, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buffer"
-    echo "  integer, intent(out) :: size"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buffer, size, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(buffer, size, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buffer"
-    echo "  integer, intent(out) :: size"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buffer, size, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Exscan'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: op"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: op"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: op"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: op"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: op"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: op"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: op"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: op"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_iread'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_iread_at'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(in) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(in) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(in) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(in) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(in) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(in) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(in) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(in) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_iread_shared'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_iwrite'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_iwrite_at'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_iwrite_shared'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, request&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, request&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_read'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_read_all'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_read_all_begin'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_read_all_end'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, buf, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, buf, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, buf, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, buf, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, buf, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, buf, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, buf, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, buf, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_read_at'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(in) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(in) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(in) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(in) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(in) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(in) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(in) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(in) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_read_at_all'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(in) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(in) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(in) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(in) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(in) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(in) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(in) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(in) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_read_at_all_begin'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(in) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(in) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(in) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(in) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(in) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(in) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(in) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(in) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_read_at_all_end'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, buf, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(in) :: fh"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, buf, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(in) :: fh"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, buf, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(in) :: fh"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, buf, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(in) :: fh"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, buf, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(in) :: fh"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, buf, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(in) :: fh"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, buf, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(in) :: fh"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, buf, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(in) :: fh"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_read_ordered'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_read_ordered_begin'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_read_ordered_end'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, buf, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, buf, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, buf, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, buf, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, buf, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, buf, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, buf, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, buf, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_read_shared'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_write'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_write_all'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_write_all_begin'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_write_all_end'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, buf, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, buf, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, buf, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, buf, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, buf, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, buf, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, buf, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, buf, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_write_at'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_write_at_all'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype, &
-        status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_write_at_all_begin'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, offset, buf, count, datatype&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, offset, buf, count, datatype&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, offset, buf, count, datatype&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_write_at_all_end'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, buf, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, buf, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, buf, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, buf, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, buf, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, buf, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, buf, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, buf, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_write_ordered'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_write_ordered_begin'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_write_ordered_end'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, buf, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, buf, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, buf, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, buf, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, buf, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, buf, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, buf, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, buf, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_File_write_shared'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer, intent(inout) :: fh"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(fh, buf, count, datatype, status&
-        , ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer, intent(inout) :: fh"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(fh, buf, count, datatype, status&
-        , ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Free_mem'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(base, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: base"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(base, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(base, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: base"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(base, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(base, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: base"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(base, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(base, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: base"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(base, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(base, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: base"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(base, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(base, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: base"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(base, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(base, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: base"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(base, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(base, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: base"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(base, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Gather'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, intent(in) :: sendcount"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: recvcount"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: root"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, intent(in) :: sendcount"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: recvcount"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: root"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, intent(in) :: sendcount"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: recvcount"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: root"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, intent(in) :: sendcount"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: recvcount"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: root"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, intent(in) :: sendcount"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: recvcount"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: root"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, intent(in) :: sendcount"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: recvcount"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: root"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, intent(in) :: sendcount"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: recvcount"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: root"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, intent(in) :: sendcount"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: recvcount"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: root"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Gatherv'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
-        displs, recvtype, root, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, intent(in) :: sendcount"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, dimension(*), intent(in) :: recvcounts"
-  echo "  integer, dimension(*), intent(in) :: displs"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: root"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
-        displs, recvtype, root, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
-        displs, recvtype, root, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, intent(in) :: sendcount"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, dimension(*), intent(in) :: recvcounts"
-  echo "  integer, dimension(*), intent(in) :: displs"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: root"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
-        displs, recvtype, root, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
-        displs, recvtype, root, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, intent(in) :: sendcount"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, dimension(*), intent(in) :: recvcounts"
-  echo "  integer, dimension(*), intent(in) :: displs"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: root"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
-        displs, recvtype, root, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
-        displs, recvtype, root, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, intent(in) :: sendcount"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, dimension(*), intent(in) :: recvcounts"
-  echo "  integer, dimension(*), intent(in) :: displs"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: root"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
-        displs, recvtype, root, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
-        displs, recvtype, root, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, intent(in) :: sendcount"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, dimension(*), intent(in) :: recvcounts"
-    echo "  integer, dimension(*), intent(in) :: displs"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: root"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
-        displs, recvtype, root, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
-        displs, recvtype, root, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, intent(in) :: sendcount"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, dimension(*), intent(in) :: recvcounts"
-    echo "  integer, dimension(*), intent(in) :: displs"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: root"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
-        displs, recvtype, root, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
-        displs, recvtype, root, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, intent(in) :: sendcount"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, dimension(*), intent(in) :: recvcounts"
-    echo "  integer, dimension(*), intent(in) :: displs"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: root"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
-        displs, recvtype, root, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
-        displs, recvtype, root, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, intent(in) :: sendcount"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, dimension(*), intent(in) :: recvcounts"
-    echo "  integer, dimension(*), intent(in) :: displs"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: root"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
-        displs, recvtype, root, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Get'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: origin_addr"
-  echo "  integer, intent(in) :: origin_count"
-  echo "  integer, intent(in) :: origin_datatype"
-  echo "  integer, intent(in) :: target_rank"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
-  echo "  integer, intent(in) :: target_count"
-  echo "  integer, intent(in) :: target_datatype"
-  echo "  integer, intent(in) :: win"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: origin_addr"
-  echo "  integer, intent(in) :: origin_count"
-  echo "  integer, intent(in) :: origin_datatype"
-  echo "  integer, intent(in) :: target_rank"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
-  echo "  integer, intent(in) :: target_count"
-  echo "  integer, intent(in) :: target_datatype"
-  echo "  integer, intent(in) :: win"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: origin_addr"
-  echo "  integer, intent(in) :: origin_count"
-  echo "  integer, intent(in) :: origin_datatype"
-  echo "  integer, intent(in) :: target_rank"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
-  echo "  integer, intent(in) :: target_count"
-  echo "  integer, intent(in) :: target_datatype"
-  echo "  integer, intent(in) :: win"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: origin_addr"
-  echo "  integer, intent(in) :: origin_count"
-  echo "  integer, intent(in) :: origin_datatype"
-  echo "  integer, intent(in) :: target_rank"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
-  echo "  integer, intent(in) :: target_count"
-  echo "  integer, intent(in) :: target_datatype"
-  echo "  integer, intent(in) :: win"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
-    echo "  integer, intent(in) :: origin_count"
-    echo "  integer, intent(in) :: origin_datatype"
-    echo "  integer, intent(in) :: target_rank"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
-    echo "  integer, intent(in) :: target_count"
-    echo "  integer, intent(in) :: target_datatype"
-    echo "  integer, intent(in) :: win"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
-    echo "  integer, intent(in) :: origin_count"
-    echo "  integer, intent(in) :: origin_datatype"
-    echo "  integer, intent(in) :: target_rank"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
-    echo "  integer, intent(in) :: target_count"
-    echo "  integer, intent(in) :: target_datatype"
-    echo "  integer, intent(in) :: win"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
-    echo "  integer, intent(in) :: origin_count"
-    echo "  integer, intent(in) :: origin_datatype"
-    echo "  integer, intent(in) :: target_rank"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
-    echo "  integer, intent(in) :: target_count"
-    echo "  integer, intent(in) :: target_datatype"
-    echo "  integer, intent(in) :: win"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
-    echo "  integer, intent(in) :: origin_count"
-    echo "  integer, intent(in) :: origin_datatype"
-    echo "  integer, intent(in) :: target_rank"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
-    echo "  integer, intent(in) :: target_count"
-    echo "  integer, intent(in) :: target_datatype"
-    echo "  integer, intent(in) :: win"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Get_address'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(location, address, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: location"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(out) :: address"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(location, address, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(location, address, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: location"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(out) :: address"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(location, address, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(location, address, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: location"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(out) :: address"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(location, address, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(location, address, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: location"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(out) :: address"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(location, address, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(location, address, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: location"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(out) :: address"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(location, address, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(location, address, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: location"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(out) :: address"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(location, address, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(location, address, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: location"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(out) :: address"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(location, address, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(location, address, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: location"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(out) :: address"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(location, address, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Ibsend'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Irecv'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: source"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: source"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: source"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: source"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: source"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: source"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: source"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: source"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Irsend'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Isend'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Issend'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Pack'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(inbuf, incount, datatype, outbuf, outsize, &
-        position, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: inbuf"
-  echo "  integer, intent(in) :: incount"
-  echo "  integer, intent(in) :: datatype"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: outbuf"
-  echo "  integer, intent(out) :: outsize"
-  echo "  integer, intent(inout) :: position"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(inbuf, incount, datatype, outbuf, outsize, &
-        position, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(inbuf, incount, datatype, outbuf, outsize, &
-        position, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: inbuf"
-  echo "  integer, intent(in) :: incount"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: outbuf"
-  echo "  integer, intent(out) :: outsize"
-  echo "  integer, intent(inout) :: position"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(inbuf, incount, datatype, outbuf, outsize, &
-        position, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(inbuf, incount, datatype, outbuf, outsize, &
-        position, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: inbuf"
-  echo "  integer, intent(in) :: incount"
-  echo "  integer, intent(in) :: datatype"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: outbuf"
-  echo "  integer, intent(out) :: outsize"
-  echo "  integer, intent(inout) :: position"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(inbuf, incount, datatype, outbuf, outsize, &
-        position, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(inbuf, incount, datatype, outbuf, outsize, &
-        position, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: inbuf"
-  echo "  integer, intent(in) :: incount"
-  echo "  integer, intent(in) :: datatype"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: outbuf"
-  echo "  integer, intent(out) :: outsize"
-  echo "  integer, intent(inout) :: position"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(inbuf, incount, datatype, outbuf, outsize, &
-        position, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(inbuf, incount, datatype, outbuf, outsize, &
-        position, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: inbuf"
-    echo "  integer, intent(in) :: incount"
-    echo "  integer, intent(in) :: datatype"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: outbuf"
-    echo "  integer, intent(out) :: outsize"
-    echo "  integer, intent(inout) :: position"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(inbuf, incount, datatype, outbuf, outsize, &
-        position, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(inbuf, incount, datatype, outbuf, outsize, &
-        position, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: inbuf"
-    echo "  integer, intent(in) :: incount"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: outbuf"
-    echo "  integer, intent(out) :: outsize"
-    echo "  integer, intent(inout) :: position"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(inbuf, incount, datatype, outbuf, outsize, &
-        position, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(inbuf, incount, datatype, outbuf, outsize, &
-        position, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: inbuf"
-    echo "  integer, intent(in) :: incount"
-    echo "  integer, intent(in) :: datatype"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: outbuf"
-    echo "  integer, intent(out) :: outsize"
-    echo "  integer, intent(inout) :: position"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(inbuf, incount, datatype, outbuf, outsize, &
-        position, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(inbuf, incount, datatype, outbuf, outsize, &
-        position, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: inbuf"
-    echo "  integer, intent(in) :: incount"
-    echo "  integer, intent(in) :: datatype"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: outbuf"
-    echo "  integer, intent(out) :: outsize"
-    echo "  integer, intent(inout) :: position"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(inbuf, incount, datatype, outbuf, outsize, &
-        position, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Pack_external'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(datarep, inbuf, incount, datatype, outbuf, &
-        outsize, position, ierr)"
-  echo "  use mpi_kinds"
-  echo "  character(len=*), intent(in) :: datarep"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: inbuf"
-  echo "  integer, intent(in) :: incount"
-  echo "  integer, intent(in) :: datatype"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: outbuf"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: outsize"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(inout) :: position"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(datarep, inbuf, incount, datatype, outbuf, &
-        outsize, position, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(datarep, inbuf, incount, datatype, outbuf, &
-        outsize, position, ierr)"
-  echo "  use mpi_kinds"
-  echo "  character(len=*), intent(in) :: datarep"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: inbuf"
-  echo "  integer, intent(in) :: incount"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: outbuf"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: outsize"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(inout) :: position"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(datarep, inbuf, incount, datatype, outbuf, &
-        outsize, position, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(datarep, inbuf, incount, datatype, outbuf, &
-        outsize, position, ierr)"
-  echo "  use mpi_kinds"
-  echo "  character(len=*), intent(in) :: datarep"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: inbuf"
-  echo "  integer, intent(in) :: incount"
-  echo "  integer, intent(in) :: datatype"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: outbuf"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: outsize"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(inout) :: position"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(datarep, inbuf, incount, datatype, outbuf, &
-        outsize, position, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(datarep, inbuf, incount, datatype, outbuf, &
-        outsize, position, ierr)"
-  echo "  use mpi_kinds"
-  echo "  character(len=*), intent(in) :: datarep"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: inbuf"
-  echo "  integer, intent(in) :: incount"
-  echo "  integer, intent(in) :: datatype"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: outbuf"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: outsize"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(inout) :: position"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(datarep, inbuf, incount, datatype, outbuf, &
-        outsize, position, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(datarep, inbuf, incount, datatype, outbuf, &
-        outsize, position, ierr)"
-    echo "  use mpi_kinds"
-    echo "  character(len=*), intent(in) :: datarep"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: inbuf"
-    echo "  integer, intent(in) :: incount"
-    echo "  integer, intent(in) :: datatype"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: outbuf"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: outsize"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(inout) :: position"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(datarep, inbuf, incount, datatype, outbuf, &
-        outsize, position, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(datarep, inbuf, incount, datatype, outbuf, &
-        outsize, position, ierr)"
-    echo "  use mpi_kinds"
-    echo "  character(len=*), intent(in) :: datarep"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: inbuf"
-    echo "  integer, intent(in) :: incount"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: outbuf"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: outsize"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(inout) :: position"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(datarep, inbuf, incount, datatype, outbuf, &
-        outsize, position, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(datarep, inbuf, incount, datatype, outbuf, &
-        outsize, position, ierr)"
-    echo "  use mpi_kinds"
-    echo "  character(len=*), intent(in) :: datarep"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: inbuf"
-    echo "  integer, intent(in) :: incount"
-    echo "  integer, intent(in) :: datatype"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: outbuf"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: outsize"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(inout) :: position"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(datarep, inbuf, incount, datatype, outbuf, &
-        outsize, position, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(datarep, inbuf, incount, datatype, outbuf, &
-        outsize, position, ierr)"
-    echo "  use mpi_kinds"
-    echo "  character(len=*), intent(in) :: datarep"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: inbuf"
-    echo "  integer, intent(in) :: incount"
-    echo "  integer, intent(in) :: datatype"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: outbuf"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: outsize"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(inout) :: position"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(datarep, inbuf, incount, datatype, outbuf, &
-        outsize, position, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Put'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: origin_addr"
-  echo "  integer, intent(in) :: origin_count"
-  echo "  integer, intent(in) :: origin_datatype"
-  echo "  integer, intent(in) :: target_rank"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
-  echo "  integer, intent(in) :: target_count"
-  echo "  integer, intent(in) :: target_datatype"
-  echo "  integer, intent(in) :: win"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: origin_addr"
-  echo "  integer, intent(in) :: origin_count"
-  echo "  integer, intent(in) :: origin_datatype"
-  echo "  integer, intent(in) :: target_rank"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
-  echo "  integer, intent(in) :: target_count"
-  echo "  integer, intent(in) :: target_datatype"
-  echo "  integer, intent(in) :: win"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: origin_addr"
-  echo "  integer, intent(in) :: origin_count"
-  echo "  integer, intent(in) :: origin_datatype"
-  echo "  integer, intent(in) :: target_rank"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
-  echo "  integer, intent(in) :: target_count"
-  echo "  integer, intent(in) :: target_datatype"
-  echo "  integer, intent(in) :: win"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: origin_addr"
-  echo "  integer, intent(in) :: origin_count"
-  echo "  integer, intent(in) :: origin_datatype"
-  echo "  integer, intent(in) :: target_rank"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
-  echo "  integer, intent(in) :: target_count"
-  echo "  integer, intent(in) :: target_datatype"
-  echo "  integer, intent(in) :: win"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
-    echo "  integer, intent(in) :: origin_count"
-    echo "  integer, intent(in) :: origin_datatype"
-    echo "  integer, intent(in) :: target_rank"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
-    echo "  integer, intent(in) :: target_count"
-    echo "  integer, intent(in) :: target_datatype"
-    echo "  integer, intent(in) :: win"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
-    echo "  integer, intent(in) :: origin_count"
-    echo "  integer, intent(in) :: origin_datatype"
-    echo "  integer, intent(in) :: target_rank"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
-    echo "  integer, intent(in) :: target_count"
-    echo "  integer, intent(in) :: target_datatype"
-    echo "  integer, intent(in) :: win"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
-    echo "  integer, intent(in) :: origin_count"
-    echo "  integer, intent(in) :: origin_datatype"
-    echo "  integer, intent(in) :: target_rank"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
-    echo "  integer, intent(in) :: target_count"
-    echo "  integer, intent(in) :: target_datatype"
-    echo "  integer, intent(in) :: win"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
-    echo "  integer, intent(in) :: origin_count"
-    echo "  integer, intent(in) :: origin_datatype"
-    echo "  integer, intent(in) :: target_rank"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
-    echo "  integer, intent(in) :: target_count"
-    echo "  integer, intent(in) :: target_datatype"
-    echo "  integer, intent(in) :: win"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Recv'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, source, tag, &
-        comm, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: source"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, source, tag, &
-        comm, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, source, tag, &
-        comm, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: source"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, source, tag, &
-        comm, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, source, tag, &
-        comm, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: source"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, source, tag, &
-        comm, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, source, tag, &
-        comm, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: source"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, source, tag, &
-        comm, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, source, tag, &
-        comm, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: source"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, source, tag, &
-        comm, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, source, tag, &
-        comm, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: source"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, source, tag, &
-        comm, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, source, tag, &
-        comm, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: source"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, source, tag, &
-        comm, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, source, tag, &
-        comm, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: source"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, source, tag, &
-        comm, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Recv_init'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: source"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: source"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: source"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: source"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: source"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: source"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: source"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: source"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, source, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Reduce'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        root, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: op"
-  echo "  integer, intent(in) :: root"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        root, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        root, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: op"
-  echo "  integer, intent(in) :: root"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        root, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        root, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: op"
-  echo "  integer, intent(in) :: root"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        root, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        root, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: op"
-  echo "  integer, intent(in) :: root"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        root, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        root, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: op"
-    echo "  integer, intent(in) :: root"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        root, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        root, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: op"
-    echo "  integer, intent(in) :: root"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        root, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        root, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: op"
-    echo "  integer, intent(in) :: root"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        root, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        root, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: op"
-    echo "  integer, intent(in) :: root"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        root, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Reduce_scatter'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(sendbuf, recvbuf, recvcounts, datatype, op, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: recvcounts"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: op"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, recvcounts, datatype, op, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(sendbuf, recvbuf, recvcounts, datatype, op, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: recvcounts"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: op"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, recvcounts, datatype, op, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(sendbuf, recvbuf, recvcounts, datatype, op, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: recvcounts"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: op"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, recvcounts, datatype, op, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(sendbuf, recvbuf, recvcounts, datatype, op, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: recvcounts"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: op"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, recvcounts, datatype, op, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(sendbuf, recvbuf, recvcounts, datatype, op, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: recvcounts"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: op"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, recvcounts, datatype, op, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(sendbuf, recvbuf, recvcounts, datatype, op, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: recvcounts"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: op"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, recvcounts, datatype, op, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(sendbuf, recvbuf, recvcounts, datatype, op, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: recvcounts"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: op"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, recvcounts, datatype, op, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(sendbuf, recvbuf, recvcounts, datatype, op, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: recvcounts"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: op"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, recvcounts, datatype, op, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Rsend'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(ibuf, count, datatype, dest, tag, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: ibuf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(ibuf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(ibuf, count, datatype, dest, tag, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: ibuf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(ibuf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(ibuf, count, datatype, dest, tag, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: ibuf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(ibuf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(ibuf, count, datatype, dest, tag, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: ibuf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(ibuf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(ibuf, count, datatype, dest, tag, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: ibuf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(ibuf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(ibuf, count, datatype, dest, tag, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: ibuf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(ibuf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(ibuf, count, datatype, dest, tag, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: ibuf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(ibuf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(ibuf, count, datatype, dest, tag, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: ibuf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(ibuf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Rsend_init'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Scan'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: op"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: op"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: op"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: op"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: op"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: op"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: op"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: op"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Scatter'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, intent(in) :: sendcount"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: recvcount"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: root"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, intent(in) :: sendcount"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: recvcount"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: root"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, intent(in) :: sendcount"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: recvcount"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: root"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, intent(in) :: sendcount"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: recvcount"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: root"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, intent(in) :: sendcount"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: recvcount"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: root"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, intent(in) :: sendcount"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: recvcount"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: root"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, intent(in) :: sendcount"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: recvcount"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: root"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, intent(in) :: sendcount"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: recvcount"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: root"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
-        recvtype, root, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Scatterv'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
-        recvcount, recvtype, root, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, intent(in) :: sendcounts"
-  echo "  integer, intent(in) :: displs"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: recvcount"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: root"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
-        recvcount, recvtype, root, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
-        recvcount, recvtype, root, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, intent(in) :: sendcounts"
-  echo "  integer, intent(in) :: displs"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: recvcount"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: root"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
-        recvcount, recvtype, root, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
-        recvcount, recvtype, root, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, intent(in) :: sendcounts"
-  echo "  integer, intent(in) :: displs"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: recvcount"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: root"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
-        recvcount, recvtype, root, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
-        recvcount, recvtype, root, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, intent(in) :: sendcounts"
-  echo "  integer, intent(in) :: displs"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: recvcount"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: root"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
-        recvcount, recvtype, root, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
-        recvcount, recvtype, root, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, intent(in) :: sendcounts"
-    echo "  integer, intent(in) :: displs"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: recvcount"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: root"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
-        recvcount, recvtype, root, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
-        recvcount, recvtype, root, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, intent(in) :: sendcounts"
-    echo "  integer, intent(in) :: displs"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: recvcount"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: root"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
-        recvcount, recvtype, root, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
-        recvcount, recvtype, root, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, intent(in) :: sendcounts"
-    echo "  integer, intent(in) :: displs"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: recvcount"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: root"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
-        recvcount, recvtype, root, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
-        recvcount, recvtype, root, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, intent(in) :: sendcounts"
-    echo "  integer, intent(in) :: displs"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: recvcount"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: root"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
-        recvcount, recvtype, root, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Send'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Send_init'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Sendrecv'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcount, sendtype, dest, sendtag, &
-        recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, intent(in) :: sendcount"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: sendtag"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: recvcount"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: source"
-  echo "  integer, intent(in) :: recvtag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, dest, sendtag, &
-        recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcount, sendtype, dest, sendtag, &
-        recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, intent(in) :: sendcount"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: sendtag"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: recvcount"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: source"
-  echo "  integer, intent(in) :: recvtag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, dest, sendtag, &
-        recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcount, sendtype, dest, sendtag, &
-        recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, intent(in) :: sendcount"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: sendtag"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: recvcount"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: source"
-  echo "  integer, intent(in) :: recvtag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, dest, sendtag, &
-        recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(sendbuf, sendcount, sendtype, dest, sendtag, &
-        recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
-  echo "  integer, intent(in) :: sendcount"
-  echo "  integer, intent(in) :: sendtype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: sendtag"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
-  echo "  integer, intent(in) :: recvcount"
-  echo "  integer, intent(in) :: recvtype"
-  echo "  integer, intent(in) :: source"
-  echo "  integer, intent(in) :: recvtag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, dest, sendtag, &
-        recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcount, sendtype, dest, sendtag, &
-        recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, intent(in) :: sendcount"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: sendtag"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: recvcount"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: source"
-    echo "  integer, intent(in) :: recvtag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, dest, sendtag, &
-        recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcount, sendtype, dest, sendtag, &
-        recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, intent(in) :: sendcount"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: sendtag"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: recvcount"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: source"
-    echo "  integer, intent(in) :: recvtag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, dest, sendtag, &
-        recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcount, sendtype, dest, sendtag, &
-        recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, intent(in) :: sendcount"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: sendtag"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: recvcount"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: source"
-    echo "  integer, intent(in) :: recvtag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, dest, sendtag, &
-        recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(sendbuf, sendcount, sendtype, dest, sendtag, &
-        recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
-    echo "  integer, intent(in) :: sendcount"
-    echo "  integer, intent(in) :: sendtype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: sendtag"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
-    echo "  integer, intent(in) :: recvcount"
-    echo "  integer, intent(in) :: recvtype"
-    echo "  integer, intent(in) :: source"
-    echo "  integer, intent(in) :: recvtag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(sendbuf, sendcount, sendtype, dest, sendtag, &
-        recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Sendrecv_replace'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, sendtag, &
-        source, recvtag, comm, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(inout) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: sendtag"
-  echo "  integer, intent(in) :: source"
-  echo "  integer, intent(in) :: recvtag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, sendtag, &
-        source, recvtag, comm, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, sendtag, &
-        source, recvtag, comm, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(inout) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: sendtag"
-  echo "  integer, intent(in) :: source"
-  echo "  integer, intent(in) :: recvtag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, sendtag, &
-        source, recvtag, comm, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, sendtag, &
-        source, recvtag, comm, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(inout) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: sendtag"
-  echo "  integer, intent(in) :: source"
-  echo "  integer, intent(in) :: recvtag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, sendtag, &
-        source, recvtag, comm, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, sendtag, &
-        source, recvtag, comm, status, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(inout) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: sendtag"
-  echo "  integer, intent(in) :: source"
-  echo "  integer, intent(in) :: recvtag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, sendtag, &
-        source, recvtag, comm, status, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, sendtag, &
-        source, recvtag, comm, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(inout) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: sendtag"
-    echo "  integer, intent(in) :: source"
-    echo "  integer, intent(in) :: recvtag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, sendtag, &
-        source, recvtag, comm, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, sendtag, &
-        source, recvtag, comm, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(inout) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: sendtag"
-    echo "  integer, intent(in) :: source"
-    echo "  integer, intent(in) :: recvtag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, sendtag, &
-        source, recvtag, comm, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, sendtag, &
-        source, recvtag, comm, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(inout) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: sendtag"
-    echo "  integer, intent(in) :: source"
-    echo "  integer, intent(in) :: recvtag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, sendtag, &
-        source, recvtag, comm, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, sendtag, &
-        source, recvtag, comm, status, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(inout) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: sendtag"
-    echo "  integer, intent(in) :: source"
-    echo "  integer, intent(in) :: recvtag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, sendtag, &
-        source, recvtag, comm, status, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Ssend'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Ssend_init'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
-  echo "  integer, intent(in) :: count"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: dest"
-  echo "  integer, intent(in) :: tag"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: request"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
-    echo "  integer, intent(in) :: count"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: dest"
-    echo "  integer, intent(in) :: tag"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: request"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(buf, count, datatype, dest, tag, &
-        comm, request, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Unpack'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(inbuf, insize, position, outbuf, outcount, &
-        datatype, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: inbuf"
-  echo "  integer, intent(in) :: insize"
-  echo "  integer, intent(inout) :: position"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: outbuf"
-  echo "  integer, intent(in) :: outcount"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(inbuf, insize, position, outbuf, outcount, &
-        datatype, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(inbuf, insize, position, outbuf, outcount, &
-        datatype, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: inbuf"
-  echo "  integer, intent(in) :: insize"
-  echo "  integer, intent(inout) :: position"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: outbuf"
-  echo "  integer, intent(in) :: outcount"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(inbuf, insize, position, outbuf, outcount, &
-        datatype, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(inbuf, insize, position, outbuf, outcount, &
-        datatype, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: inbuf"
-  echo "  integer, intent(in) :: insize"
-  echo "  integer, intent(inout) :: position"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: outbuf"
-  echo "  integer, intent(in) :: outcount"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(inbuf, insize, position, outbuf, outcount, &
-        datatype, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(inbuf, insize, position, outbuf, outcount, &
-        datatype, comm, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: inbuf"
-  echo "  integer, intent(in) :: insize"
-  echo "  integer, intent(inout) :: position"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: outbuf"
-  echo "  integer, intent(in) :: outcount"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(inbuf, insize, position, outbuf, outcount, &
-        datatype, comm, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(inbuf, insize, position, outbuf, outcount, &
-        datatype, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: inbuf"
-    echo "  integer, intent(in) :: insize"
-    echo "  integer, intent(inout) :: position"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: outbuf"
-    echo "  integer, intent(in) :: outcount"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(inbuf, insize, position, outbuf, outcount, &
-        datatype, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(inbuf, insize, position, outbuf, outcount, &
-        datatype, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: inbuf"
-    echo "  integer, intent(in) :: insize"
-    echo "  integer, intent(inout) :: position"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: outbuf"
-    echo "  integer, intent(in) :: outcount"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(inbuf, insize, position, outbuf, outcount, &
-        datatype, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(inbuf, insize, position, outbuf, outcount, &
-        datatype, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: inbuf"
-    echo "  integer, intent(in) :: insize"
-    echo "  integer, intent(inout) :: position"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: outbuf"
-    echo "  integer, intent(in) :: outcount"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(inbuf, insize, position, outbuf, outcount, &
-        datatype, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(inbuf, insize, position, outbuf, outcount, &
-        datatype, comm, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: inbuf"
-    echo "  integer, intent(in) :: insize"
-    echo "  integer, intent(inout) :: position"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: outbuf"
-    echo "  integer, intent(in) :: outcount"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(inbuf, insize, position, outbuf, outcount, &
-        datatype, comm, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Unpack_external'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(datarep, inbuf, insize, position, outbuf, &
-        outcount, datatype, ierr)"
-  echo "  use mpi_kinds"
-  echo "  character(len=*), intent(in) :: datarep"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: inbuf"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: insize"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(inout) :: position"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: outbuf"
-  echo "  integer, intent(in) :: outcount"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(datarep, inbuf, insize, position, outbuf, &
-        outcount, datatype, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(datarep, inbuf, insize, position, outbuf, &
-        outcount, datatype, ierr)"
-  echo "  use mpi_kinds"
-  echo "  character(len=*), intent(in) :: datarep"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: inbuf"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: insize"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(inout) :: position"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: outbuf"
-  echo "  integer, intent(in) :: outcount"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(datarep, inbuf, insize, position, outbuf, &
-        outcount, datatype, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(datarep, inbuf, insize, position, outbuf, &
-        outcount, datatype, ierr)"
-  echo "  use mpi_kinds"
-  echo "  character(len=*), intent(in) :: datarep"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: inbuf"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: insize"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(inout) :: position"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(out) :: outbuf"
-  echo "  integer, intent(in) :: outcount"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(datarep, inbuf, insize, position, outbuf, &
-        outcount, datatype, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(datarep, inbuf, insize, position, outbuf, &
-        outcount, datatype, ierr)"
-  echo "  use mpi_kinds"
-  echo "  character(len=*), intent(in) :: datarep"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: inbuf"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: insize"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(inout) :: position"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(out) :: outbuf"
-  echo "  integer, intent(in) :: outcount"
-  echo "  integer, intent(in) :: datatype"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(datarep, inbuf, insize, position, outbuf, &
-        outcount, datatype, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(datarep, inbuf, insize, position, outbuf, &
-        outcount, datatype, ierr)"
-    echo "  use mpi_kinds"
-    echo "  character(len=*), intent(in) :: datarep"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: inbuf"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: insize"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(inout) :: position"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: outbuf"
-    echo "  integer, intent(in) :: outcount"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(datarep, inbuf, insize, position, outbuf, &
-        outcount, datatype, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(datarep, inbuf, insize, position, outbuf, &
-        outcount, datatype, ierr)"
-    echo "  use mpi_kinds"
-    echo "  character(len=*), intent(in) :: datarep"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: inbuf"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: insize"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(inout) :: position"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: outbuf"
-    echo "  integer, intent(in) :: outcount"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(datarep, inbuf, insize, position, outbuf, &
-        outcount, datatype, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(datarep, inbuf, insize, position, outbuf, &
-        outcount, datatype, ierr)"
-    echo "  use mpi_kinds"
-    echo "  character(len=*), intent(in) :: datarep"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: inbuf"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: insize"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(inout) :: position"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: outbuf"
-    echo "  integer, intent(in) :: outcount"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(datarep, inbuf, insize, position, outbuf, &
-        outcount, datatype, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(datarep, inbuf, insize, position, outbuf, &
-        outcount, datatype, ierr)"
-    echo "  use mpi_kinds"
-    echo "  character(len=*), intent(in) :: datarep"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: inbuf"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: insize"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(inout) :: position"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: outbuf"
-    echo "  integer, intent(in) :: outcount"
-    echo "  integer, intent(in) :: datatype"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(datarep, inbuf, insize, position, outbuf, &
-        outcount, datatype, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
-
-procedure='MPI_Win_create'
-
-rank=0
-for kind in $lkinds
-do
-  proc="${procedure}${rank}DL${kind}"
-  echo "subroutine ${proc}(base, size, disp_unit, info, comm, &
-        win, ierr)"
-  echo "  use mpi_kinds"
-  echo "  logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: base"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: size"
-  echo "  integer, intent(in) :: disp_unit"
-  echo "  integer, intent(in) :: info"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(in) :: win"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(base, size, disp_unit, info, comm, &
-        win, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ikinds
-do
-  proc="${procedure}${rank}DI${kind}"
-  echo "subroutine ${proc}(base, size, disp_unit, info, comm, &
-        win, ierr)"
-  echo "  use mpi_kinds"
-  echo "  integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: base"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: size"
-  echo "  integer, intent(in) :: disp_unit"
-  echo "  integer, intent(in) :: info"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(in) :: win"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(base, size, disp_unit, info, comm, &
-        win, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $rkinds
-do
-  proc="${procedure}${rank}DR${kind}"
-  echo "subroutine ${proc}(base, size, disp_unit, info, comm, &
-        win, ierr)"
-  echo "  use mpi_kinds"
-  echo "  real(kind=MPI_REAL${kind}_KIND), intent(in) :: base"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: size"
-  echo "  integer, intent(in) :: disp_unit"
-  echo "  integer, intent(in) :: info"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(in) :: win"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(base, size, disp_unit, info, comm, &
-        win, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-rank=0
-for kind in $ckinds
-do
-  proc="${procedure}${rank}DC${kind}"
-  echo "subroutine ${proc}(base, size, disp_unit, info, comm, &
-        win, ierr)"
-  echo "  use mpi_kinds"
-  echo "  complex(kind=MPI_REAL${kind}_KIND), intent(in) :: base"
-  echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: size"
-  echo "  integer, intent(in) :: disp_unit"
-  echo "  integer, intent(in) :: info"
-  echo "  integer, intent(in) :: comm"
-  echo "  integer, intent(in) :: win"
-  echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(base, size, disp_unit, info, comm, &
-        win, ierr)"
-
-  echo "end subroutine ${proc}"
-  echo
-done
-
-
-for rank in $ranks
-do
-  case "$rank" in  1)  dim=':'  ;  esac
-  case "$rank" in  2)  dim=':,:'  ;  esac
-  case "$rank" in  3)  dim=':,:,:'  ;  esac
-  case "$rank" in  4)  dim=':,:,:,:'  ;  esac
-  case "$rank" in  5)  dim=':,:,:,:,:'  ;  esac
-  case "$rank" in  6)  dim=':,:,:,:,:,:'  ;  esac
-  case "$rank" in  7)  dim=':,:,:,:,:,:,:'  ;  esac
-
-  for kind in $lkinds
-  do
-    proc="${procedure}${rank}DL${kind}"
-    echo "subroutine ${proc}(base, size, disp_unit, info, comm, &
-        win, ierr)"
-    echo "  use mpi_kinds"
-    echo "  logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: base"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: size"
-    echo "  integer, intent(in) :: disp_unit"
-    echo "  integer, intent(in) :: info"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(in) :: win"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(base, size, disp_unit, info, comm, &
-        win, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ikinds
-  do
-    proc="${procedure}${rank}DI${kind}"
-    echo "subroutine ${proc}(base, size, disp_unit, info, comm, &
-        win, ierr)"
-    echo "  use mpi_kinds"
-    echo "  integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: base"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: size"
-    echo "  integer, intent(in) :: disp_unit"
-    echo "  integer, intent(in) :: info"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(in) :: win"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(base, size, disp_unit, info, comm, &
-        win, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $rkinds
-  do
-    proc="${procedure}${rank}DR${kind}"
-    echo "subroutine ${proc}(base, size, disp_unit, info, comm, &
-        win, ierr)"
-    echo "  use mpi_kinds"
-    echo "  real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: base"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: size"
-    echo "  integer, intent(in) :: disp_unit"
-    echo "  integer, intent(in) :: info"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(in) :: win"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(base, size, disp_unit, info, comm, &
-        win, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-
-  for kind in $ckinds
-  do
-    proc="${procedure}${rank}DC${kind}"
-    echo "subroutine ${proc}(base, size, disp_unit, info, comm, &
-        win, ierr)"
-    echo "  use mpi_kinds"
-    echo "  complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: base"
-    echo "  integer(kind=MPI_ADDRESS_KIND), intent(in) :: size"
-    echo "  integer, intent(in) :: disp_unit"
-    echo "  integer, intent(in) :: info"
-    echo "  integer, intent(in) :: comm"
-    echo "  integer, intent(in) :: win"
-    echo "  integer, intent(out) :: ierr"
-    echo "  call ${procedure}(base, size, disp_unit, info, comm, &
-        win, ierr)"
-
-    echo "end subroutine ${proc}"
-    echo
-  done
-  echo
-done
-echo
-echo
-echo
-
diff --git a/ompi/mpi/f90/scripts/mpi_file_read_ordered_begin_f90.f90.sh b/ompi/mpi/f90/scripts/mpi_file_read_ordered_begin_f90.f90.sh
index c88706b135..e003c0684b 100755
--- a/ompi/mpi/f90/scripts/mpi_file_read_ordered_begin_f90.f90.sh
+++ b/ompi/mpi/f90/scripts/mpi_file_read_ordered_begin_f90.f90.sh
@@ -4,10 +4,17 @@
 
 procedure='MPI_File_read_ordered_begin'
 
+# JMS: Override -- need to make the back-end function less than 31
+# characters because F90 standard says that symbol max lengths are 31
+# characters.  So change the value of $procedure to something slightly
+# shorter.  $proc, hard code it to something slightly different.
+# #$%@#$%@#$%
+short=MPI_File_read_ord_begin
+
 rank=0
 for kind in $lkinds
 do
-  proc="${procedure}${rank}DL${kind}"
+  proc="${short}${rank}DL${kind}"
   echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
   echo "  use mpi_kinds"
   echo "  integer, intent(inout) :: fh"
@@ -24,7 +31,7 @@ done
 rank=0
 for kind in $ikinds
 do
-  proc="${procedure}${rank}DI${kind}"
+  proc="${short}${rank}DI${kind}"
   echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
   echo "  use mpi_kinds"
   echo "  integer, intent(inout) :: fh"
@@ -41,7 +48,7 @@ done
 rank=0
 for kind in $rkinds
 do
-  proc="${procedure}${rank}DR${kind}"
+  proc="${short}${rank}DR${kind}"
   echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
   echo "  use mpi_kinds"
   echo "  integer, intent(inout) :: fh"
@@ -58,7 +65,7 @@ done
 rank=0
 for kind in $ckinds
 do
-  proc="${procedure}${rank}DC${kind}"
+  proc="${short}${rank}DC${kind}"
   echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
   echo "  use mpi_kinds"
   echo "  integer, intent(inout) :: fh"
@@ -85,7 +92,7 @@ do
 
   for kind in $lkinds
   do
-    proc="${procedure}${rank}DL${kind}"
+    proc="${short}${rank}DL${kind}"
     echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
     echo "  use mpi_kinds"
     echo "  integer, intent(inout) :: fh"
@@ -101,7 +108,7 @@ do
 
   for kind in $ikinds
   do
-    proc="${procedure}${rank}DI${kind}"
+    proc="${short}${rank}DI${kind}"
     echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
     echo "  use mpi_kinds"
     echo "  integer, intent(inout) :: fh"
@@ -117,7 +124,7 @@ do
 
   for kind in $rkinds
   do
-    proc="${procedure}${rank}DR${kind}"
+    proc="${short}${rank}DR${kind}"
     echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
     echo "  use mpi_kinds"
     echo "  integer, intent(inout) :: fh"
@@ -133,7 +140,7 @@ do
 
   for kind in $ckinds
   do
-    proc="${procedure}${rank}DC${kind}"
+    proc="${short}${rank}DC${kind}"
     echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
     echo "  use mpi_kinds"
     echo "  integer, intent(inout) :: fh"
diff --git a/ompi/mpi/f90/scripts/mpi_file_write_at_all_begin_f90.f90.sh b/ompi/mpi/f90/scripts/mpi_file_write_at_all_begin_f90.f90.sh
index 9c96411ef8..c16061328f 100755
--- a/ompi/mpi/f90/scripts/mpi_file_write_at_all_begin_f90.f90.sh
+++ b/ompi/mpi/f90/scripts/mpi_file_write_at_all_begin_f90.f90.sh
@@ -4,10 +4,17 @@
 
 procedure='MPI_File_write_at_all_begin'
 
+# JMS: Override -- need to make the back-end function less than 31
+# characters because F90 standard says that symbol max lengths are 31
+# characters.  So change the value of $procedure to something slightly
+# shorter.  $proc, hard code it to something slightly different.
+# #$%@#$%@#$%
+short=MPI_File_wr_at_all_begin
+
 rank=0
 for kind in $lkinds
 do
-  proc="${procedure}${rank}DL${kind}"
+  proc="${short}${rank}DL${kind}"
   echo "subroutine ${proc}(fh, offset, buf, count, datatype&
         , ierr)"
   echo "  use mpi_kinds"
@@ -27,7 +34,7 @@ done
 rank=0
 for kind in $ikinds
 do
-  proc="${procedure}${rank}DI${kind}"
+  proc="${short}${rank}DI${kind}"
   echo "subroutine ${proc}(fh, offset, buf, count, datatype&
         , ierr)"
   echo "  use mpi_kinds"
@@ -47,7 +54,7 @@ done
 rank=0
 for kind in $rkinds
 do
-  proc="${procedure}${rank}DR${kind}"
+  proc="${short}${rank}DR${kind}"
   echo "subroutine ${proc}(fh, offset, buf, count, datatype&
         , ierr)"
   echo "  use mpi_kinds"
@@ -67,7 +74,7 @@ done
 rank=0
 for kind in $ckinds
 do
-  proc="${procedure}${rank}DC${kind}"
+  proc="${short}${rank}DC${kind}"
   echo "subroutine ${proc}(fh, offset, buf, count, datatype&
         , ierr)"
   echo "  use mpi_kinds"
@@ -97,7 +104,7 @@ do
 
   for kind in $lkinds
   do
-    proc="${procedure}${rank}DL${kind}"
+    proc="${short}${rank}DL${kind}"
     echo "subroutine ${proc}(fh, offset, buf, count, datatype&
         , ierr)"
     echo "  use mpi_kinds"
@@ -116,7 +123,7 @@ do
 
   for kind in $ikinds
   do
-    proc="${procedure}${rank}DI${kind}"
+    proc="${short}${rank}DI${kind}"
     echo "subroutine ${proc}(fh, offset, buf, count, datatype&
         , ierr)"
     echo "  use mpi_kinds"
@@ -135,7 +142,7 @@ do
 
   for kind in $rkinds
   do
-    proc="${procedure}${rank}DR${kind}"
+    proc="${short}${rank}DR${kind}"
     echo "subroutine ${proc}(fh, offset, buf, count, datatype&
         , ierr)"
     echo "  use mpi_kinds"
@@ -154,7 +161,7 @@ do
 
   for kind in $ckinds
   do
-    proc="${procedure}${rank}DC${kind}"
+    proc="${short}${rank}DC${kind}"
     echo "subroutine ${proc}(fh, offset, buf, count, datatype&
         , ierr)"
     echo "  use mpi_kinds"