1 files changed, 81 insertions, 0 deletions
diff --git a/math/lapack/files/patch-r1138 b/math/lapack/files/patch-r1138
new file mode 100644
index 000000000000..9d42c9b6bb7f
--- /dev/null
+++ b/math/lapack/files/patch-r1138
@@ -0,0 +1,81 @@
+Index: INSTALL/dlamchf77.f
+===================================================================
+--- INSTALL/dlamchf77.f	(revision 1137)
++++ INSTALL/dlamchf77.f	(revision 1138)
+@@ -71,35 +71,6 @@
+ *     .. Scalar Arguments ..
+       CHARACTER          CMACH
+ *     ..
+-*
+-*     .. Scalar Arguments ..
+-      LOGICAL            IEEE1, RND
+-      INTEGER            BETA, T
+-*     ..
+-*
+-*     .. Scalar Arguments ..
+-      LOGICAL            RND
+-      INTEGER            BETA, EMAX, EMIN, T
+-      DOUBLE PRECISION   EPS, RMAX, RMIN
+-*     ..
+-*
+-*     .. Scalar Arguments ..
+-      DOUBLE PRECISION   A, B
+-*     ..
+-*
+-*     .. Scalar Arguments ..
+-      INTEGER            BASE, EMIN
+-      DOUBLE PRECISION   START
+-*     ..
+-*
+-*     .. Scalar Arguments ..
+-      LOGICAL            IEEE
+-      INTEGER            BETA, EMAX, EMIN, P
+-      DOUBLE PRECISION   RMAX
+-*     ..
+-*
+-* =====================================================================
+-*
+ *     .. Parameters ..
+       DOUBLE PRECISION   ONE, ZERO
+       PARAMETER          ( ONE = 1.0D+0, ZERO = 0.0D+0 )
+Index: INSTALL/slamchf77.f
+===================================================================
+--- INSTALL/slamchf77.f	(revision 1137)
++++ INSTALL/slamchf77.f	(revision 1138)
+@@ -75,36 +75,6 @@
+ *     .. Scalar Arguments ..
+       CHARACTER          CMACH
+ *     ..
+-*
+-*     .. Scalar Arguments ..
+-      LOGICAL            IEEE1, RND
+-      INTEGER            BETA, T
+-*     ..
+-*
+-*     .. Scalar Arguments ..
+-      LOGICAL            RND
+-      INTEGER            BETA, EMAX, EMIN, T
+-      REAL               EPS, RMAX, RMIN
+-*     ..
+-*
+-*     .. Scalar Arguments ..
+-      REAL               A, B
+-*     ..
+-*
+-*     .. Scalar Arguments ..
+-      INTEGER            BASE
+-      INTEGER            EMIN
+-      REAL               START
+-*     ..
+-*
+-*     .. Scalar Arguments ..
+-      LOGICAL            IEEE
+-      INTEGER            BETA, EMAX, EMIN, P
+-      REAL               RMAX
+-*     ..
+-*
+-* =====================================================================
+-*
+ *     .. Parameters ..
+       REAL               ONE, ZERO
+       PARAMETER          ( ONE = 1.0E+0, ZERO = 0.0E+0 )