Index: mttroot/mtt/lib/comp/simple/AE_eqn.m
==================================================================
--- mttroot/mtt/lib/comp/simple/AE_eqn.m
+++ mttroot/mtt/lib/comp/simple/AE_eqn.m
@@ -5,15 +5,23 @@
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% Version control history
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% $Id$
 % %% $Log$
+% %% Revision 1.1  1996/08/22 13:12:34  peter
+% %% Initial revision
+% %%
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
 if nargin<6
   eqnfile = 'stdout';
 end;
+
+% Check that there are exactly two bonds.
+if check_bonds(bonds,2,'AE')==0
+  return
+end
 
 % There are 2 ports; extract the information
 e_1 = bonds(1,1);
 f_1 = bonds(1,2);
 e_2 = bonds(2,1);