Mercurial > hg > octave-nkf

diff liboctave/dbleHESS.cc @ 11570:57632dea2446

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
attempt better backward compatibility for Array constructors
author John W. Eaton <jwe@octave.org>
date Wed, 19 Jan 2011 17:55:56 -0500
parents fd0a3ac60b0e
children 72c96de7a403
line wrap: on
line diff
--- a/liboctave/dbleHESS.cc
+++ b/liboctave/dbleHESS.cc
@@ -84,17 +84,17 @@
   hess_mat = a;
   double *h = hess_mat.fortran_vec ();
 
-  Array<double> scale (n, 1);
+  Array<double> scale (dim_vector (n, 1));
   double *pscale = scale.fortran_vec ();
 
   F77_XFCN (dgebal, DGEBAL, (F77_CONST_CHAR_ARG2 (&job, 1),
                              n, h, n, ilo, ihi, pscale, info
                              F77_CHAR_ARG_LEN (1)));
 
-  Array<double> tau (n-1, 1);
+  Array<double> tau (dim_vector (n-1, 1));
   double *ptau = tau.fortran_vec ();
 
-  Array<double> work (lwork, 1);
+  Array<double> work (dim_vector (lwork, 1));
   double *pwork = work.fortran_vec ();
 
   F77_XFCN (dgehrd, DGEHRD, (n, ilo, ihi, h, n, ptau, pwork,