% Writes a Sparse to an XML file.
%
%    Internal function that should never be called directly.
%    Use *xmlStore* instead.
%
% FORMAT   xmlWriteSparse(fid, data)
%
% IN    fid    File descriptor
% IN    data   Sparse
                                                                                                                               
% 2003-06-16  Created by Mattias Ekström.

function xmlWriteSparse(fid, data)

s = size (data);

nr = s(1);
nc = s(2);

attrlist = [];
attrlist = xmlAddAttribute (attrlist, 'nrows', sprintf ('%d', nr));
attrlist = xmlAddAttribute (attrlist, 'ncols', sprintf ('%d', nc));

xmlWriteTag (fid, 'Sparse', attrlist);

[r,c] = find (data);

xmlWriteRowIndex (fid, r - 1);
xmlWriteColIndex (fid, c - 1);
xmlWriteSparseData (fid, nonzeros(data));

xmlWriteCloseTag (fid, 'Sparse');

clear attrlist form nr nc r c i;