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

--- stodi.f.orig	Fri Nov 17 17:05:55 2000
+++ stodi.f
@@ -13,7 +13,7 @@
       double precision dcon, ddn, del, delp, dsm, dup,
      1   eljh, el1h, exdn, exsm, exup,
      2   r, rh, rhdn, rhsm, rhup, told, vnorm
-      dimension neq(1), y(1), yh(nyh,1), yh1(1), ewt(1), savf(1),
+      dimension neq(1), y(1), yh(nyh,*), yh1(1), ewt(1), savf(1),
      1   savr(1), acor(1), wm(1), iwm(1)
       common /ls0001/ conit, crate, el(13), elco(13,12),
      1   hold, rmax, tesco(3,12),