Index: mttroot/mtt/lib/comp/simple/FMR_cause.m
==================================================================
--- mttroot/mtt/lib/comp/simple/FMR_cause.m
+++ mttroot/mtt/lib/comp/simple/FMR_cause.m
@@ -5,14 +5,23 @@
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% Version control history
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% $Id$
 % %% $Log$
+% %% Revision 1.1  1996/08/09 08:28:02  peter
+% %% Initial revision
+% %%
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
 
 status = -1;
+
+% Check that there are exactly two bonds.
+if check_bonds(bonds,2,'FMR')==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);