1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
$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
@@ -1,5 +1,5 @@
SUBROUTINE CFFTB1 (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
--- 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)
|
