summaryrefslogtreecommitdiff
path: root/math/fftpack/patches
diff options
context:
space:
mode:
Diffstat (limited to 'math/fftpack/patches')
-rw-r--r--math/fftpack/patches/patch-aa124
-rw-r--r--math/fftpack/patches/patch-ab11
-rw-r--r--math/fftpack/patches/patch-ac11
-rw-r--r--math/fftpack/patches/patch-ad11
-rw-r--r--math/fftpack/patches/patch-ae11
-rw-r--r--math/fftpack/patches/patch-af11
-rw-r--r--math/fftpack/patches/patch-ag11
-rw-r--r--math/fftpack/patches/patch-ah11
-rw-r--r--math/fftpack/patches/patch-ai13
-rw-r--r--math/fftpack/patches/patch-aj11
-rw-r--r--math/fftpack/patches/patch-ak11
-rw-r--r--math/fftpack/patches/patch-al11
-rw-r--r--math/fftpack/patches/patch-am11
13 files changed, 135 insertions, 123 deletions
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)
generated by cgit v1.2.3 (git 2.39.1) at 2025-03-08 03:02:58 +0000