mbe_destroy Subroutine

private subroutine mbe_destroy(this)

Clean up MBE context

Type Bound

mbe_context_t

Arguments

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

Calls

proc~~mbe_destroy~~CallsGraph proc~mbe_destroy mbe_context_t%mbe_destroy proc~mbe_base_destroy many_body_expansion_t%mbe_base_destroy proc~mbe_destroy->proc~mbe_base_destroy proc~system_destroy system_geometry_t%system_destroy proc~mbe_base_destroy->proc~system_destroy

Source Code

   subroutine mbe_destroy(this)
      !! Clean up MBE context
      class(mbe_context_t), intent(inout) :: this

      ! Clean up MBE-specific data
      if (allocated(this%polymers)) deallocate (this%polymers)
      this%total_fragments = 0
      this%max_level = 0

      ! Clean up base class data
      call this%destroy_base()
   end subroutine mbe_destroy