Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(pf_pfasst_t), | intent(in) | :: | pf | main pfasst structure |
||
integer, | intent(in) | :: | level | level on which to wait |
||
integer, | intent(inout) | :: | ierror | error flag |
subroutine pf_mpi_wait(pf, level, ierror)
use pf_mod_mpi, only: MPI_STATUS_SIZE
type(pf_pfasst_t), intent(in) :: pf !! main pfasst structure
integer, intent(in) :: level !! level on which to wait
integer, intent(inout) :: ierror !! error flag
integer :: stat(MPI_STATUS_SIZE)
call mpi_wait(pf%comm%sendreq(level), stat, ierror)
end subroutine pf_mpi_wait