Nektar++
Functions
Lapack Namespace Reference

Functions

void F77NAME() dsptrf (const char &uplo, const int &n, double *ap, int *ipiv, int &info)
 
void F77NAME() dsptrs (const char &uplo, const int &n, const int &nrhs, const double *ap, const int *ipiv, double *b, const int &ldb, int &info)
 
void F77NAME() dsptri (const char &uplo, const int &n, const double *ap, const int *ipiv, double *work, int &info)
 
void F77NAME() dtrtrs (const char &uplo, const char &trans, const char &diag, const int &n, const int &nrhs, const double *a, const int &lda, double *b, const int &ldb, int &info)
 
void F77NAME() dtptrs (const char &uplo, const char &trans, const char &diag, const int &n, const int &nrhs, const double *a, double *b, const int &ldb, int &info)
 
void F77NAME() dpptrf (const char &uplo, const int &n, double *ap, int &info)
 
void F77NAME() dpptrs (const char &uplo, const int &n, const int &nrhs, const double *ap, double *b, const int &ldb, int &info)
 
void F77NAME() dpbtrf (const char &uplo, const int &n, const int &kd, double *ab, const int &ldab, int &info)
 
void F77NAME() dpbtrs (const char &uplo, const int &n, const int &kd, const int &nrhs, const double *ab, const int &ldab, double *b, const int &ldb, int &info)
 
void F77NAME() dgbtrf (const int &m, const int &n, const int &kl, const int &ku, double *a, const int &lda, int *ipiv, int &info)
 
void F77NAME() dgbtrs (const char &trans, const int &n, const int &kl, const int &ku, const int &nrhs, const double *a, const int &lda, const int *ipiv, double *b, const int &ldb, int &info)
 
void F77NAME() dgetrf (const int &m, const int &n, double *a, const int &lda, int *ipiv, int &info)
 
void F77NAME() dgetrs (const char &trans, const int &n, const int &nrhs, const double *a, const int &lda, int *ipiv, double *b, const int &ldb, int &info)
 
void F77NAME() dgetri (const int &n, double *a, const int &lda, const int *ipiv, double *wk, const int &lwk, int &info)
 
void F77NAME() dsterf (const int &n, double *d, double *e, int &info)
 
void F77NAME() dgeev (const char &uplo, const char &lrev, const int &n, const double *a, const int &lda, double *wr, double *wi, double *rev, const int &ldr, double *lev, const int &ldv, double *work, const int &lwork, int &info)
 
void F77NAME() dspev (const char &jobz, const char &uplo, const int &n, double *ap, double *w, double *z, const int &ldz, double *work, int &info)
 
void F77NAME() dsbev (const char &jobz, const char &uplo, const int &kl, const int &ku, double *ap, const int &lda, double *w, double *z, const int &ldz, double *work, int &info)
 
void dgetrs (char trans, int matrixRows, int matrixColumns, const double *A, double *x)
 
static void Dsptrf (const char &uplo, const int &n, double *ap, int *ipiv, int &info)
 factor a real packed-symmetric matrix using Bunch-Kaufman pivoting. More...
 
static void Dsptrs (const char &uplo, const int &n, const int &nrhs, const double *ap, const int *ipiv, double *b, const int &ldb, int &info)
 Solve a real symmetric matrix problem using Bunch-Kaufman pivoting. More...
 
static void Dsptri (const char &uplo, const int &n, const double *ap, const int *ipiv, double *work, int &info)
 Invert a real symmetric matrix problem. More...
 
static void Dpptrf (const char &uplo, const int &n, double *ap, int &info)
 Cholesky factor a real Positive Definite packed-symmetric matrix. More...
 
static void Dpptrs (const char &uplo, const int &n, const int &nrhs, const double *ap, double *b, const int &ldb, int &info)
 Solve a real Positive defiinte symmetric matrix problem using Cholesky factorization. More...
 
static void Dpbtrf (const char &uplo, const int &n, const int &kd, double *ab, const int &ldab, int &info)
 Cholesky factorize a real positive-definite banded-symmetric matrix. More...
 
static void Dpbtrs (const char &uplo, const int &n, const int &kd, const int &nrhs, const double *ab, const int &ldab, double *b, const int &ldb, int &info)
 Solve a real, Positive definite banded symmetric matrix problem using Cholesky factorization. More...
 
