rpl/lapack/lapack/iladlr.f - diff

Return to iladlr.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.10, 2011/11/21 20:43:07	version 1.15, 2012/12/14 14:22:43
Line 1	Line 1
*> \brief \b ILADLR	*> \brief \b ILADLR scans a matrix for its last non-zero row.
*	*
* =========== DOCUMENTATION ===========	* =========== DOCUMENTATION ===========
*	*
Line 71	Line 71
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date November 2011	*> \date September 2012
*	*
*> \ingroup auxOTHERauxiliary	*> \ingroup auxOTHERauxiliary
*	*
* =====================================================================	* =====================================================================
INTEGER FUNCTION ILADLR( M, N, A, LDA )	INTEGER FUNCTION ILADLR( M, N, A, LDA )
*	*
* -- LAPACK auxiliary routine (version 3.4.0) --	* -- LAPACK auxiliary routine (version 3.4.2) --
* -- 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	* September 2012
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
INTEGER M, N, LDA	INTEGER M, N, LDA
Line 111	Line 111
ILADLR = 0	ILADLR = 0
DO J = 1, N	DO J = 1, N
I=M	I=M
DO WHILE ((A(I,J).NE.ZERO).AND.(I.GE.1))	DO WHILE((A(MAX(I,1),J).EQ.ZERO).AND.(I.GE.1))
I=I-1	I=I-1
IF (I.EQ.0) THEN
EXIT
END IF
ENDDO	ENDDO
ILADLR = MAX( ILADLR, I )	ILADLR = MAX( ILADLR, I )
END DO	END DO