@@ -4239,3 +4239,23 @@ subroutine MPI_Ineighbor_alltoallw_f08(sendbuf,sendcounts,sdispls,sendtypes,recv
4239
4239
INTEGER , OPTIONAL , INTENT (OUT ) :: ierror
4240
4240
end subroutine MPI_Ineighbor_alltoallw_f08
4241
4241
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