diff options
Diffstat (limited to 'SRC/ilaslr.f')
| -rw-r--r-- | SRC/ilaslr.f | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/SRC/ilaslr.f b/SRC/ilaslr.f index 285e51e1..2233f015 100644 --- a/SRC/ilaslr.f +++ b/SRC/ilaslr.f @@ -111,11 +111,8 @@ ILASLR = 0 DO J = 1, N I=M - DO WHILE ((A(I,J).NE.ZERO).AND.(I.GE.1)) - I=I-1 - IF (I.EQ.0) THEN - EXIT - END IF + DO WHILE((A(MAX(I,1),J).EQ.ZERO).AND.(I.GE.1)) + I=I-1 ENDDO ILASLR = MAX( ILASLR, I ) END DO |