1 #include "Teko_ReorderedLinearOp.hpp"
5 ReorderedLinearOp::ReorderedLinearOp(
const Teuchos::RCP<const BlockReorderManager>& mgr,
6 const Teuchos::RCP<Thyra::LinearOpBase<double> >& blockedOp)
7 : mgr_(mgr), blockedOp_(blockedOp) {
8 range_ = buildFlatVectorSpace(*mgr_, blockedOp_->range());
9 domain_ = buildFlatVectorSpace(*mgr_, blockedOp_->domain());
17 const double beta)
const {
18 using Teuchos::rcp_dynamic_cast;
21 *mgr_, rcp_dynamic_cast<
const Thyra::ProductMultiVectorBase<double> >(x));
23 *mgr_, rcp_dynamic_cast<Thyra::ProductMultiVectorBase<double> >(y));
26 Thyra::apply(*blockedOp_, Thyra::NOTRANS, *reorderX, reorderY.ptr(), alpha, beta);
29 void ReorderedLinearOp::describe(Teuchos::FancyOStream& out_arg,
30 const Teuchos::EVerbosityLevel verbLevel)
const {
34 RCP<Teuchos::FancyOStream> out = rcp(&out_arg,
false);
37 case Teuchos::VERB_DEFAULT:
38 case Teuchos::VERB_LOW: *out << this->description() << std::endl;
break;
39 case Teuchos::VERB_MEDIUM:
40 case Teuchos::VERB_HIGH:
41 case Teuchos::VERB_EXTREME: {
42 *out << Teuchos::Describable::description() <<
"{"
43 <<
"rangeDim=" << this->range()->dim() <<
",domainDim=" << this->domain()->dim()
47 *out <<
"[Blocked Op] = ";
48 *out << Teuchos::describe(*blockedOp_, verbLevel);
52 *out <<
"[Blocked Manager] = ";
53 *out << mgr_->toString() << std::endl;
57 default: TEUCHOS_TEST_FOR_EXCEPT(
true);
Teuchos::RCP< const Thyra::MultiVectorBase< double > > buildReorderedMultiVector(const BlockReorderManager &mgr, const Teuchos::RCP< const Thyra::ProductMultiVectorBase< double > > &blkVec)
Convert a flat multi vector into a reordered multivector.
virtual VectorSpace range() const
Range space of this operator.
virtual VectorSpace domain() const
Domain space of this operator.
virtual void implicitApply(const MultiVector &x, MultiVector &y, const double alpha=1.0, const double beta=0.0) const
Perform a matrix vector multiply with this implicitly defined blocked operator.