v0.14.0
Classes | Macros | Typedefs | Functions
lapack_wrap.h File Reference

Go to the source code of this file.

Classes

struct  __CLPK_complex
 
struct  __CLPK_doublecomplex
 

Macros

#define __lapack__
 
#define __CLPK_TYPES__
 

Typedefs

typedef long int __CLPK_integer
 
typedef long int __CLPK_logical
 
typedef float __CLPK_real
 
typedef double __CLPK_doublereal
 
typedef __CLPK_logical(* __CLPK_L_fp) ()
 
typedef long int __CLPK_ftnlen
 

Functions

__CLPK_integer sgetrf_ (__CLPK_integer *m, __CLPK_integer *n, float *a, __CLPK_integer *lda, __CLPK_integer *ipiv, __CLPK_integer *info)
 
__CLPK_integer dgetrf_ (__CLPK_integer *m, __CLPK_integer *n, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_integer *ipiv, __CLPK_integer *info)
 
__CLPK_integer dgetrs_ (char *trans, __CLPK_integer *n, __CLPK_integer *nrhs, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_integer *ipiv, __CLPK_doublereal *b, __CLPK_integer *ldb, __CLPK_integer *info)
 
__CLPK_integer dgesv_ (__CLPK_integer *n, __CLPK_integer *nrhs, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_integer *ipiv, __CLPK_doublereal *b, __CLPK_integer *ldb, __CLPK_integer *info)
 
__CLPK_integer dgetri_ (__CLPK_integer *n, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_integer *ipiv, __CLPK_doublereal *work, __CLPK_integer *lwork, __CLPK_integer *info)
 
__CLPK_integer dpotrf_ (char *uplo, __CLPK_integer *n, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_integer *info)
 
__CLPK_integer dpotrs_ (char *uplo, __CLPK_integer *n, __CLPK_integer *nrhs, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_doublereal *b, __CLPK_integer *ldb, __CLPK_integer *info)
 
__CLPK_integer dposv_ (char *uplo, __CLPK_integer *n, __CLPK_integer *nrhs, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_doublereal *b, __CLPK_integer *ldb, __CLPK_integer *info)
 
__CLPK_integer dsysv_ (char *uplo, __CLPK_integer *n, __CLPK_integer *nrhs, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_integer *ipiv, __CLPK_doublereal *b, __CLPK_integer *ldb, __CLPK_doublereal *work, __CLPK_integer *lwork, __CLPK_integer *info)
 
__CLPK_integer dpotri_ (char *uplo, __CLPK_integer *n, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_integer *info)
 
__CLPK_integer dgesvd_ (char *jobu, char *jobvt, __CLPK_integer *m, __CLPK_integer *n, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_doublereal *s, __CLPK_doublereal *u, __CLPK_integer *ldu, __CLPK_doublereal *vt, __CLPK_integer *ldvt, __CLPK_doublereal *work, __CLPK_integer *lwork, __CLPK_integer *info)
 
__CLPK_integer sgesvd_ (char *jobu, char *jobvt, __CLPK_integer *m, __CLPK_integer *n, float *a, __CLPK_integer *lda, float *s, float *u, __CLPK_integer *ldu, float *vt, __CLPK_integer *ldvt, float *work, __CLPK_integer *lwork, __CLPK_integer *info)
 
__CLPK_integer dsyev_ (char *jobz, char *uplo, __CLPK_integer *n, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_doublereal *w, __CLPK_doublereal *work, __CLPK_integer *lwork, __CLPK_integer *info)
 
__CLPK_integer zheev_ (char *jobz, char *uplo, __CLPK_integer *n, __CLPK_doublecomplex *a, __CLPK_integer *lda, __CLPK_doublereal *w, __CLPK_doublecomplex *work, __CLPK_integer *lwork, __CLPK_doublereal *rwork, __CLPK_integer *info)
 
__CLPK_integer zgeev_ (char *jobvl, char *jobvr, __CLPK_integer *n, __CLPK_doublecomplex *a, __CLPK_integer *lda, __CLPK_doublecomplex *w, __CLPK_doublecomplex *vl, __CLPK_integer *ldvl, __CLPK_doublecomplex *vr, __CLPK_integer *ldvr, __CLPK_doublecomplex *work, __CLPK_integer *lwork, __CLPK_doublereal *rwork, __CLPK_integer *info)
 
__CLPK_integer dgelsy_ (char *trans, __CLPK_integer *m, __CLPK_integer *n, __CLPK_integer *nrhs, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_doublereal *b, __CLPK_integer *ldb, __CLPK_doublereal *work, __CLPK_integer *lwork, __CLPK_integer *info)
 
__CLPK_integer dgels_ (char *trans, __CLPK_integer *m, __CLPK_integer *n, __CLPK_integer *nrhs, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_doublereal *b, __CLPK_integer *ldb, __CLPK_doublereal *work, __CLPK_integer *lwork, __CLPK_integer *info)
 
__CLPK_integer dgesdd_ (char *jobz, __CLPK_integer *m, __CLPK_integer *n, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_doublereal *s, __CLPK_doublereal *u, __CLPK_integer *ldu, __CLPK_doublereal *vt, __CLPK_integer *ldvt, __CLPK_doublereal *work, __CLPK_integer *lwork, __CLPK_integer *iwork, __CLPK_integer *info)
 
