%
%  mr = rmmatcd(m,id)
%
%  Function to remove matrix columns in M specified by index ID.
%
%  Written by: Kjetil Havre 13/9-1996.
%

function mr = rmvecel(m,id);
   mr = [];
   if nargin < 2
      disp('Usage: mr = rmmatcd(v,id)');
      return;
   end
   [rd,cd] = size(m);
   
   for i = 1:cd
      if isempty(find(id==i))
         mr = [mr m(:,i)];
      end
   end
end
