Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Add missing Fortran subroutines to profiling lib #12184

Merged
merged 1 commit into from
Jan 5, 2024
Merged

Add missing Fortran subroutines to profiling lib #12184

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 2 additions & 0 deletions ompi/mpi/fortran/use-mpi-f08/comm_create_from_group_f08.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 2 additions & 0 deletions ompi/mpi/fortran/use-mpi-f08/intercomm_create_from_groups_f08.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down
1 change: 1 addition & 0 deletions ompi/mpi/fortran/use-mpi-f08/parrived_f08.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down
1 change: 1 addition & 0 deletions ompi/mpi/fortran/use-mpi-f08/pready_f08.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down
1 change: 1 addition & 0 deletions ompi/mpi/fortran/use-mpi-f08/pready_list_f08.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down
1 change: 1 addition & 0 deletions ompi/mpi/fortran/use-mpi-f08/pready_range_f08.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down
7 changes: 7 additions & 0 deletions ompi/mpi/fortran/use-mpi-f08/profile/Makefile.am
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 \
Expand Down Expand Up @@ -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 \
Expand Down Expand Up @@ -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 \
Expand Down
1 change: 1 addition & 0 deletions ompi/mpi/fortran/use-mpi-f08/psend_init_f08.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down