Mercurial > hg > octave-lojdl

diff src/DLD-FUNCTIONS/lsode.cc @ 4628:c0121a3b9cbe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-11-17 20:19:07 by jwe]
author jwe
date Mon, 17 Nov 2003 20:19:07 +0000
parents 303b28a7a7e4
children 79fe96966ca0
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/lsode.cc
+++ b/src/DLD-FUNCTIONS/lsode.cc
@@ -67,12 +67,7 @@
 
   octave_value_list args;
   args(1) = t;
-
-  Matrix m (nstates, 1);
-  for (int i = 0; i < nstates; i++)
-    m (i, 0) = x (i);
-  octave_value state (m);
-  args(0) = state;
+  args(0) = x;
 
   if (lsode_fcn)
     {
@@ -113,12 +108,7 @@
 
   octave_value_list args;
   args(1) = t;
-
-  Matrix m (nstates, 1);
-  for (int i = 0; i < nstates; i++)
-    m (i, 0) = x (i);
-  octave_value state (m);
-  args(0) = state;
+  args(0) = x;
 
   if (lsode_jac)
     {