__CLPK_integer dsyevd_ (char *jobz, char *uplo, __CLPK_integer *n, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_doublereal *w, __CLPK_doublereal *work, __CLPK_integer *lwork, __CLPK_integer *iwork, __CLPK_integer *liwork, __CLPK_integer *info)
 
__CLPK_integer zgetri_ (__CLPK_integer *n, __CLPK_doublecomplex *a, __CLPK_integer *lda, __CLPK_integer *ipiv, __CLPK_doublecomplex *work, __CLPK_integer *lwork, __CLPK_integer *info)
 
__CLPK_integer zgetrf_ (__CLPK_integer *m, __CLPK_integer *n, __CLPK_doublecomplex *a, __CLPK_integer *lda, __CLPK_integer *ipiv, __CLPK_integer *info)
 
__CLPK_integer zpotri_ (char *uplo, __CLPK_integer *n, __CLPK_doublecomplex *a, __CLPK_integer *lda, __CLPK_integer *info)
 
__CLPK_integer zpotrf_ (char *uplo, __CLPK_integer *n, __CLPK_doublecomplex *a, __CLPK_integer *lda, __CLPK_integer *info)
 
__CLPK_integer dpbtrs_ (char *uplo, __CLPK_integer *n, __CLPK_integer *kd, __CLPK_integer *nrhs, __CLPK_doublereal *ab, __CLPK_integer *ldab, __CLPK_doublereal *b, __CLPK_integer *ldb, __CLPK_integer *info)
 SUBROUTINE DPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) More...
 
static __CLPK_integer lapack_sgetrf (__CLPK_integer m, __CLPK_integer n, float *a, __CLPK_integer lda, __CLPK_integer *ipiv)
 
static __CLPK_integer lapack_dgetrf (__CLPK_integer m, __CLPK_integer n, __CLPK_doublereal *a, __CLPK_integer lda, __CLPK_integer *ipiv)
 
static __CLPK_integer lapack_dgetrs (char trans, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_doublereal *a, __CLPK_integer lda, __CLPK_integer *ipiv, __CLPK_doublereal *b, __CLPK_integer ldb)
 
static __CLPK_integer lapack_dgesv (__CLPK_integer n, __CLPK_integer nrhs, __CLPK_doublereal *a, __CLPK_integer lda, __CLPK_integer *ipiv, __CLPK_doublereal *b, __CLPK_integer ldb)
 
static __CLPK_integer lapack_dgetri (__CLPK_integer n, __CLPK_doublereal *a, __CLPK_integer lda, __CLPK_integer *ipiv, __CLPK_doublereal *work, __CLPK_integer lwork)
 
static __CLPK_integer lapack_dpotrf (char uplo, __CLPK_integer n, __CLPK_doublereal *a, __CLPK_integer lda)
 
static __CLPK_integer lapack_dpotrs (char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_doublereal *a, __CLPK_integer lda, __CLPK_doublereal *b, __CLPK_integer ldb)
 
static __CLPK_integer lapack_dposv (char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_doublereal *a, __CLPK_integer lda, __CLPK_doublereal *b, __CLPK_integer ldb)
 
static __CLPK_integer lapack_dsysv (char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_doublereal *a, __CLPK_integer lda, __CLPK_integer *ipiv, __CLPK_doublereal *b, __CLPK_integer ldb, __CLPK_doublereal *work, __CLPK_integer lwork)
 
static __CLPK_integer lapack_dpotri (char uplo, __CLPK_integer n, __CLPK_doublereal *a, __CLPK_integer lda)
 
static __CLPK_integer lapack_dgesvd (char jobu, char jobvt, __CLPK_integer m, __CLPK_integer n, __CLPK_doublereal *a, __CLPK_integer lda, __CLPK_doublereal *s, __CLPK_doublereal *u, __CLPK_integer ldu, __CLPK_doublereal *vt, __CLPK_integer ldvt, __CLPK_doublereal *work, __CLPK_integer lwork)
 
static __CLPK_integer lapack_sgesvd (char jobu, char jobvt, __CLPK_integer m, __CLPK_integer n, float *a, __CLPK_integer lda, float *s, float *u, __CLPK_integer ldu, float *vt, __CLPK_integer ldvt, float *work, __CLPK_integer lwork)
 
static __CLPK_integer lapack_dsyev (char jobz, char uplo, __CLPK_integer n, __CLPK_doublereal *a, __CLPK_integer lda, __CLPK_doublereal *w, __CLPK_doublereal *work, __CLPK_integer lwork)
 
static __CLPK_integer lapack_zheev (char jobz, char uplo, __CLPK_integer n, __CLPK_doublecomplex *a, __CLPK_integer lda, __CLPK_doublereal *w, __CLPK_doublecomplex *work, __CLPK_integer lwork, __CLPK_doublereal *rwork)
 
