11 lines
372 B
Text
11 lines
372 B
Text
$NetBSD: patch-ah,v 1.3 2001/01/23 20:55:45 jtb Exp $
|
|
|
|
--- ezfftb.f.orig Fri Nov 17 16:48:23 2000
|
|
+++ ezfftb.f
|
|
@@ -1,5 +1,5 @@
|
|
SUBROUTINE EZFFTB (N,R,AZERO,A,B,WSAVE)
|
|
- DIMENSION R(1) ,A(1) ,B(1) ,WSAVE(1)
|
|
+ DIMENSION R(*) ,A(1) ,B(1) ,WSAVE(1)
|
|
IF (N-2) 101,102,103
|
|
101 R(1) = AZERO
|
|
RETURN
|