rpl/lapack/lapack/dtpqrt.f - diff

Return to dtpqrt.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.3, 2012/12/14 14:22:42	version 1.4, 2014/01/27 09:24:35
Line 132	Line 132
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date April 2012	*> \date November 2013
*	*
*> \ingroup doubleOTHERcomputational	*> \ingroup doubleOTHERcomputational
*	*
Line 189	Line 189
SUBROUTINE DTPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK,	SUBROUTINE DTPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK,
$ INFO )	$ INFO )
*	*
* -- LAPACK computational routine (version 3.4.1) --	* -- 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..--
* April 2012	* November 2013
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LDT, N, M, L, NB	INTEGER INFO, LDA, LDB, LDT, N, M, L, NB
Line 219	Line 219
INFO = -1	INFO = -1
ELSE IF( N.LT.0 ) THEN	ELSE IF( N.LT.0 ) THEN
INFO = -2	INFO = -2
ELSE IF( L.LT.0 .OR. L.GT.MIN(M,N) ) THEN	ELSE IF( L.LT.0 .OR. (L.GT.MIN(M,N) .AND. MIN(M,N).GE.0)) THEN
INFO = -3	INFO = -3
ELSE IF( NB.LT.1 .OR. NB.GT.N ) THEN	ELSE IF( NB.LT.1 .OR. (NB.GT.N .AND. N.GT.0)) THEN
INFO = -4	INFO = -4
ELSE IF( LDA.LT.MAX( 1, N ) ) THEN	ELSE IF( LDA.LT.MAX( 1, N ) ) THEN
INFO = -6	INFO = -6