35 #ifndef _BLAZE_MATH_LAPACK_CLAPACK_UNGQR_H_ 36 #define _BLAZE_MATH_LAPACK_CLAPACK_UNGQR_H_ 55 #if !defined(INTEL_MKL_VERSION) 58 void cungqr_(
int* m,
int* n,
int* k,
float* A,
int* lda,
float* tau,
float* work,
int* lwork,
int* info );
59 void zungqr_(
int* m,
int* n,
int* k,
double* A,
int* lda,
double* tau,
double* work,
int* lwork,
int* info );
80 inline void ungqr(
int m,
int n,
int k, complex<float>* A,
int lda,
const complex<float>* tau,
81 complex<float>* work,
int lwork,
int* info );
83 inline void ungqr(
int m,
int n,
int k, complex<double>* A,
int lda,
const complex<double>* tau,
84 complex<double>* work,
int lwork,
int* info );
120 inline void ungqr(
int m,
int n,
int k, complex<float>* A,
int lda,
const complex<float>* tau,
121 complex<float>* work,
int lwork,
int* info )
125 #if defined(INTEL_MKL_VERSION) 127 using ET = MKL_Complex8;
132 cungqr_( &m, &n, &k, reinterpret_cast<ET*>( A ), &lda,
133 const_cast<ET*>( reinterpret_cast<const ET*>( tau ) ),
134 reinterpret_cast<ET*>( work ), &lwork, info );
170 inline void ungqr(
int m,
int n,
int k, complex<double>* A,
int lda,
const complex<double>* tau,
171 complex<double>* work,
int lwork,
int* info )
175 #if defined(INTEL_MKL_VERSION) 177 using ET = MKL_Complex16;
182 zungqr_( &m, &n, &k, reinterpret_cast<ET*>( A ), &lda,
183 const_cast<ET*>( reinterpret_cast<const ET*>( tau ) ),
184 reinterpret_cast<ET*>( work ), &lwork, info );
void ungqr(int m, int n, int k, complex< float > *A, int lda, const complex< float > *tau, complex< float > *work, int lwork, int *info)
LAPACK kernel for the reconstruction of the orthogonal matrix Q from a QR decomposition.
Definition: ungqr.h:120
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