vec_dp_destroy Subroutine

private pure subroutine vec_dp_destroy(self)

Release all storage and reset to the empty state.

Type Bound

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_dp_t),	intent(inout)			::	self

Source Code

   pure subroutine vec_dp_destroy(self)
      !! Release all storage and reset to the empty state.
      class(vector_dp_t), intent(inout) :: self

      self%n_items = 0
      if (allocated(self%items)) deallocate (self%items)
   end subroutine vec_dp_destroy