80 using Teuchos::describe;
89 if (!is_null(out_inout))
90 out = Teuchos::rcpFromPtr(out_inout);
97 OSTab tab(out,1,
"THYRA");
101 *out <<
"\n*** Entering "<<this->description()<<
"::checkMultiVector(vs,...) ...\n";
103 *out <<
"\nTesting MultiVectorBase objects created from vs = " << describe(vs, verbLevel);
106 const Scalar scalarDim = as<Scalar>(dim);
110 *out <<
"\n"<<tc<<
") Checking non-contiguous non-const multi-vector views ...\n";
114 const int numCols = 6;
116 assign<Scalar>(mv.
ptr(), ST::zero());
118 one = as<Scalar>(1.0),
119 three = as<Scalar>(3.0),
120 five = as<Scalar>(5.0);
123 assign<Scalar>(mvView->col(0).
ptr(), one);
124 assign<Scalar>(mvView->col(1).
ptr(), three);
125 assign<Scalar>(mvView->col(2).
ptr(), five);
141 *out <<
"\n"<<tc<<
") Checking non-contiguous const multi-vector views ...\n";
145 const int numCols = 6;
148 one = as<Scalar>(1.0),
149 three = as<Scalar>(3.0),
150 five = as<Scalar>(5.0);
151 assign<Scalar>(mv.
ptr(), ST::zero());
152 assign<Scalar>(mv->col(1).
ptr(), one);
153 assign<Scalar>(mv->col(3).
ptr(), three);
154 assign<Scalar>(mv->col(5).
ptr(), five);
157 mv.
getConst()->subView(tuple<int>(1, 3, 4, 5)());
170 *out <<
"\nCongratulations, this MultiVectorBase objects"
171 <<
" created form this vector space seems to check out!\n";
173 *out <<
"\nOh no, at least one of the tests performed failed!\n";
175 *out <<
"\n*** Leaving "<<this->description()<<
"::checkMultiVector(vs,...) ...\n";
MultiVectorTester(const ScalarMag warning_tol=1e-13, const ScalarMag error_tol=1e-10, const int num_random_vectors=1, const bool show_all_tests=false, const bool dump_all=false)
Default constructor which sets default parameter values.