PRO read6a,infile
   ; This procedure reads a data file of travel times and derived
   ; quantities, to make them available for plotting.,
   IF n_params() eq 0 THEN BEGIN
      print,'read1,<filename>'
      print,'   filename> = name of input file; should have been'
      print,'   written by calc6a.pro .'
      print,"   Example:  read1,'/home1/stars/bland/nautdat/cur60801.007'"
      RETURN
   ENDIF
   print, 'infile  = ', infile
   rdsk,tAss1,infile,1
   rdsk,tBss1,infile,2
   rdsk,tAav1,infile,3
   rdsk,tBav1,infile,4
   rdsk,rmsAss1,infile,5
   rdsk,rmsBss1,infile,6
   rdsk,rveco,infile,7
   rdsk,ttmp,infile,8
   rdsk,cvss1,infile,9
   rdsk,ctmpss1,infile,10
   rdsk,cvav1,infile,11
   rdsk,ctmpav1,infile,12
   rdsk,salss1,infile,13
   rdsk,salav1,infile,14
   rdsk,day1,infile,15
   hour1=(day1-day1(0))*24.
   IF strmid(infile,strlen(infile)-12,3) eq 'cus' THEN BEGIN
      ;***** Envelope arrays.
      rdsk,tAss2,infile,16
      rdsk,tBss2,infile,17
      rdsk,rmsAss2,infile,18
      rdsk,rmsBss2,infile,19
      rdsk,yAss2,infile,20
      rdsk,yBss2,infile,21
      rdsk,tAav2,infile,22
      rdsk,tBav2,infile,23
      rdsk,rmsAav2,infile,24
      rdsk,rmsBav2,infile,25
      rdsk,yAav2,infile,26
      rdsk,yBav2,infile,27
      rdsk,teAav2,infile,28
      rdsk,teBav2,infile,29
      rdsk,yeAav2,infile,30
      rdsk,yeBav2,infile,31
      rdsk,sig0A2,infile,32
      rdsk,sig0B2,infile,33
      rdsk,day2,infile,34
      hour2=(day2-day2(0))*24.
      ;***** Full cc arrays.
      rdsk,tAss3,infile,35
      rdsk,tBss3,infile,36
      rdsk,rmsAss3,infile,37
      rdsk,rmsBss3,infile,38
      rdsk,yAss3,infile,39
      rdsk,yBss3,infile,40
      rdsk,tAav3,infile,41
      rdsk,tBav3,infile,42
      rdsk,rmsAav3,infile,43
      rdsk,rmsBav3,infile,44
      rdsk,yAav3,infile,45
      rdsk,yBav3,infile,46
      rdsk,teAav3,infile,47
      rdsk,teBav3,infile,48
      rdsk,yeAav3,infile,49
      rdsk,yeBav3,infile,50
      rdsk,tAf3,infile,51
      rdsk,tBf3,infile,52
      rdsk,rmsAf3,infile,53
      rdsk,rmsBf3,infile,54
      rdsk,yAf3,infile,55
      rdsk,yBf3,infile,56
      rdsk,teAf3,infile,57
      rdsk,teBf3,infile,58
      rdsk,yeAf3,infile,59
      rdsk,yeBf3,infile,60
      rdsk,sig0A3,infile,61
      rdsk,sig0B3,infile,62
      rdsk,day3,infile,63
      hour3=(day3-day3(0))*24.
   ENDIF
   save
END