Mercurial > hg > octave-lyh

comparison liboctave/fCmplxSVD.cc @ 10258:e317791645c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
64-bit fixes
author John W. Eaton <jwe@octave.org>
date Wed, 03 Feb 2010 15:27:53 -0500
parents 455759a5fcbe
children 07ebe522dac2
comparison
equal deleted inserted replaced
10257:cd550069240e 10258:e317791645c4
139 139
140 octave_idx_type lwork = -1; 140 octave_idx_type lwork = -1;
141 141
142 Array<FloatComplex> work (1); 142 Array<FloatComplex> work (1);
143 143
144 octave_idx_type m1 = std::max (m, 1), nrow_vt1 = std::max (nrow_vt, 1); 144 octave_idx_type one = 1;
145 octave_idx_type m1 = std::max (m, one), nrow_vt1 = std::max (nrow_vt, one);
145 146
146 F77_XFCN (cgesvd, CGESVD, (F77_CONST_CHAR_ARG2 (&jobu, 1), 147 F77_XFCN (cgesvd, CGESVD, (F77_CONST_CHAR_ARG2 (&jobu, 1),
147 F77_CONST_CHAR_ARG2 (&jobv, 1), 148 F77_CONST_CHAR_ARG2 (&jobv, 1),
148 m, n, tmp_data, m1, s_vec, u, m1, vt, 149 m, n, tmp_data, m1, s_vec, u, m1, vt,
149 nrow_vt1, work.fortran_vec (), lwork, 150 nrow_vt1, work.fortran_vec (), lwork,