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