$NetBSD: patch-ac,v 1.1.1.1 2000/11/30 00:51:17 jtb Exp $

--- prepji.f.orig	Fri Nov 17 17:05:55 2000
+++ prepji.f
@@ -13,7 +13,7 @@
      1   ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround
       double precision con, fac, hl0, r, srur, yi, yj, yjj
       dimension neq(1), y(1), yh(nyh,1), ewt(1), rtem(1),
-     1   s(1), savr(1), wm(1), iwm(1)
+     1   s(1), savr(1), wm(*), iwm(*)
       common /ls0001/ rowns(209),
      2   ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround,
      3   iownd(14), iowns(6),