$NetBSD$

--- prja.f.orig	Fri Nov 17 17:22:20 2000
+++ prja.f
@@ -16,7 +16,7 @@
       double precision con, fac, hl0, r, r0, srur, yi, yj, yjj,
      1   vmnorm, fnorm, bnorm
       dimension neq(1), y(1), yh(nyh,1), ewt(1), ftem(1), savf(1),
-     1   wm(1), iwm(1)
+     1   wm(*), iwm(*)
       common /ls0001/ rowns(209),
      2   ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround,
      3   iownd(14), iowns(6),
