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/dtgsna.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/dtgsna.f')
-rw-r--r-- | SRC/dtgsna.f | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/SRC/dtgsna.f b/SRC/dtgsna.f index 4f3d1dc7..6cbc0c72 100644 --- a/SRC/dtgsna.f +++ b/SRC/dtgsna.f @@ -25,7 +25,7 @@ * eigenvalues and/or eigenvectors of a matrix pair (A, B) in * generalized real Schur canonical form (or of any matrix pair * (Q*A*Z**T, Q*B*Z**T) with orthogonal matrices Q and Z, where -* Z' denotes the transpose of Z. +* Z**T denotes the transpose of Z. * * (A, B) must be in generalized real Schur form (as returned by DGGES), * i.e. A is block upper triangular with 1-by-1 and 2-by-2 diagonal @@ -233,8 +233,8 @@ * and d2 is an upper bound on Difl((S11, T11), (S22, T22)), i.e. an * upper bound on sigma-min(Z2), where Z2 is (2n-2)-by-(2n-2) * -* Z2 = [ kron(S11', In-2) -kron(I2, S22) ] -* [ kron(T11', In-2) -kron(I2, T22) ] +* Z2 = [ kron(S11**T, In-2) -kron(I2, S22) ] +* [ kron(T11**T, In-2) -kron(I2, T22) ] * * Note that if the default method for computing DIF is wanted (see * DLATDF), then the parameter DIFDRI (see below) should be changed |