LINEAR++ library: AFF to LAPACK

◆ LaLinearSolve()

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

Definition at line 148 of file syfd.h.

References dsytrs(), F77NAME, LaSymmFactDouble::gdim(), LaSymmFactDouble::pivot(), LaSymmFactDouble::S(), and LaSymmFactDouble::size().

150 {
151  char uplo = 'L';
152  integer N = AF.size(), nrhs = X.size(1), lda = AF.gdim(),
153  ldb = B.size(0), info = 0;
154 
155  X.inject(B);
156  F77NAME(dsytrs)(&uplo, &N, &nrhs, &(AF.S()(0,0)), &lda,
157  &(AF.pivot()(0)), &X(0,0), &ldb, &info);
158 
159 }
LaSymmMatDouble & S()
Definition: syfd.h:37
void F77NAME() dsytrs(char *uplo, integer *N, integer *nrhs, doublereal *A, integer *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info)
LaVectorLongInt & pivot()
Definition: syfd.h:38
long int integer
Definition: f77lapack.h:61
int size()
Definition: syfd.h:41
int gdim()
Definition: syfd.h:42
#define F77NAME(x)
Definition: arch.h:17
Here is the call graph for this function: