From c6fb1b51b1ab30658e3fc7c01435238e20527fd1 Mon Sep 17 00:00:00 2001
From: Jeff Squyres <jsquyres@cisco.com>
Date: Wed, 12 Mar 2014 15:51:42 +0000
Subject: [PATCH] Remove "medium" RMA interfaces

We no longer specify interfaces with choice buffers in the TKR "mpi"
module implementation -- MPI-3 prohibits it (see r30169 and r30170 for
more details).

cmr=v1.7.5:ticket=trac:4372

This commit was SVN r31033.

The following SVN revision numbers were found above:
  r30169 --> open-mpi/ompi@759ee33fd4012117ca2d0313526bb9bb5ade472e
  r30170 --> open-mpi/ompi@776f6144af8d51abcf612b4de6ef295f024149c3

The following Trac tickets were found above:
  Ticket 4372 --> https://svn.open-mpi.org/trac/ompi/ticket/4372
---
 .../scripts/mpi-f90-interfaces.h.sh           | 437 +-----------------
 1 file changed, 1 insertion(+), 436 deletions(-)

diff --git a/ompi/mpi/fortran/use-mpi-tkr/scripts/mpi-f90-interfaces.h.sh b/ompi/mpi/fortran/use-mpi-tkr/scripts/mpi-f90-interfaces.h.sh
index 6c342b7ed1..a7ea04308d 100755
--- a/ompi/mpi/fortran/use-mpi-tkr/scripts/mpi-f90-interfaces.h.sh
+++ b/ompi/mpi/fortran/use-mpi-tkr/scripts/mpi-f90-interfaces.h.sh
@@ -8,7 +8,7 @@
 #                         reserved.
 # Copyright (c) 2004-2006 The Regents of the University of California.
 #                         All rights reserved.
-# Copyright (c) 2006-2012 Cisco Systems, Inc.  All rights reserved.
+# Copyright (c) 2006-2014 Cisco Systems, Inc.  All rights reserved.
 # Copyright (c) 2012      FUJITSU LIMITED.  All rights reserved.
 # Copyright (c) 2012      Inria.  All rights reserved.
 # Copyright (c) 2013      Los Alamos Nationa Security, LLC. All rights
@@ -11442,438 +11442,3 @@ EOF
 start MPI_Win_flush_local_all small
 output_299 MPI_Win_flush_local_all
 end MPI_Win_flush_local_all
