FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | count | |||
integer, | intent(inout), | dimension(:) | :: | requests | ||
integer, | intent(out) | :: | requestindex | |||
integer, | intent(out), | dimension(MPI_STATUS_SIZE) | :: | status |
subroutine waitany_stat (count, requests, requestindex, status)
implicit none
integer, intent(in) :: count
integer, dimension(:), intent(inout) :: requests
integer, intent(out) :: requestindex
# ifdef MPI
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
# else
integer, dimension(1), intent(out) :: status
# endif
# ifdef MPI
integer :: ierror
!$OMP MASTER
call time_message(.false., time_mp_sync, ' MPI Sync')
!$OMP END MASTER
call mpi_waitany(count, requests, requestindex, status, ierror)
!$OMP MASTER
call time_message(.false., time_mp_sync, ' MPI Sync')
!$OMP END MASTER
# else
status = 0
requestindex = 0
call mp_abort ("waitany")
# endif
end subroutine waitany_stat