diff options
Diffstat (limited to 'SRC/dlaqr5.f')
| -rw-r--r-- | SRC/dlaqr5.f | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/SRC/dlaqr5.f b/SRC/dlaqr5.f index 06381e1c..0615eaf8 100644 --- a/SRC/dlaqr5.f +++ b/SRC/dlaqr5.f @@ -642,14 +642,14 @@ CALL DLACPY( 'ALL', KNZ, JLEN, H( INCOL+1+J2, JCOL ), $ LDH, WH( KZS+1, 1 ), LDWH ) * -* ==== Multiply by U21' ==== +* ==== Multiply by U21**T ==== * CALL DLASET( 'ALL', KZS, JLEN, ZERO, ZERO, WH, LDWH ) CALL DTRMM( 'L', 'U', 'C', 'N', KNZ, JLEN, ONE, $ U( J2+1, 1+KZS ), LDU, WH( KZS+1, 1 ), $ LDWH ) * -* ==== Multiply top of H by U11' ==== +* ==== Multiply top of H by U11**T ==== * CALL DGEMM( 'C', 'N', I2, JLEN, J2, ONE, U, LDU, $ H( INCOL+1, JCOL ), LDH, ONE, WH, LDWH ) @@ -659,7 +659,7 @@ CALL DLACPY( 'ALL', J2, JLEN, H( INCOL+1, JCOL ), LDH, $ WH( I2+1, 1 ), LDWH ) * -* ==== Multiply by U21' ==== +* ==== Multiply by U21**T ==== * CALL DTRMM( 'L', 'L', 'C', 'N', J2, JLEN, ONE, $ U( 1, I2+1 ), LDU, WH( I2+1, 1 ), LDWH ) |