$NetBSD$

--- cost.f.orig	Fri Nov 17 16:48:23 2000
+++ cost.f
@@ -1,5 +1,5 @@
       SUBROUTINE COST (N,X,WSAVE)
-      DIMENSION       X(1)       ,WSAVE(1)
+      DIMENSION       X(*)       ,WSAVE(1)
       NM1 = N-1
       NP1 = N+1
       NS2 = N/2
