$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),