Index: mttroot/mtt/bin/trans/m/cbg2ese.m
==================================================================
--- mttroot/mtt/bin/trans/m/cbg2ese.m
+++ mttroot/mtt/bin/trans/m/cbg2ese.m
@@ -20,10 +20,13 @@
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% Version control history
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% $Id$
 % %% $Log$
+% %% Revision 1.16  1998/03/06 09:38:58  peterg
+% %% Now writes correct structure file for multiport C & I
+% %%
 % %% Revision 1.15  1997/12/16 18:24:33  peterg
 % %% Added unknown_input to structure list
 % %%
 % %% Revision 1.14  1997/08/26 07:51:10  peterg
 % %% Now counts the local input and outputs by order of appearence rather
@@ -116,14 +119,15 @@
 fprintf(ese_file, '\n%s%s Equation file for system %s (file %s)\n', ...
     pc, pc, full_name_repetition, ese_name);
 fprintf(ese_file, '%s%s Generated by MTT\n\n', pc, pc);
 
 % Evaluate the system function to get the bonds
-  eval(['[bonds,status,system_type] = ', cbg_name, ';']);
+  eval(['[bonds,status,system_type,components] = ', cbg_name, ';']);
   abg_name = [system_type, '_abg'];
   cmp_name = [system_type, '_cmp'];
-  eval(['[junk,components]=', abg_name, ';']);
+% No longer needed - cbg now has components:  
+%  eval(['[junk,components]=', abg_name, ';']);
 
   % Find number of bonds
   [n_bonds,columns] = size(bonds);
   if (columns ~= 2)&(n_bonds>0)
     error('Incorrect bonds matrix: must have 2 columns');