First pass to homgenize notation for transpose (**T) and conjugate transpose (**H)

Corresponds to bug0024

1 files changed, 7 insertions, 7 deletions

diff --git a/SRC/clasyf.f b/SRC/clasyf.f
index 136ef5e6..ea749f72 100644
--- a/SRC/clasyf.f
+++ b/SRC/clasyf.f
@@ -21,15 +21,15 @@
 *  A using the Bunch-Kaufman diagonal pivoting method. The partial
 *  factorization has the form:
 *
-*  A  =  ( I  U12 ) ( A11  0  ) (  I    0   )  if UPLO = 'U', or:
-*        ( 0  U22 ) (  0   D  ) ( U12' U22' )
+*  A  =  ( I  U12 ) ( A11  0  ) (  I       0    )  if UPLO = 'U', or:
+*        ( 0  U22 ) (  0   D  ) ( U12**T U22**T )
 *
-*  A  =  ( L11  0 ) ( D    0  ) ( L11' L21' )  if UPLO = 'L'
-*        ( L21  I ) ( 0   A22 ) (  0    I   )
+*  A  =  ( L11  0 ) ( D    0  ) ( L11**T L21**T )  if UPLO = 'L'
+*        ( L21  I ) ( 0   A22 ) (  0       I    )
 *
 *  where the order of D is at most NB. The actual order is returned in
 *  the argument KB, and is either NB or NB-1, or N if N <= NB.
-*  Note that U' denotes the transpose of U.
+*  Note that U**T denotes the transpose of U.
 *
 *  CLASYF is an auxiliary routine called by CSYTRF. It uses blocked code
 *  (calling Level 3 BLAS) to update the submatrix A11 (if UPLO = 'U') or
@@ -322,7 +322,7 @@
 *
 *        Update the upper triangle of A11 (= A(1:k,1:k)) as
 *
-*        A11 := A11 - U12*D*U12' = A11 - U12*W'
+*        A11 := A11 - U12*D*U12**T = A11 - U12*W**T
 *
 *        computing blocks of NB columns at a time
 *
@@ -546,7 +546,7 @@
 *
 *        Update the lower triangle of A22 (= A(k:n,k:n)) as
 *
-*        A22 := A22 - L21*D*L21' = A22 - L21*W'
+*        A22 := A22 - L21*D*L21**T = A22 - L21*W**T
 *
 *        computing blocks of NB columns at a time
 *