mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-09-28 06:26:12 -04:00
12 lines
351 B
Plaintext
12 lines
351 B
Plaintext
$NetBSD: patch-aj,v 1.3 2001/01/23 20:55:45 jtb Exp $
|
|
|
|
--- 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
|