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/dlarfb.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/dlarfb.f')
| -rw-r--r-- | SRC/dlarfb.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SRC/dlarfb.f b/SRC/dlarfb.f index 024a0b46..c2b63e07 100644 --- a/SRC/dlarfb.f +++ b/SRC/dlarfb.f @@ -286,7 +286,7 @@ LASTV = MAX( K, ILADLR( M, K, V, LDV ) ) LASTC = ILADLC( LASTV, N, C, LDC ) * -* W := C' * V = (C1**T * V1 + C2**T * V2) (stored in WORK) +* W := C**T * V = (C1**T * V1 + C2**T * V2) (stored in WORK) * * W := C2**T * @@ -373,7 +373,7 @@ CALL DTRMM( 'Right', 'Lower', TRANS, 'Non-unit', $ LASTC, K, ONE, T, LDT, WORK, LDWORK ) * -* C := C - W * V' +* C := C - W * V**T * IF( LASTV.GT.K ) THEN * |