pro surf_files,infile,data
	close,1 & openr,1,infile
	a=assoc(1,fltarr(128))
	sector = 0
	pixels = 0
	;read,'enter # sectors:',sector
	temp = a(0)
on_ioerror,happy
	for i=1,400 do temp = [temp,a(i)]
happy:
	on_ioerror,null
	data = fltarr(i,128)
	data(*,*) = temp
	print,'done'
end
pro compare0,data
 nsec =n_elements(data(*,0))
 ;average counts/sector
 avg = total(data(*,0))/double(nsec)
 print,(total(data(0,0))/avg )*100
end