$NetBSD: patch-aa,v 1.1.1.1 2000/11/30 00:51:17 jtb Exp $ --- pjibt.f.orig Fri Nov 17 17:05:55 2000 +++ pjibt.f @@ -13,7 +13,7 @@ 1 ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround double precision con, fac, hl0, r, srur 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),