1
2
3
4
5
6
7
8
9
10
11
12
13
|
$NetBSD: patch-al,v 1.1.1.1 2000/11/30 00:51:16 jtb Exp $
--- 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),
|
