Mercurial > octave

changeset 30061:2fbb98fb1b25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: use "m_" prefix for member variables in class hess. * hess.cc, hess.h: use "m_" prefix for member variables in class hess.
author Rik <rik@octave.org>
date Sun, 29 Aug 2021 19:51:50 -0700
parents ae47678c76e8
children 7215f2324c8a
files liboctave/numeric/hess.cc liboctave/numeric/hess.h
diffstat 2 files changed, 30 insertions(+), 30 deletions(-) [+]
line wrap: on
line diff
--- a/liboctave/numeric/hess.cc	Sun Aug 29 19:43:48 2021 -0700
+++ b/liboctave/numeric/hess.cc	Sun Aug 29 19:51:50 2021 -0700
@@ -59,8 +59,8 @@
       F77_INT ilo;
       F77_INT ihi;
 
-      hess_mat = a;
-      double *h = hess_mat.fortran_vec ();
+      m_hess_mat = a;
+      double *h = m_hess_mat.fortran_vec ();
 
       Array<double> scale (dim_vector (n, 1));
       double *pscale = scale.fortran_vec ();
@@ -78,8 +78,8 @@
       F77_XFCN (dgehrd, DGEHRD, (n, ilo, ihi, h, n, ptau, pwork,
                                  lwork, info));
 
-      unitary_hess_mat = hess_mat;
-      double *z = unitary_hess_mat.fortran_vec ();
+      m_unitary_hess_mat = m_hess_mat;
+      double *z = m_unitary_hess_mat.fortran_vec ();
 
       F77_XFCN (dorghr, DORGHR, (n, ilo, ihi, z, n, ptau, pwork,
                                  lwork, info));
@@ -98,7 +98,7 @@
       if (n > 2)
         for (F77_INT j = 0; j < a_nc; j++)
           for (F77_INT i = j+2; i < a_nr; i++)
-            hess_mat.elem (i, j) = 0;
+            m_hess_mat.elem (i, j) = 0;
 
       return info;
     }
@@ -122,8 +122,8 @@
       F77_INT ilo;
       F77_INT ihi;
 
-      hess_mat = a;
-      float *h = hess_mat.fortran_vec ();
+      m_hess_mat = a;
+      float *h = m_hess_mat.fortran_vec ();
 
       Array<float> scale (dim_vector (n, 1));
       float *pscale = scale.fortran_vec ();
@@ -141,8 +141,8 @@
       F77_XFCN (sgehrd, SGEHRD, (n, ilo, ihi, h, n, ptau, pwork,
                                  lwork, info));
 
-      unitary_hess_mat = hess_mat;
-      float *z = unitary_hess_mat.fortran_vec ();
+      m_unitary_hess_mat = m_hess_mat;
+      float *z = m_unitary_hess_mat.fortran_vec ();
 
       F77_XFCN (sorghr, SORGHR, (n, ilo, ihi, z, n, ptau, pwork,
                                  lwork, info));
@@ -161,7 +161,7 @@
       if (n > 2)
         for (F77_INT j = 0; j < a_nc; j++)
           for (F77_INT i = j+2; i < a_nr; i++)
-            hess_mat.elem (i, j) = 0;
+            m_hess_mat.elem (i, j) = 0;
 
       return info;
     }
@@ -185,8 +185,8 @@
       F77_INT ilo;
       F77_INT ihi;
 
-      hess_mat = a;
-      Complex *h = hess_mat.fortran_vec ();
+      m_hess_mat = a;
+      Complex *h = m_hess_mat.fortran_vec ();
 
       Array<double> scale (dim_vector (n, 1));
       double *pscale = scale.fortran_vec ();
@@ -204,8 +204,8 @@
       F77_XFCN (zgehrd, ZGEHRD, (n, ilo, ihi, F77_DBLE_CMPLX_ARG (h), n,
                                  F77_DBLE_CMPLX_ARG (ptau), F77_DBLE_CMPLX_ARG (pwork), lwork, info));
 
