diff options
-rw-r--r-- | math/fftpack/files/patch-sum | 16 | ||||
-rw-r--r-- | math/fftpack/patches/patch-aa | 124 | ||||
-rw-r--r-- | math/fftpack/patches/patch-ab | 11 | ||||
-rw-r--r-- | math/fftpack/patches/patch-ac | 11 | ||||
-rw-r--r-- | math/fftpack/patches/patch-ad | 11 | ||||
-rw-r--r-- | math/fftpack/patches/patch-ae | 11 | ||||
-rw-r--r-- | math/fftpack/patches/patch-af | 11 | ||||
-rw-r--r-- | math/fftpack/patches/patch-ag | 11 | ||||
-rw-r--r-- | math/fftpack/patches/patch-ah | 11 | ||||
-rw-r--r-- | math/fftpack/patches/patch-ai | 13 | ||||
-rw-r--r-- | math/fftpack/patches/patch-aj | 11 | ||||
-rw-r--r-- | math/fftpack/patches/patch-ak | 11 | ||||
-rw-r--r-- | math/fftpack/patches/patch-al | 11 | ||||
-rw-r--r-- | math/fftpack/patches/patch-am | 11 |
14 files changed, 149 insertions, 125 deletions
diff --git a/math/fftpack/files/patch-sum b/math/fftpack/files/patch-sum index 9a69e1fc714..ba93bc3858c 100644 --- a/math/fftpack/files/patch-sum +++ b/math/fftpack/files/patch-sum @@ -1,3 +1,15 @@ -$NetBSD: patch-sum,v 1.2 2001/01/22 23:30:02 jtb Exp $ +$NetBSD: patch-sum,v 1.3 2001/01/23 20:55:44 jtb Exp $ -MD5 (patch-aa) = 3cc50a4e648fef18518a38cf2407c4f1 +MD5 (patch-aa) = 2ce242bf4f6517e26ebfe052478aeec9 +MD5 (patch-ab) = a22c8f5b2db45ab0158e99b06f3597c2 +MD5 (patch-ac) = a03c41bcc139ba8354f31a588ffb7fdc +MD5 (patch-ad) = 3696c86d63c5a3172b7c243dd5d0be55 +MD5 (patch-ae) = 25ffafb4fb407e377d87d9b724ac26ac +MD5 (patch-af) = 95fc40b0e2c4c40ab63a081200e1a437 +MD5 (patch-ag) = e6a00232fa52bebd03097bdde5adb9ee +MD5 (patch-ah) = 78c1dc78af77b77a4f230911c422549c +MD5 (patch-ai) = 200a7967826bf87d9b241fef609e05f7 +MD5 (patch-aj) = 640b261c2017e9e0d1be71aa0b9931d5 +MD5 (patch-ak) = e667ba2273c8c192e9d3b460b8d70802 +MD5 (patch-al) = 0640528d8710ee8e0da7cd1926553000 +MD5 (patch-am) = da441cdff0119b5d8dcee2b852f245c1 diff --git a/math/fftpack/patches/patch-aa b/math/fftpack/patches/patch-aa index 2911a34210a..018c01b8e0d 100644 --- a/math/fftpack/patches/patch-aa +++ b/math/fftpack/patches/patch-aa @@ -1,4 +1,4 @@ -$NetBSD: patch-aa,v 1.2 2001/01/22 23:30:02 jtb Exp $ +$NetBSD: patch-aa,v 1.3 2001/01/23 20:55:44 jtb Exp $ --- cfftb1.f.orig Fri Nov 17 16:48:23 2000 +++ cfftb1.f @@ -9,125 +9,3 @@ $NetBSD: patch-aa,v 1.2 2001/01/22 23:30:02 jtb Exp $ NF = IFAC(2) NA = 0 L1 = 1 - ---- cfftf1.f.orig Fri Nov 17 16:48:23 2000 -+++ cfftf1.f -@@ -1,5 +1,5 @@ - SUBROUTINE CFFTF1 (N,C,CH,WA,IFAC) -- DIMENSION CH(1) ,C(1) ,WA(1) ,IFAC(1) -+ DIMENSION CH(1) ,C(1) ,WA(1) ,IFAC(*) - NF = IFAC(2) - NA = 0 - L1 = 1 - ---- cffti1.f.orig Fri Nov 17 16:48:23 2000 -+++ cffti1.f -@@ -1,5 +1,5 @@ - SUBROUTINE CFFTI1 (N,WA,IFAC) -- DIMENSION WA(1) ,IFAC(1) ,NTRYH(4) -+ DIMENSION WA(1) ,IFAC(*) ,NTRYH(4) - DATA NTRYH(1),NTRYH(2),NTRYH(3),NTRYH(4)/3,4,2,5/ - NL = N - NF = 0 - ---- cosqb.f.orig Fri Nov 17 16:48:23 2000 -+++ cosqb.f -@@ -1,5 +1,5 @@ - SUBROUTINE COSQB (N,X,WSAVE) -- DIMENSION X(1) ,WSAVE(1) -+ DIMENSION X(*) ,WSAVE(1) - DATA TSQRT2 /2.82842712474619/ - IF (N-2) 101,102,103 - 101 X(1) = 4.*X(1) - ---- cosqf.f.orig Fri Nov 17 16:48:23 2000 -+++ cosqf.f -@@ -1,5 +1,5 @@ - SUBROUTINE COSQF (N,X,WSAVE) -- DIMENSION X(1) ,WSAVE(1) -+ DIMENSION X(*) ,WSAVE(1) - DATA SQRT2 /1.4142135623731/ - IF (N-2) 102,101,103 - 101 TSQX = SQRT2*X(2) - ---- cost.f.orig Fri Nov 17 16:48:23 2000 -+++ cost.f -@@ -1,5 +1,5 @@ - SUBROUTINE COST (N,X,WSAVE) -- DIMENSION X(1) ,WSAVE(1) -+ DIMENSION X(*) ,WSAVE(1) - NM1 = N-1 - NP1 = N+1 - NS2 = N/2 - ---- ezfft1.f.orig Fri Nov 17 16:48:23 2000 -+++ ezfft1.f -@@ -1,5 +1,5 @@ - SUBROUTINE EZFFT1 (N,WA,IFAC) -- DIMENSION WA(1) ,IFAC(1) ,NTRYH(4) -+ DIMENSION WA(1) ,IFAC(*) ,NTRYH(4) - DATA NTRYH(1),NTRYH(2),NTRYH(3),NTRYH(4)/4,2,3,5/ - 1 ,TPI/6.28318530717959/ - NL = N - ---- ezfftb.f.orig Fri Nov 17 16:48:23 2000 -+++ ezfftb.f -@@ -1,5 +1,5 @@ - SUBROUTINE EZFFTB (N,R,AZERO,A,B,WSAVE) -- DIMENSION R(1) ,A(1) ,B(1) ,WSAVE(1) -+ DIMENSION R(*) ,A(1) ,B(1) ,WSAVE(1) - IF (N-2) 101,102,103 - 101 R(1) = AZERO - RETURN - ---- ezfftf.f.orig Fri Nov 17 16:48:24 2000 -+++ ezfftf.f -@@ -2,7 +2,7 @@ - C - C VERSION 3 JUNE 1979 - C -- DIMENSION R(1) ,A(1) ,B(1) ,WSAVE(1) -+ DIMENSION R(*) ,A(1) ,B(1) ,WSAVE(1) - IF (N-2) 101,102,103 - 101 AZERO = R(1) - RETURN - ---- rfftb1.f.orig Fri Nov 17 16:48:24 2000 -+++ rfftb1.f -@@ -1,5 +1,5 @@ - SUBROUTINE RFFTB1 (N,C,CH,WA,IFAC) -- DIMENSION CH(1) ,C(1) ,WA(1) ,IFAC(1) -+ DIMENSION CH(1) ,C(1) ,WA(1) ,IFAC(*) - NF = IFAC(2) - NA = 0 - L1 = 1 - ---- rfftf1.f.orig Fri Nov 17 16:48:24 2000 -+++ rfftf1.f -@@ -1,5 +1,5 @@ - SUBROUTINE RFFTF1 (N,C,CH,WA,IFAC) -- DIMENSION CH(1) ,C(1) ,WA(1) ,IFAC(1) -+ DIMENSION CH(1) ,C(1) ,WA(1) ,IFAC(*) - NF = IFAC(2) - NA = 1 - L2 = N - ---- rffti1.f.orig Fri Nov 17 16:48:24 2000 -+++ rffti1.f -@@ -1,5 +1,5 @@ - SUBROUTINE RFFTI1 (N,WA,IFAC) -- DIMENSION WA(1) ,IFAC(1) ,NTRYH(4) -+ DIMENSION WA(1) ,IFAC(*) ,NTRYH(4) - DATA NTRYH(1),NTRYH(2),NTRYH(3),NTRYH(4)/4,2,3,5/ - NL = N - NF = 0 - ---- sint1.f.orig Fri Nov 17 16:48:24 2000 -+++ sint1.f -@@ -1,5 +1,5 @@ - SUBROUTINE SINT1(N,WAR,WAS,XH,X,IFAC) -- DIMENSION WAR(1),WAS(1),X(1),XH(1),IFAC(1) -+ DIMENSION WAR(1),WAS(1),X(1),XH(*),IFAC(1) - DATA SQRT3 /1.73205080756888/ - DO 100 I=1,N - XH(I) = WAR(I) diff --git a/math/fftpack/patches/patch-ab b/math/fftpack/patches/patch-ab new file mode 100644 index 00000000000..9a48fb10445 --- /dev/null +++ b/math/fftpack/patches/patch-ab @@ -0,0 +1,11 @@ +$NetBSD: patch-ab,v 1.3 2001/01/23 20:55:44 jtb Exp $ + +--- cfftf1.f.orig Fri Nov 17 16:48:23 2000 ++++ cfftf1.f +@@ -1,5 +1,5 @@ + SUBROUTINE CFFTF1 (N,C,CH,WA,IFAC) +- DIMENSION CH(1) ,C(1) ,WA(1) ,IFAC(1) ++ DIMENSION CH(1) ,C(1) ,WA(1) ,IFAC(*) + NF = IFAC(2) + NA = 0 + L1 = 1 diff --git a/math/fftpack/patches/patch-ac b/math/fftpack/patches/patch-ac new file mode 100644 index 00000000000..dbd447851ad --- /dev/null +++ b/math/fftpack/patches/patch-ac @@ -0,0 +1,11 @@ +$NetBSD: patch-ac,v 1.3 2001/01/23 20:55:44 jtb Exp $ + +--- cffti1.f.orig Fri Nov 17 16:48:23 2000 ++++ cffti1.f +@@ -1,5 +1,5 @@ + SUBROUTINE CFFTI1 (N,WA,IFAC) +- DIMENSION WA(1) ,IFAC(1) ,NTRYH(4) ++ DIMENSION WA(1) ,IFAC(*) ,NTRYH(4) + DATA NTRYH(1),NTRYH(2),NTRYH(3),NTRYH(4)/3,4,2,5/ + NL = N + NF = 0 diff --git a/math/fftpack/patches/patch-ad b/math/fftpack/patches/patch-ad new file mode 100644 index 00000000000..4b37c62182c --- /dev/null +++ b/math/fftpack/patches/patch-ad @@ -0,0 +1,11 @@ +$NetBSD: patch-ad,v 1.3 2001/01/23 20:55:44 jtb Exp $ + +--- cosqb.f.orig Fri Nov 17 16:48:23 2000 ++++ cosqb.f +@@ -1,5 +1,5 @@ + SUBROUTINE COSQB (N,X,WSAVE) +- DIMENSION X(1) ,WSAVE(1) ++ DIMENSION X(*) ,WSAVE(1) + DATA TSQRT2 /2.82842712474619/ + IF (N-2) 101,102,103 + 101 X(1) = 4.*X(1) diff --git a/math/fftpack/patches/patch-ae b/math/fftpack/patches/patch-ae new file mode 100644 index 00000000000..73ad068791f --- /dev/null +++ b/math/fftpack/patches/patch-ae @@ -0,0 +1,11 @@ +$NetBSD: patch-ae,v 1.3 2001/01/23 20:55:44 jtb Exp $ + +--- cosqf.f.orig Fri Nov 17 16:48:23 2000 ++++ cosqf.f +@@ -1,5 +1,5 @@ + SUBROUTINE COSQF (N,X,WSAVE) +- DIMENSION X(1) ,WSAVE(1) ++ DIMENSION X(*) ,WSAVE(1) + DATA SQRT2 /1.4142135623731/ + IF (N-2) 102,101,103 + 101 TSQX = SQRT2*X(2) diff --git a/math/fftpack/patches/patch-af b/math/fftpack/patches/patch-af new file mode 100644 index 00000000000..8a9d7be28fb --- /dev/null +++ b/math/fftpack/patches/patch-af @@ -0,0 +1,11 @@ +$NetBSD: patch-af,v 1.3 2001/01/23 20:55:44 jtb Exp $ + +--- cost.f.orig Fri Nov 17 16:48:23 2000 ++++ cost.f +@@ -1,5 +1,5 @@ + SUBROUTINE COST (N,X,WSAVE) +- DIMENSION X(1) ,WSAVE(1) ++ DIMENSION X(*) ,WSAVE(1) + NM1 = N-1 + NP1 = N+1 + NS2 = N/2 diff --git a/math/fftpack/patches/patch-ag b/math/fftpack/patches/patch-ag new file mode 100644 index 00000000000..de63381adc8 --- /dev/null +++ b/math/fftpack/patches/patch-ag @@ -0,0 +1,11 @@ +$NetBSD: patch-ag,v 1.3 2001/01/23 20:55:44 jtb Exp $ + +--- ezfft1.f.orig Fri Nov 17 16:48:23 2000 ++++ ezfft1.f +@@ -1,5 +1,5 @@ + SUBROUTINE EZFFT1 (N,WA,IFAC) +- DIMENSION WA(1) ,IFAC(1) ,NTRYH(4) ++ DIMENSION WA(1) ,IFAC(*) ,NTRYH(4) + DATA NTRYH(1),NTRYH(2),NTRYH(3),NTRYH(4)/4,2,3,5/ + 1 ,TPI/6.28318530717959/ + NL = N diff --git a/math/fftpack/patches/patch-ah b/math/fftpack/patches/patch-ah new file mode 100644 index 00000000000..d0a80f48edb --- /dev/null +++ b/math/fftpack/patches/patch-ah @@ -0,0 +1,11 @@ +$NetBSD: patch-ah,v 1.3 2001/01/23 20:55:45 jtb Exp $ + +--- ezfftb.f.orig Fri Nov 17 16:48:23 2000 ++++ ezfftb.f +@@ -1,5 +1,5 @@ + SUBROUTINE EZFFTB (N,R,AZERO,A,B,WSAVE) +- DIMENSION R(1) ,A(1) ,B(1) ,WSAVE(1) ++ DIMENSION R(*) ,A(1) ,B(1) ,WSAVE(1) + IF (N-2) 101,102,103 + 101 R(1) = AZERO + RETURN diff --git a/math/fftpack/patches/patch-ai b/math/fftpack/patches/patch-ai new file mode 100644 index 00000000000..3200b99bf27 --- /dev/null +++ b/math/fftpack/patches/patch-ai @@ -0,0 +1,13 @@ +$NetBSD: patch-ai,v 1.3 2001/01/23 20:55:45 jtb Exp $ + +--- ezfftf.f.orig Fri Nov 17 16:48:24 2000 ++++ ezfftf.f +@@ -2,7 +2,7 @@ + C + C VERSION 3 JUNE 1979 + C +- DIMENSION R(1) ,A(1) ,B(1) ,WSAVE(1) ++ DIMENSION R(*) ,A(1) ,B(1) ,WSAVE(1) + IF (N-2) 101,102,103 + 101 AZERO = R(1) + RETURN diff --git a/math/fftpack/patches/patch-aj b/math/fftpack/patches/patch-aj new file mode 100644 index 00000000000..dd70f0b05d2 --- /dev/null +++ b/math/fftpack/patches/patch-aj @@ -0,0 +1,11 @@ +$NetBSD: patch-aj,v 1.3 2001/01/23 20:55:45 jtb Exp $ + +--- rfftb1.f.orig Fri Nov 17 16:48:24 2000 ++++ rfftb1.f +@@ -1,5 +1,5 @@ + SUBROUTINE RFFTB1 (N,C,CH,WA,IFAC) +- DIMENSION CH(1) ,C(1) ,WA(1) ,IFAC(1) ++ DIMENSION CH(1) ,C(1) ,WA(1) ,IFAC(*) + NF = IFAC(2) + NA = 0 + L1 = 1 diff --git a/math/fftpack/patches/patch-ak b/math/fftpack/patches/patch-ak new file mode 100644 index 00000000000..41f3522f700 --- /dev/null +++ b/math/fftpack/patches/patch-ak @@ -0,0 +1,11 @@ +$NetBSD: patch-ak,v 1.3 2001/01/23 20:55:45 jtb Exp $ + +--- rfftf1.f.orig Fri Nov 17 16:48:24 2000 ++++ rfftf1.f +@@ -1,5 +1,5 @@ + SUBROUTINE RFFTF1 (N,C,CH,WA,IFAC) +- DIMENSION CH(1) ,C(1) ,WA(1) ,IFAC(1) ++ DIMENSION CH(1) ,C(1) ,WA(1) ,IFAC(*) + NF = IFAC(2) + NA = 1 + L2 = N diff --git a/math/fftpack/patches/patch-al b/math/fftpack/patches/patch-al new file mode 100644 index 00000000000..edcac695c52 --- /dev/null +++ b/math/fftpack/patches/patch-al @@ -0,0 +1,11 @@ +$NetBSD: patch-al,v 1.3 2001/01/23 20:55:45 jtb Exp $ + +--- rffti1.f.orig Fri Nov 17 16:48:24 2000 ++++ rffti1.f +@@ -1,5 +1,5 @@ + SUBROUTINE RFFTI1 (N,WA,IFAC) +- DIMENSION WA(1) ,IFAC(1) ,NTRYH(4) ++ DIMENSION WA(1) ,IFAC(*) ,NTRYH(4) + DATA NTRYH(1),NTRYH(2),NTRYH(3),NTRYH(4)/4,2,3,5/ + NL = N + NF = 0 diff --git a/math/fftpack/patches/patch-am b/math/fftpack/patches/patch-am new file mode 100644 index 00000000000..e962affc378 --- /dev/null +++ b/math/fftpack/patches/patch-am @@ -0,0 +1,11 @@ +$NetBSD: patch-am,v 1.3 2001/01/23 20:55:45 jtb Exp $ + +--- sint1.f.orig Fri Nov 17 16:48:24 2000 ++++ sint1.f +@@ -1,5 +1,5 @@ + SUBROUTINE SINT1(N,WAR,WAS,XH,X,IFAC) +- DIMENSION WAR(1),WAS(1),X(1),XH(1),IFAC(1) ++ DIMENSION WAR(1),WAS(1),X(1),XH(*),IFAC(1) + DATA SQRT3 /1.73205080756888/ + DO 100 I=1,N + XH(I) = WAR(I) |