function Load = GetLoadList(Load,i,p)
% Load = GetLoadList(Load,i,p)
%
% GetLoadList
%
%   Load = Load list;
%   i = selection vector of nodes to be deleted;
%   p = {'0' do not print, '1' print};
%   no = node number;
%   dir = direction of applied load {'2' in y for linear| '3' in z for torsional};
%   value = magnitude of applied load;
%   type = {'0' for force|'1' for displacement}.
%

% Walter Ponge-Ferreira
% Cotia, 17.06.2018

[r,s] = size(Load);

if nargin<3,
  p = 0;
end
if nargin<2,
  i = 1:r;
end
  
if p == 1,
  fprintf('No. \t Node \t Dir \t Value \t Type \n');
  for j = 1:length(i),
    fprintf('%d \t %d \t %d \t %g \t %d \n',i(j),Load(i(j),1),Load(i(j),2),Load(i(j),3),Load(i(j),4));
  end
  fprintf('\n');
end

Load = Load(i,:);

endfunction