trtri.h
Go to the documentation of this file.
1 //=================================================================================================
33 //=================================================================================================
34 
35 #ifndef _BLAZE_MATH_LAPACK_TRTRI_H_
36 #define _BLAZE_MATH_LAPACK_TRTRI_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>
52 #include <blaze/util/Exception.h>
54 
55 
56 namespace blaze {
57 
58 //=================================================================================================
59 //
60 // LAPACK FORWARD DECLARATIONS
61 //
62 //=================================================================================================
63 
64 //*************************************************************************************************
66 extern "C" {
67 
68 void strtri_( char* uplo, char* diag, int* n, float* A, int* lda, int* info );
69 void dtrtri_( char* uplo, char* diag, int* n, double* A, int* lda, int* info );
70 void ctrtri_( char* uplo, char* diag, int* n, float* A, int* lda, int* info );
71 void ztrtri_( char* uplo, char* diag, int* n, double* A, int* lda, int* info );
72 
73 }
75 //*************************************************************************************************
76 
77 
78 
79 
80 //=================================================================================================
81 //
82 // LAPACK TRIANGULAR MATRIX INVERSION FUNCTIONS (TRTRI)
83 //
84 //=================================================================================================
85 
86 //*************************************************************************************************
89 inline void trtri( char uplo, char diag, int n, float* A, int lda, int* info );
90 
91 inline void trtri( char uplo, char diag, int n, double* A, int lda, int* info );
92 
93 inline void trtri( char uplo, char diag, int n, complex<float>* A, int lda, int* info );
94 
95 inline void trtri( char uplo, char diag, int n, complex<double>* A, int lda, int* info );
96 
97 template< typename MT, bool SO >
98 inline void trtri( DenseMatrix<MT,SO>& A, char uplo, char diag );
100 //*************************************************************************************************
101 
102 
103 //*************************************************************************************************
133 inline void trtri( char uplo, char diag, int n, float* A, int lda, int* info )
134 {
135  strtri_( &uplo, &diag, &n, A, &lda, info );
136 }
137 //*************************************************************************************************
138 
139 
140 //*************************************************************************************************
170 inline void trtri( char uplo, char diag, int n, double* A, int lda, int* info )
171 {
172  dtrtri_( &uplo, &diag, &n, A, &lda, info );
173 }
174 //*************************************************************************************************
175 
176 
177 //*************************************************************************************************
207 inline void trtri( char uplo, char diag, int n, complex<float>* A, int lda, int* info )
208 {
209  BLAZE_STATIC_ASSERT( sizeof( complex<float> ) == 2UL*sizeof( float ) );
210 
211  ctrtri_( &uplo, &diag, &n, reinterpret_cast<float*>( A ), &lda, info );
212 }
213 //*************************************************************************************************
214 
215 
216 //*************************************************************************************************
246 inline void trtri( char uplo, char diag, int n, complex<double>* A, int lda, int* info )
247 {
248  BLAZE_STATIC_ASSERT( sizeof( complex<double> ) == 2UL*sizeof( double ) );
249 
250  ztrtri_( &uplo, &diag, &n, reinterpret_cast<double*>( A ), &lda, info );
251 }
252 //*************************************************************************************************
253 
254 
255 //*************************************************************************************************
294 template< typename MT // Type of the dense matrix
295  , bool SO > // Storage order of the dense matrix
296 inline void trtri( DenseMatrix<MT,SO>& A, char uplo, char diag )
297 {
298  using boost::numeric_cast;
299 
304 
305  if( !isSquare( ~A ) ) {
306  BLAZE_THROW_INVALID_ARGUMENT( "Invalid non-square matrix provided" );
307  }
308 
309  if( uplo != 'L' && uplo != 'U' ) {
310  BLAZE_THROW_INVALID_ARGUMENT( "Invalid uplo argument provided" );
311  }
312 
313  if( diag != 'U' && diag != 'N' ) {
314  BLAZE_THROW_INVALID_ARGUMENT( "Invalid diag argument provided" );
315  }
316 
317  int n ( numeric_cast<int>( (~A).columns() ) );
318  int lda ( numeric_cast<int>( (~A).spacing() ) );
319  int info( 0 );
320 
321  if( n == 0 ) {
322  return;
323  }
324 
326  ( uplo == 'L' )?( uplo = 'U' ):( uplo = 'L' );
327  }
328 
329  trtri( uplo, diag, n, (~A).data(), lda, &info );
330 
331  BLAZE_INTERNAL_ASSERT( info >= 0, "Invalid argument for matrix inversion" );
332 
333  if( info > 0 ) {
334  BLAZE_THROW_INVALID_ARGUMENT( "Inversion of singular matrix failed" );
335  }
336 }
337 //*************************************************************************************************
338 
339 } // namespace blaze
340 
341 #endif
#define BLAZE_THROW_INVALID_ARGUMENT(MESSAGE)
Macro for the emission of a std::invalid_argument exceptionThis macro encapsulates the default way of...
Definition: Exception.h:187
Constraint on the data type.
void trtri(char uplo, char diag, int n, float *A, int lda, int *info)
LAPACK kernel for the inversion of the given dense triangular single precision column-major matrix...
Definition: trtri.h:133
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
BLAZE_ALWAYS_INLINE bool isSquare(const Matrix< MT, SO > &matrix)
Checks if the given matrix is a square matrix.
Definition: Matrix.h:603
#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.
#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.
Compile time check for row-major matrix types.This type trait tests whether or not the given template...
Definition: IsRowMajorMatrix.h:110
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.
#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.
Header file for exception macros.
#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
#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