radix = 2 (not 16) for floats.

1 files changed, 38 insertions, 0 deletions

diff --git a/math/eispack/files/patch-aa b/math/eispack/files/patch-aa
new file mode 100644
index 000000000000..6d1dc23bfda3
--- /dev/null
+++ b/math/eispack/files/patch-aa
@@ -0,0 +1,38 @@
+*** balanc.f~	Sat Jan 28 00:00:00 1984
+--- balanc.f	Thu Nov 30 15:35:38 1995
+***************
+*** 57,63 ****
+  c
+  c     ------------------------------------------------------------------
+  c
+!       radix = 16.0d0
+  c
+        b2 = radix * radix
+        k = 1
+--- 57,63 ----
+  c
+  c     ------------------------------------------------------------------
+  c
+!       radix = 2.0d0
+  c
+        b2 = radix * radix
+        k = 1
+*** cbal.f~	Sat Jan 28 00:00:00 1984
+--- cbal.f	Thu Nov 30 15:36:01 1995
+***************
+*** 62,68 ****
+  c
+  c     ------------------------------------------------------------------
+  c
+!       radix = 16.0d0
+  c
+        b2 = radix * radix
+        k = 1
+--- 62,68 ----
+  c
+  c     ------------------------------------------------------------------
+  c
+!       radix = 2.0d0
+  c
+        b2 = radix * radix
+        k = 1