From 104e0942d9205c38bc95983758f5b21d0a7786c6 Mon Sep 17 00:00:00 2001 From: Jake Tronge Date: Wed, 20 Dec 2023 09:27:07 -0700 Subject: [PATCH] Add missing Fortran subroutines to profiling lib Signed-off-by: Jake Tronge --- .../mpi/fortran/use-mpi-f08/comm_create_from_group_f08.F90 | 2 ++ .../use-mpi-f08/intercomm_create_from_groups_f08.F90 | 2 ++ ompi/mpi/fortran/use-mpi-f08/parrived_f08.F90 | 1 + ompi/mpi/fortran/use-mpi-f08/pready_f08.F90 | 1 + ompi/mpi/fortran/use-mpi-f08/pready_list_f08.F90 | 1 + ompi/mpi/fortran/use-mpi-f08/pready_range_f08.F90 | 1 + ompi/mpi/fortran/use-mpi-f08/profile/Makefile.am | 7 +++++++ ompi/mpi/fortran/use-mpi-f08/psend_init_f08.F90 | 1 + 8 files changed, 16 insertions(+) diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_create_from_group_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_create_from_group_f08.F90 index 8f1befe0d8c..d81830a2d34 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_create_from_group_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_create_from_group_f08.F90 @@ -9,6 +9,8 @@ ! reserved. ! $COPYRIGHT$ +#include "mpi-f08-rename.h" + subroutine MPI_Comm_create_from_group_f08(group, stringtag, info, errhandler, newcomm, ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Group, MPI_Errhandler, MPI_Info use :: ompi_mpifh_bindings, only : ompi_comm_create_from_group_f diff --git a/ompi/mpi/fortran/use-mpi-f08/intercomm_create_from_groups_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/intercomm_create_from_groups_f08.F90 index 9b92a9db9ab..5cfb6acbaf0 100644 --- a/ompi/mpi/fortran/use-mpi-f08/intercomm_create_from_groups_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/intercomm_create_from_groups_f08.F90 @@ -9,6 +9,8 @@ ! reserved. ! $COPYRIGHT$ +#include "mpi-f08-rename.h" + subroutine MPI_Intercomm_create_from_groups_f08(local_group, local_leader, remote_group, & remote_leader, stringtag, info, errhandler, & newintercomm, ierror) diff --git a/ompi/mpi/fortran/use-mpi-f08/parrived_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/parrived_f08.F90 index 7116fb1511b..f79523993b2 100644 --- a/ompi/mpi/fortran/use-mpi-f08/parrived_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/parrived_f08.F90 @@ -8,6 +8,7 @@ ! Copyright (c) 2020 Sandia National Laboratories. All rights reserved. ! $COPYRIGHT$ +#include "mpi-f08-rename.h" #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Parrived_f08(request,partition,flag,ierror) diff --git a/ompi/mpi/fortran/use-mpi-f08/pready_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/pready_f08.F90 index 45ff490c4b1..a21f4f4b5e9 100644 --- a/ompi/mpi/fortran/use-mpi-f08/pready_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/pready_f08.F90 @@ -8,6 +8,7 @@ ! Copyright (c) 2020 Sandia National Laboratories. All rights reserved. ! $COPYRIGHT$ +#include "mpi-f08-rename.h" #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Pready_f08(partition,request,ierror) diff --git a/ompi/mpi/fortran/use-mpi-f08/pready_list_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/pready_list_f08.F90 index 179e4fdf840..f021e107cf2 100644 --- a/ompi/mpi/fortran/use-mpi-f08/pready_list_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/pready_list_f08.F90 @@ -8,6 +8,7 @@ ! Copyright (c) 2020 Sandia National Laboratories. All rights reserved. ! $COPYRIGHT$ +#include "mpi-f08-rename.h" #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Pready_list_f08(length,partitions,request,ierror) diff --git a/ompi/mpi/fortran/use-mpi-f08/pready_range_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/pready_range_f08.F90 index d85d617295a..5f6290c4eac 100644 --- a/ompi/mpi/fortran/use-mpi-f08/pready_range_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/pready_range_f08.F90 @@ -8,6 +8,7 @@ ! Copyright (c) 2020 Sandia National Laboratories. All rights reserved. ! $COPYRIGHT$ +#include "mpi-f08-rename.h" #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Pready_range_f08(partition_low,partition_high,request,ierror) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/Makefile.am b/ompi/mpi/fortran/use-mpi-f08/profile/Makefile.am index 6a244187dd9..13a6148ade7 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/Makefile.am +++ b/ompi/mpi/fortran/use-mpi-f08/profile/Makefile.am @@ -97,6 +97,7 @@ pmpi_api_files = \ pcomm_call_errhandler_f08.F90 \ pcomm_compare_f08.F90 \ pcomm_connect_f08.F90 \ + pcomm_create_from_group_f08.F90 \ pcomm_create_errhandler_f08.F90 \ pcomm_create_f08.F90 \ pcomm_create_group_f08.F90 \ @@ -271,6 +272,7 @@ pmpi_api_files = \ pinitialized_f08.F90 \ pinit_thread_f08.F90 \ pintercomm_create_f08.F90 \ + pintercomm_create_from_groups_f08.F90 \ pintercomm_merge_f08.F90 \ piprobe_f08.F90 \ pirecv_f08.F90 \ @@ -307,8 +309,13 @@ pmpi_api_files = \ ppack_external_size_f08.F90 \ ppack_f08.F90 \ ppack_size_f08.F90 \ + pparrived_f08.F90 \ ppcontrol_f08.F90 \ + ppready_f08.F90 \ + ppready_list_f08.F90 \ + ppready_range_f08.F90 \ pprobe_f08.F90 \ + ppsend_init_f08.F90 \ ppublish_name_f08.F90 \ pput_f08.F90 \ pquery_thread_f08.F90 \ diff --git a/ompi/mpi/fortran/use-mpi-f08/psend_init_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/psend_init_f08.F90 index 2d117074cc6..b0ce80ddd48 100644 --- a/ompi/mpi/fortran/use-mpi-f08/psend_init_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/psend_init_f08.F90 @@ -11,6 +11,7 @@ ! reserved. ! $COPYRIGHT$ +#include "mpi-f08-rename.h" #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Psend_init_f08(buf,partitions,count,datatype,dest,tag,comm,info,request,ierror)