;+
; NAME:
;	smei_star_alias
; PURPOSE:
;	Translates aliases for star names to catalogue names
; CATEGORY:
;	camera/idl/star
; CALLING SEQUENCE:
	FUNCTION smei_star_alias, alias
; INPUTS:
;	alias				scalar or array; type: string
;							star alias
; OUTPUTS:
;	smei_star_alias 	same dimensions as 'alias'; type: string
;							name from SMEI catalogue
;							if the alias is not known the input
;							value is left unchanged.
; INCLUDE:
	@compile_opt.pro		; On error, return to caller
; CALLS:
;	where_common
; EXAMPLE:
;		name = smei_star_alias('Sirius')
;	returns
;		name = 'HD 48915'
; PROCEDURE:
;	List of aliases and real names are hardcoded
; MODIFICATION HISTORY:
;	AUG-2006, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
;-

aliases = [ $
	[ 'Sirius'	, 'HD 48915'	]	, $
	[ 'Polaris'	, 'HD 8890' 	]	, $
	[ 'ZetaTau'	, 'V* zet Tau'	]	, $
	[ 'Almach'	, 'HD 12533'	]	, $
	[ 'Betelgeuse'	, 'V* alf Ori'	]	, $
	[ 'Aldebaran'	, 'V* alf Tau'	]	, $
	[ 'Vega'	, 'V* alf Lyr'	]	, $
	[ 'Alkaid'	, 'HD 120315'	]	, $
	[ 'Polaris'	, 'HD 8890'	]	, $
	[ 'Vega'	, 'V* alf Lyr'	]	, $
	[ '109 Virgo'	, 'HD 130109'	]	]

i = where_common( strupcase(alias), strupcase(aliases[0,*]), inref=j )

name = alias
IF i[0] NE -1 THEN name[i] = aliases[1,j]

RETURN, name  &  END