0001 function field=ReadData(fid)
0002
0003
0004
0005
0006
0007
0008
0009 [type,count]=fread(fid,1,'double');
0010
0011 if count==0,
0012 field=NaN;
0013 else
0014 if type==0,
0015
0016 stringsize=fread(fid,1,'double');
0017 field=char(fread(fid,stringsize,'char'));
0018 field=field(1:end-1)';
0019 elseif type==1,
0020
0021 M=fread(fid,1,'double');
0022 N=fread(fid,1,'double');
0023 field=fread(fid,[M,N],'double');
0024 elseif ((type==2) || (type==3)),
0025 field=fread(fid,1,'double');
0026 else
0027 error('ReadData error message: data type not supported yet!');
0028 end
0029 end