diff options
author | julie <julielangou@users.noreply.github.com> | 2011-04-02 11:08:56 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2011-04-02 11:08:56 +0000 |
commit | f2953573ede24d7f8c01fdb18de48f65f00a9943 (patch) | |
tree | 53172aa9083b9aa1abe2d6c130f7c173d8d8725b /SRC/ztgsna.f | |
parent | 53b71f5605f83d116ab6bcf477bfb6d2ca757de1 (diff) | |
download | lapack-f2953573ede24d7f8c01fdb18de48f65f00a9943.tar.gz lapack-f2953573ede24d7f8c01fdb18de48f65f00a9943.tar.bz2 lapack-f2953573ede24d7f8c01fdb18de48f65f00a9943.zip |
First pass to homgenize notation for transpose (**T) and conjugate transpose (**H)
Corresponds to bug0024
Diffstat (limited to 'SRC/ztgsna.f')
-rw-r--r-- | SRC/ztgsna.f | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/SRC/ztgsna.f b/SRC/ztgsna.f index f4132a48..02d07e94 100644 --- a/SRC/ztgsna.f +++ b/SRC/ztgsna.f @@ -132,12 +132,12 @@ * The reciprocal of the condition number of the i-th generalized * eigenvalue w = (a, b) is defined as * -* S(I) = (|v'Au|**2 + |v'Bu|**2)**(1/2) / (norm(u)*norm(v)) +* S(I) = (|v**HAu|**2 + |v**HBu|**2)**(1/2) / (norm(u)*norm(v)) * * where u and v are the right and left eigenvectors of (A, B) * corresponding to w; |z| denotes the absolute value of the complex * number, and norm(u) denotes the 2-norm of the vector u. The pair -* (a, b) corresponds to an eigenvalue w = a/b (= v'Au/v'Bu) of the +* (a, b) corresponds to an eigenvalue w = a/b (= v**HAu/v**HBu) of the * matrix pair (A, B). If both a and b equal zero, then (A,B) is * singular and S(I) = -1 is returned. * @@ -166,7 +166,7 @@ * Zl = [ kron(a, In-1) -kron(1, A22) ] * [ kron(b, In-1) -kron(1, B22) ]. * -* Here In-1 is the identity matrix of size n-1 and X' is the conjugate +* Here In-1 is the identity matrix of size n-1 and X**H is the conjugate * transpose of X. kron(X, Y) is the Kronecker product between the * matrices X and Y. * |