Skip to content

Commit b59272e

Browse files
committed
use-mpi-f08: add missing subroutines in the mpi_f08 module
- MPI_Status_f082f - MPI_Status_f082f Signed-off-by: Gilles Gouaillardet <[email protected]>
1 parent 1f3e334 commit b59272e

File tree

1 file changed

+20
-0
lines changed

1 file changed

+20
-0
lines changed

ompi/mpi/fortran/use-mpi-f08/mod/mpi-f08-interfaces.h.in

Lines changed: 20 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -4239,3 +4239,23 @@ subroutine MPI_Ineighbor_alltoallw_f08(sendbuf,sendcounts,sdispls,sendtypes,recv
42394239
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
42404240
end subroutine MPI_Ineighbor_alltoallw_f08
42414241
end interface MPI_Ineighbor_alltoallw
4242+
4243+
interface MPI_Status_f2f08
4244+
subroutine MPI_Status_f2f08_f08(f_status,f08_status,ierror)
4245+
use :: mpi_f08_types, only : MPI_Status, MPI_STATUS_SIZE
4246+
implicit none
4247+
INTEGER, INTENT(IN) :: f_status(MPI_STATUS_SIZE)
4248+
TYPE(MPI_Status), INTENT(OUT) :: f08_status
4249+
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
4250+
end subroutine MPI_Status_f2f08_f08
4251+
end interface MPI_Status_f2f08
4252+
4253+
interface MPI_Status_f082f
4254+
subroutine MPI_Status_f082f_f08(f08_status,f_status,ierror)
4255+
use :: mpi_f08_types, only : MPI_Status, MPI_STATUS_SIZE
4256+
implicit none
4257+
TYPE(MPI_Status), INTENT(IN) :: f08_status
4258+
INTEGER, INTENT(OUT) :: f_status(MPI_STATUS_SIZE)
4259+
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
4260+
end subroutine MPI_Status_f082f_f08
4261+
end interface MPI_Status_f082f

0 commit comments

Comments
 (0)