Remove dead assignments in xSYEQUB, xHEEQUB

diff --git a/SRC/cheequb.f b/SRC/cheequb.f
index 7f8dc20..69b1f0e 100644 (file)
--- 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

diff --git a/SRC/csyequb.f b/SRC/csyequb.f
index 5d54b5e..4345322 100644 (file)
--- a/SRC/csyequb.f
+++ b/SRC/csyequb.f
@@ -248,7 +248,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
@@ -258,7 +257,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

diff --git a/SRC/dsyequb.f b/SRC/dsyequb.f
index 3c15cad..f1b6047 100644 (file)
--- a/SRC/dsyequb.f
+++ b/SRC/dsyequb.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

diff --git a/SRC/ssyequb.f b/SRC/ssyequb.f
index eb14390..96dfad5 100644 (file)
--- 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

diff --git a/SRC/zheequb.f b/SRC/zheequb.f
index 341b7d2..f6388ed 100644 (file)
--- a/SRC/zheequb.f
+++ b/SRC/zheequb.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

diff --git a/SRC/zsyequb.f b/SRC/zsyequb.f
index 8514388..ed41d51 100644 (file)
--- a/SRC/zsyequb.f
+++ b/SRC/zsyequb.f
@@ -248,7 +248,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
@@ -258,7 +257,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