3 #ifndef DUNE_ISTL_SUPERMATRIX_HH
4 #define DUNE_ISTL_SUPERMATRIX_HH
10 #include <dune/common/fmatrix.hh>
11 #include <dune/common/fvector.hh>
12 #include <dune/common/typetraits.hh>
30 #if __has_include("slu_sdefs.h")
34 static void create(SuperMatrix *
mat,
int n,
int m,
int offset,
35 float *values,
int *rowindex,
int* colindex,
36 Stype_t stype, Dtype_t dtype, Mtype_t mtype)
38 sCreate_CompCol_Matrix(
mat, n, m, offset, values, rowindex, colindex,
44 struct SuperMatrixPrinter<float>
46 static void print(
char* name, SuperMatrix*
mat)
48 sPrint_CompCol_Matrix(name,
mat);
53 #if __has_include("slu_ddefs.h")
55 struct SuperMatrixCreateSparseChooser<double>
57 static void create(SuperMatrix *
mat,
int n,
int m,
int offset,
58 double *values,
int *rowindex,
int* colindex,
59 Stype_t stype, Dtype_t dtype, Mtype_t mtype)
61 dCreate_CompCol_Matrix(
mat, n, m, offset, values, rowindex, colindex,
67 struct SuperMatrixPrinter<double>
69 static void print(
char* name, SuperMatrix*
mat)
71 dPrint_CompCol_Matrix(name,
mat);
76 #if __has_include("slu_cdefs.h")
78 struct SuperMatrixCreateSparseChooser<std::complex<float> >
80 static void create(SuperMatrix *
mat,
int n,
int m,
int offset,
81 std::complex<float> *values,
int *rowindex,
int* colindex,
82 Stype_t stype, Dtype_t dtype, Mtype_t mtype)
84 cCreate_CompCol_Matrix(
mat, n, m, offset,
reinterpret_cast< ::complex*
>(values),
85 rowindex, colindex, stype, dtype, mtype);
90 struct SuperMatrixPrinter<std::complex<float> >
92 static void print(
char* name, SuperMatrix*
mat)
94 cPrint_CompCol_Matrix(name,
mat);
99 #if __has_include("slu_zdefs.h")
101 struct SuperMatrixCreateSparseChooser<std::complex<double> >
103 static void create(SuperMatrix *
mat,
int n,
int m,
int offset,
104 std::complex<double> *values,
int *rowindex,
int* colindex,
105 Stype_t stype, Dtype_t dtype, Mtype_t mtype)
107 zCreate_CompCol_Matrix(
mat, n, m, offset,
reinterpret_cast<doublecomplex*
>(values),
108 rowindex, colindex, stype, dtype, mtype);
113 struct SuperMatrixPrinter<std::complex<double> >
115 static void print(
char* name, SuperMatrix*
mat)
117 zPrint_CompCol_Matrix(name,
mat);
134 std::is_same<T,float>::value ? SLU_S :
135 ( std::is_same<T,std::complex<double> >::value ? SLU_Z :
136 ( std::is_same<T,std::complex<float> >::value ? SLU_C : SLU_D ));
182 template<
class M,
class X,
class TM,
class TD,
class T1>
185 template<
class T,
bool flag>
191 template<
class B,
class TA>
193 :
public ISTL::Impl::BCCSMatrix<typename BCRSMatrix<B,TA>::field_type, int>
195 template<
class M,
class X,
class TM,
class TD,
class T1>
219 if (this->N_+this->M_*this->Nnz_ != 0)
224 operator SuperMatrix&()
230 operator const SuperMatrix&()
const
237 if (this->N_ + this->M_ + this->Nnz_!=0)
243 ISTL::Impl::BCCSMatrixInitializer<Matrix, int> initializer(*
this);
245 copyToBCCSMatrix(initializer,
mat);
248 ::create(&A, this->N_, this->M_, this->colstart[this->N_],
249 this->values,this->rowindex, this->colstart, SLU_NC,
256 if (this->N_ + this->M_ + this->Nnz_!=0)
262 ISTL::Impl::BCCSMatrixInitializer<Matrix, int> initializer(*
this);
264 copyToBCCSMatrix(initializer,
mat);
267 ::create(&A, this->N_, this->M_, this->colstart[this->N_],
268 this->values,this->rowindex, this->colstart, SLU_NC,
281 if(this->N_+this->M_+this->Nnz_!=0)
287 copyToBCCSMatrix(initializer, ISTL::Impl::MatrixRowSubset<
Matrix,std::set<std::size_t> >(
mat,mrs));
297 copyToBCCSMatrix(initializer,
mat);
303 ISTL::Impl::BCCSMatrix<typename BCRSMatrix<B,TA>::field_type,
int>::free();
304 SUPERLU_FREE(A.Store);
310 template<
class B,
class A>
312 :
public ISTL::Impl::BCCSMatrixInitializer<BCRSMatrix<B,A>, int>
314 template<
class I,
class S,
class D>
329 ISTL::Impl::BCCSMatrixInitializer<BCRSMatrix<B,A>,
int>::createMatrix();
331 ::create(&slumat->A, slumat->N_, slumat->M_, slumat->colstart[this->cols],
332 slumat->values,slumat->rowindex, slumat->colstart, SLU_NC,
Implementation of the BCRSMatrix class.
This file implements a vector space as a tensor product of a given vector space. The number of compon...
Matrix & mat
Definition: matrixmatrix.hh:345
Definition: allocator.hh:9
Initializer for SuperLU Matrices representing the subdomains.
Definition: overlappingschwarz.hh:45
static auto coldim(const M &A)
Definition: matrixutils.hh:217
static auto rowdim(const M &A)
Definition: matrixutils.hh:212
A sparse block matrix with compressed row storage.
Definition: bcrsmatrix.hh:464
A::size_type size_type
The type for the index access and the size.
Definition: bcrsmatrix.hh:498
Sequential overlapping Schwarz preconditioner.
Definition: overlappingschwarz.hh:753
Definition: overlappingschwarz.hh:692
SuperLu Solver.
Definition: superlu.hh:269
Definition: supermatrix.hh:24
Definition: supermatrix.hh:28
Definition: supermatrix.hh:124
static const Dtype_t type
Definition: supermatrix.hh:125
Definition: supermatrix.hh:130
double float_type
Definition: supermatrix.hh:142
float float_type
Definition: supermatrix.hh:149
double float_type
Definition: supermatrix.hh:156
float float_type
Definition: supermatrix.hh:163
Utility class for converting an ISTL Matrix into a SuperLU Matrix.
Definition: supermatrix.hh:173
Definition: supermatrix.hh:177
virtual void free()
free allocated space.
Definition: supermatrix.hh:301
SuperLUMatrix(const Matrix &mat)
Constructor that initializes the data.
Definition: supermatrix.hh:210
SuperLUMatrix< BCRSMatrix< B, TA > > & operator=(const BCRSMatrix< B, TA > &mat)
Definition: supermatrix.hh:235
virtual void setMatrix(const Matrix &mat)
Initialize data from given matrix.
Definition: supermatrix.hh:291
SuperLUMatrix()
Definition: supermatrix.hh:213
Matrix::size_type size_type
Definition: supermatrix.hh:204
BCRSMatrix< B, TA > Matrix
The type of the matrix to convert.
Definition: supermatrix.hh:200
virtual void setMatrix(const Matrix &mat, const std::set< std::size_t > &mrs)
Initialize data from a given set of matrix rows and columns.
Definition: supermatrix.hh:279
virtual ~SuperLUMatrix()
Destructor.
Definition: supermatrix.hh:217
SuperLUMatrix< BCRSMatrix< B, TA > > & operator=(const SuperLUMatrix< BCRSMatrix< B, TA > > &mat)
Definition: supermatrix.hh:254
Dune::SuperLUMatrix< Matrix > SuperLUMatrix
Definition: supermatrix.hh:318
BCRSMatrix< B, A > Matrix
Definition: supermatrix.hh:317
SuperMatrixInitializer()
Definition: supermatrix.hh:324
virtual void createMatrix() const
Definition: supermatrix.hh:327
SuperMatrixInitializer(SuperLUMatrix &lum)
Definition: supermatrix.hh:320