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~2~~CallsGraph proc~win_finalize~2 win_t%win_finalize mpi_win_free mpi_win_free proc~win_finalize~2->mpi_win_free

Variables

Type Visibility Attributes Name Initial
integer, private :: ierr

Source Code

   subroutine win_finalize(this)
      class(win_t), intent(inout) :: this
      integer :: 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