mp_test_1 Subroutine

private subroutine mp_test_1(request, flag)

Tests for completion of the given request.

Arguments

TypeIntentOptionalAttributesName
integer, intent(inout) :: request

the request

logical, intent(out) :: flag

logical which determines if the request is completed


Contents

Source Code


Source Code

   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