PRO read1,n
; This procedure reads a data file of travel times and derived
; quantities, to make them available for plotting.  The file
; reading is handled by reada.pro; this routine puts together
; the file name.
; read1 handles an uncompressed file (e.g. cus50426.001);
IF n_params() eq 0 THEN BEGIN
   print,'read1,n'
   print,'   n = data set number'
   print,"   Example:  read1,45"
   RETURN
ENDIF
nstr=strtrim(string(n),1)
if strlen(nstr) eq 1 then nstr = '00'+nstr
if strlen(nstr) eq 2 then nstr = '0'+nstr
path = '/d4/Darmat/data/naut/0900/20/'
path = '/d4/Darmat/data/naut/0101/05/'
path = '/d4/Darmat/data/naut/1100/01/'
lp = strlen( path )
date = strmid(path,lp-5,1)+strmid(path,lp-8,2) + $
   strmid(path,lp-3,2)
filename = 'cus'+date+'.'+nstr
infile = path+filename
print, 'infile  = ', infile
read6a,infile
END