13 lines
347 B
Text
13 lines
347 B
Text
|
$NetBSD: patch-ac,v 1.1.1.1 2001/04/27 22:57:31 jtb Exp $
|
||
|
|
|
||
|
|
--- sptsl.f.orig Fri Nov 17 17:32:03 2000
|
||
|
|
+++ sptsl.f
|
||
|
|
@@ -1,6 +1,6 @@
|
||
|
|
subroutine sptsl(n,d,e,b)
|
||
|
|
integer n
|
||
|
|
- real d(1),e(1),b(1)
|
||
|
|
+ real d(1),e(1),b(*)
|
||
|
|
c
|
||
|
|
c sptsl given a positive definite tridiagonal matrix and a right
|
||
|
|
c hand side will find the solution.
|