Add some missing declarations to allow the new Fortran neighbor
collective interfaces to compile. This commit was SVN r29283.
Этот коммит содержится в:
родитель
76450fe629
Коммит
c0232e031c
@ -4416,7 +4416,7 @@ interface MPI_Neighbor_alltoallw
|
||||
subroutine MPI_Neighbor_alltoallw_f08(sendbuf,sendcounts,sdispls,sendtypes,recvbuf,recvcounts, &
|
||||
rdispls,recvtypes,comm,ierror &
|
||||
) OMPI_F08_INTERFACE_BIND_C("MPI_Neighbor_alltoallw_f08")
|
||||
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Aint
|
||||
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Aint, MPI_ADDRESS_KIND
|
||||
implicit none
|
||||
!DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf
|
||||
!$PRAGMA IGNORE_TKR sendbuf, recvbuf
|
||||
|
@ -1705,6 +1705,7 @@ interface MPI_Ineighbor_alltoallw
|
||||
|
||||
subroutine MPI_Ineighbor_alltoallw(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
|
||||
recvcounts, rdispls, recvtypes, comm, request, ierror)
|
||||
include 'mpif-config.h'
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf
|
||||
integer, dimension(*), intent(in) :: sendcounts
|
||||
@ -2253,6 +2254,7 @@ interface MPI_Neighbor_alltoallw
|
||||
|
||||
subroutine MPI_Neighbor_alltoallw(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
|
||||
recvcounts, rdispls, recvtypes, comm, ierror)
|
||||
include 'mpif-config.h'
|
||||
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf
|
||||
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf
|
||||
integer, dimension(*), intent(in) :: sendcounts
|
||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user