11 lines
349 B
Text
11 lines
349 B
Text
$NetBSD: patch-am,v 1.3 2001/01/23 20:55:45 jtb Exp $
|
|
|
|
--- sint1.f.orig Fri Nov 17 16:48:24 2000
|
|
+++ sint1.f
|
|
@@ -1,5 +1,5 @@
|
|
SUBROUTINE SINT1(N,WAR,WAS,XH,X,IFAC)
|
|
- DIMENSION WAR(1),WAS(1),X(1),XH(1),IFAC(1)
|
|
+ DIMENSION WAR(1),WAS(1),X(1),XH(*),IFAC(1)
|
|
DATA SQRT3 /1.73205080756888/
|
|
DO 100 I=1,N
|
|
XH(I) = WAR(I)
|