diff options
author | julie <julielangou@users.noreply.github.com> | 2012-08-03 18:17:41 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2012-08-03 18:17:41 +0000 |
commit | d797a2b9defae2991b28ca622acce3b72ae68494 (patch) | |
tree | 40cd4a012c75840d7bdeef63d9445de59bc744c7 /SRC/dtpqrt2.f | |
parent | 199c646448f65fb375a8aaf7383c705dab58f550 (diff) | |
download | lapack-d797a2b9defae2991b28ca622acce3b72ae68494.tar.gz lapack-d797a2b9defae2991b28ca622acce3b72ae68494.tar.bz2 lapack-d797a2b9defae2991b28ca622acce3b72ae68494.zip |
error in comment detected by Mathieu (PLASMA)
Routine affected: [CZ]HEGST et [CZ]HEGS2,
B is IN in comment, but in the code, B is actually changed, but after restored.
Here is the code portion that is to blame. [CZ]HEGS2
00203 IF( K.LT.N ) THEN
00204 CALL ZDSCAL( N-K, ONE / BKK, A( K, K+1 ), LDA )
00205 CT = -HALF*AKK
00206 CALL ZLACGV( N-K, A( K, K+1 ), LDA )
00207 CALL ZLACGV( N-K, B( K, K+1 ), LDB )
00208 CALL ZAXPY( N-K, CT, B( K, K+1 ), LDB, A( K, K+1 ),
00209 $ LDA )
00210 CALL ZHER2( UPLO, N-K, -CONE, A( K, K+1 ), LDA,
00211 $ B( K, K+1 ), LDB, A( K+1, K+1 ), LDA )
00212 CALL ZAXPY( N-K, CT, B( K, K+1 ), LDB, A( K, K+1 ),
00213 $ LDA )
00214 CALL ZLACGV( N-K, B( K, K+1 ), LDB )
00215 CALL ZTRSV( UPLO, 'Conjugate transpose', 'Non-unit',
00216 $ N-K, B( K+1, K+1 ), LDB, A( K, K+1 ),
00217 $ LDA )
00218 CALL ZLACGV( N-K, A( K, K+1 ), LDA )
Diffstat (limited to 'SRC/dtpqrt2.f')
0 files changed, 0 insertions, 0 deletions