blob: 3200b99bf27781af07f6c1432f85030002bc8247 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
$NetBSD: patch-ai,v 1.3 2001/01/23 20:55:45 jtb Exp $
--- ezfftf.f.orig Fri Nov 17 16:48:24 2000
+++ ezfftf.f
@@ -2,7 +2,7 @@
C
C VERSION 3 JUNE 1979
C
- DIMENSION R(1) ,A(1) ,B(1) ,WSAVE(1)
+ DIMENSION R(*) ,A(1) ,B(1) ,WSAVE(1)
IF (N-2) 101,102,103
101 AZERO = R(1)
RETURN
|