;+
; PROJECT
;
;           Solar-B EIS
;
; NAME
;
;           EIS_GET_DB_NAME
;
; PURPOSE
;
;           Function to get the name of a selected database
;
; INPUTS
;
;           lots
;
; OUPUTS
;
;           db_name - a string
;
; CATEGORY
;
;           EIS Technical Planning
;           Database
;
; WRITTEN
;           Chunkey LePine RAL Mar-2005
;
; HISTORY
;
;          v0.1 JAR RAL 21-March-2007
;               Added "linename" to the list
;          v0.2 JAR 27-Oct-2009
;               Added CAT_MAIN and CAT_EXPT to the list, to access
;               Ron's as-run catalog (database)
;          v0.3 Added 'RESPONSE' keyword to open relevant DB
;-
;************************************************************************
FUNCTION eis_get_db_name                                 ,                  $
                LINELIST     = LINELIST                  ,                  $
                LINENAME     = LINENAME                  ,                  $
                RASTER       = RASTER                    ,                  $
                STUDY        = STUDY                     ,                  $
                STDRA        = STDRA                     ,                  $
                TIME         = TIME                      ,                  $
                SCIENCE      = SCIENCE                   ,                  $
                SCI_2        = SCI_2                     ,                  $
                ENGINEERING  = ENGINEERING               ,                  $
                ES_INST      = ES_INST                   ,                  $
                ES_CONTROL   = ES_CONTROL                ,                  $
                CAT_MAIN     = CAT_MAIN                  ,                  $
                CAT_EXPT     = CAT_EXPT                  ,                  $
                RESPONSE     = RESPONSE


db_name = ''

IF KEYWORD_SET(LINELIST)    THEN db_name = 'eis_linelist_db'
IF KEYWORD_SET(LINENAME)    THEN db_name = 'eis_linename_db'
IF KEYWORD_SET(RASTER)      THEN db_name = 'eis_raster_db'
IF KEYWORD_SET(STUDY)       THEN db_name = 'eis_study_db'
IF KEYWORD_SET(STDRA)       THEN db_name = 'eis_study2_db'
IF KEYWORD_SET(SCIENCE)     THEN db_name = 'eis_science_db'
IF KEYWORD_SET(SCI_2)       THEN db_name = 'eis_science2_db'
IF KEYWORD_SET(TIME)        THEN db_name = 'eis_timeline_db'
IF KEYWORD_SET(ENGINEERING) THEN db_name = 'eis_engineering_db'
IF KEYWORD_SET(ES_INST)     THEN db_name = 'eis_instrument_state_db'
IF KEYWORD_SET(ES_CONTROL)  THEN db_name = 'eis_control_state_db'
IF KEYWORD_SET(CAT_MAIN)    THEN db_name = 'eis_main'
IF KEYWORD_SET(CAT_EXPT)    THEN db_name = 'eis_experiment'
IF KEYWORD_SET(RESPONSE)    THEN db_name = 'eis_tl_response_db'

IF (db_name EQ '') THEN MESSAGE, /CONTINUE, 'Database name keyword unrecognised'

RETURN , db_name

END