Window free
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(inout) | :: | win |
SUBROUTINE mp_win_free(win)
!! Window free
INTEGER, INTENT(INOUT) :: win
CHARACTER(LEN=*), PARAMETER :: routineN = 'mp_win_free'
INTEGER :: handle, ierr
ierr = 0
CALL timeset(routineN, handle)
#if defined(__parallel)
CALL mpi_win_free(win, ierr)
IF (ierr /= 0) CALL mp_stop(ierr, "mpi_win_free @ "//routineN)
#else
MARK_USED(win)
win = mp_win_null
#endif
CALL timestop(handle)
END SUBROUTINE mp_win_free