-
-#------------------------------------------------------------------------
-
-output_300() {
-    if test "$output" = "0"; then
-        return 0
-    fi
-
-    procedure=$1
-    rank=$2
-    type=$4
-    proc="$1$2D$3"
-    cat <<EOF
-
-subroutine ${proc}(origin_addr, origin_count, origin_datatype, result_addr, &
-                   result_count, result_datatype, target_rank, target_disp, &
-                   target_count, target_datatype, op, win, ierror)
-  include 'mpif-config.h'
-  ${type} :: origin_addr
-  integer, intent(in) :: origin_count
-  integer, intent(in) :: origin_datatype
-  ${type} :: result_addr
-  integer, intent(in) :: result_count
-  integer, intent(in) :: result_datatype
-  integer, intent(in) :: target_rank
-  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp
-  integer, intent(in) :: target_count
-  integer, intent(in) :: target_datatype
-  integer, intent(in) :: op
-  integer, intent(in) :: win
-  integer, intent(out) :: ierror
-end subroutine ${proc}
-
-EOF
-}
-
-start MPI_Get_accumulate medium
-
-for rank in $allranks
-do
-  case "$rank" in  0)  dim=''  ;  esac
-  case "$rank" in  1)  dim=', dimension(*)'  ;  esac
-  case "$rank" in  2)  dim=', dimension(1,*)'  ;  esac
-  case "$rank" in  3)  dim=', dimension(1,1,*)'  ;  esac
-  case "$rank" in  4)  dim=', dimension(1,1,1,*)'  ;  esac
-  case "$rank" in  5)  dim=', dimension(1,1,1,1,*)'  ;  esac
-  case "$rank" in  6)  dim=', dimension(1,1,1,1,1,*)'  ;  esac
-  case "$rank" in  7)  dim=', dimension(1,1,1,1,1,1,*)'  ;  esac
-
-  output_300 MPI_Get_accumulate ${rank} CH "character${dim}"
-  output_300 MPI_Get_accumulate ${rank} L "logical${dim}"
-  for kind in $ikinds
-  do
-    output_300 MPI_Get_accumulate ${rank} I${kind} "integer*${kind}${dim}"
-  done
-  for kind in $rkinds
-  do
-    output_300 MPI_Get_accumulate ${rank} R${kind} "real*${kind}${dim}"
-  done
-  for kind in $ckinds
-  do
-    output_300 MPI_Get_accumulate ${rank} C${kind} "complex*${kind}${dim}"
-  done
-done
-end MPI_Get_accumulate
-
-#------------------------------------------------------------------------
-
-output_301() {
-    if test "$output" = "0"; then
-        return 0
-    fi
-
-    procedure=$1
-    rank=$2
-    type=$4
-    proc="$1$2D$3"
-    cat <<EOF
-
-subroutine ${proc}(origin_addr, origin_count, origin_datatype, result_addr, &
-                   result_count, result_datatype, target_rank, target_disp, &
-                   target_count, target_datatype, op, win, request, ierror)
-  include 'mpif-config.h'
-  ${type} :: origin_addr
-  integer, intent(in) :: origin_count
-  integer, intent(in) :: origin_datatype
-  ${type} :: result_addr
-  integer, intent(in) :: result_count
-  integer, intent(in) :: result_datatype
-  integer, intent(in) :: target_rank
-  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp
-  integer, intent(in) :: target_count
-  integer, intent(in) :: target_datatype
-  integer, intent(in) :: op
-  integer, intent(in) :: win
-  integer, intent(out) :: request
-  integer, intent(out) :: ierror
-end subroutine ${proc}
-
-EOF
-}
-
-start MPI_Rget_accumulate medium
-
-for rank in $allranks
-do
-  case "$rank" in  0)  dim=''  ;  esac
-  case "$rank" in  1)  dim=', dimension(*)'  ;  esac
-  case "$rank" in  2)  dim=', dimension(1,*)'  ;  esac
-  case "$rank" in  3)  dim=', dimension(1,1,*)'  ;  esac
-  case "$rank" in  4)  dim=', dimension(1,1,1,*)'  ;  esac
-  case "$rank" in  5)  dim=', dimension(1,1,1,1,*)'  ;  esac
-  case "$rank" in  6)  dim=', dimension(1,1,1,1,1,*)'  ;  esac
-  case "$rank" in  7)  dim=', dimension(1,1,1,1,1,1,*)'  ;  esac
-
-  output_301 MPI_Rget_accumulate ${rank} CH "character${dim}"
-  output_301 MPI_Rget_accumulate ${rank} L "logical${dim}"
-  for kind in $ikinds
-  do
-    output_301 MPI_Rget_accumulate ${rank} I${kind} "integer*${kind}${dim}"
-  done
-  for kind in $rkinds
-  do
-    output_301 MPI_Rget_accumulate ${rank} R${kind} "real*${kind}${dim}"
-  done
-  for kind in $ckinds
-  do
-    output_301 MPI_Rget_accumulate ${rank} C${kind} "complex*${kind}${dim}"
-  done
-done
-end MPI_Rget_accumulate
-
-#------------------------------------------------------------------------
-
-output_302() {
-    if test "$output" = "0"; then
-        return 0
-    fi
-
-    procedure=$1
-    rank=$2
-    type=$4
-    proc="$1$2D$3"
-    cat <<EOF
-
-subroutine ${proc}(origin_addr, result_addr, datatype, target_rank, target_disp, &
-                   op, win, ierror)
-  include 'mpif-config.h'
-  ${type} :: origin_addr
-  ${type} :: result_addr
-  integer, intent(in) :: datatype
-  integer, intent(in) :: target_rank
-  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp
-  integer, intent(in) :: target_count
-  integer, intent(in) :: op
-  integer, intent(in) :: win
-  integer, intent(out) :: ierror
-end subroutine ${proc}
-
-EOF
-}
-
-start MPI_Fetch_and_op medium
-
-for rank in $allranks
-do
-  case "$rank" in  0)  dim=''  ;  esac
-  case "$rank" in  1)  dim=', dimension(*)'  ;  esac
-  case "$rank" in  2)  dim=', dimension(1,*)'  ;  esac
-  case "$rank" in  3)  dim=', dimension(1,1,*)'  ;  esac
-  case "$rank" in  4)  dim=', dimension(1,1,1,*)'  ;  esac
-  case "$rank" in  5)  dim=', dimension(1,1,1,1,*)'  ;  esac
-  case "$rank" in  6)  dim=', dimension(1,1,1,1,1,*)'  ;  esac
-  case "$rank" in  7)  dim=', dimension(1,1,1,1,1,1,*)'  ;  esac
-
-  output_302 MPI_Fetch_and_op ${rank} CH "character${dim}"
-  output_302 MPI_Fetch_and_op ${rank} L "logical${dim}"
-  for kind in $ikinds
-  do
-    output_302 MPI_Fetch_and_op ${rank} I${kind} "integer*${kind}${dim}"
-  done
-  for kind in $rkinds
-  do
-    output_302 MPI_Fetch_and_op ${rank} R${kind} "real*${kind}${dim}"
-  done
-  for kind in $ckinds
-  do
-    output_302 MPI_Fetch_and_op ${rank} C${kind} "complex*${kind}${dim}"
-  done
-done
-end MPI_Fetch_and_op
-
-#------------------------------------------------------------------------
-
-output_303() {
-    if test "$output" = "0"; then
-        return 0
-    fi
-
-    procedure=$1
-    rank=$2
-    type=$4
-    proc="$1$2D$3"
-    cat <<EOF
-
-subroutine ${proc}(origin_addr, compare_addr, result_addr, datatype, target_rank, &
-                   target_disp, win, ierror)
-  include 'mpif-config.h'
-  ${type} :: origin_addr
-  ${type} :: compare_addr
-  ${type} :: result_addr
-  integer, intent(in) :: datatype
-  integer, intent(in) :: target_rank
-  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp
-  integer, intent(in) :: target_count
-  integer, intent(in) :: win
-  integer, intent(out) :: ierror
-end subroutine ${proc}
-
-EOF
-}
-
-start MPI_Compare_and_swap medium
-
-for rank in $allranks
-do
-  case "$rank" in  0)  dim=''  ;  esac
-  case "$rank" in  1)  dim=', dimension(*)'  ;  esac
-  case "$rank" in  2)  dim=', dimension(1,*)'  ;  esac
-  case "$rank" in  3)  dim=', dimension(1,1,*)'  ;  esac
-  case "$rank" in  4)  dim=', dimension(1,1,1,*)'  ;  esac
-  case "$rank" in  5)  dim=', dimension(1,1,1,1,*)'  ;  esac
-  case "$rank" in  6)  dim=', dimension(1,1,1,1,1,*)'  ;  esac
-  case "$rank" in  7)  dim=', dimension(1,1,1,1,1,1,*)'  ;  esac
-
-  output_303 MPI_Compare_and_swap ${rank} CH "character${dim}"
-  output_303 MPI_Compare_and_swap ${rank} L "logical${dim}"
-  for kind in $ikinds
-  do
-    output_303 MPI_Compare_and_swap ${rank} I${kind} "integer*${kind}${dim}"
-  done
-  for kind in $rkinds
-  do
-    output_303 MPI_Compare_and_swap ${rank} R${kind} "real*${kind}${dim}"
-  done
-  for kind in $ckinds
-  do
-    output_303 MPI_Compare_and_swap ${rank} C${kind} "complex*${kind}${dim}"
-  done
-done
-end MPI_Compare_and_swap
-
-#------------------------------------------------------------------------
-
-output_304() {
-    if test "$output" = "0"; then
-        return 0
-    fi
-
-    procedure=$1
-    rank=$2
-    type=$4
-    proc="$1$2D$3"
-    cat <<EOF
-
-subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, request, ierror)
-  include 'mpif-config.h'
-  ${type} :: origin_addr
-  integer, intent(in) :: origin_count
-  integer, intent(in) :: origin_datatype
-  integer, intent(in) :: target_rank
-  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp
-  integer, intent(in) :: target_count
-  integer, intent(in) :: target_datatype
-  integer, intent(in) :: win
-  integer, intent(out) :: request
-  integer, intent(out) :: ierror
-end subroutine ${proc}
-
-EOF
-}
-
-start MPI_Rget medium
-
-for rank in $allranks
-do
-  case "$rank" in  0)  dim=''  ;  esac
-  case "$rank" in  1)  dim=', dimension(*)'  ;  esac
-  case "$rank" in  2)  dim=', dimension(1,*)'  ;  esac
-  case "$rank" in  3)  dim=', dimension(1,1,*)'  ;  esac
-  case "$rank" in  4)  dim=', dimension(1,1,1,*)'  ;  esac
-  case "$rank" in  5)  dim=', dimension(1,1,1,1,*)'  ;  esac
-  case "$rank" in  6)  dim=', dimension(1,1,1,1,1,*)'  ;  esac
-  case "$rank" in  7)  dim=', dimension(1,1,1,1,1,1,*)'  ;  esac
-
-  output_304 MPI_Rget ${rank} CH "character${dim}"
-  output_304 MPI_Rget ${rank} L "logical${dim}"
-  for kind in $ikinds
-  do
-    output_304 MPI_Rget ${rank} I${kind} "integer*${kind}${dim}"
-  done
-  for kind in $rkinds
-  do
-    output_304 MPI_Rget ${rank} R${kind} "real*${kind}${dim}"
-  done
-  for kind in $ckinds
-  do
-    output_304 MPI_Rget ${rank} C${kind} "complex*${kind}${dim}"
-  done
-done
-end MPI_Rget
-
-#------------------------------------------------------------------------
-
-output_305() {
-    if test "$output" = "0"; then
-        return 0
-    fi
-
-    procedure=$1
-    rank=$2
-    type=$4
-    proc="$1$2D$3"
-    cat <<EOF
-
-subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, win, request, ierror)
-  include 'mpif-config.h'
-  ${type}, intent(in) :: origin_addr
-  integer, intent(in) :: origin_count
-  integer, intent(in) :: origin_datatype
-  integer, intent(in) :: target_rank
-  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp
-  integer, intent(in) :: target_count
-  integer, intent(in) :: target_datatype
-  integer, intent(in) :: win
-  integer, intent(out) :: request
-  integer, intent(out) :: ierror
-end subroutine ${proc}
-
-EOF
-}
-
-start MPI_Rput medium
-
-for rank in $allranks
-do
-  case "$rank" in  0)  dim=''  ;  esac
-  case "$rank" in  1)  dim=', dimension(*)'  ;  esac
-  case "$rank" in  2)  dim=', dimension(1,*)'  ;  esac
-  case "$rank" in  3)  dim=', dimension(1,1,*)'  ;  esac
-  case "$rank" in  4)  dim=', dimension(1,1,1,*)'  ;  esac
-  case "$rank" in  5)  dim=', dimension(1,1,1,1,*)'  ;  esac
-  case "$rank" in  6)  dim=', dimension(1,1,1,1,1,*)'  ;  esac
-  case "$rank" in  7)  dim=', dimension(1,1,1,1,1,1,*)'  ;  esac
-
-  output_305 MPI_Rput ${rank} CH "character${dim}"
-  output_305 MPI_Rput ${rank} L "logical${dim}"
-  for kind in $ikinds
-  do
-    output_305 MPI_Rput ${rank} I${kind} "integer*${kind}${dim}"
-  done
-  for kind in $rkinds
-  do
-    output_305 MPI_Rput ${rank} R${kind} "real*${kind}${dim}"
-  done
-  for kind in $ckinds
-  do
-    output_305 MPI_Rput ${rank} C${kind} "complex*${kind}${dim}"
-  done
-done
-end MPI_Rput
-
-#------------------------------------------------------------------------
-
-output_306() {
-    if test "$output" = "0"; then
-        return 0
-    fi
-
-    procedure=$1
-    rank=$2
-    type=$4
-    proc="$1$2D$3"
-    cat <<EOF
-
-subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
-        target_count, target_datatype, op, win, request, ierror)
-  include 'mpif-config.h'
-  ${type} :: origin_addr
-  integer, intent(in) :: origin_count
-  integer, intent(in) :: origin_datatype
-  integer, intent(in) :: target_rank
-  integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp
-  integer, intent(in) :: target_count
-  integer, intent(in) :: target_datatype
-  integer, intent(in) :: op
-  integer, intent(in) :: win
-  integet, intent(out) :: request
-  integer, intent(out) :: ierror
-end subroutine ${proc}
-
-EOF
-}
-
-start MPI_Raccumulate medium
-
-for rank in $allranks
-do
-  case "$rank" in  0)  dim=''  ;  esac
-  case "$rank" in  1)  dim=', dimension(*)'  ;  esac
-  case "$rank" in  2)  dim=', dimension(1,*)'  ;  esac
-  case "$rank" in  3)  dim=', dimension(1,1,*)'  ;  esac
-  case "$rank" in  4)  dim=', dimension(1,1,1,*)'  ;  esac
-  case "$rank" in  5)  dim=', dimension(1,1,1,1,*)'  ;  esac
-  case "$rank" in  6)  dim=', dimension(1,1,1,1,1,*)'  ;  esac
-  case "$rank" in  7)  dim=', dimension(1,1,1,1,1,1,*)'  ;  esac
-
-  output_306 MPI_Raccumulate ${rank} CH "character${dim}"
-  output_306 MPI_Raccumulate ${rank} L "logical${dim}"
-  for kind in $ikinds
-  do
-    output_306 MPI_Raccumulate ${rank} I${kind} "integer*${kind}${dim}"
-  done
-  for kind in $rkinds
-  do
-    output_306 MPI_Raccumulate ${rank} R${kind} "real*${kind}${dim}"
-  done
-  for kind in $ckinds
-  do
-    output_306 MPI_Raccumulate ${rank} C${kind} "complex*${kind}${dim}"
-  done
-done
-end MPI_Raccumulate