rpl/lapack/lapack/zlatrz.f - diff

Return to zlatrz.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.4, 2010/08/06 15:32:47	version 1.5, 2010/08/07 13:18:09
Line 1	Line 1
SUBROUTINE ZLATRZ( M, N, L, A, LDA, TAU, WORK )	SUBROUTINE ZLATRZ( M, N, L, A, LDA, TAU, WORK )
*	*
* -- LAPACK routine (version 3.2) --	* -- LAPACK routine (version 3.2.2) --
* -- 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	* June 2010
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
INTEGER L, LDA, M, N	INTEGER L, LDA, M, N
Line 91	Line 91
COMPLEX*16 ALPHA	COMPLEX*16 ALPHA
* ..	* ..
* .. External Subroutines ..	* .. External Subroutines ..
EXTERNAL ZLACGV, ZLARFP, ZLARZ	EXTERNAL ZLACGV, ZLARFG, ZLARZ
* ..	* ..
* .. Intrinsic Functions ..	* .. Intrinsic Functions ..
INTRINSIC DCONJG	INTRINSIC DCONJG
Line 116	Line 116
*	*
CALL ZLACGV( L, A( I, N-L+1 ), LDA )	CALL ZLACGV( L, A( I, N-L+1 ), LDA )
ALPHA = DCONJG( A( I, I ) )	ALPHA = DCONJG( A( I, I ) )
CALL ZLARFP( L+1, ALPHA, A( I, N-L+1 ), LDA, TAU( I ) )	CALL ZLARFG( L+1, ALPHA, A( I, N-L+1 ), LDA, TAU( I ) )
TAU( I ) = DCONJG( TAU( I ) )	TAU( I ) = DCONJG( TAU( I ) )
*	*
* Apply H(i) to A(1:i-1,i:n) from the right	* Apply H(i) to A(1:i-1,i:n) from the right