diff options
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 |