Mercurial > hg > octave-nkf

diff liboctave/CmplxQR.cc @ 8811:20dfb885f877

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
int -> octave_idx fixes
author John W. Eaton <jwe@octave.org>
date Wed, 18 Feb 2009 23:34:03 -0500
parents c7864bb74914
children b03953732530
line wrap: on
line diff
--- a/liboctave/CmplxQR.cc
+++ b/liboctave/CmplxQR.cc
@@ -110,7 +110,8 @@
       F77_XFCN (zgeqrf, ZGEQRF, (m, n, afact.fortran_vec (), m, tau, &clwork, -1, 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 (zgeqrf, ZGEQRF, (m, n, afact.fortran_vec (), m, tau, work, lwork, info));
     }
@@ -177,7 +178,8 @@
                                      &clwork, -1, 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 (zungqr, ZUNGQR, (m, k, min_mn, q.fortran_vec (), m, tau,
                                      work, lwork, info));