function Load = SetLoadList(Load,no,dir,value,type)
% Load = SetLoadList(Load,no,dir,value,type)
%
% SetLoadList
%
%   Load = Load list;
%   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<5,
  type = 0;
end
if nargin<4,
  value = 0;
end
if nargin<3,
  dir = 2;
end
if nargin<2,
  error('Invalid no. of arguments')
end

Load(r+1,:) = [no,dir,value,type];

endfunction