diff options
| author | julie <julielangou@users.noreply.github.com> | 2012-04-11 20:16:24 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2012-04-11 20:16:24 +0000 |
| commit | 200e652e6337754478c7dbb8c09b99f84a8f32be (patch) | |
| tree | 2bac6c1b07ec5230d6d5954b7ff43de620e63357 | |
| parent | 55d43f3c3c6c20c045e215ef13bc418c1f27e43f (diff) | |
| download | lapack-200e652e6337754478c7dbb8c09b99f84a8f32be.tar.gz lapack-200e652e6337754478c7dbb8c09b99f84a8f32be.tar.bz2 lapack-200e652e6337754478c7dbb8c09b99f84a8f32be.zip | |
Remove unused variables
| -rw-r--r-- | SRC/cungbr.f | 2 | ||||
| -rw-r--r-- | SRC/dorgbr.f | 2 | ||||
| -rw-r--r-- | SRC/sorgbr.f | 2 | ||||
| -rw-r--r-- | SRC/zungbr.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/cdrvsy_rook.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/ddrvsy_rook.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/sdrvsy_rook.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/zdrvsy_rook.f | 2 |
8 files changed, 4 insertions, 12 deletions
diff --git a/SRC/cungbr.f b/SRC/cungbr.f index ff7d17c3..8ecb0f41 100644 --- 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 ecc7dce7..60f9d383 100644 --- 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 0bd8c3c6..13896c76 100644 --- 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 def01107..c457e520 100644 --- 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 2ea39b0e..e12064ae 100644 --- 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 d9b321ec..13454f11 100644 --- 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 278418c7..569ce5b0 100644 --- 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 c9441ee0..50402167 100644 --- 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 |