Mercurial > octave-nkf

changeset 3335:f39b97e13cf2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-11-03 21:05:01 by jwe]
author jwe
date Wed, 03 Nov 1999 21:05:01 +0000
parents 5187390bfde6
children 08ad797989f8
files liboctave/CmplxSVD.cc liboctave/dbleSVD.cc
diffstat 2 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/liboctave/CmplxSVD.cc	Wed Nov 03 20:41:16 1999 +0000
+++ b/liboctave/CmplxSVD.cc	Wed Nov 03 21:05:01 1999 +0000
@@ -104,8 +104,10 @@
       // demonstrate the bug, set both jobu and jobv to 'N' and find
       // the singular values of [eye(3), eye(3)].  The result is
       // [-sqrt(2), -sqrt(2), -sqrt(2)].
+      //
+      // For Lapack 3.0, this problem seems to be fixed.
 
-      jobu = 'O';
+      jobu = 'N';
       jobv = 'N';
       ncol_u = nrow_vt = 1;
       break;
--- a/liboctave/dbleSVD.cc	Wed Nov 03 20:41:16 1999 +0000
+++ b/liboctave/dbleSVD.cc	Wed Nov 03 21:05:01 1999 +0000
@@ -104,8 +104,10 @@
       // demonstrate the bug, set both jobu and jobv to 'N' and find
       // the singular values of [eye(3), eye(3)].  The result is
       // [-sqrt(2), -sqrt(2), -sqrt(2)].
+      //
+      // For Lapack 3.0, this problem seems to be fixed.
 
-      jobu = 'O';
+      jobu = 'N';
       jobv = 'N';
       ncol_u = nrow_vt = 1;
       break;