ajout de la fonction MPI_Isend pour l'interposition fortran et changement du README pour connaitre l'utilisation de la bibliothèque Fortran

Author: wailbald

README.md

@@ -36,18 +36,26 @@ To build the library and for it to work properly, please make sure that the foll
 
 
 ## Building
-To build the library, it is recommended to use the provided Makefile:
+To build the C library, it is recommended to use the provided Makefile:
 ```sh
 make
 ```
+To build the Fortran library, it is recommended to use the provided Makefile:
+```sh
+make buildf
+```
 Optionnaly, you can install/uninstall it from your computer (in `/usr/lib/` by default):
 ```sh
 sudo make install
 sudo make uninstall
 ```
 This will first call `cargo` to build the Rust back-end in release mode (automatically exported to the `LD_LIBRARY_PATH` environment variable).
 Then, it will compile the interposition library into a single `.so` file.
-
+For the Fortran library use
+```sh
+sudo make installf
+sudo make uninstallf
+```
 
 ## Usage
 **IMPORTANT NOTE:** It is mandatory that you compile both the Interpol library and the MPI application that you want to trace using the _same_ `mpicc` compiler. This is because the MPI standard does not enforce any particular ABI, therefore, if the library and your program are not compiled with the same MPI implementation, conflicts may cause the traced program or the library to crash or generate incorrect traces.
@@ -56,6 +64,11 @@ If you've installed the library, the command to preload it when running your MPI
 ```sh
 LD_PRELOAD=libinterpol.so <MPICMD> -n <NB_PROC> <BINARY>
 ```
-Otherwise, you need to provide the absolute path to the `libinterpol.so` file.
+And for the Fortran library
+```sh
+LD_PRELOAD=libinterpolf.so <MPICMD> -n <NB_PROC> <BINARY>
+```
+
+Otherwise, you need to provide the absolute path to the `libinterpol.so` or `libinterpolf.so` file.
 
 You can also check the documentation for the Rust back-end with the `make doc` command and run the unit tests with `make test`.

src/interpolf.c

@@ -334,4 +334,63 @@ _EXTERN_C_ void mpi_recv_(MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MP
 
 _EXTERN_C_ void mpi_recv__(MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr) { 
     MPI_Recv_fortran_wrapper(buf, count, datatype, source, tag, comm, status, ierr);
+}
+
+
+static void MPI_Isend_fortran_wrapper(MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr) { 
+    int _wrap_py_return_val = 0;
+
+    Tsc const tsc = rdtsc();
+
+    #if (!defined(MPICH_HAS_C2F) && defined(MPICH_NAME) && (MPICH_NAME == 1)) /* MPICH test */
+        _wrap_py_return_val = PMPI_Isend((const void*)buf, *count, (MPI_Datatype)(*datatype), *dest, *tag, (MPI_Comm)(*comm), (MPI_Request*)request);
+    #else /* MPI-2 safe call */
+        MPI_Request temp_request;
+        temp_request = MPI_Request_f2c(*request);
+        _wrap_py_return_val = PMPI_Isend((const void*)buf, *count, MPI_Type_f2c(*datatype), *dest, *tag, MPI_Comm_f2c(*comm), &temp_request);
+        *request = MPI_Request_c2f(temp_request);
+    #endif /* MPICH test */
+
+    Tsc const duration = rdtsc() - tsc;
+
+    int nb_bytes;
+    PMPI_Type_size(MPI_Type_f2c(*datatype), &nb_bytes);
+
+    MpiCall const isend = {
+        .kind = Isend,
+        .time = -1.0,
+        .tsc = tsc,
+        .duration = duration,
+        .current_rank = current_rank,
+        .partner_rank = *dest,
+        .nb_bytes_s = nb_bytes * (*count),
+        .nb_bytes_r = 0,
+        .comm = PMPI_Comm_c2f((MPI_Comm)comm),
+        .req = *request,
+        .tag = *tag,
+        .required_thread_lvl = -1,
+        .provided_thread_lvl = -1,
+        .op_type = -1,
+        .finished = false,
+    };
+
+    register_mpi_call(isend);
+
+    *ierr = _wrap_py_return_val;
+}
+
+_EXTERN_C_ void MPI_ISEND(MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr) { 
+    MPI_Isend_fortran_wrapper(buf, count, datatype, dest, tag, comm, request, ierr);
+}
+
+_EXTERN_C_ void mpi_isend(MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr) { 
+    MPI_Isend_fortran_wrapper(buf, count, datatype, dest, tag, comm, request, ierr);
+}
+
+_EXTERN_C_ void mpi_isend_(MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr) { 
+    MPI_Isend_fortran_wrapper(buf, count, datatype, dest, tag, comm, request, ierr);
+}
+
+_EXTERN_C_ void mpi_isend__(MPI_Fint *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr) { 
+    MPI_Isend_fortran_wrapper(buf, count, datatype, dest, tag, comm, request, ierr);
 }