From e0fcb92139635174123b5d38d472f5e5a3338068 Mon Sep 17 00:00:00 2001
From: Augustin Degomme <adegomme@gmail.com>
Date: Wed, 29 Jan 2020 14:54:43 +0100
Subject: [PATCH] add some fortran bindings, useful for bigdft

---
 src/smpi/bindings/smpi_f77.cpp | 12 ++++++++++++
 src/smpi/include/private.hpp   |  3 +++
 2 files changed, 15 insertions(+)

diff --git a/src/smpi/bindings/smpi_f77.cpp b/src/smpi/bindings/smpi_f77.cpp
index 451dfd7c67..86e43b510d 100644
--- a/src/smpi/bindings/smpi_f77.cpp
+++ b/src/smpi/bindings/smpi_f77.cpp
@@ -979,4 +979,16 @@ void mpi_file_write_ ( int* fh, void* buf, int* count, int* datatype, MPI_Status
   *ierr=  MPI_File_write(reinterpret_cast<MPI_File>(*fh), buf, *count, simgrid::smpi::Datatype::f2c(*datatype), status);
 }
 
+void smpi_execute_flops_(double* flops){
+  smpi_execute_flops(*flops);
+}
+
+void smpi_execute_(double* duration){
+  smpi_execute(*duration);
+}
+
+void smpi_execute_benched_(double* duration){
+  smpi_execute_benched(*duration);
+}
+
 } // extern "C"
diff --git a/src/smpi/include/private.hpp b/src/smpi/include/private.hpp
index 07c4bfdf33..9f6c7d1ee4 100644
--- a/src/smpi/include/private.hpp
+++ b/src/smpi/include/private.hpp
@@ -461,6 +461,9 @@ void mpi_file_set_view_(int* fh, long long int* offset, int* etype, int* filetyp
 void mpi_file_read_(int* fh, void* buf, int* count, int* datatype, MPI_Status* status, int* ierr);
 void mpi_file_write_(int* fh, void* buf, int* count, int* datatype, MPI_Status* status, int* ierr);
 void smpi_init_fortran_types();
+void smpi_execute_flops_(double* flops);
+void smpi_execute_(double* duration);
+void smpi_execute_benched_(double* duration);
 } // extern "C"
 
 XBT_PRIVATE int smpi_temp_shm_get();
-- 
2.20.1