diff options
| author | james <james@8a072113-8704-0410-8d35-dd094bca7971> | 2011-04-21 22:00:11 +0000 |
|---|---|---|
| committer | james <james@8a072113-8704-0410-8d35-dd094bca7971> | 2011-04-21 22:00:11 +0000 |
| commit | 654407606d8ff71a833a9e20016c18f5bd088bff (patch) | |
| tree | 7ac1cc2bd431e15557cb925781e9450d69e57776 /SRC/iladlr.f | |
| parent | 13397e1419d91674a5338397757a00293d676447 (diff) | |
| download | lapack-654407606d8ff71a833a9e20016c18f5bd088bff.tar.gz lapack-654407606d8ff71a833a9e20016c18f5bd088bff.tar.bz2 lapack-654407606d8ff71a833a9e20016c18f5bd088bff.zip | |
fixed problems with zero matrix and scan
Diffstat (limited to 'SRC/iladlr.f')
| -rw-r--r-- | SRC/iladlr.f | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/SRC/iladlr.f b/SRC/iladlr.f index dd4d37ca..e9f86a03 100644 --- a/SRC/iladlr.f +++ b/SRC/iladlr.f @@ -53,10 +53,13 @@ * Scan up each column tracking the last zero row seen. ILADLR = 0 DO J = 1, N - I=M - DO WHILE ((A(I,J).NE.ZERO).AND.(I.GE.1)) - I=I-1 + I = M + DO WHILE ((A(I,J).EQ.ZERO).AND.(I.GT.1)) + I=I-1 ENDDO + IF( (I.EQ.1).AND.(A(1,J).EQ.ZERO) ) THEN + I = 0 + END IF ILADLR = MAX( ILADLR, I ) END DO END IF |