diff options
| -rw-r--r-- | math/lapack/files/patch-r1097 | 52 | ||||
| -rw-r--r-- | math/lapack/files/patch-r1099 | 76 |
2 files changed, 128 insertions, 0 deletions
diff --git a/math/lapack/files/patch-r1097 b/math/lapack/files/patch-r1097 new file mode 100644 index 000000000000..2e51690163c2 --- /dev/null +++ b/math/lapack/files/patch-r1097 @@ -0,0 +1,52 @@ +Index: TESTING/LIN/cdrvsyx.f +=================================================================== +--- TESTING/LIN/cdrvsyx.f (revision 1096) ++++ TESTING/LIN/cdrvsyx.f (revision 1097) +@@ -620,7 +620,7 @@ + $ LDA, IWORK, EQUED, WORK( N+1 ), B, LDA, X, + $ LDA, RCOND, RPVGRW_SVXX, BERR, N_ERR_BNDS, + $ ERRBNDS_N, ERRBNDS_C, 0, ZERO, WORK, +- $ IWORK( N+1 ), INFO ) ++ $ RWORK, INFO ) + * + * Adjust the expected value of INFO to account for + * pivoting. +Index: TESTING/LIN/zdrvhex.f +=================================================================== +--- TESTING/LIN/zdrvhex.f (revision 1096) ++++ TESTING/LIN/zdrvhex.f (revision 1097) +@@ -614,7 +614,7 @@ + $ LDA, IWORK, EQUED, WORK( N+1 ), B, LDA, X, + $ LDA, RCOND, RPVGRW_SVXX, BERR, N_ERR_BNDS, + $ ERRBNDS_N, ERRBNDS_C, 0, ZERO, WORK, +- $ IWORK( N+1 ), INFO ) ++ $ RWORK, INFO ) + * + * Adjust the expected value of INFO to account for + * pivoting. +Index: TESTING/LIN/cdrvhex.f +=================================================================== +--- TESTING/LIN/cdrvhex.f (revision 1096) ++++ TESTING/LIN/cdrvhex.f (revision 1097) +@@ -614,7 +614,7 @@ + $ LDA, IWORK, EQUED, WORK( N+1 ), B, LDA, X, + $ LDA, RCOND, RPVGRW_SVXX, BERR, N_ERR_BNDS, + $ ERRBNDS_N, ERRBNDS_C, 0, ZERO, WORK, +- $ IWORK( N+1 ), INFO ) ++ $ RWORK, INFO ) + * + * Adjust the expected value of INFO to account for + * pivoting. +Index: TESTING/LIN/zdrvsyx.f +=================================================================== +--- TESTING/LIN/zdrvsyx.f (revision 1096) ++++ TESTING/LIN/zdrvsyx.f (revision 1097) +@@ -620,7 +620,7 @@ + $ LDA, IWORK, EQUED, WORK( N+1 ), B, LDA, X, + $ LDA, RCOND, RPVGRW_SVXX, BERR, N_ERR_BNDS, + $ ERRBNDS_N, ERRBNDS_C, 0, ZERO, WORK, +- $ IWORK( N+1 ), INFO ) ++ $ RWORK, INFO ) + * + * Adjust the expected value of INFO to account for + * pivoting. diff --git a/math/lapack/files/patch-r1099 b/math/lapack/files/patch-r1099 new file mode 100644 index 000000000000..6f6a88530144 --- /dev/null +++ b/math/lapack/files/patch-r1099 @@ -0,0 +1,76 @@ +Index: SRC/ilazlr.f +=================================================================== +--- SRC/ilazlr.f (revision 1098) ++++ SRC/ilazlr.f (revision 1099) +@@ -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 +Index: SRC/ilaclr.f +=================================================================== +--- SRC/ilaclr.f (revision 1098) ++++ SRC/ilaclr.f (revision 1099) +@@ -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 +Index: SRC/ilaslr.f +=================================================================== +--- SRC/ilaslr.f (revision 1098) ++++ SRC/ilaslr.f (revision 1099) +@@ -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 +Index: SRC/iladlr.f +=================================================================== +--- SRC/iladlr.f (revision 1098) ++++ SRC/iladlr.f (revision 1099) +@@ -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 |