testall_nostat_noflag Subroutine

  1. mp.fpp
  2. mp
  3. testall_nostat_noflag

private subroutine testall_nostat_noflag(count, requests)

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

Arguments

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

Contents

Source Code

testall_nostat_noflag

Source Code

  subroutine testall_nostat_noflag (count, requests)
    implicit none
    integer, intent(in) :: count
    integer, dimension(:), intent (inout) :: requests
    !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
    logical :: flag !Should this be integer?
    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
    UNUSED_DUMMY(count); UNUSED_DUMMY(requests)
# endif
  end subroutine testall_nostat_noflag