pro plotdel

	isize = 0L
	nlos  = 0L
	openr,1,'del_1.dat'
	readu,1,isize
	readu,1,nlos
	readu,1,isize
	readu,1,isize
	ngrid = (isize/4)/(nlos*nlos)
	print,'Expecting ',ngrid,' grid cells.'
	del = fltarr(ngrid)
	for i=1,25 do begin
	  readu,1,del
	  plot,del
	  wait,1
	endfor
	close,1
	end