rpl/lapack/lapack/dlaqp2.f - diff

Return to dlaqp2.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.14, 2012/12/14 14:22:34	version 1.15, 2014/01/27 09:24:34
Line 122	Line 122
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date September 2012	*> \date November 2013
*	*
*> \ingroup doubleOTHERauxiliary	*> \ingroup doubleOTHERauxiliary
*	*
Line 149	Line 149
SUBROUTINE DLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2,	SUBROUTINE DLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2,
$ WORK )	$ WORK )
*	*
* -- LAPACK auxiliary routine (version 3.4.2) --	* -- LAPACK auxiliary routine (version 3.5.0) --
* -- 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	* November 2013
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
INTEGER LDA, M, N, OFFSET	INTEGER LDA, M, N, OFFSET
Line 217	Line 217
CALL DLARFG( 1, A( M, I ), A( M, I ), 1, TAU( I ) )	CALL DLARFG( 1, A( M, I ), A( M, I ), 1, TAU( I ) )
END IF	END IF
*	*
IF( I.LE.N ) THEN	IF( I.LT.N ) THEN
*	*
* Apply H(i)**T to A(offset+i:m,i+1:n) from the left.	* Apply H(i)**T to A(offset+i:m,i+1:n) from the left.
*	*