--- rpl/lapack/lapack/zunmrz.f 2010/12/21 13:53:59 1.7 +++ rpl/lapack/lapack/zunmrz.f 2011/07/22 07:38:22 1.8 @@ -1,10 +1,10 @@ SUBROUTINE ZUNMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2007 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -268,19 +268,19 @@ * IF( LEFT ) THEN * -* H or H' is applied to C(i:m,1:n) +* H or H**H is applied to C(i:m,1:n) * MI = M - I + 1 IC = I ELSE * -* H or H' is applied to C(1:m,i:n) +* H or H**H is applied to C(1:m,i:n) * NI = N - I + 1 JC = I END IF * -* Apply H or H' +* Apply H or H**H * CALL ZLARZB( SIDE, TRANST, 'Backward', 'Rowwise', MI, NI, $ IB, L, A( I, JA ), LDA, T, LDT, C( IC, JC ),