summaryrefslogtreecommitdiff
path: root/math/fftpack/patches/patch-ad
blob: 4b37c62182cd7d932d153ccc2187ac3641502349 (plain)
1
2
3
4
5
6
7
8
9
10
11
$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)