Mercurial > octave-nkf

diff liboctave/fCmplxSCHUR.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 12df7854fa7c
line wrap: on
line diff
--- a/liboctave/fCmplxSCHUR.cc	Wed Jan 19 15:12:59 2011 -0500
+++ b/liboctave/fCmplxSCHUR.cc	Wed Jan 19 17:55:56 2011 -0500
@@ -120,17 +120,18 @@
   FloatComplex *s = schur_mat.fortran_vec ();
   FloatComplex *q = unitary_mat.fortran_vec ();
 
-  Array<float> rwork (n, 1);
+  Array<float> rwork (dim_vector (n, 1));
   float *prwork = rwork.fortran_vec ();
 
-  Array<FloatComplex> w (n, 1);
+  Array<FloatComplex> w (dim_vector (n, 1));
   FloatComplex *pw = w.fortran_vec ();
 
-  Array<FloatComplex> work (lwork, 1);
+  Array<FloatComplex> work (dim_vector (lwork, 1));
   FloatComplex *pwork = work.fortran_vec ();
 
   // BWORK is not referenced for non-ordered Schur.
-  Array<octave_idx_type> bwork ((ord_char == 'N' || ord_char == 'n') ? 0 : n, 1);
+  octave_idx_type ntmp = (ord_char == 'N' || ord_char == 'n') ? 0 : n;
+  Array<octave_idx_type> bwork (dim_vector (ntmp, 1));
   octave_idx_type *pbwork = bwork.fortran_vec ();
 
   F77_XFCN (cgeesx, CGEESX, (F77_CONST_CHAR_ARG2 (&jobvs, 1),