From d04ea88d87104f400b94a2654a2cdd99ae24137b Mon Sep 17 00:00:00 2001 From: Jeff Squyres Date: Mon, 30 Sep 2013 19:45:09 +0000 Subject: [PATCH] Missed updating the profiling versions of the neighbor collectives in r29299. Refs trac:3802. This commit was SVN r29302. The following SVN revision numbers were found above: r29299 --> open-mpi/ompi@66eb7ff610b1e4fd79cf2dda8a1fd5a74f3fc446 The following Trac tickets were found above: Ticket 3802 --> https://svn.open-mpi.org/trac/ompi/ticket/3802 --- .../use-mpi-f08/profile/pineighbor_alltoallw_f08.F90 | 8 ++++---- .../use-mpi-f08/profile/pneighbor_alltoallw_f08.F90 | 8 ++++---- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pineighbor_alltoallw_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pineighbor_alltoallw_f08.F90 index 99e6463648..8f33c1a60f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pineighbor_alltoallw_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pineighbor_alltoallw_f08.F90 @@ -15,15 +15,15 @@ subroutine PMPI_Ineighbor_alltoallw_f08(sendbuf,sendcounts,sdispls,sendtypes,& OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcounts(*), recvcounts(*) INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: sdispls(*), 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 TYPE(MPI_Request), INTENT(OUT) :: request INTEGER, OPTIONAL, INTENT(OUT) :: ierror integer :: c_ierror - call ompi_ineighbor_alltoallw_f(sendbuf,sendcounts,sdispls,sendtypes%MPI_VAL,& - recvbuf,recvcounts,rdispls,recvtypes%MPI_VAL,& + call ompi_ineighbor_alltoallw_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 diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pneighbor_alltoallw_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pneighbor_alltoallw_f08.F90 index 0e27aef216..e1a26ad871 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pneighbor_alltoallw_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pneighbor_alltoallw_f08.F90 @@ -15,14 +15,14 @@ subroutine PMPI_Neighbor_alltoallw_f08(sendbuf,sendcounts,sdispls,sendtypes,& OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcounts(*), recvcounts(*) INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: sdispls(*), 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_neighbor_alltoallw_f(sendbuf,sendcounts,sdispls,sendtypes%MPI_VAL,& - recvbuf,recvcounts,rdispls,recvtypes%MPI_VAL,& + call ompi_neighbor_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