Index: mttroot/mtt/bin/trans/make_ode2odes
==================================================================
--- mttroot/mtt/bin/trans/make_ode2odes
+++ mttroot/mtt/bin/trans/make_ode2odes
@@ -7,10 +7,14 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.65  2001/11/15 06:24:11  geraint
+## Updated (-i dassl) residual function to use new DAEFunc (octave-2.1.35).
+## YZ residual dependency on Ui still requires some work.
+##
 ## Revision 1.64  2001/08/08 02:15:00  geraint
 ## Rationalisation of solver code, beginning with algebraic solvers.
 ##
 ## Revision 1.63  2001/08/07 04:39:24  geraint
 ## Consolidated dassl and residual functions.
@@ -927,19 +931,29 @@
   for (register int i = 0; i < nx; i++)
     data.elem (row, ++col) = x.elem (i);
 
   row++;
 
+  static std::fstream fcputime ("MTT.cputime", ios::out | ios::trunc | ios::app);
+  static clock_t cputime0 = clock();
+  static clock_t cputime1 = cputime0;
+  clock_t cputime = clock();
+  fcputime << t << '\t'
+	   << static_cast <double> (cputime - cputime0) / CLOCKS_PER_SEC << '\t'
+	   << static_cast <double> (cputime - cputime1) / CLOCKS_PER_SEC << std::endl;
+  cputime1 = cputime;
+
   if (nrows == row)
     {
 #ifdef STANDALONE
       $save_ascii_data_function (file, data, "mtt_data");
 //    std::cout << data << std::endl;
 #else // ! STANDALONE
   set_global_value ("MTT_data", data);
 #endif
     row = 0;
+    fcputime.close();
     }
 }
 
 #ifdef STANDALONE
 void dump_data (std::ostream &file)