diff options
author | james <james@8a072113-8704-0410-8d35-dd094bca7971> | 2012-08-18 21:45:06 +0000 |
---|---|---|
committer | james <james@8a072113-8704-0410-8d35-dd094bca7971> | 2012-08-18 21:45:06 +0000 |
commit | ed86510324207b3d6b9065d8e38d5596ce34d7f3 (patch) | |
tree | 9935b3b772c97bf7538a0a9d7b28cfdb6cb86a6a /SRC/ilaclr.f | |
parent | 0cb0c77bb911dce9d61ae8a45d0ae833e8e957cc (diff) | |
download | lapack-ed86510324207b3d6b9065d8e38d5596ce34d7f3.tar.gz lapack-ed86510324207b3d6b9065d8e38d5596ce34d7f3.tar.bz2 lapack-ed86510324207b3d6b9065d8e38d5596ce34d7f3.zip |
reverting to previous version, which is correct
Diffstat (limited to 'SRC/ilaclr.f')
-rw-r--r-- | SRC/ilaclr.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/ilaclr.f b/SRC/ilaclr.f index 48d5735f..eb4a29b9 100644 --- a/SRC/ilaclr.f +++ b/SRC/ilaclr.f @@ -111,7 +111,7 @@ ILACLR = 0 DO J = 1, N I=M - DO WHILE((A(MAX(I,1),J).NE.ZERO).AND.(I.GE.1)) + DO WHILE((A(MAX(I,1),J).EQ.ZERO).AND.(I.GE.1)) I=I-1 ENDDO ILACLR = MAX( ILACLR, I ) |