$NetBSD$

--- cosqb.f.orig	Fri Nov 17 16:48:23 2000
+++ cosqb.f
@@ -1,5 +1,5 @@
       SUBROUTINE COSQB (N,X,WSAVE)
-      DIMENSION       X(1)       ,WSAVE(1)
+      DIMENSION       X(*)       ,WSAVE(1)
       DATA TSQRT2 /2.82842712474619/
       IF (N-2) 101,102,103
   101 X(1) = 4.*X(1)
