From 95b8802c6392af85e218418d7a9cddec5992179c Mon Sep 17 00:00:00 2001 From: Augustin Degomme Date: Mon, 5 Apr 2021 23:55:13 +0200 Subject: [PATCH] add two fortran declarations --- src/smpi/bindings/smpi_f77.cpp | 9 +++++++++ src/smpi/include/private.hpp | 3 ++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/src/smpi/bindings/smpi_f77.cpp b/src/smpi/bindings/smpi_f77.cpp index 530487b303..364fb1334f 100644 --- a/src/smpi/bindings/smpi_f77.cpp +++ b/src/smpi/bindings/smpi_f77.cpp @@ -933,6 +933,15 @@ void mpi_close_port_ ( char *port_name, int* ierr){ *ierr = MPI_Close_port( port_name); } +void mpi_alloc_mem_(int* size, int* info, void *baseptr, int* ierr){ + *ierr = MPI_Alloc_mem(*size, simgrid::smpi::Info::f2c(*info), baseptr); +} + +void mpi_free_mem_(void *baseptr, int* ierr){ + *ierr = MPI_Free_mem(baseptr); +} + + void smpi_execute_flops_(double* flops){ smpi_execute_flops(*flops); } diff --git a/src/smpi/include/private.hpp b/src/smpi/include/private.hpp index 87694a0af8..78ff7407e8 100644 --- a/src/smpi/include/private.hpp +++ b/src/smpi/include/private.hpp @@ -163,10 +163,11 @@ void mpi_startall_(int* count, int* requests, int* ierr); void mpi_wait_(int* request, MPI_Status* status, int* ierr); void mpi_waitany_(int* count, int* requests, int* index, MPI_Status* status, int* ierr); void mpi_waitall_(int* count, int* requests, MPI_Status* status, int* ierr); - +void mpi_free_mem_(void *baseptr, int* ierr); void mpi_barrier_(int* comm, int* ierr); void mpi_bcast_(void* buf, int* count, int* datatype, int* root, int* comm, int* ierr); void mpi_reduce_(void* sendbuf, void* recvbuf, int* count, int* datatype, int* op, int* root, int* comm, int* ierr); +void mpi_alloc_mem_(int* size, int* info, void *baseptr, int* ierr); void mpi_allreduce_(void* sendbuf, void* recvbuf, int* count, int* datatype, int* op, int* comm, int* ierr); void mpi_reduce_scatter_(void* sendbuf, void* recvbuf, int* recvcounts, int* datatype, int* op, int* comm, int* ierr); void mpi_reduce_scatter_block_(void* sendbuf, void* recvbuf, int* recvcount, int* datatype, int* op, int* comm, -- 2.20.1