diff options
Diffstat (limited to 'SRC/clasyf.f')
| -rw-r--r-- | SRC/clasyf.f | 14 |
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 * |