gmbe_destroy Subroutine

private subroutine gmbe_destroy(this)

Clean up GMBE context

Type Bound

gmbe_context_t

Arguments

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

Calls

proc~~gmbe_destroy~~CallsGraph proc~gmbe_destroy gmbe_context_t%gmbe_destroy proc~mbe_base_destroy many_body_expansion_t%mbe_base_destroy proc~gmbe_destroy->proc~mbe_base_destroy proc~system_destroy system_geometry_t%system_destroy proc~mbe_base_destroy->proc~system_destroy

Source Code

   subroutine gmbe_destroy(this)
      !! Clean up GMBE context
      class(gmbe_context_t), intent(inout) :: this

      ! Clean up GMBE-specific data
      if (allocated(this%pie_atom_sets)) deallocate (this%pie_atom_sets)
      if (allocated(this%pie_coefficients)) deallocate (this%pie_coefficients)
      this%n_pie_terms = 0

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