--- rpl/lapack/lapack/dlaqr5.f	2010/12/21 13:53:31	1.8
+++ rpl/lapack/lapack/dlaqr5.f	2011/07/22 07:38:07	1.9
@@ -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 )