static __CLPK_integer lapack_zgeev (char jobvl, char jobvr, __CLPK_integer n, __CLPK_doublecomplex *a, __CLPK_integer lda, __CLPK_doublecomplex *w, __CLPK_doublecomplex *vl, __CLPK_integer ldvl, __CLPK_doublecomplex *vr, __CLPK_integer ldvr, __CLPK_doublecomplex *work, __CLPK_integer lwork, __CLPK_doublereal *rwork)
 
static __CLPK_integer lapack_dgels (char trans, __CLPK_integer m, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_doublereal *a, __CLPK_integer lda, __CLPK_doublereal *b, __CLPK_integer ldb, __CLPK_doublereal *work, __CLPK_integer lwork)
 
static __CLPK_integer lapack_dgesdd (char jobz, __CLPK_integer m, __CLPK_integer n, __CLPK_doublereal *a, __CLPK_integer lda, __CLPK_doublereal *s, __CLPK_doublereal *u, __CLPK_integer ldu, __CLPK_doublereal *vt, __CLPK_integer ldvt, __CLPK_doublereal *work, __CLPK_integer lwork, __CLPK_integer *iwork)
 
static __CLPK_integer lapack_dsyevd (char jobz, char uplo, __CLPK_integer n, __CLPK_doublereal *a, __CLPK_integer lda, __CLPK_doublereal *w, __CLPK_doublereal *work, __CLPK_integer lwork, __CLPK_integer *iwork, __CLPK_integer liwork)
 
static __CLPK_integer lapack_zgetrf (__CLPK_integer m, __CLPK_integer n, __CLPK_doublecomplex *a, __CLPK_integer lda, __CLPK_integer *ipiv)
 
static __CLPK_integer lapack_zgetri (__CLPK_integer n, __CLPK_doublecomplex *a, __CLPK_integer lda, __CLPK_integer *ipiv, __CLPK_doublecomplex *work, __CLPK_integer lwork)
 
static __CLPK_integer lapack_zpotri (char uplo, __CLPK_integer n, __CLPK_doublecomplex *a, __CLPK_integer lda)
 
static __CLPK_integer lapack_zpotrf (char uplo, __CLPK_integer n, __CLPK_doublecomplex *a, __CLPK_integer lda)
 
static __CLPK_integer lapack_dpbtrs (char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_integer nrhs, __CLPK_doublereal *ab, __CLPK_integer ldab, __CLPK_doublereal *b, __CLPK_integer ldb)
 

Macro Definition Documentation

◆ __CLPK_TYPES__

#define __CLPK_TYPES__

Definition at line 12 of file lapack_wrap.h.

◆ __lapack__

#define __lapack__

Definition at line 10 of file lapack_wrap.h.

Typedef Documentation

◆ __CLPK_doublereal

Definition at line 26 of file lapack_wrap.h.

◆ __CLPK_ftnlen

typedef long int __CLPK_ftnlen

Definition at line 28 of file lapack_wrap.h.

◆ __CLPK_integer

typedef long int __CLPK_integer

Definition at line 23 of file lapack_wrap.h.

◆ __CLPK_L_fp

typedef __CLPK_logical(* __CLPK_L_fp) ()

Definition at line 27 of file lapack_wrap.h.

◆ __CLPK_logical

typedef long int __CLPK_logical

Definition at line 24 of file lapack_wrap.h.

◆ __CLPK_real

typedef float __CLPK_real

Definition at line 25 of file lapack_wrap.h.

Function Documentation

◆ dgels_()

__CLPK_integer dgels_ ( char *  trans,
__CLPK_integer m,
__CLPK_integer n,
__CLPK_integer nrhs,
__CLPK_doublereal a,
__CLPK_integer lda,
__CLPK_doublereal b,
__CLPK_integer ldb,
__CLPK_doublereal work,
__CLPK_integer lwork,
__CLPK_integer info 
)

◆ dgelsy_()

__CLPK_integer dgelsy_ ( char *  trans,
__CLPK_integer m,
__CLPK_integer n,
__CLPK_integer nrhs,
__CLPK_doublereal a,
__CLPK_integer lda,
__CLPK_doublereal b,
__CLPK_integer ldb,
__CLPK_doublereal work,
__CLPK_integer lwork,
__CLPK_integer info 
)

◆ dgesdd_()

__CLPK_integer dgesdd_ ( char *  jobz,
__CLPK_integer m,
__CLPK_integer n,
__CLPK_doublereal a,
__CLPK_integer lda,
__CLPK_doublereal s,
__CLPK_doublereal u,
__CLPK_integer ldu,
__CLPK_doublereal vt,
__CLPK_integer ldvt,
__CLPK_doublereal work,
__CLPK_integer lwork,
__CLPK_integer iwork,
__CLPK_integer info 
)

◆ dgesv_()

__CLPK_integer dgesv_ ( __CLPK_integer n,
__CLPK_integer nrhs,
__CLPK_doublereal a,
__CLPK_integer lda,
__CLPK_integer ipiv,
__CLPK_doublereal b,
__CLPK_integer ldb,
__CLPK_integer info 
)

◆ dgesvd_()

__CLPK_integer dgesvd_ ( char *  jobu,
char *  jobvt,
__CLPK_integer m,
__CLPK_integer n,
__CLPK_doublereal a,
__CLPK_integer lda,
__CLPK_doublereal s,
__CLPK_doublereal u,
__CLPK_integer ldu,
__CLPK_doublereal vt,
__CLPK_integer ldvt,
__CLPK_doublereal work,
__CLPK_integer lwork,
__CLPK_integer info 
)

