File:  [local] / rpl / lapack / lapack / iladlc.f
Revision 1.12: download - view: text, annotated - select for diffs - revision graph
Wed Aug 22 09:48:28 2012 UTC (11 years, 8 months ago) by bertrand
Branches: MAIN
CVS tags: rpl-4_1_9, rpl-4_1_10, HEAD
Cohérence

    1: *> \brief \b ILADLC
    2: *
    3: *  =========== DOCUMENTATION ===========
    4: *
    5: * Online html documentation available at 
    6: *            http://www.netlib.org/lapack/explore-html/ 
    7: *
    8: *> \htmlonly
    9: *> Download ILADLC + dependencies 
   10: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/iladlc.f"> 
   11: *> [TGZ]</a> 
   12: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/iladlc.f"> 
   13: *> [ZIP]</a> 
   14: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/iladlc.f"> 
   15: *> [TXT]</a>
   16: *> \endhtmlonly 
   17: *
   18: *  Definition:
   19: *  ===========
   20: *
   21: *       INTEGER FUNCTION ILADLC( M, N, A, LDA )
   22:    23: *       .. Scalar Arguments ..
   24: *       INTEGER            M, N, LDA
   25: *       ..
   26: *       .. Array Arguments ..
   27: *       DOUBLE PRECISION   A( LDA, * )
   28: *       ..
   29: *  
   30: *
   31: *> \par Purpose:
   32: *  =============
   33: *>
   34: *> \verbatim
   35: *>
   36: *> ILADLC scans A for its last non-zero column.
   37: *> \endverbatim
   38: *
   39: *  Arguments:
   40: *  ==========
   41: *
   42: *> \param[in] M
   43: *> \verbatim
   44: *>          M is INTEGER
   45: *>          The number of rows of the matrix A.
   46: *> \endverbatim
   47: *>
   48: *> \param[in] N
   49: *> \verbatim
   50: *>          N is INTEGER
   51: *>          The number of columns of the matrix A.
   52: *> \endverbatim
   53: *>
   54: *> \param[in] A
   55: *> \verbatim
   56: *>          A is DOUBLE PRECISION array, dimension (LDA,N)
   57: *>          The m by n matrix A.
   58: *> \endverbatim
   59: *>
   60: *> \param[in] LDA
   61: *> \verbatim
   62: *>          LDA is INTEGER
   63: *>          The leading dimension of the array A. LDA >= max(1,M).
   64: *> \endverbatim
   65: *
   66: *  Authors:
   67: *  ========
   68: *
   69: *> \author Univ. of Tennessee 
   70: *> \author Univ. of California Berkeley 
   71: *> \author Univ. of Colorado Denver 
   72: *> \author NAG Ltd. 
   73: *
   74: *> \date November 2011
   75: *
   76: *> \ingroup auxOTHERauxiliary
   77: *
   78: *  =====================================================================
   79:       INTEGER FUNCTION ILADLC( M, N, A, LDA )
   80: *
   81: *  -- LAPACK auxiliary routine (version 3.4.0) --
   82: *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
   83: *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
   84: *     November 2011
   85: *
   86: *     .. Scalar Arguments ..
   87:       INTEGER            M, N, LDA
   88: *     ..
   89: *     .. Array Arguments ..
   90:       DOUBLE PRECISION   A( LDA, * )
   91: *     ..
   92: *
   93: *  =====================================================================
   94: *
   95: *     .. Parameters ..
   96:       DOUBLE PRECISION ZERO
   97:       PARAMETER ( ZERO = 0.0D+0 )
   98: *     ..
   99: *     .. Local Scalars ..
  100:       INTEGER I
  101: *     ..
  102: *     .. Executable Statements ..
  103: *
  104: *     Quick test for the common case where one corner is non-zero.
  105:       IF( N.EQ.0 ) THEN
  106:          ILADLC = N
  107:       ELSE IF( A(1, N).NE.ZERO .OR. A(M, N).NE.ZERO ) THEN
  108:          ILADLC = N
  109:       ELSE
  110: *     Now scan each column from the end, returning with the first non-zero.
  111:          DO ILADLC = N, 1, -1
  112:             DO I = 1, M
  113:                IF( A(I, ILADLC).NE.ZERO ) RETURN
  114:             END DO
  115:          END DO
  116:       END IF
  117:       RETURN
  118:       END

CVSweb interface <joel.bertrand@systella.fr>