static void Dgbtrf (const int &m, const int &n, const int &kl, const int &ku, double *a, const int &lda, int *ipiv, int &info)
 General banded matrix LU factorisation. More...
 
static void Dgbtrs (const char &trans, const int &n, const int &kl, const int &ku, const int &nrhs, const double *a, const int &lda, const int *ipiv, double *b, const int &ldb, int &info)
 Solve general banded matrix using LU factorisation. More...
 
static void Dgetrf (const int &m, const int &n, double *a, const int &lda, int *ipiv, int &info)
 General matrix LU factorisation. More...
 
static void Dgetrs (const char &trans, const int &n, const int &nrhs, const double *a, const int &lda, int *ipiv, double *b, const int &ldb, int &info)
 General matrix LU backsolve. More...
 
static void Dgetri (const int &n, double *a, const int &lda, const int *ipiv, double *wk, const int &lwk, int &info)
 Generate matrix inverse. More...
 
static void Dsterf (const int &n, double *d, double *e, int &info)
 Find eigenvalues of symmetric tridiagonal matrix. More...
 
static void Dgeev (const char &uplo, const char &lrev, const int &n, const double *a, const int &lda, double *wr, double *wi, double *rev, const int &ldr, double *lev, const int &ldv, double *work, const int &lwork, int &info)
 Solve general real matrix eigenproblem. More...
 
static void Dspev (const char &jobz, const char &uplo, const int &n, double *ap, double *w, double *z, const int &ldz, double *work, int &info)
 Solve packed-symmetric real matrix eigenproblem. More...
 
static void Dsbev (const char &jobz, const char &uplo, const int &kl, const int &ku, double *ap, const int &lda, double *w, double *z, const int &ldz, double *work, int &info)
 Solve packed-banded real matrix eigenproblem. More...
 
static void Dtrtrs (const char &uplo, const char &trans, const char &diag, const int &n, const int &nrhs, const double *a, const int &lda, double *b, const int &ldb, int &info)
 
static void Dtptrs (const char &uplo, const char &trans, const char &diag, const int &n, const int &nrhs, const double *a, double *b, const int &ldb, int &info)
 

Function Documentation

◆ dgbtrf()

void F77NAME() Lapack::dgbtrf ( const int &  m,
const int &  n,
const int &  kl,
const int &  ku,
double *  a,
const int &  lda,
int *  ipiv,
int &  info 
)

Referenced by Dgbtrf().

◆ Dgbtrf()

static void Lapack::Dgbtrf ( const int &  m,
const int &  n,
const int &  kl,
const int &  ku,
double *  a,
const int &  lda,
int *  ipiv,
int &  info 
)
inlinestatic

General banded matrix LU factorisation.

Definition at line 166 of file Lapack.hpp.

References dgbtrf(), and F77NAME.

Referenced by Nektar::LinearSystem::FactorMatrix().

169  {
170  F77NAME(dgbtrf)(m,n,kl,ku,a,lda,ipiv,info);
171  }
#define F77NAME(x)
Fortran routines need an underscore.
Definition: TransF77.hpp:46
void F77NAME() dgbtrf(const int &m, const int &n, const int &kl, const int &ku, double *a, const int &lda, int *ipiv, int &info)

◆ dgbtrs()

void F77NAME() Lapack::dgbtrs ( const char &  trans,
const int &  n,
const int &  kl,
const int &  ku,
const int &  nrhs,
const double *  a,
const int &  lda,
const int *  ipiv,
double *  b,
const int &  ldb,
int &  info 
)

Referenced by Dgbtrs().

◆ Dgbtrs()

static void Lapack::Dgbtrs ( const char &  trans,
const int &  n,
const int &  kl,
const int &  ku,
const int &  nrhs,
const double *  a,
const int &  lda,
const int *  ipiv,
double *  b,
const int &  ldb,
int &  info 
)
inlinestatic

Solve general banded matrix using LU factorisation.

Definition at line 174 of file Lapack.hpp.

References dgbtrs(), and F77NAME.

Referenced by Nektar::LinearSystemSolver::Solve(), and Nektar::LinearSystemSolver::SolveTranspose().

178  {
179  F77NAME(dgbtrs)(trans,n,kl,ku,nrhs,a,lda,ipiv,b,ldb,info);
180  }
#define F77NAME(x)
Fortran routines need an underscore.
Definition: TransF77.hpp:46
void F77NAME() dgbtrs(const char &trans, const int &n, const int &kl, const int &ku, const int &nrhs, const double *a, const int &lda, const int *ipiv, double *b, const int &ldb, int &info)

