blob: 6028dc059c976d65d60b2be603509400dcaace3c (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
$NetBSD: patch-ad,v 1.1.1.1 2000/11/28 02:17:03 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)
|