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/zhpgst.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/zhpgst.f')
-rw-r--r-- | SRC/zhpgst.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/SRC/zhpgst.f b/SRC/zhpgst.f index 3f560ff3..8cfa2444 100644 --- a/SRC/zhpgst.f +++ b/SRC/zhpgst.f @@ -108,7 +108,7 @@ IF( ITYPE.EQ.1 ) THEN IF( UPPER ) THEN * -* Compute inv(U')*A*inv(U) +* Compute inv(U**H)*A*inv(U) * * J1 and JJ are the indices of A(1,j) and A(j,j) * @@ -131,7 +131,7 @@ 10 CONTINUE ELSE * -* Compute inv(L)*A*inv(L') +* Compute inv(L)*A*inv(L**H) * * KK and K1K1 are the indices of A(k,k) and A(k+1,k+1) * @@ -161,7 +161,7 @@ ELSE IF( UPPER ) THEN * -* Compute U*A*U' +* Compute U*A*U**H * * K1 and KK are the indices of A(1,k) and A(k,k) * @@ -186,7 +186,7 @@ 30 CONTINUE ELSE * -* Compute L'*A*L +* Compute L**H *A*L * * JJ and J1J1 are the indices of A(j,j) and A(j+1,j+1) * |