Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(DomainDecomposition_t), | intent(inout) | :: | mpiHandler |
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