PRO calcall,ifile1,ifile2
; This procedure reads data files of underwater travel times,
; calculates temperature and current speed, and saves them to 
; disk.  It also scans for records indicating that a jump in the peak
; position was detected and corrected.  The data preceeding this 
; error are replaced by values obtained by linear interpolation.
; Sample input file:   /data3/Darmat/data/naut/0595/11/cur50511.000
; Sample output file:  /data3/Darmat/data/naut/0595/11/cus50511.000
;   RWB, 5-21-95.
; ****** Remove the expunging of points preceeding
; detection of an error.  This is just for the data
; of Nov. 25, 1995.  RWB, Nov. 28, 1995. ******
; ****** This is now the standard algorithm, for 
; data from 3-Mile Slough.
; RWB, Jan. 12, 1995. ******
COMMON controlb,nfile0,nfile,itag
IF (n_params() eq 0) THEN quit1
FOR nfile=ifile1,ifile2 DO BEGIN
   nstr = strtrim(string(nfile),2)
   if strlen(nstr) eq 1 then nstr = '00'+nstr
   if strlen(nstr) eq 2 then nstr = '0'+nstr
   path='/d4/Darmat/data/naut/0501/30/'
   date = strmid(path,strlen(path)-5,1)+strmid(path,strlen(path)-8,2) $
      + strmid(path,strlen(path)-3,2)
   ;print,'date = ',date
   infile = path+'cur'+date+'.'+nstr; Full data file.
   ;print, 'infile  = ', infile
   calc6a,infile;	Do the work.
ENDFOR
END

PRO quit1
   print,'Syntax:  calcall,ifile1,ifile2'
   print,'   ifile1 = number of first data file to process'
   print,'   ifile2 = number of last data file to process'
   print,'   Example:  calcall,17,59'
STOP
END