LINEAR++ library: AFF to LAPACK

◆ LaLinearSolve()

void LaLinearSolve ( LaBandFactDouble AF,
LaGenMatDouble &  X,
LaGenMatDouble &  B 
)
inline

Definition at line 148 of file bfd.h.

References LaBandFactDouble::B(), dgbtrs(), F77NAME, and LaBandFactDouble::pivot().

150 {
151  char trans = 'N';
152  integer n = AF.B().size(1), lda = AF.B().gdim(0), nrhs = X.size(1),
153  ldb = B.size(0), kl = AF.B().subdiags(),
154  ku = AF.B().superdiags(), info=0;
155 
156  X.inject(B);
157  F77NAME(dgbtrs)(
158  &trans,
159  &n,
160  &kl, &ku, &nrhs, &(AF.B()(-kl,0)),
161  &lda, &(AF.pivot()(0)), &X(0,0), &ldb, &info);
162 }
long int integer
Definition: f77lapack.h:61
LaVectorLongInt & pivot()
Definition: bfd.h:105
LaBandMatDouble & B()
Definition: bfd.h:99
void F77NAME() dgbtrs(char *trans, integer *N, integer *kl, integer *ku, integer *nrhs, doublereal *AB, integer *ldab, integer *ipiv, doublereal *b, integer *ldb, integer *info)
#define F77NAME(x)
Definition: arch.h:17
Here is the call graph for this function: