diff options
| author | Christoph Conrads <gitlab@christoph-conrads.name> | 2016-09-19 16:33:56 +0200 |
|---|---|---|
| committer | Christoph Conrads <gitlab@christoph-conrads.name> | 2016-09-29 16:43:59 +0200 |
| commit | ec5876d33bd08a2f9ef2420c87f17a81c6cb2925 (patch) | |
| tree | 8ccbfbc68b825d35af96a1b74a70308473aa3520 /SRC/cheequb.f | |
| parent | 3bab67b085bbfc57f6152a6a6741d3330b172cc0 (diff) | |
| download | lapack-ec5876d33bd08a2f9ef2420c87f17a81c6cb2925.tar.gz lapack-ec5876d33bd08a2f9ef2420c87f17a81c6cb2925.tar.bz2 lapack-ec5876d33bd08a2f9ef2420c87f17a81c6cb2925.zip | |
Remove dead assignments in xSYEQUB, xHEEQUB
Diffstat (limited to 'SRC/cheequb.f')
| -rw-r--r-- | SRC/cheequb.f | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/SRC/cheequb.f b/SRC/cheequb.f index 7f8dc20a..69b1f0ec 100644 --- a/SRC/cheequb.f +++ b/SRC/cheequb.f @@ -246,7 +246,6 @@ IF ( UP ) THEN DO J = 1, N DO I = 1, J-1 - T = CABS1( A( I, J ) ) WORK( I ) = WORK( I ) + CABS1( A( I, J ) ) * S( J ) WORK( J ) = WORK( J ) + CABS1( A( I, J ) ) * S( I ) END DO @@ -256,7 +255,6 @@ DO J = 1, N WORK( J ) = WORK( J ) + CABS1( A( J, J ) ) * S( J ) DO I = J+1, N - T = CABS1( A( I, J ) ) WORK( I ) = WORK( I ) + CABS1( A( I, J ) ) * S( J ) WORK( J ) = WORK( J ) + CABS1( A( I, J ) ) * S( I ) END DO |