vec_int64_destroy Subroutine

private pure subroutine vec_int64_destroy(self)

Release all storage and reset to the empty state.

Type Bound

vector_int64_t

Arguments

Type IntentOptional Attributes Name
class(vector_int64_t), intent(inout) :: self

Source Code

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

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