$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