Index: mttroot/mtt/lib/comp/simple/cieqn.m
==================================================================
--- mttroot/mtt/lib/comp/simple/cieqn.m
+++ mttroot/mtt/lib/comp/simple/cieqn.m
@@ -14,10 +14,13 @@
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% Version control history
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% $Id$
 % %% $Log$
+% %% Revision 1.2  1997/12/04 13:48:00  peterg
+% %% Added sign info to take account of direction of bonds.
+% %%
 % %% Revision 1.1  1997/04/09  10:18:26  peterg
 % %% Initial revision
 % %%
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
@@ -40,17 +43,18 @@
 RHS_cause = (bonds(:,1)==CorI*ones(ports,1))*CorI
 state_cause = zeros(ports,1); % State causality
 
 for outport = 1:ports
 
-  % Sort out direction
-  if direction(outport,1) == 1
-    sign = '+';
-  else
-    sign = '-';
-  end;
-  
+#  % Sort out direction
+#  if direction(outport,1) == 1
+#    sign = '+';
+#  else
+#    sign = '-';
+#  end;
+
+  sign = '+';  
   LHS_number = bond_number(outport);
   if bonds(outport,1) == -CorI % Integral causality on this port
     state = structure(1)+1;
     LHS_cause = CorI;