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