function Node = GetNodeList(Node,i,p)
% Node = GetNodeList(Node,i,p)
%
% SetNodeList
%
%   Node = nodes list;
%   i = selection vector;
%   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

Node = Node(i,:);

endfunction