Index: mttroot/mtt/bin/trans/m/cbg2ese.m
==================================================================
--- mttroot/mtt/bin/trans/m/cbg2ese.m
+++ mttroot/mtt/bin/trans/m/cbg2ese.m
@@ -14,10 +14,13 @@
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% Version control history
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% $Id$
 % %% $Log$
+% %% Revision 1.7  1996/08/30 11:23:13  peter
+% %% Argument substitution implemented.
+% %%
 % %% Revision 1.6  1996/08/27  08:04:52  peterg
 % %% Handles complex components and repetative components.
 % %%
 % %% Revision 1.5  1996/08/24  15:02:23  peter
 % %% Writes `END;' to keep reduce happy.
@@ -180,12 +183,12 @@
 	   end;	
 	 end;
 	
 	disp('---POP---');
       else % its a simple component
-	fprintf(filenum, '\n\t%s Equations for component %s (%s)\n\n', ...
-	    pc, comp_name, comp_type);
+	fprintf(filenum, '\n\t%s Equations for component %s (%s), repetition %1.0f\n\n', ...
+	    pc, comp_name, comp_type,k);
 	
 	eval(['structure = ', ...
 	      eqn_name, ...
 	      '(name_r,bond_list,comp_bonds,direction,cr,args,structure,filenum);' ]);
       end;