rpl/lapack/lapack/zgerqf.f - diff

Return to zgerqf.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.6, 2010/08/13 21:04:03	version 1.8, 2011/07/22 07:38:14
Line 1	Line 1
SUBROUTINE ZGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO )	SUBROUTINE ZGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO )
*	*
* -- LAPACK routine (version 3.2) --	* -- LAPACK 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..--
* November 2006	* -- April 2011 --
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
INTEGER INFO, LDA, LWORK, M, N	INTEGER INFO, LDA, LWORK, M, N
Line 67	Line 67
*	*
* The matrix Q is represented as a product of elementary reflectors	* The matrix Q is represented as a product of elementary reflectors
*	*
* Q = H(1)' H(2)' . . . H(k)', where k = min(m,n).	* Q = H(1)H H(2)H . . . H(k)**H, where k = min(m,n).
*	*
* Each H(i) has the form	* Each H(i) has the form
*	*
* H(i) = I - tau * v * v'	* H(i) = I - tau * v * v**H
*	*
* where tau is a complex scalar, and v is a complex vector with	* where tau is a complex scalar, and v is a complex vector with
* v(n-k+i+1:n) = 0 and v(n-k+i) = 1; conjg(v(1:n-k+i-1)) is stored on	* v(n-k+i+1:n) = 0 and v(n-k+i) = 1; conjg(v(1:n-k+i-1)) is stored on