[Dnanalytics-commits] SF.net SVN: dnanalytics: [445] numerical/trunk/LinearAlgebra/ManagedLapack. cs

[<mar...@us...>]

Revision: 445
          http://svn.sourceforge.net/dnanalytics/?rev=445&view=rev
Author:   marcuscuda
Date:     2007-02-08 08:04:39 -0800 (Thu, 08 Feb 2007)

Log Message:
-----------
Fixed IndexOutOfRange bug in "deflate negligible s[m]".

Modified Paths:
--------------
    numerical/trunk/LinearAlgebra/ManagedLapack.cs

Modified: numerical/trunk/LinearAlgebra/ManagedLapack.cs
===================================================================
--- numerical/trunk/LinearAlgebra/ManagedLapack.cs	2006-11-11 14:48:20 UTC (rev 444)
+++ numerical/trunk/LinearAlgebra/ManagedLapack.cs	2007-02-08 16:04:39 UTC (rev 445)
@@ -731,8 +731,10 @@
                     case 1:
                         f = e[m - 2];
                         e[m - 2] = 0.0;
-                        for (k = m - 2; k >= 0; k--)
+                        for (int kk = l; kk < m - 1; kk++)
+                        //for (k = m - 2; k >= 0; k--)
                         {
+                            k = m - 2 - kk + l;
                             t1 = s[k];
                             Drotg(ref t1, ref f, ref cs, ref sn);
                             s[k] = t1;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.