rpl/lapack/lapack/dormql.f - diff

Return to dormql.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.7, 2010/12/21 13:53:35	version 1.8, 2011/07/22 07:38:09
Line 1	Line 1
SUBROUTINE DORMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC,	SUBROUTINE DORMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC,
$ WORK, LWORK, INFO )	$ 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 ..
CHARACTER SIDE, TRANS	CHARACTER SIDE, TRANS
Line 237	Line 237
$ A( 1, I ), LDA, TAU( I ), T, LDT )	$ A( 1, I ), LDA, TAU( I ), T, LDT )
IF( LEFT ) THEN	IF( LEFT ) THEN
*	*
* H or H' is applied to C(1:m-k+i+ib-1,1:n)	* H or H**T is applied to C(1:m-k+i+ib-1,1:n)
*	*
MI = M - K + I + IB - 1	MI = M - K + I + IB - 1
ELSE	ELSE
*	*
* H or H' is applied to C(1:m,1:n-k+i+ib-1)	* H or H**T is applied to C(1:m,1:n-k+i+ib-1)
*	*
NI = N - K + I + IB - 1	NI = N - K + I + IB - 1
END IF	END IF
*	*
* Apply H or H'	* Apply H or H**T
*	*
CALL DLARFB( SIDE, TRANS, 'Backward', 'Columnwise', MI, NI,	CALL DLARFB( SIDE, TRANS, 'Backward', 'Columnwise', MI, NI,
$ IB, A( 1, I ), LDA, T, LDT, C, LDC, WORK,	$ IB, A( 1, I ), LDA, T, LDT, C, LDC, WORK,