diff options
Diffstat (limited to 'SRC/ilaclr.f')
-rw-r--r-- | SRC/ilaclr.f | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/SRC/ilaclr.f b/SRC/ilaclr.f index 3d303c12..00281918 100644 --- a/SRC/ilaclr.f +++ b/SRC/ilaclr.f @@ -111,12 +111,9 @@ ILACLR = 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 - ENDDO + DO WHILE((A(MAX(I,1),J).EQ.ZERO).AND.(I.GE.1)) + I=I-1 + ENDDO ILACLR = MAX( ILACLR, I ) END DO END IF |