◆ dgeev()

void F77NAME() Lapack::dgeev ( const char &  uplo,
const char &  lrev,
const int &  n,
const double *  a,
const int &  lda,
double *  wr,
double *  wi,
double *  rev,
const int &  ldr,
double *  lev,
const int &  ldv,
double *  work,
const int &  lwork,
int &  info 
)

Referenced by Dgeev().

◆ Dgeev()

static void Lapack::Dgeev ( const char &  uplo,
const char &  lrev,
const int &  n,
const double *  a,
const int &  lda,
double *  wr,
double *  wi,
double *  rev,
const int &  ldr,
double *  lev,
const int &  ldv,
double *  work,
const int &  lwork,
int &  info 
)
inlinestatic

Solve general real matrix eigenproblem.

Definition at line 211 of file Lapack.hpp.

References dgeev(), and F77NAME.

Referenced by Nektar::FullMatrixFuncs::EigenSolve(), Nektar::Utilities::NodeOpti::IsIndefinite(), Nektar::EigenValuesAdvection::v_DoSolve(), and Nektar::LinearElasticSystem::v_DoSolve().

216  {
217  F77NAME(dgeev) (uplo, lrev, n, a, lda, wr, wi, rev,
218  ldr, lev, ldv, work, lwork, info);
219  }
#define F77NAME(x)
Fortran routines need an underscore.
Definition: TransF77.hpp:46
void F77NAME() dgeev(const char &uplo, const char &lrev, const int &n, const double *a, const int &lda, double *wr, double *wi, double *rev, const int &ldr, double *lev, const int &ldv, double *work, const int &lwork, int &info)

◆ dgetrf()

void F77NAME() Lapack::dgetrf ( const int &  m,
const int &  n,
double *  a,
const int &  lda,
int *  ipiv,
int &  info 
)

Referenced by Dgetrf().

◆ Dgetrf()

static void Lapack::Dgetrf ( const int &  m,
const int &  n,
double *  a,
const int &  lda,
int *  ipiv,
int &  info 
)
inlinestatic

General matrix LU factorisation.

Definition at line 183 of file Lapack.hpp.

References dgetrf(), and F77NAME.

Referenced by Nektar::LinearSystem::FactorMatrix(), Nektar::FullMatrixFuncs::Invert(), PolyFit(), and PolyInterp().

185  {
186  F77NAME(dgetrf) (m,n,a,lda,ipiv,info);
187  }
void F77NAME() dgetrf(const int &m, const int &n, double *a, const int &lda, int *ipiv, int &info)
#define F77NAME(x)
Fortran routines need an underscore.
Definition: TransF77.hpp:46

◆ dgetri()

void F77NAME() Lapack::dgetri ( const int &  n,
double *  a,
const int &  lda,
const int *  ipiv,
double *  wk,
const int &  lwk,
int &  info 
)

Referenced by Dgetri().

◆ Dgetri()

static void Lapack::Dgetri ( const int &  n,
double *  a,
const int &  lda,
const int *  ipiv,
double *  wk,
const int &  lwk,
int &  info 
)
inlinestatic

Generate matrix inverse.

Definition at line 198 of file Lapack.hpp.

References dgetri(), and F77NAME.

Referenced by Nektar::FullMatrixFuncs::Invert().

200  {
201  F77NAME(dgetri) (n, a, lda, ipiv, wk, lwk,info);
202  }
#define F77NAME(x)
Fortran routines need an underscore.
Definition: TransF77.hpp:46
void F77NAME() dgetri(const int &n, double *a, const int &lda, const int *ipiv, double *wk, const int &lwk, int &info)

◆ dgetrs() [1/2]

void F77NAME() Lapack::dgetrs ( const char &  trans,
const int &  n,
const int &  nrhs,
const double *  a,
const int &  lda,
int *  ipiv,
double *  b,
const int &  ldb,
int &  info 
)

◆ dgetrs() [2/2]

void Lapack::dgetrs ( char  trans,
int  matrixRows,
int  matrixColumns,
const double *  A,
double *  x 
)

◆ Dgetrs()

