Index: mttroot/mtt/lib/cr/r/cr.cr
==================================================================
--- mttroot/mtt/lib/cr/r/cr.cr
+++ mttroot/mtt/lib/cr/r/cr.cr
@@ -6,20 +6,23 @@
 %DESCRIPTION For example:
 %DESCRIPTION             mtt_e=k*mtt_f
 %DESCRIPTION             mtt_f=mtt_e/r
 
 % $Log$
+% Revision 1.1  2000/10/03 18:34:00  peterg
+% Initial revision
+%
 
 %Copyright (C) 2000 by Peter J. Gawthrop
 
 % Version for one-port components
 operator cr;
 
 % We need four versions so that state does not need to be explicitly
 % mentioned.
 % At the moment, assume only one solution (in fact the first is
-chosen)
+% chosen)
 
 % Flow input
 FOR ALL mtt_cr, input, out_cause
 LET cr(mtt_cr,out_cause, 1, input, flow, 1) = sub(mtt_f=input,rhs(first(solve(mtt_cr,mtt_e))));