summaryrefslogtreecommitdiff
path: root/SRC/ztgsna.f
diff options
context:
space:
mode:
authorjulie <julielangou@users.noreply.github.com>2011-04-02 11:08:56 +0000
committerjulie <julielangou@users.noreply.github.com>2011-04-02 11:08:56 +0000
commitf2953573ede24d7f8c01fdb18de48f65f00a9943 (patch)
tree53172aa9083b9aa1abe2d6c130f7c173d8d8725b /SRC/ztgsna.f
parent53b71f5605f83d116ab6bcf477bfb6d2ca757de1 (diff)
downloadlapack-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.f6
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.
*