version 1.10, 2011/11/21 20:43:07
|
version 1.12, 2012/07/31 11:06:37
|
Line 71
|
Line 71
|
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date November 2011 |
*> \date April 2012 |
* |
* |
*> \ingroup complex16OTHERauxiliary |
*> \ingroup complex16OTHERauxiliary |
* |
* |
* ===================================================================== |
* ===================================================================== |
INTEGER FUNCTION ILAZLR( M, N, A, LDA ) |
INTEGER FUNCTION ILAZLR( M, N, A, LDA ) |
* |
* |
* -- LAPACK auxiliary routine (version 3.4.0) -- |
* -- LAPACK auxiliary routine (version 3.4.1) -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* November 2011 |
* April 2012 |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
INTEGER M, N, LDA |
INTEGER M, N, LDA |
Line 111
|
Line 111
|
ILAZLR = 0 |
ILAZLR = 0 |
DO J = 1, N |
DO J = 1, N |
I=M |
I=M |
DO WHILE ((A(I,J).NE.ZERO).AND.(I.GE.1)) |
DO WHILE((A(MAX(I,1),J).EQ.ZERO).AND.(I.GE.1)) |
I=I-1 |
I=I-1 |
IF (I.EQ.0) THEN |
ENDDO |
EXIT |
|
END IF |
|
ENDDO |
|
ILAZLR = MAX( ILAZLR, I ) |
ILAZLR = MAX( ILAZLR, I ) |
END DO |
END DO |
END IF |
END IF |