v0.14.0
Loading...
Searching...
No Matches
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 )
 
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_()

◆ dgelsy_()

◆ dgesdd_()

◆ dgesv_()

◆ dgesvd_()

◆ dgetrf_()

◆ dgetri_()

◆ 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_()

◆ 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_()

◆ 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}
constexpr double a
FTensor::Index< 'n', SPACE_DIM > n
FTensor::Index< 'm', SPACE_DIM > m
long int __CLPK_integer
Definition lapack_wrap.h:23
__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)

◆ lapack_dgesdd()

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}
__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)

◆ 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}
__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)

◆ 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}
__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)

◆ 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}
__CLPK_integer dgetrf_(__CLPK_integer *m, __CLPK_integer *n, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_integer *ipiv, __CLPK_integer *info)

◆ 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}
__CLPK_integer dgetri_(__CLPK_integer *n, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_integer *ipiv, __CLPK_doublereal *work, __CLPK_integer *lwork, __CLPK_integer *info)

◆ 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}
__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)

◆ 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}
__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 )

◆ 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}
__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)

◆ 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}
__CLPK_integer dpotrf_(char *uplo, __CLPK_integer *n, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_integer *info)

◆ 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}
__CLPK_integer dpotri_(char *uplo, __CLPK_integer *n, __CLPK_doublereal *a, __CLPK_integer *lda, __CLPK_integer *info)

◆ 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}
__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)

◆ 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
NavierStokesElement.cpp, Remodeling.cpp, and matrix_function.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}
__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)

◆ 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}
__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)

◆ 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}
__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_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}
__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)

◆ 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}
__CLPK_integer sgetrf_(__CLPK_integer *m, __CLPK_integer *n, float *a, __CLPK_integer *lda, __CLPK_integer *ipiv, __CLPK_integer *info)

◆ 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}
__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)

◆ 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}
__CLPK_integer zgetrf_(__CLPK_integer *m, __CLPK_integer *n, __CLPK_doublecomplex *a, __CLPK_integer *lda, __CLPK_integer *ipiv, __CLPK_integer *info)

◆ 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}
__CLPK_integer zgetri_(__CLPK_integer *n, __CLPK_doublecomplex *a, __CLPK_integer *lda, __CLPK_integer *ipiv, __CLPK_doublecomplex *work, __CLPK_integer *lwork, __CLPK_integer *info)

◆ 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}
__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)

◆ 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}
__CLPK_integer zpotrf_(char *uplo, __CLPK_integer *n, __CLPK_doublecomplex *a, __CLPK_integer *lda, __CLPK_integer *info)

◆ 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}
__CLPK_integer zpotri_(char *uplo, __CLPK_integer *n, __CLPK_doublecomplex *a, __CLPK_integer *lda, __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 )

◆ sgetrf_()

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

◆ zgeev_()

◆ zgetrf_()

◆ zgetri_()

◆ 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 )