FUNCTION GetDatDir, dirname
;	------------------------------------------------------------
;+							7-Feb-92
;	NAME: GetDatDir
;
;	PURPOSE: Return the full data to the input archive directory
;
;	HISTORY: written 15-Nov-91
;		update for multiple directories 7-Feb
;-
;	------------------------------------------------------------

	ndir = N_ELEMENTS(dirname)	
	ret = strarr(ndir)
	FOR i=0, ndir -1 DO BEGIN
	  ret(i) = finddir(dirname(i))		;get full name
	  IF (ret(i) ne '') THEN BEGIN
	    len = STRLEN(ret(i))
	    ret(i) = STRMID(ret(i),0,len-1)	;trim last "/" off
	  ENDIF ELSE BEGIN
	    Print,'**** Directory -', ret(i),' not found in the normal Data tree'
	    tt = ''
	    Read,'reEnter VALID directory name: ', tt
	    ret(i) = GetDatDir(tt)		;get full path
	  ENDELSE
	ENDFOR

	RETURN, ret
	END