43 #ifndef IFPACK2_DROPFILTER_DEF_HPP 44 #define IFPACK2_DROPFILTER_DEF_HPP 45 #include "Ifpack2_DropFilter_decl.hpp" 48 #include "Tpetra_ConfigDefs.hpp" 49 #include "Tpetra_RowMatrix.hpp" 50 #include "Tpetra_Map.hpp" 51 #include "Tpetra_MultiVector.hpp" 52 #include "Tpetra_Vector.hpp" 57 template<
class MatrixType>
59 magnitudeType DropTol):
69 if (A_->getComm()->getSize() != 1 || A_->getNodeNumRows() != A_->getGlobalNumRows()) {
70 throw std::runtime_error(
"Ifpack2::DropFilter can be used with Comm().getSize() == 1 only. This class is a tool for Ifpack2_AdditiveSchwarz, and it is not meant to be used otherwise.");
75 NumRows_ = A_->getNodeNumRows();
80 NumEntries_.resize(NumRows_);
84 MaxNumEntries_ = A_->getNodeMaxNumRowEntries();
85 MaxNumEntriesA_ = A_->getNodeMaxNumRowEntries();
88 Kokkos::resize(Indices_,MaxNumEntries_);
89 Kokkos::resize(Values_,MaxNumEntries_);
91 size_t ActualMaxNumEntries = 0;
92 for (
size_t i = 0 ; i < NumRows_ ; ++i) {
93 NumEntries_[i] = MaxNumEntriesA_;
95 A_->getLocalRowCopy(i,Indices_,Values_,Nnz);
96 for (
size_t j = 0 ; j < Nnz ; ++j) {
97 if (((
size_t)Indices_[j] == i) || (Teuchos::ScalarTraits<Scalar>::magnitude(Values_[j]) >= DropTol_))
101 NumNonzeros_ += NewNnz;
102 NumEntries_[i] = NewNnz;
103 if (NewNnz > ActualMaxNumEntries)
104 ActualMaxNumEntries = NewNnz;
107 MaxNumEntries_ = ActualMaxNumEntries;
111 template<
class MatrixType>
115 template<
class MatrixType>
116 Teuchos::RCP<const Teuchos::Comm<int> >
119 return A_->getComm ();
124 template<
class MatrixType>
125 Teuchos::RCP<
const Tpetra::Map<
typename MatrixType::local_ordinal_type,
126 typename MatrixType::global_ordinal_type,
127 typename MatrixType::node_type> >
130 return A_->getRowMap();
134 template<
class MatrixType>
135 Teuchos::RCP<
const Tpetra::Map<
typename MatrixType::local_ordinal_type,
136 typename MatrixType::global_ordinal_type,
137 typename MatrixType::node_type> >
140 return A_->getColMap();
144 template<
class MatrixType>
145 Teuchos::RCP<
const Tpetra::Map<
typename MatrixType::local_ordinal_type,
146 typename MatrixType::global_ordinal_type,
147 typename MatrixType::node_type> >
150 return A_->getDomainMap();
154 template<
class MatrixType>
155 Teuchos::RCP<
const Tpetra::Map<
typename MatrixType::local_ordinal_type,
156 typename MatrixType::global_ordinal_type,
157 typename MatrixType::node_type> >
160 return A_->getRangeMap();
164 template<
class MatrixType>
165 Teuchos::RCP<
const Tpetra::RowGraph<
typename MatrixType::local_ordinal_type,
166 typename MatrixType::global_ordinal_type,
167 typename MatrixType::node_type> >
170 throw std::runtime_error(
"Ifpack2::DropFilter: does not support getGraph.");
174 template<
class MatrixType>
181 template<
class MatrixType>
188 template<
class MatrixType>
196 template<
class MatrixType>
203 template<
class MatrixType>
206 return A_->getIndexBase();
210 template<
class MatrixType>
217 template<
class MatrixType>
224 template<
class MatrixType>
227 throw std::runtime_error(
"Ifpack2::DropFilter does not implement getNumEntriesInGlobalRow.");
231 template<
class MatrixType>
234 return NumEntries_[localRow];
238 template<
class MatrixType>
241 return MaxNumEntries_;
245 template<
class MatrixType>
248 return MaxNumEntries_;
252 template<
class MatrixType>
259 template<
class MatrixType>
262 return A_->isLocallyIndexed();
266 template<
class MatrixType>
269 return A_->isGloballyIndexed();
273 template<
class MatrixType>
276 return A_->isFillComplete();
280 template<
class MatrixType>
283 nonconst_global_inds_host_view_type &,
284 nonconst_values_host_view_type &,
287 throw std::runtime_error(
"Ifpack2::DropFilter does not implement getGlobalRowCopy.");
291 #ifdef TPETRA_ENABLE_DEPRECATED_CODE 292 template<
class MatrixType>
294 const Teuchos::ArrayView<GlobalOrdinal> &,
295 const Teuchos::ArrayView<Scalar> &,
298 throw std::runtime_error(
"Ifpack2::DropFilter does not implement getGlobalRowCopy.");
303 template<
class MatrixType>
306 nonconst_local_inds_host_view_type &Indices,
307 nonconst_values_host_view_type &Values,
308 size_t& NumEntries)
const 310 TEUCHOS_TEST_FOR_EXCEPTION((LocalRow < 0 || (
size_t) LocalRow >= NumRows_ || (
size_t) Indices.size() < NumEntries_[LocalRow]), std::runtime_error,
"Ifpack2::DropFilter::getLocalRowCopy invalid row or array size.");
318 size_t A_NumEntries=0;
319 A_->getLocalRowCopy(LocalRow,Indices_,Values_,A_NumEntries);
325 for (
size_t i = 0 ; i < A_NumEntries ; ++i) {
329 if ((Indices_[i] == LocalRow) || (Teuchos::ScalarTraits<Scalar>::magnitude(Values_[i]) >= DropTol_)) {
330 Values[NumEntries] = Values_[i];
331 Indices[NumEntries] = Indices_[i];
338 #ifdef TPETRA_ENABLE_DEPRECATED_CODE 339 template<
class MatrixType>
341 const Teuchos::ArrayView<LocalOrdinal> &Indices,
342 const Teuchos::ArrayView<Scalar> &Values,
343 size_t &NumEntries)
const 345 using IST =
typename row_matrix_type::impl_scalar_type;
346 nonconst_local_inds_host_view_type ind_in(Indices.data(),Indices.size());
347 nonconst_values_host_view_type val_in(reinterpret_cast<IST*>(Values.data()),Values.size());
348 getLocalRowCopy(LocalRow,ind_in,val_in,NumEntries);
353 template<
class MatrixType>
355 global_inds_host_view_type &,
356 values_host_view_type &)
const 358 throw std::runtime_error(
"Ifpack2::DropFilter: does not support getGlobalRowView.");
361 #ifdef TPETRA_ENABLE_DEPRECATED_CODE 362 template<
class MatrixType>
364 Teuchos::ArrayView<const GlobalOrdinal> &,
365 Teuchos::ArrayView<const Scalar> &)
const 367 throw std::runtime_error(
"Ifpack2::DropFilter: does not support getGlobalRowView.");
371 template<
class MatrixType>
373 local_inds_host_view_type & ,
374 values_host_view_type & )
const 376 throw std::runtime_error(
"Ifpack2::DropFilter: does not support getLocalRowView.");
379 #ifdef TPETRA_ENABLE_DEPRECATED_CODE 380 template<
class MatrixType>
382 Teuchos::ArrayView<const LocalOrdinal> &,
383 Teuchos::ArrayView<const Scalar> &)
const 385 throw std::runtime_error(
"Ifpack2::DropFilter: does not support getLocalRowView.");
390 template<
class MatrixType>
394 return A_->getLocalDiagCopy(diag);
398 template<
class MatrixType>
401 throw std::runtime_error(
"Ifpack2::DropFilter does not support leftScale.");
405 template<
class MatrixType>
408 throw std::runtime_error(
"Ifpack2::DropFilter does not support rightScale.");
412 template<
class MatrixType>
414 Tpetra::MultiVector<Scalar,LocalOrdinal,GlobalOrdinal,Node> &Y,
415 Teuchos::ETransp mode,
421 TEUCHOS_TEST_FOR_EXCEPTION(X.getNumVectors() != Y.getNumVectors(), std::runtime_error,
422 "Ifpack2::DropFilter::apply ERROR: X.getNumVectors() != Y.getNumVectors().");
424 Scalar zero = Teuchos::ScalarTraits<Scalar>::zero();
425 Teuchos::ArrayRCP<Teuchos::ArrayRCP<const Scalar> > x_ptr = X.get2dView();
426 Teuchos::ArrayRCP<Teuchos::ArrayRCP<Scalar> > y_ptr = Y.get2dViewNonConst();
429 size_t NumVectors = Y.getNumVectors();
431 for (
size_t i = 0 ; i < NumRows_ ; ++i) {
434 getLocalRowCopy(i,Indices_,Values_,Nnz);
435 Scalar* Values =
reinterpret_cast<Scalar*
>(Values_.data());
436 if (mode==Teuchos::NO_TRANS){
437 for (
size_t j = 0 ; j < Nnz ; ++j)
438 for (
size_t k = 0 ; k < NumVectors ; ++k)
439 y_ptr[k][i] += Values[j] * x_ptr[k][Indices_[j]];
441 else if (mode==Teuchos::TRANS){
442 for (
size_t j = 0 ; j < Nnz ; ++j)
443 for (
size_t k = 0 ; k < NumVectors ; ++k)
444 y_ptr[k][Indices_[j]] += Values[j] * x_ptr[k][i];
447 for (
size_t j = 0 ; j < Nnz ; ++j)
448 for (
size_t k = 0 ; k < NumVectors ; ++k)
449 y_ptr[k][Indices_[j]] += Teuchos::ScalarTraits<Scalar>::conjugate(Values[j]) * x_ptr[k][i];
456 template<
class MatrixType>
463 template<
class MatrixType>
470 template<
class MatrixType>
473 throw std::runtime_error(
"Ifpack2::DropFilter does not implement getFrobeniusNorm.");
477 #define IFPACK2_DROPFILTER_INSTANT(S,LO,GO,N) \ 478 template class Ifpack2::DropFilter< Tpetra::RowMatrix<S, LO, GO, N> >; virtual Teuchos::RCP< const Tpetra::Map< LocalOrdinal, GlobalOrdinal, Node > > getRangeMap() const
Returns the Map that describes the range distribution in this matrix.
Definition: Ifpack2_DropFilter_def.hpp:158
virtual void getGlobalRowCopy(GlobalOrdinal GlobalRow, nonconst_global_inds_host_view_type &Indices, nonconst_values_host_view_type &Values, size_t &NumEntries) const
Extract a list of entries in a specified global row of this matrix. Put into pre-allocated storage...
Definition: Ifpack2_DropFilter_def.hpp:282
virtual size_t getNumEntriesInLocalRow(LocalOrdinal localRow) const
Returns the current number of entries on this node in the specified local row.
Definition: Ifpack2_DropFilter_def.hpp:232
virtual bool hasTransposeApply() const
Indicates whether this operator supports applying the adjoint operator.
Definition: Ifpack2_DropFilter_def.hpp:457
virtual size_t getNodeNumCols() const
Returns the number of columns needed to apply the forward operator on this node, i.e., the number of elements listed in the column map.
Definition: Ifpack2_DropFilter_def.hpp:197
virtual void getGlobalRowView(GlobalOrdinal GlobalRow, global_inds_host_view_type &indices, values_host_view_type &values) const
Extract a const, non-persisting view of global indices in a specified row of the matrix.
Definition: Ifpack2_DropFilter_def.hpp:354
DropFilter(const Teuchos::RCP< const Tpetra::RowMatrix< Scalar, LocalOrdinal, GlobalOrdinal, Node > > &Matrix, magnitudeType DropTol)
Constructor.
Definition: Ifpack2_DropFilter_def.hpp:58
virtual void getLocalRowCopy(LocalOrdinal DropRow, nonconst_local_inds_host_view_type &Indices, nonconst_values_host_view_type &Values, size_t &NumEntries) const
Extract a list of entries in a specified local row of the graph. Put into storage allocated by callin...
Definition: Ifpack2_DropFilter_def.hpp:305
virtual size_t getNumEntriesInGlobalRow(GlobalOrdinal globalRow) const
Returns the current number of entries on this node in the specified global row.
Definition: Ifpack2_DropFilter_def.hpp:225
virtual Teuchos::RCP< const Tpetra::Map< LocalOrdinal, GlobalOrdinal, Node > > getDomainMap() const
Returns the Map that describes the domain distribution in this matrix.
Definition: Ifpack2_DropFilter_def.hpp:148
virtual void leftScale(const Tpetra::Vector< Scalar, LocalOrdinal, GlobalOrdinal, Node > &x)
Scales the RowMatrix on the left with the Vector x.
Definition: Ifpack2_DropFilter_def.hpp:399
virtual bool isLocallyIndexed() const
If matrix indices are in the local range, this function returns true. Otherwise, this function return...
Definition: Ifpack2_DropFilter_def.hpp:260
virtual bool isFillComplete() const
Returns true if fillComplete() has been called.
Definition: Ifpack2_DropFilter_def.hpp:274
virtual global_size_t getGlobalNumRows() const
Returns the number of global rows in this matrix.
Definition: Ifpack2_DropFilter_def.hpp:175
virtual void rightScale(const Tpetra::Vector< Scalar, LocalOrdinal, GlobalOrdinal, Node > &x)
Scales the RowMatrix on the right with the Vector x.
Definition: Ifpack2_DropFilter_def.hpp:406
virtual size_t getNodeNumEntries() const
Returns the local number of entries in this matrix.
Definition: Ifpack2_DropFilter_def.hpp:218
virtual size_t getNodeNumRows() const
Returns the number of rows owned on the calling node.
Definition: Ifpack2_DropFilter_def.hpp:189
virtual global_size_t getGlobalNumEntries() const
Returns the global number of entries in this matrix.
Definition: Ifpack2_DropFilter_def.hpp:211
virtual void apply(const Tpetra::MultiVector< Scalar, LocalOrdinal, GlobalOrdinal, Node > &X, Tpetra::MultiVector< Scalar, LocalOrdinal, GlobalOrdinal, Node > &Y, Teuchos::ETransp mode=Teuchos::NO_TRANS, Scalar alpha=Teuchos::ScalarTraits< Scalar >::one(), Scalar beta=Teuchos::ScalarTraits< Scalar >::zero()) const
Computes the operator-multivector application.
Definition: Ifpack2_DropFilter_def.hpp:413
virtual Teuchos::RCP< const Teuchos::Comm< int > > getComm() const
Returns the communicator.
Definition: Ifpack2_DropFilter_def.hpp:117
virtual bool hasColMap() const
Indicates whether this matrix has a well-defined column map.
Definition: Ifpack2_DropFilter_def.hpp:253
virtual bool supportsRowViews() const
Returns true if RowViews are supported.
Definition: Ifpack2_DropFilter_def.hpp:464
virtual global_size_t getGlobalNumCols() const
Returns the number of global columns in this matrix.
Definition: Ifpack2_DropFilter_def.hpp:182
virtual size_t getGlobalMaxNumRowEntries() const
Returns the maximum number of entries across all rows/columns on all nodes.
Definition: Ifpack2_DropFilter_def.hpp:239
virtual size_t getNodeMaxNumRowEntries() const
Returns the maximum number of entries across all rows/columns on this node.
Definition: Ifpack2_DropFilter_def.hpp:246
virtual bool isGloballyIndexed() const
If matrix indices are in the global range, this function returns true. Otherwise, this function retur...
Definition: Ifpack2_DropFilter_def.hpp:267
virtual Teuchos::RCP< const Tpetra::Map< LocalOrdinal, GlobalOrdinal, Node > > getColMap() const
Returns the Map that describes the column distribution in this matrix.
Definition: Ifpack2_DropFilter_def.hpp:138
virtual void getLocalDiagCopy(Tpetra::Vector< Scalar, LocalOrdinal, GlobalOrdinal, Node > &diag) const
Get a copy of the diagonal entries owned by this node, with local row indices.
Definition: Ifpack2_DropFilter_def.hpp:391
virtual mag_type getFrobeniusNorm() const
Returns the Frobenius norm of the matrix.
Definition: Ifpack2_DropFilter_def.hpp:471
virtual Teuchos::RCP< const Tpetra::RowGraph< LocalOrdinal, GlobalOrdinal, Node > > getGraph() const
Returns the RowGraph associated with this matrix.
Definition: Ifpack2_DropFilter_def.hpp:168
virtual Teuchos::RCP< const Tpetra::Map< LocalOrdinal, GlobalOrdinal, Node > > getRowMap() const
Returns the Map that describes the row distribution in this matrix.
Definition: Ifpack2_DropFilter_def.hpp:128
virtual void getLocalRowView(LocalOrdinal LocalRow, local_inds_host_view_type &indices, values_host_view_type &values) const
Extract a const, non-persisting view of local indices in a specified row of the matrix.
Definition: Ifpack2_DropFilter_def.hpp:372
virtual GlobalOrdinal getIndexBase() const
Returns the index base for global indices for this matrix.
Definition: Ifpack2_DropFilter_def.hpp:204
Preconditioners and smoothers for Tpetra sparse matrices.
Definition: Ifpack2_AdditiveSchwarz_decl.hpp:73
virtual ~DropFilter()
Destructor.
Definition: Ifpack2_DropFilter_def.hpp:112