par_WaitAll Subroutine

private subroutine par_WaitAll(req_in)

Uses

  • proc~~par_waitall~~UsesGraph proc~par_waitall par_WaitAll module~modgvec_globals MODgvec_Globals proc~par_waitall->module~modgvec_globals iso_fortran_env iso_fortran_env module~modgvec_globals->iso_fortran_env

Wait for completion of all nonblocking communications for req(:)

Arguments

Type IntentOptional Attributes Name
integer, intent(inout) :: req_in(:)

Called by

proc~~par_waitall~~CalledByGraph proc~par_waitall par_WaitAll interface~par_wait par_Wait interface~par_wait->proc~par_waitall interface~par_wait->interface~par_wait

Source Code

  SUBROUTINE par_WaitAll(req_in)
  ! MODULES
    USE MODgvec_Globals, ONLY : wp
    IMPLICIT NONE
  !--------------------------------------------------------------------------------------------------------------------------------
  ! INPUT VARIABLES
    MPI_request_TYPE, INTENT(INOUT) :: req_in(:)
  !--------------------------------------------------------------------------------------------------------------------------------
  ! LOCAL VARIABLES
#   if MPI
    INTEGER     :: sz
  !================================================================================================================================
  ! BODY
    sz=SIZE(req_in)
    CALL MPI_WaitAll(sz, req_in(:), MPI_STATUSES_IGNORE)
#   endif
  END SUBROUTINE par_WaitAll