Index: mttroot/mtt/bin/trans/ese2rdae_r
==================================================================
--- mttroot/mtt/bin/trans/ese2rdae_r
+++ mttroot/mtt/bin/trans/ese2rdae_r
@@ -12,10 +12,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.13  2002/06/28 10:13:40  geraint
+## Includes fix_c.r in ese2rdae and def2write_r to eliminate occurrances of x**y.
+##
 ## Revision 1.12.2.2  2002/06/05 17:28:00  geraint
 ## Cosmetic change.
 ##
 ## Revision 1.12.2.1  2002/06/05 11:14:51  geraint
 ## ae.r now generated using def2write_r like cse?.r
@@ -171,17 +174,17 @@
 %Read the formatting function
 in "$MTTPATH/trans/reduce_matrix.r";
 
 % Definitions
 in "$defname";
+
+% Fix c code if required
+$include
 
 % Elementary system equations
 in "$esename";
 
-% Fix c code if required
-$include
-
 OFF Echo;
 OFF Nat;
 
 %Create the output file
 OUT "$daename";

Index: mttroot/mtt/lib/reduce/fix_c.r
==================================================================
--- mttroot/mtt/lib/reduce/fix_c.r
+++ mttroot/mtt/lib/reduce/fix_c.r
@@ -7,10 +7,11 @@
 ON ROUNDED$ % No integer output
 
 %% Changes x^y to pow(x,y)
  OPERATOR pow$
  FOR ALL x,y LET x^y = pow(x,y)$ % Use the pow function
+ FOR ALL x,y LET x**y = pow(x,y)$ % Use the pow function
  
  %% Derivatives
  FOR ALL f,g,x LET df(pow(f,g),x)=
  	   pow(f,g-1) * (df(f,x)*g + df(g,x)*f*log(f))$