◆ dgetrf_()

__CLPK_integer dgetrf_ ( __CLPK_integer m,
__CLPK_integer n,
__CLPK_doublereal a,
__CLPK_integer lda,
__CLPK_integer ipiv,
__CLPK_integer info 
)

◆ dgetri_()

__CLPK_integer dgetri_ ( __CLPK_integer n,
__CLPK_doublereal a,
__CLPK_integer lda,
__CLPK_integer ipiv,
__CLPK_doublereal work,
__CLPK_integer lwork,
__CLPK_integer info 
)

◆ dgetrs_()

__CLPK_integer dgetrs_ ( char *  trans,
__CLPK_integer n,
__CLPK_integer nrhs,
__CLPK_doublereal a,
__CLPK_integer lda,
__CLPK_integer ipiv,
__CLPK_doublereal b,
__CLPK_integer ldb,
__CLPK_integer info 
)

◆ dpbtrs_()

__CLPK_integer dpbtrs_ ( char *  uplo,
__CLPK_integer n,
__CLPK_integer kd,
__CLPK_integer nrhs,
__CLPK_doublereal ab,
__CLPK_integer ldab,
__CLPK_doublereal b,
__CLPK_integer ldb,
__CLPK_integer info 
)

SUBROUTINE DPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO )

◆ dposv_()

__CLPK_integer dposv_ ( char *  uplo,
__CLPK_integer n,
__CLPK_integer nrhs,
__CLPK_doublereal a,
__CLPK_integer lda,
__CLPK_doublereal b,
__CLPK_integer ldb,
__CLPK_integer info 
)

◆ dpotrf_()

__CLPK_integer dpotrf_ ( char *  uplo,
__CLPK_integer n,
__CLPK_doublereal a,
__CLPK_integer lda,
__CLPK_integer info 
)

◆ dpotri_()

__CLPK_integer dpotri_ ( char *  uplo,
__CLPK_integer n,
__CLPK_doublereal a,
__CLPK_integer lda,
__CLPK_integer info 
)

◆ dpotrs_()

__CLPK_integer dpotrs_ ( char *  uplo,
__CLPK_integer n,
__CLPK_integer nrhs,
__CLPK_doublereal a,
__CLPK_integer lda,
__CLPK_doublereal b,
__CLPK_integer ldb,
__CLPK_integer info 
)

◆ dsyev_()

__CLPK_integer dsyev_ ( char *  jobz,
char *  uplo,
__CLPK_integer n,
__CLPK_doublereal a,
__CLPK_integer lda,
__CLPK_doublereal w,
__CLPK_doublereal work,
__CLPK_integer lwork,
__CLPK_integer info 
)

◆ dsyevd_()

__CLPK_integer dsyevd_ ( char *  jobz,
char *  uplo,
__CLPK_integer n,
__CLPK_doublereal a,
__CLPK_integer lda,
__CLPK_doublereal w,
__CLPK_doublereal work,
__CLPK_integer lwork,
__CLPK_integer iwork,
__CLPK_integer liwork,
__CLPK_integer info 
)

◆ dsysv_()

__CLPK_integer dsysv_ ( char *  uplo,
__CLPK_integer n,
__CLPK_integer nrhs,
__CLPK_doublereal a,
__CLPK_integer lda,
__CLPK_integer ipiv,
__CLPK_doublereal b,
__CLPK_integer ldb,
__CLPK_doublereal work,
__CLPK_integer lwork,
__CLPK_integer info 
)

◆ lapack_dgels()

static __CLPK_integer lapack_dgels ( char  trans,
__CLPK_integer  m,
__CLPK_integer  n,
__CLPK_integer  nrhs,
__CLPK_doublereal a,
__CLPK_integer  lda,
__CLPK_doublereal b,
__CLPK_integer  ldb,
__CLPK_doublereal work,
__CLPK_integer  lwork 
)
inlinestatic

Definition at line 292 of file lapack_wrap.h.

295  {
296  __CLPK_integer info;
297  dgels_(&trans, &m, &n, &nrhs, a, &lda, b, &ldb, work, &lwork, &info);
298  return info;
299 }

◆ lapack_dgesdd()

static __CLPK_integer lapack_dgesdd ( char  jobz,
__CLPK_integer  m,
__CLPK_integer  n,
__CLPK_doublereal a,
__CLPK_integer  lda,
__CLPK_doublereal s,
__CLPK_doublereal u,
__CLPK_integer  ldu,
__CLPK_doublereal vt,
__CLPK_integer  ldvt,
__CLPK_doublereal work,
__CLPK_integer  lwork,
__CLPK_integer iwork 
)
inlinestatic

Definition at line 302 of file lapack_wrap.h.

306  {
307  __CLPK_integer info;
308  dgesdd_(&jobz, &m, &n, a, &lda, s, u, &ldu, vt, &ldvt, work, &lwork, iwork,
309  &info);
310  return info;
311 }

◆ lapack_dgesv()

