function v = read_binary (filename, count)

 

  m = nargchk (1,2,nargin);
  if (m)
    usage (m);
  end

  if (nargin < 2)
    count = Inf;
  end

  f = fopen (filename, 'rb');
  if (f < 0)
    v = 0;
  else
%   t = fread (f, [2, count], 'float');
    v = fread (f, [1, count], 'int16');
    fclose (f);
%     v = t(1,:) + t(2,:)*i;
    
    
  end