fix some compiler warnings

Author: thijssteel

SRC/ctgex2.f

@@ -220,8 +220,8 @@ SUBROUTINE CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z,
 *     .. Local Scalars ..
       LOGICAL            STRONG, WEAK
       INTEGER            I, M
-      REAL               CQ, CZ, EPS, SA, SB, SCALE, SMLNUM, SS, SUM,
-     $                   THRESHA, THRESHB, WS
+      REAL               CQ, CZ, EPS, SA, SB, SCALE, SMLNUM, SUM,
+     $                   THRESHA, THRESHB
       COMPLEX            CDUM, F, G, SQ, SZ
 *     ..
 *     .. Local Arrays ..

SRC/dtgex2.f

@@ -253,8 +253,8 @@ SUBROUTINE DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z,
       LOGICAL            STRONG, WEAK
       INTEGER            I, IDUM, LINFO, M
       DOUBLE PRECISION   BQRA21, BRQA21, DDUM, DNORMA, DNORMB, DSCALE,
-     $                   DSUM, EPS, F, G, SA, SB, SCALE, SMLNUM, SS,
-     $                   THRESHA, THRESHB, THRESH, WS
+     $                   DSUM, EPS, F, G, SA, SB, SCALE, SMLNUM,
+     $                   THRESHA, THRESHB
 *     ..
 *     .. Local Arrays ..
       INTEGER            IWORK( LDST )

SRC/stgex2.f

@@ -252,9 +252,10 @@ SUBROUTINE STGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z,
 *     .. Local Scalars ..
       LOGICAL            STRONG, WEAK
       INTEGER            I, IDUM, LINFO, M
-      REAL               BQRA21, BRQA21, DDUM, DNORM, DSCALEA, DSCALEB,
-     $                   DSUM, EPS, F, G, SA, SB, SCALE, SMLNUM, SS,
-     $                   THRESHA, THRESHB, WS
+      REAL               BQRA21, BRQA21, DDUM, DNORMA, DNORMB,
+     $                   DSCALE,
+     $                   DSUM, EPS, F, G, SA, SB, SCALE, SMLNUM,
+     $                   THRESHA, THRESHB
 *     ..
 *     .. Local Arrays ..
       INTEGER            IWORK( LDST )

SRC/ztgex2.f

@@ -220,8 +220,8 @@ SUBROUTINE ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z,
 *     .. Local Scalars ..
       LOGICAL            STRONG, WEAK
       INTEGER            I, M
-      DOUBLE PRECISION   CQ, CZ, EPS, SA, SB, SCALE, SMLNUM, SS, SUM,
-     $                   WS, THRESHA, THRESHB
+      DOUBLE PRECISION   CQ, CZ, EPS, SA, SB, SCALE, SMLNUM, SUM,
+     $                   THRESHA, THRESHB
       COMPLEX*16         CDUM, F, G, SQ, SZ
 *     ..
 *     .. Local Arrays ..