static __CLPK_integer lapack_dgesv ( __CLPK_integer  n,
__CLPK_integer  nrhs,
__CLPK_doublereal a,
__CLPK_integer  lda,
__CLPK_integer ipiv,
__CLPK_doublereal b,
__CLPK_integer  ldb 
)
inlinestatic

Definition at line 176 of file lapack_wrap.h.

178  {
179  __CLPK_integer info;
180  dgesv_(&n, &nrhs, a, &lda, ipiv, b, &ldb, &info);
181  return info;
182 }

◆ lapack_dgesvd()

static __CLPK_integer lapack_dgesvd ( char  jobu,
char  jobvt,
__CLPK_integer  m,
__CLPK_integer  n,
__CLPK_doublereal a,
__CLPK_integer  lda,
__CLPK_doublereal s,
__CLPK_doublereal u,
__CLPK_integer  ldu,
__CLPK_doublereal vt,
__CLPK_integer  ldvt,
__CLPK_doublereal work,
__CLPK_integer  lwork 
)
inlinestatic

Definition at line 238 of file lapack_wrap.h.

242  {
243  __CLPK_integer info;
244  dgesvd_(&jobu, &jobvt, &m, &n, a, &lda, s, u, &ldu, vt, &ldvt, work, &lwork,
245  &info);
246  return info;
247 }

◆ lapack_dgetrf()

static __CLPK_integer lapack_dgetrf ( __CLPK_integer  m,
__CLPK_integer  n,
__CLPK_doublereal a,
__CLPK_integer  lda,
__CLPK_integer ipiv 
)
inlinestatic

Definition at line 157 of file lapack_wrap.h.

160  {
161  __CLPK_integer info;
162  dgetrf_(&m, &n, a, &lda, ipiv, &info);
163  return info;
164 }

◆ lapack_dgetri()

static __CLPK_integer lapack_dgetri ( __CLPK_integer  n,
__CLPK_doublereal a,
__CLPK_integer  lda,
__CLPK_integer ipiv,
__CLPK_doublereal work,
__CLPK_integer  lwork 
)
inlinestatic

Definition at line 185 of file lapack_wrap.h.

187  {
188  __CLPK_integer info;
189  dgetri_(&n, a, &lda, ipiv, work, &lwork, &info);
190  return info;
191 }

◆ lapack_dgetrs()

static __CLPK_integer lapack_dgetrs ( char  trans,
__CLPK_integer  n,
__CLPK_integer  nrhs,
__CLPK_doublereal a,
__CLPK_integer  lda,
__CLPK_integer ipiv,
__CLPK_doublereal b,
__CLPK_integer  ldb 
)
inlinestatic

Definition at line 167 of file lapack_wrap.h.

169  {
170  __CLPK_integer info;
171  dgetrs_(&trans, &n, &nrhs, a, &lda, ipiv, b, &ldb, &info);
172  return info;
173 }

◆ lapack_dpbtrs()

static __CLPK_integer lapack_dpbtrs ( char  uplo,
__CLPK_integer  n,
__CLPK_integer  kd,
__CLPK_integer  nrhs,
__CLPK_doublereal ab,
__CLPK_integer  ldab,
__CLPK_doublereal b,
__CLPK_integer  ldb 
)
inlinestatic

Definition at line 357 of file lapack_wrap.h.

359  {
360  __CLPK_integer info;
361  dpbtrs_(&uplo, &n, &kd, &nrhs, ab, &ldab, b, &ldb, &info);
362  return info;
363 }

◆ lapack_dposv()

static __CLPK_integer lapack_dposv ( char  uplo,
__CLPK_integer  n,
__CLPK_integer  nrhs,
__CLPK_doublereal a,
__CLPK_integer  lda,
__CLPK_doublereal b,
__CLPK_integer  ldb 
)
inlinestatic
Examples
EshelbianOperators.cpp.

Definition at line 211 of file lapack_wrap.h.

213  {
214  __CLPK_integer info;
215  dposv_(&uplo, &n, &nrhs, a, &lda, b, &ldb, &info);
216  return info;
217 }

◆ lapack_dpotrf()

static __CLPK_integer lapack_dpotrf ( char  uplo,
__CLPK_integer  n,
__CLPK_doublereal a,
__CLPK_integer  lda 
)
inlinestatic

Definition at line 193 of file lapack_wrap.h.

195  {
196  __CLPK_integer info;
197  dpotrf_(&uplo, &n, a, &lda, &info);
198  return info;
199 }

◆ lapack_dpotri()

static __CLPK_integer lapack_dpotri ( char  uplo,
__CLPK_integer  n,
__CLPK_doublereal a,
__CLPK_integer  lda 
)
inlinestatic

Definition at line 229 of file lapack_wrap.h.

231  {
232  __CLPK_integer info;
233  dpotri_(&uplo, &n, a, &lda, &info);
234  return info;
235 }

◆ lapack_dpotrs()

static __CLPK_integer lapack_dpotrs ( char  uplo,
__CLPK_integer  n,
__CLPK_integer  nrhs,
__CLPK_doublereal a,
__CLPK_integer  lda,
__CLPK_doublereal b,
__CLPK_integer  ldb 
)
inlinestatic

Definition at line 202 of file lapack_wrap.h.

