;+
; NAME:
;  oc_search_pos_single_ucac2
;  
; PURPOSE: (one line)
;  Searches around a given position in the UCAC2 catalog.
;
; DESCRIPTION:
;  This routine is a wrapper to call oc_scat 
;  (was a wrapper to oc_search_pos_fullcat).
;
; CATEGORY:
;  Star catalogs
;
; CALLING SEQUENCE:
;  oc_search_pos_single_ucac2, RA, DEC, RADIUS, NSTARS, _extra=extra
;
; INPUTS:
;  RA     -- Right ascension of center of search position.  Radians, J2000.
;  DEC    -- Declination     of center of search position.  Radians, J2000.
;  RADIUS -- Search radius.  Radians. 
;
;  Inputs are single values, not arrays.
;
; OPTIONAL INPUT PARAMETERS:
;  None
;
; KEYWORD INPUT PARAMETERS:
;  CATALOG= -- Name of the catalog to use; e.g., 'HD', 'TY2', 'UCAC2'.
;    Defaults to 'HD' if not set.
;  /VERBOSE -- If set, print error messages to screen.
;
; KEYWORD OUTPUT PARAMETERS:
;  None
;
; OUTPUTS:
;  result -- Array of structures [nstars], with each element being a 
;    fully-populated star structure containing RA, Dec, magnitude, etc.
;  NSTARS -- Number of stars found
;  
; COMMON BLOCKS:
;  None
;
; SIDE EFFECTS:
;  None
;
; RESTRICTIONS:
;  The proper environment variable must be set for the catalog called.
;   $UCAC2_PATH -- For UCAC2 catalog
;
; EXAMPLE:
;  print, (oc_search_pos_single_ucac2(0.1, 0.1, 0.01, nstars)).ID
;
; MODIFICATION HISTORY:
;  Written 30-Jan-2006 by Henry Throop, SwRI
;  02-July-2006 Leslie Young; rewrite to call oc_scat
;-

function oc_search_pos_single_ucac2, ra, dec, radius, nstars, _extra=extra

    name_catalog = 'ucac2'
    ids_scat 	= oc_scat(ra, dec, radius, name_catalog, nstars, verbose=verbose)
    if nstars eq 0 then return, -1L
    ids_ucac2	= oc_convertid_ucac2(SCAT=ids_scat)			
    stars	= oc_getstar_ucac2(ids_scat, nstars=nstars, verbose=verbose)

    return, stars

;  catalog_pass = 	'UCAC2'
;
;  return, oc_search_pos_fullcat(catalog=catalog_pass, ra, dec, radius, nstars,$
;                                _extra=extra)

end

;;;;;;;;;;

pro other

; Various tests are here

;   scat -c ucac2 -r 2062.64802 -d -t -j -n 1000000 7. 7. j2000       
;     works
;   scat -c ucac2 -r 2062.64802 -d -t -j -n 1000000 57. 57. j2000 
;     gives ucac2 error message -- no file found

   stars=oc_search_pos_single_ucac2(0.01,0.01,0.01,ns, /verb)		
; Searches, converts id's, returns stars, etc!
   plot, stars[*].ra, stars[*].dec, psym=3, xrange=[-.1,.1], yrange=[-.1,.1]
	; Plot the returned stars

   id	= 12345
   id	= 1
   id_scat	= oc_convertid_ucac2(ucac2=id)
   a=oc_getstar_ucac2(id)
   a0	= oc_getstar_ucac2('0')
   a1	= oc_getstar_ucac2('1')
   a2	= oc_getstar_ucac2('2')
   a3	= oc_getstar_ucac2('3')

   a	= oc_getstar_ucac2(oc_convertid_ucac2(SCAT=$
       oc_convertid_ucac2(UCAC2=['1', '10', '100', '1000', '10000', 'none'])))
   

stop
end