function [width,smap] = mblkds(nreg,rind)
%MBLKDS Computes the mapping for the selector block.
%
% See also

% Initial coding by A S Bozin, 6-22-98
% Copyright 1997-2000 The MathWorks, Inc.
% $Revision: 1.4 $ $Date: 2000/06/14 16:12:11 $

   width = nreg+nreg;
   smap = nreg+[1:nreg];
   if (~isempty(rind))
      if (any(rind > nreg))
	 error('Input indices out of range.');
      else
	 smap(rind) = rind;
      end
   end
   return					   % Last card of MBLKDS
