A routine to wait for all count communications, given by the message handles in requests, to complete. We ignore the status information
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | count | |||
| integer, | intent(inout), | dimension(:) | :: | requests |
subroutine waitall_nostat (count, requests)
implicit none
integer, intent(in) :: count
integer, dimension(:), intent (inout) :: requests
!Note mpi_wait will set the request handle to MPI_NULL (or similar)
!when message complete so have to set requests as inout
# ifdef MPI
integer :: ierror
!$OMP MASTER
call time_message(.false., time_mp_sync, ' MPI Sync')
!$OMP END MASTER
call mpi_waitall(count,requests,MPI_STATUSES_IGNORE,ierror)
!$OMP MASTER
call time_message(.false., time_mp_sync, ' MPI Sync')
!$OMP END MASTER
# else
UNUSED_DUMMY(count); UNUSED_DUMMY(requests)
# endif
end subroutine waitall_nostat