30 #ifndef FADLAPACKUNITTESTS_HPP 31 #define FADLAPACKUNITTESTS_HPP 43 #define COMPARE_FAD_VECTORS(X1, X2, n) \ 44 ASSERT_TRUE(X1.size() == std::size_t(n)); \ 45 ASSERT_TRUE(X2.size() == std::size_t(n)); \ 46 for (unsigned int i=0; i<n; i++) { \ 47 COMPARE_FADS(X1[i], X2[i]); \ 52 template <
class FadType>
93 double A[] = { 1.1, 0.1, .01, 0.9 };
96 double B[] = { 0.1, 0.2 };
100 const double refX[] = {0.088978766430738, 0.212335692618807};
102 Teuchos::LAPACK<int,double> teuchos_lapack;
103 teuchos_lapack.GESV(n, nrhs, &
A[0], lda, &IPIV[0], &
B[0], ldb, &info);
118 #endif // FADLAPACKUNITTESTS_HPP
#define COMPARE_VALUES(a, b)
TYPED_TEST_SUITE_P(FadLAPACKUnitTests)
TYPED_TEST_P(FadLAPACKUnitTests, testGESV)
A class for storing a contiguously allocated array of Fad objects. This is a general definition that ...
Sacado::Fad::Vector< unsigned int, FadType > VectorType
Sacado::ScalarType< FadType >::type ScalarType
Sacado::Random< double > real_urand
REGISTER_TYPED_TEST_SUITE_P(FadLAPACKUnitTests, testGESV)
Sacado::Random< ScalarType > urand
A random number generator that generates random numbers uniformly distributed in the interval (a...