1
2
3
4
5
6
7
8
9
10
11
|
$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)
|