204  {
205  __CLPK_integer info;
206  dpotrs_(&uplo, &n, &nrhs, a, &lda, b, &ldb, &info);
207  return info;
208 }

◆ lapack_dsyev()

static __CLPK_integer lapack_dsyev ( char  jobz,
char  uplo,
__CLPK_integer  n,
__CLPK_doublereal a,
__CLPK_integer  lda,
__CLPK_doublereal w,
__CLPK_doublereal work,
__CLPK_integer  lwork 
)
inlinestatic
Examples
matrix_function.cpp, NavierStokesElement.cpp, and Remodeling.cpp.

Definition at line 261 of file lapack_wrap.h.

263  {
264  __CLPK_integer info;
265  dsyev_(&jobz, &uplo, &n, a, &lda, w, work, &lwork, &info);
266  return info;
267 }

◆ lapack_dsyevd()

static __CLPK_integer lapack_dsyevd ( char  jobz,
char  uplo,
__CLPK_integer  n,
__CLPK_doublereal a,
__CLPK_integer  lda,
__CLPK_doublereal w,
__CLPK_doublereal work,
__CLPK_integer  lwork,
__CLPK_integer iwork,
__CLPK_integer  liwork 
)
inlinestatic

Definition at line 314 of file lapack_wrap.h.

317  {
318  __CLPK_integer info;
319  dsyevd_(&jobz, &uplo, &n, a, &lda, w, work, &lwork, iwork, &liwork, &info);
320  return info;
321 }

◆ lapack_dsysv()

static __CLPK_integer lapack_dsysv ( char  uplo,
__CLPK_integer  n,
__CLPK_integer  nrhs,
__CLPK_doublereal a,
__CLPK_integer  lda,
__CLPK_integer ipiv,
__CLPK_doublereal b,
__CLPK_integer  ldb,
__CLPK_doublereal work,
__CLPK_integer  lwork 
)
inlinestatic

Definition at line 220 of file lapack_wrap.h.

223  {
224  __CLPK_integer info = 0;
225  dsysv_(&uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, work, &lwork, &info);
226  return info;
227 }

◆ lapack_sgesvd()

static __CLPK_integer lapack_sgesvd ( char  jobu,
char  jobvt,
__CLPK_integer  m,
__CLPK_integer  n,
float *  a,
__CLPK_integer  lda,
float *  s,
float *  u,
__CLPK_integer  ldu,
float *  vt,
__CLPK_integer  ldvt,
float *  work,
__CLPK_integer  lwork 
)
inlinestatic

Definition at line 250 of file lapack_wrap.h.

253  {
254  __CLPK_integer info;
255  sgesvd_(&jobu, &jobvt, &m, &n, a, &lda, s, u, &ldu, vt, &ldvt, work, &lwork,
256  &info);
257  return info;
258 }

◆ lapack_sgetrf()

static __CLPK_integer lapack_sgetrf ( __CLPK_integer  m,
__CLPK_integer  n,
float *  a,
__CLPK_integer  lda,
__CLPK_integer ipiv 
)
inlinestatic

Definition at line 149 of file lapack_wrap.h.

151  {
152  __CLPK_integer info;
153  sgetrf_(&m, &n, a, &lda, ipiv, &info);
154  return info;
155 }

◆ lapack_zgeev()

static __CLPK_integer lapack_zgeev ( char  jobvl,
char  jobvr,
__CLPK_integer  n,
__CLPK_doublecomplex a,
__CLPK_integer  lda,
__CLPK_doublecomplex w,
__CLPK_doublecomplex vl,
__CLPK_integer  ldvl,
__CLPK_doublecomplex vr,
__CLPK_integer  ldvr,
__CLPK_doublecomplex work,
__CLPK_integer  lwork,
__CLPK_doublereal rwork 
)
inlinestatic

Definition at line 279 of file lapack_wrap.h.

284  {
285  __CLPK_integer info;
286  zgeev_(&jobvl, &jobvr, &n, a, &lda, w, vl, &ldvl, vr, &ldvr, work, &lwork,
287  rwork, &info);
288  return info;
289 }

◆ lapack_zgetrf()

static __CLPK_integer lapack_zgetrf ( __CLPK_integer  m,
__CLPK_integer  n,
__CLPK_doublecomplex a,
__CLPK_integer  lda,
__CLPK_integer ipiv 
)
inlinestatic

Definition at line 323 of file lapack_wrap.h.

326  {
327  __CLPK_integer info;
328  zgetrf_(&m, &n, a, &lda, ipiv, &info);
329  return info;
330 }

◆ lapack_zgetri()

static __CLPK_integer lapack_zgetri ( __CLPK_integer  n,
__CLPK_doublecomplex a,
__CLPK_integer  lda,
__CLPK_integer ipiv,
__CLPK_doublecomplex work,
__CLPK_integer  lwork 
)
inlinestatic

Definition at line 333 of file lapack_wrap.h.

335  {
336  __CLPK_integer info;
337  zgetri_(&n, a, &lda, ipiv, work, &lwork, &info);
338  return info;
339 }

◆ lapack_zheev()

