function m = addOne2Zero(m, from, fwd)
% ADDONE2ZERO adds an x(1) -> 0 reaction to the model.
%
% m = addOne2Zero(m, from, fwd) adds a reaction to the model m of the 
% form:
%
%         p(fwd)
% x(from) -------> 0
% 
% See also
%   addProdDeg
%   addOne2One
%   addZero2One

% 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 = a1add(m,  from, from, 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, from, m.nR, -1);
end