35 #ifndef _BLAZE_MATH_LAPACK_CLAPACK_HETRS_H_ 36 #define _BLAZE_MATH_LAPACK_CLAPACK_HETRS_H_ 55 #if !defined(INTEL_MKL_VERSION) 58 void chetrs_(
char* uplo,
int* n,
int* nrhs,
float* A,
int* lda,
int* ipiv,
float* B,
int* ldb,
int* info );
59 void zhetrs_(
char* uplo,
int* n,
int* nrhs,
double* A,
int* lda,
int* ipiv,
double* B,
int* ldb,
int* info );
80 inline void hetrs(
char uplo,
int n,
int nrhs,
const complex<float>* A,
int lda,
const int* ipiv,
81 complex<float>* B,
int ldb,
int* info );
83 inline void hetrs(
char uplo,
int n,
int nrhs,
const complex<double>* A,
int lda,
const int* ipiv,
84 complex<double>* B,
int ldb,
int* info );
123 inline void hetrs(
char uplo,
int n,
int nrhs,
const complex<float>* A,
int lda,
124 const int* ipiv, complex<float>* B,
int ldb,
int* info )
128 #if defined(INTEL_MKL_VERSION) 130 using ET = MKL_Complex8;
135 chetrs_( &uplo, &n, &nrhs, const_cast<ET*>( reinterpret_cast<const ET*>( A ) ),
136 &lda, const_cast<int*>( ipiv ), reinterpret_cast<ET*>( B ), &ldb, info );
175 inline void hetrs(
char uplo,
int n,
int nrhs,
const complex<double>* A,
int lda,
176 const int* ipiv, complex<double>* B,
int ldb,
int* info )
180 #if defined(INTEL_MKL_VERSION) 182 using ET = MKL_Complex16;
187 zhetrs_( &uplo, &n, &nrhs, const_cast<ET*>( reinterpret_cast<const ET*>( A ) ),
188 &lda, const_cast<int*>( ipiv ), reinterpret_cast<ET*>( B ), &ldb, info );
void hetrs(char uplo, int n, int nrhs, const complex< float > *A, int lda, const int *ipiv, complex< float > *B, int ldb, int *info)
LAPACK kernel for the substitution step of solving a symmetric indefinite single precision complex li...
Definition: hetrs.h:123
Namespace of the Blaze C++ math library.
Definition: Blaze.h:57
Header file for the complex data type.
#define BLAZE_STATIC_ASSERT(expr)
Compile time assertion macro.In case of an invalid compile time expression, a compilation error is cr...
Definition: StaticAssert.h:112