************80
! BANSLV solves a banded linear system A * X = B factored by BANFAC.
Modified:
14 February 2007
Author:
Carl DeBoor
Reference:
Carl DeBoor,
A Practical Guide to Splines,
Springer, 2001,
ISBN: 0387953663,
LC: QA1.A647.v27.
Parameters:
Input, real ( kind = 8 ) W(NROWW,NROW). W contains the banded matrix,
after it has been factored by BANFAC.
Input, integer ( kind = 4 ) NROWW, the row dimension of the work array W.
NROWW must be at least NBANDL+1 + NBANDU.
Input, integer ( kind = 4 ) NROW, the number of rows in A.
Input, integer ( kind = 4 ) NBANDL, the number of bands of A below the
main diagonal.
Input, integer ( kind = 4 ) NBANDU, the number of bands of A above the
main diagonal.
Input/output, real ( kind = 8 ) B(NROW).
On input, B contains the right hand side of the system to be solved.
On output, B contains the solution, X.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=8) | :: | w(nroww,nrow) | ||||
integer(kind=4) | :: | nroww | ||||
integer(kind=4) | :: | nrow | ||||
integer(kind=4) | :: | nbandl | ||||
integer(kind=4) | :: | nbandu | ||||
real(kind=8) | :: | b(nrow) |