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/iladlr.f | |
| parent | 0cb0c77bb911dce9d61ae8a45d0ae833e8e957cc (diff) | |
reverting to previous version, which is correct
Diffstat (limited to 'SRC/iladlr.f')
| -rw-r--r-- | SRC/iladlr.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/iladlr.f b/SRC/iladlr.f index 2560b12d..630483f8 100644 --- a/SRC/iladlr.f +++ b/SRC/iladlr.f @@ -111,7 +111,7 @@ ILADLR = 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 ILADLR = MAX( ILADLR, I ) |