mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-10-03 09:01:33 -04:00
13 lines
371 B
Plaintext
13 lines
371 B
Plaintext
$NetBSD: patch-ad,v 1.1.1.1 2001/04/27 22:57:31 jtb Exp $
|
|
|
|
--- dptsl.f.orig Thu Jan 5 21:00:46 1984
|
|
+++ dptsl.f
|
|
@@ -1,6 +1,6 @@
|
|
subroutine dptsl(n,d,e,b)
|
|
integer n
|
|
- double precision d(1),e(1),b(1)
|
|
+ double precision d(1),e(1),b(*)
|
|
c
|
|
c dptsl given a positive definite tridiagonal matrix and a right
|
|
c hand side will find the solution.
|