projects / platform / upstream / lapack.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 7bb8302)
Fix #158
authorJulien Langou <julien.langou@ucdenver.edu>
Wed, 7 Jun 2017 06:14:15 +0000 (08:14 +0200)
committerJulien Langou <julien.langou@ucdenver.edu>
Wed, 7 Jun 2017 06:14:15 +0000 (08:14 +0200)
Removing code line 243 which was useless.
Thanks to @vladimir-ch for pointing this out and @oamarques for approving the fix

SRC/dlasq4.f patch | blob | history
SRC/slasq4.f patch | blob | history

diff --git a/SRC/dlasq4.f b/SRC/dlasq4.f
index cb7a714..56e95ed 100644 (file)
--- a/SRC/dlasq4.f
+++ b/SRC/dlasq4.f
@@ -240,7 +240,6 @@
                   NP = NN - 9
                ELSE
                   NP = NN - 2*PP
-                  B2 = Z( NP-2 )
                   GAM = DN1
                   IF( Z( NP-4 ) .GT. Z( NP-2 ) )
      $               RETURN
diff --git a/SRC/slasq4.f b/SRC/slasq4.f
index 32496a2..78fb7e6 100644 (file)
--- a/SRC/slasq4.f
+++ b/SRC/slasq4.f
@@ -240,7 +240,6 @@
                   NP = NN - 9
                ELSE
                   NP = NN - 2*PP
-                  B2 = Z( NP-2 )
                   GAM = DN1
                   IF( Z( NP-4 ) .GT. Z( NP-2 ) )
      $               RETURN
Domain: System / Base;