function B=rationalize(A,I)
%  remove index values I from structure A 
fn=fieldnames(A);
B=A;
for i=1:length(fn),
	[m,n]=size(A.(fn{i}));
	if m~=1 || n~=1,
		B.(fn{i})(I,:)=[];
	end;
end;
return;

