hashtbl_obj_Get_real_dp Subroutine

    pure subroutine hashtbl_obj_Get_real_dp(this,key,val)
      ! Returns the value associated with a key in
      ! the hashtable.
      implicit none
      class(hashtbl_obj), intent(in)  :: this                                  !! Hashtable object
      integer,            intent(in)  :: key                                   !! Key from key-val pair to retrieve from hashtable
      real(leapDP),       intent(out) :: val                                   !! Val from key-val pair to retrieve from hashtable
      ! Work variable
      integer :: hash

      hash = mod(key,this%vec_len) + 1
      call this%vec(hash)%Get(key=key,val=val)

      return
    end subroutine hashtbl_obj_Get_real_dp