diff options
-rw-r--r-- | SRC/ilaclr.f | 2 | ||||
-rw-r--r-- | SRC/iladlr.f | 2 | ||||
-rw-r--r-- | SRC/ilaslr.f | 2 | ||||
-rw-r--r-- | SRC/ilazlr.f | 2 |
4 files changed, 4 insertions, 4 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 ) 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 ) diff --git a/SRC/ilaslr.f b/SRC/ilaslr.f index e660d15b..5efa7211 100644 --- a/SRC/ilaslr.f +++ b/SRC/ilaslr.f @@ -111,7 +111,7 @@ ILASLR = 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 ILASLR = MAX( ILASLR, I ) diff --git a/SRC/ilazlr.f b/SRC/ilazlr.f index 218ddedc..69c96df2 100644 --- a/SRC/ilazlr.f +++ b/SRC/ilazlr.f @@ -111,7 +111,7 @@ ILAZLR = 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 ILAZLR = MAX( ILAZLR, I ) |