Index: mttroot/mtt/bin/trans/m/abg2cbg.m
==================================================================
--- mttroot/mtt/bin/trans/m/abg2cbg.m
+++ mttroot/mtt/bin/trans/m/abg2cbg.m
@@ -13,10 +13,14 @@
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% Version control history
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% $Id$
 % %% $Log$
+% %% Revision 1.4  1996/08/08 08:30:06  peter
+% %% The cbg filename contains the system name - this makes things easier
+% %% when setting up the m to fig translation and m to ese translation
+% %%
 % %% Revision 1.3  1996/08/05 18:53:21  peter
 % %% Fixed bug passing causality from subsystems.
 % %%
 % %% Revision 1.2  1996/08/05 15:41:41  peter
 % %% Now recursively does causality on subsystems.
@@ -37,10 +41,18 @@
 end;
 
 if nargin<5
   infofile = 'stdout';
 end;
+
+% Create the (full) system name
+if length(full_name)==0
+  full_name = system_name;
+  system_type = system_name;
+else
+  full_name = [full_name, '_', system_name];
+end;
 
 fun_name = [system_type, '_abg']
 
 % If no such function - then there is nothing to be done.
 if exist(fun_name)~=2
@@ -48,17 +60,10 @@
   bonds = [];
   status = [];
   return
 end;
 
-% Create the (full) system name
-if length(full_name)==0
-  full_name = system_name;
-else
-  full_name = [full_name, '_', system_name];
-end;
-
 % Evaluate the system function to get the bonds
 eval(['[bonds,components,n_ports]=', fun_name, ';']);
 
 % Find number of bonds
 [n_bonds,columns] = size(bonds);
@@ -112,14 +117,10 @@
     end;
     if strcmp(comp_type,'1')
       comp_type = 'one';
     end;
     
-% $$$     name
-% $$$     comp_bonds
-% $$$     bond_list
-
     % Component cuasality procedure name
     cause_name = [comp_type, '_cause'];
     
     % Invoke  the appropriate causality procedure
     if exist(cause_name)~=2 % Try a compound component