static void Lapack::Dgetrs ( const char &  trans,
const int &  n,
const int &  nrhs,
const double *  a,
const int &  lda,
int *  ipiv,
double *  b,
const int &  ldb,
int &  info 
)
inlinestatic

General matrix LU backsolve.

Definition at line 190 of file Lapack.hpp.

References F77NAME.

Referenced by PolyFit(), PolyInterp(), Nektar::LinearSystemSolver::Solve(), and Nektar::LinearSystemSolver::SolveTranspose().

193  {
194  F77NAME(dgetrs) (trans,n,nrhs,a,lda,ipiv,b,ldb,info);
195  }
#define F77NAME(x)
Fortran routines need an underscore.
Definition: TransF77.hpp:46
void dgetrs(char trans, int matrixRows, int matrixColumns, const double *A, double *x)

◆ dpbtrf()

void F77NAME() Lapack::dpbtrf ( const char &  uplo,
const int &  n,
const int &  kd,
double *  ab,
const int &  ldab,
int &  info 
)

Referenced by Dpbtrf().

◆ Dpbtrf()

static void Lapack::Dpbtrf ( const char &  uplo,
const int &  n,
const int &  kd,
double *  ab,
const int &  ldab,
int &  info 
)
inlinestatic

Cholesky factorize a real positive-definite banded-symmetric matrix.

Definition at line 148 of file Lapack.hpp.

References dpbtrf(), and F77NAME.

Referenced by Nektar::LinearSystem::FactorMatrix().

150  {
151  F77NAME(dpbtrf) (uplo,n,kd,ab,ldab,info);
152  }
void F77NAME() dpbtrf(const char &uplo, const int &n, const int &kd, double *ab, const int &ldab, int &info)
#define F77NAME(x)
Fortran routines need an underscore.
Definition: TransF77.hpp:46

◆ dpbtrs()

void F77NAME() Lapack::dpbtrs ( const char &  uplo,
const int &  n,
const int &  kd,
const int &  nrhs,
const double *  ab,
const int &  ldab,
double *  b,
const int &  ldb,
int &  info 
)

Referenced by Dpbtrs().

◆ Dpbtrs()

static void Lapack::Dpbtrs ( const char &  uplo,
const int &  n,
const int &  kd,
const int &  nrhs,
const double *  ab,
const int &  ldab,
double *  b,
const int &  ldb,
int &  info 
)
inlinestatic

Solve a real, Positive definite banded symmetric matrix problem using Cholesky factorization.

Definition at line 157 of file Lapack.hpp.

References dpbtrs(), and F77NAME.

Referenced by Nektar::LinearSystemSolver::Solve().

161  {
162  F77NAME(dpbtrs) (uplo,n,kd,nrhs,ab,ldab,b,ldb,info);
163  }
#define F77NAME(x)
Fortran routines need an underscore.
Definition: TransF77.hpp:46
void F77NAME() dpbtrs(const char &uplo, const int &n, const int &kd, const int &nrhs, const double *ab, const int &ldab, double *b, const int &ldb, int &info)

◆ dpptrf()

void F77NAME() Lapack::dpptrf ( const char &  uplo,
const int &  n,
double *  ap,
int &  info 
)

Referenced by Dpptrf().

◆ Dpptrf()

static void Lapack::Dpptrf ( const char &  uplo,
const int &  n,
double *  ap,
int &  info 
)
inlinestatic

Cholesky factor a real Positive Definite packed-symmetric matrix.

Definition at line 131 of file Lapack.hpp.

References dpptrf(), and F77NAME.

Referenced by Nektar::LinearSystem::FactorMatrix().

133  {
134  F77NAME(dpptrf) (uplo,n,ap,info);
135  }
#define F77NAME(x)
Fortran routines need an underscore.
Definition: TransF77.hpp:46
void F77NAME() dpptrf(const char &uplo, const int &n, double *ap, int &info)

◆ dpptrs()

void F77NAME() Lapack::dpptrs ( const char &  uplo,
const int &  n,
const int &  nrhs,
const double *  ap,
double *  b,
const int &  ldb,
int &  info 
)

Referenced by Dpptrs().

◆ Dpptrs()

static void Lapack::Dpptrs ( const char &  uplo,
const int &  n,
const int &  nrhs,
const double *  ap,
double *  b,
const int &  ldb,
int &  info 
)
inlinestatic

Solve a real Positive defiinte symmetric matrix problem using Cholesky factorization.

