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