diff options
author | jtb <jtb@pkgsrc.org> | 2001-01-22 23:30:01 +0000 |
---|---|---|
committer | jtb <jtb@pkgsrc.org> | 2001-01-22 23:30:01 +0000 |
commit | 16441ea3917bf5ff23158b65aabcd939b0342780 (patch) | |
tree | 2626c2011745ffc74684e4eeb27543e2ad7aa88e /math/fftpack/patches | |
parent | 39e5bd2d7c70faea8d2f34f5aa33d690dfb56c1f (diff) | |
download | pkgsrc-16441ea3917bf5ff23158b65aabcd939b0342780.tar.gz |
Roll the 13 trivial patches into one (save some inodes!). Clean it up a bit.
Diffstat (limited to 'math/fftpack/patches')
-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 |
13 files changed, 123 insertions, 135 deletions
diff --git a/math/fftpack/patches/patch-aa b/math/fftpack/patches/patch-aa index 8e9e8756d07..2911a34210a 100644 --- a/math/fftpack/patches/patch-aa +++ b/math/fftpack/patches/patch-aa @@ -1,4 +1,4 @@ -$NetBSD: patch-aa,v 1.1.1.1 2000/11/28 02:17:03 jtb Exp $ +$NetBSD: patch-aa,v 1.2 2001/01/22 23:30:02 jtb Exp $ --- cfftb1.f.orig Fri Nov 17 16:48:23 2000 +++ cfftb1.f @@ -9,3 +9,125 @@ $NetBSD: patch-aa,v 1.1.1.1 2000/11/28 02:17:03 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 deleted file mode 100644 index f617a4e5259..00000000000 --- a/math/fftpack/patches/patch-ab +++ /dev/null @@ -1,11 +0,0 @@ -$NetBSD: patch-ab,v 1.1.1.1 2000/11/28 02:17:03 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 deleted file mode 100644 index 39f46278ec5..00000000000 --- a/math/fftpack/patches/patch-ac +++ /dev/null @@ -1,11 +0,0 @@ -$NetBSD: patch-ac,v 1.1.1.1 2000/11/28 02:17:03 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 deleted file mode 100644 index 6028dc059c9..00000000000 --- a/math/fftpack/patches/patch-ad +++ /dev/null @@ -1,11 +0,0 @@ -$NetBSD: patch-ad,v 1.1.1.1 2000/11/28 02:17:03 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 deleted file mode 100644 index 59df70ffbb2..00000000000 --- a/math/fftpack/patches/patch-ae +++ /dev/null @@ -1,11 +0,0 @@ -$NetBSD: patch-ae,v 1.1.1.1 2000/11/28 02:17:03 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 deleted file mode 100644 index b2ead1bb56b..00000000000 --- a/math/fftpack/patches/patch-af +++ /dev/null @@ -1,11 +0,0 @@ -$NetBSD: patch-af,v 1.1.1.1 2000/11/28 02:17:03 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 deleted file mode 100644 index 94984780262..00000000000 --- a/math/fftpack/patches/patch-ag +++ /dev/null @@ -1,11 +0,0 @@ -$NetBSD: patch-ag,v 1.1.1.1 2000/11/28 02:17:03 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 deleted file mode 100644 index 682ba905388..00000000000 --- a/math/fftpack/patches/patch-ah +++ /dev/null @@ -1,11 +0,0 @@ -$NetBSD: patch-ah,v 1.1.1.1 2000/11/28 02:17:03 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 deleted file mode 100644 index 8de5ce8db6e..00000000000 --- a/math/fftpack/patches/patch-ai +++ /dev/null @@ -1,13 +0,0 @@ -$NetBSD: patch-ai,v 1.1.1.1 2000/11/28 02:17:03 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 deleted file mode 100644 index 579c44604fc..00000000000 --- a/math/fftpack/patches/patch-aj +++ /dev/null @@ -1,11 +0,0 @@ -$NetBSD: patch-aj,v 1.1.1.1 2000/11/28 02:17:02 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 deleted file mode 100644 index 503446b7e6d..00000000000 --- a/math/fftpack/patches/patch-ak +++ /dev/null @@ -1,11 +0,0 @@ -$NetBSD: patch-ak,v 1.1.1.1 2000/11/28 02:17:03 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 deleted file mode 100644 index 996199f83c4..00000000000 --- a/math/fftpack/patches/patch-al +++ /dev/null @@ -1,11 +0,0 @@ -$NetBSD: patch-al,v 1.1.1.1 2000/11/28 02:17:02 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 deleted file mode 100644 index b2e778b9799..00000000000 --- a/math/fftpack/patches/patch-am +++ /dev/null @@ -1,11 +0,0 @@ -$NetBSD: patch-am,v 1.1.1.1 2000/11/28 02:17:02 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) |