mp_test_1 Subroutine

private subroutine mp_test_1(request, flag)

Tests for completion of the given request.

Arguments

Type IntentOptional Attributes Name
type(mp_request_type), intent(inout) :: request

the request
logical, intent(out) :: flag

logical which determines if the request is completed

Source Code

   SUBROUTINE mp_test_1(request, flag)
      !! Tests for completion of the given request.

      TYPE(mp_request_type), 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%handle, 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