function test_cdata_matrix()

% TEST_CDATA_MATRIX tests matrix read/write from XML for cdata class.
%
%
% M Hewitson 23-05-07
%
% $Id: test_cdata_matrix.m,v 1.4 2008/09/19 14:03:50 ingo Exp $
%


a = ao(rand(10,10))
c = select(a, sub2ind(size(a.data.y), 1:10 , 1:10))
c.data

return

save(a, 'ltpda_cmat.xml');

b = ao('ltpda_cmat.xml');


%%
c = a.*b

delete('ltpda_cmat.xml');

% END