From 5ddfaf0de7cfc7d4015e38ee3bb3c8f0ef4e6302 Mon Sep 17 00:00:00 2001 From: N00byKing Date: Wed, 25 Jun 2025 12:51:04 +0200 Subject: [PATCH] bindings_f08: Use normal MPI C binding to allow profiling by C code --- maint/local_python/binding_f08.py | 4 ++-- src/binding/fortran/use_mpi_f08/wrappers_c/comm_spawn_c.c | 2 +- .../fortran/use_mpi_f08/wrappers_c/comm_spawn_multiple_c.c | 6 +++--- 3 files changed, 6 insertions(+), 6 deletions(-) diff --git a/maint/local_python/binding_f08.py b/maint/local_python/binding_f08.py index 59379ac2508..eb1a7195bf3 100644 --- a/maint/local_python/binding_f08.py +++ b/maint/local_python/binding_f08.py @@ -810,8 +810,8 @@ def dump_mpi_c_interface_nobuf(func, is_large): # defined in src/binding/fortran/mpif_h/user_proxy.c c_name = "MPII_op_create" else: - # uses PMPI c binding directly - c_name = 'P' + get_function_name(func, is_large) + # uses MPI c binding directly + c_name = get_function_name(func, is_large) dump_interface_function(func, name, c_name, is_large) def dump_interface_function(func, name, c_name, is_large): diff --git a/src/binding/fortran/use_mpi_f08/wrappers_c/comm_spawn_c.c b/src/binding/fortran/use_mpi_f08/wrappers_c/comm_spawn_c.c index e9cb9e9138a..b0eb8f02dfa 100644 --- a/src/binding/fortran/use_mpi_f08/wrappers_c/comm_spawn_c.c +++ b/src/binding/fortran/use_mpi_f08/wrappers_c/comm_spawn_c.c @@ -22,7 +22,7 @@ int MPIR_Comm_spawn_c(const char *command, char *argv_f, int maxprocs, MPI_Info } mpi_errno = - PMPI_Comm_spawn(command, argv_c, maxprocs, info, root, comm, intercomm, array_of_errcodes); + MPI_Comm_spawn(command, argv_c, maxprocs, info, root, comm, intercomm, array_of_errcodes); if (argv_c != MPI_ARGV_NULL) { free(argv_c); diff --git a/src/binding/fortran/use_mpi_f08/wrappers_c/comm_spawn_multiple_c.c b/src/binding/fortran/use_mpi_f08/wrappers_c/comm_spawn_multiple_c.c index 1860d82af63..f96ee728014 100644 --- a/src/binding/fortran/use_mpi_f08/wrappers_c/comm_spawn_multiple_c.c +++ b/src/binding/fortran/use_mpi_f08/wrappers_c/comm_spawn_multiple_c.c @@ -110,9 +110,9 @@ int MPIR_Comm_spawn_multiple_c(int count, char *array_of_commands_f, free(buf); } - mpi_errno = PMPI_Comm_spawn_multiple(count, array_of_commands_c, array_of_argv_c, - array_of_maxprocs, array_of_info, root, comm, intercomm, - array_of_errcodes); + mpi_errno = MPI_Comm_spawn_multiple(count, array_of_commands_c, array_of_argv_c, + array_of_maxprocs, array_of_info, root, comm, intercomm, + array_of_errcodes); free(array_of_commands_c);