ADDED   mttroot/mtt/lib/comp/simple/I_eqn.m
Index: mttroot/mtt/lib/comp/simple/I_eqn.m
==================================================================
--- /dev/null
+++ mttroot/mtt/lib/comp/simple/I_eqn.m
@@ -0,0 +1,32 @@
+function structure =  I_eqn(name,bond_number,bonds,direction,cr,args, ...
+    structure,eqnfile);
+% I_eqn - equations for I component
+% 
+%     %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
+%     %%%%% Model Transformation Tools %%%%%
+%     %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% 
+% Matlab function  I_eqn
+% structure =  I_eqn(bond_number,bonds,direction,cr,args, ...
+%    structure,eqnfile);
+
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% %% Version control history
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% %% $Id$
+% %% $Log$
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+
+% Copyright (c) P.J. Gawthrop, 1996.
+
+
+if nargin<8
+  eqnfile = 'stdout';
+end;
+
+% Unicausal version
+CorI = -1;
+structure = cieqn(name,bond_number,bonds,direction,cr,args, structure, ...
+                 CorI, eqnfile);
+