11 #include "Thyra_DefaultSpmdVectorSpace.hpp"
14 #include "Tempus_Stepper_ErrorNorm.hpp"
16 #include "../TestModels/DahlquistTestModel.hpp"
18 namespace Tempus_Unit_Test {
26 Thyra::defaultSpmdVectorSpace<double>(N);
27 auto x = Thyra::createMember(xSpace);
28 auto xNext = Thyra::createMember(xSpace);
29 auto eVec = Thyra::createMember(xSpace);
31 auto tol = Tempus::numericalTol<double>();
34 Thyra::assign(x.ptr(), 0.0);
35 Thyra::assign(xNext.ptr(), 0.0);
36 Thyra::assign(eVec.ptr(), 0.0);
37 double rmsNorm = eNorm->computeWRMSNorm(x, xNext, eVec);
40 Thyra::assign(x.ptr(), 1.0);
41 Thyra::assign(xNext.ptr(), 1.0 + tol);
42 Thyra::assign(eVec.ptr(), tol);
43 rmsNorm = eNorm->computeWRMSNorm(x, xNext, eVec);
52 Thyra::defaultSpmdVectorSpace<double>(3);
53 auto x = Thyra::createMember(xSpace);
55 auto tol = Tempus::numericalTol<double>();
58 Thyra::assign(x.ptr(), 0.0);
59 double norm = eNorm->errorNorm(x);
62 Thyra::assign(x.ptr(), 1.0);
63 norm = eNorm->errorNorm(x);
#define TEST_FLOATING_EQUALITY(v1, v2, tol)
TEUCHOS_DEPRECATED RCP< T > rcp(T *p, Dealloc_T dealloc, bool owns_mem)
TEUCHOS_UNIT_TEST(BackwardEuler, Default_Construction)
Stepper_ErrorNorm provides error norm calcualtions for variable time stepping.