Index: mttroot/mtt/bin/trans/m/cbg2ese.m
==================================================================
--- mttroot/mtt/bin/trans/m/cbg2ese.m
+++ mttroot/mtt/bin/trans/m/cbg2ese.m
@@ -21,10 +21,16 @@
   ## ###############################################################
   ## ## Version control history
   ## ###############################################################
   ## ## $Id$
   ## ## $Log$
+  ## ## Revision 1.40  2000/12/16 08:10:55  geraint
+  ## ## No unit type comparison at ports if either is "none".
+  ## ##
+  ## ## Revision 1.39  2000/11/16 12:54:14  peterg
+  ## ## Added checking of unit consistency at ports
+  ## ##
   ## ## Revision 1.38  2000/11/16 10:00:57  peterg
   ## ## *** empty log message ***
   ## ##
   ## ## Revision 1.37  2000/11/12 16:45:57  peterg
   ## ## Close ese file before recursive call of cbg2ese -- reopen when
@@ -388,11 +394,11 @@
 		bond_effort_unit = \
 		    [bond_effort_unit(1:port_bond_number-1,:)
 		     effort_unit
 		     bond_effort_unit(port_bond_number+1:n_bonds,:)
 		     ]
-	      else # check
+	      elseif (!strcmp(this_bond_effort_unit,"none") && !strcmp(effort_unit,"none")) # check
 		mtt_info(sprintf(unit_info,full_name, effort_unit, \
 				 this_bond_effort_unit), infofilenum);
 		if !strcmp(this_bond_effort_unit,effort_unit)
 		  error_string = sprintf(unit_error, full_name,\
 					 effort_unit, \
@@ -405,11 +411,11 @@
 		bond_flow_unit = \
 		    [bond_flow_unit(1:port_bond_number-1,:)
 		     flow_unit
 		     bond_flow_unit(port_bond_number+1:n_bonds,:)
 		     ]
-	      else # check
+	      elseif (!strcmp(this_bond_flow_unit,"none") && !strcmp(flow_unit,"none")) # check
 		mtt_info(sprintf(unit_info,full_name, flow_unit, \
 				 this_bond_flow_unit), infofilenum);
 		if !strcmp(this_bond_flow_unit,flow_unit)
 		  error_string = sprintf(unit_error, full_name,\
 					 flow_unit, \