Mercurial > octave

changeset 32210:20c84bfef1af

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Merge stable to default.
author Markus Mützel <markus.muetzel@gmx.de>
date Thu, 20 Jul 2023 09:26:05 +0200
parents d350f3e1faf2 (current diff) 591c39fb7bca (diff)
children 29f761f24ab0
files liboctave/numeric/sparse-qr.cc
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/liboctave/numeric/sparse-qr.cc	Tue Jul 18 17:46:09 2023 -0700
+++ b/liboctave/numeric/sparse-qr.cc	Thu Jul 20 09:26:05 2023 +0200
@@ -1783,7 +1783,7 @@
       OCTAVE_LOCAL_BUFFER (cs_complex_t, bvec, nr);
 
       for (octave_idx_type i = 0; i < nr; i++)
-        bvec[i] = cs_complex_t (0.0, 0.0);
+        bvec[i] = 0.0;
 
       OCTAVE_LOCAL_BUFFER (Complex, buf, S->m2);
 
@@ -1791,7 +1791,7 @@
         {
           octave_quit ();
 
-          bvec[j] = cs_complex_t (1.0, 0.0);
+          bvec[j] = 1.0;
 
           volatile octave_idx_type nm = (nr < nc ? nr : nc);
 
@@ -1810,7 +1810,7 @@
           for (octave_idx_type i = 0; i < nr; i++)
             vec[i+idx] = buf[i];
 
-          bvec[j] = cs_complex_t (0.0, 0.0);
+          bvec[j] = 0.0;
         }
     }