function p = add_Force_fcn(p,fcn)
p.n_Forces = p.n_Forces+1;
p.ForceFcns{p.n_Forces} = fcn;   %Assign function handle to cell array of force functions.
p.Forces{p.n_Forces} = zeros(p.N,p.dof);  %Create empty array to store force history in.
end