rpl/lapack/lapack/iladlr.f - diff

Return to iladlr.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 ILADLR( M, N, A, LDA )	INTEGER FUNCTION ILADLR( 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 53
* Scan up each column tracking the last zero row seen.	* Scan up each column tracking the last zero row seen.
ILADLR = 0	ILADLR = 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
ILADLR = MAX( ILADLR, I )	ILADLR = MAX( ILADLR, I )
END DO	END DO
END IF	END IF