$NetBSD: patch-ad,v 1.3 2001/01/23 20:55:44 jtb Exp $

--- 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)
