integer function ilazlr	(	integer	M,
		integer	N,
		complex*16, dimension( lda, * )	A,
		integer	LDA
	)

ILAZLR scans a matrix for its last non-zero row.

Download ILAZLR + dependencies [TGZ] [ZIP] [TXT]

Purpose:

 ILAZLR scans A for its last non-zero row.

Parameters

[in]	M	M is INTEGER The number of rows of the matrix A.
[in]	N	N is INTEGER The number of columns of the matrix A.
[in]	A	A is COMPLEX*16 array, dimension (LDA,N) The m by n matrix A.
[in]	LDA	LDA is INTEGER The leading dimension of the array A. LDA >= max(1,M).

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date

September 2012

Definition at line 80 of file ilazlr.f.

*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            m, n, lda
*     ..
*     .. Array Arguments ..
      COMPLEX*16         a( lda, * )
*     ..
*
*  =====================================================================
*
*     .. Parameters ..
      COMPLEX*16       zero
      parameter( zero = (0.0d+0, 0.0d+0) )
*     ..
*     .. Local Scalars ..
      INTEGER i, j
*     ..
*     .. Executable Statements ..
*
*     Quick test for the common case where one corner is non-zero.
      IF( m.EQ.0 ) THEN
         ilazlr = m
      ELSE IF( a(m, 1).NE.zero .OR. a(m, n).NE.zero ) THEN
         ilazlr = m
      ELSE
*     Scan up each column tracking the last zero row seen.
         ilazlr = 0
         DO j = 1, n
            i=m
            DO WHILE((a(max(i,1),j).EQ.zero).AND.(i.GE.1))
               i=i-1
            ENDDO
            ilazlr = max( ilazlr, i )
         END DO
      END IF
      RETURN