Mercurial > octave

changeset 20871:1e4edab2d22f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
2015 Code Sprint: __eigs__.cc: use ovl ().
author Rik <rik@octave.org>
date Sat, 12 Dec 2015 10:08:35 -0800
parents 020b71557b12
children ead410040418
files libinterp/dldfcn/__eigs__.cc
diffstat 1 files changed, 4 insertions(+), 20 deletions(-) [+]
line wrap: on
line diff
--- a/libinterp/dldfcn/__eigs__.cc	Sat Dec 12 12:59:46 2015 -0500
+++ b/libinterp/dldfcn/__eigs__.cc	Sat Dec 12 10:08:35 2015 -0800
@@ -435,11 +435,7 @@
       if (nargout < 2)
         retval(0) = eig_val;
       else
-        {
-          retval(2) = double (info);
-          retval(1) = ComplexDiagMatrix (eig_val);
-          retval(0) = eig_vec;
-        }
+        retval = ovl (eig_vec, ComplexDiagMatrix (eig_val), double (info));
     }
   else if (sigmai != 0.)
     {
@@ -469,11 +465,7 @@
       if (nargout < 2)
         retval(0) = eig_val;
       else
-        {
-          retval(2) = double (info);
-          retval(1) = ComplexDiagMatrix (eig_val);
-          retval(0) = eig_vec;
-        }
+        retval = ovl (eig_vec, ComplexDiagMatrix (eig_val), double (info));
     }
   else
     {
@@ -517,11 +509,7 @@
           if (nargout < 2)
             retval(0) = eig_val;
           else
-            {
-              retval(2) = double (info);
-              retval(1) = DiagMatrix (eig_val);
-              retval(0) = eig_vec;
-            }
+            retval = ovl (eig_vec, DiagMatrix (eig_val), double (info));
         }
       else
         {
@@ -563,11 +551,7 @@
           if (nargout < 2)
             retval(0) = eig_val;
           else
-            {
-              retval(2) = double (info);
-              retval(1) = ComplexDiagMatrix (eig_val);
-              retval(0) = eig_vec;
-            }
+            retval = ovl (eig_vec, ComplexDiagMatrix (eig_val), double (info));
         }
     }