orgql.h
Go to the documentation of this file.
1 //=================================================================================================
33 //=================================================================================================
34 
35 #ifndef _BLAZE_MATH_LAPACK_ORGQL_H_
36 #define _BLAZE_MATH_LAPACK_ORGQL_H_
37 
38 
39 //*************************************************************************************************
40 // Includes
41 //*************************************************************************************************
42 
43 #include <boost/cast.hpp>
49 #include <blaze/util/Assert.h>
50 #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 sorgql_( int* m, int* n, int* k, float* A, int* lda, float* tau, float* work, int* lwork, int* info );
69 void dorgql_( int* m, int* n, int* k, double* A, int* lda, double* tau, double* work, int* lwork, int* info );
70 
71 }
73 //*************************************************************************************************
74 
75 
76 
77 
78 //=================================================================================================
79 //
80 // LAPACK FUNCTIONS TO RECONSTRUCT Q FROM A QL DECOMPOSITION (ORGQL)
81 //
82 //=================================================================================================
83 
84 //*************************************************************************************************
87 inline void orgql( int m, int n, int k, float* A, int lda, const float* tau,
88  float* work, int lwork, int* info );
89 
90 inline void orgql( int m, int n, int k, double* A, int lda, const double* tau,
91  double* work, int lwork, int* info );
92 
93 template< typename MT, bool SO >
94 inline void orgql( DenseMatrix<MT,SO>& A, const typename MT::ElementType* tau );
96 //*************************************************************************************************
97 
98 
99 //*************************************************************************************************
129 inline void orgql( int m, int n, int k, float* A, int lda, const float* tau, float* work, int lwork, int* info )
130 {
131  sorgql_( &m, &n, &k, A, &lda, const_cast<float*>( tau ), work, &lwork, info );
132 }
133 //*************************************************************************************************
134 
135 
136 //*************************************************************************************************
166 inline void orgql( int m, int n, int k, double* A, int lda, const double* tau, double* work, int lwork, int* info )
167 {
168  dorgql_( &m, &n, &k, A, &lda, const_cast<double*>( tau ), work, &lwork, info );
169 }
170 //*************************************************************************************************
171 
172 
173 //*************************************************************************************************
234 template< typename MT, bool SO >
235 inline void orgql( DenseMatrix<MT,SO>& A, const typename MT::ElementType* tau )
236 {
237  using boost::numeric_cast;
238 
244 
245  typedef typename MT::ElementType ET;
246 
247  int n ( numeric_cast<int>( SO ? (~A).columns() : (~A).rows() ) );
248  int m ( numeric_cast<int>( SO ? (~A).rows() : (~A).columns() ) );
249  int k ( min( m, n ) );
250  int lda ( numeric_cast<int>( (~A).spacing() ) );
251  int info( 0 );
252 
253  if( k == 0 ) {
254  return;
255  }
256 
257  int lwork( k*lda );
258  const UniqueArray<ET> work( new ET[lwork] );
259  const size_t offset( ( m < n )?( n - m ):( 0UL ) );
260 
261  orgql( m, k, k, (~A).data(offset), lda, tau, work.get(), lwork, &info );
262 
263  BLAZE_INTERNAL_ASSERT( info == 0, "Invalid argument for Q reconstruction" );
264 }
265 //*************************************************************************************************
266 
267 } // namespace blaze
268 
269 #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.
const MT::ElementType min(const DenseMatrix< MT, SO > &dm)
Returns the smallest element of the dense matrix.
Definition: DenseMatrix.h:1682
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
#define BLAZE_CONSTRAINT_MUST_BE_BUILTIN_TYPE(T)
Constraint on the data type.In case the given data type T is not a built-in data type, a compilation error is created.
Definition: Builtin.h:78
void orgql(int m, int n, int k, float *A, int lda, const float *tau, float *work, int lwork, int *info)
LAPACK kernel for the reconstruction of the orthogonal matrix Q from a QL decomposition.
Definition: orgql.h:129
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.
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
Constraint on the data type.