1 // (C) Copyright John Maddock 2006.
2 // Use, modification and distribution are subject to the
3 // Boost Software License, Version 1.0. (See accompanying file
4 // LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
5
6 #ifndef BOOST_MATH_TEST_LEGENDRE_OTHER_HOOKS_HPP
7 #define BOOST_MATH_TEST_LEGENDRE_OTHER_HOOKS_HPP
8
9 #ifdef TEST_GSL
10 #include <gsl/gsl_sf_legendre.h>
11
12 namespace other{
legendre_p(int l,float a)13 inline float legendre_p(int l, float a)
14 { return (float)gsl_sf_legendre_Pl (l, a); }
legendre_p(int l,double a)15 inline double legendre_p(int l, double a)
16 { return gsl_sf_legendre_Pl (l, a); }
legendre_p(int l,long double a)17 inline long double legendre_p(int l, long double a)
18 { return gsl_sf_legendre_Pl (l, a); }
19
legendre_q(int l,float a)20 inline float legendre_q(int l, float a)
21 { return (float)gsl_sf_legendre_Ql (l, a); }
legendre_q(int l,double a)22 inline double legendre_q(int l, double a)
23 { return gsl_sf_legendre_Ql (l, a); }
legendre_q(int l,long double a)24 inline long double legendre_q(int l, long double a)
25 { return gsl_sf_legendre_Ql (l, a); }
26
27 }
28 #define TEST_OTHER
29 #endif
30
31 #ifdef TEST_OTHER
32 namespace other{
legendre_p(int,boost::math::concepts::real_concept)33 boost::math::concepts::real_concept legendre_p(int, boost::math::concepts::real_concept){ return 0; }
legendre_q(int,boost::math::concepts::real_concept)34 boost::math::concepts::real_concept legendre_q(int, boost::math::concepts::real_concept){ return 0; }
35 }
36 #endif
37
38
39 #endif
40
41
42