From 63d462f190c41b199162514e3980a2ab527733aa Mon Sep 17 00:00:00 2001
From: Julien Langou <julien.langou@ucdenver.edu>
Date: Wed, 7 Jun 2017 08:14:15 +0200
Subject: Fix #158

Removing code line 243 which was useless.
Thanks to @vladimir-ch for pointing this out and @oamarques for approving the fix
---
 SRC/dlasq4.f | 1 -
 SRC/slasq4.f | 1 -
 2 files changed, 2 deletions(-)

(limited to 'SRC')

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
-- 
cgit v1.2.3