;+
; PROJECT
;
;           Solar-B EIS
;
; NAME
;           EIS_GET_STUDY_DESCRIPTIONS_PATH
;
;
; PURPOSE
;
;           Function to return the pathName of a study description file 
;
; INPUTS
;
;           None
;
; OUPUTS
;
;           path
;
; CATEGORY
;
;           EIS Technical Planning - eis_mk_study & eis_mk_plan
;
; MODIFICATION HISTORY:
;
;           v0.0 Written by: John Rainnie, RAL
;                   j.rainnie@rl.ac.uk (Feb 2006)
;           v0.1 JAR 16-Aug-2006
;                   Much simplified - using environment variables
;           v0.2 JAR & PRY 6-Feb-2007
;                   Fixed bug when ZDBASE_USER is multiple directories
;           v0.3 JAR 21-March-2007
;                   Removed "eis_get_zdbase" function
;-
;************************************************************************
FUNCTION eis_get_study_descriptions_path

RETURN , GETENV('study_descriptions')
;; Get ZDBASE
;zdbase = eis_get_ zdbase()
;
;;
;; IF ZDBASE = OFFICIAL then path is simply the "study_descriptions"
;; environment variable
;;
;IF (zdbase EQ 0) THEN RETURN , GETENV('study_descriptions')
;
;;
;; USER
;;
;user_path = STR_REPLACE( GETENV('ZDBASE_USER') , '+' , '' )
;path      = STRJOIN( [user_path , 'study_descriptions'] , PATH_SEP() , /SINGLE )
;; And check 
;IF (FILE_TEST(path,/DIRECTORY) EQ 1) THEN RETURN , path
;; If not found (because of multiple definition) then
;path = file_search(EXPAND_PATH(GETENV('ZDBASE_USER')),'study_descriptions',/TEST_DIR)
;IF (FILE_TEST(path[0],/DIRECTORY) NE 1) THEN RETURN , '$HOME'
;
;RETURN , path

END