$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