%------------------------------------------------------------------------
%
% NAME:    xmlReadTensor6
%
%          Reads Tensor6 data from XML file.
%
% FORMAT:  result = xmlReadTensor6(fid, attrlist)
%
% RETURN:  result      Data read from file
% IN:      fid         File descriptor
% IN:      attrlist    List of attributes
%------------------------------------------------------------------------
%

% HISTORY: 2002-09-25  Created by Oliver Lemke.

function result = xmlReadTensor6(fid, attrlist)

nv = str2num (xmlGetAttrValue (attrlist, 'nvitrines'));
ns = str2num (xmlGetAttrValue (attrlist, 'nshelves'));
nb = str2num (xmlGetAttrValue (attrlist, 'nbooks'));
np = str2num (xmlGetAttrValue (attrlist, 'npages'));
nr = str2num (xmlGetAttrValue (attrlist, 'nrows'));
nc = str2num (xmlGetAttrValue (attrlist, 'ncols'));

result = fscanf (fid, '%f', nv * ns * nb * np * nr * nc);

fprintf ('Reshaping\n');
result = reshape (result, nv, ns, nb, np, nr, nc);
fprintf ('Reshaping done\n');