win_finalize Subroutine

private subroutine win_finalize(this)

Type Bound

win_t

Arguments

Type IntentOptional Attributes Name
class(win_t), intent(inout) :: this

Calls

proc~~win_finalize~~CallsGraph proc~win_finalize win_t%win_finalize mpi_win_free mpi_win_free proc~win_finalize->mpi_win_free

Called by

proc~~win_finalize~~CalledByGraph proc~win_finalize win_t%win_finalize proc~darray_destroy darray_destroy proc~darray_destroy->proc~win_finalize proc~dlb_finalize dlb_finalize proc~dlb_finalize->proc~win_finalize proc~darrays_finalize darrays_finalize proc~darrays_finalize->proc~darray_destroy

Variables

Type Visibility Attributes Name Initial
integer(kind=int32), private :: ierr

Source Code

   subroutine win_finalize(this)
      class(win_t), intent(inout) :: this
      integer(int32) :: ierr

      if (this%is_valid .and. this%m_win /= MPI_WIN_NULL) then
         call MPI_Win_free(this%m_win, ierr)
         this%is_valid = .false.
         this%m_win = MPI_WIN_NULL
      end if
   end subroutine win_finalize