diff options
| author | Julien Langou <julien.langou@ucdenver.edu> | 2017-06-07 08:14:15 +0200 |
|---|---|---|
| committer | Julien Langou <julien.langou@ucdenver.edu> | 2017-06-07 08:14:15 +0200 |
| commit | 63d462f190c41b199162514e3980a2ab527733aa (patch) | |
| tree | e791b1c1ce14e7a3a27d051872faefef79fb73d4 /SRC | |
| parent | 7bb8302b5f94b551fdc2143c2655ad0eccef7f43 (diff) | |
| download | lapack-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.f | 1 | ||||
| -rw-r--r-- | SRC/slasq4.f | 1 |
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 |