$NetBSD$

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