1
2
3
4
5
6
7
8
9
10
11
12
13
|
$NetBSD: patch-ag,v 1.1.1.1 2000/11/30 00:51:18 jtb Exp $
--- slss.f.orig Fri Nov 17 17:05:55 2000
+++ slss.f
@@ -14,7 +14,7 @@
1 ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround
double precision rlss
double precision di, hl0, phl0, r
- dimension wk(1), iwk(1), x(1), tem(1)
+ dimension wk(*), iwk(1), x(1), tem(1)
common /ls0001/ rowns(209),
2 ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround,
3 iownd(14), iowns(6),
|
