function r = GetLoadNumber(Load,p)
% n = GetLoadNumber(Load,p)
%
% GetLoadNumber
%
%   n = number of loads on the list;
%   Load = loads list;
%   p = {'0' do not print, '1' print};
%

% Walter Ponge-Ferreira
% Cotia, 17.06.2018

[r,~] = size(Load);

if nargin<2,
  p = 0;
end

i = 1:r;
  
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

endfunction