rpl/lapack/lapack/ilazlr.f - diff

Return to ilazlr.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.8, 2010/12/21 13:53:41	version 1.9, 2011/07/22 07:38:13
Line 1	Line 1
INTEGER FUNCTION ILAZLR( M, N, A, LDA )	INTEGER FUNCTION ILAZLR( M, N, A, LDA )
IMPLICIT NONE	IMPLICIT NONE
*	*
* -- LAPACK auxiliary routine (version 3.2.2) --	* -- LAPACK auxiliary routine (version 3.3.1) --
*
* -- June 2010 --
*
* -- 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 2011 --
* .. Scalar Arguments ..	* .. Scalar Arguments ..
INTEGER M, N, LDA	INTEGER M, N, LDA
* ..	* ..
Line 55	Line 52
* Scan up each column tracking the last zero row seen.	* Scan up each column tracking the last zero row seen.
ILAZLR = 0	ILAZLR = 0
DO J = 1, N	DO J = 1, N
DO I = M, 1, -1	I=M
IF( A(I, J).NE.ZERO ) EXIT	DO WHILE ((A(I,J).NE.ZERO).AND.(I.GE.1))
END DO	I=I-1
	ENDDO
ILAZLR = MAX( ILAZLR, I )	ILAZLR = MAX( ILAZLR, I )
END DO	END DO
END IF	END IF