$NetBSD$

--- zptsl.f.orig	Tue Sep 21 22:22:55 1982
+++ zptsl.f
@@ -1,6 +1,6 @@
       subroutine zptsl(n,d,e,b)
       integer n
-      complex*16 d(1),e(1),b(1)
+      complex*16 d(1),e(1),b(*)
 c
 c     zptsl given a positive definite tridiagonal matrix and a right
 c     hand side will find the solution.
