From c18ea946762a18b4e073937f3875a4d01fed8a42 Mon Sep 17 00:00:00 2001
From: maho <maho@FreeBSD.org>
Date: Sun, 22 Jan 2012 12:03:07 +0000
Subject: opps forgot to add some patches.

---
 math/lapack/files/patch-r1097 | 52 +++++++++++++++++++++++++++++
 math/lapack/files/patch-r1099 | 76 +++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 128 insertions(+)
 create mode 100644 math/lapack/files/patch-r1097
 create mode 100644 math/lapack/files/patch-r1099

(limited to 'math')

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
-- 
cgit