function structure = C_eqn(bond_number,bonds,direction,cr,args, ...
structure,eqnfile);
% C_eqn: equation generation for C component
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if nargin<7
eqnfile = 'stdout';
end;
% Unicausal version
CorI = 1;
structure = cieqn(bond_number,bonds,direction,cr,args, structure, ...
CorI, eqnfile);