diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-06-22 09:45:40 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-06-22 09:45:40 +0000 |
| commit | 0d0b443c697874898ee9947afe634c1b89761dce (patch) | |
| tree | 27a6fd0102f166d128c1f5e9ae60942e788a242d /TESTING/LIN/dchkgt.f | |
| parent | ffd034b32b7f443988c8fb54274b97d5968dbd85 (diff) | |
| download | lapack-0d0b443c697874898ee9947afe634c1b89761dce.tar.gz lapack-0d0b443c697874898ee9947afe634c1b89761dce.tar.bz2 lapack-0d0b443c697874898ee9947afe634c1b89761dce.zip | |
Summer cleanup
Cleanup some codes, like unused variables.
Used -Walls to detect problems.
Diffstat (limited to 'TESTING/LIN/dchkgt.f')
| -rw-r--r-- | TESTING/LIN/dchkgt.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/TESTING/LIN/dchkgt.f b/TESTING/LIN/dchkgt.f index 250875b8..30202843 100644 --- a/TESTING/LIN/dchkgt.f +++ b/TESTING/LIN/dchkgt.f @@ -398,7 +398,7 @@ * CALL DLACPY( 'Full', N, NRHS, B, LDA, WORK, LDA ) CALL DGTT02( TRANS, N, NRHS, A, A( M+1 ), A( N+M+1 ), - $ X, LDA, WORK, LDA, RWORK, RESULT( 2 ) ) + $ X, LDA, WORK, LDA, RESULT( 2 ) ) * *+ TEST 3 * Check solution from generated exact solution. |