pro read_surf,infile
	close,1 & openr,1,infile
	a=assoc(1, bytarr(1200))

	read,'enter # sectors:',sector

	for i = 0, sector do begin

	   b = a(i)

;	   print, i, '   ', total(b)

	endfor

	print,'done'
end