static __CLPK_integer lapack_zheev ( char  jobz,
char  uplo,
__CLPK_integer  n,
__CLPK_doublecomplex a,
__CLPK_integer  lda,
__CLPK_doublereal w,
__CLPK_doublecomplex work,
__CLPK_integer  lwork,
__CLPK_doublereal rwork 
)
inlinestatic

Definition at line 269 of file lapack_wrap.h.

272  {
273  __CLPK_integer info;
274  zheev_(&jobz, &uplo, &n, a, &lda, w, work, &lwork, rwork, &info);
275  return info;
276 }

◆ lapack_zpotrf()

static __CLPK_integer lapack_zpotrf ( char  uplo,
__CLPK_integer  n,
__CLPK_doublecomplex a,
__CLPK_integer  lda 
)
inlinestatic

Definition at line 348 of file lapack_wrap.h.

350  {
351  __CLPK_integer info;
352  zpotrf_(&uplo, &n, a, &lda, &info);
353  return info;
354 }

◆ lapack_zpotri()

static __CLPK_integer lapack_zpotri ( char  uplo,
__CLPK_integer  n,
__CLPK_doublecomplex a,
__CLPK_integer  lda 
)
inlinestatic

Definition at line 341 of file lapack_wrap.h.

343  {
344  __CLPK_integer info;
345  zpotri_(&uplo, &n, a, &lda, &info);
346  return info;
347 }

◆ sgesvd_()

__CLPK_integer sgesvd_ ( char *  jobu,
char *  jobvt,
__CLPK_integer m,
__CLPK_integer n,
float *  a,
__CLPK_integer lda,
float *  s,
float *  u,
__CLPK_integer ldu,
float *  vt,
__CLPK_integer ldvt,
float *  work,
__CLPK_integer lwork,
__CLPK_integer info 
)

◆ sgetrf_()

__CLPK_integer sgetrf_ ( __CLPK_integer m,
__CLPK_integer n,
float *  a,
__CLPK_integer lda,
__CLPK_integer ipiv,
__CLPK_integer info 
)

◆ zgeev_()

__CLPK_integer zgeev_ ( char *  jobvl,
char *  jobvr,
__CLPK_integer n,
__CLPK_doublecomplex a,
__CLPK_integer lda,
__CLPK_doublecomplex w,
__CLPK_doublecomplex vl,
__CLPK_integer ldvl,
__CLPK_doublecomplex vr,
__CLPK_integer ldvr,
__CLPK_doublecomplex work,
__CLPK_integer lwork,
__CLPK_doublereal rwork,
__CLPK_integer info 
)

◆ zgetrf_()

__CLPK_integer zgetrf_ ( __CLPK_integer m,
__CLPK_integer n,
__CLPK_doublecomplex a,
__CLPK_integer lda,
__CLPK_integer ipiv,
__CLPK_integer info 
)

◆ zgetri_()

__CLPK_integer zgetri_ ( __CLPK_integer n,
__CLPK_doublecomplex a,
__CLPK_integer lda,
__CLPK_integer ipiv,
__CLPK_doublecomplex work,
__CLPK_integer lwork,
__CLPK_integer info 
)

◆ zheev_()

__CLPK_integer zheev_ ( char *  jobz,
char *  uplo,
__CLPK_integer n,
__CLPK_doublecomplex a,
__CLPK_integer lda,
__CLPK_doublereal w,
__CLPK_doublecomplex work,
__CLPK_integer lwork,
__CLPK_doublereal rwork,
__CLPK_integer info 
)

◆ zpotrf_()

__CLPK_integer zpotrf_ ( char *  uplo,
__CLPK_integer n,
__CLPK_doublecomplex a,
__CLPK_integer lda,
__CLPK_integer info 
)

◆ zpotri_()

