version 1.4, 2010/12/21 13:53:31
|
version 1.5, 2011/07/22 07:38:07
|
Line 1
|
Line 1
|
SUBROUTINE DLARFGP( N, ALPHA, X, INCX, TAU ) |
SUBROUTINE DLARFGP( N, ALPHA, X, INCX, TAU ) |
* |
* |
* -- LAPACK auxiliary routine (version 3.2.2) -- |
* -- LAPACK auxiliary routine (version 3.3.1) -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* June 2010 |
* -- April 2011 -- |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
INTEGER INCX, N |
INTEGER INCX, N |
Line 19
|
Line 19
|
* DLARFGP generates a real elementary reflector H of order n, such |
* DLARFGP generates a real elementary reflector H of order n, such |
* that |
* that |
* |
* |
* H * ( alpha ) = ( beta ), H' * H = I. |
* H * ( alpha ) = ( beta ), H**T * H = I. |
* ( x ) ( 0 ) |
* ( x ) ( 0 ) |
* |
* |
* where alpha and beta are scalars, beta is non-negative, and x is |
* where alpha and beta are scalars, beta is non-negative, and x is |
* an (n-1)-element real vector. H is represented in the form |
* an (n-1)-element real vector. H is represented in the form |
* |
* |
* H = I - tau * ( 1 ) * ( 1 v' ) , |
* H = I - tau * ( 1 ) * ( 1 v**T ) , |
* ( v ) |
* ( v ) |
* |
* |
* where tau is a real scalar and v is a real (n-1)-element |
* where tau is a real scalar and v is a real (n-1)-element |