blob: 47eb5b3e1dfd49f18e10a5962f926a69d5223e8a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
$NetBSD: patch-ae,v 1.1.1.1 2001/04/27 22:57:31 jtb Exp $
--- 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.
|