geqlf.h
Go to the documentation of this file.
1 //=================================================================================================
33 //=================================================================================================
34 
35 #ifndef _BLAZE_MATH_LAPACK_GEQLF_H_
36 #define _BLAZE_MATH_LAPACK_GEQLF_H_
37 
38 
39 //*************************************************************************************************
40 // Includes
41 //*************************************************************************************************
42 
43 #include <boost/cast.hpp>
50 #include <blaze/util/Assert.h>
51 #include <blaze/util/Complex.h>
53 #include <blaze/util/UniqueArray.h>
54 
55 
56 namespace blaze {
57 
58 //=================================================================================================
59 //
60 // LAPACK FORWARD DECLARATIONS
61 //
62 //=================================================================================================
63 
64 //*************************************************************************************************
66 extern "C" {
67 
68 void sgeqlf_( int* m, int* n, float* A, int* lda, float* tau, float* work, int* lwork, int* info );
69 void dgeqlf_( int* m, int* n, double* A, int* lda, double* tau, double* work, int* lwork, int* info );
70 void cgeqlf_( int* m, int* n, float* A, int* lda, float* tau, float* work, int* lwork, int* info );
71 void zgeqlf_( int* m, int* n, double* A, int* lda, double* tau, double* work, int* lwork, int* info );
72 
73 }
75 //*************************************************************************************************
76 
77 
78 
79 
80 //=================================================================================================
81 //
82 // LAPACK QL DECOMPOSITION FUNCTIONS (GEQLF)
83 //
84 //=================================================================================================
85 
86 //*************************************************************************************************
89 inline void geqlf( int m, int n, float* A, int lda, float* tau,
90  float* work, int lwork, int* info );
91 
92 inline void geqlf( int m, int n, double* A, int lda, double* tau,
93  double* work, int lwork, int* info );
94 
95 inline void geqlf( int m, int n, complex<float>* A, int lda, complex<float>* tau,
96  complex<float>* work, int lwork, int* info );
97 
98 inline void geqlf( int m, int n, complex<double>* A, int lda, complex<double>* tau,
99  complex<double>* work, int lwork, int* info );
100 
101 template< typename MT, bool SO >
102 inline void geqlf( DenseMatrix<MT,SO>& A, typename MT::ElementType* tau );
104 //*************************************************************************************************
105 
106 
107 //*************************************************************************************************
156 inline void geqlf( int m, int n, float* A, int lda, float* tau,
157  float* work, int lwork, int* info )
158 {
159  sgeqlf_( &m, &n, A, &lda, tau, work, &lwork, info );
160 }
161 //*************************************************************************************************
162 
163 
164 //*************************************************************************************************
213 inline void geqlf( int m, int n, double* A, int lda, double* tau,
214  double* work, int lwork, int* info )
215 {
216  dgeqlf_( &m, &n, A, &lda, tau, work, &lwork, info );
217 }
218 //*************************************************************************************************
219 
220 
221 //*************************************************************************************************
270 inline void geqlf( int m, int n, complex<float>* A, int lda, complex<float>* tau,
271  complex<float>* work, int lwork, int* info )
272 {
273  BLAZE_STATIC_ASSERT( sizeof( complex<float> ) == 2UL*sizeof( float ) );
274 
275  cgeqlf_( &m, &n, reinterpret_cast<float*>( A ), &lda, reinterpret_cast<float*>( tau ),
276  reinterpret_cast<float*>( work ), &lwork, info );
277 }
278 //*************************************************************************************************
279 
280 
281 //*************************************************************************************************
330 inline void geqlf( int m, int n, complex<double>* A, int lda, complex<double>* tau,
331  complex<double>* work, int lwork, int* info )
332 {
333  BLAZE_STATIC_ASSERT( sizeof( complex<double> ) == 2UL*sizeof( double ) );
334 
335  zgeqlf_( &m, &n, reinterpret_cast<double*>( A ), &lda, reinterpret_cast<double*>( tau ),
336  reinterpret_cast<double*>( work ), &lwork, info );
337 }
338 //*************************************************************************************************
339 
340 
341 //*************************************************************************************************
387 template< typename MT // Type of the dense matrix
388  , bool SO > // Storage order of the dense matrix
389 inline void geqlf( DenseMatrix<MT,SO>& A, typename MT::ElementType* tau )
390 {
391  using boost::numeric_cast;
392 
397 
398  typedef typename MT::ElementType ET;
399 
400  int m ( numeric_cast<int>( SO ? (~A).rows() : (~A).columns() ) );
401  int n ( numeric_cast<int>( SO ? (~A).columns() : (~A).rows() ) );
402  int lda ( numeric_cast<int>( (~A).spacing() ) );
403  int info( 0 );
404 
405  if( m == 0 || n == 0 ) {
406  return;
407  }
408 
409  int lwork( n*lda );
410  const UniqueArray<ET> work( new ET[lwork] );
411 
412  geqlf( m, n, (~A).data(), lda, tau, work.get(), lwork, &info );
413 
414  BLAZE_INTERNAL_ASSERT( info == 0, "Invalid argument for QL decomposition" );
415 }
416 //*************************************************************************************************
417 
418 } // namespace blaze
419 
420 #endif
Constraint on the data type.
Log level for high-level information.
Definition: LogLevel.h:80
#define BLAZE_CONSTRAINT_MUST_HAVE_MUTABLE_DATA_ACCESS(T)
Constraint on the data type.In case the given data type T does not provide low-level data access to m...
Definition: MutableDataAccess.h:79
#define BLAZE_CONSTRAINT_MUST_NOT_BE_COMPUTATION_TYPE(T)
Constraint on the data type.In case the given data type T is a computational expression (i...
Definition: Computation.h:118
Pointer get() const
Returns a pointer to the managed array.
Definition: UniqueArray.h:245
BLAZE_ALWAYS_INLINE size_t rows(const Matrix< MT, SO > &matrix)
Returns the current number of rows of the matrix.
Definition: Matrix.h:308
Constraint on the data type.
#define BLAZE_CONSTRAINT_MUST_NOT_BE_ADAPTOR_TYPE(T)
Constraint on the data type.In case the given data type T is an adaptor type (as for instance LowerMa...
Definition: Adaptor.h:118
Base class for dense matrices.The DenseMatrix class is a base class for all dense matrix classes...
Definition: DenseMatrix.h:70
Namespace of the Blaze C++ math library.
Definition: Blaze.h:57
Compile time assertion.
Header file for the DenseMatrix base class.
Type ElementType
Type of the sparse matrix elements.
Definition: CompressedMatrix.h:2586
Constraint on the data type.
Constraint on the data type.
const bool spacing
Adding an additional spacing line between two log messages.This setting gives the opportunity to add ...
Definition: Logging.h:70
Header file for run time assertion macros.
Header file for the UniqueArray smart pointer class.
#define BLAZE_CONSTRAINT_MUST_BE_BLAS_COMPATIBLE_TYPE(T)
Constraint on the data type.In case the given data type T is not a BLAS compatible data type (i...
Definition: BlasCompatible.h:79
Header file for the IsRowMajorMatrix type trait.
BLAZE_ALWAYS_INLINE size_t columns(const Matrix< MT, SO > &matrix)
Returns the current number of columns of the matrix.
Definition: Matrix.h:324
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:143
void geqlf(int m, int n, float *A, int lda, float *tau, float *work, int lwork, int *info)
LAPACK kernel for the QL decomposition of the given dense single precision column-major matrix...
Definition: geqlf.h:156
Scope-limited management of dynamically allocated arrays.The UniqueArray class implements a scope-res...
Definition: UniqueArray.h:97
#define BLAZE_INTERNAL_ASSERT(expr, msg)
Run time assertion macro for internal checks.In case of an invalid run time expression, the program execution is terminated. The BLAZE_INTERNAL_ASSERT macro can be disabled by setting the BLAZE_USER_ASSERTION flag to zero or by defining NDEBUG during the compilation.
Definition: Assert.h:101