LAPACK  3.9.0 LAPACK: Linear Algebra PACKage

## ◆ ilaclr()

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

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

Purpose:
` ILACLR 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 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).```
Date
June 2017

Definition at line 80 of file ilaclr.f.

80 *
81 * -- LAPACK auxiliary routine (version 3.7.1) --
82 * -- LAPACK is a software package provided by Univ. of Tennessee, --
83 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
84 * June 2017
85 *
86 * .. Scalar Arguments ..
87  INTEGER M, N, LDA
88 * ..
89 * .. Array Arguments ..
90  COMPLEX A( LDA, * )
91 * ..
92 *
93 * =====================================================================
94 *
95 * .. Parameters ..
96  COMPLEX ZERO
97  parameter( zero = (0.0e+0, 0.0e+0) )
98 * ..
99 * .. Local Scalars ..
100  INTEGER I, J
101 * ..
102 * .. Executable Statements ..
103 *
104 * Quick test for the common case where one corner is non-zero.
105  IF( m.EQ.0 ) THEN
106  ilaclr = m
107  ELSE IF( a(m, 1).NE.zero .OR. a(m, n).NE.zero ) THEN
108  ilaclr = m
109  ELSE
110 * Scan up each column tracking the last zero row seen.
111  ilaclr = 0
112  DO j = 1, n
113  i=m
114  DO WHILE((a(max(i,1),j).EQ.zero).AND.(i.GE.1))
115  i=i-1
116  ENDDO
117  ilaclr = max( ilaclr, i )
118  END DO
119  END IF
120  RETURN
ilaclr
integer function ilaclr(M, N, A, LDA)
ILACLR scans a matrix for its last non-zero row.
Definition: ilaclr.f:80