Definition at line 139 of file Lapack.hpp.

References dpptrs(), and F77NAME.

Referenced by Nektar::LinearSystemSolver::Solve().

142  {
143  F77NAME(dpptrs) (uplo,n,nrhs,ap,b,ldb,info);
144  }
#define F77NAME(x)
Fortran routines need an underscore.
Definition: TransF77.hpp:46
void F77NAME() dpptrs(const char &uplo, const int &n, const int &nrhs, const double *ap, double *b, const int &ldb, int &info)

◆ dsbev()

void F77NAME() Lapack::dsbev ( const char &  jobz,
const char &  uplo,
const int &  kl,
const int &  ku,
double *  ap,
const int &  lda,
double *  w,
double *  z,
const int &  ldz,
double *  work,
int &  info 
)

Referenced by Dsbev().

◆ Dsbev()

static void Lapack::Dsbev ( const char &  jobz,
const char &  uplo,
const int &  kl,
const int &  ku,
double *  ap,
const int &  lda,
double *  w,
double *  z,
const int &  ldz,
double *  work,
int &  info 
)
inlinestatic

Solve packed-banded real matrix eigenproblem.

Definition at line 230 of file Lapack.hpp.

References dsbev(), and F77NAME.

234  {
235  F77NAME(dsbev) (jobz, uplo, kl, ku, ap, lda, w, z, ldz, work, info);
236  }
#define F77NAME(x)
Fortran routines need an underscore.
Definition: TransF77.hpp:46
void F77NAME() dsbev(const char &jobz, const char &uplo, const int &kl, const int &ku, double *ap, const int &lda, double *w, double *z, const int &ldz, double *work, int &info)

◆ dspev()

void F77NAME() Lapack::dspev ( const char &  jobz,
const char &  uplo,
const int &  n,
double *  ap,
double *  w,
double *  z,
const int &  ldz,
double *  work,
int &  info 
)

Referenced by Dspev().

◆ Dspev()

static void Lapack::Dspev ( const char &  jobz,
const char &  uplo,
const int &  n,
double *  ap,
double *  w,
double *  z,
const int &  ldz,
double *  work,
int &  info 
)
inlinestatic

Solve packed-symmetric real matrix eigenproblem.

Definition at line 222 of file Lapack.hpp.

References dspev(), and F77NAME.

225  {
226  F77NAME(dspev) (jobz, uplo, n, ap, w, z, ldz, work, info);
227  }
#define F77NAME(x)
Fortran routines need an underscore.
Definition: TransF77.hpp:46
void F77NAME() dspev(const char &jobz, const char &uplo, const int &n, double *ap, double *w, double *z, const int &ldz, double *work, int &info)

◆ dsptrf()

void F77NAME() Lapack::dsptrf ( const char &  uplo,
const int &  n,
double *  ap,
int *  ipiv,
int &  info 
)

Referenced by Dsptrf().

◆ Dsptrf()

static void Lapack::Dsptrf ( const char &  uplo,
const int &  n,
double *  ap,
int *  ipiv,
int &  info 
)
inlinestatic

factor a real packed-symmetric matrix using Bunch-Kaufman pivoting.

Definition at line 107 of file Lapack.hpp.

References dsptrf(), and F77NAME.

Referenced by Nektar::LinearSystem::FactorMatrix(), and Nektar::SymmetricMatrixFuncs::Invert().

109  {
110  F77NAME(dsptrf) (uplo,n,ap,ipiv,info);
111  }
#define F77NAME(x)
Fortran routines need an underscore.
Definition: TransF77.hpp:46
void F77NAME() dsptrf(const char &uplo, const int &n, double *ap, int *ipiv, int &info)

◆ dsptri()

void F77NAME() Lapack::dsptri ( const char &  uplo,
const int &  n,
const double *  ap,
const int *  ipiv,
double *  work,
int &  info 
)

Referenced by Dsptri().

◆ Dsptri()

static void Lapack::Dsptri ( const char &  uplo,
const int &  n,
const double *  ap,
const int *  ipiv,
double *  work,
int &  info 
)
inlinestatic

Invert a real symmetric matrix problem.

Definition at line 123 of file Lapack.hpp.

References dsptri(), and F77NAME.

Referenced by Nektar::SymmetricMatrixFuncs::Invert().

