vec_int32_destroy Subroutine

private pure subroutine vec_int32_destroy(self)

Release all storage and reset to the empty state.

Type Bound

vector_int32_t

Arguments

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

Source Code

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

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