From ffa8b104c8a842905b7ae74b1fe95b636f5bd72f Mon Sep 17 00:00:00 2001 From: Jean-Marc Zucconi Date: Thu, 30 Nov 1995 15:16:20 +0000 Subject: radix = 2 (not 16) for floats. --- math/eispack/files/patch-aa | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 math/eispack/files/patch-aa (limited to 'math') 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 -- cgit v1.2.3