1
1

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@759ee33fd4
  r30170 --> open-mpi/ompi@776f6144af

The following Trac tickets were found above:
  Ticket 4372 --> https://svn.open-mpi.org/trac/ompi/ticket/4372
Этот коммит содержится в:
Jeff Squyres 2014-03-12 15:51:42 +00:00
родитель 53248a90f3
Коммит c6fb1b51b1

Просмотреть файл

@ -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