Add partitioned communication APIs to TKR mpi module

Signed-off-by: Todd Kordenbrock <thkgcode@gmail.com>

Author: tkordenbrock

ompi/mpi/fortran/use-mpi-tkr/mpi-f90-interfaces.h

@@ -13,6 +13,7 @@
 ! Copyright (c) 2006-2021 Cisco Systems, Inc.  All rights reserved
 ! Copyright (c) 2016-2018 Research Organization for Information Science
 !                         and Technology (RIST).  All rights reserved.
+! Copyright (c) 2021      Sandia National Laboratories. All rights reserved.
 ! $COPYRIGHT$
 !
 ! Additional copyrights may follow
@@ -1211,6 +1212,53 @@ end subroutine MPI_Probe
 end interface
 
 
+interface
+
+subroutine MPI_Parrived(request, partition, flag, ierror)
+  integer, intent(in) :: request
+  integer, intent(in) :: partition
+  logical, intent(out) :: flag
+  integer, intent(out) :: ierror
+end subroutine MPI_Parrived
+
+end interface
+
+
+interface
+
+subroutine MPI_Pready(partition, request, ierror)
+  integer, intent(in) :: partition
+  integer, intent(in) :: request
+  integer, intent(out) :: ierror
+end subroutine MPI_Pready
+
+end interface
+
+
+interface
+
+subroutine MPI_Pready_list(length, array_of_partitions, request, ierror)
+  integer, intent(in) :: length
+  integer, dimension(*), intent(in) :: array_of_partitions
+  integer, intent(in) :: request
+  integer, intent(out) :: ierror
+end subroutine MPI_Pready_list
+
+end interface
+
+
+interface
+
+subroutine MPI_Pready_range(partition_low, partition_high, request, ierror)
+  integer, intent(in) :: partition_low
+  integer, intent(in) :: partition_high
+  integer, intent(in) :: request
+  integer, intent(out) :: ierror
+end subroutine MPI_Pready_range
+
+end interface
+
+
 interface
 
 subroutine MPI_Query_thread(provided, ierror)

ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-interfaces.h

@@ -108,6 +108,10 @@
 #define MPI_Pack_size PMPI_Pack_size
 #define MPI_Pcontrol PMPI_Pcontrol
 #define MPI_Probe PMPI_Probe
+#define MPI_Parrived PMPI_Parrived
+#define MPI_Pready PMPI_Pready
+#define MPI_Pready_list PMPI_Pready_list
+#define MPI_Pready_range PMPI_Pready_range
 #define MPI_Query_thread PMPI_Query_thread
 #define MPI_Register_datarep PMPI_Register_datarep
 #define MPI_Request_free PMPI_Request_free