function s = Interface(src, id, p1, p2, p3, p4)
% Interface - class Interface constructor.
%
doc = XML_Node('doc', src);
node = findByID(doc, id);
t = ThermoPhase(node);
if nargin == 2
    k = Kinetics(node, t);
elseif nargin == 3
    k = Kinetics(node, t, p1);
elseif nargin == 4
    k = Kinetics(node, t, p1, p2);
elseif nargin == 5
    k = Kinetics(node, t, p1, p2, p3);
elseif nargin == 6
    k = Kinetics(node, t, p1, p2, p3, p4);
end

s.kin = k;
s.th = t;
s = class(s,'Interface', t, k);