--- rpl/lapack/lapack/zungbr.f	2010/12/21 13:53:58	1.7
+++ rpl/lapack/lapack/zungbr.f	2011/07/22 07:38:21	1.8
@@ -202,7 +202,7 @@
          END IF
       ELSE
 *
-*        Form P', determined by a call to ZGEBRD to reduce a k-by-n
+*        Form P**H, determined by a call to ZGEBRD to reduce a k-by-n
 *        matrix
 *
          IF( K.LT.N ) THEN
@@ -216,7 +216,7 @@
 *           If k >= n, assume m = n
 *
 *           Shift the vectors which define the elementary reflectors one
-*           row downward, and set the first row and column of P' to
+*           row downward, and set the first row and column of P**H to
 *           those of the unit matrix
 *
             A( 1, 1 ) = ONE
@@ -231,7 +231,7 @@
    60       CONTINUE
             IF( N.GT.1 ) THEN
 *
-*              Form P'(2:n,2:n)
+*              Form P**H(2:n,2:n)
 *
                CALL ZUNGLQ( N-1, N-1, N-1, A( 2, 2 ), LDA, TAU, WORK,
      $                      LWORK, IINFO )