hetrs.h
Go to the documentation of this file.
1 //=================================================================================================
33 //=================================================================================================
34 
35 #ifndef _BLAZE_MATH_LAPACK_HETRS_H_
36 #define _BLAZE_MATH_LAPACK_HETRS_H_
37 
38 
39 //*************************************************************************************************
40 // Includes
41 //*************************************************************************************************
42 
43 #include <boost/cast.hpp>
51 #include <blaze/util/Assert.h>
52 #include <blaze/util/Complex.h>
54 #include <blaze/util/Exception.h>
56 
57 
58 namespace blaze {
59 
60 //=================================================================================================
61 //
62 // LAPACK FORWARD DECLARATIONS
63 //
64 //=================================================================================================
65 
66 //*************************************************************************************************
68 extern "C" {
69 
70 void chetrs_( char* uplo, int* n, int* nrhs, float* A, int* lda, int* ipiv, float* B, int* ldb, int* info );
71 void zhetrs_( char* uplo, int* n, int* nrhs, double* A, int* lda, int* ipiv, double* B, int* ldb, int* info );
72 
73 }
75 //*************************************************************************************************
76 
77 
78 
79 
80 //=================================================================================================
81 //
82 // LAPACK LDLH-BASED SUBSTITUTION FUNCTIONS (HETRS)
83 //
84 //=================================================================================================
85 
86 //*************************************************************************************************
89 inline void hetrs( char uplo, int n, int nrhs, const complex<float>* A, int lda, const int* ipiv,
90  complex<float>* B, int ldb, int* info );
91 
92 inline void hetrs( char uplo, int n, int nrhs, const complex<double>* A, int lda, const int* ipiv,
93  complex<double>* B, int ldb, int* info );
94 
95 template< typename MT, bool SO, typename VT, bool TF >
96 inline void hetrs( const DenseMatrix<MT,SO>& A, DenseVector<VT,TF>& b, char uplo, const int* ipiv );
97 
98 template< typename MT1, bool SO1, typename MT2, bool SO2 >
99 inline void hetrs( const DenseMatrix<MT1,SO1>& A, DenseMatrix<MT2,SO2>& B,
100  char uplo, const int* ipiv );
102 //*************************************************************************************************
103 
104 
105 //*************************************************************************************************
138 inline void hetrs( char uplo, int n, int nrhs, const complex<float>* A, int lda,
139  const int* ipiv, complex<float>* B, int ldb, int* info )
140 {
141  BLAZE_STATIC_ASSERT( sizeof( complex<float> ) == 2UL*sizeof( float ) );
142 
143  chetrs_( &uplo, &n, &nrhs, const_cast<float*>( reinterpret_cast<const float*>( A ) ),
144  &lda, const_cast<int*>( ipiv ), reinterpret_cast<float*>( B ), &ldb, info );
145 }
146 //*************************************************************************************************
147 
148 
149 //*************************************************************************************************
182 inline void hetrs( char uplo, int n, int nrhs, const complex<double>* A, int lda,
183  const int* ipiv, complex<double>* B, int ldb, int* info )
184 {
185  BLAZE_STATIC_ASSERT( sizeof( complex<double> ) == 2UL*sizeof( double ) );
186 
187  zhetrs_( &uplo, &n, &nrhs, const_cast<double*>( reinterpret_cast<const double*>( A ) ),
188  &lda, const_cast<int*>( ipiv ), reinterpret_cast<double*>( B ), &ldb, info );
189 }
190 //*************************************************************************************************
191 
192 
193 //*************************************************************************************************
276 template< typename MT // Type of the system matrix
277  , bool SO // Storage order of the system matrix
278  , typename VT // Type of the right-hand side vector
279  , bool TF > // Transpose flag of the right-hand side vector
280 inline void hetrs( const DenseMatrix<MT,SO>& A, DenseVector<VT,TF>& b, char uplo, const int* ipiv )
281 {
282  using boost::numeric_cast;
283 
291 
292  typedef typename MT::OppositeType OT;
293  typedef typename MT::ElementType ET;
294 
295  if( !isSquare( ~A ) ) {
296  BLAZE_THROW_INVALID_ARGUMENT( "Invalid non-square matrix provided" );
297  }
298 
299  if( uplo != 'L' && uplo != 'U' ) {
300  BLAZE_THROW_INVALID_ARGUMENT( "Invalid uplo argument provided" );
301  }
302 
303  int n ( numeric_cast<int>( (~A).rows() ) );
304  int nrhs( 1 );
305  int lda ( numeric_cast<int>( (~A).spacing() ) );
306  int ldb ( numeric_cast<int>( (~b).size() ) );
307  int info( 0 );
308 
309  if( n == 0 ) {
310  return;
311  }
312 
314  ( uplo == 'L' )?( uplo = 'U' ):( uplo = 'L' );
315  }
316 
317  hetrs( uplo, n, nrhs, (~A).data(), lda, ipiv, (~b).data(), ldb, &info );
318 
319  BLAZE_INTERNAL_ASSERT( info == 0, "Invalid function argument" );
320 }
321 //*************************************************************************************************
322 
323 
324 //*************************************************************************************************
408 template< typename MT1 // Type of the system matrix
409  , bool SO1 // Storage order of the system matrix
410  , typename MT2 // Type of the right-hand side matrix
411  , bool SO2 > // Storage order of the right-hand side matrix
412 inline void hetrs( const DenseMatrix<MT1,SO1>& A, DenseMatrix<MT2,SO2>& B, char uplo, const int* ipiv )
413 {
414  using boost::numeric_cast;
415 
424 
425  typedef typename MT1::OppositeType OT1;
426  typedef typename MT2::OppositeType OT2;
427  typedef typename MT1::ElementType ET1;
428 
429  if( !isSquare( ~A ) ) {
430  BLAZE_THROW_INVALID_ARGUMENT( "Invalid non-square matrix provided" );
431  }
432 
433  if( uplo != 'L' && uplo != 'U' ) {
434  BLAZE_THROW_INVALID_ARGUMENT( "Invalid uplo argument provided" );
435  }
436 
437  int n ( numeric_cast<int>( (~A).rows() ) );
438  int mrhs( numeric_cast<int>( SO2 ? (~B).rows() : (~B).columns() ) );
439  int nrhs( numeric_cast<int>( SO2 ? (~B).columns() : (~B).rows() ) );
440  int lda ( numeric_cast<int>( (~A).spacing() ) );
441  int ldb ( numeric_cast<int>( (~B).spacing() ) );
442  int info( 0 );
443 
444  if( n != mrhs ) {
445  BLAZE_THROW_INVALID_ARGUMENT( "Matrix sizes do not match" );
446  }
447 
448  if( n == 0 ) {
449  return;
450  }
451 
453  ( uplo == 'L' )?( uplo = 'U' ):( uplo = 'L' );
454  }
455 
456  hetrs( uplo, n, nrhs, (~A).data(), lda, ipiv, (~B).data(), ldb, &info );
457 
458  BLAZE_INTERNAL_ASSERT( info == 0, "Invalid function argument" );
459 }
460 //*************************************************************************************************
461 
462 } // namespace blaze
463 
464 #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.
Data type constraint.
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
BLAZE_ALWAYS_INLINE size_t size(const Vector< VT, TF > &vector)
Returns the current size/dimension of the vector.
Definition: Vector.h:252
#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
BLAZE_ALWAYS_INLINE size_t rows(const Matrix< MT, SO > &matrix)
Returns the current number of rows of the matrix.
Definition: Matrix.h:308
Header file for the DenseVector base class.
void hetrs(char uplo, int n, int nrhs, const complex< float > *A, int lda, const int *ipiv, complex< float > *B, int ldb, int *info)
LAPACK kernel for the substitution step of solving a symmetric indefinite single precision complex li...
Definition: hetrs.h:138
Constraint on the data type.
CompressedMatrix< Type, false > OppositeType
Result type with opposite storage order for expression template evaluations.
Definition: CompressedMatrix.h:2584
#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.
Base class for N-dimensional dense vectors.The DenseVector class is a base class for all arbitrarily ...
Definition: DenseVector.h:70
#define BLAZE_CONSTRAINT_MUST_BE_SAME_TYPE(A, B)
Data type constraint.In case the two types A and B are not the same (ignoring all cv-qualifiers of bo...
Definition: SameType.h:89
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