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/ssyequb.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/ssyequb.f')
| -rw-r--r-- | SRC/ssyequb.f | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/SRC/ssyequb.f b/SRC/ssyequb.f index eb143906..96dfad51 100644 --- a/SRC/ssyequb.f +++ b/SRC/ssyequb.f @@ -239,7 +239,6 @@ IF ( UP ) THEN DO J = 1, N DO I = 1, J-1 - T = ABS( A( I, J ) ) WORK( I ) = WORK( I ) + ABS( A( I, J ) ) * S( J ) WORK( J ) = WORK( J ) + ABS( A( I, J ) ) * S( I ) END DO @@ -249,7 +248,6 @@ DO J = 1, N WORK( J ) = WORK( J ) + ABS( A( J, J ) ) * S( J ) DO I = J+1, N - T = ABS( A( I, J ) ) WORK( I ) = WORK( I ) + ABS( A( I, J ) ) * S( J ) WORK( J ) = WORK( J ) + ABS( A( I, J ) ) * S( I ) END DO |