$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