sytrs.h
Go to the documentation of this file.
1 //=================================================================================================
33 //=================================================================================================
34 
35 #ifndef _BLAZE_MATH_LAPACK_SYTRS_H_
36 #define _BLAZE_MATH_LAPACK_SYTRS_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 ssytrs_( char* uplo, int* n, int* nrhs, float* A, int* lda, int* ipiv, float* B, int* ldb, int* info );
71 void dsytrs_( char* uplo, int* n, int* nrhs, double* A, int* lda, int* ipiv, double* B, int* ldb, int* info );
72 void csytrs_( char* uplo, int* n, int* nrhs, float* A, int* lda, int* ipiv, float* B, int* ldb, int* info );
73 void zsytrs_( char* uplo, int* n, int* nrhs, double* A, int* lda, int* ipiv, double* B, int* ldb, int* info );
74 
75 }
77 //*************************************************************************************************
78 
79 
80 
81 
82 //=================================================================================================
83 //
84 // LAPACK LDLT-BASED SUBSTITUTION FUNCTIONS (SYTRS)
85 //
86 //=================================================================================================
87 
88 //*************************************************************************************************
91 inline void sytrs( char uplo, int n, int nrhs, const float* A, int lda, const int* ipiv,
92  float* B, int ldb, int* info );
93 
94 inline void sytrs( char uplo, int n, int nrhs, const double* A, int lda, const int* ipiv,
95  double* B, int ldb, int* info );
96 
97 inline void sytrs( char uplo, int n, int nrhs, const complex<float>* A, int lda, const int* ipiv,
98  complex<float>* B, int ldb, int* info );
99 
100 inline void sytrs( char uplo, int n, int nrhs, const complex<double>* A, int lda, const int* ipiv,
101  complex<double>* B, int ldb, int* info );
102 
103 template< typename MT, bool SO, typename VT, bool TF >
104 inline void sytrs( const DenseMatrix<MT,SO>& A, DenseVector<VT,TF>& b, char uplo, const int* ipiv );
105 
106 template< typename MT1, bool SO1, typename MT2, bool SO2 >
107 inline void sytrs( const DenseMatrix<MT1,SO1>& A, DenseMatrix<MT2,SO2>& B,
108  char uplo, const int* ipiv );
110 //*************************************************************************************************
111 
112 
113 //*************************************************************************************************
146 inline void sytrs( char uplo, int n, int nrhs, const float* A, int lda, const int* ipiv,
147  float* B, int ldb, int* info )
148 {
149  ssytrs_( &uplo, &n, &nrhs, const_cast<float*>( A ), &lda,
150  const_cast<int*>( ipiv ), B, &ldb, info );
151 }
152 //*************************************************************************************************
153 
154 
155 //*************************************************************************************************
188 inline void sytrs( char uplo, int n, int nrhs, const double* A, int lda, const int* ipiv,
189  double* B, int ldb, int* info )
190 {
191  dsytrs_( &uplo, &n, &nrhs, const_cast<double*>( A ), &lda,
192  const_cast<int*>( ipiv ), B, &ldb, info );
193 }
194 //*************************************************************************************************
195 
196 
197 //*************************************************************************************************
230 inline void sytrs( char uplo, int n, int nrhs, const complex<float>* A, int lda,
231  const int* ipiv, complex<float>* B, int ldb, int* info )
232 {
233  BLAZE_STATIC_ASSERT( sizeof( complex<float> ) == 2UL*sizeof( float ) );
234 
235  csytrs_( &uplo, &n, &nrhs, const_cast<float*>( reinterpret_cast<const float*>( A ) ),
236  &lda, const_cast<int*>( ipiv ), reinterpret_cast<float*>( B ), &ldb, info );
237 }
238 //*************************************************************************************************
239 
240 
241 //*************************************************************************************************
274 inline void sytrs( char uplo, int n, int nrhs, const complex<double>* A, int lda,
275  const int* ipiv, complex<double>* B, int ldb, int* info )
276 {
277  BLAZE_STATIC_ASSERT( sizeof( complex<double> ) == 2UL*sizeof( double ) );
278 
279  zsytrs_( &uplo, &n, &nrhs, const_cast<double*>( reinterpret_cast<const double*>( A ) ),
280  &lda, const_cast<int*>( ipiv ), reinterpret_cast<double*>( B ), &ldb, info );
281 }
282 //*************************************************************************************************
283 
284 
285 //*************************************************************************************************
368 template< typename MT // Type of the system matrix
369  , bool SO // Storage order of the system matrix
370  , typename VT // Type of the right-hand side vector
371  , bool TF > // Transpose flag of the right-hand side vector
372 inline void sytrs( const DenseMatrix<MT,SO>& A, DenseVector<VT,TF>& b, char uplo, const int* ipiv )
373 {
374  using boost::numeric_cast;
375 
383 
384  typedef typename MT::OppositeType OT;
385  typedef typename MT::ElementType ET;
386 
387  if( !isSquare( ~A ) ) {
388  BLAZE_THROW_INVALID_ARGUMENT( "Invalid non-square matrix provided" );
389  }
390 
391  if( uplo != 'L' && uplo != 'U' ) {
392  BLAZE_THROW_INVALID_ARGUMENT( "Invalid uplo argument provided" );
393  }
394 
395  int n ( numeric_cast<int>( (~A).rows() ) );
396  int nrhs( 1 );
397  int lda ( numeric_cast<int>( (~A).spacing() ) );
398  int ldb ( numeric_cast<int>( (~b).size() ) );
399  int info( 0 );
400 
401  if( n == 0 ) {
402  return;
403  }
404 
406  ( uplo == 'L' )?( uplo = 'U' ):( uplo = 'L' );
407  }
408 
409  sytrs( uplo, n, nrhs, (~A).data(), lda, ipiv, (~b).data(), ldb, &info );
410 
411  BLAZE_INTERNAL_ASSERT( info == 0, "Invalid function argument" );
412 }
413 //*************************************************************************************************
414 
415 
416 //*************************************************************************************************
500 template< typename MT1 // Type of the system matrix
501  , bool SO1 // Storage order of the system matrix
502  , typename MT2 // Type of the right-hand side matrix
503  , bool SO2 > // Storage order of the right-hand side matrix
504 inline void sytrs( const DenseMatrix<MT1,SO1>& A, DenseMatrix<MT2,SO2>& B, char uplo, const int* ipiv )
505 {
506  using boost::numeric_cast;
507 
516 
517  typedef typename MT1::OppositeType OT1;
518  typedef typename MT2::OppositeType OT2;
519  typedef typename MT1::ElementType ET1;
520 
521  if( !isSquare( ~A ) ) {
522  BLAZE_THROW_INVALID_ARGUMENT( "Invalid non-square matrix provided" );
523  }
524 
525  if( uplo != 'L' && uplo != 'U' ) {
526  BLAZE_THROW_INVALID_ARGUMENT( "Invalid uplo argument provided" );
527  }
528 
529  int n ( numeric_cast<int>( (~A).rows() ) );
530  int mrhs( numeric_cast<int>( SO2 ? (~B).rows() : (~B).columns() ) );
531  int nrhs( numeric_cast<int>( SO2 ? (~B).columns() : (~B).rows() ) );
532  int lda ( numeric_cast<int>( (~A).spacing() ) );
533  int ldb ( numeric_cast<int>( (~B).spacing() ) );
534  int info( 0 );
535 
536  if( n != mrhs ) {
537  BLAZE_THROW_INVALID_ARGUMENT( "Matrix sizes do not match" );
538  }
539 
540  if( n == 0 ) {
541  return;
542  }
543 
545  ( uplo == 'L' )?( uplo = 'U' ):( uplo = 'L' );
546  }
547 
548  sytrs( uplo, n, nrhs, (~A).data(), lda, ipiv, (~B).data(), ldb, &info );
549 
550  BLAZE_INTERNAL_ASSERT( info == 0, "Invalid function argument" );
551 }
552 //*************************************************************************************************
553 
554 } // namespace blaze
555 
556 #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.
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
void sytrs(char uplo, int n, int nrhs, const float *A, int lda, const int *ipiv, float *B, int ldb, int *info)
LAPACK kernel for the substitution step of solving a symmetric indefinite single precision linear sys...
Definition: sytrs.h:146
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