-      unitary_hess_mat = hess_mat;
-      Complex *z = unitary_hess_mat.fortran_vec ();
+      m_unitary_hess_mat = m_hess_mat;
+      Complex *z = m_unitary_hess_mat.fortran_vec ();
 
       F77_XFCN (zunghr, ZUNGHR, (n, ilo, ihi, F77_DBLE_CMPLX_ARG (z), n,
                                  F77_DBLE_CMPLX_ARG (ptau), F77_DBLE_CMPLX_ARG (pwork),
@@ -224,7 +224,7 @@
       if (n > 2)
         for (F77_INT j = 0; j < a_nc; j++)
           for (F77_INT i = j+2; i < a_nr; i++)
-            hess_mat.elem (i, j) = 0;
+            m_hess_mat.elem (i, j) = 0;
 
       return info;
     }
@@ -251,8 +251,8 @@
       F77_INT ilo;
       F77_INT ihi;
 
-      hess_mat = a;
-      FloatComplex *h = hess_mat.fortran_vec ();
+      m_hess_mat = a;
+      FloatComplex *h = m_hess_mat.fortran_vec ();
 
       Array<float> scale (dim_vector (n, 1));
       float *pscale = scale.fortran_vec ();
@@ -270,8 +270,8 @@
       F77_XFCN (cgehrd, CGEHRD, (n, ilo, ihi, F77_CMPLX_ARG (h), n,
                                  F77_CMPLX_ARG (ptau), F77_CMPLX_ARG (pwork), lwork, info));
 
-      unitary_hess_mat = hess_mat;
-      FloatComplex *z = unitary_hess_mat.fortran_vec ();
+      m_unitary_hess_mat = m_hess_mat;
+      FloatComplex *z = m_unitary_hess_mat.fortran_vec ();
 
       F77_XFCN (cunghr, CUNGHR, (n, ilo, ihi, F77_CMPLX_ARG (z), n,
                                  F77_CMPLX_ARG (ptau), F77_CMPLX_ARG (pwork),
@@ -290,7 +290,7 @@
       if (n > 2)
         for (F77_INT j = 0; j < a_nc; j++)
           for (F77_INT i = j+2; i < a_nr; i++)
-            hess_mat.elem (i, j) = 0;
+            m_hess_mat.elem (i, j) = 0;
 
       return info;
     }
--- a/liboctave/numeric/hess.h	Sun Aug 29 19:43:48 2021 -0700
+++ b/liboctave/numeric/hess.h	Sun Aug 29 19:51:50 2021 -0700
@@ -41,31 +41,31 @@
     public:
 
       hess (void)
-        : hess_mat (), unitary_hess_mat ()
+        : m_hess_mat (), m_unitary_hess_mat ()
       { }
 
       hess (const T& a)
-        : hess_mat (), unitary_hess_mat ()
+        : m_hess_mat (), m_unitary_hess_mat ()
       {
         init (a);
       }
 
       hess (const T& a, octave_idx_type& info)
-        : hess_mat (), unitary_hess_mat ()
+        : m_hess_mat (), m_unitary_hess_mat ()
       {
         info = init (a);
       }
 
       hess (const hess& a)
-        : hess_mat (a.hess_mat), unitary_hess_mat (a.unitary_hess_mat)
+        : m_hess_mat (a.m_hess_mat), m_unitary_hess_mat (a.m_unitary_hess_mat)
       { }
 
       hess& operator = (const hess& a)
       {
         if (this != &a)
           {
-            hess_mat = a.hess_mat;
-            unitary_hess_mat = a.unitary_hess_mat;
+            m_hess_mat = a.m_hess_mat;
+            m_unitary_hess_mat = a.m_unitary_hess_mat;
           }
 
         return *this;
@@ -73,14 +73,14 @@
 
       ~hess (void) = default;
 
-      T hess_matrix (void) const { return hess_mat; }
+      T hess_matrix (void) const { return m_hess_mat; }
 
-      T unitary_hess_matrix (void) const { return unitary_hess_mat; }
+      T unitary_hess_matrix (void) const { return m_unitary_hess_mat; }
 
     private:
 
-      T hess_mat;
-      T unitary_hess_mat;
+      T m_hess_mat;
+      T m_unitary_hess_mat;
 
       OCTAVE_API octave_idx_type init (const T& a);
     };