diff libinterp/corefcn/ordqz.cc @ 30390:a61e1a0f6024 stable

maint: style check C++ files in libinterp/ ahead of 7.1 release. * Cell.cc, __eigs__.cc, __ichol__.cc, __ilu__.cc, __magick_read__.cc, __qp__.cc, bitfcns.cc, bsxfun.cc, c-file-ptr-stream.h, ccolamd.cc, cellfun.cc, data.cc, debug.cc, defun-int.h, dlmread.cc, event-manager.cc, fftn.cc, file-io.cc, ft-text-renderer.cc, gl2ps-print.cc, graphics.cc, graphics.in.h, gzfstream.cc, gzfstream.h, jsondecode.cc, jsonencode.cc, latex-text-renderer.cc, ls-mat5.cc, lu.cc, mex.cc, oct-stream.cc, oct-strstrm.cc, ordqz.cc, pager.h, pr-output.cc, qz.cc, schur.cc, sparse-xdiv.cc, sparse-xpow.cc, sparse.cc, stack-frame.h, strfns.cc, svd.cc, symrcm.cc, symscope.h, sysdep.cc, text-engine.h, text-renderer.h, tril.cc, variables.h, xdiv.h, __glpk__.cc, __init_fltk__.cc, __init_gnuplot__.cc, __voronoi__.cc, audiodevinfo.cc, cdef-class.cc, cdef-class.h, cdef-manager.cc, cdef-manager.h, cdef-method.cc, cdef-object.cc, ov-base-diag.cc, ov-base-diag.h, ov-base-int.cc, ov-base-int.h, ov-base-mat.cc, ov-base-mat.h, ov-base-scalar.h, ov-base-sparse.cc, ov-base-sparse.h, ov-base.h, ov-bool-mat.cc, ov-cell.cc, ov-cell.h, ov-class.cc, ov-class.h, ov-dld-fcn.cc, ov-intx.h, ov-lazy-idx.cc, ov-lazy-idx.h, ov-mex-fcn.h, ov-perm.cc, ov-perm.h, ov-range.cc, ov-re-mat.cc, ov-re-mat.h, ov-str-mat.h, ov-struct.cc, ov-typeinfo.h, ov-usr-fcn.cc, ov.h, parse.h, pt-cell.cc, pt-stmt.cc, pt-tm-const.cc, pt-walk.cc: Style check C++ files in libinterp/ ahead of 7.1 release.
author Rik <rik@octave.org>
date Sun, 28 Nov 2021 21:52:08 -0800
parents 1c114a55f4fb
children 796f54d4ddbf
line wrap: on
line diff
--- a/libinterp/corefcn/ordqz.cc	Mon Nov 29 11:15:15 2021 +0900
+++ b/libinterp/corefcn/ordqz.cc	Sun Nov 28 21:52:08 2021 -0800
@@ -289,7 +289,7 @@
 
       for (k = 0; k < nn-1; k++)
         {
-          if (caa(k+1,k) != 0.0)
+          if (caa(k+1, k) != 0.0)
             error_with_id ("Octave:ordqz:unsupported_AA",
                            "ordqz: quasi upper triangular matrices are not "
                            "allowed with complex data");
@@ -297,8 +297,8 @@
 
       for (k = 0; k < nn; k++)
         {
-          alpha(k) = caa(k,k);
-          beta(k)  = cbb(k,k);
+          alpha(k) = caa(k, k);
+          beta(k)  = cbb(k, k);
         }
 
       for (k = 0; k < nn; k++)
@@ -377,11 +377,11 @@
 #ifdef DEBUG
           octave_stdout << "ordqz: k = " << k  << " nn = " << nn << " \n";
 #endif
-          if ((k < nn-1 && aa(k+1,k) == 0.0) || k == nn-1)
+          if ((k < nn-1 && aa(k+1, k) == 0.0) || k == nn-1)
             {
-              alphar(k) = aa(k,k);
+              alphar(k) = aa(k, k);
               alphai(k) = 0.0;
-              beta(k)   = bb(k,k);
+              beta(k)   = bb(k, k);
               k++;
             }
           else
@@ -403,7 +403,7 @@
                          F77_CONST_CHAR_ARG2 (&comp_q, 1),
                          F77_CONST_CHAR_ARG2 (&comp_z, 1),
                          nl, ilo, ihi,
-                         &aa_vec[k+k*nn] , nn,
+                         &aa_vec[k+k*nn], nn,
                          &bb_vec[k+k*nn], nn,
                          ar, ai, b,
                          nullptr, nn,