43 #include "Thyra_VectorStdOps.hpp"
44 #include "Thyra_ProductVectorSpaceBase.hpp"
45 #include "Thyra_TpetraLinearOp.hpp"
47 #include "Tpetra_CrsMatrix.hpp"
52 template <
typename ScalarT,
typename LocalOrdinalT,
typename GlobalOrdinalT,
typename NodeT>
60 bool x_matches=
false, f_matches=
false, dxdt_matches=
false;
67 x_matches = range->isCompatible(*get_x()->space());
72 dxdt_matches = range->isCompatible(*get_dxdt()->space());
77 f_matches = range->isCompatible(*get_f()->space());
81 else if(get_x()!=null && get_dxdt()!=null) {
83 x_matches = get_x()->space()->isCompatible(*get_dxdt()->space());
84 dxdt_matches = x_matches;
87 f_matches = x_matches = dxdt_matches =
true;
90 return x_matches && dxdt_matches && f_matches;
93 template <
typename ScalarT,
typename LocalOrdinalT,
typename GlobalOrdinalT,
typename NodeT>
98 using Thyra::PhysicallyBlockedLinearOpBase;
99 using Thyra::ProductVectorSpaceBase;
101 using Teuchos::rcp_dynamic_cast;
103 if(get_x()!=Teuchos::null) Thyra::assign<ScalarT>(x.ptr(),0.0);
104 if(get_dxdt()!=Teuchos::null) Thyra::assign<ScalarT>(get_dxdt().ptr(),0.0);
105 if(get_f()!=Teuchos::null) Thyra::assign<ScalarT>(get_f().ptr(),0.0);
106 if(get_A()!=Teuchos::null) {
108 = rcp_dynamic_cast<PhysicallyBlockedLinearOpBase<ScalarT> >(get_A(),
true);
113 for(
int i=0;i<range->numBlocks();i++) {
114 for(
int j=0;j<domain->numBlocks();j++) {
116 if(block!=Teuchos::null) {
118 rcp_dynamic_cast<Thyra::TpetraLinearOp<ScalarT,LocalOrdinalT,GlobalOrdinalT,NodeT> >(block,
true)->getTpetraOperator();
124 rcp_dynamic_cast<Tpetra::CrsMatrix<ScalarT,LocalOrdinalT,GlobalOrdinalT,NodeT> >(t_block,
true);
127 mat->setAllToScalar(0.0);
128 mat->fillComplete(map_j,map_i);
135 template <
typename ScalarT,
typename LocalOrdinalT,
typename GlobalOrdinalT,
typename NodeT>
140 using Thyra::PhysicallyBlockedLinearOpBase;
141 using Thyra::ProductVectorSpaceBase;
143 using Teuchos::rcp_dynamic_cast;
145 if(get_A()!=Teuchos::null) {
147 = rcp_dynamic_cast<PhysicallyBlockedLinearOpBase<ScalarT> >(get_A(),
true);
152 for(
int i=0;i<range->numBlocks();i++) {
153 for(
int j=0;j<domain->numBlocks();j++) {
155 if(block!=Teuchos::null) {
157 rcp_dynamic_cast<Thyra::TpetraLinearOp<ScalarT,LocalOrdinalT,GlobalOrdinalT,NodeT> >(block,
true)->getTpetraOperator();
164 rcp_dynamic_cast<Tpetra::CrsMatrix<ScalarT,LocalOrdinalT,GlobalOrdinalT,NodeT> >(t_block,
true);
167 mat->setAllToScalar(value);
168 mat->fillComplete(map_j,map_i);
175 template <
typename ScalarT,
typename LocalOrdinalT,
typename GlobalOrdinalT,
typename NodeT>
179 set_x(Teuchos::null);
180 set_dxdt(Teuchos::null);
181 set_f(Teuchos::null);
182 set_A(Teuchos::null);
185 template <
typename ScalarT,
typename LocalOrdinalT,
typename GlobalOrdinalT,
typename NodeT>
190 using Thyra::PhysicallyBlockedLinearOpBase;
191 using Thyra::ProductVectorSpaceBase;
193 using Teuchos::rcp_dynamic_cast;
195 if(get_A()!=Teuchos::null) {
197 = rcp_dynamic_cast<PhysicallyBlockedLinearOpBase<ScalarT> >(get_A(),
true);
202 for(
int i=0;i<range->numBlocks();i++) {
203 for(
int j=0;j<domain->numBlocks();j++) {
205 if(block!=Teuchos::null) {
207 rcp_dynamic_cast<Thyra::TpetraLinearOp<ScalarT,LocalOrdinalT,GlobalOrdinalT,NodeT> >(block,
true)->getTpetraOperator();
210 rcp_dynamic_cast<Tpetra::CrsMatrix<ScalarT,LocalOrdinalT,GlobalOrdinalT,NodeT> >(t_block,
true);
219 template <
typename ScalarT,
typename LocalOrdinalT,
typename GlobalOrdinalT,
typename NodeT>
224 using Thyra::PhysicallyBlockedLinearOpBase;
225 using Thyra::ProductVectorSpaceBase;
227 using Teuchos::rcp_dynamic_cast;
229 if(get_A()!=Teuchos::null) {
231 = rcp_dynamic_cast<PhysicallyBlockedLinearOpBase<ScalarT> >(get_A(),
true);
236 for(
int i=0;i<range->numBlocks();i++) {
237 for(
int j=0;j<domain->numBlocks();j++) {
239 if(block!=Teuchos::null) {
241 rcp_dynamic_cast<Thyra::TpetraLinearOp<ScalarT,LocalOrdinalT,GlobalOrdinalT,NodeT> >(block,
true)->getTpetraOperator();
247 rcp_dynamic_cast<Tpetra::CrsMatrix<ScalarT,LocalOrdinalT,GlobalOrdinalT,NodeT> >(t_block,
true);
249 mat->fillComplete(map_j,map_i);
bool checkCompatibility() const
Make sure row and column spaces match up.
void initializeMatrix(ScalarT value)
Put a particular scalar in the matrix.
virtual void initialize()