testall_nostat Subroutine

private subroutine testall_nostat(count, requests, flag)

A routine to test for all count communications, given by the message handles in requests, to complete. We ignore the status information

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: count
integer, intent(inout), dimension(:) :: requests
logical, intent(out) :: flag

Contents

Source Code

testall_nostat

Source Code

  subroutine testall_nostat (count, requests, flag)
    implicit none
    integer, intent(in) :: count
    integer, dimension(:), intent (inout) :: requests
    logical, intent(out) :: flag
    !Note mpi_test will set the request handle to MPI_NULL (or similar)
    !when message complete so have to set requests as inout
# ifdef MPI
    integer :: ierror
!$OMP MASTER
    call time_message(.false., time_mp_sync, ' MPI Sync')
!$OMP END MASTER
    call mpi_testall(count,requests,flag,MPI_STATUSES_IGNORE,ierror)
!$OMP MASTER
    call time_message(.false., time_mp_sync, ' MPI Sync')
!$OMP END MASTER
# else
    flag = .false.
# endif
  end subroutine testall_nostat