Mercurial > octave
diff liboctave/numeric/gepbalance.cc @ 30055:d37b0e5ce0a4
maint: use "m_" prefix for member variables in class gepbalance.
* gepbalance.cc, gepbalance.h: use "m_" prefix for member variables in class
gepbalance.
author | Rik <rik@octave.org> |
---|---|
date | Thu, 26 Aug 2021 18:58:27 -0700 |
parents | 7854d5752dd2 |
children | f3f3e3793fb5 |
line wrap: on
line diff
--- a/liboctave/numeric/gepbalance.cc Thu Aug 26 18:48:38 2021 -0700 +++ b/liboctave/numeric/gepbalance.cc Thu Aug 26 18:58:27 2021 -0700 @@ -64,10 +64,10 @@ OCTAVE_LOCAL_BUFFER (double, prscale, n); OCTAVE_LOCAL_BUFFER (double, pwork, 6 * n); - balanced_mat = a; - double *p_balanced_mat = balanced_mat.fortran_vec (); - balanced_mat2 = b; - double *p_balanced_mat2 = balanced_mat2.fortran_vec (); + m_balanced_mat = a; + double *p_balanced_mat = m_balanced_mat.fortran_vec (); + m_balanced_mat2 = b; + double *p_balanced_mat2 = m_balanced_mat2.fortran_vec (); char job = balance_job[0]; @@ -76,17 +76,17 @@ n, ilo, ihi, plscale, prscale, pwork, info F77_CHAR_ARG_LEN (1))); - balancing_mat = Matrix (n, n, 0.0); - balancing_mat2 = Matrix (n, n, 0.0); + m_balancing_mat = Matrix (n, n, 0.0); + m_balancing_mat2 = Matrix (n, n, 0.0); for (F77_INT i = 0; i < n; i++) { octave_quit (); - balancing_mat.elem (i,i) = 1.0; - balancing_mat2.elem (i,i) = 1.0; + m_balancing_mat.elem (i,i) = 1.0; + m_balancing_mat2.elem (i,i) = 1.0; } - double *p_balancing_mat = balancing_mat.fortran_vec (); - double *p_balancing_mat2 = balancing_mat2.fortran_vec (); + double *p_balancing_mat = m_balancing_mat.fortran_vec (); + double *p_balancing_mat2 = m_balancing_mat2.fortran_vec (); // first left F77_XFCN (dggbak, DGGBAK, (F77_CONST_CHAR_ARG2 (&job, 1), @@ -130,10 +130,10 @@ OCTAVE_LOCAL_BUFFER (float, prscale, n); OCTAVE_LOCAL_BUFFER (float, pwork, 6 * n); - balanced_mat = a; - float *p_balanced_mat = balanced_mat.fortran_vec (); - balanced_mat2 = b; - float *p_balanced_mat2 = balanced_mat2.fortran_vec (); + m_balanced_mat = a; + float *p_balanced_mat = m_balanced_mat.fortran_vec (); + m_balanced_mat2 = b; + float *p_balanced_mat2 = m_balanced_mat2.fortran_vec (); char job = balance_job[0]; @@ -142,17 +142,17 @@ n, ilo, ihi, plscale, prscale, pwork, info F77_CHAR_ARG_LEN (1))); - balancing_mat = FloatMatrix (n, n, 0.0); - balancing_mat2 = FloatMatrix (n, n, 0.0); + m_balancing_mat = FloatMatrix (n, n, 0.0); + m_balancing_mat2 = FloatMatrix (n, n, 0.0); for (F77_INT i = 0; i < n; i++) { octave_quit (); - balancing_mat.elem (i,i) = 1.0; - balancing_mat2.elem (i,i) = 1.0; + m_balancing_mat.elem (i,i) = 1.0; + m_balancing_mat2.elem (i,i) = 1.0; } - float *p_balancing_mat = balancing_mat.fortran_vec (); - float *p_balancing_mat2 = balancing_mat2.fortran_vec (); + float *p_balancing_mat = m_balancing_mat.fortran_vec (); + float *p_balancing_mat2 = m_balancing_mat2.fortran_vec (); // first left F77_XFCN (sggbak, SGGBAK, (F77_CONST_CHAR_ARG2 (&job, 1), @@ -197,10 +197,10 @@ OCTAVE_LOCAL_BUFFER (double, prscale, n); OCTAVE_LOCAL_BUFFER (double, pwork, 6 * n); - balanced_mat = a; - Complex *p_balanced_mat = balanced_mat.fortran_vec (); - balanced_mat2 = b; - Complex *p_balanced_mat2 = balanced_mat2.fortran_vec (); + m_balanced_mat = a; + Complex *p_balanced_mat = m_balanced_mat.fortran_vec (); + m_balanced_mat2 = b; + Complex *p_balanced_mat2 = m_balanced_mat2.fortran_vec (); char job = balance_job[0]; @@ -210,17 +210,17 @@ n, ilo, ihi, plscale, prscale, pwork, info F77_CHAR_ARG_LEN (1))); - balancing_mat = Matrix (n, n, 0.0); - balancing_mat2 = Matrix (n, n, 0.0); + m_balancing_mat = Matrix (n, n, 0.0); + m_balancing_mat2 = Matrix (n, n, 0.0); for (F77_INT i = 0; i < n; i++) { octave_quit (); - balancing_mat.elem (i,i) = 1.0; - balancing_mat2.elem (i,i) = 1.0; + m_balancing_mat.elem (i,i) = 1.0; + m_balancing_mat2.elem (i,i) = 1.0; } - double *p_balancing_mat = balancing_mat.fortran_vec (); - double *p_balancing_mat2 = balancing_mat2.fortran_vec (); + double *p_balancing_mat = m_balancing_mat.fortran_vec (); + double *p_balancing_mat2 = m_balancing_mat2.fortran_vec (); // first left F77_XFCN (dggbak, DGGBAK, (F77_CONST_CHAR_ARG2 (&job, 1), @@ -268,10 +268,10 @@ OCTAVE_LOCAL_BUFFER (float, prscale, n); OCTAVE_LOCAL_BUFFER (float, pwork, 6 * n); - balanced_mat = a; - FloatComplex *p_balanced_mat = balanced_mat.fortran_vec (); - balanced_mat2 = b; - FloatComplex *p_balanced_mat2 = balanced_mat2.fortran_vec (); + m_balanced_mat = a; + FloatComplex *p_balanced_mat = m_balanced_mat.fortran_vec (); + m_balanced_mat2 = b; + FloatComplex *p_balanced_mat2 = m_balanced_mat2.fortran_vec (); char job = balance_job[0]; @@ -281,17 +281,17 @@ n, ilo, ihi, plscale, prscale, pwork, info F77_CHAR_ARG_LEN (1))); - balancing_mat = FloatMatrix (n, n, 0.0); - balancing_mat2 = FloatMatrix (n, n, 0.0); + m_balancing_mat = FloatMatrix (n, n, 0.0); + m_balancing_mat2 = FloatMatrix (n, n, 0.0); for (F77_INT i = 0; i < n; i++) { octave_quit (); - balancing_mat.elem (i,i) = 1.0; - balancing_mat2.elem (i,i) = 1.0; + m_balancing_mat.elem (i,i) = 1.0; + m_balancing_mat2.elem (i,i) = 1.0; } - float *p_balancing_mat = balancing_mat.fortran_vec (); - float *p_balancing_mat2 = balancing_mat2.fortran_vec (); + float *p_balancing_mat = m_balancing_mat.fortran_vec (); + float *p_balancing_mat2 = m_balancing_mat2.fortran_vec (); // first left F77_XFCN (sggbak, SGGBAK, (F77_CONST_CHAR_ARG2 (&job, 1),