;
; process some of loris's data.
; this reads in file, averages scans, scales to kelvins and stores in sav file
; defines flistar
@filelist.dat
dir='/share/olcor/'
nfiles=n_elements(flistar)
;
; when computing the cal, ignore 15 % of the edges.
;
edgefract=[.15,.15]
;
; average each scan, scale to kelvins, store i file for this day.
;
for ifile=0,nfiles-1 do begin &$
	file=dir+flistar[ifile] &$
	istat=pfcalib(file,bf,bcalf,maxrecs=900L,/sav,edge=edgefract) &$
	corplot,bf &$
endfor
;