1
2
3
4
5
6
7
8
9
10
11
12
13
|
$NetBSD: patch-aj,v 1.1.1.1 2000/11/30 00:51:17 jtb Exp $
--- stode.f.orig Fri Nov 17 17:05:55 2000
+++ stode.f
@@ -12,7 +12,7 @@
2 ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround
double precision dcon, ddn, del, delp, dsm, dup, exdn, exsm, exup,
1 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 acor(1), wm(1), iwm(1)
common /ls0001/ conit, crate, el(13), elco(13,12),
1 hold, rmax, tesco(3,12),
|
