35 #ifndef _BLAZE_MATH_LAPACK_CLAPACK_UNGLQ_H_ 36 #define _BLAZE_MATH_LAPACK_CLAPACK_UNGLQ_H_ 55 #if !defined(INTEL_MKL_VERSION) 58 void cunglq_(
int* m,
int* n,
int* k,
float* A,
int* lda,
float* tau,
float* work,
int* lwork,
int* info );
59 void zunglq_(
int* m,
int* n,
int* k,
double* A,
int* lda,
double* tau,
double* work,
int* lwork,
int* info );
80 inline void unglq(
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 unglq(
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 unglq(
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 cunglq_( &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 unglq(
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 zunglq_( &m, &n, &k, reinterpret_cast<ET*>( A ), &lda,
183 const_cast<ET*>( reinterpret_cast<const ET*>( tau ) ),
184 reinterpret_cast<ET*>( work ), &lwork, info );
Namespace of the Blaze C++ math library.
Definition: Blaze.h:58
void unglq(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 LQ decomposition.
Definition: unglq.h:120
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