From 4af194ca32ae51b4cb154d35ef47f6db89ecfd04 Mon Sep 17 00:00:00 2001 From: Jeff Squyres Date: Mon, 30 Sep 2013 19:44:24 +0000 Subject: [PATCH] Missed updating the profiling versions of [I]Alltoallw in r29298. Refs trac:3814. This commit was SVN r29301. The following SVN revision numbers were found above: r29298 --> open-mpi/ompi@0acebc0a1f9145bcb182e385bf9a321a2665ae41 The following Trac tickets were found above: Ticket 3814 --> https://svn.open-mpi.org/trac/ompi/ticket/3814 --- ompi/mpi/fortran/use-mpi-f08/profile/palltoallw_f08.F90 | 8 ++++---- ompi/mpi/fortran/use-mpi-f08/profile/pialltoallw_f08.F90 | 8 ++++---- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/palltoallw_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/palltoallw_f08.F90 index f6a97799bd..ad94bb5925 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/palltoallw_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/palltoallw_f08.F90 @@ -14,14 +14,14 @@ subroutine PMPI_Alltoallw_f08(sendbuf,sendcounts,sdispls,sendtypes,& implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) - TYPE(MPI_Datatype), INTENT(IN) :: sendtypes - TYPE(MPI_Datatype), INTENT(IN) :: recvtypes + TYPE(MPI_Datatype), INTENT(IN) :: sendtypes(*) + TYPE(MPI_Datatype), INTENT(IN) :: recvtypes(*) TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, OPTIONAL, INTENT(OUT) :: ierror integer :: c_ierror - call ompi_alltoallw_f(sendbuf,sendcounts,sdispls,sendtypes%MPI_VAL,& - recvbuf,recvcounts,rdispls,recvtypes%MPI_VAL,comm%MPI_VAL,c_ierror) + call ompi_alltoallw_f(sendbuf,sendcounts,sdispls,sendtypes(1)%MPI_VAL,& + recvbuf,recvcounts,rdispls,recvtypes(1)%MPI_VAL,comm%MPI_VAL,c_ierror) if (present(ierror)) ierror = c_ierror end subroutine PMPI_Alltoallw_f08 diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pialltoallw_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pialltoallw_f08.F90 index 27a04b18b2..aee9d842b4 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pialltoallw_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pialltoallw_f08.F90 @@ -14,15 +14,15 @@ subroutine PMPI_Ialltoallw_f08(sendbuf,sendcounts,sdispls,sendtypes,& implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) - TYPE(MPI_Datatype), INTENT(IN) :: sendtypes - TYPE(MPI_Datatype), INTENT(IN) :: recvtypes + TYPE(MPI_Datatype), INTENT(IN) :: sendtypes(1) + TYPE(MPI_Datatype), INTENT(IN) :: recvtypes(1) TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Request), INTENT(OUT) :: request INTEGER, OPTIONAL, INTENT(OUT) :: ierror integer :: c_ierror - call ompi_ialltoallw_f(sendbuf,sendcounts,sdispls,sendtypes%MPI_VAL,& - recvbuf,recvcounts,rdispls,recvtypes%MPI_VAL,comm%MPI_VAL,request%MPI_VAL,c_ierror) + call ompi_ialltoallw_f(sendbuf,sendcounts,sdispls,sendtypes(1)%MPI_VAL,& + recvbuf,recvcounts,rdispls,recvtypes(1)%MPI_VAL,comm%MPI_VAL,request%MPI_VAL,c_ierror) if (present(ierror)) ierror = c_ierror end subroutine PMPI_Ialltoallw_f08