Tests for completion of the given request.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(inout) | :: | request |
the request |
||
logical, | intent(out) | :: | flag |
logical which determines if the request is completed |
SUBROUTINE mp_test_1(request, flag)
!! Tests for completion of the given request.
INTEGER, INTENT(inout) :: request
!! the request
LOGICAL, INTENT(out) :: flag
!! logical which determines if the request is completed
INTEGER :: ierr
ierr = 0
#if defined(__parallel)
CALL mpi_test(request, flag, MPI_STATUS_IGNORE, ierr)
IF (ierr /= 0) CALL mp_stop(ierr, "mpi_test @ mp_test_1")
#else
MARK_USED(request)
flag = .TRUE.
#endif
END SUBROUTINE mp_test_1