function m = addInputOne2One(m, inFrom, to, fwd)
% ADDINPUTONE2ONE adds a reaction of the form u -> x
%
% m = addInputOne2One(m, inFrom, to, fwd) adds a reaction of the form:
%
%          p(fwd)
% x(from) --------> x(to)
%
% See also
%   addInputOne2OneRev
%   addInputTwo2One
%   addOne2One

% This work is licensed under the Creative Commons Attribution-Noncommercial-No Derivative 
% Works 3.0 United States License. To view a copy of this license, visit 
% http://creativecommons.org/licenses/by-nc-nd/3.0/us/ or send a letter to Creative Commons,
% 171 Second Street, Suite 300, San Francisco, California, 94105, USA.

    m = b1add(m, inFrom, to, fwd, 1);
    
    % add term to stoichiometry matrix    
    m.nR = m.nR + 1;
    [m.spinds.i_S, m.spinds.j_S, m.spinds.x_S, m.spinds.n_S] = ...
            sparse_vec(m.spinds.i_S, m.spinds.j_S, m.spinds.x_S, m.spinds.n_S, to, m.nR, 1);
end