Mercurial > hg > octave-nkf
diff liboctave/CmplxQRP.cc @ 8811:20dfb885f877
int -> octave_idx fixes
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Wed, 18 Feb 2009 23:34:03 -0500 |
parents | c86718093c1b |
children | eb63fbe60fab |
line wrap: on
line diff
--- a/liboctave/CmplxQRP.cc +++ b/liboctave/CmplxQRP.cc @@ -77,7 +77,8 @@ tau, &clwork, -1, rwork, info)); // allocate buffer and do the job. - octave_idx_type lwork = clwork.real (); lwork = std::max (lwork, 1); + octave_idx_type lwork = clwork.real (); + lwork = std::max (lwork, static_cast<octave_idx_type> (1)); OCTAVE_LOCAL_BUFFER (Complex, work, lwork); F77_XFCN (zgeqp3, ZGEQP3, (m, n, afact.fortran_vec (), m, jpvt.fortran_vec (), tau, work, lwork, rwork, info)); @@ -88,7 +89,7 @@ // Form Permutation matrix (if economy is requested, return the // indices only!) - jpvt -= 1; + jpvt -= static_cast<octave_idx_type> (1); p = PermMatrix (jpvt, true);