summaryrefslogtreecommitdiff
path: root/SRC
diff options
context:
space:
mode:
authorJulien Langou <julien.langou@ucdenver.edu>2017-06-07 08:14:15 +0200
committerJulien Langou <julien.langou@ucdenver.edu>2017-06-07 08:14:15 +0200
commit63d462f190c41b199162514e3980a2ab527733aa (patch)
treee791b1c1ce14e7a3a27d051872faefef79fb73d4 /SRC
parent7bb8302b5f94b551fdc2143c2655ad0eccef7f43 (diff)
downloadlapack-63d462f190c41b199162514e3980a2ab527733aa.tar.gz
lapack-63d462f190c41b199162514e3980a2ab527733aa.tar.bz2
lapack-63d462f190c41b199162514e3980a2ab527733aa.zip
Fix #158
Removing code line 243 which was useless. Thanks to @vladimir-ch for pointing this out and @oamarques for approving the fix
Diffstat (limited to 'SRC')
-rw-r--r--SRC/dlasq4.f1
-rw-r--r--SRC/slasq4.f1
2 files changed, 0 insertions, 2 deletions
diff --git a/SRC/dlasq4.f b/SRC/dlasq4.f
index cb7a714c..56e95ed6 100644
--- 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 32496a24..78fb7e69 100644
--- 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