Wait for completion of a single nonblocking communication
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real | :: | req_in |
SUBROUTINE par_Wait(req_in) ! MODULES USE MODgvec_Globals, ONLY : wp IMPLICIT NONE ! INPUT VARIABLES MPI_request_TYPE, INTENT(INOUT) :: req_in # if MPI CALL MPI_Wait(req_in, MPI_STATUS_IGNORE) # endif END SUBROUTINE par_Wait