mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-09-28 06:26:12 -04:00
12 lines
337 B
Plaintext
12 lines
337 B
Plaintext
$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)
|