diff options
Diffstat (limited to 'SRC/zgebrd.f')
| -rw-r--r-- | SRC/zgebrd.f | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/SRC/zgebrd.f b/SRC/zgebrd.f index b78bbc71..fcc4bdf2 100644 --- a/SRC/zgebrd.f +++ b/SRC/zgebrd.f @@ -99,7 +99,7 @@ * * Each H(i) and G(i) has the form: * -* H(i) = I - tauq * v * v' and G(i) = I - taup * u * u' +* H(i) = I - tauq * v * v**H and G(i) = I - taup * u * u**H * * where tauq and taup are complex scalars, and v and u are complex * vectors; v(1:i-1) = 0, v(i) = 1, and v(i+1:m) is stored on exit in @@ -112,7 +112,7 @@ * * Each H(i) and G(i) has the form: * -* H(i) = I - tauq * v * v' and G(i) = I - taup * u * u' +* H(i) = I - tauq * v * v**H and G(i) = I - taup * u * u**H * * where tauq and taup are complex scalars, and v and u are complex * vectors; v(1:i) = 0, v(i+1) = 1, and v(i+2:m) is stored on exit in @@ -232,7 +232,7 @@ $ WORK( LDWRKX*NB+1 ), LDWRKY ) * * Update the trailing submatrix A(i+ib:m,i+ib:n), using -* an update of the form A := A - V*Y' - X*U' +* an update of the form A := A - V*Y**H - X*U**H * CALL ZGEMM( 'No transpose', 'Conjugate transpose', M-I-NB+1, $ N-I-NB+1, NB, -ONE, A( I+NB, I ), LDA, |