diff options
| author | james <james@8a072113-8704-0410-8d35-dd094bca7971> | 2011-03-03 20:04:03 +0000 |
|---|---|---|
| committer | james <james@8a072113-8704-0410-8d35-dd094bca7971> | 2011-03-03 20:04:03 +0000 |
| commit | c72cd03194c16c5c877e7d756fdabc54472d0fcb (patch) | |
| tree | bffb6ecdf4dd4d0e4694a1fc2a570fa7a9c72787 /SRC/ilaslr.f | |
| parent | 80d82798412c706fdabcab07a61198a0c3db0b94 (diff) | |
| download | lapack-c72cd03194c16c5c877e7d756fdabc54472d0fcb.tar.gz lapack-c72cd03194c16c5c877e7d756fdabc54472d0fcb.tar.bz2 lapack-c72cd03194c16c5c877e7d756fdabc54472d0fcb.zip | |
replaced "do/exit" scan logic with do while loop
fixes bug0075 and bug0035
Diffstat (limited to 'SRC/ilaslr.f')
| -rw-r--r-- | SRC/ilaslr.f | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/SRC/ilaslr.f b/SRC/ilaslr.f index b3b71951..32b2dfa8 100644 --- a/SRC/ilaslr.f +++ b/SRC/ilaslr.f @@ -55,9 +55,10 @@ * Scan up each column tracking the last zero row seen. ILASLR = 0 DO J = 1, N - DO I = M, 1, -1 - IF( A(I, J).NE.ZERO ) EXIT - END DO + I=M + DO WHILE ((A(I,J).NE.ZERO).AND.(I.GE.1)) + I=I-1 + ENDDO ILASLR = MAX( ILASLR, I ) END DO END IF |