function Node = CleanNodeList(Node,i,p)
% Node = CleanNodeList(Node,i,p)
%
% CleanNodeList
%
%   Node = nodes list;
%   i = selection vector of nodes to be deleted;
%   p = {'0' do not print, '1' print};
%

% Walter Ponge-Ferreira
% Cotia, 15.06.2018

[n,m] = size(Node);

if nargin<3,
  p = 0;
end
if nargin<2,
  i = 1:n;
end
  
if p == 1,
  fprintf('No. \t X \t Y \t Cy \t Cz \n');
  for j = 1:length(i),
    fprintf('%d \t %g \t %g \t %d \t %d \n',i(j),Node(i(j),1),Node(i(j),2),Node(i(j),3),Node(i(j),4));
  end
  fprintf('\n');
end

ind = 1:n;
for j = 1:length(i),
  ind = ind(find(ind!=i(j)));
end

Node = Node(ind,:);


endfunction