diff options
| author | james <james@8a072113-8704-0410-8d35-dd094bca7971> | 2011-11-30 17:24:24 +0000 |
|---|---|---|
| committer | james <james@8a072113-8704-0410-8d35-dd094bca7971> | 2011-11-30 17:24:24 +0000 |
| commit | bcc9b0d09e5a5471072be7ca6f6697e744ca89d5 (patch) | |
| tree | f967122a99c5b8dabfe449d753c0c10c1010a7a8 /SRC | |
| parent | 19cd29a4fb155af830f6c7059c6c71dd356cfb9d (diff) | |
| download | lapack-bcc9b0d09e5a5471072be7ca6f6697e744ca89d5.tar.gz lapack-bcc9b0d09e5a5471072be7ca6f6697e744ca89d5.tar.bz2 lapack-bcc9b0d09e5a5471072be7ca6f6697e744ca89d5.zip | |
fixed bug.
Diffstat (limited to 'SRC')
| -rw-r--r-- | SRC/ilaclr.f | 9 | ||||
| -rw-r--r-- | SRC/iladlr.f | 7 | ||||
| -rw-r--r-- | SRC/ilaslr.f | 7 | ||||
| -rw-r--r-- | SRC/ilazlr.f | 9 |
4 files changed, 10 insertions, 22 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 diff --git a/SRC/iladlr.f b/SRC/iladlr.f index ef1aef54..218c711c 100644 --- a/SRC/iladlr.f +++ b/SRC/iladlr.f @@ -111,11 +111,8 @@ ILADLR = 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 ILADLR = MAX( ILADLR, I ) END DO 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 diff --git a/SRC/ilazlr.f b/SRC/ilazlr.f index 7fc1db24..dc5ceefd 100644 --- a/SRC/ilazlr.f +++ b/SRC/ilazlr.f @@ -111,12 +111,9 @@ ILAZLR = 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 ILAZLR = MAX( ILAZLR, I ) END DO END IF |