diff options
Diffstat (limited to 'SRC/chpgst.f')
| -rw-r--r-- | SRC/chpgst.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/SRC/chpgst.f b/SRC/chpgst.f index acc6acf2..f3b607a5 100644 --- a/SRC/chpgst.f +++ b/SRC/chpgst.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) * |