$NetBSD: patch-ab,v 1.1.1.1 2001/04/27 22:57:31 jtb Exp $

--- cptsl.f.orig	Fri Nov 17 17:32:00 2000
+++ cptsl.f
@@ -1,6 +1,6 @@
       subroutine cptsl(n,d,e,b)
       integer n
-      complex d(1),e(1),b(1)
+      complex d(1),e(1),b(*)
 c
 c     cptsl given a positive definite tridiagonal matrix and a right
 c     hand side will find the solution.
