LAPACK 3.12.0 LAPACK: Linear Algebra PACKage
Searching...
No Matches

## ◆ 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
Here is the call graph for this function:
Here is the caller graph for this function: