--- rpl/lapack/lapack/zlarfg.f 2010/12/21 13:53:51 1.7 +++ rpl/lapack/lapack/zlarfg.f 2011/07/22 07:38:17 1.8 @@ -1,9 +1,9 @@ SUBROUTINE ZLARFG( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary 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..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INCX, N @@ -19,13 +19,13 @@ * ZLARFG generates a complex elementary reflector H of order n, such * that * -* H' * ( alpha ) = ( beta ), H' * H = I. -* ( x ) ( 0 ) +* H**H * ( alpha ) = ( beta ), H**H * H = I. +* ( x ) ( 0 ) * * where alpha and beta are scalars, with beta real, and x is an * (n-1)-element complex vector. H is represented in the form * -* H = I - tau * ( 1 ) * ( 1 v' ) , +* H = I - tau * ( 1 ) * ( 1 v**H ) , * ( v ) * * where tau is a complex scalar and v is a complex (n-1)-element