49 #ifdef HAVE_XPETRA_THYRA 58 #ifdef HAVE_XPETRA_EPETRA 64 int nRows = mat->Rows();
65 int nCols = mat->Cols();
71 #ifdef HAVE_XPETRA_TPETRA 73 #if ((defined(EPETRA_HAVE_OMP) && defined(HAVE_TPETRA_INST_OPENMP) && defined(HAVE_TPETRA_INST_INT_INT) && defined(HAVE_TPETRA_INST_DOUBLE)) || \ 74 (!defined(EPETRA_HAVE_OMP) && defined(HAVE_TPETRA_INST_SERIAL) && defined(HAVE_TPETRA_INST_INT_INT) && defined(HAVE_TPETRA_INST_DOUBLE))) 76 if(tpetraMat!=Teuchos::null) bTpetra =
true;
82 #ifdef HAVE_XPETRA_EPETRA 84 if(epetraMat!=Teuchos::null) bEpetra =
true;
91 Thyra::defaultBlockedLinearOp<Scalar>();
93 blockMat->beginBlockFill(nRows,nCols);
95 for (
int r=0; r<nRows; ++r) {
96 for (
int c=0; c<nCols; ++c) {
98 Xpetra::ThyraUtils<Scalar,LocalOrdinal,GlobalOrdinal,Node>::toThyra(mat->getMatrix(r,c));
99 std::stringstream label; label <<
"A" << r << c;
100 blockMat->setBlock(r,c,thBlock);
104 blockMat->endBlockFill();
112 #endif // HAVE_XPETRA_THYRA
#define TEUCHOS_TEST_FOR_EXCEPT(throw_exception_test)