ilaslc()

integer function ilaslc	(	integer	m,
		integer	n,
		real, dimension( lda, * )	a,
		integer	lda )

ILASLC scans a matrix for its last non-zero column.

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

Purpose:

!>
!> ILASLC scans A for its last non-zero column.
!> 

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). !>

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Definition at line 75 of file ilaslc.f.

*
*  -- LAPACK auxiliary routine --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*
*     .. Scalar Arguments ..
      INTEGER            M, N, LDA
*     ..
*     .. Array Arguments ..
      REAL               A( LDA, * )
*     ..
*
*  =====================================================================
*
*     .. Parameters ..
      REAL             ZERO
      parameter( zero = 0.0e+0 )
*     ..
*     .. Local Scalars ..
      INTEGER I
*     ..
*     .. Executable Statements ..
*
*     Quick test for the common case where one corner is non-zero.
      IF( n.EQ.0 ) THEN
         ilaslc = n
      ELSE IF( a(1, n).NE.zero .OR. a(m, n).NE.zero ) THEN
         ilaslc = n
      ELSE
*     Now scan each column from the end, returning with the first non-zero.
         DO ilaslc = n, 1, -1
            DO i = 1, m
               IF( a(i, ilaslc).NE.zero ) RETURN
            END DO
         END DO
      END IF
      RETURN

Here is the call graph for this function:

Here is the caller graph for this function: