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/dtrevc.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/dtrevc.f')
| -rw-r--r-- | SRC/dtrevc.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/SRC/dtrevc.f b/SRC/dtrevc.f index a37e2264..0ac5725d 100644 --- a/SRC/dtrevc.f +++ b/SRC/dtrevc.f @@ -726,8 +726,8 @@ $ WORK( KI+1+N ), 1 ) * * Solve -* [T(J,J)-WR T(J,J+1) ]'* X = SCALE*( WORK1 ) -* [T(J+1,J) T(J+1,J+1)-WR] ( WORK2 ) +* [T(J,J)-WR T(J,J+1) ]**T * X = SCALE*( WORK1 ) +* [T(J+1,J) T(J+1,J+1)-WR] ( WORK2 ) * CALL DLALN2( .TRUE., 2, 1, SMIN, ONE, T( J, J ), $ LDT, ONE, ONE, WORK( J+N ), N, WR, @@ -891,8 +891,8 @@ $ WORK( KI+2+N2 ), 1 ) * * Solve 2-by-2 complex linear equation -* ([T(j,j) T(j,j+1) ]'-(wr-i*wi)*I)*X = SCALE*B -* ([T(j+1,j) T(j+1,j+1)] ) +* ([T(j,j) T(j,j+1) ]**T-(wr-i*wi)*I)*X = SCALE*B +* ([T(j+1,j) T(j+1,j+1)] ) * CALL DLALN2( .TRUE., 2, 2, SMIN, ONE, T( J, J ), $ LDT, ONE, ONE, WORK( J+N ), N, WR, |