rpl/lapack/lapack/zgeqrt3.f - diff

Return to zgeqrt3.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.5, 2014/01/27 09:28:32	version 1.6, 2016/08/27 15:27:12
Line 100	Line 100
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date September 2012	*> \date June 2016
*	*
*> \ingroup complex16GEcomputational	*> \ingroup complex16GEcomputational
*	*
Line 132	Line 132
* =====================================================================	* =====================================================================
RECURSIVE SUBROUTINE ZGEQRT3( M, N, A, LDA, T, LDT, INFO )	RECURSIVE SUBROUTINE ZGEQRT3( M, N, A, LDA, T, LDT, INFO )
*	*
* -- LAPACK computational routine (version 3.4.2) --	* -- LAPACK computational 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..--
* September 2012	* June 2016
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
INTEGER INFO, LDA, M, N, LDT	INTEGER INFO, LDA, M, N, LDT
Line 177	Line 177
*	*
* Compute Householder transform when N=1	* Compute Householder transform when N=1
*	*
CALL ZLARFG( M, A, A( MIN( 2, M ), 1 ), 1, T )	CALL ZLARFG( M, A(1,1), A( MIN( 2, M ), 1 ), 1, T(1,1) )
*	*
ELSE	ELSE
*	*