A Routine to initialise request arrays properly so they can have null requests in them and still work problems with waitall and waitany
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(inout), | dimension(:) | :: | requests |
subroutine initialise_requests(requests)
implicit none
integer, dimension(:), intent(inout) :: requests
requests = mp_request_null
end subroutine initialise_requests