global img intmat intmat1 choice flag

init

out50=avsread('/nfs/ir6/w/fyz/2dd/huber/hc/out11q.fld');
img2=avsread('huber/phtm.fld')';
c1=zeros(500,2,50,7);c2=zeros(500,2,50,7);
c3=zeros(500,2,50,7);c4=zeros(500,2,50,7);
l1=zeros(50,7); l2=zeros(50,7); l3=zeros(50,7); l4=zeros(50,7); 

for ii=1:50,
	ii
	choice=1; img=out50(:,:,ii)'*1e5; go;
	if mod(ii,5)==0,	
                save c1 c1; save c2 c2; save c3 c3; save c4 c4;
                save l1 l1; save l2 l2; save l3 l3; save l4 l4;
	end
end
