summaryrefslogtreecommitdiff
path: root/SRC
diff options
context:
space:
mode:
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