# HG changeset patch
# User Rik <rik@octave.org>
# Date 1630439699 25200
# Node ID 51040836259d60f1c886147e569676057c1655b3
# Parent  7d2c9188d3f3f367004da6e2316444830f2bb31c
maint: rename "m_l" to "m_L" for clarity in class lu.

* lu.cc, lu.h: rename "m_l" to "m_L" for clarity in class lu.

diff -r 7d2c9188d3f3 -r 51040836259d liboctave/numeric/lu.cc
--- a/liboctave/numeric/lu.cc	Tue Aug 31 11:48:20 2021 -0700
+++ b/liboctave/numeric/lu.cc	Tue Aug 31 12:54:59 2021 -0700
@@ -57,7 +57,7 @@
 
     template <typename T>
     lu<T>::lu (const T& l, const T& u, const PermMatrix& p)
-      : m_a_fact (u), m_l (l), m_ipvt (p.transpose ().col_perm_vec ())
+      : m_a_fact (u), m_L (l), m_ipvt (p.transpose ().col_perm_vec ())
     {
       if (l.columns () != u.rows ())
         (*current_liboctave_error_handler) ("lu: dimension mismatch");
@@ -67,7 +67,7 @@
     bool
     lu<T>::packed (void) const
     {
-      return m_l.dims () == dim_vector ();
+      return m_L.dims () == dim_vector ();
     }
 
     template <typename T>
@@ -76,7 +76,7 @@
     {
       if (packed ())
         {
-          m_l = L ();
+          m_L = L ();
           m_a_fact = U (); // FIXME: sub-optimal
 
           // FIXME: getp returns Array<octave_idx_type> but m_ipvt is
@@ -115,7 +115,7 @@
           return l;
         }
       else
-        return m_l;
+        return m_L;
     }
 
     template <typename T>
@@ -300,7 +300,7 @@
       if (packed ())
         unpack ();
 
-      Matrix& l = m_l;
+      Matrix& l = m_L;
       Matrix& r = m_a_fact;
 
       F77_INT m = to_f77_int (l.rows ());
@@ -326,7 +326,7 @@
       if (packed ())
         unpack ();
 
-      Matrix& l = m_l;
+      Matrix& l = m_L;
       Matrix& r = m_a_fact;
 
       F77_INT m = to_f77_int (l.rows ());
@@ -359,7 +359,7 @@
       if (packed ())
         unpack ();
 
-      Matrix& l = m_l;
+      Matrix& l = m_L;
       Matrix& r = m_a_fact;
 
       F77_INT m = to_f77_int (l.rows ());
@@ -390,7 +390,7 @@
       if (packed ())
         unpack ();
 
-      Matrix& l = m_l;
+      Matrix& l = m_L;
       Matrix& r = m_a_fact;
 
       F77_INT m = to_f77_int (l.rows ());
@@ -454,7 +454,7 @@
       if (packed ())
         unpack ();
 
-      FloatMatrix& l = m_l;
+      FloatMatrix& l = m_L;
       FloatMatrix& r = m_a_fact;
 
       F77_INT m = to_f77_int (l.rows ());
@@ -481,7 +481,7 @@
       if (packed ())
         unpack ();
 
-      FloatMatrix& l = m_l;
+      FloatMatrix& l = m_L;
       FloatMatrix& r = m_a_fact;
 
       F77_INT m = to_f77_int (l.rows ());
@@ -515,7 +515,7 @@
       if (packed ())
         unpack ();
 
-      FloatMatrix& l = m_l;
+      FloatMatrix& l = m_L;
       FloatMatrix& r = m_a_fact;
 
       F77_INT m = to_f77_int (l.rows ());
@@ -546,7 +546,7 @@
       if (packed ())
         unpack ();
 
-      FloatMatrix& l = m_l;
+      FloatMatrix& l = m_L;
       FloatMatrix& r = m_a_fact;
 
       F77_INT m = to_f77_int (l.rows ());
@@ -611,7 +611,7 @@
       if (packed ())
         unpack ();
 
-      ComplexMatrix& l = m_l;
+      ComplexMatrix& l = m_L;
       ComplexMatrix& r = m_a_fact;
 
       F77_INT m = to_f77_int (l.rows ());
@@ -639,7 +639,7 @@
       if (packed ())
         unpack ();
 
-      ComplexMatrix& l = m_l;
+      ComplexMatrix& l = m_L;
       ComplexMatrix& r = m_a_fact;
 
       F77_INT m = to_f77_int (l.rows ());
@@ -676,7 +676,7 @@
       if (packed ())
         unpack ();
 
-      ComplexMatrix& l = m_l;
+      ComplexMatrix& l = m_L;
       ComplexMatrix& r = m_a_fact;
 
       F77_INT m = to_f77_int (l.rows ());
@@ -710,7 +710,7 @@
       if (packed ())
         unpack ();
 
-      ComplexMatrix& l = m_l;
+      ComplexMatrix& l = m_L;
       ComplexMatrix& r = m_a_fact;
 
       F77_INT m = to_f77_int (l.rows ());
@@ -779,7 +779,7 @@
       if (packed ())
         unpack ();
 
-      FloatComplexMatrix& l = m_l;
+      FloatComplexMatrix& l = m_L;
       FloatComplexMatrix& r = m_a_fact;
 
       F77_INT m = to_f77_int (l.rows ());
@@ -808,7 +808,7 @@
       if (packed ())
         unpack ();
 
-      FloatComplexMatrix& l = m_l;
+      FloatComplexMatrix& l = m_L;
       FloatComplexMatrix& r = m_a_fact;
 
       F77_INT m = to_f77_int (l.rows ());
@@ -843,7 +843,7 @@
       if (packed ())
         unpack ();
 
-      FloatComplexMatrix& l = m_l;
+      FloatComplexMatrix& l = m_L;
       FloatComplexMatrix& r = m_a_fact;
 
       F77_INT m = to_f77_int (l.rows ());
@@ -877,7 +877,7 @@
       if (packed ())
         unpack ();
 
-      FloatComplexMatrix& l = m_l;
+      FloatComplexMatrix& l = m_L;
       FloatComplexMatrix& r = m_a_fact;
 
       F77_INT m = to_f77_int (l.rows ());
diff -r 7d2c9188d3f3 -r 51040836259d liboctave/numeric/lu.h
--- a/liboctave/numeric/lu.h	Tue Aug 31 11:48:20 2021 -0700
+++ b/liboctave/numeric/lu.h	Tue Aug 31 12:54:59 2021 -0700
@@ -47,12 +47,12 @@
       typedef typename T::element_type ELT_T;
 
       lu (void)
-        : m_a_fact (), m_l (), m_ipvt () { }
+        : m_a_fact (), m_L (), m_ipvt () { }
 
       OCTAVE_API lu (const T& a);
 
       lu (const lu& a)
-        : m_a_fact (a.m_a_fact), m_l (a.m_l), m_ipvt (a.m_ipvt) { }
+        : m_a_fact (a.m_a_fact), m_L (a.m_L), m_ipvt (a.m_ipvt) { }
 
       OCTAVE_API lu (const T& l, const T& u, const PermMatrix& p);
 
@@ -61,7 +61,7 @@
         if (this != &a)
           {
             m_a_fact = a.m_a_fact;
-            m_l = a.m_l;
+            m_L = a.m_L;
             m_ipvt = a.m_ipvt;
           }
 
@@ -101,7 +101,7 @@
       OCTAVE_API Array<octave_idx_type> getp (void) const;
 
       T m_a_fact;
-      T m_l;
+      T m_L;
 
       // This is internal storage that is passed to Fortran,
       // so we need a Fortran INTEGER.