From f2953573ede24d7f8c01fdb18de48f65f00a9943 Mon Sep 17 00:00:00 2001 From: julie Date: Sat, 2 Apr 2011 11:08:56 +0000 Subject: First pass to homgenize notation for transpose (**T) and conjugate transpose (**H) Corresponds to bug0024 --- SRC/ctrsen.f | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'SRC/ctrsen.f') diff --git a/SRC/ctrsen.f b/SRC/ctrsen.f index 2b35ef3c..a5eb9d70 100644 --- a/SRC/ctrsen.f +++ b/SRC/ctrsen.f @@ -119,16 +119,16 @@ * transformation Z to move them to the top left corner of T. In other * words, the selected eigenvalues are the eigenvalues of T11 in: * -* Z'*T*Z = ( T11 T12 ) n1 +* Z**H * T * Z = ( T11 T12 ) n1 * ( 0 T22 ) n2 * n1 n2 * -* where N = n1+n2 and Z' means the conjugate transpose of Z. The first +* where N = n1+n2. The first * n1 columns of Z span the specified invariant subspace of T. * * If T has been obtained from the Schur factorization of a matrix -* A = Q*T*Q', then the reordered Schur factorization of A is given by -* A = (Q*Z)*(Z'*T*Z)*(Q*Z)', and the first n1 columns of Q*Z span the +* A = Q*T*Q**H, then the reordered Schur factorization of A is given by +* A = (Q*Z)*(Z**H*T*Z)*(Q*Z)**H, and the first n1 columns of Q*Z span the * corresponding invariant subspace of A. * * The reciprocal condition number of the average of the eigenvalues of @@ -331,7 +331,7 @@ $ IERR ) ELSE * -* Solve T11'*R - R*T22' = scale*X. +* Solve T11**H*R - R*T22**H = scale*X. * CALL CTRSYL( 'C', 'C', -1, N1, N2, T, LDT, $ T( N1+1, N1+1 ), LDT, WORK, N1, SCALE, -- cgit v1.2.3