kpriv/pkgsrc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Use one patch per file, undoing previous change.

Browse source
This commit is contained in:
jtb 2001-01-23 20:55:44 +00:00
parent e3ab3aba58
commit 37bc2bdbb2
14 changed files with 149 additions and 125 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
math/fftpack/files/patch-sum
View file

@ -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

124
math/fftpack/patches/patch-aa
View file

@ -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)

11
math/fftpack/patches/patch-ab Normal file
View file

@ -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

11
math/fftpack/patches/patch-ac Normal file
View file

@ -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

11
math/fftpack/patches/patch-ad Normal file
View file

@ -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)

11
math/fftpack/patches/patch-ae Normal file
View file

@ -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)

11
math/fftpack/patches/patch-af Normal file
View file

@ -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

11
math/fftpack/patches/patch-ag Normal file
View file

@ -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

11
math/fftpack/patches/patch-ah Normal file
View file

@ -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

13
math/fftpack/patches/patch-ai Normal file
View file

@ -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

11
math/fftpack/patches/patch-aj Normal file
View file

@ -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

11
math/fftpack/patches/patch-ak Normal file
View file

@ -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

11
math/fftpack/patches/patch-al Normal file
View file

@ -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

11
math/fftpack/patches/patch-am Normal file
View file

@ -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)