$NetBSD$

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