Mercurial > hg > octave-lyh

comparison liboctave/fCmplxSVD.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 a83bad07f7e3
comparison
equal deleted inserted replaced
11569:7e9a111cae20 11570:57632dea2446
144 144
145 FloatComplex *vt = right_sm.fortran_vec (); 145 FloatComplex *vt = right_sm.fortran_vec ();
146 146
147 octave_idx_type lrwork = 5*max_mn; 147 octave_idx_type lrwork = 5*max_mn;
148 148
149 Array<float> rwork (lrwork, 1); 149 Array<float> rwork (dim_vector (lrwork, 1));
150 150
151 // Ask ZGESVD what the dimension of WORK should be. 151 // Ask ZGESVD what the dimension of WORK should be.
152 152
153 octave_idx_type lwork = -1; 153 octave_idx_type lwork = -1;
154 154
155 Array<FloatComplex> work (1, 1); 155 Array<FloatComplex> work (dim_vector (1, 1));
156 156
157 octave_idx_type one = 1; 157 octave_idx_type one = 1;
158 octave_idx_type m1 = std::max (m, one), nrow_vt1 = std::max (nrow_vt, one); 158 octave_idx_type m1 = std::max (m, one), nrow_vt1 = std::max (nrow_vt, one);
159 159
160 if (svd_driver == SVD::GESVD) 160 if (svd_driver == SVD::GESVD)