;+
; NAME:
;	smei_star_cleanlist
; CALLING SEQUENCE:
	PRO smei_star_cleanlist
; INCLUDE:
	@compile_opt.pro
;-
;0         1         2         3         4         5         6
;01234567890123456789012345678901234567890123456789012345678901234
;V* zet And   bL* K1IIe      0 47 20.33   24 16  1  5.19 4.10 3.93

IF NOT txt_read('brightstars.txt'  ,bright_stars_full) THEN RETURN
bright_star_name = strmid(bright_stars_full,9+ 0,13)
bright_star_type = strmid(bright_stars_full,9+13,13)
bright_star_loc  = strmid(bright_stars_full,9+26,23)
bright_star_mags = strmid(bright_stars_full,9+49,16)

IF NOT txt_read('variables_4th.txt',faint_variables_full ) THEN RETURN
faint_variable_name = strmid(faint_variables_full,9+ 0,13)
faint_variable_type = strmid(faint_variables_full,9+13,13)
faint_variable_loc  = strmid(faint_variables_full,9+26,23)
faint_variable_mags = strmid(faint_variables_full,9+49,16)

IF NOT txt_read('big_variables.txt',bright_variables_full) THEN RETURN
bright_variable_name = strmid(bright_variables_full,9+ 0,13)
bright_variable_type = strmid(bright_variables_full,9+13,13)
bright_variable_loc  = strmid(bright_variables_full,9+26,23)
bright_variable_mags = strmid(bright_variables_full,9+49,16)

print, bright_stars_full[0]+'<'
print, faint_variables_full[0]+'<'
print, bright_variables_full[0]+'<'
print, bright_star_name[0]+'<'
print, faint_variable_name[0]+'<'
print, bright_variable_name[0]+'<'

count_faint  = 0
count_bright = 0
count_unique = 0

openw, /get_lun, iu, 'brightstars_unique.txt'
openw, /get_lun, ju, 'brightstars_common.txt'

FOR i=0,n_elements(bright_stars_full)-1 DO BEGIN

	not_duplicate = 1

	n = where(bright_star_name[i] EQ bright_variable_name)
	IF n[0] NE -1 THEN BEGIN
		IF bright_star_type[i] NE bright_variable_type[n[0]] OR	$
		   bright_star_loc [i] NE bright_variable_loc [n[0]] OR $
		   bright_star_mags[i] NE bright_variable_mags[n[0]] THEN BEGIN
			print, '>',bright_stars_full[i]
			print, '#',bright_variables_full[n[0]]
		ENDIF
		count_bright++
		not_duplicate = 0
	ENDIF

	n = where(bright_star_name[i] EQ faint_variable_name)
	IF n[0] NE -1 THEN BEGIN
		IF bright_star_type[i] NE faint_variable_type[n[0]] OR $
		   bright_star_loc [i] NE faint_variable_loc [n[0]] OR $
		   bright_star_mags[i] NE faint_variable_mags[n[0]] THEN BEGIN
			print, '>',bright_stars_full[i]
			print, '@',faint_variables_full[n[0]]
		ENDIF
		count_faint++
		not_duplicate = 0
	ENDIF

	IF not_duplicate THEN BEGIN
	    printf, iu, bright_stars_full[i]
	    count_unique++
	ENDIF ELSE BEGIN
	    printf, ju, bright_stars_full[i]
	ENDELSE

ENDFOR

free_lun, iu
free_lun, ju

print, "original bright stars: ", n_elements(bright_stars_full)
print, "on bright var list   : ", count_bright
print, "on faint var list    : ", count_faint
print, "unique stars left    : ", count_unique
print, "removed stars        : ", n_elements(bright_stars_full)-count_unique

FOR i=0,n_elements(bright_variables_full)-1 DO BEGIN
	n = where(bright_variable_name[i] EQ bright_star_name)
	IF n[0] EQ -1 THEN print, bright_variables_full[i]
ENDFOR

FOR i=0,n_elements(faint_variables_full)-1 DO BEGIN
	n = where(faint_variable_name[i] EQ bright_star_name)
	IF n[0] EQ -1 THEN print, faint_variables_full[i]
ENDFOR

RETURN  &  END