function [eeg,ev,header] = read_rdf(filename)
if nargin < 1
help read_rdf;
return;
end;
eeg = [];
ev = [];
header = [];
fp = fopen(filename,'rb','ieee-le');
if fp == -1,
disp('read_RDF(): Cannot open data file...!');
return;
end
fseek(fp,6,-1);
header.ch_no = fread(fp,1,'uint16');
cnt = 0;
ev_cnt = 0;
while(~feof(fp)),
tag = fread(fp,1,'uint32');
if length(tag) == 0,
break;
end
if tag == hex2dec('f0aa55'),
cnt = cnt + 1;
disp(['block ' num2str(cnt) ' found']);
% read ch_no and block length