 LAPACK  3.10.0 LAPACK: Linear Algebra PACKage

## ◆ ilaslr()

 integer function ilaslr ( integer M, integer N, real, dimension( lda, * ) A, integer LDA )

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

Purpose:
` ILASLR 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 REAL 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).```

Definition at line 77 of file ilaslr.f.

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