35 #ifndef _BLAZE_MATH_LAPACK_CLAPACK_GESVD_H_ 36 #define _BLAZE_MATH_LAPACK_CLAPACK_GESVD_H_ 55 #if !defined(INTEL_MKL_VERSION) 58 void sgesvd_(
char* jobu,
char* jobv,
int* m,
int* n,
float* A,
int* lda,
float* s,
float* U,
int* ldu,
float* V,
int* ldv,
float* work,
int* lwork,
int* info );
59 void dgesvd_(
char* jobu,
char* jobv,
int* m,
int* n,
double* A,
int* lda,
double* s,
double* U,
int* ldu,
double* V,
int* ldv,
double* work,
int* lwork,
int* info );
60 void cgesvd_(
char* jobu,
char* jobv,
int* m,
int* n,
float* A,
int* lda,
float* s,
float* U,
int* ldu,
float* V,
int* ldv,
float* work,
int* lwork,
float* rwork,
int* info );
61 void zgesvd_(
char* jobu,
char* jobv,
int* m,
int* n,
double* A,
int* lda,
double* s,
double* U,
int* ldu,
double* V,
int* ldv,
double* work,
int* lwork,
double* rwork,
int* info );
82 inline void gesvd(
char jobu,
char jobv,
int m,
int n,
float* A,
int lda,
83 float* s,
float* U,
int ldu,
float* V,
int ldv,
84 float* work,
int lwork,
int* info );
86 inline void gesvd(
char jobu,
char jobv,
int m,
int n,
double* A,
int lda,
87 double* s,
double* U,
int ldu,
double* V,
int ldv,
88 double* work,
int lwork,
int* info );
90 inline void gesvd(
char jobu,
char jobv,
int m,
int n, complex<float>* A,
int lda,
91 float* s, complex<float>* U,
int ldu, complex<float>* V,
int ldv,
92 complex<float>* work,
int lwork,
float* rwork,
int* info );
94 inline void gesvd(
char jobu,
char jobv,
int m,
int n, complex<double>* A,
int lda,
95 double* s, complex<double>* U,
int ldu, complex<double>* V,
int ldv,
96 complex<double>* work,
int lwork,
double* rwork,
int* info );
163 inline void gesvd(
char jobu,
char jobv,
int m,
int n,
float* A,
int lda,
164 float* s,
float* U,
int ldu,
float* V,
int ldv,
165 float* work,
int lwork,
int* info )
167 #if defined(INTEL_MKL_VERSION) 171 sgesvd_( &jobu, &jobv, &m, &n, A, &lda, s, U, &ldu, V, &ldv, work, &lwork, info );
238 inline void gesvd(
char jobu,
char jobv,
int m,
int n,
double* A,
int lda,
239 double* s,
double* U,
int ldu,
double* V,
int ldv,
240 double* work,
int lwork,
int* info )
242 #if defined(INTEL_MKL_VERSION) 246 dgesvd_( &jobu, &jobv, &m, &n, A, &lda, s, U, &ldu, V, &ldv, work, &lwork, info );
314 inline void gesvd(
char jobu,
char jobv,
int m,
int n, complex<float>* A,
int lda,
315 float* s, complex<float>* U,
int ldu, complex<float>* V,
int ldv,
316 complex<float>* work,
int lwork,
float* rwork,
int* info )
320 #if defined(INTEL_MKL_VERSION) 322 using ET = MKL_Complex8;
327 cgesvd_( &jobu, &jobv, &m, &n, reinterpret_cast<ET*>( A ), &lda, s,
328 reinterpret_cast<ET*>( U ), &ldu, reinterpret_cast<ET*>( V ), &ldv,
329 reinterpret_cast<ET*>( work ), &lwork, rwork, info );
397 inline void gesvd(
char jobu,
char jobv,
int m,
int n, complex<double>* A,
int lda,
398 double* s, complex<double>* U,
int ldu, complex<double>* V,
int ldv,
399 complex<double>* work,
int lwork,
double* rwork,
int* info )
403 #if defined(INTEL_MKL_VERSION) 405 using ET = MKL_Complex16;
410 zgesvd_( &jobu, &jobv, &m, &n, reinterpret_cast<ET*>( A ), &lda, s,
411 reinterpret_cast<ET*>( U ), &ldu, reinterpret_cast<ET*>( V ), &ldv,
412 reinterpret_cast<ET*>( work ), &lwork, rwork, info );
void gesvd(char jobu, char jobv, int m, int n, float *A, int lda, float *s, float *U, int ldu, float *V, int ldv, float *work, int lwork, int *info)
LAPACK kernel for the singular value decomposition (SVD) of the given dense general single precision ...
Definition: gesvd.h:163
Namespace of the Blaze C++ math library.
Definition: Blaze.h:58
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