rpl/lapack/lapack/dgemqrt.f - diff

Return to dgemqrt.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.3, 2012/12/14 14:22:29	version 1.4, 2014/01/27 09:24:34
Line 160	Line 160
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date November 2011	*> \date November 2013
*	*
*> \ingroup doubleGEcomputational	*> \ingroup doubleGEcomputational
*	*
Line 168	Line 168
SUBROUTINE DGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT,	SUBROUTINE DGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT,
$ C, LDC, WORK, INFO )	$ C, LDC, WORK, INFO )
*	*
* -- LAPACK computational routine (version 3.4.0) --	* -- LAPACK computational 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..--
* November 2011	* November 2013
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
CHARACTER SIDE, TRANS	CHARACTER SIDE, TRANS
Line 225	Line 225
INFO = -4	INFO = -4
ELSE IF( K.LT.0 .OR. K.GT.Q ) THEN	ELSE IF( K.LT.0 .OR. K.GT.Q ) THEN
INFO = -5	INFO = -5
ELSE IF( NB.LT.1 .OR. NB.GT.K ) THEN	ELSE IF( NB.LT.1 .OR. (NB.GT.K .AND. K.GT.0)) THEN
INFO = -6	INFO = -6
ELSE IF( LDV.LT.MAX( 1, Q ) ) THEN	ELSE IF( LDV.LT.MAX( 1, Q ) ) THEN
INFO = -8	INFO = -8