FinalizeMPIExchangeAsync Subroutine

  1. SELF_DomainDecomposition_t.f90
  2. SELF_DomainDecomposition_t
  3. FinalizeMPIExchangeAsync

public subroutine FinalizeMPIExchangeAsync(mpiHandler)

Arguments

TypeIntentOptionalAttributesName
class(DomainDecomposition_t), intent(inout) :: mpiHandler

Contents

Source Code

FinalizeMPIExchangeAsync

Source Code

  subroutine FinalizeMPIExchangeAsync(mpiHandler)
    class(DomainDecomposition_t),intent(inout) :: mpiHandler
    ! Local
    integer :: ierror
    integer :: msgCount

    if(mpiHandler%mpiEnabled) then
      msgCount = mpiHandler%msgCount
      call MPI_WaitAll(msgCount, &
                       mpiHandler%requests(1:msgCount), &
                       mpiHandler%stats(1:MPI_STATUS_SIZE,1:msgCount), &
                       iError)
    endif

  endsubroutine FinalizeMPIExchangeAsync