ungrq.h
Go to the documentation of this file.
1 //=================================================================================================
33 //=================================================================================================
34 
35 #ifndef _BLAZE_MATH_LAPACK_UNGRQ_H_
36 #define _BLAZE_MATH_LAPACK_UNGRQ_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 cungrq_( int* m, int* n, int* k, float* A, int* lda, float* tau, float* work, int* lwork, int* info );
69 void zungrq_( 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 RQ DECOMPOSITION (UNGRQ)
81 //
82 //=================================================================================================
83 
84 //*************************************************************************************************
87 inline void ungrq( int m, int n, int k, complex<float>* A, int lda, const complex<float>* tau,
88  complex<float>* work, int lwork, int* info );
89 
90 inline void ungrq( int m, int n, int k, complex<double>* A, int lda, const complex<double>* tau,
91  complex<double>* work, int lwork, int* info );
92 
93 template< typename MT, bool SO >
94 inline void ungrq( DenseMatrix<MT,SO>& A, const typename MT::ElementType* tau );
96 //*************************************************************************************************
97 
98 
99 //*************************************************************************************************
129 inline void ungrq( int m, int n, int k, complex<float>* A, int lda, const complex<float>* tau,
130  complex<float>* work, int lwork, int* info )
131 {
132  cungrq_( &m, &n, &k, reinterpret_cast<float*>( A ), &lda,
133  const_cast<float*>( reinterpret_cast<const float*>( tau ) ),
134  reinterpret_cast<float*>( work ), &lwork, info );
135 }
136 //*************************************************************************************************
137 
138 
139 //*************************************************************************************************
169 inline void ungrq( int m, int n, int k, complex<double>* A, int lda, const complex<double>* tau,
170  complex<double>* work, int lwork, int* info )
171 {
172  zungrq_( &m, &n, &k, reinterpret_cast<double*>( A ), &lda,
173  const_cast<double*>( reinterpret_cast<const double*>( tau ) ),
174  reinterpret_cast<double*>( work ), &lwork, info );
175 }
176 //*************************************************************************************************
177 
178 
179 //*************************************************************************************************
244 template< typename MT, bool SO >
245 inline void ungrq( DenseMatrix<MT,SO>& A, const typename MT::ElementType* tau )
246 {
247  using boost::numeric_cast;
248 
254 
255  typedef typename MT::ElementType ET;
256 
257  int n ( numeric_cast<int>( SO ? (~A).columns() : (~A).rows() ) );
258  int m ( numeric_cast<int>( SO ? (~A).rows() : (~A).columns() ) );
259  int k ( min( m, n ) );
260  int lda ( numeric_cast<int>( (~A).spacing() ) );
261  int info( 0 );
262 
263  if( k == 0 ) {
264  return;
265  }
266 
267  int lwork( k*lda );
268  const UniqueArray<ET> work( new ET[lwork] );
269  const size_t offset( ( m > n )?( m - n ):( 0UL ) );
270 
271  ungrq( k, n, k, (~A).data()+offset, lda, tau, work.get(), lwork, &info );
272 
273  BLAZE_INTERNAL_ASSERT( info == 0, "Invalid argument for Q reconstruction" );
274 }
275 //*************************************************************************************************
276 
277 } // namespace blaze
278 
279 #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
Constraint on the data type.
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_COMPLEX_TYPE(T)
Constraint on the data type.This compile time constraint checks that the given data type T is a compl...
Definition: Complex.h:80
void ungrq(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 RQ decomposition.
Definition: ungrq.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