summaryrefslogtreecommitdiff
path: root/SRC/dtpqrt2.f
diff options
context:
space:
mode:
authorjulie <julielangou@users.noreply.github.com>2012-08-03 18:17:41 +0000
committerjulie <julielangou@users.noreply.github.com>2012-08-03 18:17:41 +0000
commitd797a2b9defae2991b28ca622acce3b72ae68494 (patch)
tree40cd4a012c75840d7bdeef63d9445de59bc744c7 /SRC/dtpqrt2.f
parent199c646448f65fb375a8aaf7383c705dab58f550 (diff)
downloadlapack-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