function m=check_sphinx_01(list,dir,ext,vecsize,number);
% m=check_sphinx_01(list,dir,ext,vecsize,number);
%
% check sphinx data to be in the interval (0,1), If a problem found, oputputs
% the bad file 

if nargin==4
  number = inf;
end

% alloc matrices
vmean=zeros(1,vecsize); 
sum2 = zeros (vecsize,vecsize); 

% go round 
N=0; files=0;
ff=fopen(list,'r');
while (files < number)
  ss=fscanf(ff, '%s',[1 1]); if (isempty(ss)) break; end
%  name=[dir '/features/' ss '.fea'];  %disp(name);
  name=[dir '/' ss '.' ext]; 
  [m,veccount]=read_sphinx (name,vecsize); 
  disp([ num2str(files) ' ' num2str(veccount) ' ' name]);
  
  if (find ((m <= 0.0) | (m >= 1.0)))
    disp ('got a problem !!!'); return;
  end

  N=N+veccount;
  files=files+1;
end
fclose(ff);

% compute the covar matrix:
vmean = vmean /N;
c = sum2/N - vmean' * vmean;