rpl/lapack/lapack/zlarft.f - diff

Return to zlarft.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.16, 2015/11/26 11:44:25	version 1.17, 2016/08/27 15:27:14
Line 130	Line 130
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date November 2015	*> \date June 2016
*	*
*> \ingroup complex16OTHERauxiliary	*> \ingroup complex16OTHERauxiliary
*	*
Line 163	Line 163
* =====================================================================	* =====================================================================
SUBROUTINE ZLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT )	SUBROUTINE ZLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT )
*	*
* -- LAPACK auxiliary routine (version 3.6.0) --	* -- LAPACK auxiliary routine (version 3.6.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 2015	* June 2016
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
CHARACTER DIRECT, STOREV	CHARACTER DIRECT, STOREV
Line 303	Line 303
*	*
CALL ZGEMM( 'N', 'C', K-I, 1, N-K+I-J, -TAU( I ),	CALL ZGEMM( 'N', 'C', K-I, 1, N-K+I-J, -TAU( I ),
$ V( I+1, J ), LDV, V( I, J ), LDV,	$ V( I+1, J ), LDV, V( I, J ), LDV,
$ ONE, T( I+1, I ), LDT )	$ ONE, T( I+1, I ), LDT )
END IF	END IF
*	*
* T(i+1:k,i) := T(i+1:k,i+1:k) * T(i+1:k,i)	* T(i+1:k,i) := T(i+1:k,i+1:k) * T(i+1:k,i)