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/ilazlr.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/ilazlr.f')
| -rw-r--r-- | SRC/ilazlr.f | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/SRC/ilazlr.f b/SRC/ilazlr.f index 0647ac8e..44902e4b 100644 --- a/SRC/ilazlr.f +++ b/SRC/ilazlr.f @@ -53,9 +53,12 @@ ILAZLR = 0 DO J = 1, N I=M - DO WHILE ((A(I,J).NE.ZERO).AND.(I.GE.1)) - I=I-1 - ENDDO + 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 ILAZLR = MAX( ILAZLR, I ) END DO END IF |