;+
;PROJECT:
;           SolarB EIS
;
;NAME:      
;           eis_read_study_lists
;
;PURPOSE:
;           Read ascii files - "eis_originator_list.lis" , 
;                              "eis_category_list.lis"   ,
;                              "eis_target_list.lis"
;INPUTS:
;           - one of "TARGET", "CATEGORY" & "AUTHOR" keywords
;
;CATEGORY:
;           EIS Technical Planning
;           Database
;
;MODIFICATION HISTORY:
;           Written by: John Rainnie, RAL - j.rainnie@rl.ac.uk (Dec 2005)
;
;-
;************************************************************************
FUNCTION eis_read_study_lists , author      = author      ,                 $
                                category    = category    ,                 $
                                target      = target      ,                 $
                                sci_obj     = sci_obj     ,                 $
                                compression = compression ,                 $
                                observer    = observer    ,                 $
                                planner     = planner     ,                 $
                                tohban      = tohban

baseName = ''
IF (KEYWORD_SET(author)      EQ 1)  THEN baseName = "eis_originator_list.lis"
IF (KEYWORD_SET(category)    EQ 1)  THEN baseName = "eis_category_list.lis"
IF (KEYWORD_SET(target)      EQ 1)  THEN baseName = "eis_target_list.lis"
IF (KEYWORD_SET(sci_obj)     EQ 1)  THEN baseName = "eis_sci_obj_list.lis"
IF (KEYWORD_SET(compression) EQ 1)  THEN baseName = "eis_compression_list.lis"
IF (KEYWORD_SET(observer)    EQ 1)  THEN baseName = "eis_observer_list.lis"
IF (KEYWORD_SET(planner)     EQ 1)  THEN baseName = "eis_planner_list.lis"
IF (KEYWORD_SET(tohban)      EQ 1)  THEN baseName = "eis_tohban_list.lis"
IF (baseName                 EQ '') THEN stop

fileName = CONCAT_DIR(GETENV('ancillary') , baseName)
fileExists = FILE_TEST(fileName)
IF (FILE_TEST(fileName) EQ 0) THEN BEGIN
    stop
ENDIF ELSE BEGIN
    nLines = FILE_LINES(fileName)
    lineArray = STRARR(nLines)
    lineValid = BYTARR(nLines) + 1
    line = ''
    OPENR , lun , fileName , /GET_LUN
    FOR i = 0, nLines - 1 DO BEGIN

        READF , lun , line
        lineArray[i] = line
        first = STRMID(lineArray[i],0,1)
        IF (first EQ '!') OR (first EQ '<') THEN lineValid[i] = 0

    ENDFOR
    FREE_LUN , lun
ENDELSE
list = lineArray[WHERE(lineValid EQ 1)]


RETURN , list

END