Index: mttroot/mtt/bin/trans/ode2odes_m
==================================================================
--- mttroot/mtt/bin/trans/ode2odes_m
+++ mttroot/mtt/bin/trans/ode2odes_m
@@ -13,10 +13,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.3  1996/08/16 06:36:03  peter
+## Removed u from default arg list.
+##
 ## Revision 1.2  1996/08/15 16:24:43  peter
 ## Uses T in place of t to avoid name clash within function.
 ##
 ## Revision 1.1  1996/08/15 11:56:38  peter
 ## Initial revision
@@ -61,11 +64,11 @@
 x = lsode('$1_ode', x0, T);
 
 i=0;
 for tt=T'
   i=i+1;
-  y(i) = $1_odeo(x(i,:),tt);
+  y(i,:) = $1_odeo(x(i,:),tt)';
 end;
 
 write_matrix([T,y], '$1_odesol');
 
 EOF