diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-04-07 13:53:54 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-04-07 13:53:54 +0000 |
| commit | 16973f0c15a4327f8a78b9652f178246895778c1 (patch) | |
| tree | 1d022faeffac8e1524f4f73517483f4cd828038d /SRC/dsytrd.f | |
| parent | 8b5dd5433b205f27821b10d5389f55bcd4a1e87a (diff) | |
| download | lapack-16973f0c15a4327f8a78b9652f178246895778c1.tar.gz lapack-16973f0c15a4327f8a78b9652f178246895778c1.tar.bz2 lapack-16973f0c15a4327f8a78b9652f178246895778c1.zip | |
Second and hopefully last pass to homgenize notation for transpose (**T) and conjugate transpose (**H)
Corresponds to bug0024
Please take a look and let me know if you find some old notation of transpose.
I am going to close bug0024.
Julie
Diffstat (limited to 'SRC/dsytrd.f')
| -rw-r--r-- | SRC/dsytrd.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SRC/dsytrd.f b/SRC/dsytrd.f index 1bc8fec6..0622ce67 100644 --- a/SRC/dsytrd.f +++ b/SRC/dsytrd.f @@ -235,7 +235,7 @@ $ LDWORK ) * * Update the unreduced submatrix A(1:i-1,1:i-1), using an -* update of the form: A := A - V*W' - W*V**T +* update of the form: A := A - V*W**T - W*V**T * CALL DSYR2K( UPLO, 'No transpose', I-1, NB, -ONE, A( 1, I ), $ LDA, WORK, LDWORK, ONE, A, LDA ) @@ -266,7 +266,7 @@ $ TAU( I ), WORK, LDWORK ) * * Update the unreduced submatrix A(i+ib:n,i+ib:n), using -* an update of the form: A := A - V*W' - W*V**T +* an update of the form: A := A - V*W**T - W*V**T * CALL DSYR2K( UPLO, 'No transpose', N-I-NB+1, NB, -ONE, $ A( I+NB, I ), LDA, WORK( NB+1 ), LDWORK, ONE, |