126  {
127  F77NAME(dsptri) (uplo,n,ap,ipiv,work,info);
128  }
#define F77NAME(x)
Fortran routines need an underscore.
Definition: TransF77.hpp:46
void F77NAME() dsptri(const char &uplo, const int &n, const double *ap, const int *ipiv, double *work, int &info)

◆ dsptrs()

void F77NAME() Lapack::dsptrs ( const char &  uplo,
const int &  n,
const int &  nrhs,
const double *  ap,
const int *  ipiv,
double *  b,
const int &  ldb,
int &  info 
)

Referenced by Dsptrs().

◆ Dsptrs()

static void Lapack::Dsptrs ( const char &  uplo,
const int &  n,
const int &  nrhs,
const double *  ap,
const int *  ipiv,
double *  b,
const int &  ldb,
int &  info 
)
inlinestatic

Solve a real symmetric matrix problem using Bunch-Kaufman pivoting.

Definition at line 115 of file Lapack.hpp.

References dsptrs(), and F77NAME.

Referenced by Nektar::LinearSystemSolver::Solve().

118  {
119  F77NAME(dsptrs) (uplo,n,nrhs,ap,ipiv,b,ldb,info);
120  }
void F77NAME() dsptrs(const char &uplo, const int &n, const int &nrhs, const double *ap, const int *ipiv, double *b, const int &ldb, int &info)
#define F77NAME(x)
Fortran routines need an underscore.
Definition: TransF77.hpp:46

◆ dsterf()

void F77NAME() Lapack::dsterf ( const int &  n,
double *  d,
double *  e,
int &  info 
)

Referenced by Dsterf().

◆ Dsterf()

static void Lapack::Dsterf ( const int &  n,
double *  d,
double *  e,
int &  info 
)
inlinestatic

Find eigenvalues of symmetric tridiagonal matrix.

Definition at line 205 of file Lapack.hpp.

References dsterf(), and F77NAME.

206  {
207  F77NAME(dsterf)(n,d,e,info);
208  }
#define F77NAME(x)
Fortran routines need an underscore.
Definition: TransF77.hpp:46
void F77NAME() dsterf(const int &n, double *d, double *e, int &info)

◆ dtptrs()

void F77NAME() Lapack::dtptrs ( const char &  uplo,
const char &  trans,
const char &  diag,
const int &  n,
const int &  nrhs,
const double *  a,
double *  b,
const int &  ldb,
int &  info 
)

Referenced by Dtptrs().

◆ Dtptrs()

static void Lapack::Dtptrs ( const char &  uplo,
const char &  trans,
const char &  diag,
const int &  n,
const int &  nrhs,
const double *  a,
double *  b,
const int &  ldb,
int &  info 
)
inlinestatic

Definition at line 245 of file Lapack.hpp.

References dtptrs(), and F77NAME.

Referenced by Nektar::LinearSystemSolver::Solve(), and Nektar::LinearSystemSolver::SolveTranspose().

248  {
249  F77NAME(dtptrs) (uplo, trans, diag, n, nrhs, a, b, ldb, info);
250  }
#define F77NAME(x)
Fortran routines need an underscore.
Definition: TransF77.hpp:46
void F77NAME() dtptrs(const char &uplo, const char &trans, const char &diag, const int &n, const int &nrhs, const double *a, double *b, const int &ldb, int &info)

◆ dtrtrs()

void F77NAME() Lapack::dtrtrs ( const char &  uplo,
const char &  trans,
const char &  diag,
const int &  n,
const int &  nrhs,
const double *  a,
const int &  lda,
double *  b,
const int &  ldb,
int &  info 
)

Referenced by Dtrtrs().

◆ Dtrtrs()

static void Lapack::Dtrtrs ( const char &  uplo,
const char &  trans,
const char &  diag,
const int &  n,
const int &  nrhs,
const double *  a,
const int &  lda,
double *  b,
const int &  ldb,
int &  info 
)
inlinestatic

Definition at line 238 of file Lapack.hpp.

References dtrtrs(), and F77NAME.

241  {
242  F77NAME(dtrtrs) (uplo, trans, diag, n, nrhs, a, lda, b, ldb, info);
243  }
void F77NAME() dtrtrs(const char &uplo, const char &trans, const char &diag, const int &n, const int &nrhs, const double *a, const int &lda, double *b, const int &ldb, int &info)
#define F77NAME(x)
Fortran routines need an underscore.
Definition: TransF77.hpp:46