53 #ifndef MUELU_BLOCKEDDIRECTSOLVER_DEF_HPP_ 54 #define MUELU_BLOCKEDDIRECTSOLVER_DEF_HPP_ 56 #include "Teuchos_ArrayViewDecl.hpp" 57 #include "Teuchos_ScalarTraits.hpp" 65 #include "MueLu_BlockedDirectSolver.hpp" 66 #include "MueLu_MergedBlockedMatrixFactory.hpp" 68 #include "MueLu_Utilities.hpp" 70 #include "MueLu_HierarchyUtils.hpp" 72 #include "MueLu_DirectSolver.hpp" 76 template <
class Scalar,
class LocalOrdinal,
class GlobalOrdinal,
class Node>
78 : type_(
"blocked direct solver")
82 Teuchos::ParameterList params;
86 template <
class Scalar,
class LocalOrdinal,
class GlobalOrdinal,
class Node>
88 RCP<ParameterList> validParamList = rcp(
new ParameterList());
90 validParamList->set< RCP<const FactoryBase> >(
"A", null,
"Generating factory of the matrix A");
92 return validParamList;
95 template <
class Scalar,
class LocalOrdinal,
class GlobalOrdinal,
class Node>
100 currentLevel.
DeclareInput(
"A",this->GetFactory(
"A").
get());
103 MergedAFact_->SetFactory(
"A", this->GetFactory(
"A"));
106 s_->SetFactory(
"A",MergedAFact_);
107 s_->DeclareInput(currentLevel);
110 template <
class Scalar,
class LocalOrdinal,
class GlobalOrdinal,
class Node>
112 RCP<Teuchos::FancyOStream> out = Teuchos::fancyOStream(Teuchos::rcpFromRef(std::cout));
114 FactoryMonitor m(*
this,
"Setup BlockedDirectSolver", currentLevel);
115 if (this->IsSetup() ==
true)
116 this->GetOStream(
Warnings0) <<
"MueLu::BlockedDirectSolver::Setup(): Setup() has already been called";
119 A_ = Factory::Get< RCP<Matrix> >(currentLevel,
"A");
120 RCP<BlockedCrsMatrix> bA = Teuchos::rcp_dynamic_cast<BlockedCrsMatrix>(A_);
122 "MueLu::BlockedDirectSolver::Build: input matrix A is not of type BlockedCrsMatrix.");
124 s_->Setup(currentLevel);
129 template <
class Scalar,
class LocalOrdinal,
class GlobalOrdinal,
class Node>
132 "MueLu::BlockedDirectSolver::Apply(): Setup() has not been called");
134 "MueLu::BlockedDirectSolver::Apply(): Map of solution vector X is not same as domain map of A.");
136 "MueLu::BlockedDirectSolver::Apply(): Map of rhs vector X is not same as range map of A.");
138 s_->Apply(X, B, InitialGuessIsZero);
141 template <
class Scalar,
class LocalOrdinal,
class GlobalOrdinal,
class Node>
142 RCP<MueLu::SmootherPrototype<Scalar, LocalOrdinal, GlobalOrdinal, Node> >
147 template <
class Scalar,
class LocalOrdinal,
class GlobalOrdinal,
class Node>
149 std::ostringstream out;
151 out <<
"{type = " << type_ <<
"}";
155 template <
class Scalar,
class LocalOrdinal,
class GlobalOrdinal,
class Node>
160 out0 <<
"Prec. type: " << type_ << std::endl;
162 if (verbLevel &
Debug)
Important warning messages (one line)
Exception indicating invalid cast attempted.
void Setup(Level ¤tLevel)
Setup routine Call the underlaying Setup routine of the nested direct solver once the input block mat...
std::string toString(const T &what)
Little helper function to convert non-string types to strings.
bool IsSetup() const
Get the state of a smoother prototype.
BlockedDirectSolver()
Constructor.
Timer to be used in factories. Similar to Monitor but with additional timers.
void DeclareInput(Level ¤tLevel) const
Input.
Print additional debugging information.
Namespace for MueLu classes and methods.
Class that encapsulates direct solvers. Autoselection of AmesosSmoother or Amesos2Smoother according ...
RCP< const ParameterList > GetValidParameterList() const
Input.
RCP< MergedBlockedMatrixFactory > MergedAFact_
Factory to generate merged block matrix.
Class that holds all level-specific information.
direct solver for nxn blocked matrices
#define MUELU_DESCRIBE
Helper macro for implementing Describable::describe() for BaseClass objects.
void Apply(MultiVector &X, const MultiVector &B, bool InitialGuessIsZero=false) const
Apply the direct solver. Solves the linear system AX=B using the constructed solver.
void print(Teuchos::FancyOStream &out, const VerbLevel verbLevel=Default) const
Print the object with some verbosity level to an FancyOStream object.
Exception throws to report errors in the internal logical of the program.
RCP< SmootherPrototype > Copy() const
RCP< DirectSolver > s_
Direct solver.
void DeclareInput(const std::string &ename, const FactoryBase *factory, const FactoryBase *requestedBy=NoFactory::get())
Callback from FactoryBase::CallDeclareInput() and FactoryBase::DeclareInput()
virtual std::string description() const
Return a simple one-line description of this object.
std::string description() const
Return a simple one-line description of this object.