pro oc_search_eph_hbt, VERBOSE=verbose

; This is a temporary program, which searches an ephemeris file using the HD catalog.
; LAY also wrote a similar program at a similar time.
;
; HBT 9-Dec-2005 Original version

  file	= 'jupiter_20071201_20080715_144.000.sav'

  dir	= getenv('HDOCCUL') + '/sav/'

  print, 'Restoring: ' + dir+file
  restore, dir + file

  stars = oc_search_eph_hd_hbt(eph, ephindex, nstars, /PLOT, VERBOSE=verbose)

  stop

end