diff options
author | jtb <jtb@pkgsrc.org> | 2001-01-23 20:55:44 +0000 |
---|---|---|
committer | jtb <jtb@pkgsrc.org> | 2001-01-23 20:55:44 +0000 |
commit | 37bc2bdbb26b7030c97223d63c09c054f21d2cf8 (patch) | |
tree | 2a759438f9749b77f4ac2d8d52021abf8590def9 /math/fftpack/patches | |
parent | e3ab3aba586a274ffd6d546fc8e2d28153106782 (diff) | |
download | pkgsrc-37bc2bdbb26b7030c97223d63c09c054f21d2cf8.tar.gz |
Use one patch per file, undoing previous change.
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, 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) |