blob: 9a48fb104455ed9b6305c2189f2982d47e38e32d (
plain)
1
2
3
4
5
6
7
8
9
10
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
|
