Remove unused variables

diff --git a/SRC/cungbr.f b/SRC/cungbr.f
index ff7d17c391475e768e1805a67eb4a1fb43ff2c47..8ecb0f41935840f9ef5346e202ff6c4f416cce0f 100644 (file)
--- a/SRC/cungbr.f
+++ b/SRC/cungbr.f
@@ -179,7 +179,7 @@
 *     ..
 *     .. Local Scalars ..
       LOGICAL            LQUERY, WANTQ
-      INTEGER            I, IINFO, J, LWKOPT, MN, NB
+      INTEGER            I, IINFO, J, LWKOPT, MN
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME

diff --git a/SRC/dorgbr.f b/SRC/dorgbr.f
index ecc7dce7d37e63b3b11f73f17c9cbd1a7ef61182..60f9d383c80abb1c8d0b98c56eb524e557fa741d 100644 (file)
--- a/SRC/dorgbr.f
+++ b/SRC/dorgbr.f
@@ -178,7 +178,7 @@
 *     ..
 *     .. Local Scalars ..
       LOGICAL            LQUERY, WANTQ
-      INTEGER            I, IINFO, J, LWKOPT, MN, NB
+      INTEGER            I, IINFO, J, LWKOPT, MN
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME

diff --git a/SRC/sorgbr.f b/SRC/sorgbr.f
index 0bd8c3c688933ffa99af57cbf7e2622ad9f0fab6..13896c7669a49993edd7d8245fa35199d94c0a41 100644 (file)
--- a/SRC/sorgbr.f
+++ b/SRC/sorgbr.f
@@ -178,7 +178,7 @@
 *     ..
 *     .. Local Scalars ..
       LOGICAL            LQUERY, WANTQ
-      INTEGER            I, IINFO, J, LWKOPT, MN, NB
+      INTEGER            I, IINFO, J, LWKOPT, MN
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME

diff --git a/SRC/zungbr.f b/SRC/zungbr.f
index def011077a36b529d09f9be1561e480f85a61229..c457e5209cc83dcd4b69c7861e7209cf0265f2be 100644 (file)
--- a/SRC/zungbr.f
+++ b/SRC/zungbr.f
@@ -179,7 +179,7 @@
 *     ..
 *     .. Local Scalars ..
       LOGICAL            LQUERY, WANTQ
-      INTEGER            I, IINFO, J, LWKOPT, MN, NB
+      INTEGER            I, IINFO, J, LWKOPT, MN
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME

diff --git a/TESTING/LIN/cdrvsy_rook.f b/TESTING/LIN/cdrvsy_rook.f
index 2ea39b0edfb95fcb2497ad99c4fa8fba9c3ae535..e12064ae199c944becb09095450a1e8b0f655541 100644 (file)
--- a/TESTING/LIN/cdrvsy_rook.f
+++ b/TESTING/LIN/cdrvsy_rook.f
@@ -528,8 +528,6 @@
 *
  9999 FORMAT( 1X, A, ', UPLO=''', A1, ''', N =', I5, ', type ', I2,
      $      ', test ', I2, ', ratio =', G12.5 )
- 9998 FORMAT( 1X, A, ', FACT=''', A1, ''', UPLO=''', A1, ''', N =', I5,
-     $      ', type ', I2, ', test ', I2, ', ratio =', G12.5 )
       RETURN
 *
 *     End of CDRVSY_ROOK

diff --git a/TESTING/LIN/ddrvsy_rook.f b/TESTING/LIN/ddrvsy_rook.f
index d9b321ec81ea1d5150562e6d88b76106a3898d1d..13454f1146cb00792a684a380c4d74f5b8b40a58 100644 (file)
--- a/TESTING/LIN/ddrvsy_rook.f
+++ b/TESTING/LIN/ddrvsy_rook.f
@@ -520,8 +520,6 @@
 *
  9999 FORMAT( 1X, A, ', UPLO=''', A1, ''', N =', I5, ', type ', I2,
      $      ', test ', I2, ', ratio =', G12.5 )
- 9998 FORMAT( 1X, A, ', FACT=''', A1, ''', UPLO=''', A1, ''', N =', I5,
-     $      ', type ', I2, ', test ', I2, ', ratio =', G12.5 )
       RETURN
 *
 *     End of DDRVSY_ROOK

diff --git a/TESTING/LIN/sdrvsy_rook.f b/TESTING/LIN/sdrvsy_rook.f
index 278418c7687b94808a6a79a9abb84f708870c13e..569ce5b042e642b54f0477b9919b79b316d146ad 100644 (file)
--- a/TESTING/LIN/sdrvsy_rook.f
+++ b/TESTING/LIN/sdrvsy_rook.f
@@ -520,8 +520,6 @@
 *
  9999 FORMAT( 1X, A, ', UPLO=''', A1, ''', N =', I5, ', type ', I2,
      $      ', test ', I2, ', ratio =', G12.5 )
- 9998 FORMAT( 1X, A, ', FACT=''', A1, ''', UPLO=''', A1, ''', N =', I5,
-     $      ', type ', I2, ', test ', I2, ', ratio =', G12.5 )
       RETURN
 *
 *     End of SDRVSY_ROOK

diff --git a/TESTING/LIN/zdrvsy_rook.f b/TESTING/LIN/zdrvsy_rook.f
index c9441ee018e7884a2828c693a01676fd441d4b51..50402167e3d34a94b35546f2dd5ce21432876568 100644 (file)
--- a/TESTING/LIN/zdrvsy_rook.f
+++ b/TESTING/LIN/zdrvsy_rook.f
@@ -528,8 +528,6 @@
 *
  9999 FORMAT( 1X, A, ', UPLO=''', A1, ''', N =', I5, ', type ', I2,
      $      ', test ', I2, ', ratio =', G12.5 )
- 9998 FORMAT( 1X, A, ', FACT=''', A1, ''', UPLO=''', A1, ''', N =', I5,
-     $      ', type ', I2, ', test ', I2, ', ratio =', G12.5 )
       RETURN
 *
 *     End of ZDRVSY_ROOK