function [ns,m,no,x0] = mblkdel(tau,y0,ts)
%MBLKDEL Driver for the discrete-time delay block.
%
% See also

% Initial coding by A S Bozin, 21-12-99
% Copyright 1997-2000 The MathWorks, Inc.
% $Revision: 1.1 $ $Date: 2000/06/14 16:12:10 $

   if (isempty(y0))
      y0 = 0;
   end
   y0 = y0(:);
   no = size(y0,1);
   h = ts(1);
   if (h == -1)
      nh = floor(tau)+1;
   else
      nh = tau/h;
   end
   ns = floor(nh);
   m = nh-floor(nh);
   x0 = y0(:,ones(1,ns+1));
   x0 = x0(:);
   return					   % Last card of MBLKDEL


