[n, type, values]=GetSmallDataElement(fh, fileformat)

function [n, type, values]=GetSmallDataElement(fh, fileformat)
% GETSMALLDATAELEMENT returns a small data element from a MAT-file
% 
% Example:
% [N, TYPE, VALUES]=GETSMALLDATAELEMENT(FH, FILEFORMAT)
%       FH is the file handle from fopen
%       FILEFORMAT is 'ieee-le' for a little-endian MAT-file, 'ieee-be' for
%       big-endian.
%       N is the number of values in the data element
%       TYPE is the data class
%       VALUES contains the returned data
%
% Author: Malcolm Lidierth 09/06
% Revised: 21/09/06 Now works with big-endian files on Windows
% Copyright  Kings College London 2006

mi=StandardMiCodes();


temp=fread(fh,2,'uint16=>uint16');
if strcmp(fileformat,'ieee-le')
    n=temp(2);
    type=temp(1);
else
    n=temp(1);
    type=temp(2);
end
t=mi{type};
k=double(4/sizeof(t));
values=zeros(1,k,t);
for i=1:k
    values(i)=fread(fh,1,[t '=>' t]);
end

end