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

--- cosqf.f.orig	Fri Nov 17 16:48:23 2000
+++ cosqf.f
@@ -1,5 +1,5 @@
       SUBROUTINE COSQF (N,X,WSAVE)
-      DIMENSION       X(1)       ,WSAVE(1)
+      DIMENSION       X(*)       ,WSAVE(1)
       DATA SQRT2 /1.4142135623731/
       IF (N-2) 102,101,103
   101 TSQX = SQRT2*X(2)
