Index: mttroot/mtt/lib/comp/simple/C_eqn.m
==================================================================
--- mttroot/mtt/lib/comp/simple/C_eqn.m
+++ mttroot/mtt/lib/comp/simple/C_eqn.m
@@ -1,27 +1,38 @@
-function structure =  C_eqn(bond_number,bonds,direction,cr,args, ...
-                            structure,eqnfile);
-% C_eqn: equation generation for C component
-
+function structure =  C_eqn(name,bond_number,bonds,direction,cr,args, ...
+    structure,eqnfile);
+% C_eqn - equation generation for C component
+% 
+%     %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
+%     %%%%% Model Transformation Tools %%%%%
+%     %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% 
+% Matlab function  C_eqn
+% structure =  C_eqn(name,bond_number,bonds,direction,cr,args, ...
+%    structure,eqnfile);
 
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% Version control history
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% $Id$
 % %% $Log$
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
 
+% Copyright (c) P.J. Gawthrop, 1996.
+
 			
-if nargin<7
+if nargin<8
   eqnfile = 'stdout';
 end;
 
 % Unicausal version
 CorI = 1;
-structure = cieqn(bond_number,bonds,direction,cr,args, structure, ...
+structure = cieqn(name,bond_number,bonds,direction,cr,args, structure, ...
                  CorI, eqnfile);
+
+