hashtbl_obj_Final Subroutine

    pure subroutine hashtbl_obj_Final(this)
      ! Finalizes the hashtable; clearing any
      ! allocated memory.
      implicit none
      class(hashtbl_obj), intent(inout) :: this                                !! Hashtable object
      ! Work variable
      integer     :: i

      if (allocated(this%vec)) then
        do i=1,this%vec_len
          call this%vec(i)%Free()
        end do
        deallocate(this%vec)
      end if

      return
    end subroutine hashtbl_obj_Final