fortran: also provide PMPI variants for MPI_Alloc_mem_cptr
r32622 was the first half of the fix -- we need the PMPI variants as well. Refs trac:4882 This commit was SVN r32627. The following SVN revision numbers were found above: r32622 --> open-mpi/ompi@cf0f734a98 The following Trac tickets were found above: Ticket 4882 --> https://svn.open-mpi.org/trac/ompi/ticket/4882
Этот коммит содержится в:
родитель
2a12fd833d
Коммит
f4238d65a5
@ -45,6 +45,14 @@ OMPI_GENERATE_F77_BINDINGS (PMPI_ALLOC_MEM,
|
||||
pompi_alloc_mem_f,
|
||||
(MPI_Aint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr),
|
||||
(size, info, baseptr, ierr) )
|
||||
|
||||
OMPI_GENERATE_F77_BINDINGS (PMPI_ALLOC_MEM_CPTR,
|
||||
pmpi_alloc_mem_cptr,
|
||||
pmpi_alloc_mem_cptr_,
|
||||
pmpi_alloc_mem_cptr__,
|
||||
pompi_alloc_mem_f,
|
||||
(MPI_Aint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr),
|
||||
(size, info, baseptr, ierr) )
|
||||
#endif
|
||||
|
||||
#if OPAL_HAVE_WEAK_SYMBOLS
|
||||
|
@ -269,6 +269,15 @@ subroutine PMPI_Alloc_mem(size, info, baseptr, ierror)
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Alloc_mem
|
||||
|
||||
subroutine PMPI_Alloc_mem_cptr(size, info, baseptr, ierror)
|
||||
use, intrinsic :: iso_c_binding, only : c_ptr
|
||||
include 'mpif-config.h'
|
||||
integer(kind=MPI_ADDRESS_KIND), intent(in) :: size
|
||||
integer, intent(in) :: info
|
||||
type(c_ptr), intent(out) :: baseptr
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Alloc_mem_cptr
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user