displaced_geometry_destroy Subroutine

private subroutine displaced_geometry_destroy(this)

Clean up memory for displaced geometry

Type Bound

displaced_geometry_t

Arguments

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

Calls

proc~~displaced_geometry_destroy~~CallsGraph proc~displaced_geometry_destroy displaced_geometry_t%displaced_geometry_destroy proc~fragment_destroy physical_fragment_t%fragment_destroy proc~displaced_geometry_destroy->proc~fragment_destroy proc~basis_set_destroy molecular_basis_type%basis_set_destroy proc~fragment_destroy->proc~basis_set_destroy proc~atomic_basis_destroy atomic_basis_type%atomic_basis_destroy proc~basis_set_destroy->proc~atomic_basis_destroy proc~cgto_destroy cgto_type%cgto_destroy proc~atomic_basis_destroy->proc~cgto_destroy

Source Code

   subroutine displaced_geometry_destroy(this)
      !! Clean up memory for displaced geometry
      class(displaced_geometry_t), intent(inout) :: this
      call this%geometry%destroy()
   end subroutine displaced_geometry_destroy