__CLPK_integer zpotri_ ( char *  uplo,
__CLPK_integer n,
__CLPK_doublecomplex a,
__CLPK_integer lda,
__CLPK_integer info 
)
dposv_
__CLPK_integer dposv_(char *uplo, __CLPK_integer *n, __CLPK_integer *nrhs, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_doublereal *b, __CLPK_integer *ldb, __CLPK_integer *info)
sgetrf_
__CLPK_integer sgetrf_(__CLPK_integer *m, __CLPK_integer *n, float *a, __CLPK_integer *lda, __CLPK_integer *ipiv, __CLPK_integer *info)
zpotri_
__CLPK_integer zpotri_(char *uplo, __CLPK_integer *n, __CLPK_doublecomplex *a, __CLPK_integer *lda, __CLPK_integer *info)
zgetrf_
__CLPK_integer zgetrf_(__CLPK_integer *m, __CLPK_integer *n, __CLPK_doublecomplex *a, __CLPK_integer *lda, __CLPK_integer *ipiv, __CLPK_integer *info)
dsyevd_
__CLPK_integer dsyevd_(char *jobz, char *uplo, __CLPK_integer *n, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_doublereal *w, __CLPK_doublereal *work, __CLPK_integer *lwork, __CLPK_integer *iwork, __CLPK_integer *liwork, __CLPK_integer *info)
dgels_
__CLPK_integer dgels_(char *trans, __CLPK_integer *m, __CLPK_integer *n, __CLPK_integer *nrhs, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_doublereal *b, __CLPK_integer *ldb, __CLPK_doublereal *work, __CLPK_integer *lwork, __CLPK_integer *info)
dgesv_
__CLPK_integer dgesv_(__CLPK_integer *n, __CLPK_integer *nrhs, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_integer *ipiv, __CLPK_doublereal *b, __CLPK_integer *ldb, __CLPK_integer *info)
dgetrf_
__CLPK_integer dgetrf_(__CLPK_integer *m, __CLPK_integer *n, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_integer *ipiv, __CLPK_integer *info)
dpotrs_
__CLPK_integer dpotrs_(char *uplo, __CLPK_integer *n, __CLPK_integer *nrhs, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_doublereal *b, __CLPK_integer *ldb, __CLPK_integer *info)
a
constexpr double a
Definition: approx_sphere.cpp:30
zheev_
__CLPK_integer zheev_(char *jobz, char *uplo, __CLPK_integer *n, __CLPK_doublecomplex *a, __CLPK_integer *lda, __CLPK_doublereal *w, __CLPK_doublecomplex *work, __CLPK_integer *lwork, __CLPK_doublereal *rwork, __CLPK_integer *info)
dsysv_
__CLPK_integer dsysv_(char *uplo, __CLPK_integer *n, __CLPK_integer *nrhs, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_integer *ipiv, __CLPK_doublereal *b, __CLPK_integer *ldb, __CLPK_doublereal *work, __CLPK_integer *lwork, __CLPK_integer *info)
dpotri_
__CLPK_integer dpotri_(char *uplo, __CLPK_integer *n, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_integer *info)
dsyev_
__CLPK_integer dsyev_(char *jobz, char *uplo, __CLPK_integer *n, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_doublereal *w, __CLPK_doublereal *work, __CLPK_integer *lwork, __CLPK_integer *info)
dpotrf_
__CLPK_integer dpotrf_(char *uplo, __CLPK_integer *n, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_integer *info)
convert.n
n
Definition: convert.py:82
zpotrf_
__CLPK_integer zpotrf_(char *uplo, __CLPK_integer *n, __CLPK_doublecomplex *a, __CLPK_integer *lda, __CLPK_integer *info)
zgeev_
__CLPK_integer zgeev_(char *jobvl, char *jobvr, __CLPK_integer *n, __CLPK_doublecomplex *a, __CLPK_integer *lda, __CLPK_doublecomplex *w, __CLPK_doublecomplex *vl, __CLPK_integer *ldvl, __CLPK_doublecomplex *vr, __CLPK_integer *ldvr, __CLPK_doublecomplex *work, __CLPK_integer *lwork, __CLPK_doublereal *rwork, __CLPK_integer *info)
dgetri_
__CLPK_integer dgetri_(__CLPK_integer *n, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_integer *ipiv, __CLPK_doublereal *work, __CLPK_integer *lwork, __CLPK_integer *info)
zgetri_
__CLPK_integer zgetri_(__CLPK_integer *n, __CLPK_doublecomplex *a, __CLPK_integer *lda, __CLPK_integer *ipiv, __CLPK_doublecomplex *work, __CLPK_integer *lwork, __CLPK_integer *info)
sdf_wavy_2d.w
int w
Definition: sdf_wavy_2d.py:7
m
FTensor::Index< 'm', 3 > m
Definition: shallow_wave.cpp:80
__CLPK_integer
long int __CLPK_integer
Definition: lapack_wrap.h:23
dgesdd_
__CLPK_integer dgesdd_(char *jobz, __CLPK_integer *m, __CLPK_integer *n, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_doublereal *s, __CLPK_doublereal *u, __CLPK_integer *ldu, __CLPK_doublereal *vt, __CLPK_integer *ldvt, __CLPK_doublereal *work, __CLPK_integer *lwork, __CLPK_integer *iwork, __CLPK_integer *info)
sgesvd_
__CLPK_integer sgesvd_(char *jobu, char *jobvt, __CLPK_integer *m, __CLPK_integer *n, float *a, __CLPK_integer *lda, float *s, float *u, __CLPK_integer *ldu, float *vt, __CLPK_integer *ldvt, float *work, __CLPK_integer *lwork, __CLPK_integer *info)
dgetrs_
__CLPK_integer dgetrs_(char *trans, __CLPK_integer *n, __CLPK_integer *nrhs, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_integer *ipiv, __CLPK_doublereal *b, __CLPK_integer *ldb, __CLPK_integer *info)
dpbtrs_
__CLPK_integer dpbtrs_(char *uplo, __CLPK_integer *n, __CLPK_integer *kd, __CLPK_integer *nrhs, __CLPK_doublereal *ab, __CLPK_integer *ldab, __CLPK_doublereal *b, __CLPK_integer *ldb, __CLPK_integer *info)
SUBROUTINE DPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO )
dgesvd_
__CLPK_integer dgesvd_(char *jobu, char *jobvt, __CLPK_integer *m, __CLPK_integer *n, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_doublereal *s, __CLPK_doublereal *u, __CLPK_integer *ldu, __CLPK_doublereal *vt, __CLPK_integer *ldvt, __CLPK_doublereal *work, __CLPK_integer *lwork, __CLPK_integer *info)