blob: 996199f83c417d90a726d2399daf7b51ad4b94cf (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
$NetBSD: patch-al,v 1.1.1.1 2000/11/28 02:17:02 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
|