;+
; NAME:
;       EIS_ENVIRONMENT
;
; PURPOSE:
;       Sets up data sources and directories to search for data for
;       the XFILES procedure. The user should edit this files in order
;       to set it up for personal use. Note that the data source
;       "OTHER" must always be present as the last item on the list
;       (could also be the only one).
;
;
; CATEGORY:
;       Hansteen/Wikstol Data analysis SW
;
; CALLING SEQUENCE:
;       @environment (called by XFILES and XDISPLAY)
;
; INPUTS:
;       None
;
; KEYWORD PARAMETERS:
;
;
; OUTPUTS:
;       Objects of class HW_AUX includes the following parameters:
;
;       dsource:         List of sources of data (e.g. instruments)
;                        that the user want to use the analysis SW
;                        on.
;        dsource_dir:    For each source of data, this variable tells
;                        the analysis SW (XFILES) the default
;                        directory to search for data.
;
; CALLS:
;
;
; COMMON BLOCKS:
;
;
; PROCEDURE:
;
;
; RESTRICTIONS:
;
;
; MODIFICATION HISTORY:
;       01-Sep-2001: Oivind Wikstol
;       03-Oct-2001: Oivind Wikstol. Added documentation.
;       11-Apr-2002: Viggo Hansteen. Added scfac variable
;   28-Oct-2002: Ronald Yurow. Complete Rewrite.
;-


dsource = ['CCSDS', 'FITS', 'HK']

eis_data       = GETENV ('EIS_DATA')
eis_ccsds_data = GETENV ('EIS_CCSDS_DATA')
eis_fits_data  = GETENV ('EIS_FITS_DATA')
eis_hk_data    = GETENV ('EIS_HK_DATA')

IF eis_data EQ "" THEN eis_data = '.'

IF eis_ccsds_data EQ "" THEN BEGIN

   eis_ccsds_data = eis_data + '/science/ccsds/'

ENDIF

IF eis_fits_data EQ "" THEN BEGIN

   eis_fits_data = eis_data + '/science/fits/'

ENDIF

IF eis_hk_data EQ "" THEN BEGIN

   eis_hk_data = eis_data + '/status/'

ENDIF

cdir = LOCAL_NAME (eis_ccsds_data)
fdir = LOCAL_NAME (eis_fits_data)
hdir = LOCAL_NAME (eis_hk_data)

IF NOT IS_DIR (cdir) THEN cdir = "."
IF NOT IS_DIR (fdir) THEN fdir = "."
IF NOT IS_DIR (hdir) THEN hdir = "."

dsource_dir =  [cdir, fdir, hdir]

; screensize factor for sizing up xdisplay window

scfac = 0.6