timer_obj_GetTiming Function

    pure function timer_obj_GetTiming(this,name) result(res)
      !> Returns timing information for data given by name.
      implicit none
      class(timer_obj), intent(in) :: this                                     !! Timer
      character(len=*), intent(in) :: name                                     !! Name of timing data
      real(wp)                     :: res                                      !! Timing
      ! Work variables
      integer :: idx

      ! Get index from hash table
      call this%tbl%Get(key=this%tbl%HashString(name),val=idx)

      ! Return timing info
      res = this%timing(idx)

      return
    end function timer_obj_GetTiming