ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

Fix the types of the sendcounts and displs parameters to MPI_Scatterv.

Просмотр исходного кода 
Thanks to Stanislav Sazykin for identifying the issue.

This commit was SVN r24630.
Этот коммит содержится в:
Jeff Squyres 2011-04-22 10:11:45 +00:00
родитель 9988b97b97
Коммит ddc44cfbce
2 изменённых файлов: 8 добавлений и 8 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

6
ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh
Просмотреть файл

@ -5,7 +5,7 @@
# Corporation. All rights reserved. # Corporation. All rights reserved.
# Copyright (c) 2004-2006 The Regents of the University of California. # Copyright (c) 2004-2006 The Regents of the University of California.
# All rights reserved. # All rights reserved.
# Copyright (c) 2006-2010 Cisco Systems, Inc. All rights reserved. # Copyright (c) 2006-2011 Cisco Systems, Inc. All rights reserved.
# $COPYRIGHT$ # $COPYRIGHT$
# #
# Additional copyrights may follow # Additional copyrights may follow
@ -6889,8 +6889,8 @@ output_192() {
subroutine ${proc}(sendbuf, sendcounts, displs, sendtype, recvbuf, & subroutine ${proc}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
recvcount, recvtype, root, comm, ierr) recvcount, recvtype, root, comm, ierr)
${type}, intent(in) :: sendbuf ${type}, intent(in) :: sendbuf
integer, intent(in) :: sendcounts integer, dimension(*), intent(in) :: sendcounts
integer, intent(in) :: displs integer, dimension(*), intent(in) :: displs
integer, intent(in) :: sendtype integer, intent(in) :: sendtype
${type}, intent(out) :: recvbuf ${type}, intent(out) :: recvbuf
integer, intent(in) :: recvcount integer, intent(in) :: recvcount

10
ompi/mpi/f90/scripts/mpi_scatterv_f90.f90.sh
Просмотреть файл

@ -6,7 +6,7 @@
# Corporation. All rights reserved. # Corporation. All rights reserved.
# Copyright (c) 2004-2005 The Regents of the University of California. # Copyright (c) 2004-2005 The Regents of the University of California.
# All rights reserved. # All rights reserved.
# Copyright (c) 2006 Cisco Systems, Inc. All rights reserved. # Copyright (c) 2006-2011 Cisco Systems, Inc. All rights reserved.
# $COPYRIGHT$ # $COPYRIGHT$
# #
# Additional copyrights may follow # Additional copyrights may follow
@ -25,8 +25,8 @@
. "$1/fortran_kinds.sh" . "$1/fortran_kinds.sh"
# This entire file is only generated in medium/large modules. So if # This entire file is only generated in large modules. So if
# we're not at least medium, bail now. # we're not at least large, bail now.
check_size large check_size large
if test "$output" = "0"; then if test "$output" = "0"; then
@ -50,8 +50,8 @@ subroutine ${proc}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
recvcount, recvtype, root, comm, ierr) recvcount, recvtype, root, comm, ierr)
include "mpif-config.h" include "mpif-config.h"
${type}, intent(in) :: sendbuf ${type}, intent(in) :: sendbuf
integer, intent(in) :: sendcounts integer, dimension(*), intent(in) :: sendcounts
integer, intent(in) :: displs integer, dimension(*), intent(in) :: displs
integer, intent(in) :: sendtype integer, intent(in) :: sendtype
${type}, intent(out) :: recvbuf ${type}, intent(out) :: recvbuf
integer, intent(in) :: recvcount integer, intent(in) :: recvcount