Adding C++ TR29124.
Ed Smith-Rowland
3dw4rd@verizon.net
Thu Jan 7 16:55:00 GMT 2016
This patch is a clean up of the patch submitted by Jonathan in stage 1.
I am much less ambitious here than I was in previous patches.
I added many new test cases to the Bessel functions to look at the
uncovered region near.
For TR29124 I moved the hypergeometric functions to __gnu_cxx namespace
so they are not yanked away
from users.
We don't want to give anyone an excuse to use both TR1 and TR29124 at
the same time ;-)
Hermite polynomials finally have value tests.
I also test the std:: TR29124
I replicated even the value tests even though currently, tr1 and tr29124
point to the same implementation.
This will change as soon as stage 1 reopens.
Also, with TR29124 I think we could actually deprecate the tr1 namespace.
This builds and tests clean on x86_64-linux.
OK for stage 3?
On another note, I've staged new TR29124 implementation on a branch:
branches/emsr/gcc_tr29124 or some such.
I am staging new implementations and functions here.
Regards,
Ed
-------------- next part --------------
Index: include/Makefile.am
===================================================================
--- include/Makefile.am (revision 232104)
+++ include/Makefile.am (working copy)
@@ -120,6 +120,7 @@
${bits_srcdir}/locale_facets_nonio.tcc \
${bits_srcdir}/localefwd.h \
${bits_srcdir}/mask_array.h \
+ ${bits_srcdir}/specfun.h \
${bits_srcdir}/memoryfwd.h \
${bits_srcdir}/move.h \
${bits_srcdir}/std_mutex.h \
Index: include/Makefile.in
===================================================================
--- include/Makefile.in (revision 232104)
+++ include/Makefile.in (working copy)
@@ -410,6 +410,7 @@
${bits_srcdir}/locale_facets_nonio.tcc \
${bits_srcdir}/localefwd.h \
${bits_srcdir}/mask_array.h \
+ ${bits_srcdir}/specfun.h \
${bits_srcdir}/memoryfwd.h \
${bits_srcdir}/move.h \
${bits_srcdir}/std_mutex.h \
Index: include/bits/specfun.h
===================================================================
--- include/bits/specfun.h (revision 0)
+++ include/bits/specfun.h (working copy)
@@ -0,0 +1,499 @@
+// Mathematical Special Functions for -*- C++ -*-
+
+// Copyright (C) 2006-2015 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+
+// Under Section 7 of GPL version 3, you are granted additional
+// permissions described in the GCC Runtime Library Exception, version
+// 3.1, as published by the Free Software Foundation.
+
+// You should have received a copy of the GNU General Public License and
+// a copy of the GCC Runtime Library Exception along with this program;
+// see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
+// <http://www.gnu.org/licenses/>.
+
+/** @file bits/specfun.h
+ * This is an internal header file, included by other library headers.
+ * Do not attempt to use it directly. @headername{cmath}
+ */
+
+#ifndef _GLIBCXX_BITS_SPECFUN_H
+#define _GLIBCXX_BITS_SPECFUN_H 1
+
+#pragma GCC visibility push(default)
+
+#include <bits/c++config.h>
+
+#if __STDCPP_WANT_MATH_SPEC_FUNCS__ == 0
+# error include <cmath> and define __STDCPP_WANT_MATH_SPEC_FUNCS__
+#endif
+
+#define __STDCPP_MATH_SPEC_FUNCS__ 201003L
+
+#include <bits/stl_algobase.h>
+#include <limits>
+#include <type_traits>
+
+#include <tr1/gamma.tcc>
+#include <tr1/bessel_function.tcc>
+#include <tr1/beta_function.tcc>
+#include <tr1/ell_integral.tcc>
+#include <tr1/exp_integral.tcc>
+#include <tr1/hypergeometric.tcc>
+#include <tr1/legendre_function.tcc>
+#include <tr1/modified_bessel_func.tcc>
+#include <tr1/poly_hermite.tcc>
+#include <tr1/poly_laguerre.tcc>
+#include <tr1/riemann_zeta.tcc>
+
+namespace std _GLIBCXX_VISIBILITY(default)
+{
+_GLIBCXX_BEGIN_NAMESPACE_VERSION
+
+ /**
+ * @defgroup mathsf Mathematical Special Functions
+ * @ingroup numerics
+ *
+ * A collection of advanced mathematical special functions,
+ * defined by ISO/IEC IS 29124.
+ * @{
+ */
+
+ // Associated Laguerre polynomials
+
+ inline float
+ assoc_laguerref(unsigned int __n, unsigned int __m, float __x)
+ { return __detail::__assoc_laguerre<float>(__n, __m, __x); }
+
+ inline long double
+ assoc_laguerrel(unsigned int __n, unsigned int __m, long double __x)
+ { return __detail::__assoc_laguerre<long double>(__n, __m, __x); }
+
+ template<typename _Tp>
+ inline typename __gnu_cxx::__promote<_Tp>::__type
+ assoc_laguerre(unsigned int __n, unsigned int __m, _Tp __x)
+ {
+ typedef typename __gnu_cxx::__promote<_Tp>::__type __type;
+ return __detail::__assoc_laguerre<__type>(__n, __m, __x);
+ }
+
+ // Associated Legendre functions
+
+ inline float
+ assoc_legendref(unsigned int __l, unsigned int __m, float __x)
+ { return __detail::__assoc_legendre_p<float>(__l, __m, __x); }
+
+ inline long double
+ assoc_legendrel(unsigned int __l, unsigned int __m, long double __x)
+ { return __detail::__assoc_legendre_p<long double>(__l, __m, __x); }
+
+ template<typename _Tp>
+ inline typename __gnu_cxx::__promote<_Tp>::__type
+ assoc_legendre(unsigned int __l, unsigned int __m, _Tp __x)
+ {
+ typedef typename __gnu_cxx::__promote<_Tp>::__type __type;
+ return __detail::__assoc_legendre_p<__type>(__l, __m, __x);
+ }
+
+ // Beta functions
+
+ inline float
+ betaf(float __x, float __y)
+ { return __detail::__beta<float>(__x, __y); }
+
+ inline long double
+ betal(long double __x, long double __y)
+ { return __detail::__beta<long double>(__x, __y); }
+
+ template<typename _Tpx, typename _Tpy>
+ inline typename __gnu_cxx::__promote_2<_Tpx, _Tpy>::__type
+ beta(_Tpx __x, _Tpy __y)
+ {
+ typedef typename __gnu_cxx::__promote_2<_Tpx, _Tpy>::__type __type;
+ return __detail::__beta<__type>(__x, __y);
+ }
+
+ // Complete elliptic integrals of the first kind
+
+ inline float
+ comp_ellint_1f(float __k)
+ { return __detail::__comp_ellint_1<float>(__k); }
+
+ inline long double
+ comp_ellint_1l(long double __k)
+ { return __detail::__comp_ellint_1<long double>(__k); }
+
+ template<typename _Tp>
+ inline typename __gnu_cxx::__promote<_Tp>::__type
+ comp_ellint_1(_Tp __k)
+ {
+ typedef typename __gnu_cxx::__promote<_Tp>::__type __type;
+ return __detail::__comp_ellint_1<__type>(__k);
+ }
+
+ // Complete elliptic integrals of the second kind
+
+ inline float
+ comp_ellint_2f(float __k)
+ { return __detail::__comp_ellint_2<float>(__k); }
+
+ inline long double
+ comp_ellint_2l(long double __k)
+ { return __detail::__comp_ellint_2<long double>(__k); }
+
+ template<typename _Tp>
+ inline typename __gnu_cxx::__promote<_Tp>::__type
+ comp_ellint_2(_Tp __k)
+ {
+ typedef typename __gnu_cxx::__promote<_Tp>::__type __type;
+ return __detail::__comp_ellint_2<__type>(__k);
+ }
+
+ // Complete elliptic integrals of the third kind
+
+ inline float
+ comp_ellint_3f(float __k, float __nu)
+ { return __detail::__comp_ellint_3<float>(__k, __nu); }
+
+ inline long double
+ comp_ellint_3l(long double __k, long double __nu)
+ { return __detail::__comp_ellint_3<long double>(__k, __nu); }
+
+ template<typename _Tp, typename _Tpn>
+ inline typename __gnu_cxx::__promote_2<_Tp, _Tpn>::__type
+ comp_ellint_3(_Tp __k, _Tpn __nu)
+ {
+ typedef typename __gnu_cxx::__promote_2<_Tp, _Tpn>::__type __type;
+ return __detail::__comp_ellint_3<__type>(__k, __nu);
+ }
+
+ // Regular modified cylindrical Bessel functions
+
+ inline float
+ cyl_bessel_if(float __nu, float __x)
+ { return __detail::__cyl_bessel_i<float>(__nu, __x); }
+
+ inline long double
+ cyl_bessel_il(long double __nu, long double __x)
+ { return __detail::__cyl_bessel_i<long double>(__nu, __x); }
+
+ template<typename _Tpnu, typename _Tp>
+ inline typename __gnu_cxx::__promote_2<_Tpnu, _Tp>::__type
+ cyl_bessel_i(_Tpnu __nu, _Tp __x)
+ {
+ typedef typename __gnu_cxx::__promote_2<_Tpnu, _Tp>::__type __type;
+ return __detail::__cyl_bessel_i<__type>(__nu, __x);
+ }
+
+ // Cylindrical Bessel functions (of the first kind)
+
+ inline float
+ cyl_bessel_jf(float __nu, float __x)
+ { return __detail::__cyl_bessel_j<float>(__nu, __x); }
+
+ inline long double
+ cyl_bessel_jl(long double __nu, long double __x)
+ { return __detail::__cyl_bessel_j<long double>(__nu, __x); }
+
+ template<typename _Tpnu, typename _Tp>
+ inline typename __gnu_cxx::__promote_2<_Tpnu, _Tp>::__type
+ cyl_bessel_j(_Tpnu __nu, _Tp __x)
+ {
+ typedef typename __gnu_cxx::__promote_2<_Tpnu, _Tp>::__type __type;
+ return __detail::__cyl_bessel_j<__type>(__nu, __x);
+ }
+
+ // Irregular modified cylindrical Bessel functions
+
+ inline float
+ cyl_bessel_kf(float __nu, float __x)
+ { return __detail::__cyl_bessel_k<float>(__nu, __x); }
+
+ inline long double
+ cyl_bessel_kl(long double __nu, long double __x)
+ { return __detail::__cyl_bessel_k<long double>(__nu, __x); }
+
+ template<typename _Tpnu, typename _Tp>
+ inline typename __gnu_cxx::__promote_2<_Tpnu, _Tp>::__type
+ cyl_bessel_k(_Tpnu __nu, _Tp __x)
+ {
+ typedef typename __gnu_cxx::__promote_2<_Tpnu, _Tp>::__type __type;
+ return __detail::__cyl_bessel_k<__type>(__nu, __x);
+ }
+
+ // Cylindrical Neumann functions
+
+ inline float
+ cyl_neumannf(float __nu, float __x)
+ { return __detail::__cyl_neumann_n<float>(__nu, __x); }
+
+ inline long double
+ cyl_neumannl(long double __nu, long double __x)
+ { return __detail::__cyl_neumann_n<long double>(__nu, __x); }
+
+ template<typename _Tpnu, typename _Tp>
+ inline typename __gnu_cxx::__promote_2<_Tpnu, _Tp>::__type
+ cyl_neumann(_Tpnu __nu, _Tp __x)
+ {
+ typedef typename __gnu_cxx::__promote_2<_Tpnu, _Tp>::__type __type;
+ return __detail::__cyl_neumann_n<__type>(__nu, __x);
+ }
+
+ // Incomplete elliptic integrals of the first kind
+
+ inline float
+ ellint_1f(float __k, float __phi)
+ { return __detail::__ellint_1<float>(__k, __phi); }
+
+ inline long double
+ ellint_1l(long double __k, long double __phi)
+ { return __detail::__ellint_1<long double>(__k, __phi); }
+
+ template<typename _Tp, typename _Tpp>
+ inline typename __gnu_cxx::__promote_2<_Tp, _Tpp>::__type
+ ellint_1(_Tp __k, _Tpp __phi)
+ {
+ typedef typename __gnu_cxx::__promote_2<_Tp, _Tpp>::__type __type;
+ return __detail::__ellint_1<__type>(__k, __phi);
+ }
+
+ // Incomplete elliptic integrals of the second kind
+
+ inline float
+ ellint_2f(float __k, float __phi)
+ { return __detail::__ellint_2<float>(__k, __phi); }
+
+ inline long double
+ ellint_2l(long double __k, long double __phi)
+ { return __detail::__ellint_2<long double>(__k, __phi); }
+
+ template<typename _Tp, typename _Tpp>
+ inline typename __gnu_cxx::__promote_2<_Tp, _Tpp>::__type
+ ellint_2(_Tp __k, _Tpp __phi)
+ {
+ typedef typename __gnu_cxx::__promote_2<_Tp, _Tpp>::__type __type;
+ return __detail::__ellint_2<__type>(__k, __phi);
+ }
+
+ // Incomplete elliptic integrals of the third kind
+
+ inline float
+ ellint_3f(float __k, float __nu, float __phi)
+ { return __detail::__ellint_3<float>(__k, __nu, __phi); }
+
+ inline long double
+ ellint_3l(long double __k, long double __nu, long double __phi)
+ { return __detail::__ellint_3<long double>(__k, __nu, __phi); }
+
+ template<typename _Tp, typename _Tpn, typename _Tpp>
+ inline typename __gnu_cxx::__promote_3<_Tp, _Tpn, _Tpp>::__type
+ ellint_3(_Tp __k, _Tpn __nu, _Tpp __phi)
+ {
+ typedef typename __gnu_cxx::__promote_3<_Tp, _Tpn, _Tpp>::__type __type;
+ return __detail::__ellint_3<__type>(__k, __nu, __phi);
+ }
+
+ // Exponential integrals
+
+ inline float
+ expintf(float __x)
+ { return __detail::__expint<float>(__x); }
+
+ inline long double
+ expintl(long double __x)
+ { return __detail::__expint<long double>(__x); }
+
+ template<typename _Tp>
+ inline typename __gnu_cxx::__promote<_Tp>::__type
+ expint(_Tp __x)
+ {
+ typedef typename __gnu_cxx::__promote<_Tp>::__type __type;
+ return __detail::__expint<__type>(__x);
+ }
+
+ // Hermite polynomials
+
+ inline float
+ hermitef(unsigned int __n, float __x)
+ { return __detail::__poly_hermite<float>(__n, __x); }
+
+ inline long double
+ hermitel(unsigned int __n, long double __x)
+ { return __detail::__poly_hermite<long double>(__n, __x); }
+
+ template<typename _Tp>
+ inline typename __gnu_cxx::__promote<_Tp>::__type
+ hermite(unsigned int __n, _Tp __x)
+ {
+ typedef typename __gnu_cxx::__promote<_Tp>::__type __type;
+ return __detail::__poly_hermite<__type>(__n, __x);
+ }
+
+ // Laguerre polynomials
+
+ inline float
+ laguerref(unsigned int __n, float __x)
+ { return __detail::__laguerre<float>(__n, __x); }
+
+ inline long double
+ laguerrel(unsigned int __n, long double __x)
+ { return __detail::__laguerre<long double>(__n, __x); }
+
+ template<typename _Tp>
+ inline typename __gnu_cxx::__promote<_Tp>::__type
+ laguerre(unsigned int __n, _Tp __x)
+ {
+ typedef typename __gnu_cxx::__promote<_Tp>::__type __type;
+ return __detail::__laguerre<__type>(__n, __x);
+ }
+
+ // Legendre polynomials
+
+ inline float
+ legendref(unsigned int __n, float __x)
+ { return __detail::__poly_legendre_p<float>(__n, __x); }
+
+ inline long double
+ legendrel(unsigned int __n, long double __x)
+ { return __detail::__poly_legendre_p<long double>(__n, __x); }
+
+ template<typename _Tp>
+ inline typename __gnu_cxx::__promote<_Tp>::__type
+ legendre(unsigned int __n, _Tp __x)
+ {
+ typedef typename __gnu_cxx::__promote<_Tp>::__type __type;
+ return __detail::__poly_legendre_p<__type>(__n, __x);
+ }
+
+ // Riemann zeta functions
+
+ inline float
+ riemann_zetaf(float __s)
+ { return __detail::__riemann_zeta<float>(__s); }
+
+ inline long double
+ riemann_zetal(long double __s)
+ { return __detail::__riemann_zeta<long double>(__s); }
+
+ template<typename _Tp>
+ inline typename __gnu_cxx::__promote<_Tp>::__type
+ riemann_zeta(_Tp __s)
+ {
+ typedef typename __gnu_cxx::__promote<_Tp>::__type __type;
+ return __detail::__riemann_zeta<__type>(__s);
+ }
+
+ // Spherical Bessel functions
+
+ inline float
+ sph_besself(unsigned int __n, float __x)
+ { return __detail::__sph_bessel<float>(__n, __x); }
+
+ inline long double
+ sph_bessell(unsigned int __n, long double __x)
+ { return __detail::__sph_bessel<long double>(__n, __x); }
+
+ template<typename _Tp>
+ inline typename __gnu_cxx::__promote<_Tp>::__type
+ sph_bessel(unsigned int __n, _Tp __x)
+ {
+ typedef typename __gnu_cxx::__promote<_Tp>::__type __type;
+ return __detail::__sph_bessel<__type>(__n, __x);
+ }
+
+ // Spherical associated Legendre functions
+
+ inline float
+ sph_legendref(unsigned int __l, unsigned int __m, float __theta)
+ { return __detail::__sph_legendre<float>(__l, __m, __theta); }
+
+ inline long double
+ sph_legendrel(unsigned int __l, unsigned int __m, long double __theta)
+ { return __detail::__sph_legendre<long double>(__l, __m, __theta); }
+
+ template<typename _Tp>
+ inline typename __gnu_cxx::__promote<_Tp>::__type
+ sph_legendre(unsigned int __l, unsigned int __m, _Tp __theta)
+ {
+ typedef typename __gnu_cxx::__promote<_Tp>::__type __type;
+ return __detail::__sph_legendre<__type>(__l, __m, __theta);
+ }
+
+ // Spherical Neumann functions
+
+ inline float
+ sph_neumannf(unsigned int __n, float __x)
+ { return __detail::__sph_neumann<float>(__n, __x); }
+
+ inline long double
+ sph_neumannl(unsigned int __n, long double __x)
+ { return __detail::__sph_neumann<long double>(__n, __x); }
+
+ template<typename _Tp>
+ inline typename __gnu_cxx::__promote<_Tp>::__type
+ sph_neumann(unsigned int __n, _Tp __x)
+ {
+ typedef typename __gnu_cxx::__promote<_Tp>::__type __type;
+ return __detail::__sph_neumann<__type>(__n, __x);
+ }
+
+ // @} group mathsf
+
+_GLIBCXX_END_NAMESPACE_VERSION
+} // namespace std
+
+namespace __gnu_cxx _GLIBCXX_VISIBILITY(default)
+{
+
+ // Confluent hypergeometric functions
+
+ inline float
+ conf_hypergf(float __a, float __c, float __x)
+ { return std::__detail::__conf_hyperg<float>(__a, __c, __x); }
+
+ inline long double
+ conf_hypergl(long double __a, long double __c, long double __x)
+ { return std::__detail::__conf_hyperg<long double>(__a, __c, __x); }
+
+ template<typename _Tpa, typename _Tpc, typename _Tp>
+ inline typename __gnu_cxx::__promote_3<_Tpa, _Tpc, _Tp>::__type
+ conf_hyperg(_Tpa __a, _Tpc __c, _Tp __x)
+ {
+ typedef typename __gnu_cxx::__promote_3<_Tpa, _Tpc, _Tp>::__type __type;
+ return std::__detail::__conf_hyperg<__type>(__a, __c, __x);
+ }
+
+ // Hypergeometric functions
+
+ inline float
+ hypergf(float __a, float __b, float __c, float __x)
+ { return std::__detail::__hyperg<float>(__a, __b, __c, __x); }
+
+ inline long double
+ hypergl(long double __a, long double __b, long double __c, long double __x)
+ { return std::__detail::__hyperg<long double>(__a, __b, __c, __x); }
+
+ template<typename _Tpa, typename _Tpb, typename _Tpc, typename _Tp>
+ inline typename __gnu_cxx::__promote_4<_Tpa, _Tpb, _Tpc, _Tp>::__type
+ hyperg(_Tpa __a, _Tpb __b, _Tpc __c, _Tp __x)
+ {
+ typedef typename __gnu_cxx::__promote_4<_Tpa, _Tpb, _Tpc, _Tp>
+ ::__type __type;
+ return std::__detail::__hyperg<__type>(__a, __b, __c, __x);
+ }
+
+} // namespace __gnu_cxx
+
+#pragma GCC visibility pop
+
+#endif // _GLIBCXX_BITS_SPECFUN_H
Index: include/c_global/cmath
===================================================================
--- include/c_global/cmath (revision 232104)
+++ include/c_global/cmath (working copy)
@@ -1776,4 +1776,8 @@
#endif // C++11
+#if __STDCPP_WANT_MATH_SPEC_FUNCS__ == 1
+# include <bits/specfun.h>
#endif
+
+#endif
Index: include/tr1/bessel_function.tcc
===================================================================
--- include/tr1/bessel_function.tcc (revision 232104)
+++ include/tr1/bessel_function.tcc (working copy)
@@ -50,8 +50,15 @@
namespace std _GLIBCXX_VISIBILITY(default)
{
+#if __STDCPP_WANT_MATH_SPEC_FUNCS__
+# define _GLIBCXX_MATH_NS ::std
+#elif defined(_GLIBCXX_TR1_CMATH)
namespace tr1
{
+# define _GLIBCXX_MATH_NS ::std::tr1
+#else
+# error do not include this header directly, use <cmath> or <tr1/cmath>
+#endif
// [5.2] Special functions
// Implementation-space details.
@@ -90,8 +97,8 @@
_Tp & __gam1, _Tp & __gam2, _Tp & __gampl, _Tp & __gammi)
{
#if _GLIBCXX_USE_C99_MATH_TR1
- __gampl = _Tp(1) / std::tr1::tgamma(_Tp(1) + __mu);
- __gammi = _Tp(1) / std::tr1::tgamma(_Tp(1) - __mu);
+ __gampl = _Tp(1) / _GLIBCXX_MATH_NS::tgamma(_Tp(1) + __mu);
+ __gammi = _Tp(1) / _GLIBCXX_MATH_NS::tgamma(_Tp(1) - __mu);
#else
__gampl = _Tp(1) / __gamma(_Tp(1) + __mu);
__gammi = _Tp(1) / __gamma(_Tp(1) - __mu);
@@ -306,7 +313,7 @@
const _Tp __gam = (__p - __f) / __q;
__Jmu = std::sqrt(__w / ((__p - __f) * __gam + __q));
#if _GLIBCXX_USE_C99_MATH_TR1
- __Jmu = std::tr1::copysign(__Jmu, __Jnul);
+ __Jmu = _GLIBCXX_MATH_NS::copysign(__Jmu, __Jnul);
#else
if (__Jmu * __Jnul < _Tp(0))
__Jmu = -__Jmu;
@@ -414,7 +421,7 @@
const _Tp __x2 = __x / _Tp(2);
_Tp __fact = __nu * std::log(__x2);
#if _GLIBCXX_USE_C99_MATH_TR1
- __fact -= std::tr1::lgamma(__nu + _Tp(1));
+ __fact -= _GLIBCXX_MATH_NS::lgamma(__nu + _Tp(1));
#else
__fact -= __log_gamma(__nu + _Tp(1));
#endif
@@ -621,8 +628,11 @@
}
_GLIBCXX_END_NAMESPACE_VERSION
- } // namespace std::tr1::__detail
+ } // namespace __detail
+#undef _GLIBCXX_MATH_NS
+#if ! __STDCPP_WANT_MATH_SPEC_FUNCS__ && defined(_GLIBCXX_TR1_CMATH)
+} // namespace tr1
+#endif
}
-}
#endif // _GLIBCXX_TR1_BESSEL_FUNCTION_TCC
Index: include/tr1/beta_function.tcc
===================================================================
--- include/tr1/beta_function.tcc (revision 232104)
+++ include/tr1/beta_function.tcc (working copy)
@@ -48,8 +48,15 @@
namespace std _GLIBCXX_VISIBILITY(default)
{
+#if __STDCPP_WANT_MATH_SPEC_FUNCS__
+# define _GLIBCXX_MATH_NS ::std
+#elif defined(_GLIBCXX_TR1_CMATH)
namespace tr1
{
+# define _GLIBCXX_MATH_NS ::std::tr1
+#else
+# error do not include this header directly, use <cmath> or <tr1/cmath>
+#endif
// [5.2] Special functions
// Implementation-space details.
@@ -78,15 +85,15 @@
#if _GLIBCXX_USE_C99_MATH_TR1
if (__x > __y)
{
- __bet = std::tr1::tgamma(__x)
- / std::tr1::tgamma(__x + __y);
- __bet *= std::tr1::tgamma(__y);
+ __bet = _GLIBCXX_MATH_NS::tgamma(__x)
+ / _GLIBCXX_MATH_NS::tgamma(__x + __y);
+ __bet *= _GLIBCXX_MATH_NS::tgamma(__y);
}
else
{
- __bet = std::tr1::tgamma(__y)
- / std::tr1::tgamma(__x + __y);
- __bet *= std::tr1::tgamma(__x);
+ __bet = _GLIBCXX_MATH_NS::tgamma(__y)
+ / _GLIBCXX_MATH_NS::tgamma(__x + __y);
+ __bet *= _GLIBCXX_MATH_NS::tgamma(__x);
}
#else
if (__x > __y)
@@ -122,9 +129,9 @@
__beta_lgamma(_Tp __x, _Tp __y)
{
#if _GLIBCXX_USE_C99_MATH_TR1
- _Tp __bet = std::tr1::lgamma(__x)
- + std::tr1::lgamma(__y)
- - std::tr1::lgamma(__x + __y);
+ _Tp __bet = _GLIBCXX_MATH_NS::lgamma(__x)
+ + _GLIBCXX_MATH_NS::lgamma(__y)
+ - _GLIBCXX_MATH_NS::lgamma(__x + __y);
#else
_Tp __bet = __log_gamma(__x)
+ __log_gamma(__y)
@@ -190,8 +197,11 @@
}
_GLIBCXX_END_NAMESPACE_VERSION
- } // namespace std::tr1::__detail
+ } // namespace __detail
+#undef _GLIBCXX_MATH_NS
+#if ! __STDCPP_WANT_MATH_SPEC_FUNCS__ && defined(_GLIBCXX_TR1_CMATH)
+} // namespace tr1
+#endif
}
-}
#endif // _GLIBCXX_TR1_BETA_FUNCTION_TCC
Index: include/tr1/cmath
===================================================================
--- include/tr1/cmath (revision 232104)
+++ include/tr1/cmath (working copy)
@@ -1086,6 +1086,121 @@
}
}
+#if __STDCPP_WANT_MATH_SPEC_FUNCS__
+
+namespace std _GLIBCXX_VISIBILITY(default)
+{
+namespace tr1
+{
+_GLIBCXX_BEGIN_NAMESPACE_VERSION
+
+ /**
+ * @defgroup tr1_math_spec_func Mathematical Special Functions
+ * @ingroup numerics
+ *
+ * A collection of advanced mathematical special functions.
+ * @{
+ */
+
+ using std::assoc_laguerref;
+ using std::assoc_laguerrel;
+ using std::assoc_laguerre;
+
+ using std::assoc_legendref;
+ using std::assoc_legendrel;
+ using std::assoc_legendre;
+
+ using std::betaf;
+ using std::betal;
+ using std::beta;
+
+ using std::comp_ellint_1f;
+ using std::comp_ellint_1l;
+ using std::comp_ellint_1;
+
+ using std::comp_ellint_2f;
+ using std::comp_ellint_2l;
+ using std::comp_ellint_2;
+
+ using std::comp_ellint_3f;
+ using std::comp_ellint_3l;
+ using std::comp_ellint_3;
+
+ using __gnu_cxx::conf_hypergf;
+ using __gnu_cxx::conf_hypergl;
+ using __gnu_cxx::conf_hyperg;
+
+ using std::cyl_bessel_if;
+ using std::cyl_bessel_il;
+ using std::cyl_bessel_i;
+
+ using std::cyl_bessel_jf;
+ using std::cyl_bessel_jl;
+ using std::cyl_bessel_j;
+
+ using std::cyl_bessel_kf;
+ using std::cyl_bessel_kl;
+ using std::cyl_bessel_k;
+
+ using std::cyl_neumannf;
+ using std::cyl_neumannl;
+ using std::cyl_neumann;
+
+ using std::ellint_1f;
+ using std::ellint_1l;
+ using std::ellint_1;
+
+ using std::ellint_2f;
+ using std::ellint_2l;
+ using std::ellint_2;
+
+ using std::ellint_3f;
+ using std::ellint_3l;
+ using std::ellint_3;
+
+ using std::expintf;
+ using std::expintl;
+ using std::expint;
+
+ using std::hermitef;
+ using std::hermitel;
+ using std::hermite;
+
+ using __gnu_cxx::hypergf;
+ using __gnu_cxx::hypergl;
+ using __gnu_cxx::hyperg;
+
+ using std::laguerref;
+ using std::laguerrel;
+ using std::laguerre;
+
+ using std::legendref;
+ using std::legendrel;
+ using std::legendre;
+
+ using std::riemann_zetaf;
+ using std::riemann_zetal;
+ using std::riemann_zeta;
+
+ using std::sph_besself;
+ using std::sph_bessell;
+ using std::sph_bessel;
+
+ using std::sph_legendref;
+ using std::sph_legendrel;
+ using std::sph_legendre;
+
+ using std::sph_neumannf;
+ using std::sph_neumannl;
+ using std::sph_neumann;
+
+ /* @} */ // tr1_math_spec_func
+_GLIBCXX_END_NAMESPACE_VERSION
+}
+}
+
+#else // ! __STDCPP_WANT_MATH_SPEC_FUNCS__
+
#include <bits/stl_algobase.h>
#include <limits>
#include <tr1/type_traits>
@@ -1513,5 +1628,6 @@
_GLIBCXX_END_NAMESPACE_VERSION
}
}
+#endif // __STDCPP_WANT_MATH_SPEC_FUNCS__
#endif // _GLIBCXX_TR1_CMATH
Index: include/tr1/ell_integral.tcc
===================================================================
--- include/tr1/ell_integral.tcc (revision 232104)
+++ include/tr1/ell_integral.tcc (working copy)
@@ -44,8 +44,13 @@
namespace std _GLIBCXX_VISIBILITY(default)
{
+#if __STDCPP_WANT_MATH_SPEC_FUNCS__
+#elif defined(_GLIBCXX_TR1_CMATH)
namespace tr1
{
+#else
+# error do not include this header directly, use <cmath> or <tr1/cmath>
+#endif
// [5.2] Special functions
// Implementation-space details.
@@ -742,9 +747,11 @@
}
_GLIBCXX_END_NAMESPACE_VERSION
- } // namespace std::tr1::__detail
+ } // namespace __detail
+#if ! __STDCPP_WANT_MATH_SPEC_FUNCS__ && defined(_GLIBCXX_TR1_CMATH)
+} // namespace tr1
+#endif
}
-}
#endif // _GLIBCXX_TR1_ELL_INTEGRAL_TCC
Index: include/tr1/exp_integral.tcc
===================================================================
--- include/tr1/exp_integral.tcc (revision 232104)
+++ include/tr1/exp_integral.tcc (working copy)
@@ -49,8 +49,13 @@
namespace std _GLIBCXX_VISIBILITY(default)
{
+#if __STDCPP_WANT_MATH_SPEC_FUNCS__
+#elif defined(_GLIBCXX_TR1_CMATH)
namespace tr1
{
+#else
+# error do not include this header directly, use <cmath> or <tr1/cmath>
+#endif
// [5.2] Special functions
// Implementation-space details.
@@ -519,8 +524,10 @@
}
_GLIBCXX_END_NAMESPACE_VERSION
- } // namespace std::tr1::__detail
+ } // namespace __detail
+#if ! __STDCPP_WANT_MATH_SPEC_FUNCS__ && defined(_GLIBCXX_TR1_CMATH)
+} // namespace tr1
+#endif
}
-}
#endif // _GLIBCXX_TR1_EXP_INTEGRAL_TCC
Index: include/tr1/gamma.tcc
===================================================================
--- include/tr1/gamma.tcc (revision 232104)
+++ include/tr1/gamma.tcc (working copy)
@@ -46,12 +46,19 @@
#ifndef _GLIBCXX_TR1_GAMMA_TCC
#define _GLIBCXX_TR1_GAMMA_TCC 1
-#include "special_function_util.h"
+#include <tr1/special_function_util.h>
namespace std _GLIBCXX_VISIBILITY(default)
{
+#if __STDCPP_WANT_MATH_SPEC_FUNCS__
+# define _GLIBCXX_MATH_NS ::std
+#elif defined(_GLIBCXX_TR1_CMATH)
namespace tr1
{
+# define _GLIBCXX_MATH_NS ::std::tr1
+#else
+# error do not include this header directly, use <cmath> or <tr1/cmath>
+#endif
// Implementation-space details.
namespace __detail
{
@@ -282,9 +289,9 @@
= std::numeric_limits<_Tp>::max_exponent10
* std::log(_Tp(10)) - _Tp(1);
#if _GLIBCXX_USE_C99_MATH_TR1
- _Tp __coeff = std::tr1::lgamma(_Tp(1 + __n))
- - std::tr1::lgamma(_Tp(1 + __k))
- - std::tr1::lgamma(_Tp(1 + __n - __k));
+ _Tp __coeff = _GLIBCXX_MATH_NS::lgamma(_Tp(1 + __n))
+ - _GLIBCXX_MATH_NS::lgamma(_Tp(1 + __k))
+ - _GLIBCXX_MATH_NS::lgamma(_Tp(1 + __n - __k));
#else
_Tp __coeff = __log_gamma(_Tp(1 + __n))
- __log_gamma(_Tp(1 + __k))
@@ -449,7 +456,7 @@
{
const _Tp __hzeta = __hurwitz_zeta(_Tp(__n + 1), __x);
#if _GLIBCXX_USE_C99_MATH_TR1
- const _Tp __ln_nfact = std::tr1::lgamma(_Tp(__n + 1));
+ const _Tp __ln_nfact = _GLIBCXX_MATH_NS::lgamma(_Tp(__n + 1));
#else
const _Tp __ln_nfact = __log_gamma(_Tp(__n + 1));
#endif
@@ -461,9 +468,12 @@
}
_GLIBCXX_END_NAMESPACE_VERSION
- } // namespace std::tr1::__detail
-}
-}
+ } // namespace __detail
+#undef _GLIBCXX_MATH_NS
+#if ! __STDCPP_WANT_MATH_SPEC_FUNCS__ && defined(_GLIBCXX_TR1_CMATH)
+} // namespace tr1
+#endif
+} // namespace std
#endif // _GLIBCXX_TR1_GAMMA_TCC
Index: include/tr1/hypergeometric.tcc
===================================================================
--- include/tr1/hypergeometric.tcc (revision 232104)
+++ include/tr1/hypergeometric.tcc (working copy)
@@ -43,8 +43,15 @@
namespace std _GLIBCXX_VISIBILITY(default)
{
+#if __STDCPP_WANT_MATH_SPEC_FUNCS__
+# define _GLIBCXX_MATH_NS ::std
+#elif defined(_GLIBCXX_TR1_CMATH)
namespace tr1
{
+# define _GLIBCXX_MATH_NS ::std::tr1
+#else
+# error do not include this header directly, use <cmath> or <tr1/cmath>
+#endif
// [5.2] Special functions
// Implementation-space details.
@@ -222,7 +229,7 @@
__conf_hyperg(_Tp __a, _Tp __c, _Tp __x)
{
#if _GLIBCXX_USE_C99_MATH_TR1
- const _Tp __c_nint = std::tr1::nearbyint(__c);
+ const _Tp __c_nint = _GLIBCXX_MATH_NS::nearbyint(__c);
#else
const _Tp __c_nint = static_cast<int>(__c + _Tp(0.5L));
#endif
@@ -723,9 +730,9 @@
__hyperg(_Tp __a, _Tp __b, _Tp __c, _Tp __x)
{
#if _GLIBCXX_USE_C99_MATH_TR1
- const _Tp __a_nint = std::tr1::nearbyint(__a);
- const _Tp __b_nint = std::tr1::nearbyint(__b);
- const _Tp __c_nint = std::tr1::nearbyint(__c);
+ const _Tp __a_nint = _GLIBCXX_MATH_NS::nearbyint(__a);
+ const _Tp __b_nint = _GLIBCXX_MATH_NS::nearbyint(__b);
+ const _Tp __c_nint = _GLIBCXX_MATH_NS::nearbyint(__c);
#else
const _Tp __a_nint = static_cast<int>(__a + _Tp(0.5L));
const _Tp __b_nint = static_cast<int>(__b + _Tp(0.5L));
@@ -768,8 +775,11 @@
}
_GLIBCXX_END_NAMESPACE_VERSION
- } // namespace std::tr1::__detail
+ } // namespace __detail
+#undef _GLIBCXX_MATH_NS
+#if ! __STDCPP_WANT_MATH_SPEC_FUNCS__ && defined(_GLIBCXX_TR1_CMATH)
+} // namespace tr1
+#endif
}
-}
#endif // _GLIBCXX_TR1_HYPERGEOMETRIC_TCC
Index: include/tr1/legendre_function.tcc
===================================================================
--- include/tr1/legendre_function.tcc (revision 232104)
+++ include/tr1/legendre_function.tcc (working copy)
@@ -48,8 +48,15 @@
namespace std _GLIBCXX_VISIBILITY(default)
{
+#if __STDCPP_WANT_MATH_SPEC_FUNCS__
+# define _GLIBCXX_MATH_NS ::std
+#elif defined(_GLIBCXX_TR1_CMATH)
namespace tr1
{
+# define _GLIBCXX_MATH_NS ::std::tr1
+#else
+# error do not include this header directly, use <cmath> or <tr1/cmath>
+#endif
// [5.2] Special functions
// Implementation-space details.
@@ -243,14 +250,14 @@
const _Tp __sgn = ( __m % 2 == 1 ? -_Tp(1) : _Tp(1));
const _Tp __y_mp1m_factor = __x * std::sqrt(_Tp(2 * __m + 3));
#if _GLIBCXX_USE_C99_MATH_TR1
- const _Tp __lncirc = std::tr1::log1p(-__x * __x);
+ const _Tp __lncirc = _GLIBCXX_MATH_NS::log1p(-__x * __x);
#else
const _Tp __lncirc = std::log(_Tp(1) - __x * __x);
#endif
// Gamma(m+1/2) / Gamma(m)
#if _GLIBCXX_USE_C99_MATH_TR1
- const _Tp __lnpoch = std::tr1::lgamma(_Tp(__m + _Tp(0.5L)))
- - std::tr1::lgamma(_Tp(__m));
+ const _Tp __lnpoch = _GLIBCXX_MATH_NS::lgamma(_Tp(__m + _Tp(0.5L)))
+ - _GLIBCXX_MATH_NS::lgamma(_Tp(__m));
#else
const _Tp __lnpoch = __log_gamma(_Tp(__m + _Tp(0.5L)))
- __log_gamma(_Tp(__m));
@@ -296,8 +303,11 @@
}
_GLIBCXX_END_NAMESPACE_VERSION
- } // namespace std::tr1::__detail
+ } // namespace __detail
+#undef _GLIBCXX_MATH_NS
+#if ! __STDCPP_WANT_MATH_SPEC_FUNCS__ && defined(_GLIBCXX_TR1_CMATH)
+} // namespace tr1
+#endif
}
-}
#endif // _GLIBCXX_TR1_LEGENDRE_FUNCTION_TCC
Index: include/tr1/modified_bessel_func.tcc
===================================================================
--- include/tr1/modified_bessel_func.tcc (revision 232104)
+++ include/tr1/modified_bessel_func.tcc (working copy)
@@ -50,8 +50,13 @@
namespace std _GLIBCXX_VISIBILITY(default)
{
+#if __STDCPP_WANT_MATH_SPEC_FUNCS__
+#elif defined(_GLIBCXX_TR1_CMATH)
namespace tr1
{
+#else
+# error do not include this header directly, use <cmath> or <tr1/cmath>
+#endif
// [5.2] Special functions
// Implementation-space details.
@@ -427,8 +432,10 @@
}
_GLIBCXX_END_NAMESPACE_VERSION
- } // namespace std::tr1::__detail
+ } // namespace __detail
+#if ! __STDCPP_WANT_MATH_SPEC_FUNCS__ && defined(_GLIBCXX_TR1_CMATH)
+} // namespace tr1
+#endif
}
-}
#endif // _GLIBCXX_TR1_MODIFIED_BESSEL_FUNC_TCC
Index: include/tr1/poly_hermite.tcc
===================================================================
--- include/tr1/poly_hermite.tcc (revision 232104)
+++ include/tr1/poly_hermite.tcc (working copy)
@@ -41,8 +41,13 @@
namespace std _GLIBCXX_VISIBILITY(default)
{
+#if __STDCPP_WANT_MATH_SPEC_FUNCS__
+#elif defined(_GLIBCXX_TR1_CMATH)
namespace tr1
{
+#else
+# error do not include this header directly, use <cmath> or <tr1/cmath>
+#endif
// [5.2] Special functions
// Implementation-space details.
@@ -117,8 +122,10 @@
}
_GLIBCXX_END_NAMESPACE_VERSION
- } // namespace std::tr1::__detail
+ } // namespace __detail
+#if ! __STDCPP_WANT_MATH_SPEC_FUNCS__ && defined(_GLIBCXX_TR1_CMATH)
+} // namespace tr1
+#endif
}
-}
#endif // _GLIBCXX_TR1_POLY_HERMITE_TCC
Index: include/tr1/poly_laguerre.tcc
===================================================================
--- include/tr1/poly_laguerre.tcc (revision 232104)
+++ include/tr1/poly_laguerre.tcc (working copy)
@@ -43,8 +43,15 @@
namespace std _GLIBCXX_VISIBILITY(default)
{
+#if __STDCPP_WANT_MATH_SPEC_FUNCS__
+# define _GLIBCXX_MATH_NS ::std
+#elif defined(_GLIBCXX_TR1_CMATH)
namespace tr1
{
+# define _GLIBCXX_MATH_NS ::std::tr1
+#else
+# error do not include this header directly, use <cmath> or <tr1/cmath>
+#endif
// [5.2] Special functions
// Implementation-space details.
@@ -80,8 +87,8 @@
* __eta * __eta * __cos2th * __sin2th;
#if _GLIBCXX_USE_C99_MATH_TR1
- const _Tp __lg_b = std::tr1::lgamma(_Tp(__n) + __b);
- const _Tp __lnfact = std::tr1::lgamma(_Tp(__n + 1));
+ const _Tp __lg_b = _GLIBCXX_MATH_NS::lgamma(_Tp(__n) + __b);
+ const _Tp __lnfact = _GLIBCXX_MATH_NS::lgamma(_Tp(__n + 1));
#else
const _Tp __lg_b = __log_gamma(_Tp(__n) + __b);
const _Tp __lnfact = __log_gamma(_Tp(__n + 1));
@@ -312,8 +319,11 @@
{ return __poly_laguerre<unsigned int, _Tp>(__n, 0, __x); }
_GLIBCXX_END_NAMESPACE_VERSION
- } // namespace std::tr1::__detail
+ } // namespace __detail
+#undef _GLIBCXX_MATH_NS
+#if ! __STDCPP_WANT_MATH_SPEC_FUNCS__ && defined(_GLIBCXX_TR1_CMATH)
+} // namespace tr1
+#endif
}
-}
#endif // _GLIBCXX_TR1_POLY_LAGUERRE_TCC
Index: include/tr1/riemann_zeta.tcc
===================================================================
--- include/tr1/riemann_zeta.tcc (revision 232104)
+++ include/tr1/riemann_zeta.tcc (working copy)
@@ -46,8 +46,15 @@
namespace std _GLIBCXX_VISIBILITY(default)
{
+#if __STDCPP_WANT_MATH_SPEC_FUNCS__
+# define _GLIBCXX_MATH_NS ::std
+#elif defined(_GLIBCXX_TR1_CMATH)
namespace tr1
{
+# define _GLIBCXX_MATH_NS ::std::tr1
+#else
+# error do not include this header directly, use <cmath> or <tr1/cmath>
+#endif
// [5.2] Special functions
// Implementation-space details.
@@ -163,7 +170,7 @@
if (__s < _Tp(0))
{
#if _GLIBCXX_USE_C99_MATH_TR1
- if (std::tr1::fmod(__s,_Tp(2)) == _Tp(0))
+ if (_GLIBCXX_MATH_NS::fmod(__s,_Tp(2)) == _Tp(0))
return _Tp(0);
else
#endif
@@ -173,7 +180,7 @@
* __numeric_constants<_Tp>::__pi(), __s)
* std::sin(__numeric_constants<_Tp>::__pi_2() * __s)
#if _GLIBCXX_USE_C99_MATH_TR1
- * std::exp(std::tr1::lgamma(_Tp(1) - __s))
+ * std::exp(_GLIBCXX_MATH_NS::lgamma(_Tp(1) - __s))
#else
* std::exp(__log_gamma(_Tp(1) - __s))
#endif
@@ -192,9 +199,9 @@
for (unsigned int __j = 0; __j <= __i; ++__j)
{
#if _GLIBCXX_USE_C99_MATH_TR1
- _Tp __bincoeff = std::tr1::lgamma(_Tp(1 + __i))
- - std::tr1::lgamma(_Tp(1 + __j))
- - std::tr1::lgamma(_Tp(1 + __i - __j));
+ _Tp __bincoeff = _GLIBCXX_MATH_NS::lgamma(_Tp(1 + __i))
+ - _GLIBCXX_MATH_NS::lgamma(_Tp(1 + __j))
+ - _GLIBCXX_MATH_NS::lgamma(_Tp(1 + __i - __j));
#else
_Tp __bincoeff = __log_gamma(_Tp(1 + __i))
- __log_gamma(_Tp(1 + __j))
@@ -297,7 +304,7 @@
__zeta *= std::pow(_Tp(2) * __numeric_constants<_Tp>::__pi(), __s)
* std::sin(__numeric_constants<_Tp>::__pi_2() * __s)
#if _GLIBCXX_USE_C99_MATH_TR1
- * std::exp(std::tr1::lgamma(_Tp(1) - __s))
+ * std::exp(_GLIBCXX_MATH_NS::lgamma(_Tp(1) - __s))
#else
* std::exp(__log_gamma(_Tp(1) - __s))
#endif
@@ -320,7 +327,7 @@
* __numeric_constants<_Tp>::__pi(), __s)
* std::sin(__numeric_constants<_Tp>::__pi_2() * __s)
#if _GLIBCXX_USE_C99_MATH_TR1
- * std::tr1::tgamma(_Tp(1) - __s)
+ * _GLIBCXX_MATH_NS::tgamma(_Tp(1) - __s)
#else
* std::exp(__log_gamma(_Tp(1) - __s))
#endif
@@ -375,9 +382,9 @@
for (unsigned int __j = 0; __j <= __i; ++__j)
{
#if _GLIBCXX_USE_C99_MATH_TR1
- _Tp __bincoeff = std::tr1::lgamma(_Tp(1 + __i))
- - std::tr1::lgamma(_Tp(1 + __j))
- - std::tr1::lgamma(_Tp(1 + __i - __j));
+ _Tp __bincoeff = _GLIBCXX_MATH_NS::lgamma(_Tp(1 + __i))
+ - _GLIBCXX_MATH_NS::lgamma(_Tp(1 + __j))
+ - _GLIBCXX_MATH_NS::lgamma(_Tp(1 + __i - __j));
#else
_Tp __bincoeff = __log_gamma(_Tp(1 + __i))
- __log_gamma(_Tp(1 + __j))
@@ -426,8 +433,11 @@
{ return __hurwitz_zeta_glob(__a, __s); }
_GLIBCXX_END_NAMESPACE_VERSION
- } // namespace std::tr1::__detail
+ } // namespace __detail
+#undef _GLIBCXX_MATH_NS
+#if ! __STDCPP_WANT_MATH_SPEC_FUNCS__ && defined(_GLIBCXX_TR1_CMATH)
+} // namespace tr1
+#endif
}
-}
#endif // _GLIBCXX_TR1_RIEMANN_ZETA_TCC
Index: include/tr1/special_function_util.h
===================================================================
--- include/tr1/special_function_util.h (revision 232104)
+++ include/tr1/special_function_util.h (working copy)
@@ -38,8 +38,13 @@
namespace std _GLIBCXX_VISIBILITY(default)
{
+#if __STDCPP_WANT_MATH_SPEC_FUNCS__
+#elif defined(_GLIBCXX_TR1_CMATH)
namespace tr1
{
+#else
+# error do not include this header directly, use <cmath> or <tr1/cmath>
+#endif
namespace __detail
{
_GLIBCXX_BEGIN_NAMESPACE_VERSION
@@ -128,8 +133,10 @@
_GLIBCXX_END_NAMESPACE_VERSION
} // namespace __detail
+#if ! __STDCPP_WANT_MATH_SPEC_FUNCS__ && defined(_GLIBCXX_TR1_CMATH)
+} // namespace tr1
+#endif
}
-}
#endif // _GLIBCXX_TR1_SPECIAL_FUNCTION_UTIL_H
Index: testsuite/ext/special_functions/conf_hyperg/check_nan.cc
===================================================================
--- testsuite/ext/special_functions/conf_hyperg/check_nan.cc (revision 0)
+++ testsuite/ext/special_functions/conf_hyperg/check_nan.cc (working copy)
@@ -0,0 +1,128 @@
+// { dg-require-c-std "" }
+// { dg-add-options ieee }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// conf_hyperg
+
+#include <cmath>
+#include <testsuite_hooks.h>
+
+void
+test01()
+{
+ float af = std::numeric_limits<float>::quiet_NaN();
+ double ad = std::numeric_limits<double>::quiet_NaN();
+ long double al = std::numeric_limits<long double>::quiet_NaN();
+
+ float cf = 3.0F;
+ double cd = 3.0;
+ long double cl = 3.0L;
+
+ float xf = 0.5F;
+ double xd = 0.5;
+ long double xl = 0.5L;
+
+ float a = __gnu_cxx::conf_hyperg(af, cf, xf);
+ float b = __gnu_cxx::conf_hypergf(af, cf, xf);
+ double c = __gnu_cxx::conf_hyperg(ad, cd, xd);
+ long double d = __gnu_cxx::conf_hyperg(al, cl, xl);
+ long double e = __gnu_cxx::conf_hypergl(al, cl, xl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+void
+test02()
+{
+ float af = 2.0F;
+ double ad = 2.0;
+ long double al = 2.0L;
+
+ float cf = std::numeric_limits<float>::quiet_NaN();
+ double cd = std::numeric_limits<double>::quiet_NaN();
+ long double cl = std::numeric_limits<long double>::quiet_NaN();
+
+ float xf = 0.5F;
+ double xd = 0.5;
+ long double xl = 0.5L;
+
+ float a = __gnu_cxx::conf_hyperg(af, cf, xf);
+ float b = __gnu_cxx::conf_hypergf(af, cf, xf);
+ double c = __gnu_cxx::conf_hyperg(ad, cd, xd);
+ long double d = __gnu_cxx::conf_hyperg(al, cl, xl);
+ long double e = __gnu_cxx::conf_hypergl(al, cl, xl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+void
+test03()
+{
+ float af = 2.0F;
+ double ad = 2.0;
+ long double al = 2.0L;
+
+ float cf = 3.0F;
+ double cd = 3.0;
+ long double cl = 3.0L;
+
+ float xf = std::numeric_limits<float>::quiet_NaN();
+ double xd = std::numeric_limits<double>::quiet_NaN();
+ long double xl = std::numeric_limits<long double>::quiet_NaN();
+
+ float a = __gnu_cxx::conf_hyperg(af, cf, xf);
+ float b = __gnu_cxx::conf_hypergf(af, cf, xf);
+ double c = __gnu_cxx::conf_hyperg(ad, cd, xd);
+ long double d = __gnu_cxx::conf_hyperg(al, cl, xl);
+ long double e = __gnu_cxx::conf_hypergl(al, cl, xl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+int
+main()
+{
+ test01();
+ test02();
+ test03();
+ return 0;
+}
+
Index: testsuite/ext/special_functions/conf_hyperg/check_value.cc
===================================================================
--- testsuite/ext/special_functions/conf_hyperg/check_value.cc (revision 0)
+++ testsuite/ext/special_functions/conf_hyperg/check_value.cc (working copy)
@@ -0,0 +1,3710 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+//
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// conf_hyperg
+// Compare against values generated by the GNU Scientific Library.
+// The GSL can be found on the web: http://www.gnu.org/software/gsl/
+#include <limits>
+#include <cmath>
+#if defined(__TEST_DEBUG)
+# include <iostream>
+# define VERIFY(A) \
+ if (!(A)) \
+ { \
+ std::cout << "line " << __LINE__ \
+ << " max_abs_frac = " << max_abs_frac \
+ << std::endl; \
+ }
+#else
+# include <testsuite_hooks.h>
+#endif
+#include <specfun_testcase.h>
+
+
+// Test data for a=0.0000000000000000, c=1.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_conf_hyperg<double>
+data001[21] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ -10.000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ -9.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ -8.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ -7.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ -6.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ -5.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ -4.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ -3.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ -2.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 1.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 3.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 5.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 7.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 9.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler001 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_conf_hyperg<double>
+data002[21] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ -10.000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ -9.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ -8.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ -7.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ -6.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ -5.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ -4.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ -3.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ -2.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 1.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 3.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 5.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 7.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 9.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler002 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, c=3.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_conf_hyperg<double>
+data003[21] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 3.0000000000000000,
+ -10.000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 3.0000000000000000,
+ -9.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 3.0000000000000000,
+ -8.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 3.0000000000000000,
+ -7.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 3.0000000000000000,
+ -6.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 3.0000000000000000,
+ -5.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 3.0000000000000000,
+ -4.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 3.0000000000000000,
+ -3.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 3.0000000000000000,
+ -2.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 3.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 3.0000000000000000,
+ 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 3.0000000000000000,
+ 1.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 3.0000000000000000,
+ 2.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 3.0000000000000000,
+ 3.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 3.0000000000000000,
+ 4.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 3.0000000000000000,
+ 5.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 3.0000000000000000,
+ 6.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 3.0000000000000000,
+ 7.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 3.0000000000000000,
+ 8.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 3.0000000000000000,
+ 9.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 3.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler003 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_conf_hyperg<double>
+data004[21] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 4.0000000000000000,
+ -10.000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 4.0000000000000000,
+ -9.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 4.0000000000000000,
+ -8.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 4.0000000000000000,
+ -7.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 4.0000000000000000,
+ -6.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 4.0000000000000000,
+ -5.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 4.0000000000000000,
+ -4.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 4.0000000000000000,
+ -3.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 4.0000000000000000,
+ -2.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 4.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 4.0000000000000000,
+ 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 4.0000000000000000,
+ 1.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 4.0000000000000000,
+ 2.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 4.0000000000000000,
+ 3.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 4.0000000000000000,
+ 4.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 4.0000000000000000,
+ 5.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 4.0000000000000000,
+ 6.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 4.0000000000000000,
+ 7.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 4.0000000000000000,
+ 8.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 4.0000000000000000,
+ 9.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 4.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler004 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, c=5.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_conf_hyperg<double>
+data005[21] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ -10.000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ -9.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ -8.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ -7.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ -6.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ -5.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ -4.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ -3.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ -2.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 1.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 3.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 5.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 7.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 9.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler005 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_conf_hyperg<double>
+data006[21] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 6.0000000000000000,
+ -10.000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 6.0000000000000000,
+ -9.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 6.0000000000000000,
+ -8.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 6.0000000000000000,
+ -7.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 6.0000000000000000,
+ -6.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 6.0000000000000000,
+ -5.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 6.0000000000000000,
+ -4.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 6.0000000000000000,
+ -3.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 6.0000000000000000,
+ -2.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 6.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 6.0000000000000000,
+ 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 6.0000000000000000,
+ 1.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 6.0000000000000000,
+ 2.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 6.0000000000000000,
+ 3.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 6.0000000000000000,
+ 4.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 6.0000000000000000,
+ 5.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 6.0000000000000000,
+ 6.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 6.0000000000000000,
+ 7.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 6.0000000000000000,
+ 8.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 6.0000000000000000,
+ 9.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 6.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler006 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, c=7.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_conf_hyperg<double>
+data007[21] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 7.0000000000000000,
+ -10.000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 7.0000000000000000,
+ -9.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 7.0000000000000000,
+ -8.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 7.0000000000000000,
+ -7.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 7.0000000000000000,
+ -6.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 7.0000000000000000,
+ -5.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 7.0000000000000000,
+ -4.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 7.0000000000000000,
+ -3.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 7.0000000000000000,
+ -2.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 7.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 7.0000000000000000,
+ 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 7.0000000000000000,
+ 1.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 7.0000000000000000,
+ 2.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 7.0000000000000000,
+ 3.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 7.0000000000000000,
+ 4.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 7.0000000000000000,
+ 5.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 7.0000000000000000,
+ 6.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 7.0000000000000000,
+ 7.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 7.0000000000000000,
+ 8.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 7.0000000000000000,
+ 9.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 7.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler007 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_conf_hyperg<double>
+data008[21] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 8.0000000000000000,
+ -10.000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 8.0000000000000000,
+ -9.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 8.0000000000000000,
+ -8.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 8.0000000000000000,
+ -7.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 8.0000000000000000,
+ -6.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 8.0000000000000000,
+ -5.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 8.0000000000000000,
+ -4.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 8.0000000000000000,
+ -3.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 8.0000000000000000,
+ -2.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 8.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 8.0000000000000000,
+ 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 8.0000000000000000,
+ 1.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 8.0000000000000000,
+ 2.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 8.0000000000000000,
+ 3.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 8.0000000000000000,
+ 4.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 8.0000000000000000,
+ 5.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 8.0000000000000000,
+ 6.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 8.0000000000000000,
+ 7.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 8.0000000000000000,
+ 8.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 8.0000000000000000,
+ 9.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 8.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler008 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, c=9.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_conf_hyperg<double>
+data009[21] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 9.0000000000000000,
+ -10.000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 9.0000000000000000,
+ -9.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 9.0000000000000000,
+ -8.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 9.0000000000000000,
+ -7.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 9.0000000000000000,
+ -6.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 9.0000000000000000,
+ -5.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 9.0000000000000000,
+ -4.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 9.0000000000000000,
+ -3.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 9.0000000000000000,
+ -2.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 9.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 9.0000000000000000,
+ 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 9.0000000000000000,
+ 1.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 9.0000000000000000,
+ 2.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 9.0000000000000000,
+ 3.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 9.0000000000000000,
+ 4.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 9.0000000000000000,
+ 5.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 9.0000000000000000,
+ 6.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 9.0000000000000000,
+ 7.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 9.0000000000000000,
+ 8.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 9.0000000000000000,
+ 9.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 9.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler009 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_conf_hyperg<double>
+data010[21] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ -10.000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ -9.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ -8.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ -7.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ -6.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ -5.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ -4.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ -3.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ -2.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 1.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 2.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 3.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 4.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 5.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 6.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 7.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 8.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 9.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 10.000000000000000 },
+};
+const double toler010 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, c=1.0000000000000000.
+// max(|f - f_GSL|): 1.1823431123048067e-11
+// max(|f - f_GSL| / |f_GSL|): 1.8179920344425603e-13
+const testcase_conf_hyperg<double>
+data011[21] =
+{
+ { 0.18354081260932842, 0.50000000000000000, 1.0000000000000000,
+ -10.000000000000000 },
+ { 0.19419827762834704, 0.50000000000000000, 1.0000000000000000,
+ -9.0000000000000000 },
+ { 0.20700192122398287, 0.50000000000000000, 1.0000000000000000,
+ -8.0000000000000000 },
+ { 0.22280243801078498, 0.50000000000000000, 1.0000000000000000,
+ -7.0000000000000000 },
+ { 0.24300035416182644, 0.50000000000000000, 1.0000000000000000,
+ -6.0000000000000000 },
+ { 0.27004644161220326, 0.50000000000000000, 1.0000000000000000,
+ -5.0000000000000000 },
+ { 0.30850832255367100, 0.50000000000000000, 1.0000000000000000,
+ -4.0000000000000000 },
+ { 0.36743360905415834, 0.50000000000000000, 1.0000000000000000,
+ -3.0000000000000000 },
+ { 0.46575960759364043, 0.50000000000000000, 1.0000000000000000,
+ -2.0000000000000000 },
+ { 0.64503527044915010, 0.50000000000000000, 1.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 1.0000000000000000,
+ 0.0000000000000000 },
+ { 1.7533876543770910, 0.50000000000000000, 1.0000000000000000,
+ 1.0000000000000000 },
+ { 3.4415238691253340, 0.50000000000000000, 1.0000000000000000,
+ 2.0000000000000000 },
+ { 7.3801013214774045, 0.50000000000000000, 1.0000000000000000,
+ 3.0000000000000000 },
+ { 16.843983681258987, 0.50000000000000000, 1.0000000000000000,
+ 4.0000000000000000 },
+ { 40.078445504076420, 0.50000000000000000, 1.0000000000000000,
+ 5.0000000000000000 },
+ { 98.033339697812693, 0.50000000000000000, 1.0000000000000000,
+ 6.0000000000000000 },
+ { 244.33254130132138, 0.50000000000000000, 1.0000000000000000,
+ 7.0000000000000000 },
+ { 617.06403040562441, 0.50000000000000000, 1.0000000000000000,
+ 8.0000000000000000 },
+ { 1573.6049422133694, 0.50000000000000000, 1.0000000000000000,
+ 9.0000000000000000 },
+ { 4042.7554308904109, 0.50000000000000000, 1.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler011 = 1.0000000000000006e-11;
+
+// Test data for a=0.50000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 1.0231815394945443e-12
+// max(|f - f_GSL| / |f_GSL|): 2.3738284297189904e-15
+const testcase_conf_hyperg<double>
+data012[21] =
+{
+ { 0.34751307955387056, 0.50000000000000000, 2.0000000000000000,
+ -10.000000000000000 },
+ { 0.36515709992587503, 0.50000000000000000, 2.0000000000000000,
+ -9.0000000000000000 },
+ { 0.38575276072642301, 0.50000000000000000, 2.0000000000000000,
+ -8.0000000000000000 },
+ { 0.41020241461382889, 0.50000000000000000, 2.0000000000000000,
+ -7.0000000000000000 },
+ { 0.43982706745912625, 0.50000000000000000, 2.0000000000000000,
+ -6.0000000000000000 },
+ { 0.47663109114346930, 0.50000000000000000, 2.0000000000000000,
+ -5.0000000000000000 },
+ { 0.52377761180260862, 0.50000000000000000, 2.0000000000000000,
+ -4.0000000000000000 },
+ { 0.58647299647508400, 0.50000000000000000, 2.0000000000000000,
+ -3.0000000000000000 },
+ { 0.67367002294334866, 0.50000000000000000, 2.0000000000000000,
+ -2.0000000000000000 },
+ { 0.80145607363402172, 0.50000000000000000, 2.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 2.0000000000000000,
+ 0.0000000000000000 },
+ { 1.3281918274866849, 0.50000000000000000, 2.0000000000000000,
+ 1.0000000000000000 },
+ { 1.9052621465543667, 0.50000000000000000, 2.0000000000000000,
+ 2.0000000000000000 },
+ { 2.9805776178019903, 0.50000000000000000, 2.0000000000000000,
+ 3.0000000000000000 },
+ { 5.0906787293171654, 0.50000000000000000, 2.0000000000000000,
+ 4.0000000000000000 },
+ { 9.4185650450425982, 0.50000000000000000, 2.0000000000000000,
+ 5.0000000000000000 },
+ { 18.627776225142014, 0.50000000000000000, 2.0000000000000000,
+ 6.0000000000000000 },
+ { 38.823513069699622, 0.50000000000000000, 2.0000000000000000,
+ 7.0000000000000000 },
+ { 84.215287700426956, 0.50000000000000000, 2.0000000000000000,
+ 8.0000000000000000 },
+ { 188.31125697734257, 0.50000000000000000, 2.0000000000000000,
+ 9.0000000000000000 },
+ { 431.02590173952319, 0.50000000000000000, 2.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler012 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, c=3.0000000000000000.
+// max(|f - f_GSL|): 2.4158453015843406e-13
+// max(|f - f_GSL| / |f_GSL|): 2.5938546713928606e-15
+const testcase_conf_hyperg<double>
+data013[21] =
+{
+ { 0.44148780381255504, 0.50000000000000000, 3.0000000000000000,
+ -10.000000000000000 },
+ { 0.46154890030153722, 0.50000000000000000, 3.0000000000000000,
+ -9.0000000000000000 },
+ { 0.48454520771815751, 0.50000000000000000, 3.0000000000000000,
+ -8.0000000000000000 },
+ { 0.51124131917976301, 0.50000000000000000, 3.0000000000000000,
+ -7.0000000000000000 },
+ { 0.54269682032387934, 0.50000000000000000, 3.0000000000000000,
+ -6.0000000000000000 },
+ { 0.58041888164962119, 0.50000000000000000, 3.0000000000000000,
+ -5.0000000000000000 },
+ { 0.62661371932049892, 0.50000000000000000, 3.0000000000000000,
+ -4.0000000000000000 },
+ { 0.68461315644636744, 0.50000000000000000, 3.0000000000000000,
+ -3.0000000000000000 },
+ { 0.75961975369132639, 0.50000000000000000, 3.0000000000000000,
+ -2.0000000000000000 },
+ { 0.86004702726553350, 0.50000000000000000, 3.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 3.0000000000000000,
+ 0.0000000000000000 },
+ { 1.2039946674617061, 0.50000000000000000, 3.0000000000000000,
+ 1.0000000000000000 },
+ { 1.5161750470251780, 0.50000000000000000, 3.0000000000000000,
+ 2.0000000000000000 },
+ { 2.0187596221024697, 0.50000000000000000, 3.0000000000000000,
+ 3.0000000000000000 },
+ { 2.8698033217756134, 0.50000000000000000, 3.0000000000000000,
+ 4.0000000000000000 },
+ { 4.3821186043144449, 0.50000000000000000, 3.0000000000000000,
+ 5.0000000000000000 },
+ { 7.1913541951514235, 0.50000000000000000, 3.0000000000000000,
+ 6.0000000000000000 },
+ { 12.620107286909638, 0.50000000000000000, 3.0000000000000000,
+ 7.0000000000000000 },
+ { 23.478926483036361, 0.50000000000000000, 3.0000000000000000,
+ 8.0000000000000000 },
+ { 45.852981860749047, 0.50000000000000000, 3.0000000000000000,
+ 9.0000000000000000 },
+ { 93.137265099245838, 0.50000000000000000, 3.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler013 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 9.2370555648813024e-14
+// max(|f - f_GSL| / |f_GSL|): 3.0116140491179400e-15
+const testcase_conf_hyperg<double>
+data014[21] =
+{
+ { 0.50723143075298205, 0.50000000000000000, 4.0000000000000000,
+ -10.000000000000000 },
+ { 0.52815420026166782, 0.50000000000000000, 4.0000000000000000,
+ -9.0000000000000000 },
+ { 0.55181651516426766, 0.50000000000000000, 4.0000000000000000,
+ -8.0000000000000000 },
+ { 0.57884767287882366, 0.50000000000000000, 4.0000000000000000,
+ -7.0000000000000000 },
+ { 0.61008828324275399, 0.50000000000000000, 4.0000000000000000,
+ -6.0000000000000000 },
+ { 0.64668451853659259, 0.50000000000000000, 4.0000000000000000,
+ -5.0000000000000000 },
+ { 0.69023479867386495, 0.50000000000000000, 4.0000000000000000,
+ -4.0000000000000000 },
+ { 0.74302365975861406, 0.50000000000000000, 4.0000000000000000,
+ -3.0000000000000000 },
+ { 0.80840402753201868, 0.50000000000000000, 4.0000000000000000,
+ -2.0000000000000000 },
+ { 0.89143814400301236, 0.50000000000000000, 4.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 4.0000000000000000,
+ 0.0000000000000000 },
+ { 1.1467204168940972, 0.50000000000000000, 4.0000000000000000,
+ 1.0000000000000000 },
+ { 1.3525055369951857, 0.50000000000000000, 4.0000000000000000,
+ 2.0000000000000000 },
+ { 1.6530571499633475, 0.50000000000000000, 4.0000000000000000,
+ 3.0000000000000000 },
+ { 2.1112387416058045, 0.50000000000000000, 4.0000000000000000,
+ 4.0000000000000000 },
+ { 2.8410480336278199, 0.50000000000000000, 4.0000000000000000,
+ 5.0000000000000000 },
+ { 4.0550562221854713, 0.50000000000000000, 4.0000000000000000,
+ 6.0000000000000000 },
+ { 6.1601039044778583, 0.50000000000000000, 4.0000000000000000,
+ 7.0000000000000000 },
+ { 9.9538034144264511, 0.50000000000000000, 4.0000000000000000,
+ 8.0000000000000000 },
+ { 17.034704868473916, 0.50000000000000000, 4.0000000000000000,
+ 9.0000000000000000 },
+ { 30.671445325428429, 0.50000000000000000, 4.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler014 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, c=5.0000000000000000.
+// max(|f - f_GSL|): 3.5527136788005009e-14
+// max(|f - f_GSL| / |f_GSL|): 2.6053493022967024e-15
+const testcase_conf_hyperg<double>
+data015[21] =
+{
+ { 0.55715239162383312, 0.50000000000000000, 5.0000000000000000,
+ -10.000000000000000 },
+ { 0.57823135269518977, 0.50000000000000000, 5.0000000000000000,
+ -9.0000000000000000 },
+ { 0.60181688556797253, 0.50000000000000000, 5.0000000000000000,
+ -8.0000000000000000 },
+ { 0.62842688147829928, 0.50000000000000000, 5.0000000000000000,
+ -7.0000000000000000 },
+ { 0.65873434489521876, 0.50000000000000000, 5.0000000000000000,
+ -6.0000000000000000 },
+ { 0.69362872731932568, 0.50000000000000000, 5.0000000000000000,
+ -5.0000000000000000 },
+ { 0.73430741618153195, 0.50000000000000000, 5.0000000000000000,
+ -4.0000000000000000 },
+ { 0.78241503593870543, 0.50000000000000000, 5.0000000000000000,
+ -3.0000000000000000 },
+ { 0.84026013345254857, 0.50000000000000000, 5.0000000000000000,
+ -2.0000000000000000 },
+ { 0.91115976433208690, 0.50000000000000000, 5.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 5.0000000000000000,
+ 0.0000000000000000 },
+ { 1.1141687602185972, 0.50000000000000000, 5.0000000000000000,
+ 1.0000000000000000 },
+ { 1.2651443108002267, 0.50000000000000000, 5.0000000000000000,
+ 2.0000000000000000 },
+ { 1.4712624889419719, 0.50000000000000000, 5.0000000000000000,
+ 3.0000000000000000 },
+ { 1.7626460645467978, 0.50000000000000000, 5.0000000000000000,
+ 4.0000000000000000 },
+ { 2.1901779328181084, 0.50000000000000000, 5.0000000000000000,
+ 5.0000000000000000 },
+ { 2.8421796979457090, 0.50000000000000000, 5.0000000000000000,
+ 6.0000000000000000 },
+ { 3.8760354586203540, 0.50000000000000000, 5.0000000000000000,
+ 7.0000000000000000 },
+ { 5.5792940156545541, 0.50000000000000000, 5.0000000000000000,
+ 8.0000000000000000 },
+ { 8.4898429002463303, 0.50000000000000000, 5.0000000000000000,
+ 9.0000000000000000 },
+ { 13.636227878037948, 0.50000000000000000, 5.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler015 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 2.1316282072803006e-14
+// max(|f - f_GSL| / |f_GSL|): 2.8121163355193836e-15
+const testcase_conf_hyperg<double>
+data016[21] =
+{
+ { 0.59687111919499192, 0.50000000000000000, 6.0000000000000000,
+ -10.000000000000000 },
+ { 0.61774982278057033, 0.50000000000000000, 6.0000000000000000,
+ -9.0000000000000000 },
+ { 0.64090744485124451, 0.50000000000000000, 6.0000000000000000,
+ -8.0000000000000000 },
+ { 0.66677322792860194, 0.50000000000000000, 6.0000000000000000,
+ -7.0000000000000000 },
+ { 0.69589293014100995, 0.50000000000000000, 6.0000000000000000,
+ -6.0000000000000000 },
+ { 0.72897040032571048, 0.50000000000000000, 6.0000000000000000,
+ -5.0000000000000000 },
+ { 0.76692755408207181, 0.50000000000000000, 6.0000000000000000,
+ -4.0000000000000000 },
+ { 0.81099244559101891, 0.50000000000000000, 6.0000000000000000,
+ -3.0000000000000000 },
+ { 0.86283102401276535, 0.50000000000000000, 6.0000000000000000,
+ -2.0000000000000000 },
+ { 0.92474809223976406, 0.50000000000000000, 6.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 6.0000000000000000,
+ 0.0000000000000000 },
+ { 1.0932912594628821, 0.50000000000000000, 6.0000000000000000,
+ 1.0000000000000000 },
+ { 1.2115798426781204, 0.50000000000000000, 6.0000000000000000,
+ 2.0000000000000000 },
+ { 1.3654106750890422, 0.50000000000000000, 6.0000000000000000,
+ 3.0000000000000000 },
+ { 1.5711704305419896, 0.50000000000000000, 6.0000000000000000,
+ 4.0000000000000000 },
+ { 1.8549798357448213, 0.50000000000000000, 6.0000000000000000,
+ 5.0000000000000000 },
+ { 2.2595503871694826, 0.50000000000000000, 6.0000000000000000,
+ 6.0000000000000000 },
+ { 2.8565038772876932, 0.50000000000000000, 6.0000000000000000,
+ 7.0000000000000000 },
+ { 3.7689325736317838, 0.50000000000000000, 6.0000000000000000,
+ 8.0000000000000000 },
+ { 5.2134738554699531, 0.50000000000000000, 6.0000000000000000,
+ 9.0000000000000000 },
+ { 7.5801565545352858, 0.50000000000000000, 6.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler016 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, c=7.0000000000000000.
+// max(|f - f_GSL|): 1.2434497875801753e-14
+// max(|f - f_GSL| / |f_GSL|): 2.5039514520700816e-15
+const testcase_conf_hyperg<double>
+data017[21] =
+{
+ { 0.62946736953754079, 0.50000000000000000, 7.0000000000000000,
+ -10.000000000000000 },
+ { 0.64995830964827050, 0.50000000000000000, 7.0000000000000000,
+ -9.0000000000000000 },
+ { 0.67251910396276349, 0.50000000000000000, 7.0000000000000000,
+ -8.0000000000000000 },
+ { 0.69750870596083636, 0.50000000000000000, 7.0000000000000000,
+ -7.0000000000000000 },
+ { 0.72537539174856436, 0.50000000000000000, 7.0000000000000000,
+ -6.0000000000000000 },
+ { 0.75668588434835504, 0.50000000000000000, 7.0000000000000000,
+ -5.0000000000000000 },
+ { 0.79216623458879654, 0.50000000000000000, 7.0000000000000000,
+ -4.0000000000000000 },
+ { 0.83276010491326891, 0.50000000000000000, 7.0000000000000000,
+ -3.0000000000000000 },
+ { 0.87971323375878940, 0.50000000000000000, 7.0000000000000000,
+ -2.0000000000000000 },
+ { 0.93469794840150233, 0.50000000000000000, 7.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 7.0000000000000000,
+ 0.0000000000000000 },
+ { 1.0788040971101556, 0.50000000000000000, 7.0000000000000000,
+ 1.0000000000000000 },
+ { 1.1756385516794761, 0.50000000000000000, 7.0000000000000000,
+ 2.0000000000000000 },
+ { 1.2970810749099917, 0.50000000000000000, 7.0000000000000000,
+ 3.0000000000000000 },
+ { 1.4529009687665237, 0.50000000000000000, 7.0000000000000000,
+ 4.0000000000000000 },
+ { 1.6579437149144023, 0.50000000000000000, 7.0000000000000000,
+ 5.0000000000000000 },
+ { 1.9353010489337754, 0.50000000000000000, 7.0000000000000000,
+ 6.0000000000000000 },
+ { 2.3217458547039813, 0.50000000000000000, 7.0000000000000000,
+ 7.0000000000000000 },
+ { 2.8772254607646022, 0.50000000000000000, 7.0000000000000000,
+ 8.0000000000000000 },
+ { 3.7017478151936585, 0.50000000000000000, 7.0000000000000000,
+ 9.0000000000000000 },
+ { 4.9659500648552237, 0.50000000000000000, 7.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler017 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 1.0658141036401503e-14
+// max(|f - f_GSL| / |f_GSL|): 2.9130420352995081e-15
+const testcase_conf_hyperg<double>
+data018[21] =
+{
+ { 0.65682574389601267, 0.50000000000000000, 8.0000000000000000,
+ -10.000000000000000 },
+ { 0.67683106084440448, 0.50000000000000000, 8.0000000000000000,
+ -9.0000000000000000 },
+ { 0.69871884883136481, 0.50000000000000000, 8.0000000000000000,
+ -8.0000000000000000 },
+ { 0.72279201131268422, 0.50000000000000000, 8.0000000000000000,
+ -7.0000000000000000 },
+ { 0.74942315553647221, 0.50000000000000000, 8.0000000000000000,
+ -6.0000000000000000 },
+ { 0.77907555763819503, 0.50000000000000000, 8.0000000000000000,
+ -5.0000000000000000 },
+ { 0.81233192258476394, 0.50000000000000000, 8.0000000000000000,
+ -4.0000000000000000 },
+ { 0.84993438521252052, 0.50000000000000000, 8.0000000000000000,
+ -3.0000000000000000 },
+ { 0.89284095871461888, 0.50000000000000000, 8.0000000000000000,
+ -2.0000000000000000 },
+ { 0.94230641231038748, 0.50000000000000000, 8.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 8.0000000000000000,
+ 0.0000000000000000 },
+ { 1.0681796709163929, 0.50000000000000000, 8.0000000000000000,
+ 1.0000000000000000 },
+ { 1.1499542693515108, 0.50000000000000000, 8.0000000000000000,
+ 2.0000000000000000 },
+ { 1.2496850956712680, 0.50000000000000000, 8.0000000000000000,
+ 3.0000000000000000 },
+ { 1.3736119127266571, 0.50000000000000000, 8.0000000000000000,
+ 4.0000000000000000 },
+ { 1.5308465522192733, 0.50000000000000000, 8.0000000000000000,
+ 5.0000000000000000 },
+ { 1.7349787653671505, 0.50000000000000000, 8.0000000000000000,
+ 6.0000000000000000 },
+ { 2.0067188996039378, 0.50000000000000000, 8.0000000000000000,
+ 7.0000000000000000 },
+ { 2.3783255204306939, 0.50000000000000000, 8.0000000000000000,
+ 8.0000000000000000 },
+ { 2.9011558746255748, 0.50000000000000000, 8.0000000000000000,
+ 9.0000000000000000 },
+ { 3.6587666457431234, 0.50000000000000000, 8.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler018 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, c=9.0000000000000000.
+// max(|f - f_GSL|): 7.1054273576010019e-15
+// max(|f - f_GSL| / |f_GSL|): 2.4278329545502228e-15
+const testcase_conf_hyperg<double>
+data019[21] =
+{
+ { 0.68018654063475448, 0.50000000000000000, 9.0000000000000000,
+ -10.000000000000000 },
+ { 0.69965870094538662, 0.50000000000000000, 9.0000000000000000,
+ -9.0000000000000000 },
+ { 0.72084701020942776, 0.50000000000000000, 9.0000000000000000,
+ -8.0000000000000000 },
+ { 0.74400928635822572, 0.50000000000000000, 9.0000000000000000,
+ -7.0000000000000000 },
+ { 0.76945859319172982, 0.50000000000000000, 9.0000000000000000,
+ -6.0000000000000000 },
+ { 0.79757868270124699, 0.50000000000000000, 9.0000000000000000,
+ -5.0000000000000000 },
+ { 0.82884476649794248, 0.50000000000000000, 9.0000000000000000,
+ -4.0000000000000000 },
+ { 0.86385180214855140, 0.50000000000000000, 9.0000000000000000,
+ -3.0000000000000000 },
+ { 0.90335351612716308, 0.50000000000000000, 9.0000000000000000,
+ -2.0000000000000000 },
+ { 0.94831697594473685, 0.50000000000000000, 9.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 9.0000000000000000,
+ 0.0000000000000000 },
+ { 1.0600626000640645, 0.50000000000000000, 9.0000000000000000,
+ 1.0000000000000000 },
+ { 1.1307298999505393, 0.50000000000000000, 9.0000000000000000,
+ 2.0000000000000000 },
+ { 1.2150341092774180, 0.50000000000000000, 9.0000000000000000,
+ 3.0000000000000000 },
+ { 1.3171798023006840, 0.50000000000000000, 9.0000000000000000,
+ 4.0000000000000000 },
+ { 1.4431045594091672, 0.50000000000000000, 9.0000000000000000,
+ 5.0000000000000000 },
+ { 1.6013540635087158, 0.50000000000000000, 9.0000000000000000,
+ 6.0000000000000000 },
+ { 1.8044714074708206, 0.50000000000000000, 9.0000000000000000,
+ 7.0000000000000000 },
+ { 2.0712406108144257, 0.50000000000000000, 9.0000000000000000,
+ 8.0000000000000000 },
+ { 2.4303714711293143, 0.50000000000000000, 9.0000000000000000,
+ 9.0000000000000000 },
+ { 2.9266541358556295, 0.50000000000000000, 9.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler019 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 5.3290705182007514e-15
+// max(|f - f_GSL| / |f_GSL|): 2.1499735877560022e-15
+const testcase_conf_hyperg<double>
+data020[21] =
+{
+ { 0.70040954461104099, 0.50000000000000000, 10.000000000000000,
+ -10.000000000000000 },
+ { 0.71933025737654444, 0.50000000000000000, 10.000000000000000,
+ -9.0000000000000000 },
+ { 0.73981995758615027, 0.50000000000000000, 10.000000000000000,
+ -8.0000000000000000 },
+ { 0.76209985272755054, 0.50000000000000000, 10.000000000000000,
+ -7.0000000000000000 },
+ { 0.78643553963087975, 0.50000000000000000, 10.000000000000000,
+ -6.0000000000000000 },
+ { 0.81314860510626796, 0.50000000000000000, 10.000000000000000,
+ -5.0000000000000000 },
+ { 0.84263196565226672, 0.50000000000000000, 10.000000000000000,
+ -4.0000000000000000 },
+ { 0.87537037798496642, 0.50000000000000000, 10.000000000000000,
+ -3.0000000000000000 },
+ { 0.91196818568151450, 0.50000000000000000, 10.000000000000000,
+ -2.0000000000000000 },
+ { 0.95318731786229316, 0.50000000000000000, 10.000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 10.000000000000000,
+ 0.0000000000000000 },
+ { 1.0536628587304602, 0.50000000000000000, 10.000000000000000,
+ 1.0000000000000000 },
+ { 1.1158225648376323, 0.50000000000000000, 10.000000000000000,
+ 2.0000000000000000 },
+ { 1.1886686247111011, 0.50000000000000000, 10.000000000000000,
+ 3.0000000000000000 },
+ { 1.2751576744751334, 0.50000000000000000, 10.000000000000000,
+ 4.0000000000000000 },
+ { 1.3793478044961116, 0.50000000000000000, 10.000000000000000,
+ 5.0000000000000000 },
+ { 1.5069047234443802, 0.50000000000000000, 10.000000000000000,
+ 6.0000000000000000 },
+ { 1.6658803233122232, 0.50000000000000000, 10.000000000000000,
+ 7.0000000000000000 },
+ { 1.8679295659745196, 0.50000000000000000, 10.000000000000000,
+ 8.0000000000000000 },
+ { 2.1302432955522050, 0.50000000000000000, 10.000000000000000,
+ 9.0000000000000000 },
+ { 2.4786679001777303, 0.50000000000000000, 10.000000000000000,
+ 10.000000000000000 },
+};
+const double toler020 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, c=1.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_conf_hyperg<double>
+data021[21] =
+{
+ { 4.5399929762484854e-05, 1.0000000000000000, 1.0000000000000000,
+ -10.000000000000000 },
+ { 0.00012340980408667956, 1.0000000000000000, 1.0000000000000000,
+ -9.0000000000000000 },
+ { 0.00033546262790251185, 1.0000000000000000, 1.0000000000000000,
+ -8.0000000000000000 },
+ { 0.00091188196555451624, 1.0000000000000000, 1.0000000000000000,
+ -7.0000000000000000 },
+ { 0.0024787521766663585, 1.0000000000000000, 1.0000000000000000,
+ -6.0000000000000000 },
+ { 0.0067379469990854670, 1.0000000000000000, 1.0000000000000000,
+ -5.0000000000000000 },
+ { 0.018315638888734179, 1.0000000000000000, 1.0000000000000000,
+ -4.0000000000000000 },
+ { 0.049787068367863944, 1.0000000000000000, 1.0000000000000000,
+ -3.0000000000000000 },
+ { 0.13533528323661270, 1.0000000000000000, 1.0000000000000000,
+ -2.0000000000000000 },
+ { 0.36787944117144233, 1.0000000000000000, 1.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 1.0000000000000000,
+ 0.0000000000000000 },
+ { 2.7182818284590451, 1.0000000000000000, 1.0000000000000000,
+ 1.0000000000000000 },
+ { 7.3890560989306504, 1.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000 },
+ { 20.085536923187668, 1.0000000000000000, 1.0000000000000000,
+ 3.0000000000000000 },
+ { 54.598150033144236, 1.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000 },
+ { 148.41315910257660, 1.0000000000000000, 1.0000000000000000,
+ 5.0000000000000000 },
+ { 403.42879349273511, 1.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000 },
+ { 1096.6331584284585, 1.0000000000000000, 1.0000000000000000,
+ 7.0000000000000000 },
+ { 2980.9579870417283, 1.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000 },
+ { 8103.0839275753842, 1.0000000000000000, 1.0000000000000000,
+ 9.0000000000000000 },
+ { 22026.465794806718, 1.0000000000000000, 1.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler021 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 4.5474735088646412e-13
+// max(|f - f_GSL| / |f_GSL|): 2.3593310407919961e-15
+const testcase_conf_hyperg<double>
+data022[21] =
+{
+ { 0.099995460007023751, 1.0000000000000000, 2.0000000000000000,
+ -10.000000000000000 },
+ { 0.11109739891065704, 1.0000000000000000, 2.0000000000000000,
+ -9.0000000000000000 },
+ { 0.12495806717151219, 1.0000000000000000, 2.0000000000000000,
+ -8.0000000000000000 },
+ { 0.14272687400492079, 1.0000000000000000, 2.0000000000000000,
+ -7.0000000000000000 },
+ { 0.16625354130388895, 1.0000000000000000, 2.0000000000000000,
+ -6.0000000000000000 },
+ { 0.19865241060018290, 1.0000000000000000, 2.0000000000000000,
+ -5.0000000000000000 },
+ { 0.24542109027781644, 1.0000000000000000, 2.0000000000000000,
+ -4.0000000000000000 },
+ { 0.31673764387737868, 1.0000000000000000, 2.0000000000000000,
+ -3.0000000000000000 },
+ { 0.43233235838169365, 1.0000000000000000, 2.0000000000000000,
+ -2.0000000000000000 },
+ { 0.63212055882855767, 1.0000000000000000, 2.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 2.0000000000000000,
+ 0.0000000000000000 },
+ { 1.7182818284590451, 1.0000000000000000, 2.0000000000000000,
+ 1.0000000000000000 },
+ { 3.1945280494653252, 1.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000 },
+ { 6.3618456410625557, 1.0000000000000000, 2.0000000000000000,
+ 3.0000000000000000 },
+ { 13.399537508286059, 1.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000 },
+ { 29.482631820515319, 1.0000000000000000, 2.0000000000000000,
+ 5.0000000000000000 },
+ { 67.071465582122514, 1.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000 },
+ { 156.51902263263693, 1.0000000000000000, 2.0000000000000000,
+ 7.0000000000000000 },
+ { 372.49474838021604, 1.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000 },
+ { 900.23154750837602, 1.0000000000000000, 2.0000000000000000,
+ 9.0000000000000000 },
+ { 2202.5465794806719, 1.0000000000000000, 2.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler022 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, c=3.0000000000000000.
+// max(|f - f_GSL|): 5.6843418860808015e-14
+// max(|f - f_GSL| / |f_GSL|): 7.7098432236368283e-16
+const testcase_conf_hyperg<double>
+data023[21] =
+{
+ { 0.18000090799859525, 1.0000000000000000, 3.0000000000000000,
+ -10.000000000000000 },
+ { 0.19753391135318732, 1.0000000000000000, 3.0000000000000000,
+ -9.0000000000000000 },
+ { 0.21876048320712196, 1.0000000000000000, 3.0000000000000000,
+ -8.0000000000000000 },
+ { 0.24493517885573690, 1.0000000000000000, 3.0000000000000000,
+ -7.0000000000000000 },
+ { 0.27791548623203705, 1.0000000000000000, 3.0000000000000000,
+ -6.0000000000000000 },
+ { 0.32053903575992687, 1.0000000000000000, 3.0000000000000000,
+ -5.0000000000000000 },
+ { 0.37728945486109178, 1.0000000000000000, 3.0000000000000000,
+ -4.0000000000000000 },
+ { 0.45550823741508090, 1.0000000000000000, 3.0000000000000000,
+ -3.0000000000000000 },
+ { 0.56766764161830641, 1.0000000000000000, 3.0000000000000000,
+ -2.0000000000000000 },
+ { 0.73575888234288467, 1.0000000000000000, 3.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 3.0000000000000000,
+ 0.0000000000000000 },
+ { 1.4365636569180902, 1.0000000000000000, 3.0000000000000000,
+ 1.0000000000000000 },
+ { 2.1945280494653252, 1.0000000000000000, 3.0000000000000000,
+ 2.0000000000000000 },
+ { 3.5745637607083705, 1.0000000000000000, 3.0000000000000000,
+ 3.0000000000000000 },
+ { 6.1997687541430295, 1.0000000000000000, 3.0000000000000000,
+ 4.0000000000000000 },
+ { 11.393052728206127, 1.0000000000000000, 3.0000000000000000,
+ 5.0000000000000000 },
+ { 22.023821860707507, 1.0000000000000000, 3.0000000000000000,
+ 6.0000000000000000 },
+ { 44.434006466467693, 1.0000000000000000, 3.0000000000000000,
+ 7.0000000000000000 },
+ { 92.873687095054009, 1.0000000000000000, 3.0000000000000000,
+ 8.0000000000000000 },
+ { 199.82923277963911, 1.0000000000000000, 3.0000000000000000,
+ 9.0000000000000000 },
+ { 440.30931589613436, 1.0000000000000000, 3.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler023 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 8.5265128291212022e-14
+// max(|f - f_GSL| / |f_GSL|): 8.2495029364968388e-16
+const testcase_conf_hyperg<double>
+data024[21] =
+{
+ { 0.24599972760042138, 1.0000000000000000, 4.0000000000000000,
+ -10.000000000000000 },
+ { 0.26748869621560417, 1.0000000000000000, 4.0000000000000000,
+ -9.0000000000000000 },
+ { 0.29296481879732927, 1.0000000000000000, 4.0000000000000000,
+ -8.0000000000000000 },
+ { 0.32359920906182715, 1.0000000000000000, 4.0000000000000000,
+ -7.0000000000000000 },
+ { 0.36104225688398156, 1.0000000000000000, 4.0000000000000000,
+ -6.0000000000000000 },
+ { 0.40767657854404388, 1.0000000000000000, 4.0000000000000000,
+ -5.0000000000000000 },
+ { 0.46703290885418114, 1.0000000000000000, 4.0000000000000000,
+ -4.0000000000000000 },
+ { 0.54449176258491916, 1.0000000000000000, 4.0000000000000000,
+ -3.0000000000000000 },
+ { 0.64849853757254050, 1.0000000000000000, 4.0000000000000000,
+ -2.0000000000000000 },
+ { 0.79272335297134611, 1.0000000000000000, 4.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 4.0000000000000000,
+ 0.0000000000000000 },
+ { 1.3096909707542714, 1.0000000000000000, 4.0000000000000000,
+ 1.0000000000000000 },
+ { 1.7917920741979876, 1.0000000000000000, 4.0000000000000000,
+ 2.0000000000000000 },
+ { 2.5745637607083705, 1.0000000000000000, 4.0000000000000000,
+ 3.0000000000000000 },
+ { 3.8998265656072717, 1.0000000000000000, 4.0000000000000000,
+ 4.0000000000000000 },
+ { 6.2358316369236775, 1.0000000000000000, 4.0000000000000000,
+ 5.0000000000000000 },
+ { 10.511910930353745, 1.0000000000000000, 4.0000000000000000,
+ 6.0000000000000000 },
+ { 18.614574199914728, 1.0000000000000000, 4.0000000000000000,
+ 7.0000000000000000 },
+ { 34.452632660645271, 1.0000000000000000, 4.0000000000000000,
+ 8.0000000000000000 },
+ { 66.276410926546333, 1.0000000000000000, 4.0000000000000000,
+ 9.0000000000000000 },
+ { 131.79279476884014, 1.0000000000000000, 4.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler024 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, c=5.0000000000000000.
+// max(|f - f_GSL|): 6.3948846218409017e-14
+// max(|f - f_GSL| / |f_GSL|): 1.3470358174143053e-15
+const testcase_conf_hyperg<double>
+data025[21] =
+{
+ { 0.30160010895983153, 1.0000000000000000, 5.0000000000000000,
+ -10.000000000000000 },
+ { 0.32556057945973133, 1.0000000000000000, 5.0000000000000000,
+ -9.0000000000000000 },
+ { 0.35351759060133559, 1.0000000000000000, 5.0000000000000000,
+ -8.0000000000000000 },
+ { 0.38651473767895589, 1.0000000000000000, 5.0000000000000000,
+ -7.0000000000000000 },
+ { 0.42597182874401246, 1.0000000000000000, 5.0000000000000000,
+ -6.0000000000000000 },
+ { 0.47385873716476473, 1.0000000000000000, 5.0000000000000000,
+ -5.0000000000000000 },
+ { 0.53296709114581886, 1.0000000000000000, 5.0000000000000000,
+ -4.0000000000000000 },
+ { 0.60734431655344123, 1.0000000000000000, 5.0000000000000000,
+ -3.0000000000000000 },
+ { 0.70300292485491900, 1.0000000000000000, 5.0000000000000000,
+ -2.0000000000000000 },
+ { 0.82910658811461568, 1.0000000000000000, 5.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 5.0000000000000000,
+ 0.0000000000000000 },
+ { 1.2387638830170857, 1.0000000000000000, 5.0000000000000000,
+ 1.0000000000000000 },
+ { 1.5835841483959754, 1.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000 },
+ { 2.0994183476111612, 1.0000000000000000, 5.0000000000000000,
+ 3.0000000000000000 },
+ { 2.8998265656072730, 1.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000 },
+ { 4.1886653095389432, 1.0000000000000000, 5.0000000000000000,
+ 5.0000000000000000 },
+ { 6.3412739535691678, 1.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000 },
+ { 10.065470971379844, 1.0000000000000000, 5.0000000000000000,
+ 7.0000000000000000 },
+ { 16.726316330322632, 1.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000 },
+ { 29.011738189576135, 1.0000000000000000, 5.0000000000000000,
+ 9.0000000000000000 },
+ { 52.317117907536058, 1.0000000000000000, 5.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler025 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 8.1712414612411521e-14
+// max(|f - f_GSL| / |f_GSL|): 3.1846065384904241e-15
+const testcase_conf_hyperg<double>
+data026[21] =
+{
+ { 0.34919994552008421, 1.0000000000000000, 6.0000000000000000,
+ -10.000000000000000 },
+ { 0.37468856696681579, 1.0000000000000000, 6.0000000000000000,
+ -9.0000000000000000 },
+ { 0.40405150587416555, 1.0000000000000000, 6.0000000000000000,
+ -8.0000000000000000 },
+ { 0.43820375880074558, 1.0000000000000000, 6.0000000000000000,
+ -7.0000000000000000 },
+ { 0.47835680937998981, 1.0000000000000000, 6.0000000000000000,
+ -6.0000000000000000 },
+ { 0.52614126283523510, 1.0000000000000000, 6.0000000000000000,
+ -5.0000000000000000 },
+ { 0.58379113606772659, 1.0000000000000000, 6.0000000000000000,
+ -4.0000000000000000 },
+ { 0.65442613907759817, 1.0000000000000000, 6.0000000000000000,
+ -3.0000000000000000 },
+ { 0.74249268786270239, 1.0000000000000000, 6.0000000000000000,
+ -2.0000000000000000 },
+ { 0.85446705942692136, 1.0000000000000000, 6.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 6.0000000000000000,
+ 0.0000000000000000 },
+ { 1.1938194150854282, 1.0000000000000000, 6.0000000000000000,
+ 1.0000000000000000 },
+ { 1.4589603709899384, 1.0000000000000000, 6.0000000000000000,
+ 2.0000000000000000 },
+ { 1.8323639126852680, 1.0000000000000000, 6.0000000000000000,
+ 3.0000000000000000 },
+ { 2.3747832070090902, 1.0000000000000000, 6.0000000000000000,
+ 4.0000000000000000 },
+ { 3.1886653095389423, 1.0000000000000000, 6.0000000000000000,
+ 5.0000000000000000 },
+ { 4.4510616279743056, 1.0000000000000000, 6.0000000000000000,
+ 6.0000000000000000 },
+ { 6.4753364081284595, 1.0000000000000000, 6.0000000000000000,
+ 7.0000000000000000 },
+ { 9.8289477064516344, 1.0000000000000000, 6.0000000000000000,
+ 8.0000000000000000 },
+ { 15.562076771986721, 1.0000000000000000, 6.0000000000000000,
+ 9.0000000000000000 },
+ { 25.658558953767979, 1.0000000000000000, 6.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler026 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, c=7.0000000000000000.
+// max(|f - f_GSL|): 4.6185277824406512e-14
+// max(|f - f_GSL| / |f_GSL|): 3.1216529394518888e-15
+const testcase_conf_hyperg<double>
+data027[21] =
+{
+ { 0.39048003268794934, 1.0000000000000000, 7.0000000000000000,
+ -10.000000000000000 },
+ { 0.41687428868878917, 1.0000000000000000, 7.0000000000000000,
+ -9.0000000000000000 },
+ { 0.44696137059437591, 1.0000000000000000, 7.0000000000000000,
+ -8.0000000000000000 },
+ { 0.48153963531364674, 1.0000000000000000, 7.0000000000000000,
+ -7.0000000000000000 },
+ { 0.52164319062001030, 1.0000000000000000, 7.0000000000000000,
+ -6.0000000000000000 },
+ { 0.56863048459771781, 1.0000000000000000, 7.0000000000000000,
+ -5.0000000000000000 },
+ { 0.62431329589841034, 1.0000000000000000, 7.0000000000000000,
+ -4.0000000000000000 },
+ { 0.69114772184480389, 1.0000000000000000, 7.0000000000000000,
+ -3.0000000000000000 },
+ { 0.77252193641189282, 1.0000000000000000, 7.0000000000000000,
+ -2.0000000000000000 },
+ { 0.87319764343847150, 1.0000000000000000, 7.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 7.0000000000000000,
+ 0.0000000000000000 },
+ { 1.1629164905125695, 1.0000000000000000, 7.0000000000000000,
+ 1.0000000000000000 },
+ { 1.3768811129698151, 1.0000000000000000, 7.0000000000000000,
+ 2.0000000000000000 },
+ { 1.6647278253705360, 1.0000000000000000, 7.0000000000000000,
+ 3.0000000000000000 },
+ { 2.0621748105136359, 1.0000000000000000, 7.0000000000000000,
+ 4.0000000000000000 },
+ { 2.6263983714467289, 1.0000000000000000, 7.0000000000000000,
+ 5.0000000000000000 },
+ { 3.4510616279743087, 1.0000000000000000, 7.0000000000000000,
+ 6.0000000000000000 },
+ { 4.6931454926815466, 1.0000000000000000, 7.0000000000000000,
+ 7.0000000000000000 },
+ { 6.6217107798387467, 1.0000000000000000, 7.0000000000000000,
+ 8.0000000000000000 },
+ { 9.7080511813245050, 1.0000000000000000, 7.0000000000000000,
+ 9.0000000000000000 },
+ { 14.795135372260791, 1.0000000000000000, 7.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler027 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 1.5099033134902129e-14
+// max(|f - f_GSL| / |f_GSL|): 3.0695349768517519e-15
+const testcase_conf_hyperg<double>
+data028[21] =
+{
+ { 0.42666397711843551, 1.0000000000000000, 8.0000000000000000,
+ -10.000000000000000 },
+ { 0.45354221990871935, 1.0000000000000000, 8.0000000000000000,
+ -9.0000000000000000 },
+ { 0.48390880072992098, 1.0000000000000000, 8.0000000000000000,
+ -8.0000000000000000 },
+ { 0.51846036468635348, 1.0000000000000000, 8.0000000000000000,
+ -7.0000000000000000 },
+ { 0.55808294427665472, 1.0000000000000000, 8.0000000000000000,
+ -6.0000000000000000 },
+ { 0.60391732156319500, 1.0000000000000000, 8.0000000000000000,
+ -5.0000000000000000 },
+ { 0.65745173217778197, 1.0000000000000000, 8.0000000000000000,
+ -4.0000000000000000 },
+ { 0.72065531569545760, 1.0000000000000000, 8.0000000000000000,
+ -3.0000000000000000 },
+ { 0.79617322255837530, 1.0000000000000000, 8.0000000000000000,
+ -2.0000000000000000 },
+ { 0.88761649593069913, 1.0000000000000000, 8.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 8.0000000000000000,
+ 0.0000000000000000 },
+ { 1.1404154335879861, 1.0000000000000000, 8.0000000000000000,
+ 1.0000000000000000 },
+ { 1.3190838953943527, 1.0000000000000000, 8.0000000000000000,
+ 2.0000000000000000 },
+ { 1.5510315925312508, 1.0000000000000000, 8.0000000000000000,
+ 3.0000000000000000 },
+ { 1.8588059183988626, 1.0000000000000000, 8.0000000000000000,
+ 4.0000000000000000 },
+ { 2.2769577200254218, 1.0000000000000000, 8.0000000000000000,
+ 5.0000000000000000 },
+ { 2.8595718993033583, 1.0000000000000000, 8.0000000000000000,
+ 6.0000000000000000 },
+ { 3.6931454926815390, 1.0000000000000000, 8.0000000000000000,
+ 7.0000000000000000 },
+ { 4.9189969323589047, 1.0000000000000000, 8.0000000000000000,
+ 8.0000000000000000 },
+ { 6.7729286965857236, 1.0000000000000000, 8.0000000000000000,
+ 9.0000000000000000 },
+ { 9.6565947605825802, 1.0000000000000000, 8.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler028 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, c=9.0000000000000000.
+// max(|f - f_GSL|): 2.1316282072803006e-14
+// max(|f - f_GSL| / |f_GSL|): 3.0780408841975893e-15
+const testcase_conf_hyperg<double>
+data029[21] =
+{
+ { 0.45866881830525147, 1.0000000000000000, 9.0000000000000000,
+ -10.000000000000000 },
+ { 0.48574024897002727, 1.0000000000000000, 9.0000000000000000,
+ -9.0000000000000000 },
+ { 0.51609119927007907, 1.0000000000000000, 9.0000000000000000,
+ -8.0000000000000000 },
+ { 0.55033101178702448, 1.0000000000000000, 9.0000000000000000,
+ -7.0000000000000000 },
+ { 0.58922274096446048, 1.0000000000000000, 9.0000000000000000,
+ -6.0000000000000000 },
+ { 0.63373228549888794, 1.0000000000000000, 9.0000000000000000,
+ -5.0000000000000000 },
+ { 0.68509653564443607, 1.0000000000000000, 9.0000000000000000,
+ -4.0000000000000000 },
+ { 0.74491915814544640, 1.0000000000000000, 9.0000000000000000,
+ -3.0000000000000000 },
+ { 0.81530710976649901, 1.0000000000000000, 9.0000000000000000,
+ -2.0000000000000000 },
+ { 0.89906803255440670, 1.0000000000000000, 9.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 9.0000000000000000,
+ 0.0000000000000000 },
+ { 1.1233234687038898, 1.0000000000000000, 9.0000000000000000,
+ 1.0000000000000000 },
+ { 1.2763355815774109, 1.0000000000000000, 9.0000000000000000,
+ 2.0000000000000000 },
+ { 1.4694175800833351, 1.0000000000000000, 9.0000000000000000,
+ 3.0000000000000000 },
+ { 1.7176118367977251, 1.0000000000000000, 9.0000000000000000,
+ 4.0000000000000000 },
+ { 2.0431323520406743, 1.0000000000000000, 9.0000000000000000,
+ 5.0000000000000000 },
+ { 2.4794291990711450, 1.0000000000000000, 9.0000000000000000,
+ 6.0000000000000000 },
+ { 3.0778805630646149, 1.0000000000000000, 9.0000000000000000,
+ 7.0000000000000000 },
+ { 3.9189969323588909, 1.0000000000000000, 9.0000000000000000,
+ 8.0000000000000000 },
+ { 5.1314921747428537, 1.0000000000000000, 9.0000000000000000,
+ 9.0000000000000000 },
+ { 6.9252758084660471, 1.0000000000000000, 9.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler029 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 1.5987211554602254e-14
+// max(|f - f_GSL| / |f_GSL|): 2.9979310614742812e-15
+const testcase_conf_hyperg<double>
+data030[21] =
+{
+ { 0.48719806352527351, 1.0000000000000000, 10.000000000000000,
+ -10.000000000000000 },
+ { 0.51425975102997290, 1.0000000000000000, 10.000000000000000,
+ -9.0000000000000000 },
+ { 0.54439740082116106, 1.0000000000000000, 10.000000000000000,
+ -8.0000000000000000 },
+ { 0.57814584198811136, 1.0000000000000000, 10.000000000000000,
+ -7.0000000000000000 },
+ { 0.61616588855330934, 1.0000000000000000, 10.000000000000000,
+ -6.0000000000000000 },
+ { 0.65928188610200156, 1.0000000000000000, 10.000000000000000,
+ -5.0000000000000000 },
+ { 0.70853279480001885, 1.0000000000000000, 10.000000000000000,
+ -4.0000000000000000 },
+ { 0.76524252556366068, 1.0000000000000000, 10.000000000000000,
+ -3.0000000000000000 },
+ { 0.83111800605075459, 1.0000000000000000, 10.000000000000000,
+ -2.0000000000000000 },
+ { 0.90838770701033944, 1.0000000000000000, 10.000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 10.000000000000000,
+ 0.0000000000000000 },
+ { 1.1099112183350075, 1.0000000000000000, 10.000000000000000,
+ 1.0000000000000000 },
+ { 1.2435101170983485, 1.0000000000000000, 10.000000000000000,
+ 2.0000000000000000 },
+ { 1.4082527402500060, 1.0000000000000000, 10.000000000000000,
+ 3.0000000000000000 },
+ { 1.6146266327948817, 1.0000000000000000, 10.000000000000000,
+ 4.0000000000000000 },
+ { 1.8776382336732149, 1.0000000000000000, 10.000000000000000,
+ 5.0000000000000000 },
+ { 2.2191437986067180, 1.0000000000000000, 10.000000000000000,
+ 6.0000000000000000 },
+ { 2.6715607239402184, 1.0000000000000000, 10.000000000000000,
+ 7.0000000000000000 },
+ { 3.2838715489037495, 1.0000000000000000, 10.000000000000000,
+ 8.0000000000000000 },
+ { 4.1314921747428688, 1.0000000000000000, 10.000000000000000,
+ 9.0000000000000000 },
+ { 5.3327482276194447, 1.0000000000000000, 10.000000000000000,
+ 10.000000000000000 },
+};
+const double toler030 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, c=1.0000000000000000.
+// max(|f - f_GSL|): 1.8189894035458565e-12
+// max(|f - f_GSL| / |f_GSL|): 1.2338590067901998e-14
+const testcase_conf_hyperg<double>
+data031[20] =
+{
+ { -0.00040859936786236367, 2.0000000000000000, 1.0000000000000000,
+ -10.000000000000000 },
+ { -0.00098727843269343649, 2.0000000000000000, 1.0000000000000000,
+ -9.0000000000000000 },
+ { -0.0023482383953175828, 2.0000000000000000, 1.0000000000000000,
+ -8.0000000000000000 },
+ { -0.0054712917933270972, 2.0000000000000000, 1.0000000000000000,
+ -7.0000000000000000 },
+ { -0.012393760883331793, 2.0000000000000000, 1.0000000000000000,
+ -6.0000000000000000 },
+ { -0.026951787996341868, 2.0000000000000000, 1.0000000000000000,
+ -5.0000000000000000 },
+ { -0.054946916666202536, 2.0000000000000000, 1.0000000000000000,
+ -4.0000000000000000 },
+ { -0.099574136735727889, 2.0000000000000000, 1.0000000000000000,
+ -3.0000000000000000 },
+ { -0.13533528323661270, 2.0000000000000000, 1.0000000000000000,
+ -2.0000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 1.0000000000000000,
+ 0.0000000000000000 },
+ { 5.4365636569180902, 2.0000000000000000, 1.0000000000000000,
+ 1.0000000000000000 },
+ { 22.167168296791949, 2.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000 },
+ { 80.342147692750672, 2.0000000000000000, 1.0000000000000000,
+ 3.0000000000000000 },
+ { 272.99075016572118, 2.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000 },
+ { 890.47895461545954, 2.0000000000000000, 1.0000000000000000,
+ 5.0000000000000000 },
+ { 2824.0015544491457, 2.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000 },
+ { 8773.0652674276680, 2.0000000000000000, 1.0000000000000000,
+ 7.0000000000000000 },
+ { 26828.621883375556, 2.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000 },
+ { 81030.839275753839, 2.0000000000000000, 1.0000000000000000,
+ 9.0000000000000000 },
+ { 242291.12374287390, 2.0000000000000000, 1.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler031 = 1.0000000000000008e-12;
+
+// Test data for a=2.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_conf_hyperg<double>
+data032[21] =
+{
+ { 4.5399929762484854e-05, 2.0000000000000000, 2.0000000000000000,
+ -10.000000000000000 },
+ { 0.00012340980408667956, 2.0000000000000000, 2.0000000000000000,
+ -9.0000000000000000 },
+ { 0.00033546262790251185, 2.0000000000000000, 2.0000000000000000,
+ -8.0000000000000000 },
+ { 0.00091188196555451624, 2.0000000000000000, 2.0000000000000000,
+ -7.0000000000000000 },
+ { 0.0024787521766663585, 2.0000000000000000, 2.0000000000000000,
+ -6.0000000000000000 },
+ { 0.0067379469990854670, 2.0000000000000000, 2.0000000000000000,
+ -5.0000000000000000 },
+ { 0.018315638888734179, 2.0000000000000000, 2.0000000000000000,
+ -4.0000000000000000 },
+ { 0.049787068367863944, 2.0000000000000000, 2.0000000000000000,
+ -3.0000000000000000 },
+ { 0.13533528323661270, 2.0000000000000000, 2.0000000000000000,
+ -2.0000000000000000 },
+ { 0.36787944117144233, 2.0000000000000000, 2.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 2.0000000000000000,
+ 0.0000000000000000 },
+ { 2.7182818284590451, 2.0000000000000000, 2.0000000000000000,
+ 1.0000000000000000 },
+ { 7.3890560989306504, 2.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000 },
+ { 20.085536923187668, 2.0000000000000000, 2.0000000000000000,
+ 3.0000000000000000 },
+ { 54.598150033144236, 2.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000 },
+ { 148.41315910257660, 2.0000000000000000, 2.0000000000000000,
+ 5.0000000000000000 },
+ { 403.42879349273511, 2.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000 },
+ { 1096.6331584284585, 2.0000000000000000, 2.0000000000000000,
+ 7.0000000000000000 },
+ { 2980.9579870417283, 2.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000 },
+ { 8103.0839275753842, 2.0000000000000000, 2.0000000000000000,
+ 9.0000000000000000 },
+ { 22026.465794806718, 2.0000000000000000, 2.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler032 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, c=3.0000000000000000.
+// max(|f - f_GSL|): 9.0949470177292824e-13
+// max(|f - f_GSL| / |f_GSL|): 3.7963989072999328e-15
+const testcase_conf_hyperg<double>
+data033[21] =
+{
+ { 0.019990012015452256, 2.0000000000000000, 3.0000000000000000,
+ -10.000000000000000 },
+ { 0.024660886468126749, 2.0000000000000000, 3.0000000000000000,
+ -9.0000000000000000 },
+ { 0.031155651135902421, 2.0000000000000000, 3.0000000000000000,
+ -8.0000000000000000 },
+ { 0.040518569154104643, 2.0000000000000000, 3.0000000000000000,
+ -7.0000000000000000 },
+ { 0.054591596375740861, 2.0000000000000000, 3.0000000000000000,
+ -6.0000000000000000 },
+ { 0.076765785440438966, 2.0000000000000000, 3.0000000000000000,
+ -5.0000000000000000 },
+ { 0.11355272569454113, 2.0000000000000000, 3.0000000000000000,
+ -4.0000000000000000 },
+ { 0.17796705033967650, 2.0000000000000000, 3.0000000000000000,
+ -3.0000000000000000 },
+ { 0.29699707514508100, 2.0000000000000000, 3.0000000000000000,
+ -2.0000000000000000 },
+ { 0.52848223531423066, 2.0000000000000000, 3.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 3.0000000000000000,
+ 0.0000000000000000 },
+ { 2.0000000000000000, 2.0000000000000000, 3.0000000000000000,
+ 1.0000000000000000 },
+ { 4.1945280494653261, 2.0000000000000000, 3.0000000000000000,
+ 2.0000000000000000 },
+ { 9.1491275214167409, 2.0000000000000000, 3.0000000000000000,
+ 3.0000000000000000 },
+ { 20.599306262429089, 2.0000000000000000, 3.0000000000000000,
+ 4.0000000000000000 },
+ { 47.572210912824517, 2.0000000000000000, 3.0000000000000000,
+ 5.0000000000000000 },
+ { 112.11910930353754, 2.0000000000000000, 3.0000000000000000,
+ 6.0000000000000000 },
+ { 268.60403879880613, 2.0000000000000000, 3.0000000000000000,
+ 7.0000000000000000 },
+ { 652.11580966537815, 2.0000000000000000, 3.0000000000000000,
+ 8.0000000000000000 },
+ { 1600.6338622371129, 2.0000000000000000, 3.0000000000000000,
+ 9.0000000000000000 },
+ { 3964.7838430652091, 2.0000000000000000, 3.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler033 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 2.2737367544323206e-12
+// max(|f - f_GSL| / |f_GSL|): 2.1504262426495913e-15
+const testcase_conf_hyperg<double>
+data034[21] =
+{
+ { 0.048003268794942940, 2.0000000000000000, 4.0000000000000000,
+ -10.000000000000000 },
+ { 0.057624341628353531, 2.0000000000000000, 4.0000000000000000,
+ -9.0000000000000000 },
+ { 0.070351812026707330, 2.0000000000000000, 4.0000000000000000,
+ -8.0000000000000000 },
+ { 0.087607118443556703, 2.0000000000000000, 4.0000000000000000,
+ -7.0000000000000000 },
+ { 0.11166194492814813, 2.0000000000000000, 4.0000000000000000,
+ -6.0000000000000000 },
+ { 0.14626395019169278, 2.0000000000000000, 4.0000000000000000,
+ -5.0000000000000000 },
+ { 0.19780254687491294, 2.0000000000000000, 4.0000000000000000,
+ -4.0000000000000000 },
+ { 0.27754118707540443, 2.0000000000000000, 4.0000000000000000,
+ -3.0000000000000000 },
+ { 0.40600584970983811, 2.0000000000000000, 4.0000000000000000,
+ -2.0000000000000000 },
+ { 0.62182994108596168, 2.0000000000000000, 4.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 4.0000000000000000,
+ 0.0000000000000000 },
+ { 1.6903090292457283, 2.0000000000000000, 4.0000000000000000,
+ 1.0000000000000000 },
+ { 3.0000000000000000, 2.0000000000000000, 4.0000000000000000,
+ 2.0000000000000000 },
+ { 5.5745637607083705, 2.0000000000000000, 4.0000000000000000,
+ 3.0000000000000000 },
+ { 10.799653131214550, 2.0000000000000000, 4.0000000000000000,
+ 4.0000000000000000 },
+ { 21.707494910771043, 2.0000000000000000, 4.0000000000000000,
+ 5.0000000000000000 },
+ { 45.047643721415056, 2.0000000000000000, 4.0000000000000000,
+ 6.0000000000000000 },
+ { 96.072870999573695, 2.0000000000000000, 4.0000000000000000,
+ 7.0000000000000000 },
+ { 209.71579596387159, 2.0000000000000000, 4.0000000000000000,
+ 8.0000000000000000 },
+ { 466.93487648582493, 2.0000000000000000, 4.0000000000000000,
+ 9.0000000000000000 },
+ { 1057.3423581507243, 2.0000000000000000, 4.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler034 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, c=5.0000000000000000.
+// max(|f - f_GSL|): 2.8421709430404007e-13
+// max(|f - f_GSL| / |f_GSL|): 2.6284159117427726e-15
+const testcase_conf_hyperg<double>
+data035[21] =
+{
+ { 0.079198583522191404, 2.0000000000000000, 5.0000000000000000,
+ -10.000000000000000 },
+ { 0.093273046483222530, 2.0000000000000000, 5.0000000000000000,
+ -9.0000000000000000 },
+ { 0.11130650338531098, 2.0000000000000000, 5.0000000000000000,
+ -8.0000000000000000 },
+ { 0.13485262321044020, 2.0000000000000000, 5.0000000000000000,
+ -7.0000000000000000 },
+ { 0.16625354130388895, 2.0000000000000000, 5.0000000000000000,
+ -6.0000000000000000 },
+ { 0.20913010268188095, 2.0000000000000000, 5.0000000000000000,
+ -5.0000000000000000 },
+ { 0.26923036197926808, 2.0000000000000000, 5.0000000000000000,
+ -4.0000000000000000 },
+ { 0.35593410067935288, 2.0000000000000000, 5.0000000000000000,
+ -3.0000000000000000 },
+ { 0.48498537572540468, 2.0000000000000000, 5.0000000000000000,
+ -2.0000000000000000 },
+ { 0.68357364754153715, 2.0000000000000000, 5.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 5.0000000000000000,
+ 0.0000000000000000 },
+ { 1.5224722339658285, 2.0000000000000000, 5.0000000000000000,
+ 1.0000000000000000 },
+ { 2.4164158516040235, 2.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000 },
+ { 4.0000000000000009, 2.0000000000000000, 5.0000000000000000,
+ 3.0000000000000000 },
+ { 6.8998265656072721, 2.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000 },
+ { 12.377330619077886, 2.0000000000000000, 5.0000000000000000,
+ 5.0000000000000000 },
+ { 23.023821860707503, 2.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000 },
+ { 44.261883885519374, 2.0000000000000000, 5.0000000000000000,
+ 7.0000000000000000 },
+ { 87.631581651613160, 2.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000 },
+ { 178.07042913745681, 2.0000000000000000, 5.0000000000000000,
+ 9.0000000000000000 },
+ { 370.21982535275242, 2.0000000000000000, 5.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler035 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 5.1159076974727213e-13
+// max(|f - f_GSL| / |f_GSL|): 3.2185367269036845e-15
+const testcase_conf_hyperg<double>
+data036[21] =
+{
+ { 0.11120076271882003, 2.0000000000000000, 6.0000000000000000,
+ -10.000000000000000 },
+ { 0.12904862943139384, 2.0000000000000000, 6.0000000000000000,
+ -9.0000000000000000 },
+ { 0.15138192951001525, 2.0000000000000000, 6.0000000000000000,
+ -8.0000000000000000 },
+ { 0.17975865319179699, 2.0000000000000000, 6.0000000000000000,
+ -7.0000000000000000 },
+ { 0.21643190620010283, 2.0000000000000000, 6.0000000000000000,
+ -6.0000000000000000 },
+ { 0.26472863448288397, 2.0000000000000000, 6.0000000000000000,
+ -5.0000000000000000 },
+ { 0.32967091145818839, 2.0000000000000000, 6.0000000000000000,
+ -4.0000000000000000 },
+ { 0.41901702645681349, 2.0000000000000000, 6.0000000000000000,
+ -3.0000000000000000 },
+ { 0.54504387282378575, 2.0000000000000000, 6.0000000000000000,
+ -2.0000000000000000 },
+ { 0.72766470286539298, 2.0000000000000000, 6.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 6.0000000000000000,
+ 0.0000000000000000 },
+ { 1.4185417547437151, 2.0000000000000000, 6.0000000000000000,
+ 1.0000000000000000 },
+ { 2.0820792580201224, 2.0000000000000000, 6.0000000000000000,
+ 2.0000000000000000 },
+ { 3.1676360873147318, 2.0000000000000000, 6.0000000000000000,
+ 3.0000000000000000 },
+ { 4.9999999999999982, 2.0000000000000000, 6.0000000000000000,
+ 4.0000000000000000 },
+ { 8.1886653095389406, 2.0000000000000000, 6.0000000000000000,
+ 5.0000000000000000 },
+ { 13.902123255948611, 2.0000000000000000, 6.0000000000000000,
+ 6.0000000000000000 },
+ { 24.426009224385378, 2.0000000000000000, 6.0000000000000000,
+ 7.0000000000000000 },
+ { 44.315790825806538, 2.0000000000000000, 6.0000000000000000,
+ 8.0000000000000000 },
+ { 82.810383859933609, 2.0000000000000000, 6.0000000000000000,
+ 9.0000000000000000 },
+ { 158.95135372260788, 2.0000000000000000, 6.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler036 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, c=7.0000000000000000.
+// max(|f - f_GSL|): 2.1316282072803006e-13
+// max(|f - f_GSL| / |f_GSL|): 2.6653456287428861e-15
+const testcase_conf_hyperg<double>
+data037[21] =
+{
+ { 0.14279950968075855, 2.0000000000000000, 7.0000000000000000,
+ -10.000000000000000 },
+ { 0.16375995835694801, 2.0000000000000000, 7.0000000000000000,
+ -9.0000000000000000 },
+ { 0.18950218227311263, 2.0000000000000000, 7.0000000000000000,
+ -8.0000000000000000 },
+ { 0.22152437623624174, 2.0000000000000000, 7.0000000000000000,
+ -7.0000000000000000 },
+ { 0.26192490317988687, 2.0000000000000000, 7.0000000000000000,
+ -6.0000000000000000 },
+ { 0.31369515402282139, 2.0000000000000000, 7.0000000000000000,
+ -5.0000000000000000 },
+ { 0.38118033691430731, 2.0000000000000000, 7.0000000000000000,
+ -4.0000000000000000 },
+ { 0.47081822524156886, 2.0000000000000000, 7.0000000000000000,
+ -3.0000000000000000 },
+ { 0.59234644511675072, 2.0000000000000000, 7.0000000000000000,
+ -2.0000000000000000 },
+ { 0.76081413936917086, 2.0000000000000000, 7.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 7.0000000000000000,
+ 0.0000000000000000 },
+ { 1.3483340379497220, 2.0000000000000000, 7.0000000000000000,
+ 1.0000000000000000 },
+ { 1.8693566610905543, 2.0000000000000000, 7.0000000000000000,
+ 2.0000000000000000 },
+ { 2.6705443492589280, 2.0000000000000000, 7.0000000000000000,
+ 3.0000000000000000 },
+ { 3.9378251894863650, 2.0000000000000000, 7.0000000000000000,
+ 4.0000000000000000 },
+ { 6.0000000000000018, 2.0000000000000000, 7.0000000000000000,
+ 5.0000000000000000 },
+ { 9.4510616279743118, 2.0000000000000000, 7.0000000000000000,
+ 6.0000000000000000 },
+ { 15.386290985363093, 2.0000000000000000, 7.0000000000000000,
+ 7.0000000000000000 },
+ { 25.865132339516240, 2.0000000000000000, 7.0000000000000000,
+ 8.0000000000000000 },
+ { 44.832204725298020, 2.0000000000000000, 7.0000000000000000,
+ 9.0000000000000000 },
+ { 79.975676861303953, 2.0000000000000000, 7.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler037 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 3.9079850466805510e-14
+// max(|f - f_GSL| / |f_GSL|): 2.3209326942856951e-15
+const testcase_conf_hyperg<double>
+data038[21] =
+{
+ { 0.17337636610503362, 2.0000000000000000, 8.0000000000000000,
+ -10.000000000000000 },
+ { 0.19686670136921000, 2.0000000000000000, 8.0000000000000000,
+ -9.0000000000000000 },
+ { 0.22527678978110538, 2.0000000000000000, 8.0000000000000000,
+ -8.0000000000000000 },
+ { 0.26001525907740475, 2.0000000000000000, 8.0000000000000000,
+ -7.0000000000000000 },
+ { 0.30300466868014397, 2.0000000000000000, 8.0000000000000000,
+ -6.0000000000000000 },
+ { 0.35690946280485503, 2.0000000000000000, 8.0000000000000000,
+ -5.0000000000000000 },
+ { 0.42548267822218039, 2.0000000000000000, 8.0000000000000000,
+ -4.0000000000000000 },
+ { 0.51410215874088183, 2.0000000000000000, 8.0000000000000000,
+ -3.0000000000000000 },
+ { 0.63061421953299790, 2.0000000000000000, 8.0000000000000000,
+ -2.0000000000000000 },
+ { 0.78668452848510595, 2.0000000000000000, 8.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 8.0000000000000000,
+ 0.0000000000000000 },
+ { 1.2979228320600693, 2.0000000000000000, 8.0000000000000000,
+ 1.0000000000000000 },
+ { 1.7236644184225898, 2.0000000000000000, 8.0000000000000000,
+ 2.0000000000000000 },
+ { 2.3469052224062485, 2.0000000000000000, 8.0000000000000000,
+ 3.0000000000000000 },
+ { 3.2823881632022749, 2.0000000000000000, 8.0000000000000000,
+ 4.0000000000000000 },
+ { 4.7230422799745782, 2.0000000000000000, 8.0000000000000000,
+ 5.0000000000000000 },
+ { 7.0000000000000009, 2.0000000000000000, 8.0000000000000000,
+ 6.0000000000000000 },
+ { 10.693145492681536, 2.0000000000000000, 8.0000000000000000,
+ 7.0000000000000000 },
+ { 16.837993864717809, 2.0000000000000000, 8.0000000000000000,
+ 8.0000000000000000 },
+ { 27.318786089757172, 2.0000000000000000, 8.0000000000000000,
+ 9.0000000000000000 },
+ { 45.626379042330321, 2.0000000000000000, 8.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler038 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, c=9.0000000000000000.
+// max(|f - f_GSL|): 6.3948846218409017e-14
+// max(|f - f_GSL| / |f_GSL|): 2.2223112918020366e-15
+const testcase_conf_hyperg<double>
+data039[21] =
+{
+ { 0.20263008881072142, 2.0000000000000000, 9.0000000000000000,
+ -10.000000000000000 },
+ { 0.22815601647956382, 2.0000000000000000, 9.0000000000000000,
+ -9.0000000000000000 },
+ { 0.25863201094881560, 2.0000000000000000, 9.0000000000000000,
+ -8.0000000000000000 },
+ { 0.29536583498165569, 2.0000000000000000, 9.0000000000000000,
+ -7.0000000000000000 },
+ { 0.34010436746201422, 2.0000000000000000, 9.0000000000000000,
+ -6.0000000000000000 },
+ { 0.39521257401334392, 2.0000000000000000, 9.0000000000000000,
+ -5.0000000000000000 },
+ { 0.46393810791120338, 2.0000000000000000, 9.0000000000000000,
+ -4.0000000000000000 },
+ { 0.55080841854553553, 2.0000000000000000, 9.0000000000000000,
+ -3.0000000000000000 },
+ { 0.66223601210150940, 2.0000000000000000, 9.0000000000000000,
+ -2.0000000000000000 },
+ { 0.80745573956474603, 2.0000000000000000, 9.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 9.0000000000000000,
+ 0.0000000000000000 },
+ { 1.2600591877766618, 2.0000000000000000, 9.0000000000000000,
+ 1.0000000000000000 },
+ { 1.6183220921129462, 2.0000000000000000, 9.0000000000000000,
+ 2.0000000000000000 },
+ { 2.1223296796666578, 2.0000000000000000, 9.0000000000000000,
+ 3.0000000000000000 },
+ { 2.8471644896068233, 2.0000000000000000, 9.0000000000000000,
+ 4.0000000000000000 },
+ { 3.9137352959186495, 2.0000000000000000, 9.0000000000000000,
+ 5.0000000000000000 },
+ { 5.5205708009288541, 2.0000000000000000, 9.0000000000000000,
+ 6.0000000000000000 },
+ { 7.9999999999999982, 2.0000000000000000, 9.0000000000000000,
+ 7.0000000000000000 },
+ { 11.918996932358892, 2.0000000000000000, 9.0000000000000000,
+ 8.0000000000000000 },
+ { 18.262984349485706, 2.0000000000000000, 9.0000000000000000,
+ 9.0000000000000000 },
+ { 28.775827425398141, 2.0000000000000000, 9.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler039 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 3.5527136788005009e-14
+// max(|f - f_GSL| / |f_GSL|): 1.8065720775912871e-15
+const testcase_conf_hyperg<double>
+data040[21] =
+{
+ { 0.23043485654507717, 2.0000000000000000, 10.000000000000000,
+ -10.000000000000000 },
+ { 0.25758423249046342, 2.0000000000000000, 10.000000000000000,
+ -9.0000000000000000 },
+ { 0.28964158686142122, 2.0000000000000000, 10.000000000000000,
+ -8.0000000000000000 },
+ { 0.32781237017833142, 2.0000000000000000, 10.000000000000000,
+ -7.0000000000000000 },
+ { 0.37367756025366927, 2.0000000000000000, 10.000000000000000,
+ -6.0000000000000000 },
+ { 0.42933548067397925, 2.0000000000000000, 10.000000000000000,
+ -5.0000000000000000 },
+ { 0.49760646239977369, 2.0000000000000000, 10.000000000000000,
+ -4.0000000000000000 },
+ { 0.58233221879973318, 2.0000000000000000, 10.000000000000000,
+ -3.0000000000000000 },
+ { 0.68881993949245379, 2.0000000000000000, 10.000000000000000,
+ -2.0000000000000000 },
+ { 0.82451063690694526, 2.0000000000000000, 10.000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 10.000000000000000,
+ 0.0000000000000000 },
+ { 1.2306214716549471, 2.0000000000000000, 10.000000000000000,
+ 1.0000000000000000 },
+ { 1.5389392974099088, 2.0000000000000000, 10.000000000000000,
+ 2.0000000000000000 },
+ { 1.9587362987499699, 2.0000000000000000, 10.000000000000000,
+ 3.0000000000000000 },
+ { 2.5414934688204727, 2.0000000000000000, 10.000000000000000,
+ 4.0000000000000000 },
+ { 3.3670852989803555, 2.0000000000000000, 10.000000000000000,
+ 5.0000000000000000 },
+ { 4.5617124027865650, 2.0000000000000000, 10.000000000000000,
+ 6.0000000000000000 },
+ { 6.3284392760597825, 2.0000000000000000, 10.000000000000000,
+ 7.0000000000000000 },
+ { 9.0000000000000036, 2.0000000000000000, 10.000000000000000,
+ 8.0000000000000000 },
+ { 13.131492174742865, 2.0000000000000000, 10.000000000000000,
+ 9.0000000000000000 },
+ { 19.665496455238888, 2.0000000000000000, 10.000000000000000,
+ 10.000000000000000 },
+};
+const double toler040 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, c=1.0000000000000000.
+// max(|f - f_GSL|): 1.1175870895385742e-08
+// max(|f - f_GSL| / |f_GSL|): 5.3427429899548483e-12
+const testcase_conf_hyperg<double>
+data041[21] =
+{
+ { 0.00049939922738733290, 5.0000000000000000, 1.0000000000000000,
+ -10.000000000000000 },
+ { -0.00057077034390089253, 5.0000000000000000, 1.0000000000000000,
+ -9.0000000000000000 },
+ { -0.0032428054030576147, 5.0000000000000000, 1.0000000000000000,
+ -8.0000000000000000 },
+ { -0.0078649819529077025, 5.0000000000000000, 1.0000000000000000,
+ -7.0000000000000000 },
+ { -0.012393760883331793, 5.0000000000000000, 1.0000000000000000,
+ -6.0000000000000000 },
+ { -0.0087031815404853934, 5.0000000000000000, 1.0000000000000000,
+ -5.0000000000000000 },
+ { 0.018315638888832021, 5.0000000000000000, 1.0000000000000000,
+ -4.0000000000000000 },
+ { 0.068457219005814696, 5.0000000000000000, 1.0000000000000000,
+ -3.0000000000000000 },
+ { 0.045111761078875295, 5.0000000000000000, 1.0000000000000000,
+ -2.0000000000000000 },
+ { -0.22992465073215118, 5.0000000000000000, 1.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 1.0000000000000000,
+ 0.0000000000000000 },
+ { 23.671704256164183, 5.0000000000000000, 1.0000000000000000,
+ 1.0000000000000000 },
+ { 199.50451467112745, 5.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000 },
+ { 1232.7498286606428, 5.0000000000000000, 1.0000000000000000,
+ 3.0000000000000000 },
+ { 6460.7810872554019, 5.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000 },
+ { 30480.352550691663, 5.0000000000000000, 1.0000000000000000,
+ 5.0000000000000000 },
+ { 133534.93064609537, 5.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000 },
+ { 553479.89366849652, 5.0000000000000000, 1.0000000000000000,
+ 7.0000000000000000 },
+ { 2196966.0364497532, 5.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000 },
+ { 8422142.8572236635, 5.0000000000000000, 1.0000000000000000,
+ 9.0000000000000000 },
+ { 31373029.447069697, 5.0000000000000000, 1.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler041 = 5.0000000000000034e-10;
+
+// Test data for a=5.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 1.8626451492309570e-09
+// max(|f - f_GSL| / |f_GSL|): 1.4711248979266200e-12
+const testcase_conf_hyperg<double>
+data042[21] =
+{
+ { -0.00025726626865408078, 5.0000000000000000, 2.0000000000000000,
+ -10.000000000000000 },
+ { -0.00029309828470586396, 5.0000000000000000, 2.0000000000000000,
+ -9.0000000000000000 },
+ { -0.00011182087596750400, 5.0000000000000000, 2.0000000000000000,
+ -8.0000000000000000 },
+ { 0.00064591639226778245, 5.0000000000000000, 2.0000000000000000,
+ -7.0000000000000000 },
+ { 0.0024787521766663585, 5.0000000000000000, 2.0000000000000000,
+ -6.0000000000000000 },
+ { 0.0053342080409426616, 5.0000000000000000, 2.0000000000000000,
+ -5.0000000000000000 },
+ { 0.0061052129629022966, 5.0000000000000000, 2.0000000000000000,
+ -4.0000000000000000 },
+ { -0.0062233835459823200, 5.0000000000000000, 2.0000000000000000,
+ -3.0000000000000000 },
+ { -0.045111761078871798, 5.0000000000000000, 2.0000000000000000,
+ -2.0000000000000000 },
+ { -0.015328310048810216, 5.0000000000000000, 2.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 2.0000000000000000,
+ 0.0000000000000000 },
+ { 8.2681072282295975, 5.0000000000000000, 2.0000000000000000,
+ 1.0000000000000000 },
+ { 46.797355293227440, 5.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000 },
+ { 223.45159827046285, 5.0000000000000000, 2.0000000000000000,
+ 3.0000000000000000 },
+ { 964.56731725221459, 5.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000 },
+ { 3889.6615448133625, 5.0000000000000000, 2.0000000000000000,
+ 5.0000000000000000 },
+ { 14926.865359231202, 5.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000 },
+ { 55151.509259297891, 5.0000000000000000, 2.0000000000000000,
+ 7.0000000000000000 },
+ { 197736.87980710136, 5.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000 },
+ { 691800.79031674843, 5.0000000000000000, 2.0000000000000000,
+ 9.0000000000000000 },
+ { 2371516.1505741901, 5.0000000000000000, 2.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler042 = 1.0000000000000006e-10;
+
+// Test data for a=5.0000000000000000, c=3.0000000000000000.
+// max(|f - f_GSL|): 5.8207660913467407e-11
+// max(|f - f_GSL| / |f_GSL|): 7.8471940260477516e-13
+const testcase_conf_hyperg<double>
+data043[21] =
+{
+ { 0.00012106647936662629, 5.0000000000000000, 3.0000000000000000,
+ -10.000000000000000 },
+ { 0.00021596715715168925, 5.0000000000000000, 3.0000000000000000,
+ -9.0000000000000000 },
+ { 0.00033546262790251185, 5.0000000000000000, 3.0000000000000000,
+ -8.0000000000000000 },
+ { 0.00037995081898104839, 5.0000000000000000, 3.0000000000000000,
+ -7.0000000000000000 },
+ { 0.0000000000000000, 5.0000000000000000, 3.0000000000000000,
+ -6.0000000000000000 },
+ { -0.0016844867497713668, 5.0000000000000000, 3.0000000000000000,
+ -5.0000000000000000 },
+ { -0.0061052129629113917, 5.0000000000000000, 3.0000000000000000,
+ -4.0000000000000000 },
+ { -0.012446767091965986, 5.0000000000000000, 3.0000000000000000,
+ -3.0000000000000000 },
+ { 0.0000000000000000, 5.0000000000000000, 3.0000000000000000,
+ -2.0000000000000000 },
+ { 0.15328310048810101, 5.0000000000000000, 3.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 3.0000000000000000,
+ 0.0000000000000000 },
+ { 4.7569931998033290, 5.0000000000000000, 3.0000000000000000,
+ 1.0000000000000000 },
+ { 19.704149597148401, 5.0000000000000000, 3.0000000000000000,
+ 2.0000000000000000 },
+ { 75.320763461953760, 5.0000000000000000, 3.0000000000000000,
+ 3.0000000000000000 },
+ { 272.99075016572118, 5.0000000000000000, 3.0000000000000000,
+ 4.0000000000000000 },
+ { 952.31777090819992, 5.0000000000000000, 3.0000000000000000,
+ 5.0000000000000000 },
+ { 3227.4303479418809, 5.0000000000000000, 3.0000000000000000,
+ 6.0000000000000000 },
+ { 10692.173294677470, 5.0000000000000000, 3.0000000000000000,
+ 7.0000000000000000 },
+ { 34777.843182153498, 5.0000000000000000, 3.0000000000000000,
+ 8.0000000000000000 },
+ { 111417.40400416154, 5.0000000000000000, 3.0000000000000000,
+ 9.0000000000000000 },
+ { 352423.45271690749, 5.0000000000000000, 3.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler043 = 5.0000000000000028e-11;
+
+// Test data for a=5.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 1.4551915228366852e-11
+// max(|f - f_GSL| / |f_GSL|): 4.8846719461489400e-13
+const testcase_conf_hyperg<double>
+data044[21] =
+{
+ { -6.8099894643727278e-05, 5.0000000000000000, 4.0000000000000000,
+ -10.000000000000000 },
+ { -0.00015426225510834944, 5.0000000000000000, 4.0000000000000000,
+ -9.0000000000000000 },
+ { -0.00033546262790251185, 5.0000000000000000, 4.0000000000000000,
+ -8.0000000000000000 },
+ { -0.00068391147416588716, 5.0000000000000000, 4.0000000000000000,
+ -7.0000000000000000 },
+ { -0.0012393760883331792, 5.0000000000000000, 4.0000000000000000,
+ -6.0000000000000000 },
+ { -0.0016844867497713668, 5.0000000000000000, 4.0000000000000000,
+ -5.0000000000000000 },
+ { 0.0000000000000000, 5.0000000000000000, 4.0000000000000000,
+ -4.0000000000000000 },
+ { 0.012446767091965986, 5.0000000000000000, 4.0000000000000000,
+ -3.0000000000000000 },
+ { 0.067667641618306351, 5.0000000000000000, 4.0000000000000000,
+ -2.0000000000000000 },
+ { 0.27590958087858175, 5.0000000000000000, 4.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 4.0000000000000000,
+ 0.0000000000000000 },
+ { 3.3978522855738063, 5.0000000000000000, 4.0000000000000000,
+ 1.0000000000000000 },
+ { 11.083584148395975, 5.0000000000000000, 4.0000000000000000,
+ 2.0000000000000000 },
+ { 35.149689615578417, 5.0000000000000000, 4.0000000000000000,
+ 3.0000000000000000 },
+ { 109.19630006628847, 5.0000000000000000, 4.0000000000000000,
+ 4.0000000000000000 },
+ { 333.92960798079736, 5.0000000000000000, 4.0000000000000000,
+ 5.0000000000000000 },
+ { 1008.5719837318378, 5.0000000000000000, 4.0000000000000000,
+ 6.0000000000000000 },
+ { 3015.7411856782610, 5.0000000000000000, 4.0000000000000000,
+ 7.0000000000000000 },
+ { 8942.8739611251840, 5.0000000000000000, 4.0000000000000000,
+ 8.0000000000000000 },
+ { 26335.022764620000, 5.0000000000000000, 4.0000000000000000,
+ 9.0000000000000000 },
+ { 77092.630281823513, 5.0000000000000000, 4.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler044 = 2.5000000000000014e-11;
+
+// Test data for a=5.0000000000000000, c=5.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_conf_hyperg<double>
+data045[21] =
+{
+ { 4.5399929762484854e-05, 5.0000000000000000, 5.0000000000000000,
+ -10.000000000000000 },
+ { 0.00012340980408667956, 5.0000000000000000, 5.0000000000000000,
+ -9.0000000000000000 },
+ { 0.00033546262790251185, 5.0000000000000000, 5.0000000000000000,
+ -8.0000000000000000 },
+ { 0.00091188196555451624, 5.0000000000000000, 5.0000000000000000,
+ -7.0000000000000000 },
+ { 0.0024787521766663585, 5.0000000000000000, 5.0000000000000000,
+ -6.0000000000000000 },
+ { 0.0067379469990854670, 5.0000000000000000, 5.0000000000000000,
+ -5.0000000000000000 },
+ { 0.018315638888734179, 5.0000000000000000, 5.0000000000000000,
+ -4.0000000000000000 },
+ { 0.049787068367863944, 5.0000000000000000, 5.0000000000000000,
+ -3.0000000000000000 },
+ { 0.13533528323661270, 5.0000000000000000, 5.0000000000000000,
+ -2.0000000000000000 },
+ { 0.36787944117144233, 5.0000000000000000, 5.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 5.0000000000000000,
+ 0.0000000000000000 },
+ { 2.7182818284590451, 5.0000000000000000, 5.0000000000000000,
+ 1.0000000000000000 },
+ { 7.3890560989306504, 5.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000 },
+ { 20.085536923187668, 5.0000000000000000, 5.0000000000000000,
+ 3.0000000000000000 },
+ { 54.598150033144236, 5.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000 },
+ { 148.41315910257660, 5.0000000000000000, 5.0000000000000000,
+ 5.0000000000000000 },
+ { 403.42879349273511, 5.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000 },
+ { 1096.6331584284585, 5.0000000000000000, 5.0000000000000000,
+ 7.0000000000000000 },
+ { 2980.9579870417283, 5.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000 },
+ { 8103.0839275753842, 5.0000000000000000, 5.0000000000000000,
+ 9.0000000000000000 },
+ { 22026.465794806718, 5.0000000000000000, 5.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler045 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 9.0949470177292824e-13
+// max(|f - f_GSL| / |f_GSL|): 1.4537973070007893e-13
+const testcase_conf_hyperg<double>
+data046[21] =
+{
+ { 0.0011648967743076431, 5.0000000000000000, 6.0000000000000000,
+ -10.000000000000000 },
+ { 0.0019205128456127479, 5.0000000000000000, 6.0000000000000000,
+ -9.0000000000000000 },
+ { 0.0032972446271226320, 5.0000000000000000, 6.0000000000000000,
+ -8.0000000000000000 },
+ { 0.0059047424914709006, 5.0000000000000000, 6.0000000000000000,
+ -7.0000000000000000 },
+ { 0.011033078698817415, 5.0000000000000000, 6.0000000000000000,
+ -6.0000000000000000 },
+ { 0.021485057853495849, 5.0000000000000000, 6.0000000000000000,
+ -5.0000000000000000 },
+ { 0.043495671658608563, 5.0000000000000000, 6.0000000000000000,
+ -4.0000000000000000 },
+ { 0.091228027395668113, 5.0000000000000000, 6.0000000000000000,
+ -3.0000000000000000 },
+ { 0.19744881503891684, 5.0000000000000000, 6.0000000000000000,
+ -2.0000000000000000 },
+ { 0.43918161928124549, 5.0000000000000000, 6.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 6.0000000000000000,
+ 0.0000000000000000 },
+ { 2.3226822806570353, 5.0000000000000000, 6.0000000000000000,
+ 1.0000000000000000 },
+ { 5.4863201236633126, 5.0000000000000000, 6.0000000000000000,
+ 2.0000000000000000 },
+ { 13.144500379942246, 5.0000000000000000, 6.0000000000000000,
+ 3.0000000000000000 },
+ { 31.873916035045458, 5.0000000000000000, 6.0000000000000000,
+ 4.0000000000000000 },
+ { 78.086286951596321, 5.0000000000000000, 6.0000000000000000,
+ 5.0000000000000000 },
+ { 192.98291046720357, 5.0000000000000000, 6.0000000000000000,
+ 6.0000000000000000 },
+ { 480.54877204888402, 5.0000000000000000, 6.0000000000000000,
+ 7.0000000000000000 },
+ { 1204.4605636118315, 5.0000000000000000, 6.0000000000000000,
+ 8.0000000000000000 },
+ { 3036.1329048350581, 5.0000000000000000, 6.0000000000000000,
+ 9.0000000000000000 },
+ { 7691.6406555465046, 5.0000000000000000, 6.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler046 = 1.0000000000000006e-11;
+
+// Test data for a=5.0000000000000000, c=7.0000000000000000.
+// max(|f - f_GSL|): 1.0004441719502211e-11
+// max(|f - f_GSL| / |f_GSL|): 5.0762860793473551e-14
+const testcase_conf_hyperg<double>
+data047[21] =
+{
+ { 0.0036308901122103932, 5.0000000000000000, 7.0000000000000000,
+ -10.000000000000000 },
+ { 0.0055327336019229401, 5.0000000000000000, 7.0000000000000000,
+ -9.0000000000000000 },
+ { 0.0086767852656603455, 5.0000000000000000, 7.0000000000000000,
+ -8.0000000000000000 },
+ { 0.014030481266326614, 5.0000000000000000, 7.0000000000000000,
+ -7.0000000000000000 },
+ { 0.023426839582149212, 5.0000000000000000, 7.0000000000000000,
+ -6.0000000000000000 },
+ { 0.040427681994512799, 5.0000000000000000, 7.0000000000000000,
+ -5.0000000000000000 },
+ { 0.072123784177593755, 5.0000000000000000, 7.0000000000000000,
+ -4.0000000000000000 },
+ { 0.13295857409596740, 5.0000000000000000, 7.0000000000000000,
+ -3.0000000000000000 },
+ { 0.25298991319893882, 5.0000000000000000, 7.0000000000000000,
+ -2.0000000000000000 },
+ { 0.49602437239337821, 5.0000000000000000, 7.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 7.0000000000000000,
+ 0.0000000000000000 },
+ { 2.0681072498819240, 5.0000000000000000, 7.0000000000000000,
+ 1.0000000000000000 },
+ { 4.3768811129698140, 5.0000000000000000, 7.0000000000000000,
+ 2.0000000000000000 },
+ { 9.4566368471992224, 5.0000000000000000, 7.0000000000000000,
+ 3.0000000000000000 },
+ { 20.811741224531826, 5.0000000000000000, 7.0000000000000000,
+ 4.0000000000000000 },
+ { 46.556488803696276, 5.0000000000000000, 7.0000000000000000,
+ 5.0000000000000000 },
+ { 105.66804767556316, 5.0000000000000000, 7.0000000000000000,
+ 6.0000000000000000 },
+ { 242.93097638084433, 5.0000000000000000, 7.0000000000000000,
+ 7.0000000000000000 },
+ { 564.89804380887358, 5.0000000000000000, 7.0000000000000000,
+ 8.0000000000000000 },
+ { 1326.9606865425994, 5.0000000000000000, 7.0000000000000000,
+ 9.0000000000000000 },
+ { 3145.3685154983905, 5.0000000000000000, 7.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler047 = 5.0000000000000029e-12;
+
+// Test data for a=5.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 6.2527760746888816e-13
+// max(|f - f_GSL| / |f_GSL|): 3.7668660800670828e-14
+const testcase_conf_hyperg<double>
+data048[21] =
+{
+ { 0.0075295293831406113, 5.0000000000000000, 8.0000000000000000,
+ -10.000000000000000 },
+ { 0.010936052508673187, 5.0000000000000000, 8.0000000000000000,
+ -9.0000000000000000 },
+ { 0.016247454253649721, 5.0000000000000000, 8.0000000000000000,
+ -8.0000000000000000 },
+ { 0.024729468107576008, 5.0000000000000000, 8.0000000000000000,
+ -7.0000000000000000 },
+ { 0.038615775445860964, 5.0000000000000000, 8.0000000000000000,
+ -6.0000000000000000 },
+ { 0.061937865588523586, 5.0000000000000000, 8.0000000000000000,
+ -5.0000000000000000 },
+ { 0.10213565389690644, 5.0000000000000000, 8.0000000000000000,
+ -4.0000000000000000 },
+ { 0.17324118243379236, 5.0000000000000000, 8.0000000000000000,
+ -3.0000000000000000 },
+ { 0.30228316551605494, 5.0000000000000000, 8.0000000000000000,
+ -2.0000000000000000 },
+ { 0.54238748802203829, 5.0000000000000000, 8.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 8.0000000000000000,
+ 0.0000000000000000 },
+ { 1.8922997283093959, 5.0000000000000000, 8.0000000000000000,
+ 1.0000000000000000 },
+ { 3.6699742831126270, 5.0000000000000000, 8.0000000000000000,
+ 2.0000000000000000 },
+ { 7.2831842359960941, 5.0000000000000000, 8.0000000000000000,
+ 3.0000000000000000 },
+ { 14.764676530664770, 5.0000000000000000, 8.0000000000000000,
+ 4.0000000000000000 },
+ { 30.522558591756702, 5.0000000000000000, 8.0000000000000000,
+ 5.0000000000000000 },
+ { 64.236147093730224, 5.0000000000000000, 8.0000000000000000,
+ 6.0000000000000000 },
+ { 137.40503032883331, 5.0000000000000000, 8.0000000000000000,
+ 7.0000000000000000 },
+ { 298.29153884828770, 5.0000000000000000, 8.0000000000000000,
+ 8.0000000000000000 },
+ { 656.29389355002752, 5.0000000000000000, 8.0000000000000000,
+ 9.0000000000000000 },
+ { 1461.6183101433730, 5.0000000000000000, 8.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler048 = 2.5000000000000015e-12;
+
+// Test data for a=5.0000000000000000, c=9.0000000000000000.
+// max(|f - f_GSL|): 1.4779288903810084e-12
+// max(|f - f_GSL| / |f_GSL|): 1.3332193464342236e-14
+const testcase_conf_hyperg<double>
+data049[21] =
+{
+ { 0.012801285049305222, 5.0000000000000000, 9.0000000000000000,
+ -10.000000000000000 },
+ { 0.017955923031350202, 5.0000000000000000, 9.0000000000000000,
+ -9.0000000000000000 },
+ { 0.025661650371090718, 5.0000000000000000, 9.0000000000000000,
+ -8.0000000000000000 },
+ { 0.037414616710204310, 5.0000000000000000, 9.0000000000000000,
+ -7.0000000000000000 },
+ { 0.055720934057414885, 5.0000000000000000, 9.0000000000000000,
+ -6.0000000000000000 },
+ { 0.084862956151756000, 5.0000000000000000, 9.0000000000000000,
+ -5.0000000000000000 },
+ { 0.13230635170162319, 5.0000000000000000, 9.0000000000000000,
+ -4.0000000000000000 },
+ { 0.21132914572142125, 5.0000000000000000, 9.0000000000000000,
+ -3.0000000000000000 },
+ { 0.34601808641639625, 5.0000000000000000, 9.0000000000000000,
+ -2.0000000000000000 },
+ { 0.58092180965710882, 5.0000000000000000, 9.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 9.0000000000000000,
+ 0.0000000000000000 },
+ { 1.7643922061378634, 5.0000000000000000, 9.0000000000000000,
+ 1.0000000000000000 },
+ { 3.1888010096332451, 5.0000000000000000, 9.0000000000000000,
+ 2.0000000000000000 },
+ { 5.8981194929479273, 5.0000000000000000, 9.0000000000000000,
+ 3.0000000000000000 },
+ { 11.152835510393174, 5.0000000000000000, 9.0000000000000000,
+ 4.0000000000000000 },
+ { 21.533483453443495, 5.0000000000000000, 9.0000000000000000,
+ 5.0000000000000000 },
+ { 42.397145995355721, 5.0000000000000000, 9.0000000000000000,
+ 6.0000000000000000 },
+ { 85.010891404859976, 5.0000000000000000, 9.0000000000000000,
+ 7.0000000000000000 },
+ { 173.36225868739959, 5.0000000000000000, 9.0000000000000000,
+ 8.0000000000000000 },
+ { 359.10444177844266, 5.0000000000000000, 9.0000000000000000,
+ 9.0000000000000000 },
+ { 754.64844371961408, 5.0000000000000000, 9.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler049 = 1.0000000000000008e-12;
+
+// Test data for a=5.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 5.1159076974727213e-13
+// max(|f - f_GSL| / |f_GSL|): 7.5019093654907020e-15
+const testcase_conf_hyperg<double>
+data050[21] =
+{
+ { 0.019313731161840469, 5.0000000000000000, 10.000000000000000,
+ -10.000000000000000 },
+ { 0.026361085775183927, 5.0000000000000000, 10.000000000000000,
+ -9.0000000000000000 },
+ { 0.036556772070711910, 5.0000000000000000, 10.000000000000000,
+ -8.0000000000000000 },
+ { 0.051563934048344140, 5.0000000000000000, 10.000000000000000,
+ -7.0000000000000000 },
+ { 0.074056625794521824, 5.0000000000000000, 10.000000000000000,
+ -6.0000000000000000 },
+ { 0.10841132531381445, 5.0000000000000000, 10.000000000000000,
+ -5.0000000000000000 },
+ { 0.16192115120742598, 5.0000000000000000, 10.000000000000000,
+ -4.0000000000000000 },
+ { 0.24696279814742436, 5.0000000000000000, 10.000000000000000,
+ -3.0000000000000000 },
+ { 0.38492640633381947, 5.0000000000000000, 10.000000000000000,
+ -2.0000000000000000 },
+ { 0.61345628229723270, 5.0000000000000000, 10.000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 10.000000000000000,
+ 0.0000000000000000 },
+ { 1.6675470647226096, 5.0000000000000000, 10.000000000000000,
+ 1.0000000000000000 },
+ { 2.8442428103603667, 5.0000000000000000, 10.000000000000000,
+ 2.0000000000000000 },
+ { 4.9603804008438397, 5.0000000000000000, 10.000000000000000,
+ 3.0000000000000000 },
+ { 8.8405953071624790, 5.0000000000000000, 10.000000000000000,
+ 4.0000000000000000 },
+ { 16.089667272320334, 5.0000000000000000, 10.000000000000000,
+ 5.0000000000000000 },
+ { 29.876575194426895, 5.0000000000000000, 10.000000000000000,
+ 6.0000000000000000 },
+ { 56.546719856432318, 5.0000000000000000, 10.000000000000000,
+ 7.0000000000000000 },
+ { 108.97420168465270, 5.0000000000000000, 10.000000000000000,
+ 8.0000000000000000 },
+ { 213.60609045832913, 5.0000000000000000, 10.000000000000000,
+ 9.0000000000000000 },
+ { 425.41323880637168, 5.0000000000000000, 10.000000000000000,
+ 10.000000000000000 },
+};
+const double toler050 = 5.0000000000000039e-13;
+
+// Test data for a=10.000000000000000, c=1.0000000000000000.
+// max(|f - f_GSL|): 4.7683715820312500e-06
+// max(|f - f_GSL| / |f_GSL|): 3.9070311524604618e-14
+const testcase_conf_hyperg<double>
+data051[21] =
+{
+ { 0.00067155063653961294, 10.000000000000000, 1.0000000000000000,
+ -10.000000000000000 },
+ { -0.00071555648905258684, 10.000000000000000, 1.0000000000000000,
+ -9.0000000000000000 },
+ { -0.0035372078786207375, 10.000000000000000, 1.0000000000000000,
+ -8.0000000000000000 },
+ { -0.0047884005574714370, 10.000000000000000, 1.0000000000000000,
+ -7.0000000000000000 },
+ { 0.0024787521766663585, 10.000000000000000, 1.0000000000000000,
+ -6.0000000000000000 },
+ { 0.018136827242522881, 10.000000000000000, 1.0000000000000000,
+ -5.0000000000000000 },
+ { 0.0099686175680129968, 10.000000000000000, 1.0000000000000000,
+ -4.0000000000000000 },
+ { -0.052832081031434205, 10.000000000000000, 1.0000000000000000,
+ -3.0000000000000000 },
+ { 0.0010979582061523968, 10.000000000000000, 1.0000000000000000,
+ -2.0000000000000000 },
+ { 0.11394854824644544, 10.000000000000000, 1.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 1.0000000000000000,
+ 0.0000000000000000 },
+ { 131.63017574352619, 10.000000000000000, 1.0000000000000000,
+ 1.0000000000000000 },
+ { 2431.2913698755478, 10.000000000000000, 1.0000000000000000,
+ 2.0000000000000000 },
+ { 27127.328899791049, 10.000000000000000, 1.0000000000000000,
+ 3.0000000000000000 },
+ { 232066.49977835570, 10.000000000000000, 1.0000000000000000,
+ 4.0000000000000000 },
+ { 1674401.3794931530, 10.000000000000000, 1.0000000000000000,
+ 5.0000000000000000 },
+ { 10707495.820386341, 10.000000000000000, 1.0000000000000000,
+ 6.0000000000000000 },
+ { 62515499.242815509, 10.000000000000000, 1.0000000000000000,
+ 7.0000000000000000 },
+ { 339773485.00937450, 10.000000000000000, 1.0000000000000000,
+ 8.0000000000000000 },
+ { 1742442474.2135217, 10.000000000000000, 1.0000000000000000,
+ 9.0000000000000000 },
+ { 8514625476.5462780, 10.000000000000000, 1.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler051 = 2.5000000000000015e-12;
+
+// Test data for a=10.000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 1.7881393432617188e-07
+// max(|f - f_GSL| / |f_GSL|): 3.0525079910466156e-12
+const testcase_conf_hyperg<double>
+data052[21] =
+{
+ { -0.00014116415550486912, 10.000000000000000, 2.0000000000000000,
+ -10.000000000000000 },
+ { -0.00016988130843806985, 10.000000000000000, 2.0000000000000000,
+ -9.0000000000000000 },
+ { 6.6619209703391378e-05, 10.000000000000000, 2.0000000000000000,
+ -8.0000000000000000 },
+ { 0.00072582919646365740, 10.000000000000000, 2.0000000000000000,
+ -7.0000000000000000 },
+ { 0.0012039653429522313, 10.000000000000000, 2.0000000000000000,
+ -6.0000000000000000 },
+ { -0.00061450715370021329, 10.000000000000000, 2.0000000000000000,
+ -5.0000000000000000 },
+ { -0.0053557899960354968, 10.000000000000000, 2.0000000000000000,
+ -4.0000000000000000 },
+ { -0.00078903612815141473, 10.000000000000000, 2.0000000000000000,
+ -3.0000000000000000 },
+ { 0.023725444715554326, 10.000000000000000, 2.0000000000000000,
+ -2.0000000000000000 },
+ { -0.057297669024384767, 10.000000000000000, 2.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 2.0000000000000000,
+ 0.0000000000000000 },
+ { 34.432116659636534, 10.000000000000000, 2.0000000000000000,
+ 1.0000000000000000 },
+ { 432.53475371634494, 10.000000000000000, 2.0000000000000000,
+ 2.0000000000000000 },
+ { 3789.1768909683506, 10.000000000000000, 2.0000000000000000,
+ 3.0000000000000000 },
+ { 27089.676185774806, 10.000000000000000, 2.0000000000000000,
+ 4.0000000000000000 },
+ { 169243.72183073507, 10.000000000000000, 2.0000000000000000,
+ 5.0000000000000000 },
+ { 959019.40135397331, 10.000000000000000, 2.0000000000000000,
+ 6.0000000000000000 },
+ { 5043073.3458297960, 10.000000000000000, 2.0000000000000000,
+ 7.0000000000000000 },
+ { 24989309.819281481, 10.000000000000000, 2.0000000000000000,
+ 8.0000000000000000 },
+ { 117948708.50540228, 10.000000000000000, 2.0000000000000000,
+ 9.0000000000000000 },
+ { 534524325.69810420, 10.000000000000000, 2.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler052 = 2.5000000000000017e-10;
+
+// Test data for a=10.000000000000000, c=3.0000000000000000.
+// max(|f - f_GSL|): 4.4703483581542969e-08
+// max(|f - f_GSL| / |f_GSL|): 3.1351462019253111e-11
+const testcase_conf_hyperg<double>
+data053[21] =
+{
+ { 1.4973169075105227e-05, 10.000000000000000, 3.0000000000000000,
+ -10.000000000000000 },
+ { 5.7627971015476266e-05, 10.000000000000000, 3.0000000000000000,
+ -9.0000000000000000 },
+ { 9.5964794084281178e-05, 10.000000000000000, 3.0000000000000000,
+ -8.0000000000000000 },
+ { 1.5479477810339013e-05, 10.000000000000000, 3.0000000000000000,
+ -7.0000000000000000 },
+ { -0.00035410745380947978, 10.000000000000000, 3.0000000000000000,
+ -6.0000000000000000 },
+ { -0.00078393993138610137, 10.000000000000000, 3.0000000000000000,
+ -5.0000000000000000 },
+ { 0.00038117202625584330, 10.000000000000000, 3.0000000000000000,
+ -4.0000000000000000 },
+ { 0.0045341794406447526, 10.000000000000000, 3.0000000000000000,
+ -3.0000000000000000 },
+ { -0.0031029253652133403, 10.000000000000000, 3.0000000000000000,
+ -2.0000000000000000 },
+ { -0.028487137061611361, 10.000000000000000, 3.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 3.0000000000000000,
+ 0.0000000000000000 },
+ { 15.691485606063274, 10.000000000000000, 3.0000000000000000,
+ 1.0000000000000000 },
+ { 141.71088859081416, 10.000000000000000, 3.0000000000000000,
+ 2.0000000000000000 },
+ { 997.55177799313731, 10.000000000000000, 3.0000000000000000,
+ 3.0000000000000000 },
+ { 6038.6324280926056, 10.000000000000000, 3.0000000000000000,
+ 4.0000000000000000 },
+ { 32946.952425437150, 10.000000000000000, 3.0000000000000000,
+ 5.0000000000000000 },
+ { 166431.66712118863, 10.000000000000000, 3.0000000000000000,
+ 6.0000000000000000 },
+ { 791818.30272061308, 10.000000000000000, 3.0000000000000000,
+ 7.0000000000000000 },
+ { 3589678.0198700386, 10.000000000000000, 3.0000000000000000,
+ 8.0000000000000000 },
+ { 15637649.698874988, 10.000000000000000, 3.0000000000000000,
+ 9.0000000000000000 },
+ { 65871447.346678361, 10.000000000000000, 3.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler053 = 2.5000000000000013e-09;
+
+// Test data for a=10.000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 3.7252902984619141e-09
+// max(|f - f_GSL| / |f_GSL|): 7.5580354912480585e-11
+const testcase_conf_hyperg<double>
+data054[21] =
+{
+ { 6.9661267889527048e-06, 10.000000000000000, 4.0000000000000000,
+ -10.000000000000000 },
+ { -3.0301514396282942e-06, 10.000000000000000, 4.0000000000000000,
+ -9.0000000000000000 },
+ { -3.7983599138168025e-05, 10.000000000000000, 4.0000000000000000,
+ -8.0000000000000000 },
+ { -9.3615660121163871e-05, 10.000000000000000, 4.0000000000000000,
+ -7.0000000000000000 },
+ { -7.0821490761895943e-05, 10.000000000000000, 4.0000000000000000,
+ -6.0000000000000000 },
+ { 0.00030692863727646260, 10.000000000000000, 4.0000000000000000,
+ -5.0000000000000000 },
+ { 0.0010659895649527829, 10.000000000000000, 4.0000000000000000,
+ -4.0000000000000000 },
+ { -0.00042230102633456049, 10.000000000000000, 4.0000000000000000,
+ -3.0000000000000000 },
+ { -0.010168047735237568, 10.000000000000000, 4.0000000000000000,
+ -2.0000000000000000 },
+ { 0.036903514708782073, 10.000000000000000, 4.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 4.0000000000000000,
+ 0.0000000000000000 },
+ { 9.3384756433214022, 10.000000000000000, 4.0000000000000000,
+ 1.0000000000000000 },
+ { 63.905561372021388, 10.000000000000000, 4.0000000000000000,
+ 2.0000000000000000 },
+ { 370.08498456728779, 10.000000000000000, 4.0000000000000000,
+ 3.0000000000000000 },
+ { 1922.9526217493540, 10.000000000000000, 4.0000000000000000,
+ 4.0000000000000000 },
+ { 9245.0380014351485, 10.000000000000000, 4.0000000000000000,
+ 5.0000000000000000 },
+ { 41898.961838459785, 10.000000000000000, 4.0000000000000000,
+ 6.0000000000000000 },
+ { 181211.14084739226, 10.000000000000000, 4.0000000000000000,
+ 7.0000000000000000 },
+ { 754384.25570692308, 10.000000000000000, 4.0000000000000000,
+ 8.0000000000000000 },
+ { 3042060.4915799876, 10.000000000000000, 4.0000000000000000,
+ 9.0000000000000000 },
+ { 11939626.424402930, 10.000000000000000, 4.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler054 = 5.0000000000000026e-09;
+
+// Test data for a=10.000000000000000, c=5.0000000000000000.
+// max(|f - f_GSL|): 1.1641532182693481e-10
+// max(|f - f_GSL| / |f_GSL|): 4.6734083284321249e-11
+const testcase_conf_hyperg<double>
+data055[21] =
+{
+ { -6.2454929831989742e-06, 10.000000000000000, 5.0000000000000000,
+ -10.000000000000000 },
+ { -1.1459481808048817e-05, 10.000000000000000, 5.0000000000000000,
+ -9.0000000000000000 },
+ { -8.1646988801669512e-06, 10.000000000000000, 5.0000000000000000,
+ -8.0000000000000000 },
+ { 3.1240400671775088e-05, 10.000000000000000, 5.0000000000000000,
+ -7.0000000000000000 },
+ { 0.00014164298152379191, 10.000000000000000, 5.0000000000000000,
+ -6.0000000000000000 },
+ { 0.00023172833594738382, 10.000000000000000, 5.0000000000000000,
+ -5.0000000000000000 },
+ { -0.00036825094062005215, 10.000000000000000, 5.0000000000000000,
+ -4.0000000000000000 },
+ { -0.0030227862937631683, 10.000000000000000, 5.0000000000000000,
+ -3.0000000000000000 },
+ { -0.00028642387986584918, 10.000000000000000, 5.0000000000000000,
+ -2.0000000000000000 },
+ { 0.10617896040159881, 10.000000000000000, 5.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 5.0000000000000000,
+ 0.0000000000000000 },
+ { 6.4803694966028260, 10.000000000000000, 5.0000000000000000,
+ 1.0000000000000000 },
+ { 35.201619637445276, 10.000000000000000, 5.0000000000000000,
+ 2.0000000000000000 },
+ { 171.58787257237464, 10.000000000000000, 5.0000000000000000,
+ 3.0000000000000000 },
+ { 775.87148867205678, 10.000000000000000, 5.0000000000000000,
+ 4.0000000000000000 },
+ { 3317.4071019773678, 10.000000000000000, 5.0000000000000000,
+ 5.0000000000000000 },
+ { 13578.260535269774, 10.000000000000000, 5.0000000000000000,
+ 6.0000000000000000 },
+ { 53651.761875039716, 10.000000000000000, 5.0000000000000000,
+ 7.0000000000000000 },
+ { 205900.60390283042, 10.000000000000000, 5.0000000000000000,
+ 8.0000000000000000 },
+ { 770979.49612334219, 10.000000000000000, 5.0000000000000000,
+ 9.0000000000000000 },
+ { 2826613.2348531331, 10.000000000000000, 5.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler055 = 2.5000000000000013e-09;
+
+// Test data for a=10.000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 2.3283064365386963e-10
+// max(|f - f_GSL| / |f_GSL|): 2.5542822249778647e-10
+const testcase_conf_hyperg<double>
+data056[21] =
+{
+ { 9.6084507433830306e-07, 10.000000000000000, 6.0000000000000000,
+ -10.000000000000000 },
+ { 7.7131127554174726e-06, 10.000000000000000, 6.0000000000000000,
+ -9.0000000000000000 },
+ { 2.3074149009167486e-05, 10.000000000000000, 6.0000000000000000,
+ -8.0000000000000000 },
+ { 4.0105919781332888e-05, 10.000000000000000, 6.0000000000000000,
+ -7.0000000000000000 },
+ { -1.0325734976052423e-20, 10.000000000000000, 6.0000000000000000,
+ -6.0000000000000000 },
+ { -0.00029188857701064686, 10.000000000000000, 6.0000000000000000,
+ -5.0000000000000000 },
+ { -0.0010659895649527829, 10.000000000000000, 6.0000000000000000,
+ -4.0000000000000000 },
+ { -0.00044452739614164207, 10.000000000000000, 6.0000000000000000,
+ -3.0000000000000000 },
+ { 0.020049671590609285, 10.000000000000000, 6.0000000000000000,
+ -2.0000000000000000 },
+ { 0.17092282236966813, 10.000000000000000, 6.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 6.0000000000000000,
+ 0.0000000000000000 },
+ { 4.9520550902714549, 10.000000000000000, 6.0000000000000000,
+ 1.0000000000000000 },
+ { 22.206263831706924, 10.000000000000000, 6.0000000000000000,
+ 2.0000000000000000 },
+ { 93.074943420842843, 10.000000000000000, 6.0000000000000000,
+ 3.0000000000000000 },
+ { 371.20964440523989, 10.000000000000000, 6.0000000000000000,
+ 4.0000000000000000 },
+ { 1424.6976175888547, 10.000000000000000, 6.0000000000000000,
+ 5.0000000000000000 },
+ { 5302.2070001902330, 10.000000000000000, 6.0000000000000000,
+ 6.0000000000000000 },
+ { 19239.311823447424, 10.000000000000000, 6.0000000000000000,
+ 7.0000000000000000 },
+ { 68341.221999215923, 10.000000000000000, 6.0000000000000000,
+ 8.0000000000000000 },
+ { 238389.83519072225, 10.000000000000000, 6.0000000000000000,
+ 9.0000000000000000 },
+ { 818592.04096678528, 10.000000000000000, 6.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler056 = 2.5000000000000012e-08;
+
+// Test data for a=10.000000000000000, c=7.0000000000000000.
+// max(|f - f_GSL|): 2.3283064365386963e-10
+// max(|f - f_GSL| / |f_GSL|): 1.7003920117988582e-08
+const testcase_conf_hyperg<double>
+data057[21] =
+{
+ { 3.9634859316455036e-06, 10.000000000000000, 7.0000000000000000,
+ -10.000000000000000 },
+ { 4.4074930030956985e-06, 10.000000000000000, 7.0000000000000000,
+ -9.0000000000000000 },
+ { -5.3248036175001926e-06, 10.000000000000000, 7.0000000000000000,
+ -8.0000000000000000 },
+ { -5.0660109197473119e-05, 10.000000000000000, 7.0000000000000000,
+ -7.0000000000000000 },
+ { -0.00017705372690473989, 10.000000000000000, 7.0000000000000000,
+ -6.0000000000000000 },
+ { -0.00034759250392107574, 10.000000000000000, 7.0000000000000000,
+ -5.0000000000000000 },
+ { 0.00029072442680530428, 10.000000000000000, 7.0000000000000000,
+ -4.0000000000000000 },
+ { 0.0071124383382662791, 10.000000000000000, 7.0000000000000000,
+ -3.0000000000000000 },
+ { 0.046185850628367824, 10.000000000000000, 7.0000000000000000,
+ -2.0000000000000000 },
+ { 0.22919473120601763, 10.000000000000000, 7.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 7.0000000000000000,
+ 0.0000000000000000 },
+ { 4.0342754120781059, 10.000000000000000, 7.0000000000000000,
+ 1.0000000000000000 },
+ { 15.423188523958418, 10.000000000000000, 7.0000000000000000,
+ 2.0000000000000000 },
+ { 56.669907747565212, 10.000000000000000, 7.0000000000000000,
+ 3.0000000000000000 },
+ { 201.92649139242229, 10.000000000000000, 7.0000000000000000,
+ 4.0000000000000000 },
+ { 702.01780019948944, 10.000000000000000, 7.0000000000000000,
+ 5.0000000000000000 },
+ { 2391.7564185640726, 10.000000000000000, 7.0000000000000000,
+ 6.0000000000000000 },
+ { 8011.5144629634615, 10.000000000000000, 7.0000000000000000,
+ 7.0000000000000000 },
+ { 26450.087535814702, 10.000000000000000, 7.0000000000000000,
+ 8.0000000000000000 },
+ { 86239.964657766584, 10.000000000000000, 7.0000000000000000,
+ 9.0000000000000000 },
+ { 278127.83396458329, 10.000000000000000, 7.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler057 = 1.0000000000000004e-06;
+
+// Test data for a=10.000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 2.9103830456733704e-11
+// max(|f - f_GSL| / |f_GSL|): 3.9656315544900790e-11
+const testcase_conf_hyperg<double>
+data058[21] =
+{
+ { -5.0444366402760974e-06, 10.000000000000000, 8.0000000000000000,
+ -10.000000000000000 },
+ { -1.5426225510834945e-05, 10.000000000000000, 8.0000000000000000,
+ -9.0000000000000000 },
+ { -3.7273625322501334e-05, 10.000000000000000, 8.0000000000000000,
+ -8.0000000000000000 },
+ { -6.3325136496841588e-05, 10.000000000000000, 8.0000000000000000,
+ -7.0000000000000000 },
+ { 0.0000000000000000, 10.000000000000000, 8.0000000000000000,
+ -6.0000000000000000 },
+ { 0.00065507818046664252, 10.000000000000000, 8.0000000000000000,
+ -5.0000000000000000 },
+ { 0.0040701419752742617, 10.000000000000000, 8.0000000000000000,
+ -4.0000000000000000 },
+ { 0.018670150637948978, 10.000000000000000, 8.0000000000000000,
+ -3.0000000000000000 },
+ { 0.075186268464784836, 10.000000000000000, 8.0000000000000000,
+ -2.0000000000000000 },
+ { 0.28101901756151842, 10.000000000000000, 8.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 8.0000000000000000,
+ 0.0000000000000000 },
+ { 3.4356061998579595, 10.000000000000000, 8.0000000000000000,
+ 1.0000000000000000 },
+ { 11.494087265003234, 10.000000000000000, 8.0000000000000000,
+ 2.0000000000000000 },
+ { 37.660381730976880, 10.000000000000000, 8.0000000000000000,
+ 3.0000000000000000 },
+ { 121.32922229587608, 10.000000000000000, 8.0000000000000000,
+ 4.0000000000000000 },
+ { 385.46195489141422, 10.000000000000000, 8.0000000000000000,
+ 5.0000000000000000 },
+ { 1210.2863804782053, 10.000000000000000, 8.0000000000000000,
+ 6.0000000000000000 },
+ { 3762.0609740531836, 10.000000000000000, 8.0000000000000000,
+ 7.0000000000000000 },
+ { 11592.614394051165, 10.000000000000000, 8.0000000000000000,
+ 8.0000000000000000 },
+ { 35450.992183142305, 10.000000000000000, 8.0000000000000000,
+ 9.0000000000000000 },
+ { 107684.94388572175, 10.000000000000000, 8.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler058 = 2.5000000000000013e-09;
+
+// Test data for a=10.000000000000000, c=9.0000000000000000.
+// max(|f - f_GSL|): 9.0949470177292824e-12
+// max(|f - f_GSL| / |f_GSL|): 3.7408279162146281e-11
+const testcase_conf_hyperg<double>
+data059[21] =
+{
+ { -5.0444366402760974e-06, 10.000000000000000, 9.0000000000000000,
+ -10.000000000000000 },
+ { 0.0000000000000000, 10.000000000000000, 9.0000000000000000,
+ -9.0000000000000000 },
+ { 3.7273625322501334e-05, 10.000000000000000, 9.0000000000000000,
+ -8.0000000000000000 },
+ { 0.00020264043678989247, 10.000000000000000, 9.0000000000000000,
+ -7.0000000000000000 },
+ { 0.00082625072555545290, 10.000000000000000, 9.0000000000000000,
+ -6.0000000000000000 },
+ { 0.0029946431107046520, 10.000000000000000, 9.0000000000000000,
+ -5.0000000000000000 },
+ { 0.010175354938185655, 10.000000000000000, 9.0000000000000000,
+ -4.0000000000000000 },
+ { 0.033191378911909299, 10.000000000000000, 9.0000000000000000,
+ -3.0000000000000000 },
+ { 0.10526077585069878, 10.000000000000000, 9.0000000000000000,
+ -2.0000000000000000 },
+ { 0.32700394770794872, 10.000000000000000, 9.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 9.0000000000000000,
+ 0.0000000000000000 },
+ { 3.0203131427322725, 10.000000000000000, 9.0000000000000000,
+ 1.0000000000000000 },
+ { 9.0310685653596838, 10.000000000000000, 9.0000000000000000,
+ 2.0000000000000000 },
+ { 26.780715897583555, 10.000000000000000, 9.0000000000000000,
+ 3.0000000000000000 },
+ { 78.863994492319449, 10.000000000000000, 9.0000000000000000,
+ 4.0000000000000000 },
+ { 230.86491415956360, 10.000000000000000, 9.0000000000000000,
+ 5.0000000000000000 },
+ { 672.38132248789179, 10.000000000000000, 9.0000000000000000,
+ 6.0000000000000000 },
+ { 1949.5700594283705, 10.000000000000000, 9.0000000000000000,
+ 7.0000000000000000 },
+ { 5630.6984199677090, 10.000000000000000, 9.0000000000000000,
+ 8.0000000000000000 },
+ { 16206.167855150768, 10.000000000000000, 9.0000000000000000,
+ 9.0000000000000000 },
+ { 46500.316677925293, 10.000000000000000, 9.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler059 = 2.5000000000000013e-09;
+
+// Test data for a=10.000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_conf_hyperg<double>
+data060[21] =
+{
+ { 4.5399929762484854e-05, 10.000000000000000, 10.000000000000000,
+ -10.000000000000000 },
+ { 0.00012340980408667956, 10.000000000000000, 10.000000000000000,
+ -9.0000000000000000 },
+ { 0.00033546262790251185, 10.000000000000000, 10.000000000000000,
+ -8.0000000000000000 },
+ { 0.00091188196555451624, 10.000000000000000, 10.000000000000000,
+ -7.0000000000000000 },
+ { 0.0024787521766663585, 10.000000000000000, 10.000000000000000,
+ -6.0000000000000000 },
+ { 0.0067379469990854670, 10.000000000000000, 10.000000000000000,
+ -5.0000000000000000 },
+ { 0.018315638888734179, 10.000000000000000, 10.000000000000000,
+ -4.0000000000000000 },
+ { 0.049787068367863944, 10.000000000000000, 10.000000000000000,
+ -3.0000000000000000 },
+ { 0.13533528323661270, 10.000000000000000, 10.000000000000000,
+ -2.0000000000000000 },
+ { 0.36787944117144233, 10.000000000000000, 10.000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 10.000000000000000,
+ 0.0000000000000000 },
+ { 2.7182818284590451, 10.000000000000000, 10.000000000000000,
+ 1.0000000000000000 },
+ { 7.3890560989306504, 10.000000000000000, 10.000000000000000,
+ 2.0000000000000000 },
+ { 20.085536923187668, 10.000000000000000, 10.000000000000000,
+ 3.0000000000000000 },
+ { 54.598150033144236, 10.000000000000000, 10.000000000000000,
+ 4.0000000000000000 },
+ { 148.41315910257660, 10.000000000000000, 10.000000000000000,
+ 5.0000000000000000 },
+ { 403.42879349273511, 10.000000000000000, 10.000000000000000,
+ 6.0000000000000000 },
+ { 1096.6331584284585, 10.000000000000000, 10.000000000000000,
+ 7.0000000000000000 },
+ { 2980.9579870417283, 10.000000000000000, 10.000000000000000,
+ 8.0000000000000000 },
+ { 8103.0839275753842, 10.000000000000000, 10.000000000000000,
+ 9.0000000000000000 },
+ { 22026.465794806718, 10.000000000000000, 10.000000000000000,
+ 10.000000000000000 },
+};
+const double toler060 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, c=1.0000000000000000.
+// max(|f - f_GSL|): 0.0039062500000000000
+// max(|f - f_GSL| / |f_GSL|): 3.8043537688323639e-14
+const testcase_conf_hyperg<double>
+data061[21] =
+{
+ { 0.00018021852293239509, 20.000000000000000, 1.0000000000000000,
+ -10.000000000000000 },
+ { 0.0017726368057851866, 20.000000000000000, 1.0000000000000000,
+ -9.0000000000000000 },
+ { 0.00058280040382329280, 20.000000000000000, 1.0000000000000000,
+ -8.0000000000000000 },
+ { -0.0049657717020590141, 20.000000000000000, 1.0000000000000000,
+ -7.0000000000000000 },
+ { -0.0012360336087128597, 20.000000000000000, 1.0000000000000000,
+ -6.0000000000000000 },
+ { 0.014898894139255305, 20.000000000000000, 1.0000000000000000,
+ -5.0000000000000000 },
+ { -0.013800784612552078, 20.000000000000000, 1.0000000000000000,
+ -4.0000000000000000 },
+ { -0.012192213426039619, 20.000000000000000, 1.0000000000000000,
+ -3.0000000000000000 },
+ { 0.050311246773136212, 20.000000000000000, 1.0000000000000000,
+ -2.0000000000000000 },
+ { -0.025985814502838493, 20.000000000000000, 1.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 1.0000000000000000,
+ 0.0000000000000000 },
+ { 1563.6577385252017, 20.000000000000000, 1.0000000000000000,
+ 1.0000000000000000 },
+ { 86377.091910766088, 20.000000000000000, 1.0000000000000000,
+ 2.0000000000000000 },
+ { 2216718.8789979252, 20.000000000000000, 1.0000000000000000,
+ 3.0000000000000000 },
+ { 38045018.520647161, 20.000000000000000, 1.0000000000000000,
+ 4.0000000000000000 },
+ { 504376263.68346804, 20.000000000000000, 1.0000000000000000,
+ 5.0000000000000000 },
+ { 5565635666.7972050, 20.000000000000000, 1.0000000000000000,
+ 6.0000000000000000 },
+ { 53451562646.544518, 20.000000000000000, 1.0000000000000000,
+ 7.0000000000000000 },
+ { 460009135340.33832, 20.000000000000000, 1.0000000000000000,
+ 8.0000000000000000 },
+ { 3620401937301.4907, 20.000000000000000, 1.0000000000000000,
+ 9.0000000000000000 },
+ { 26446266822604.152, 20.000000000000000, 1.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler061 = 2.5000000000000015e-12;
+
+// Test data for a=20.000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 0.00097656250000000000
+// max(|f - f_GSL| / |f_GSL|): 3.3638062074418344e-12
+const testcase_conf_hyperg<double>
+data062[21] =
+{
+ { 6.6647681992684102e-05, 20.000000000000000, 2.0000000000000000,
+ -10.000000000000000 },
+ { -3.7248253270227151e-05, 20.000000000000000, 2.0000000000000000,
+ -9.0000000000000000 },
+ { -0.00024392611307344034, 20.000000000000000, 2.0000000000000000,
+ -8.0000000000000000 },
+ { 2.4034559592246202e-05, 20.000000000000000, 2.0000000000000000,
+ -7.0000000000000000 },
+ { 0.00081645960584843073, 20.000000000000000, 2.0000000000000000,
+ -6.0000000000000000 },
+ { -0.00051326387116462039, 20.000000000000000, 2.0000000000000000,
+ -5.0000000000000000 },
+ { -0.0021786279856333920, 20.000000000000000, 2.0000000000000000,
+ -4.0000000000000000 },
+ { 0.0061029380625179973, 20.000000000000000, 2.0000000000000000,
+ -3.0000000000000000 },
+ { -0.011834301617155166, 20.000000000000000, 2.0000000000000000,
+ -2.0000000000000000 },
+ { 0.037622016973681061, 20.000000000000000, 2.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 2.0000000000000000,
+ 0.0000000000000000 },
+ { 303.10954080179744, 20.000000000000000, 2.0000000000000000,
+ 1.0000000000000000 },
+ { 11508.923130556599, 20.000000000000000, 2.0000000000000000,
+ 2.0000000000000000 },
+ { 234541.86023461280, 20.000000000000000, 2.0000000000000000,
+ 3.0000000000000000 },
+ { 3398931.2897027107, 20.000000000000000, 2.0000000000000000,
+ 4.0000000000000000 },
+ { 39382712.287920594, 20.000000000000000, 2.0000000000000000,
+ 5.0000000000000000 },
+ { 388350500.37087941, 20.000000000000000, 2.0000000000000000,
+ 6.0000000000000000 },
+ { 3385284070.5527182, 20.000000000000000, 2.0000000000000000,
+ 7.0000000000000000 },
+ { 26751585258.405773, 20.000000000000000, 2.0000000000000000,
+ 8.0000000000000000 },
+ { 195061928138.27676, 20.000000000000000, 2.0000000000000000,
+ 9.0000000000000000 },
+ { 1329571695324.3132, 20.000000000000000, 2.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler062 = 2.5000000000000017e-10;
+
+// Test data for a=20.000000000000000, c=3.0000000000000000.
+// max(|f - f_GSL|): 1.5258789062500000e-05
+// max(|f - f_GSL| / |f_GSL|): 1.0636412229856690e-11
+const testcase_conf_hyperg<double>
+data063[21] =
+{
+ { -8.6671962318505780e-06, 20.000000000000000, 3.0000000000000000,
+ -10.000000000000000 },
+ { -1.8205565180535425e-05, 20.000000000000000, 3.0000000000000000,
+ -9.0000000000000000 },
+ { 1.5620588717927631e-05, 20.000000000000000, 3.0000000000000000,
+ -8.0000000000000000 },
+ { 7.6532767373103759e-05, 20.000000000000000, 3.0000000000000000,
+ -7.0000000000000000 },
+ { -5.2708600380172109e-05, 20.000000000000000, 3.0000000000000000,
+ -6.0000000000000000 },
+ { -0.00028546308121326275, 20.000000000000000, 3.0000000000000000,
+ -5.0000000000000000 },
+ { 0.00056490746026256267, 20.000000000000000, 3.0000000000000000,
+ -4.0000000000000000 },
+ { -5.0602588875468348e-07, 20.000000000000000, 3.0000000000000000,
+ -3.0000000000000000 },
+ { -0.0021376080642211692, 20.000000000000000, 3.0000000000000000,
+ -2.0000000000000000 },
+ { 0.0028873127225376104, 20.000000000000000, 3.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 3.0000000000000000,
+ 0.0000000000000000 },
+ { 106.38207299128948, 20.000000000000000, 3.0000000000000000,
+ 1.0000000000000000 },
+ { 2880.5734732831320, 20.000000000000000, 3.0000000000000000,
+ 2.0000000000000000 },
+ { 47353.756965165718, 20.000000000000000, 3.0000000000000000,
+ 3.0000000000000000 },
+ { 584732.27978148905, 20.000000000000000, 3.0000000000000000,
+ 4.0000000000000000 },
+ { 5957333.1101320982, 20.000000000000000, 3.0000000000000000,
+ 5.0000000000000000 },
+ { 52725595.633352734, 20.000000000000000, 3.0000000000000000,
+ 6.0000000000000000 },
+ { 418560160.03369552, 20.000000000000000, 3.0000000000000000,
+ 7.0000000000000000 },
+ { 3045067611.3150902, 20.000000000000000, 3.0000000000000000,
+ 8.0000000000000000 },
+ { 20614600690.354652, 20.000000000000000, 3.0000000000000000,
+ 9.0000000000000000 },
+ { 131344201933.74118, 20.000000000000000, 3.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler063 = 1.0000000000000007e-09;
+
+// Test data for a=20.000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 1.5258789062500000e-05
+// max(|f - f_GSL| / |f_GSL|): 1.8743522900030841e-11
+const testcase_conf_hyperg<double>
+data064[21] =
+{
+ { -1.1286669552452399e-06, 20.000000000000000, 4.0000000000000000,
+ -10.000000000000000 },
+ { 3.9595188785137704e-06, 20.000000000000000, 4.0000000000000000,
+ -9.0000000000000000 },
+ { 8.6940153052790051e-06, 20.000000000000000, 4.0000000000000000,
+ -8.0000000000000000 },
+ { -1.0858814018067509e-05, 20.000000000000000, 4.0000000000000000,
+ -7.0000000000000000 },
+ { -4.1826023828710966e-05, 20.000000000000000, 4.0000000000000000,
+ -6.0000000000000000 },
+ { 6.6455893622436316e-05, 20.000000000000000, 4.0000000000000000,
+ -5.0000000000000000 },
+ { 0.00014238710517977906, 20.000000000000000, 4.0000000000000000,
+ -4.0000000000000000 },
+ { -0.00071796294700866132, 20.000000000000000, 4.0000000000000000,
+ -3.0000000000000000 },
+ { 0.0020884061677332645, 20.000000000000000, 4.0000000000000000,
+ -2.0000000000000000 },
+ { -0.012768833157321973, 20.000000000000000, 4.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 4.0000000000000000,
+ 0.0000000000000000 },
+ { 50.659916934657808, 20.000000000000000, 4.0000000000000000,
+ 1.0000000000000000 },
+ { 1014.3134442335910, 20.000000000000000, 4.0000000000000000,
+ 2.0000000000000000 },
+ { 13665.584449611577, 20.000000000000000, 4.0000000000000000,
+ 3.0000000000000000 },
+ { 145123.62797278623, 20.000000000000000, 4.0000000000000000,
+ 4.0000000000000000 },
+ { 1308144.4519382305, 20.000000000000000, 4.0000000000000000,
+ 5.0000000000000000 },
+ { 10438124.578674613, 20.000000000000000, 4.0000000000000000,
+ 6.0000000000000000 },
+ { 75719160.524424627, 20.000000000000000, 4.0000000000000000,
+ 7.0000000000000000 },
+ { 508510905.96310252, 20.000000000000000, 4.0000000000000000,
+ 8.0000000000000000 },
+ { 3203200954.5618095, 20.000000000000000, 4.0000000000000000,
+ 9.0000000000000000 },
+ { 19111993543.124691, 20.000000000000000, 4.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler064 = 1.0000000000000007e-09;
+
+// Test data for a=20.000000000000000, c=5.0000000000000000.
+// max(|f - f_GSL|): 3.3378601074218750e-06
+// max(|f - f_GSL| / |f_GSL|): 1.7481076775232650e-09
+const testcase_conf_hyperg<double>
+data065[21] =
+{
+ { 8.4755643455671027e-07, 20.000000000000000, 5.0000000000000000,
+ -10.000000000000000 },
+ { 8.5721061862565697e-07, 20.000000000000000, 5.0000000000000000,
+ -9.0000000000000000 },
+ { -2.8228700837555599e-06, 20.000000000000000, 5.0000000000000000,
+ -8.0000000000000000 },
+ { -6.6486802159657585e-06, 20.000000000000000, 5.0000000000000000,
+ -7.0000000000000000 },
+ { 1.1816828026110384e-05, 20.000000000000000, 5.0000000000000000,
+ -6.0000000000000000 },
+ { 3.6173872819745774e-05, 20.000000000000000, 5.0000000000000000,
+ -5.0000000000000000 },
+ { -0.00011481934287296670, 20.000000000000000, 5.0000000000000000,
+ -4.0000000000000000 },
+ { 1.2650647218867087e-07, 20.000000000000000, 5.0000000000000000,
+ -3.0000000000000000 },
+ { 0.0010626537950495965, 20.000000000000000, 5.0000000000000000,
+ -2.0000000000000000 },
+ { -0.0085499011205641944, 20.000000000000000, 5.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 5.0000000000000000,
+ 0.0000000000000000 },
+ { 29.126637808809392, 20.000000000000000, 5.0000000000000000,
+ 1.0000000000000000 },
+ { 446.26914983518060, 20.000000000000000, 5.0000000000000000,
+ 2.0000000000000000 },
+ { 5005.6470164856382, 20.000000000000000, 5.0000000000000000,
+ 3.0000000000000000 },
+ { 46145.715220935184, 20.000000000000000, 5.0000000000000000,
+ 4.0000000000000000 },
+ { 370342.18574452243, 20.000000000000000, 5.0000000000000000,
+ 5.0000000000000000 },
+ { 2676402.7371661114, 20.000000000000000, 5.0000000000000000,
+ 6.0000000000000000 },
+ { 17803174.102030005, 20.000000000000000, 5.0000000000000000,
+ 7.0000000000000000 },
+ { 110674464.63597310, 20.000000000000000, 5.0000000000000000,
+ 8.0000000000000000 },
+ { 650149739.34228492, 20.000000000000000, 5.0000000000000000,
+ 9.0000000000000000 },
+ { 3639417243.5150661, 20.000000000000000, 5.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler065 = 1.0000000000000005e-07;
+
+// Test data for a=20.000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 3.5762786865234375e-07
+// max(|f - f_GSL| / |f_GSL|): 7.4494573571551227e-09
+const testcase_conf_hyperg<double>
+data066[21] =
+{
+ { -1.9022359545310046e-08, 20.000000000000000, 6.0000000000000000,
+ -10.000000000000000 },
+ { -7.4533809656234698e-07, 20.000000000000000, 6.0000000000000000,
+ -9.0000000000000000 },
+ { -9.7852420358724080e-07, 20.000000000000000, 6.0000000000000000,
+ -8.0000000000000000 },
+ { 3.0181569866746340e-06, 20.000000000000000, 6.0000000000000000,
+ -7.0000000000000000 },
+ { 7.9816910701457280e-06, 20.000000000000000, 6.0000000000000000,
+ -6.0000000000000000 },
+ { -2.0133163153966071e-05, 20.000000000000000, 6.0000000000000000,
+ -5.0000000000000000 },
+ { -4.7462368393259685e-05, 20.000000000000000, 6.0000000000000000,
+ -4.0000000000000000 },
+ { 0.00031910869938964821, 20.000000000000000, 6.0000000000000000,
+ -3.0000000000000000 },
+ { -0.0010380528468056441, 20.000000000000000, 6.0000000000000000,
+ -2.0000000000000000 },
+ { 0.0084752097558651058, 20.000000000000000, 6.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 6.0000000000000000,
+ 0.0000000000000000 },
+ { 19.002159564861387, 20.000000000000000, 6.0000000000000000,
+ 1.0000000000000000 },
+ { 229.93981298721295, 20.000000000000000, 6.0000000000000000,
+ 2.0000000000000000 },
+ { 2180.3120758940972, 20.000000000000000, 6.0000000000000000,
+ 3.0000000000000000 },
+ { 17610.732510305290, 20.000000000000000, 6.0000000000000000,
+ 4.0000000000000000 },
+ { 126633.20907014767, 20.000000000000000, 6.0000000000000000,
+ 5.0000000000000000 },
+ { 832692.83016874129, 20.000000000000000, 6.0000000000000000,
+ 6.0000000000000000 },
+ { 5097225.0940651651, 20.000000000000000, 6.0000000000000000,
+ 7.0000000000000000 },
+ { 29414585.342530526, 20.000000000000000, 6.0000000000000000,
+ 8.0000000000000000 },
+ { 161513229.88138971, 20.000000000000000, 6.0000000000000000,
+ 9.0000000000000000 },
+ { 849871092.10959554, 20.000000000000000, 6.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler066 = 5.0000000000000019e-07;
+
+// Test data for a=20.000000000000000, c=7.0000000000000000.
+// max(|f - f_GSL|): 1.7881393432617188e-07
+// max(|f - f_GSL| / |f_GSL|): 2.3690711970375556e-09
+const testcase_conf_hyperg<double>
+data067[21] =
+{
+ { -1.7754301607387146e-07, 20.000000000000000, 7.0000000000000000,
+ -10.000000000000000 },
+ { -6.2128605089471266e-08, 20.000000000000000, 7.0000000000000000,
+ -9.0000000000000000 },
+ { 9.1338873372533148e-07, 20.000000000000000, 7.0000000000000000,
+ -8.0000000000000000 },
+ { 1.6657400269273180e-06, 20.000000000000000, 7.0000000000000000,
+ -7.0000000000000000 },
+ { -4.7904165143355465e-06, 20.000000000000000, 7.0000000000000000,
+ -6.0000000000000000 },
+ { -1.5503088351319618e-05, 20.000000000000000, 7.0000000000000000,
+ -5.0000000000000000 },
+ { 5.6425108496954337e-05, 20.000000000000000, 7.0000000000000000,
+ -4.0000000000000000 },
+ { 9.1083552345479015e-05, 20.000000000000000, 7.0000000000000000,
+ -3.0000000000000000 },
+ { -0.0018058773247853388, 20.000000000000000, 7.0000000000000000,
+ -2.0000000000000000 },
+ { 0.032850147696977743, 20.000000000000000, 7.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 7.0000000000000000,
+ 0.0000000000000000 },
+ { 13.551527852090807, 20.000000000000000, 7.0000000000000000,
+ 1.0000000000000000 },
+ { 133.23579819973105, 20.000000000000000, 7.0000000000000000,
+ 2.0000000000000000 },
+ { 1083.6769250393436, 20.000000000000000, 7.0000000000000000,
+ 3.0000000000000000 },
+ { 7739.1410905637622, 20.000000000000000, 7.0000000000000000,
+ 4.0000000000000000 },
+ { 50175.328973240226, 20.000000000000000, 7.0000000000000000,
+ 5.0000000000000000 },
+ { 301599.46814102860, 20.000000000000000, 7.0000000000000000,
+ 6.0000000000000000 },
+ { 1705051.1866143662, 20.000000000000000, 7.0000000000000000,
+ 7.0000000000000000 },
+ { 9159788.2353733145, 20.000000000000000, 7.0000000000000000,
+ 8.0000000000000000 },
+ { 47122070.398665302, 20.000000000000000, 7.0000000000000000,
+ 9.0000000000000000 },
+ { 233529421.53991735, 20.000000000000000, 7.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler067 = 2.5000000000000009e-07;
+
+// Test data for a=20.000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 5.9604644775390625e-08
+// max(|f - f_GSL| / |f_GSL|): 1.2249590184458766e-09
+const testcase_conf_hyperg<double>
+data068[21] =
+{
+ { 4.4385719622857099e-08, 20.000000000000000, 8.0000000000000000,
+ -10.000000000000000 },
+ { 2.7870855352561944e-07, 20.000000000000000, 8.0000000000000000,
+ -9.0000000000000000 },
+ { 2.7221706037028333e-07, 20.000000000000000, 8.0000000000000000,
+ -8.0000000000000000 },
+ { -1.5211293805365477e-06, 20.000000000000000, 8.0000000000000000,
+ -7.0000000000000000 },
+ { -4.2978336531553913e-06, 20.000000000000000, 8.0000000000000000,
+ -6.0000000000000000 },
+ { 1.1339557446266733e-05, 20.000000000000000, 8.0000000000000000,
+ -5.0000000000000000 },
+ { 5.3526365220658988e-05, 20.000000000000000, 8.0000000000000000,
+ -4.0000000000000000 },
+ { -0.00029461053269513242, 20.000000000000000, 8.0000000000000000,
+ -3.0000000000000000 },
+ { -0.00026793636646740143, 20.000000000000000, 8.0000000000000000,
+ -2.0000000000000000 },
+ { 0.061061258434452807, 20.000000000000000, 8.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 8.0000000000000000,
+ 0.0000000000000000 },
+ { 10.312756690132909, 20.000000000000000, 8.0000000000000000,
+ 1.0000000000000000 },
+ { 84.471824856846425, 20.000000000000000, 8.0000000000000000,
+ 2.0000000000000000 },
+ { 597.47335666854985, 20.000000000000000, 8.0000000000000000,
+ 3.0000000000000000 },
+ { 3805.9786364107408, 20.000000000000000, 8.0000000000000000,
+ 4.0000000000000000 },
+ { 22386.068461641658, 20.000000000000000, 8.0000000000000000,
+ 5.0000000000000000 },
+ { 123573.63516975302, 20.000000000000000, 8.0000000000000000,
+ 6.0000000000000000 },
+ { 647514.24141570868, 20.000000000000000, 8.0000000000000000,
+ 7.0000000000000000 },
+ { 3247628.2434586394, 20.000000000000000, 8.0000000000000000,
+ 8.0000000000000000 },
+ { 15690070.625286419, 20.000000000000000, 8.0000000000000000,
+ 9.0000000000000000 },
+ { 73379158.893325046, 20.000000000000000, 8.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler068 = 1.0000000000000005e-07;
+
+// Test data for a=20.000000000000000, c=9.0000000000000000.
+// max(|f - f_GSL|): 7.4505805969238281e-09
+// max(|f - f_GSL| / |f_GSL|): 1.7712852063552690e-08
+const testcase_conf_hyperg<double>
+data069[21] =
+{
+ { 7.3976263576568592e-08, 20.000000000000000, 9.0000000000000000,
+ -10.000000000000000 },
+ { -9.0753238092548168e-09, 20.000000000000000, 9.0000000000000000,
+ -9.0000000000000000 },
+ { -5.5549484970396693e-07, 20.000000000000000, 9.0000000000000000,
+ -8.0000000000000000 },
+ { -1.1104933512848787e-06, 20.000000000000000, 9.0000000000000000,
+ -7.0000000000000000 },
+ { 3.2483424385770483e-06, 20.000000000000000, 9.0000000000000000,
+ -6.0000000000000000 },
+ { 1.7493431113569438e-05, 20.000000000000000, 9.0000000000000000,
+ -5.0000000000000000 },
+ { -3.9066110636117233e-05, 20.000000000000000, 9.0000000000000000,
+ -4.0000000000000000 },
+ { -0.00040356155493308509, 20.000000000000000, 9.0000000000000000,
+ -3.0000000000000000 },
+ { 0.0037671531470534550, 20.000000000000000, 9.0000000000000000,
+ -2.0000000000000000 },
+ { 0.090944344485248435, 20.000000000000000, 9.0000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 9.0000000000000000,
+ 0.0000000000000000 },
+ { 8.2390942957149722, 20.000000000000000, 9.0000000000000000,
+ 1.0000000000000000 },
+ { 57.468054562166706, 20.000000000000000, 9.0000000000000000,
+ 2.0000000000000000 },
+ { 358.00109079775746, 20.000000000000000, 9.0000000000000000,
+ 3.0000000000000000 },
+ { 2051.3704389047002, 20.000000000000000, 9.0000000000000000,
+ 4.0000000000000000 },
+ { 11012.597503064209, 20.000000000000000, 9.0000000000000000,
+ 5.0000000000000000 },
+ { 56082.113308934473, 20.000000000000000, 9.0000000000000000,
+ 6.0000000000000000 },
+ { 273348.46918863337, 20.000000000000000, 9.0000000000000000,
+ 7.0000000000000000 },
+ { 1283674.4996444662, 20.000000000000000, 9.0000000000000000,
+ 8.0000000000000000 },
+ { 5838026.8730425332, 20.000000000000000, 9.0000000000000000,
+ 9.0000000000000000 },
+ { 25817349.972859699, 20.000000000000000, 9.0000000000000000,
+ 10.000000000000000 },
+};
+const double toler069 = 1.0000000000000004e-06;
+
+// Test data for a=20.000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 1.8626451492309570e-09
+// max(|f - f_GSL| / |f_GSL|): 3.6960743356593788e-09
+const testcase_conf_hyperg<double>
+data070[21] =
+{
+ { -4.1157677792944960e-08, 20.000000000000000, 10.000000000000000,
+ -10.000000000000000 },
+ { -2.0187210039960914e-07, 20.000000000000000, 10.000000000000000,
+ -9.0000000000000000 },
+ { -2.2272304939386817e-07, 20.000000000000000, 10.000000000000000,
+ -8.0000000000000000 },
+ { 1.2925568212606171e-06, 20.000000000000000, 10.000000000000000,
+ -7.0000000000000000 },
+ { 5.5744573775996210e-06, 20.000000000000000, 10.000000000000000,
+ -6.0000000000000000 },
+ { -6.2568272011787289e-06, 20.000000000000000, 10.000000000000000,
+ -5.0000000000000000 },
+ { -0.00011955177906335608, 20.000000000000000, 10.000000000000000,
+ -4.0000000000000000 },
+ { 9.2475405516991146e-05, 20.000000000000000, 10.000000000000000,
+ -3.0000000000000000 },
+ { 0.010123531287569976, 20.000000000000000, 10.000000000000000,
+ -2.0000000000000000 },
+ { 0.12118937229909534, 20.000000000000000, 10.000000000000000,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 10.000000000000000,
+ 0.0000000000000000 },
+ { 6.8319857942415538, 20.000000000000000, 10.000000000000000,
+ 1.0000000000000000 },
+ { 41.356658140815220, 20.000000000000000, 10.000000000000000,
+ 2.0000000000000000 },
+ { 229.57496033810904, 20.000000000000000, 10.000000000000000,
+ 3.0000000000000000 },
+ { 1192.7830549969501, 20.000000000000000, 10.000000000000000,
+ 4.0000000000000000 },
+ { 5878.6003887215920, 20.000000000000000, 10.000000000000000,
+ 5.0000000000000000 },
+ { 27741.749322673899, 20.000000000000000, 10.000000000000000,
+ 6.0000000000000000 },
+ { 126220.54599305880, 20.000000000000000, 10.000000000000000,
+ 7.0000000000000000 },
+ { 556592.10886612453, 20.000000000000000, 10.000000000000000,
+ 8.0000000000000000 },
+ { 2388555.2873243927, 20.000000000000000, 10.000000000000000,
+ 9.0000000000000000 },
+ { 10008079.497419352, 20.000000000000000, 10.000000000000000,
+ 10.000000000000000 },
+};
+const double toler070 = 2.5000000000000009e-07;
+
+template<typename Tp, unsigned int Num>
+ void
+ test(const testcase_conf_hyperg<Tp> (&data)[Num], Tp toler)
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = Num;
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = __gnu_cxx::conf_hyperg(data[i].a, data[i].c,
+ data[i].x);
+ const Tp f0 = data[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < toler);
+ }
+
+int
+main()
+{
+ test(data001, toler001);
+ test(data002, toler002);
+ test(data003, toler003);
+ test(data004, toler004);
+ test(data005, toler005);
+ test(data006, toler006);
+ test(data007, toler007);
+ test(data008, toler008);
+ test(data009, toler009);
+ test(data010, toler010);
+ test(data011, toler011);
+ test(data012, toler012);
+ test(data013, toler013);
+ test(data014, toler014);
+ test(data015, toler015);
+ test(data016, toler016);
+ test(data017, toler017);
+ test(data018, toler018);
+ test(data019, toler019);
+ test(data020, toler020);
+ test(data021, toler021);
+ test(data022, toler022);
+ test(data023, toler023);
+ test(data024, toler024);
+ test(data025, toler025);
+ test(data026, toler026);
+ test(data027, toler027);
+ test(data028, toler028);
+ test(data029, toler029);
+ test(data030, toler030);
+ test(data031, toler031);
+ test(data032, toler032);
+ test(data033, toler033);
+ test(data034, toler034);
+ test(data035, toler035);
+ test(data036, toler036);
+ test(data037, toler037);
+ test(data038, toler038);
+ test(data039, toler039);
+ test(data040, toler040);
+ test(data041, toler041);
+ test(data042, toler042);
+ test(data043, toler043);
+ test(data044, toler044);
+ test(data045, toler045);
+ test(data046, toler046);
+ test(data047, toler047);
+ test(data048, toler048);
+ test(data049, toler049);
+ test(data050, toler050);
+ test(data051, toler051);
+ test(data052, toler052);
+ test(data053, toler053);
+ test(data054, toler054);
+ test(data055, toler055);
+ test(data056, toler056);
+ test(data057, toler057);
+ test(data058, toler058);
+ test(data059, toler059);
+ test(data060, toler060);
+ test(data061, toler061);
+ test(data062, toler062);
+ test(data063, toler063);
+ test(data064, toler064);
+ test(data065, toler065);
+ test(data066, toler066);
+ test(data067, toler067);
+ test(data068, toler068);
+ test(data069, toler069);
+ test(data070, toler070);
+ return 0;
+}
Index: testsuite/ext/special_functions/conf_hyperg/compile.cc
===================================================================
--- testsuite/ext/special_functions/conf_hyperg/compile.cc (revision 0)
+++ testsuite/ext/special_functions/conf_hyperg/compile.cc (working copy)
@@ -0,0 +1,40 @@
+// { dg-do compile }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// conf_hyperg
+
+#include <cmath>
+
+void
+test01()
+{
+ float af = 2.0F, cf = 3.0F, xf = 0.5F;
+ double ad = 2.0, cd = 3.0, xd = 0.5;
+ long double al = 2.0L, cl = 3.0L, xl = 0.5L;
+
+ __gnu_cxx::conf_hyperg(af, cf, xf);
+ __gnu_cxx::conf_hypergf(af, cf, xf);
+ __gnu_cxx::conf_hyperg(ad, cd, xd);
+ __gnu_cxx::conf_hyperg(al, cl, xl);
+ __gnu_cxx::conf_hypergl(al, cl, xl);
+
+ return;
+}
+
Index: testsuite/ext/special_functions/hyperg/check_nan.cc
===================================================================
--- testsuite/ext/special_functions/hyperg/check_nan.cc (revision 0)
+++ testsuite/ext/special_functions/hyperg/check_nan.cc (working copy)
@@ -0,0 +1,176 @@
+// { dg-require-c-std "" }
+// { dg-add-options ieee }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// hyperg
+
+#include <cmath>
+#include <testsuite_hooks.h>
+
+void
+test01()
+{
+ float af = std::numeric_limits<float>::quiet_NaN();
+ double ad = std::numeric_limits<double>::quiet_NaN();
+ long double al = std::numeric_limits<long double>::quiet_NaN();
+
+ float bf = 10.0F;
+ double bd = 10.0;
+ long double bl = 10.0L;
+
+ float cf = 3.0F;
+ double cd = 3.0;
+ long double cl = 3.0L;
+
+ float xf = 0.5F;
+ double xd = 0.5;
+ long double xl = 0.5L;
+
+ float a = __gnu_cxx::hyperg(af, bf, cf, xf);
+ float b = __gnu_cxx::hypergf(af, bf, cf, xf);
+ double c = __gnu_cxx::hyperg(ad, bd, cd, xd);
+ long double d = __gnu_cxx::hyperg(al, bl, cl, xl);
+ long double e = __gnu_cxx::hypergl(al, bl, cl, xl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+void
+test02()
+{
+ float af = 2.0F;
+ double ad = 2.0;
+ long double al = 2.0L;
+
+ float bf = std::numeric_limits<float>::quiet_NaN();
+ double bd = std::numeric_limits<double>::quiet_NaN();
+ long double bl = std::numeric_limits<long double>::quiet_NaN();
+
+ float cf = 3.0F;
+ double cd = 3.0;
+ long double cl = 3.0L;
+
+ float xf = 0.5F;
+ double xd = 0.5;
+ long double xl = 0.5L;
+
+ float a = __gnu_cxx::hyperg(af, bf, cf, xf);
+ float b = __gnu_cxx::hypergf(af, bf, cf, xf);
+ double c = __gnu_cxx::hyperg(ad, bd, cd, xd);
+ long double d = __gnu_cxx::hyperg(al, bl, cl, xl);
+ long double e = __gnu_cxx::hypergl(al, bl, cl, xl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+void
+test03()
+{
+ float af = 2.0F;
+ double ad = 2.0;
+ long double al = 2.0L;
+
+ float bf = 10.0F;
+ double bd = 10.0;
+ long double bl = 10.0L;
+
+ float cf = std::numeric_limits<float>::quiet_NaN();
+ double cd = std::numeric_limits<double>::quiet_NaN();
+ long double cl = std::numeric_limits<long double>::quiet_NaN();
+
+ float xf = 0.5F;
+ double xd = 0.5;
+ long double xl = 0.5L;
+
+ float a = __gnu_cxx::hyperg(af, bf, cf, xf);
+ float b = __gnu_cxx::hypergf(af, bf, cf, xf);
+ double c = __gnu_cxx::hyperg(ad, bd, cd, xd);
+ long double d = __gnu_cxx::hyperg(al, bl, cl, xl);
+ long double e = __gnu_cxx::hypergl(al, bl, cl, xl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+void
+test04()
+{
+ float af = 2.0F;
+ double ad = 2.0;
+ long double al = 2.0L;
+
+ float bf = 10.0F;
+ double bd = 10.0;
+ long double bl = 10.0L;
+
+ float cf = 3.0F;
+ double cd = 3.0;
+ long double cl = 3.0L;
+
+ float xf = std::numeric_limits<float>::quiet_NaN();
+ double xd = std::numeric_limits<double>::quiet_NaN();
+ long double xl = std::numeric_limits<long double>::quiet_NaN();
+
+ float a = __gnu_cxx::hyperg(af, bf, cf, xf);
+ float b = __gnu_cxx::hypergf(af, bf, cf, xf);
+ double c = __gnu_cxx::hyperg(ad, bd, cd, xd);
+ long double d = __gnu_cxx::hyperg(al, bl, cl, xl);
+ long double e = __gnu_cxx::hypergl(al, bl, cl, xl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+int
+main()
+{
+ test01();
+ test02();
+ test03();
+ test04();
+ return 0;
+}
+
Index: testsuite/ext/special_functions/hyperg/check_value.cc
===================================================================
--- testsuite/ext/special_functions/hyperg/check_value.cc (revision 0)
+++ testsuite/ext/special_functions/hyperg/check_value.cc (working copy)
@@ -0,0 +1,11831 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+//
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// hyperg
+// Compare against values generated by the GNU Scientific Library.
+// The GSL can be found on the web: http://www.gnu.org/software/gsl/
+#include <limits>
+#include <cmath>
+#if defined(__TEST_DEBUG)
+# include <iostream>
+# define VERIFY(A) \
+ if (!(A)) \
+ { \
+ std::cout << "line " << __LINE__ \
+ << " max_abs_frac = " << max_abs_frac \
+ << std::endl; \
+ }
+#else
+# include <testsuite_hooks.h>
+#endif
+#include <specfun_testcase.h>
+
+
+// Test data for a=0.0000000000000000, b=0.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data001[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler001 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=0.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data002[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler002 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=0.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data003[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler003 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=0.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data004[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler004 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=0.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data005[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler005 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=0.50000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data006[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler006 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=0.50000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data007[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler007 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=0.50000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data008[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler008 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=0.50000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data009[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler009 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=0.50000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data010[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler010 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=1.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data011[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler011 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=1.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data012[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler012 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=1.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data013[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler013 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=1.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data014[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler014 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=1.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data015[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler015 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=2.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data016[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler016 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=2.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data017[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler017 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=2.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data018[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler018 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=2.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data019[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler019 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=2.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data020[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler020 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=5.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data021[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler021 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=5.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data022[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler022 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=5.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data023[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler023 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=5.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data024[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler024 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=5.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data025[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler025 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=10.000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data026[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler026 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=10.000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data027[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler027 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=10.000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data028[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler028 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=10.000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data029[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler029 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=10.000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data030[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler030 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=20.000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data031[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler031 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=20.000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data032[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler032 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=20.000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data033[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler033 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=20.000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data034[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler034 = 2.5000000000000020e-13;
+
+// Test data for a=0.0000000000000000, b=20.000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data035[19] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler035 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=0.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data036[19] =
+{
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler036 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=0.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data037[19] =
+{
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler037 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=0.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data038[19] =
+{
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler038 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=0.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data039[19] =
+{
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler039 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=0.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data040[19] =
+{
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler040 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=0.50000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 2.2734148235941270e-16
+const testcase_hyperg<double>
+data041[19] =
+{
+ { 0.91383715388743736, 0.50000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.92151232618202372, 0.50000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.92955086110354845, 0.50000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.93798900119104855, 0.50000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.94686887307107392, 0.50000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.95623987262143295, 0.50000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.96616049387450131, 0.50000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.97670078782187519, 0.50000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.98794573712298384, 0.50000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.0129947682256604, 0.50000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.0270980168168973, 0.50000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1.0425304520063581, 0.50000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 1.0595915916161471, 0.50000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1.0787052023767585, 0.50000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 1.1005053642285867, 0.50000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 1.1260196351148746, 0.50000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 1.1571341977338991, 0.50000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 1.1982111053717450, 0.50000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler041 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=0.50000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 2.2341054918357306e-16
+const testcase_hyperg<double>
+data042[19] =
+{
+ { 0.95255425675562699, 0.50000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.95712841850078267, 0.50000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.96184734120034554, 0.50000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.96672141255196176, 0.50000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.97176228710138646, 0.50000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.97698311668286320, 0.50000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.98239883902556036, 0.50000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.98802654401961032, 0.50000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.99388594556732701, 0.50000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.0063957328951061, 0.50000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.0131053706824598, 0.50000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.0201679332118803, 0.50000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.0276315524377497, 0.50000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1.0355569942816882, 0.50000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 1.0440233080381554, 0.50000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 1.0531375808028993, 0.50000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1.0630536689840200, 0.50000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 1.0740149570414563, 0.50000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler042 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=0.50000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 5.5511151231257827e-16
+// max(|f - f_GSL| / |f_GSL|): 5.5963253065363064e-16
+const testcase_hyperg<double>
+data043[19] =
+{
+ { 0.96694084713323880, 0.50000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.97024454918852632, 0.50000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.97362815600391439, 0.50000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.97709622064205104, 0.50000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.98065374770570635, 0.50000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.98430626119885511, 0.50000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.98805988669621048, 0.50000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.99192145185739655, 0.50000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.99589861079880937, 0.50000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0042354366729904, 0.50000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.0086161755545404, 0.50000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.0131552481403503, 0.50000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.0178679218284707, 0.50000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.0227723400312978, 0.50000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.0278904483717863, 0.50000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1.0332494012993472, 0.50000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1.0388838453357794, 0.50000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 1.0448400142331342, 0.50000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler043 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=0.50000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 3.3511105824376917e-16
+const testcase_hyperg<double>
+data044[19] =
+{
+ { 0.97456073259047449, 0.50000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.97715689327833399, 0.50000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.97980416868943110, 0.50000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.98250498942832487, 0.50000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.98526199049760810, 0.50000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.98807803762902791, 0.50000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.99095625840920321, 0.50000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.99390007937387959, 0.50000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.99691327061866730, 0.50000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0031648997547440, 0.50000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.0064131494767281, 0.50000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.0097505810668461, 0.50000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.0131838138968663, 0.50000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.0167204326938339, 0.50000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.0203692279382193, 0.50000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.0241405318057402, 0.50000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 1.0280467087844301, 0.50000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.0321029179180026, 0.50000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler044 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=0.50000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 2.1915128876304698e-16
+const testcase_hyperg<double>
+data045[19] =
+{
+ { 0.97930223035212138, 0.50000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.98144406855076427, 0.50000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.98362155940297280, 0.50000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.98583616201745783, 0.50000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.98808944235385032, 0.50000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.99038308530635433, 0.50000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.99271890872975710, 0.50000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.99509887982916734, 0.50000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.99752513445413604, 0.50000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0025260228440118, 0.50000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.0051060015613384, 0.50000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.0077430276253163, 0.50000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.0104405359789990, 0.50000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.0132023689128868, 0.50000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.0160328583559475, 0.50000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.0189369344885053, 0.50000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.0219202735809589, 0.50000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.0249895076611382, 0.50000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler045 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=1.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 4.3839191144484910e-16
+const testcase_hyperg<double>
+data046[19] =
+{
+ { 0.84089972268671531, 0.50000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.85410196624968460, 0.50000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.86811566011579955, 0.50000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.88303688022450522, 0.50000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.89897948556635621, 0.50000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.91607978309961580, 0.50000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.93450283399425305, 0.50000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.95445115010332193, 0.50000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.97617696340303095, 0.50000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.0263340389897240, 0.50000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.0557280900008410, 0.50000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1.0889331564394962, 0.50000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 1.1270166537925830, 0.50000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1.1715728752538095, 0.50000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 1.2251482265544145, 0.50000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 1.2922212642709541, 0.50000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 1.3819660112501042, 0.50000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 1.5194938532959119, 0.50000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler046 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=1.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 2.1628301908162427e-16
+const testcase_hyperg<double>
+data047[19] =
+{
+ { 0.90992197313391454, 0.50000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.91822592662244484, 0.50000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.92687104566419554, 0.50000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.93588628166548848, 0.50000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.94530459215552909, 0.50000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.95516374875247456, 0.50000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.96550736800511849, 0.50000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.97638624595136270, 0.50000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.98786011482678993, 0.50000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.0128914530682316, 0.50000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.0266391040215350, 0.50000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.0413732738729464, 0.50000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.0572599536532992, 0.50000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1.0745166004060953, 0.50000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 1.0934387388831386, 0.50000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 1.1144486980714641, 0.50000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1.1381966011250106, 0.50000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 1.1658171625342397, 0.50000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler047 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=1.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.5130734546221216e-16
+const testcase_hyperg<double>
+data048[19] =
+{
+ { 0.93641908369732896, 0.50000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.94256349654111271, 0.50000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.94890138508461319, 0.50000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.95544578858430029, 0.50000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.96221121193620762, 0.50000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.96921386948293542, 0.50000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.97647198488394704, 0.50000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.98400616412578656, 0.50000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.99183986544963032, 0.50000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0085177124149158, 0.50000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.0174294150407122, 0.50000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.0267781897388850, 0.50000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.0366157405967285, 0.50000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.0470052068648839, 0.50000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.0580253905513313, 0.50000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1.0697774741209765, 0.50000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1.0823965556448414, 0.50000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 1.0960739512057103, 0.50000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler048 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=1.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.4952983921284566e-16
+const testcase_hyperg<double>
+data049[19] =
+{
+ { 0.95069883346936235, 0.50000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.95559618047704131, 0.50000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.96061938755931664, 0.50000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.96577553912851333, 0.50000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.97107239473807716, 0.50000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.97651848528588481, 0.50000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.98212322830227150, 0.50000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.98789706736195781, 0.50000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.99385164237825074, 0.50000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0063568569383123, 0.50000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.0129389344715818, 0.50000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.0197653907773940, 0.50000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.0268583912277143, 0.50000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.0342438793937092, 0.50000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.0419526514766855, 0.50000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.0500219124976327, 0.50000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 1.0584976491907043, 0.50000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.0674385240268101, 0.50000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler049 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=1.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 2.2314542629443562e-16
+const testcase_hyperg<double>
+data050[19] =
+{
+ { 0.95968319138913905, 0.50000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.96376169072755802, 0.50000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.96792900082729372, 0.50000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.97218942798115737, 0.50000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.97654763592586835, 0.50000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.98100869054353879, 0.50000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.98557811238699278, 0.50000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.99026193885795544, 0.50000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.99506679842072221, 0.50000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0050696417919618, 0.50000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.0102847452747090, 0.50000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.0156554225057022, 0.50000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.0211930882963096, 0.50000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.0269107343740711, 0.50000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.0328232917216298, 0.50000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.0389481230247195, 0.50000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.0453057164134614, 0.50000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.0519207114461246, 0.50000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler050 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=2.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 1.5700924586837752e-16
+const testcase_hyperg<double>
+data051[19] =
+{
+ { 0.72547625011001171, 0.50000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.74535599249992990, 0.50000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.76696498884737041, 0.50000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.79056941504209477, 0.50000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.81649658092772603, 0.50000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.84515425472851657, 0.50000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.87705801930702920, 0.50000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.91287092917527690, 0.50000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.95346258924559224, 0.50000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.0540925533894598, 0.50000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.1180339887498949, 0.50000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1.1952286093343938, 0.50000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 1.2909944487358056, 0.50000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1.4142135623730949, 0.50000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 1.5811388300841900, 0.50000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 1.8257418583505536, 0.50000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 2.2360679774997898, 0.50000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 3.1622776601683782, 0.50000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler051 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=2.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.0893602609058104e-16
+const testcase_hyperg<double>
+data052[19] =
+{
+ { 0.83664260086443765, 0.50000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.85046584300227079, 0.50000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.86509574979651649, 0.50000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.88062082573041911, 0.50000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.89714464248521597, 0.50000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.91478946588967591, 0.50000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.93370105322348573, 0.50000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.95405511057700887, 0.50000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.97606616007978142, 0.50000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.0261916902334731, 0.50000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.0550723519434702, 0.50000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.0872106588188091, 0.50000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.1233801699379020, 0.50000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1.1646752981725688, 0.50000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 1.2127272514219511, 0.50000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 1.2701518651068637, 0.50000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1.3416407864998725, 0.50000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 1.4374795179111102, 0.50000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler052 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=2.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 3.3853500746952663e-16
+const testcase_hyperg<double>
+data053[19] =
+{
+ { 0.88195381730235822, 0.50000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.89265078469555081, 0.50000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.90382937908303673, 0.50000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.91553161389880600, 0.50000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.92780530349281509, 0.50000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.94070521140346008, 0.50000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.95429450630523383, 0.50000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.96864663325785849, 0.50000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.98384775588541795, 0.50000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0172258496884334, 0.50000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.0356742479163459, 0.50000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.0555293036908924, 0.50000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.0770231491562379, 0.50000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.1004557416484888, 0.50000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.1262270515731978, 0.50000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1.1548932919125086, 0.50000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1.1872757758134724, 0.50000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 1.2247091713458949, 0.50000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler053 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=2.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 2.2746445692007949e-16
+const testcase_hyperg<double>
+data054[19] =
+{
+ { 0.90716919697107279, 0.50000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.91592299407142508, 0.50000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.92500027075874192, 0.50000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.93442464185467122, 0.50000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.94422248683737076, 0.50000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.95442341810133324, 0.50000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.96506085725516355, 0.50000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.97617275213704069, 0.50000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.98780247986309799, 0.50000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0128233505813447, 0.50000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.0263406246541855, 0.50000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.0406326381700366, 0.50000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.0557966239802845, 0.50000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.0719515075786321, 0.50000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.0892457392422055, 0.50000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.1078695188000958, 0.50000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 1.1280752258974340, 0.50000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.1502152002706476, 0.50000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler054 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=2.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.4848478782807992e-16
+const testcase_hyperg<double>
+data055[19] =
+{
+ { 0.92336416053263082, 0.50000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.93078397248364542, 0.50000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.93843714333600259, 0.50000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.94633837784068098, 0.50000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.95450388104967876, 0.50000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.96295158125742752, 0.50000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.97170139827854318, 0.50000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.98077556918512687, 0.50000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.99019904777750845, 0.50000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0102104261941198, 0.50000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.0208669540935695, 0.50000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.0320118665407505, 0.50000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.0436944599504387, 0.50000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.0559728828278145, 0.50000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.0689166967761712, 0.50000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.0826105758119842, 0.50000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.0971599106346146, 0.50000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.1126998828023964, 0.50000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler055 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=5.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 4.5474735088646412e-13
+// max(|f - f_GSL| / |f_GSL|): 1.5124797514980704e-15
+const testcase_hyperg<double>
+data056[19] =
+{
+ { 0.52275983209457544, 0.50000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.54700336898143009, 0.50000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.57468955512602038, 0.50000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.60665490543315048, 0.50000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.64403057859056190, 0.50000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.68838183648623730, 0.50000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.74193265039311129, 0.50000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.80794095908995300, 0.50000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.89135275749639320, 0.50000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.1469266219310688, 0.50000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.3552340708357489, 0.50000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1.6690840478838305, 0.50000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 2.1815415453174483, 0.50000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 3.1156892546032235, 0.50000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 5.1109077417760416, 0.50000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 10.560352936466296, 0.50000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 33.541019662496815, 0.50000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 300.66343065819501, 0.50000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler056 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=5.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 8.8817841970012523e-15
+// max(|f - f_GSL| / |f_GSL|): 1.3217255411112326e-15
+const testcase_hyperg<double>
+data057[19] =
+{
+ { 0.68252041951139286, 0.50000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.70394732624993395, 0.50000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.72748884971552052, 0.50000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.75351147371199667, 0.50000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.78247589005573737, 0.50000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.81497017420249807, 0.50000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.85175826875009586, 0.50000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.89385278481745867, 0.50000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.94262778709507411, 0.50000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.0687327277420910, 0.50000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.1529725508983291, 0.50000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.2592587134058799, 0.50000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.3985773194637892, 0.50000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1.5909902576697317, 0.50000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 1.8776023607249752, 0.50000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 2.3582499003694646, 0.50000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 3.3541019662496838, 0.50000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 6.7198400278577859, 0.50000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler057 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=5.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 2.6645352591003757e-15
+// max(|f - f_GSL| / |f_GSL|): 1.2228264607471081e-15
+const testcase_hyperg<double>
+data058[19] =
+{
+ { 0.75755211927082600, 0.50000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.77603550233010965, 0.50000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.79596241913438504, 0.50000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.81753360792105212, 0.50000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.84099165409805532, 0.50000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.86663303852180895, 0.50000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.89482475828629970, 0.50000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.92602774279590350, 0.50000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.96083064727087386, 0.50000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0445570841313008, 0.50000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.0959004638926031, 0.50000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.1560106261370562, 0.50000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.2278121770678145, 0.50000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.3158640214709998, 0.50000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.4278095344155000, 0.50000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1.5778700502946612, 0.50000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1.7972173289196469, 0.50000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 2.1789970569269732, 0.50000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler058 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=5.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 4.2082370290419495e-16
+const testcase_hyperg<double>
+data059[19] =
+{
+ { 0.80270093579329460, 0.50000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.81884974572462765, 0.50000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.83605266330015260, 0.50000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.85443340762796027, 0.50000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.87413762182790711, 0.50000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.89533826626907287, 0.50000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.91824276674115290, 0.50000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.94310265050720576, 0.50000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.97022678857609712, 0.50000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0329098673199812, 0.50000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.0695865684573389, 0.50000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.1108642103944570, 0.50000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.1578795055970506, 0.50000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.2122394794169442, 0.50000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.2763274721556934, 0.50000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.3539179650251021, 0.50000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 1.4515986118197148, 0.50000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.5829284571614219, 0.50000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler059 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=5.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 2.2751041935095266e-16
+const testcase_hyperg<double>
+data060[19] =
+{
+ { 0.83322694172301981, 0.50000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.84753931604765675, 0.50000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.86265784532195022, 0.50000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.87866479300707090, 0.50000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.89565516540263501, 0.50000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.91373946207610512, 0.50000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.93304721345881891, 0.50000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.95373159512905148, 0.50000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.97597554238828121, 0.50000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0260752851887982, 0.50000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.0545371197996178, 0.50000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.0858099017045830, 0.50000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.1204416568688709, 0.50000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.1591587835964847, 0.50000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.2029564720303347, 0.50000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.2532588722007874, 0.50000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.3122319926925459, 0.50000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.3834948587364100, 0.50000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler060 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=10.000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 1.4901161193847656e-08
+// max(|f - f_GSL| / |f_GSL|): 1.8229127098648091e-15
+const testcase_hyperg<double>
+data061[19] =
+{
+ { 0.37727530159464628, 0.50000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.39816010922169059, 0.50000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.42283703041362447, 0.50000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.45255640448730527, 0.50000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.48919507154431119, 0.50000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.53569358917731924, 0.50000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.59689778897029544, 0.50000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.68128587569875765, 0.50000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.80478739308790359, 0.50000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.3408664196153621, 0.50000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 2.0175364359923860, 0.50000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 3.6011214553736646, 0.50000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 8.1799429939495312, 0.50000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 25.644834637536000, 0.50000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 123.13738891597615, 0.50000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 1088.7122410321333, 0.50000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 27358.291704709951, 0.50000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 8174369.0266731177, 0.50000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler061 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=10.000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 2.0008883439004421e-11
+// max(|f - f_GSL| / |f_GSL|): 1.5684473872214654e-15
+const testcase_hyperg<double>
+data062[19] =
+{
+ { 0.53905528308450823, 0.50000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.56235533974376162, 0.50000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.58887657983263575, 0.50000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.61941227047262937, 0.50000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.65504896640793864, 0.50000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.69731666644529977, 0.50000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.74844073299399139, 0.50000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.81178446800105830, 0.50000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.89266981277598045, 0.50000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.1497248473106778, 0.50000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.3729717112654571, 0.50000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.7374982340374392, 0.50000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 2.4134479340960580, 0.50000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 3.9191255240471192, 0.50000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 8.3316373077761270, 0.50000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 28.323020339843335, 0.50000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 225.84286572747891, 0.50000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 12757.127591286655, 0.50000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler062 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=10.000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 1.9895196601282805e-13
+// max(|f - f_GSL| / |f_GSL|): 1.4567107859209967e-15
+const testcase_hyperg<double>
+data063[19] =
+{
+ { 0.62672622092226027, 0.50000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.64931010269769840, 0.50000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.67448067519076293, 0.50000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.70276306239803643, 0.50000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.73484179773087521, 0.50000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.77162761412743874, 0.50000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.81436116844816564, 0.50000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.86477994787944579, 0.50000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.92539820516603888, 0.50000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0945599448210315, 0.50000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.2190897395597264, 0.50000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.3916844336856475, 0.50000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.6484497630432013, 0.50000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 2.0717772717131155, 0.50000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 2.8893613630810924, 0.50000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 4.9459404075413529, 0.50000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 13.487394149998716, 0.50000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 136.57616044013972, 0.50000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler063 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=10.000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 1.2434497875801753e-14
+// max(|f - f_GSL| / |f_GSL|): 1.3245081211977836e-15
+const testcase_hyperg<double>
+data064[19] =
+{
+ { 0.68421604440344319, 0.50000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.70548098055548925, 0.50000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.72884342311710337, 0.50000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.75466953437856232, 0.50000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.78342090924662589, 0.50000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.81568884278645082, 0.50000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.85224480241465239, 0.50000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.89411692571131685, 0.50000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.94270986892954811, 0.50000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0688682849120232, 0.50000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.1537004376097553, 0.50000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.2615455028370031, 0.50000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.4045541456153436, 0.50000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.6057216489444517, 0.50000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.9146603020550739, 0.50000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 2.4617931307620298, 0.50000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 3.7267799624996498, 0.50000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 9.3880118036248401, 0.50000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler064 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=10.000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 1.5700924586837752e-16
+const testcase_hyperg<double>
+data065[19] =
+{
+ { 0.72547625011001171, 0.50000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.74535599249992990, 0.50000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.76696498884737041, 0.50000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.79056941504209477, 0.50000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.81649658092772603, 0.50000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.84515425472851657, 0.50000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.87705801930702920, 0.50000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.91287092917527690, 0.50000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.95346258924559224, 0.50000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0540925533894598, 0.50000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.1180339887498949, 0.50000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.1952286093343938, 0.50000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.2909944487358056, 0.50000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.4142135623730949, 0.50000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.5811388300841900, 0.50000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.8257418583505536, 0.50000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 2.2360679774997898, 0.50000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 3.1622776601683782, 0.50000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler065 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=20.000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 48.000000000000000
+// max(|f - f_GSL| / |f_GSL|): 1.8556481344875154e-15
+const testcase_hyperg<double>
+data066[19] =
+{
+ { 0.26690449940521549, 0.50000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.28252302866181833, 0.50000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.30123616141153836, 0.50000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.32421384687602633, 0.50000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.35334630811776774, 0.50000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.39191793127467028, 0.50000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.44620488618129195, 0.50000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.52980896919265719, 0.50000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.67754711477562324, 0.50000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.9567557771780317, 0.50000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 6.1816042148333086, 0.50000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 35.653088618561227, 0.50000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 377.51482843179906, 0.50000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 7645.8816551195359, 0.50000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 354791.74537980522, 0.50000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 57009889.966638684, 0.50000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 83771357024.863937, 0.50000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 25866972896376408., 0.50000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler066 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=20.000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 0.011718750000000000
+// max(|f - f_GSL| / |f_GSL|): 1.7519521419034139e-15
+const testcase_hyperg<double>
+data067[19] =
+{
+ { 0.40342659436153389, 0.50000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.42420571192034318, 0.50000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.44852768286073041, 0.50000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.47751245808592863, 0.50000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.51283632632707765, 0.50000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.55713468814894329, 0.50000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.61481320817757334, 0.50000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.69383483410097213, 0.50000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.81012002526006044, 0.50000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.3622225506603911, 0.50000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 2.2349513086109001, 0.50000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 5.1864917536761723, 0.50000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 21.020560423779411, 0.50000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 175.19649997100612, 0.50000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 3467.1587803688708, 0.50000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 225003.88683445856, 0.50000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 110837674.65652709, 0.50000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 6688966964170.6807, 0.50000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler067 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=20.000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 1.4305114746093750e-05
+// max(|f - f_GSL| / |f_GSL|): 1.9261147266354006e-15
+const testcase_hyperg<double>
+data068[19] =
+{
+ { 0.48716309885816822, 0.50000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.50965859152542337, 0.50000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.53554809210658938, 0.50000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.56576689207507136, 0.50000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.60164849637133655, 0.50000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.64516711595404364, 0.50000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.69938278735493520, 0.50000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.76931621518401860, 0.50000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.86381808725530662, 0.50000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.2152051956815531, 0.50000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.6052546785425543, 0.50000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 2.4765586046012635, 0.50000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 5.1564492216997486, 0.50000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 18.446158392136365, 0.50000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 150.44577670123971, 0.50000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 3862.6317400115768, 0.50000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 632428.34833625401, 0.50000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 7426927663.3808765, 0.50000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler068 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=20.000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 4.0978193283081055e-08
+// max(|f - f_GSL| / |f_GSL|): 1.7692881266931737e-15
+const testcase_hyperg<double>
+data069[19] =
+{
+ { 0.54703266209548373, 0.50000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.56997321774144960, 0.50000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.59603026159654982, 0.50000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.62596978851120511, 0.50000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.66084565876898915, 0.50000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.70215256667232873, 0.50000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.75208916592008557, 0.50000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.81403631111658625, 0.50000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.89348608489854597, 0.50000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.1517793185139173, 0.50000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.3878110313656598, 0.50000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.8061071794572381, 0.50000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 2.7148594517859586, 0.50000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 5.4529435709049361, 0.50000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 19.487310275377109, 0.50000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 191.69079165937470, 0.50000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 10218.543981792311, 0.50000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 23160836.646583911, 0.50000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler069 = 2.5000000000000020e-13;
+
+// Test data for a=0.50000000000000000, b=20.000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 2.9103830456733704e-10
+// max(|f - f_GSL| / |f_GSL|): 1.6694673196526831e-15
+const testcase_hyperg<double>
+data070[19] =
+{
+ { 0.59292067298616025, 0.50000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.61572496720679892, 0.50000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.64135339122875590, 0.50000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.67043457419280461, 0.50000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.70380956268170969, 0.50000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.74263251901495220, 0.50000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.78853555445528256, 0.50000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.84391122775673755, 0.50000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.91242401018807373, 0.50000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 0.50000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.1169059681274873, 0.50000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.2825928301302667, 0.50000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.5385937789924939, 0.50000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.9895771187893898, 0.50000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 2.9707335806970168, 0.50000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 6.0299506157180467, 0.50000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 24.259090336955577, 0.50000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 406.27267173257223, 0.50000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 174330.03997220192, 0.50000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler070 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=0.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data071[19] =
+{
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler071 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=0.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data072[19] =
+{
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler072 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=0.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data073[19] =
+{
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler073 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=0.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data074[19] =
+{
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler074 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=0.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data075[19] =
+{
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 1.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler075 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=0.50000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 4.3839191144484910e-16
+const testcase_hyperg<double>
+data076[19] =
+{
+ { 0.84089972268671531, 1.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.85410196624968460, 1.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.86811566011579955, 1.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.88303688022450522, 1.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.89897948556635621, 1.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.91607978309961580, 1.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.93450283399425305, 1.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.95445115010332193, 1.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.97617696340303095, 1.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.0263340389897240, 1.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.0557280900008410, 1.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1.0889331564394962, 1.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 1.1270166537925830, 1.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1.1715728752538095, 1.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 1.2251482265544145, 1.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 1.2922212642709541, 1.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 1.3819660112501042, 1.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 1.5194938532959119, 1.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler076 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=0.50000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 2.1628301908162427e-16
+const testcase_hyperg<double>
+data077[19] =
+{
+ { 0.90992197313391454, 1.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.91822592662244484, 1.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.92687104566419554, 1.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.93588628166548848, 1.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.94530459215552909, 1.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.95516374875247456, 1.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.96550736800511849, 1.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.97638624595136270, 1.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.98786011482678993, 1.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.0128914530682316, 1.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.0266391040215350, 1.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.0413732738729464, 1.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.0572599536532992, 1.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1.0745166004060953, 1.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 1.0934387388831386, 1.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 1.1144486980714641, 1.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1.1381966011250106, 1.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 1.1658171625342397, 1.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler077 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=0.50000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.5130734546221216e-16
+const testcase_hyperg<double>
+data078[19] =
+{
+ { 0.93641908369732896, 1.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.94256349654111271, 1.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.94890138508461319, 1.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.95544578858430029, 1.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.96221121193620762, 1.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.96921386948293542, 1.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.97647198488394704, 1.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.98400616412578656, 1.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.99183986544963032, 1.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0085177124149158, 1.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.0174294150407122, 1.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.0267781897388850, 1.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.0366157405967285, 1.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.0470052068648839, 1.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.0580253905513313, 1.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1.0697774741209765, 1.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1.0823965556448414, 1.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 1.0960739512057103, 1.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler078 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=0.50000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.4952983921284566e-16
+const testcase_hyperg<double>
+data079[19] =
+{
+ { 0.95069883346936235, 1.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.95559618047704131, 1.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.96061938755931664, 1.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.96577553912851333, 1.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.97107239473807716, 1.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.97651848528588481, 1.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.98212322830227150, 1.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.98789706736195781, 1.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.99385164237825074, 1.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0063568569383123, 1.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.0129389344715818, 1.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.0197653907773940, 1.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.0268583912277143, 1.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.0342438793937092, 1.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.0419526514766855, 1.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.0500219124976327, 1.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 1.0584976491907043, 1.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.0674385240268101, 1.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler079 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=0.50000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 2.2314542629443562e-16
+const testcase_hyperg<double>
+data080[19] =
+{
+ { 0.95968319138913905, 1.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.96376169072755802, 1.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.96792900082729372, 1.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.97218942798115737, 1.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.97654763592586835, 1.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.98100869054353879, 1.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.98557811238699278, 1.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.99026193885795544, 1.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.99506679842072221, 1.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0050696417919618, 1.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.0102847452747090, 1.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.0156554225057022, 1.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.0211930882963096, 1.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.0269107343740711, 1.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.0328232917216298, 1.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.0389481230247195, 1.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.0453057164134614, 1.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.0519207114461246, 1.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler080 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=1.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 3.5527136788005009e-15
+// max(|f - f_GSL| / |f_GSL|): 1.3886315518367356e-15
+const testcase_hyperg<double>
+data081[19] =
+{
+ { 0.71317098463599415, 1.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.73473333112764883, 1.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.75804035866024344, 1.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.78333938207622589, 1.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.81093021621632866, 1.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.84118059155303193, 1.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.87454754822497016, 1.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.91160778396977304, 1.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.95310179804324857, 1.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.0536051565782629, 1.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.1157177565710485, 1.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1.1889164797957747, 1.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 1.2770640594149765, 1.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1.3862943611198899, 1.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 1.5271512197902593, 1.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 1.7199611490370503, 1.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 2.0117973905426232, 1.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 2.5584278811044912, 1.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler081 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=1.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.5503149336769291e-16
+const testcase_hyperg<double>
+data082[19] =
+{
+ { 0.83165649828125487, 1.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.84626246650116621, 1.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.86165287670267476, 1.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.87790681762615264, 1.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.89511583784087634, 1.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.91338673957393834, 1.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.93284521667332010, 1.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.95364066873549813, 1.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.97595268969924187, 1.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.0260530485179122, 1.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.0544523154103413, 1.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.0856358366643180, 1.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.1201824010510930, 1.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1.1588830833596719, 1.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 1.2028682930536780, 1.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 1.2538561433469468, 1.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1.3147120107267418, 1.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 1.3910528844853491, 1.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler082 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=1.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.5856134910670077e-16
+const testcase_hyperg<double>
+data083[19] =
+{
+ { 0.87917686994924560, 1.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.89033956110358403, 1.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.90196195126098355, 1.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.91408080149514681, 1.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.92673756761314952, 1.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.93997926630123430, 1.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.95385955885019325, 1.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.96844012412988900, 1.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.98379242268046208, 1.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0171615499181177, 1.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.0353950776091037, 1.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.0548437030651112, 1.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.0756840039415978, 1.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.0981384722661196, 1.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.1224950318916129, 1.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1.1491396357184527, 1.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1.1786158344507012, 1.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 1.2117500593515478, 1.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler083 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=1.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 3.4123997230344747e-16
+const testcase_hyperg<double>
+data084[19] =
+{
+ { 0.90538259348578420, 1.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.91444830598832061, 1.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.92381915945973991, 1.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.93351553488501793, 1.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.94356001859234861, 1.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.95397775039949584, 1.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.96479684710618019, 1.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.97604892281308531, 1.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.98776973540356938, 1.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0127864273812119, 1.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.0261830717772533, 1.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.0402531144740719, 1.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.0550712790827002, 1.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.0707271945059007, 1.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.0873302420658923, 1.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.1050168587085545, 1.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 1.1239622188477687, 1.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.1444006183097781, 1.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler084 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=1.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 3.3962402892941561e-16
+const testcase_hyperg<double>
+data085[19] =
+{
+ { 0.92211295632330392, 1.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.92975727737040625, 1.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.93761992348333489, 1.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.94571346180587790, 1.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.95405164371146900, 1.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.96264956879205976, 1.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.97152388013493107, 1.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.98069299877709348, 1.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.99017740778385854, 1.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0101865087004833, 1.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.0207660479892111, 1.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.0317718013185031, 1.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.0432419144892398, 1.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.0552206786504446, 1.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.0677601383233675, 1.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.0809223485579968, 1.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.0947826783002668, 1.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.1094349304493603, 1.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler085 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=2.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 1.7763568394002505e-15
+// max(|f - f_GSL| / |f_GSL|): 2.1094237467877971e-16
+const testcase_hyperg<double>
+data086[19] =
+{
+ { 0.52631578947368429, 1.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.55555555555555558, 1.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.58823529411764708, 1.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.62500000000000000, 1.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.66666666666666663, 1.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.71428571428571430, 1.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.76923076923076927, 1.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.83333333333333337, 1.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.90909090909090906, 1.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.1111111111111112, 1.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.2500000000000000, 1.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1.4285714285714286, 1.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 1.6666666666666663, 1.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 2.0000000000000000, 1.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 2.5000000000000004, 1.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 3.3333333333333330, 1.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 5.0000000000000009, 1.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 9.9999999999999929, 1.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler086 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=2.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 2.6645352591003757e-15
+// max(|f - f_GSL| / |f_GSL|): 1.2228571846595251e-15
+const testcase_hyperg<double>
+data087[19] =
+{
+ { 0.70351947549341554, 1.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.72637503722092756, 1.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.75099661564391240, 1.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.77761647796730871, 1.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.80651221621216473, 1.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.83801894346580241, 1.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.87254582050258456, 1.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.91059888544083678, 1.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.95281329145592386, 1.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.0532154477379738, 1.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.1138692114741471, 1.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.1838976095305187, 1.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.2660586631630237, 1.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1.3644676665613118, 1.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 1.4856585347316102, 1.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 1.6409590443536872, 1.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1.8528798927325769, 1.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 2.1789423102929644, 1.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler087 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=2.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 4.3538225385592644e-16
+const testcase_hyperg<double>
+data088[19] =
+{
+ { 0.78068027379106275, 1.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.79924541976981278, 1.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.81891305585650975, 1.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.83979799626213247, 1.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.86203315303160111, 1.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.88577352485361693, 1.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.91120135738402230, 1.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.93853291956703588, 1.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.96802755388922956, 1.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0348375559194773, 1.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.0730246119544820, 1.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.1151788396279341, 1.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.1621066403893472, 1.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.2148922218710421, 1.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.2750496810838674, 1.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1.3448048570872917, 1.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1.4276833109859521, 1.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 1.5299976259379788, 1.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler088 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=2.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 2.3297369954770822e-16
+const testcase_hyperg<double>
+data089[19] =
+{
+ { 0.82510759951857615, 1.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.84072786892782070, 1.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.85710884896562356, 1.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.87431674418118244, 1.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.89242659229726995, 1.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.91152392685930350, 1.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.93170685950993570, 1.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.95308871926790661, 1.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.97580144325325802, 1.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0258682619030324, 1.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.0536269616706000, 1.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.0835447330793833, 1.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.1159538758396654, 1.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.1512736659291880, 1.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.1900463690116090, 1.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.2329961591622411, 1.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 1.2811334345669059, 1.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.3359629014132051, 1.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler089 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=2.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.6160879869309861e-16
+const testcase_hyperg<double>
+data090[19] =
+{
+ { 0.85426123653345876, 1.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.86774543390930414, 1.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.88178859537254239, 1.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.89643269097060951, 1.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.91172456687216819, 1.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.92771674975966123, 1.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.94446842993888647, 1.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.96204667481937678, 1.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.98052794339012128, 1.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0205643671068179, 1.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.0423395201078882, 1.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.0654651277885334, 1.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.0901078068101382, 1.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.1164691415928940, 1.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.1447972335326551, 1.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.1754040384534161, 1.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.2086928679893112, 1.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.2452055640510711, 1.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler090 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=5.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 4.0927261579781771e-12
+// max(|f - f_GSL| / |f_GSL|): 1.4735287697491276e-15
+const testcase_hyperg<double>
+data091[19] =
+{
+ { 0.25646288779245086, 1.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.28273129096174376, 1.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.31438201170962982, 1.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.35308837890625017, 1.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.40123456790123452, 1.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.46230737192836308, 1.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.54156016946185348, 1.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.64718364197530875, 1.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.79246636158732342, 1.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.3103947568968148, 1.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.8017578125000004, 1.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 2.6374427321949185, 1.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 4.1975308641975282, 1.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 7.4999999999999964, 1.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 15.859375000000012, 1.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 43.734567901234513, 1.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 194.99999999999994, 1.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 2777.4999999999832, 1.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler091 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=5.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 4.2632564145606011e-14
+// max(|f - f_GSL| / |f_GSL|): 1.3117712044801915e-15
+const testcase_hyperg<double>
+data092[19] =
+{
+ { 0.46398891966759009, 1.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.49382716049382724, 1.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.52768166089965407, 1.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.56640625000000000, 1.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.61111111111111094, 1.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.66326530612244905, 1.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.72485207100591698, 1.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.79861111111111094, 1.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.88842975206611552, 1.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.1419753086419753, 1.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.3281249999999998, 1.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.5816326530612239, 1.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.9444444444444444, 1.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 2.5000000000000000, 1.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 3.4374999999999996, 1.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 5.2777777777777715, 1.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 9.9999999999999947, 1.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 32.499999999999837, 1.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler092 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=5.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 6.2172489379008766e-15
+// max(|f - f_GSL| / |f_GSL|): 1.2433022037532461e-15
+const testcase_hyperg<double>
+data093[19] =
+{
+ { 0.57476744883397490, 1.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.60302731682513966, 1.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.63425708719096374, 1.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.66895764182970430, 1.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.70775063063963473, 1.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.75141762103495924, 1.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.80095569442603298, 1.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.85765823887436754, 1.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.92323549576335540, 1.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0911622464839472, 1.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.2013226178607666, 1.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.3373332072682687, 1.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.5099074378209716, 1.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.7368822229245819, 1.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 2.0505871832661429, 1.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 2.5172389775867967, 1.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 3.3015631983556144, 1.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 5.0005935155044519, 1.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler093 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=5.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 3.1086244689504383e-15
+// max(|f - f_GSL| / |f_GSL|): 1.1989697058841889e-15
+const testcase_hyperg<double>
+data094[19] =
+{
+ { 0.64582752605387983, 1.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.67184161997264191, 1.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.70012779922368040, 1.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.73100784656910278, 1.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.76486919089091066, 1.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.80218301124334557, 1.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.84352883533234413, 1.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.88962858902212572, 1.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.94139473468584123, 1.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0669812691939897, 1.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.1443996012177726, 1.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.2350966976721314, 1.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.3431264370409088, 1.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.4745266814162399, 1.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.6388137104840066, 1.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.8522074849776518, 1.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 2.1458016978417458, 1.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 2.5927464669826339, 1.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler094 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=5.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 1.1102230246251565e-15
+// max(|f - f_GSL| / |f_GSL|): 5.6896158687269898e-16
+const testcase_hyperg<double>
+data095[19] =
+{
+ { 0.69583236336670584, 1.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.71968920666899716, 1.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.74533885416044232, 1.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.77300145361503070, 1.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.80293630810919447, 1.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.83545132638592001, 1.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.87091544744412497, 1.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.90977522877919847, 1.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.95257738192069130, 1.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0528968282789379, 1.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.1123617169062123, 1.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.1798254572896132, 1.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.2572069000522696, 1.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.3471600884974377, 1.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.4535032279573519, 1.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.5820245752814948, 1.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.7421756366906538, 1.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.9513145531098233, 1.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler095 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=10.000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 2.0861625671386719e-07
+// max(|f - f_GSL| / |f_GSL|): 1.6897916810721311e-15
+const testcase_hyperg<double>
+data096[19] =
+{
+ { 0.12307420104127866, 1.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.13818870041457434, 1.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.15739165631811705, 1.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.18249038606882081, 1.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.21644171225027795, 1.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.26433326159804132, 1.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.33544459430654539, 1.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.44788516696232511, 1.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.63989153514168373, 1.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.7568608796813312, 1.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 3.5836558871799027, 1.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 8.8077526749963226, 1.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 27.285841702089190, 1.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 113.55555555555557, 1.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 706.24023437500091, 1.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 8064.1687976651992, 1.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 271267.22222222196, 1.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 123456789.99999890, 1.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler096 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=10.000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 2.6193447411060333e-10
+// max(|f - f_GSL| / |f_GSL|): 1.6039867544159931e-15
+const testcase_hyperg<double>
+data097[19] =
+{
+ { 0.28363728383055781, 1.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.30933003169808387, 1.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.33998437757128797, 1.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.37713553224291113, 1.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.42299736538419669, 1.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.48086597727600067, 1.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.55583495759293045, 1.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.65612850114039678, 1.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.79573668772968142, 1.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.3184712058058303, 1.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.8576958065941214, 1.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 2.8759509651764228, 1.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 5.1046225531822182, 1.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 11.095238095238095, 1.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 32.797154017857174, 1.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 158.01935680536477, 1.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1815.9523809523814, 1.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 163302.14285714156, 1.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler097 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=10.000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 2.0463630789890885e-12
+// max(|f - f_GSL| / |f_GSL|): 1.5238873992472010e-15
+const testcase_hyperg<double>
+data098[19] =
+{
+ { 0.39006633302741811, 1.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.41898885698103278, 1.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.45245557983812590, 1.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.49160548618861627, 1.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.53798419230517991, 1.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.59373881442067322, 1.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.66193391357076126, 1.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.74708402736952118, 1.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.85609281019430605, 1.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.1974451135148187, 1.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.4820886036706347, 1.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.9201183180477521, 1.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 2.6569338297733336, 1.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 4.0634920634920650, 1.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 7.3102678571428568, 1.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 17.512574302697733, 1.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 74.206349206349131, 1.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 1342.8571428571363, 1.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler098 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=10.000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 7.8159700933611020e-14
+// max(|f - f_GSL| / |f_GSL|): 1.4210854715202060e-15
+const testcase_hyperg<double>
+data099[19] =
+{
+ { 0.46726928123633210, 1.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.49687547629934464, 1.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.53045208856322223, 1.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.56884765624999989, 1.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.61316872427983504, 1.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.66488500161969566, 1.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.72598998634501577, 1.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.79925411522633760, 1.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.88863845062192182, 1.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.1423563481176653, 1.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.3302951388888888, 1.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.5889212827988335, 1.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.9650205761316870, 1.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 2.5555555555555549, 1.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 3.5937500000000013, 1.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 5.7818930041152203, 1.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 12.222222222222220, 1.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 54.999999999999780, 1.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler099 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=10.000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 1.7763568394002505e-15
+// max(|f - f_GSL| / |f_GSL|): 2.1094237467877971e-16
+const testcase_hyperg<double>
+data100[19] =
+{
+ { 0.52631578947368429, 1.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.55555555555555558, 1.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.58823529411764708, 1.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.62500000000000000, 1.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.66666666666666663, 1.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.71428571428571430, 1.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.76923076923076927, 1.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.83333333333333337, 1.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.90909090909090906, 1.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.1111111111111112, 1.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.2500000000000000, 1.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.4285714285714286, 1.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.6666666666666663, 1.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 2.0000000000000000, 1.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 2.5000000000000004, 1.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 3.3333333333333330, 1.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 5.0000000000000009, 1.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 9.9999999999999929, 1.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler100 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=20.000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 1024.0000000000000
+// max(|f - f_GSL| / |f_GSL|): 1.7510400000000382e-15
+const testcase_hyperg<double>
+data101[19] =
+{
+ { 0.058479236576646311, 1.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.065788544763137821, 1.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.075184824937824482, 1.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.087707688693157121, 1.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.10521567442213345, 1.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.13135877960541550, 1.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.17423854066297098, 1.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.25492082527223520, 1.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.44025895219654843, 1.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 3.3698615820910360, 1.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 17.997089220808483, 1.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 153.73298291118951, 1.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 2159.1667587825627, 1.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 55188.105263157879, 1.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 3191209.3921857267, 1.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 646910975.29152656, 1.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 1254834626850.2659, 1.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 5.8479532163741414e+17, 1.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler101 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=20.000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 0.21875000000000000
+// max(|f - f_GSL| / |f_GSL|): 1.5452521875000274e-15
+const testcase_hyperg<double>
+data102[19] =
+{
+ { 0.15519511120894958, 1.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.17197165701692893, 1.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.19276847315207329, 1.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.21920107206179093, 1.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.25386158960390576, 1.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.30115970686600674, 1.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.36916408142057106, 1.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.47406175901569547, 1.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.65237908266239919, 1.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.8227213362622299, 1.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 4.3716358339791332, 1.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 15.670841312959222, 1.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 94.742651122760179, 1.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1081.7275541795671, 1.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 27809.787731465960, 1.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 2329811.1715181042, 1.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1537787532.6780224, 1.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 141562653506999.88, 1.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler102 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=20.000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 0.00024414062500000000
+// max(|f - f_GSL| / |f_GSL|): 1.6763226855512825e-15
+const testcase_hyperg<double>
+data103[19] =
+{
+ { 0.23253645591196551, 1.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.25484220947068342, 1.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.28181987881113812, 1.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.31508211677735770, 1.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.35706285886959610, 1.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.41160053409238206, 1.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.48508083111181960, 1.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.58885194371375260, 1.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.74482241684585782, 1.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.4700356864367146, 1.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 2.4955144453055143, 1.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 5.3506594845833471, 1.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 16.618413752184221, 1.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 89.310629514963878, 1.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1029.3439900542960, 1.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 35659.847863372350, 1.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 8009309.6233230168, 1.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 145640590027.39731, 1.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler103 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=20.000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 7.1525573730468750e-07
+// max(|f - f_GSL| / |f_GSL|): 1.7237966704608456e-15
+const testcase_hyperg<double>
+data104[19] =
+{
+ { 0.29614148314592509, 1.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.32176277356430805, 1.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.35217870475550511, 1.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.38885270445515113, 1.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.43389978380608418, 1.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.49048612522269458, 1.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.56355539635634599, 1.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.66123153239117671, 1.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.79773363961895416, 1.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.3245132157016595, 1.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.9065148749742076, 1.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 3.1328798652457452, 1.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 6.4172532944033476, 1.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 19.071683734222436, 1.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 104.41989641582512, 1.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1510.5743992324240, 1.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 115518.14360562043, 1.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 414930455.29173034, 1.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler104 = 2.5000000000000020e-13;
+
+// Test data for a=1.0000000000000000, b=20.000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 4.6566128730773926e-09
+// max(|f - f_GSL| / |f_GSL|): 1.6665618165272271e-15
+const testcase_hyperg<double>
+data105[19] =
+{
+ { 0.34954259539177701, 1.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.37714038609235134, 1.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.40942091659748781, 1.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.44767109606846422, 1.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.49368984777532227, 1.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.55006638216982295, 1.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.62065830207408890, 1.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.71145554513583764, 1.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.83223839666914623, 1.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 1.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.2466748028187731, 1.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.6386752725021749, 1.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 2.3340068725479681, 1.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 3.7848108613132054, 1.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 7.6754638550304133, 1.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 23.344217312927277, 1.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 149.83491198246921, 1.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 3936.9253501916060, 1.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 2794143.5036480185, 1.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler105 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=0.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data106[19] =
+{
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler106 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=0.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data107[19] =
+{
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler107 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=0.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data108[19] =
+{
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler108 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=0.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data109[19] =
+{
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler109 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=0.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data110[19] =
+{
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 2.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler110 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=0.50000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 1.5700924586837752e-16
+const testcase_hyperg<double>
+data111[19] =
+{
+ { 0.72547625011001171, 2.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.74535599249992990, 2.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.76696498884737041, 2.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.79056941504209477, 2.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.81649658092772603, 2.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.84515425472851657, 2.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.87705801930702920, 2.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.91287092917527690, 2.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.95346258924559224, 2.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.0540925533894598, 2.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.1180339887498949, 2.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1.1952286093343938, 2.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 1.2909944487358056, 2.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1.4142135623730949, 2.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 1.5811388300841900, 2.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 1.8257418583505536, 2.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 2.2360679774997898, 2.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 3.1622776601683782, 2.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler111 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=0.50000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.0893602609058104e-16
+const testcase_hyperg<double>
+data112[19] =
+{
+ { 0.83664260086443765, 2.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.85046584300227079, 2.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.86509574979651649, 2.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.88062082573041911, 2.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.89714464248521597, 2.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.91478946588967591, 2.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.93370105322348573, 2.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.95405511057700887, 2.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.97606616007978142, 2.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.0261916902334731, 2.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.0550723519434702, 2.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.0872106588188091, 2.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.1233801699379020, 2.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1.1646752981725688, 2.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 1.2127272514219511, 2.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 1.2701518651068637, 2.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1.3416407864998725, 2.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 1.4374795179111102, 2.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler112 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=0.50000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 3.3853500746952663e-16
+const testcase_hyperg<double>
+data113[19] =
+{
+ { 0.88195381730235822, 2.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.89265078469555081, 2.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.90382937908303673, 2.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.91553161389880600, 2.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.92780530349281509, 2.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.94070521140346008, 2.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.95429450630523383, 2.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.96864663325785849, 2.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.98384775588541795, 2.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0172258496884334, 2.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.0356742479163459, 2.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.0555293036908924, 2.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.0770231491562379, 2.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.1004557416484888, 2.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.1262270515731978, 2.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1.1548932919125086, 2.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1.1872757758134724, 2.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 1.2247091713458949, 2.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler113 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=0.50000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 2.2746445692007949e-16
+const testcase_hyperg<double>
+data114[19] =
+{
+ { 0.90716919697107279, 2.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.91592299407142508, 2.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.92500027075874192, 2.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.93442464185467122, 2.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.94422248683737076, 2.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.95442341810133324, 2.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.96506085725516355, 2.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.97617275213704069, 2.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.98780247986309799, 2.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0128233505813447, 2.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.0263406246541855, 2.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.0406326381700366, 2.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.0557966239802845, 2.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.0719515075786321, 2.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.0892457392422055, 2.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.1078695188000958, 2.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 1.1280752258974340, 2.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.1502152002706476, 2.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler114 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=0.50000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.4848478782807992e-16
+const testcase_hyperg<double>
+data115[19] =
+{
+ { 0.92336416053263082, 2.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.93078397248364542, 2.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.93843714333600259, 2.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.94633837784068098, 2.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.95450388104967876, 2.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.96295158125742752, 2.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.97170139827854318, 2.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.98077556918512687, 2.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.99019904777750845, 2.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0102104261941198, 2.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.0208669540935695, 2.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.0320118665407505, 2.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.0436944599504387, 2.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.0559728828278145, 2.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.0689166967761712, 2.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.0826105758119842, 2.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.0971599106346146, 2.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.1126998828023964, 2.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler115 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=1.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 1.7763568394002505e-15
+// max(|f - f_GSL| / |f_GSL|): 2.1094237467877971e-16
+const testcase_hyperg<double>
+data116[19] =
+{
+ { 0.52631578947368429, 2.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.55555555555555558, 2.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.58823529411764708, 2.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.62500000000000000, 2.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.66666666666666663, 2.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.71428571428571430, 2.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.76923076923076927, 2.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.83333333333333337, 2.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.90909090909090906, 2.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.1111111111111112, 2.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.2500000000000000, 2.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1.4285714285714286, 2.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 1.6666666666666663, 2.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 2.0000000000000000, 2.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 2.5000000000000004, 2.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 3.3333333333333330, 2.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 5.0000000000000009, 2.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 9.9999999999999929, 2.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler116 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=1.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 2.6645352591003757e-15
+// max(|f - f_GSL| / |f_GSL|): 1.2228571846595251e-15
+const testcase_hyperg<double>
+data117[19] =
+{
+ { 0.70351947549341554, 2.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.72637503722092756, 2.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.75099661564391240, 2.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.77761647796730871, 2.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.80651221621216473, 2.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.83801894346580241, 2.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.87254582050258456, 2.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.91059888544083678, 2.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.95281329145592386, 2.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.0532154477379738, 2.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.1138692114741471, 2.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.1838976095305187, 2.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.2660586631630237, 2.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1.3644676665613118, 2.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 1.4856585347316102, 2.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 1.6409590443536872, 2.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1.8528798927325769, 2.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 2.1789423102929644, 2.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler117 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=1.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 4.3538225385592644e-16
+const testcase_hyperg<double>
+data118[19] =
+{
+ { 0.78068027379106275, 2.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.79924541976981278, 2.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.81891305585650975, 2.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.83979799626213247, 2.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.86203315303160111, 2.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.88577352485361693, 2.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.91120135738402230, 2.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.93853291956703588, 2.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.96802755388922956, 2.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0348375559194773, 2.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.0730246119544820, 2.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.1151788396279341, 2.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.1621066403893472, 2.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.2148922218710421, 2.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.2750496810838674, 2.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1.3448048570872917, 2.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1.4276833109859521, 2.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 1.5299976259379788, 2.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler118 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=1.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 2.3297369954770822e-16
+const testcase_hyperg<double>
+data119[19] =
+{
+ { 0.82510759951857615, 2.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.84072786892782070, 2.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.85710884896562356, 2.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.87431674418118244, 2.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.89242659229726995, 2.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.91152392685930350, 2.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.93170685950993570, 2.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.95308871926790661, 2.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.97580144325325802, 2.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0258682619030324, 2.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.0536269616706000, 2.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.0835447330793833, 2.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.1159538758396654, 2.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.1512736659291880, 2.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.1900463690116090, 2.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.2329961591622411, 2.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 1.2811334345669059, 2.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.3359629014132051, 2.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler119 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=1.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.6160879869309861e-16
+const testcase_hyperg<double>
+data120[19] =
+{
+ { 0.85426123653345876, 2.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.86774543390930414, 2.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.88178859537254239, 2.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.89643269097060951, 2.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.91172456687216819, 2.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.92771674975966123, 2.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.94446842993888647, 2.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.96204667481937678, 2.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.98052794339012128, 2.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0205643671068179, 2.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.0423395201078882, 2.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.0654651277885334, 2.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.0901078068101382, 2.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.1164691415928940, 2.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.1447972335326551, 2.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.1754040384534161, 2.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.2086928679893112, 2.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.2452055640510711, 2.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler120 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=2.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 4.2632564145606011e-14
+// max(|f - f_GSL| / |f_GSL|): 4.2632564145606064e-16
+const testcase_hyperg<double>
+data121[19] =
+{
+ { 0.27700831024930750, 2.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.30864197530864196, 2.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.34602076124567477, 2.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.39062499999999994, 2.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.44444444444444442, 2.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.51020408163265307, 2.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.59171597633136097, 2.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.69444444444444453, 2.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.82644628099173545, 2.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.2345679012345681, 2.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.5624999999999998, 2.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 2.0408163265306127, 2.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 2.7777777777777768, 2.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 4.0000000000000000, 2.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 6.2500000000000036, 2.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 11.111111111111109, 2.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 25.000000000000007, 2.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 99.999999999999872, 2.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler121 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=2.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 7.9936057773011271e-15
+// max(|f - f_GSL| / |f_GSL|): 1.3252801810681365e-15
+const testcase_hyperg<double>
+data122[19] =
+{
+ { 0.50515448477320835, 2.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.53674994210078020, 2.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.57194655162437413, 2.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.61137322330312327, 2.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.65581297297972585, 2.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.70625323977290944, 2.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.76395739449542666, 2.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.83056871002513311, 2.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.90826553449323655, 2.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.1098784992198341, 2.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.2437942741831700, 2.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.4105343768544543, 2.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.6238435648986016, 2.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1.9065970003160624, 2.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 2.3001951284393627, 2.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 2.8891774744673464, 2.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 3.8827206436045336, 2.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 6.0316345867773542, 2.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler122 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=2.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 3.1086244689504383e-15
+// max(|f - f_GSL| / |f_GSL|): 1.2095468681839719e-15
+const testcase_hyperg<double>
+data123[19] =
+{
+ { 0.61824560969673270, 2.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.64645665839161026, 2.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.67712272792612116, 2.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.71058076074636822, 2.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.74723387423852838, 2.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.78756892188863170, 2.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.83218012557592713, 2.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.88180144818204143, 2.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.93735184459468934, 2.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0712594799044883, 2.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.1531330932162096, 2.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.2483404191094898, 2.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.3606934909972501, 2.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.4957544469027071, 2.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.6620777107871287, 2.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1.8738132387064506, 2.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 2.1570670242247409, 2.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 2.5700735959225494, 2.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler123 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=2.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 1.1102230246251565e-15
+// max(|f - f_GSL| / |f_GSL|): 6.1065577401595934e-16
+const testcase_hyperg<double>
+data124[19] =
+{
+ { 0.68776713859043437, 2.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.71280582849489893, 2.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.73962983054724896, 2.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.76844343025262063, 2.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.79948476671182900, 2.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.83303347721461263, 2.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.86942060391338771, 2.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.90904161711581655, 2.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.95237381468647742, 2.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0526413941912305, 2.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.1112045278881502, 2.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.1768500306393046, 2.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.2510971588297888, 2.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.3359896747789315, 2.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.4343740183432725, 2.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.5504011881337365, 2.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 1.6905307012604318, 2.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.8658920279264424, 2.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler124 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=2.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 2.7923027351444343e-16
+const testcase_hyperg<double>
+data125[19] =
+{
+ { 0.73530262886958797, 2.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.75768898977673649, 2.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.78143483544640080, 2.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.80667428603297209, 2.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.83356078772438313, 2.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.86227093001346189, 2.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.89300925500556971, 2.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.92601438873425990, 2.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.96156696230910810, 2.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0417127776179342, 2.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.0871896789480930, 2.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.1370264514689949, 2.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.1919677804049154, 2.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.2529628761065934, 2.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.3212511796458866, 2.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.3985017309668506, 2.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.4870567523847895, 2.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.5904049523738040, 2.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler125 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=5.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 1.1641532182693481e-10
+// max(|f - f_GSL| / |f_GSL|): 1.4551915228366856e-15
+const testcase_hyperg<double>
+data126[19] =
+{
+ { 0.040386107340619266, 2.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.052922149401344633, 2.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.070429627772374270, 2.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.095367431640624972, 2.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.13168724279835387, 2.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.18593443208187066, 2.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.26932907434290437, 2.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.40187757201646096, 2.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.62092132305915493, 2.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.6935087808430296, 2.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 3.0517578124999991, 2.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 5.9499018266198629, 2.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 12.860082304526737, 2.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 32.000000000000000, 2.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 97.656250000000114, 2.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 411.52263374485580, 2.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 3124.9999999999991, 2.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 99999.999999999665, 2.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler126 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=5.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 6.8212102632969618e-13
+// max(|f - f_GSL| / |f_GSL|): 1.2402200478721823e-15
+const testcase_hyperg<double>
+data127[19] =
+{
+ { 0.21140107887447138, 2.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.24005486968449927, 2.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.27478119275391810, 2.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.31738281250000006, 2.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.37037037037037024, 2.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.43731778425655959, 2.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.52344105598543467, 2.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.63657407407407429, 2.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.78888054094665638, 2.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.3031550068587108, 2.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.7578125000000002, 2.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 2.4781341107871717, 2.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 3.7037037037037037, 2.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 5.9999999999999982, 2.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 10.937500000000005, 2.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 24.074074074074076, 2.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 74.999999999999957, 2.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 549.99999999999670, 2.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler127 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=5.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 4.9737991503207013e-14
+// max(|f - f_GSL| / |f_GSL|): 1.6580642616864663e-15
+const testcase_hyperg<double>
+data128[19] =
+{
+ { 0.33250915203252129, 2.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.36566851047721943, 2.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.40414812182437959, 2.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.44916943268118498, 2.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.50233081077479547, 2.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.56575808728873334, 2.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.64233106844971433, 2.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.73603371116919514, 2.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.85251256240112439, 2.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.1909065696197674, 2.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.4447095285569311, 2.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.7935243137840653, 2.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 2.2937035820494454, 2.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 3.0524711083016687, 2.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 4.2976512669354259, 2.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 6.5977107563194677, 2.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 11.793747206577530, 2.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 29.997625937982058, 2.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler128 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=5.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 1.1546319456101628e-14
+// max(|f - f_GSL| / |f_GSL|): 1.4852319937858947e-15
+const testcase_hyperg<double>
+data129[19] =
+{
+ { 0.42108197362250294, 2.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.45503172013983040, 2.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.49345609813624314, 2.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.53720880551221295, 2.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.58736431524847466, 2.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.64529222467897973, 2.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.71276337354393937, 2.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.79210466220795306, 2.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.88643063455510596, 2.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.1387832139040652, 2.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.3114025920844752, 2.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.5307655016768162, 2.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.8170727950333345, 2.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 2.2037865486700836, 2.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 2.7506766056439380, 2.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 3.5764534935716972, 2.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 4.9587762302155403, 2.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 7.7740847924166800, 2.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler129 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=5.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-15
+// max(|f - f_GSL| / |f_GSL|): 1.0721199711322771e-15
+const testcase_hyperg<double>
+data130[19] =
+{
+ { 0.48860241312958436, 2.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.52193382517068487, 2.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.55902375003954219, 2.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.60049055150230324, 2.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.64709127927203469, 2.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.69976233335368987, 2.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.75967529501080999, 2.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.82831498895254407, 2.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.90759090169653933, 2.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.1088712278667465, 2.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.2387445478440853, 2.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.3959812720437546, 2.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.5897930661091164, 2.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.8340789380307454, 2.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 2.1509548085970764, 2.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 2.5782406951207504, 2.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 3.1877847194242737, 2.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 4.1421596631676900, 2.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler130 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=10.000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 2.2888183593750000e-05
+// max(|f - f_GSL| / |f_GSL|): 2.8610229492187516e-15
+const testcase_hyperg<double>
+data131[19] =
+{
+ { 0.0016310376661280216, 2.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.0028007538972582421, 2.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.0049603324681551939, 2.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.0090949470177292789, 2.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.017341529915832606, 2.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.034571613033607777, 2.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.072538150286405714, 2.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.16150558288984579, 2.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.38554328942953148, 2.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 2.8679719907924444, 2.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 9.3132257461547816, 2.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 35.401331746414378, 2.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 165.38171687920172, 2.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1024.0000000000000, 2.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 9536.7431640625200, 2.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 169350.87808430271, 2.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 9765624.9999999944, 2.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 9999999999.9999332, 2.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler131 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=10.000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 1.4901161193847656e-08
+// max(|f - f_GSL| / |f_GSL|): 1.4958811384436855e-15
+const testcase_hyperg<double>
+data132[19] =
+{
+ { 0.071191280690193537, 2.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.085646504654238384, 2.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.10478215656371109, 2.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.13074816337653578, 2.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.16701141666848118, 2.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.21939323375313968, 2.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.29813515331786616, 2.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.42225974638874397, 2.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.62942145962174878, 2.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.7218685262373197, 2.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 3.2855760483514689, 2.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 7.1616652508907093, 2.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 18.612326808485907, 2.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 61.476190476190474, 2.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 286.27580915178623, 2.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 2274.9441142102296, 2.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 47229.761904761865, 2.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 9961460.7142856438, 2.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler132 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=10.000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 8.7311491370201111e-11
+// max(|f - f_GSL| / |f_GSL|): 1.5843951771650368e-15
+const testcase_hyperg<double>
+data133[19] =
+{
+ { 0.14747230019381058, 2.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.17073600100690609, 2.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.19982795745135354, 2.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.23681776864188053, 2.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.28475624360398011, 2.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.34827500743063133, 2.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.43464829159684687, 2.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.55576053438064787, 2.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.73195020913445530, 2.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.4310223867822929, 2.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 2.1742563399057540, 2.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 3.5769231236256043, 2.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 6.5620441134844363, 2.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 14.063492063492063, 2.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 38.085937500000036, 2.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 150.92973632068282, 2.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1212.3015873015852, 2.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 55107.142857142389, 2.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler133 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=10.000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 1.8189894035458565e-12
+// max(|f - f_GSL| / |f_GSL|): 1.4848893090170350e-15
+const testcase_hyperg<double>
+data134[19] =
+{
+ { 0.21658059714090577, 2.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.24513539602702861, 2.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.27967018274845046, 2.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.32196044921875022, 2.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.37448559670781911, 2.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.44078856032208824, 2.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.52606701446027793, 2.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.63818158436213956, 2.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.78944971882612769, 2.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.3044251384443430, 2.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.7659505208333335, 2.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 2.5093710953769270, 2.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 3.8065843621399158, 2.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 6.3333333333333313, 2.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 12.109375000000004, 2.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 29.115226337448540, 2.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 108.33333333333330, 2.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1224.9999999999923, 2.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler134 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=10.000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 4.2632564145606011e-14
+// max(|f - f_GSL| / |f_GSL|): 4.2632564145606064e-16
+const testcase_hyperg<double>
+data135[19] =
+{
+ { 0.27700831024930750, 2.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.30864197530864196, 2.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.34602076124567477, 2.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.39062499999999994, 2.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.44444444444444442, 2.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.51020408163265307, 2.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.59171597633136097, 2.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.69444444444444453, 2.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.82644628099173545, 2.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.2345679012345681, 2.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.5624999999999998, 2.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 2.0408163265306127, 2.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 2.7777777777777768, 2.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 4.0000000000000000, 2.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 6.2500000000000036, 2.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 11.111111111111109, 2.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 25.000000000000007, 2.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 99.999999999999872, 2.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler135 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=20.000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 425984.00000000000
+// max(|f - f_GSL| / |f_GSL|): 5.4067200000000052e-15
+const testcase_hyperg<double>
+data136[19] =
+{
+ { 2.6602838683283435e-06, 2.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 7.8442223930072316e-06, 2.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 2.4604898194634598e-05, 2.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 8.2718061255302686e-05, 2.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.00030072865982171723, 2.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.0011951964277455193, 2.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.0052617832469731814, 2.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.026084053304588847, 2.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.14864362802414346, 2.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 8.2252633399699757, 2.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 86.736173798840269, 2.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1253.2542894196865, 2.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 27351.112277912434, 2.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1048576.0000000000, 2.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 90949470.177293226, 2.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 28679719907.924358, 2.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 95367431640624.906, 2.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 9.9999999999998657e+19, 2.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler136 = 5.0000000000000039e-13;
+
+// Test data for a=2.0000000000000000, b=20.000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 40.000000000000000
+// max(|f - f_GSL| / |f_GSL|): 1.8712609271523571e-15
+const testcase_hyperg<double>
+data137[19] =
+{
+ { 0.018828092583720632, 2.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.023381944060455365, 2.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.029789623984280887, 2.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.039191021482500567, 2.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.053727813036721528, 2.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.077762010061669079, 2.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.12110505620123306, 2.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.20870149809080582, 2.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.41429234328785763, 2.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 3.1308087404153113, 2.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 13.586180626453050, 2.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 87.117304082784415, 2.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 889.26474381242826, 2.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 16231.913312693494, 2.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 653537.51168945129, 2.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 87756230.793848589, 2.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 101493977171.74945, 2.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 21375960679556916., 2.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler137 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=20.000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 0.031250000000000000
+// max(|f - f_GSL| / |f_GSL|): 1.6379336164122315e-15
+const testcase_hyperg<double>
+data138[19] =
+{
+ { 0.049200410661854238, 2.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.059460876757152607, 2.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.073244762686653225, 2.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.092334626017932769, 2.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.11976760350696856, 2.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.16102414609169408, 2.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.22670456785796225, 2.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.33912903252727361, 2.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.55049794600858049, 2.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 2.1254722872032232, 2.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 5.6261213886736172, 2.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 20.137315891130996, 2.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 108.04381584643853, 2.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 992.41692466460245, 2.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 19055.363816004465, 2.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1105471.9504312086, 2.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 448521363.90608919, 2.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 19078917293639.004, 2.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler138 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=20.000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 8.3923339843750000e-05
+// max(|f - f_GSL| / |f_GSL|): 1.8221514326727084e-15
+const testcase_hyperg<double>
+data139[19] =
+{
+ { 0.083753547015334884, 2.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.099238444687035743, 2.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.11938294012867748, 2.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.14622683905023329, 2.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.18303556733713028, 2.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.23527764069382412, 2.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.31261681740827085, 2.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.43327581880538862, 2.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.63445840637296680, 2.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.7438842395813297, 2.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 3.5070840938209269, 2.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 8.6573372006089713, 2.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 28.779342118408906, 2.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 147.50178613955714, 2.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1427.1686016136398, 2.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 36780.643714655642, 2.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 5313869.6058585485, 2.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 46057280607.381966, 2.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler139 = 2.5000000000000020e-13;
+
+// Test data for a=2.0000000000000000, b=20.000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 5.0663948059082031e-07
+// max(|f - f_GSL| / |f_GSL|): 1.9925479281070174e-15
+const testcase_hyperg<double>
+data140[19] =
+{
+ { 0.11920045035073676, 2.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.13907946814302777, 2.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.16431439792559696, 2.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.19698796016986989, 2.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.24028510928790547, 2.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.29926031296483113, 2.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.38229327814229153, 2.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.50402047283093132, 2.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.69167261179586526, 2.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 2.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.5503152253394308, 2.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 2.6469548193635797, 2.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 5.1882631330566813, 2.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 12.476792759124516, 2.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 41.026391565091259, 2.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 220.92584715988204, 2.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 2677.0834450236207, 2.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 141774.31260689779, 2.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 254267148.83196995, 2.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler140 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=0.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data141[19] =
+{
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler141 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=0.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data142[19] =
+{
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler142 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=0.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data143[19] =
+{
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler143 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=0.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data144[19] =
+{
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler144 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=0.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data145[19] =
+{
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 5.0000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler145 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=0.50000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 4.5474735088646412e-13
+// max(|f - f_GSL| / |f_GSL|): 1.5124797514980704e-15
+const testcase_hyperg<double>
+data146[19] =
+{
+ { 0.52275983209457544, 5.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.54700336898143009, 5.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.57468955512602038, 5.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.60665490543315048, 5.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.64403057859056190, 5.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.68838183648623730, 5.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.74193265039311129, 5.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.80794095908995300, 5.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.89135275749639320, 5.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.1469266219310688, 5.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.3552340708357489, 5.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1.6690840478838305, 5.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 2.1815415453174483, 5.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 3.1156892546032235, 5.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 5.1109077417760416, 5.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 10.560352936466296, 5.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 33.541019662496815, 5.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 300.66343065819501, 5.0000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler146 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=0.50000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 8.8817841970012523e-15
+// max(|f - f_GSL| / |f_GSL|): 1.3217255411112326e-15
+const testcase_hyperg<double>
+data147[19] =
+{
+ { 0.68252041951139286, 5.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.70394732624993395, 5.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.72748884971552052, 5.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.75351147371199667, 5.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.78247589005573737, 5.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.81497017420249807, 5.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.85175826875009586, 5.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.89385278481745867, 5.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.94262778709507411, 5.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.0687327277420910, 5.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.1529725508983291, 5.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.2592587134058799, 5.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.3985773194637892, 5.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1.5909902576697317, 5.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 1.8776023607249752, 5.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 2.3582499003694646, 5.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 3.3541019662496838, 5.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 6.7198400278577859, 5.0000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler147 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=0.50000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 2.6645352591003757e-15
+// max(|f - f_GSL| / |f_GSL|): 1.2228264607471081e-15
+const testcase_hyperg<double>
+data148[19] =
+{
+ { 0.75755211927082600, 5.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.77603550233010965, 5.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.79596241913438504, 5.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.81753360792105212, 5.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.84099165409805532, 5.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.86663303852180895, 5.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.89482475828629970, 5.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.92602774279590350, 5.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.96083064727087386, 5.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0445570841313008, 5.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.0959004638926031, 5.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.1560106261370562, 5.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.2278121770678145, 5.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.3158640214709998, 5.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.4278095344155000, 5.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1.5778700502946612, 5.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1.7972173289196469, 5.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 2.1789970569269732, 5.0000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler148 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=0.50000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 4.2082370290419495e-16
+const testcase_hyperg<double>
+data149[19] =
+{
+ { 0.80270093579329460, 5.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.81884974572462765, 5.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.83605266330015260, 5.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.85443340762796027, 5.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.87413762182790711, 5.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.89533826626907287, 5.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.91824276674115290, 5.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.94310265050720576, 5.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.97022678857609712, 5.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0329098673199812, 5.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.0695865684573389, 5.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.1108642103944570, 5.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.1578795055970506, 5.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.2122394794169442, 5.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.2763274721556934, 5.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.3539179650251021, 5.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 1.4515986118197148, 5.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.5829284571614219, 5.0000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler149 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=0.50000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 2.2751041935095266e-16
+const testcase_hyperg<double>
+data150[19] =
+{
+ { 0.83322694172301981, 5.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.84753931604765675, 5.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.86265784532195022, 5.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.87866479300707090, 5.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.89565516540263501, 5.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.91373946207610512, 5.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.93304721345881891, 5.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.95373159512905148, 5.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.97597554238828121, 5.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0260752851887982, 5.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.0545371197996178, 5.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.0858099017045830, 5.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.1204416568688709, 5.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.1591587835964847, 5.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.2029564720303347, 5.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.2532588722007874, 5.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.3122319926925459, 5.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.3834948587364100, 5.0000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler150 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=1.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 4.0927261579781771e-12
+// max(|f - f_GSL| / |f_GSL|): 1.4735287697491276e-15
+const testcase_hyperg<double>
+data151[19] =
+{
+ { 0.25646288779245086, 5.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.28273129096174376, 5.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.31438201170962982, 5.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.35308837890625017, 5.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.40123456790123452, 5.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.46230737192836308, 5.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.54156016946185348, 5.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.64718364197530875, 5.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.79246636158732342, 5.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.3103947568968148, 5.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.8017578125000004, 5.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 2.6374427321949185, 5.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 4.1975308641975282, 5.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 7.4999999999999964, 5.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 15.859375000000012, 5.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 43.734567901234513, 5.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 194.99999999999994, 5.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 2777.4999999999832, 5.0000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler151 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=1.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 4.2632564145606011e-14
+// max(|f - f_GSL| / |f_GSL|): 1.3117712044801915e-15
+const testcase_hyperg<double>
+data152[19] =
+{
+ { 0.46398891966759009, 5.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.49382716049382724, 5.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.52768166089965407, 5.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.56640625000000000, 5.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.61111111111111094, 5.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.66326530612244905, 5.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.72485207100591698, 5.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.79861111111111094, 5.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.88842975206611552, 5.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.1419753086419753, 5.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.3281249999999998, 5.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.5816326530612239, 5.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.9444444444444444, 5.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 2.5000000000000000, 5.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 3.4374999999999996, 5.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 5.2777777777777715, 5.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 9.9999999999999947, 5.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 32.499999999999837, 5.0000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler152 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=1.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 6.2172489379008766e-15
+// max(|f - f_GSL| / |f_GSL|): 1.2433022037532461e-15
+const testcase_hyperg<double>
+data153[19] =
+{
+ { 0.57476744883397490, 5.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.60302731682513966, 5.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.63425708719096374, 5.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.66895764182970430, 5.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.70775063063963473, 5.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.75141762103495924, 5.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.80095569442603298, 5.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.85765823887436754, 5.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.92323549576335540, 5.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0911622464839472, 5.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.2013226178607666, 5.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.3373332072682687, 5.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.5099074378209716, 5.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.7368822229245819, 5.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 2.0505871832661429, 5.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 2.5172389775867967, 5.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 3.3015631983556144, 5.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 5.0005935155044519, 5.0000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler153 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=1.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 3.1086244689504383e-15
+// max(|f - f_GSL| / |f_GSL|): 1.1989697058841889e-15
+const testcase_hyperg<double>
+data154[19] =
+{
+ { 0.64582752605387983, 5.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.67184161997264191, 5.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.70012779922368040, 5.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.73100784656910278, 5.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.76486919089091066, 5.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.80218301124334557, 5.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.84352883533234413, 5.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.88962858902212572, 5.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.94139473468584123, 5.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0669812691939897, 5.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.1443996012177726, 5.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.2350966976721314, 5.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.3431264370409088, 5.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.4745266814162399, 5.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.6388137104840066, 5.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.8522074849776518, 5.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 2.1458016978417458, 5.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 2.5927464669826339, 5.0000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler154 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=1.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 1.1102230246251565e-15
+// max(|f - f_GSL| / |f_GSL|): 5.6896158687269898e-16
+const testcase_hyperg<double>
+data155[19] =
+{
+ { 0.69583236336670584, 5.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.71968920666899716, 5.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.74533885416044232, 5.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.77300145361503070, 5.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.80293630810919447, 5.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.83545132638592001, 5.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.87091544744412497, 5.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.90977522877919847, 5.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.95257738192069130, 5.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0528968282789379, 5.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.1123617169062123, 5.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.1798254572896132, 5.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.2572069000522696, 5.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.3471600884974377, 5.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.4535032279573519, 5.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.5820245752814948, 5.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.7421756366906538, 5.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.9513145531098233, 5.0000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler155 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=2.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 1.1641532182693481e-10
+// max(|f - f_GSL| / |f_GSL|): 1.4551915228366856e-15
+const testcase_hyperg<double>
+data156[19] =
+{
+ { 0.040386107340619266, 5.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.052922149401344633, 5.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.070429627772374270, 5.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.095367431640624972, 5.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.13168724279835387, 5.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.18593443208187066, 5.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.26932907434290437, 5.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.40187757201646096, 5.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.62092132305915493, 5.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.6935087808430296, 5.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 3.0517578124999991, 5.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 5.9499018266198629, 5.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 12.860082304526737, 5.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 32.000000000000000, 5.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 97.656250000000114, 5.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 411.52263374485580, 5.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 3124.9999999999991, 5.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 99999.999999999665, 5.0000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler156 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=2.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 6.8212102632969618e-13
+// max(|f - f_GSL| / |f_GSL|): 1.2402200478721823e-15
+const testcase_hyperg<double>
+data157[19] =
+{
+ { 0.21140107887447138, 5.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.24005486968449927, 5.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.27478119275391810, 5.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.31738281250000006, 5.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.37037037037037024, 5.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.43731778425655959, 5.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.52344105598543467, 5.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.63657407407407429, 5.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.78888054094665638, 5.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.3031550068587108, 5.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.7578125000000002, 5.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 2.4781341107871717, 5.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 3.7037037037037037, 5.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 5.9999999999999982, 5.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 10.937500000000005, 5.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 24.074074074074076, 5.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 74.999999999999957, 5.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 549.99999999999670, 5.0000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler157 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=2.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 4.9737991503207013e-14
+// max(|f - f_GSL| / |f_GSL|): 1.6580642616864663e-15
+const testcase_hyperg<double>
+data158[19] =
+{
+ { 0.33250915203252129, 5.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.36566851047721943, 5.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.40414812182437959, 5.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.44916943268118498, 5.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.50233081077479547, 5.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.56575808728873334, 5.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.64233106844971433, 5.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.73603371116919514, 5.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.85251256240112439, 5.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.1909065696197674, 5.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.4447095285569311, 5.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.7935243137840653, 5.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 2.2937035820494454, 5.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 3.0524711083016687, 5.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 4.2976512669354259, 5.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 6.5977107563194677, 5.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 11.793747206577530, 5.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 29.997625937982058, 5.0000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler158 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=2.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 1.1546319456101628e-14
+// max(|f - f_GSL| / |f_GSL|): 1.4852319937858947e-15
+const testcase_hyperg<double>
+data159[19] =
+{
+ { 0.42108197362250294, 5.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.45503172013983040, 5.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.49345609813624314, 5.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.53720880551221295, 5.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.58736431524847466, 5.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.64529222467897973, 5.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.71276337354393937, 5.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.79210466220795306, 5.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.88643063455510596, 5.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.1387832139040652, 5.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.3114025920844752, 5.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.5307655016768162, 5.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.8170727950333345, 5.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 2.2037865486700836, 5.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 2.7506766056439380, 5.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 3.5764534935716972, 5.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 4.9587762302155403, 5.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 7.7740847924166800, 5.0000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler159 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=2.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-15
+// max(|f - f_GSL| / |f_GSL|): 1.0721199711322771e-15
+const testcase_hyperg<double>
+data160[19] =
+{
+ { 0.48860241312958436, 5.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.52193382517068487, 5.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.55902375003954219, 5.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.60049055150230324, 5.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.64709127927203469, 5.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.69976233335368987, 5.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.75967529501080999, 5.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.82831498895254407, 5.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.90759090169653933, 5.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.1088712278667465, 5.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.2387445478440853, 5.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.3959812720437546, 5.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.5897930661091164, 5.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.8340789380307454, 5.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 2.1509548085970764, 5.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 2.5782406951207504, 5.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 3.1877847194242737, 5.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 4.1421596631676900, 5.0000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler160 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=5.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 1.3113021850585938e-06
+// max(|f - f_GSL| / |f_GSL|): 2.8467351045253575e-14
+const testcase_hyperg<double>
+data161[19] =
+{
+ { -0.0047236848832209926, 5.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { -0.0073321496427104288, 5.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { -0.010977302557845620, 5.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { -0.015692785382270882, 5.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { -0.020728547477518663, 5.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { -0.022767481479412880, 5.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { -0.010634636868114181, 5.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.050699832580781923, 5.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.27045765367659280, 5.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 3.4387055868901171, 5.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 12.052059173583981, 5.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 45.565319600798020, 5.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 196.23532998018572, 5.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1032.0000000000002, 5.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 7376.0986328125073, 5.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 86964.639536655843, 5.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 2596875.0000000009, 5.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 766224999.99999273, 5.0000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler161 = 2.5000000000000015e-12;
+
+// Test data for a=5.0000000000000000, b=5.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 1.8626451492309570e-09
+// max(|f - f_GSL| / |f_GSL|): 1.5205266524334494e-15
+const testcase_hyperg<double>
+data162[19] =
+{
+ { 0.016473280625778776, 5.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.023520955289486591, 5.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.034179084066005165, 5.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.050663948059081955, 5.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.076817558299039870, 5.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.11952927776691698, 5.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.19163799520552802, 5.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.31815307784636504, 5.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.55036208180243285, 5.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.9287183337378946, 5.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 4.0054321289062473, 5.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 9.1373492337376394, 5.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 23.576817558299005, 5.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 71.999999999999972, 5.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 280.76171875000023, 5.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 1611.7969821673514, 5.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 18749.999999999996, 5.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 1224999.9999999879, 5.0000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler162 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=5.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 1.8189894035458565e-11
+// max(|f - f_GSL| / |f_GSL|): 1.5011259042308369e-15
+const testcase_hyperg<double>
+data163[19] =
+{
+ { 0.067462409738203527, 5.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.084813629887172531, 5.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.10799223563666395, 5.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.13947766136095380, 5.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.18305927261494301, 5.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.24468431546783440, 5.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.33397274564972929, 5.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.46703323887436765, 5.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.67194346197695642, 5.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.5503148146900136, 5.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 2.5278200136940998, 5.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 4.3933515329658954, 5.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 8.3000308946110888, 5.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 17.570215556257921, 5.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 43.847462183266167, 5.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 141.86909082943853, 5.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 736.63489653168926, 5.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 12117.500593515439, 5.0000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler163 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=5.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 6.8212102632969618e-13
+// max(|f - f_GSL| / |f_GSL|): 1.3038469641917493e-15
+const testcase_hyperg<double>
+data164[19] =
+{
+ { 0.12409443806004226, 5.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.14886910375100415, 5.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.18023328876836348, 5.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.22044046981094723, 5.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.27271160690708790, 5.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.34174821195025828, 5.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.43457788826160254, 5.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.56199385898404552, 5.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.74109892753745221, 5.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.3869229400096228, 5.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.9890168748121255, 5.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 2.9741205609307424, 5.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 4.6924751038237300, 5.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 7.9555939380658254, 5.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 14.933102063314404, 5.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 32.780461638447491, 5.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 94.848124287773530, 5.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 523.16034401517425, 5.0000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler164 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=5.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 9.9475983006414026e-14
+// max(|f - f_GSL| / |f_GSL|): 1.3163001721303592e-15
+const testcase_hyperg<double>
+data165[19] =
+{
+ { 0.17885405888526873, 5.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.20861302518993391, 5.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.24504033307244946, 5.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.29007236051133489, 5.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.34635542859732737, 5.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.41756858504598376, 5.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.50892615622124371, 5.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.62798173270509761, 5.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.78595487360378424, 5.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.2972517637384813, 5.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.7224028197396388, 5.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 2.3527690438263305, 5.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 3.3305218060101116, 5.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 4.9383884076775466, 5.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 7.8007604680775229, 5.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 13.518663719271885, 5.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 27.285345906502567, 5.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 75.572415101501988, 5.0000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler165 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=10.000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 0.81250000000000000
+// max(|f - f_GSL| / |f_GSL|): 1.8182428501096805e-15
+const testcase_hyperg<double>
+data166[19] =
+{
+ { 0.00063586451658060813, 5.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.0010334743461763829, 5.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.0015326246054669763, 5.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.0019007018181583513, 5.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.0012845577715431562, 5.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { -0.0027213806178057538, 5.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { -0.015121744574954058, 5.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { -0.036637840562974290, 5.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.019117849062621605, 5.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 9.8116901852350615, 5.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 84.255589172244044, 5.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 773.87517619421294, 5.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 8556.9725363053585, 5.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 129023.99999999996, 5.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 3174543.3807373112, 5.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 175133896.95814410, 5.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 43564453125.000061, 5.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 446859999999993.50, 5.0000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler166 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=10.000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 0.00039672851562500000
+// max(|f - f_GSL| / |f_GSL|): 1.6882064494681041e-15
+const testcase_hyperg<double>
+data167[19] =
+{
+ { -0.00030045430691814646, 5.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { -0.00031119487747322054, 5.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { -0.00014589213141656318, 5.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.00056843418860824636, 5.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.0028902549859721747, 5.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.0098776037238878477, 5.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.030689217428863869, 5.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.094211590019076558, 5.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.29791981455918370, 5.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 3.6646308771236793, 5.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 15.133991837501521, 5.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 73.331330046144089, 5.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 441.01791167787133, 5.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 3583.9999999999991, 5.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 45299.530029296984, 5.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 1157231.0002427341, 5.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 107421875.00000016, 5.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 234999999999.99734, 5.0000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler167 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=10.000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 9.5367431640625000e-07
+// max(|f - f_GSL| / |f_GSL|): 1.6314276114917867e-15
+const testcase_hyperg<double>
+data168[19] =
+{
+ { 0.0058530497315413248, 5.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.0088526869356855397, 5.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.013770987983442959, 5.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.022108932690960776, 5.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.036786236450921550, 5.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.063750669040426505, 5.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.11577228680714462, 5.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.22197573416125760, 5.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.45361312968415324, 5.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 2.4162889363082747, 5.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 6.5381564791240399, 5.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 20.415771011498428, 5.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 76.870682056629221, 5.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 373.58730158730162, 5.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 2626.2555803571477, 5.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 33060.960671081048, 5.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1203521.8253968258, 5.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 584564285.71427989, 5.0000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler168 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=10.000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 7.4505805969238281e-09
+// max(|f - f_GSL| / |f_GSL|): 1.6196914341138888e-15
+const testcase_hyperg<double>
+data169[19] =
+{
+ { 0.020248990107069573, 5.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.027876687750502366, 5.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.039154648888447607, 5.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.056251883506774715, 5.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.082914189910074473, 5.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.12585357817786455, 5.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.19761423206224954, 5.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.32280443863359237, 5.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.55250024062839420, 5.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.9374297986599267, 5.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 4.0849049886067696, 5.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 9.5926988633258983, 5.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 25.958314281359531, 5.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 85.333333333333300, 5.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 372.31445312500028, 5.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 2545.3436976070675, 5.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 39583.333333333343, 5.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 4599999.9999999627, 5.0000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler169 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=10.000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 1.1641532182693481e-10
+// max(|f - f_GSL| / |f_GSL|): 1.4551915228366856e-15
+const testcase_hyperg<double>
+data170[19] =
+{
+ { 0.040386107340619266, 5.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.052922149401344633, 5.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.070429627772374270, 5.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.095367431640624972, 5.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.13168724279835387, 5.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.18593443208187066, 5.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.26932907434290437, 5.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.40187757201646096, 5.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.62092132305915493, 5.0000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.6935087808430296, 5.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 3.0517578124999991, 5.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 5.9499018266198629, 5.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 12.860082304526737, 5.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 32.000000000000000, 5.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 97.656250000000114, 5.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 411.52263374485580, 5.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 3124.9999999999991, 5.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 99999.999999999665, 5.0000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler170 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=20.000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 60129542144.000000
+// max(|f - f_GSL| / |f_GSL|): 2.0181355730233454e-15
+const testcase_hyperg<double>
+data171[19] =
+{
+ { -1.8650300348790099e-05, 5.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { -3.6488008415371319e-05, 5.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { -6.4614776410961038e-05, 5.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { -8.4495207102246549e-05, 5.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 2.2276197023825424e-05, 5.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.00070736115111447856, 5.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.0027829732057273854, 5.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.0013283545664371644, 5.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { -0.041767631015048774, 5.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 61.311496556100003, 5.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 2397.4420539085681, 5.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 103687.60998586559, 5.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 6247196.6451068865, 5.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 656408576.00000000, 5.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 165334768098.54715, 5.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 175097125520816.81, 5.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 2.6818275451660257e+18, 5.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 2.9794599999999321e+25, 5.0000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler171 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=20.000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 9437184.0000000000
+// max(|f - f_GSL| / |f_GSL|): 2.0515617391304744e-15
+const testcase_hyperg<double>
+data172[19] =
+{
+ { -3.6403884516313627e-06, 5.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { -9.5873829246491408e-06, 5.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { -2.6052245147200097e-05, 5.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { -7.2378303598384501e-05, 5.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { -0.00020048577321417379, 5.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { -0.00051222704046227391, 5.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { -0.00080950511491898055, 5.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.0043473422174314250, 5.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.081078342558623853, 5.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 12.794854084397739, 5.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 195.15639104739046, 5.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 3938.7991953190131, 5.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 118521.48653762060, 5.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 6291455.9999999972, 5.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 773070496.50699198, 5.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 363276452167.04102, 5.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 2002716064453133.0, 5.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 4.5999999999999109e+21, 5.0000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler172 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=20.000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 5120.0000000000000
+// max(|f - f_GSL| / |f_GSL|): 1.7944916193878923e-15
+const testcase_hyperg<double>
+data173[19] =
+{
+ { 0.00014313323624053599, 5.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.00025426183473118769, 5.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.00048255612836437054, 5.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.00099096904674794185, 5.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.0022347805521915616, 5.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.0056271390060292845, 5.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.016109059519227316, 5.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.053453465775609076, 5.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.20995202901839263, 5.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 5.9534372167648799, 5.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 46.157632071205875, 5.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 494.32074431164915, 5.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 7989.5277611775946, 5.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 224179.55830753347, 5.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 13848144.485282511, 5.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 2948587692.8891716, 5.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 5940513286161.6602, 5.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 2.8531757655945201e+18, 5.0000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler173 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=20.000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 7.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 1.5351977183414298e-15
+const testcase_hyperg<double>
+data174[19] =
+{
+ { 0.0012492049968744917, 5.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.0019931241968014200, 5.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.0033203386861410844, 5.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.0058191894509856774, 5.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.010830090368313864, 5.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.021653062305192875, 5.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.047180821280919043, 5.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.11405637279736212, 5.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.31275468794721017, 5.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 3.8598904658643969, 5.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 18.806301417906667, 5.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 122.77054465017432, 5.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1168.4762146808946, 5.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 18437.511788521082, 5.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 597441.79669264762, 5.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 59390411.369227782, 5.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 44681668993.361603, 5.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 4559673269683164.0, 5.0000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler174 = 2.5000000000000020e-13;
+
+// Test data for a=5.0000000000000000, b=20.000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 0.029296875000000000
+// max(|f - f_GSL| / |f_GSL|): 1.8717083246628922e-15
+const testcase_hyperg<double>
+data175[19] =
+{
+ { 0.0038867957051370739, 5.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.0058484892597364235, 5.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.0090987656053758189, 5.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.014714392537270657, 5.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.024900404542056772, 5.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.044460184663785027, 5.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.084638849196356780, 5.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.17409058241291026, 5.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.39357055823580767, 5.0000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 5.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 2.9410794636226596, 5.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 10.417226071414344, 5.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 46.930585873140835, 5.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 290.76717121814852, 5.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 2788.1641083374830, 5.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 50228.117718560752, 5.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 2433042.3476752634, 5.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 705345246.77141762, 5.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 15652478868616.762, 5.0000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler175 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=0.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data176[19] =
+{
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler176 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=0.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data177[19] =
+{
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler177 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=0.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data178[19] =
+{
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler178 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=0.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data179[19] =
+{
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler179 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=0.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data180[19] =
+{
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 10.000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler180 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=0.50000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 1.4901161193847656e-08
+// max(|f - f_GSL| / |f_GSL|): 1.8229127098648091e-15
+const testcase_hyperg<double>
+data181[19] =
+{
+ { 0.37727530159464628, 10.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.39816010922169059, 10.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.42283703041362447, 10.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.45255640448730527, 10.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.48919507154431119, 10.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.53569358917731924, 10.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.59689778897029544, 10.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.68128587569875765, 10.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.80478739308790359, 10.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.3408664196153621, 10.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 2.0175364359923860, 10.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 3.6011214553736646, 10.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 8.1799429939495312, 10.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 25.644834637536000, 10.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 123.13738891597615, 10.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 1088.7122410321333, 10.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 27358.291704709951, 10.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 8174369.0266731177, 10.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler181 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=0.50000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 2.0008883439004421e-11
+// max(|f - f_GSL| / |f_GSL|): 1.5684473872214654e-15
+const testcase_hyperg<double>
+data182[19] =
+{
+ { 0.53905528308450823, 10.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.56235533974376162, 10.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.58887657983263575, 10.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.61941227047262937, 10.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.65504896640793864, 10.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.69731666644529977, 10.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.74844073299399139, 10.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.81178446800105830, 10.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.89266981277598045, 10.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.1497248473106778, 10.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.3729717112654571, 10.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.7374982340374392, 10.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 2.4134479340960580, 10.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 3.9191255240471192, 10.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 8.3316373077761270, 10.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 28.323020339843335, 10.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 225.84286572747891, 10.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 12757.127591286655, 10.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler182 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=0.50000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 1.9895196601282805e-13
+// max(|f - f_GSL| / |f_GSL|): 1.4567107859209967e-15
+const testcase_hyperg<double>
+data183[19] =
+{
+ { 0.62672622092226027, 10.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.64931010269769840, 10.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.67448067519076293, 10.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.70276306239803643, 10.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.73484179773087521, 10.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.77162761412743874, 10.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.81436116844816564, 10.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.86477994787944579, 10.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.92539820516603888, 10.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0945599448210315, 10.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.2190897395597264, 10.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.3916844336856475, 10.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.6484497630432013, 10.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 2.0717772717131155, 10.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 2.8893613630810924, 10.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 4.9459404075413529, 10.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 13.487394149998716, 10.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 136.57616044013972, 10.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler183 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=0.50000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 1.2434497875801753e-14
+// max(|f - f_GSL| / |f_GSL|): 1.3245081211977836e-15
+const testcase_hyperg<double>
+data184[19] =
+{
+ { 0.68421604440344319, 10.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.70548098055548925, 10.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.72884342311710337, 10.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.75466953437856232, 10.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.78342090924662589, 10.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.81568884278645082, 10.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.85224480241465239, 10.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.89411692571131685, 10.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.94270986892954811, 10.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0688682849120232, 10.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.1537004376097553, 10.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.2615455028370031, 10.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.4045541456153436, 10.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.6057216489444517, 10.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.9146603020550739, 10.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 2.4617931307620298, 10.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 3.7267799624996498, 10.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 9.3880118036248401, 10.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler184 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=0.50000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 1.5700924586837752e-16
+const testcase_hyperg<double>
+data185[19] =
+{
+ { 0.72547625011001171, 10.000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.74535599249992990, 10.000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.76696498884737041, 10.000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.79056941504209477, 10.000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.81649658092772603, 10.000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.84515425472851657, 10.000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.87705801930702920, 10.000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.91287092917527690, 10.000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.95346258924559224, 10.000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0540925533894598, 10.000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.1180339887498949, 10.000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.1952286093343938, 10.000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.2909944487358056, 10.000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.4142135623730949, 10.000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.5811388300841900, 10.000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.8257418583505536, 10.000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 2.2360679774997898, 10.000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 3.1622776601683782, 10.000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler185 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=1.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 2.0861625671386719e-07
+// max(|f - f_GSL| / |f_GSL|): 1.6897916810721311e-15
+const testcase_hyperg<double>
+data186[19] =
+{
+ { 0.12307420104127866, 10.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.13818870041457434, 10.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.15739165631811705, 10.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.18249038606882081, 10.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.21644171225027795, 10.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.26433326159804132, 10.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.33544459430654539, 10.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.44788516696232511, 10.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.63989153514168373, 10.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.7568608796813312, 10.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 3.5836558871799027, 10.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 8.8077526749963226, 10.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 27.285841702089190, 10.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 113.55555555555557, 10.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 706.24023437500091, 10.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 8064.1687976651992, 10.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 271267.22222222196, 10.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 123456789.99999890, 10.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler186 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=1.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 2.6193447411060333e-10
+// max(|f - f_GSL| / |f_GSL|): 1.6039867544159931e-15
+const testcase_hyperg<double>
+data187[19] =
+{
+ { 0.28363728383055781, 10.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.30933003169808387, 10.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.33998437757128797, 10.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.37713553224291113, 10.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.42299736538419669, 10.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.48086597727600067, 10.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.55583495759293045, 10.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.65612850114039678, 10.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.79573668772968142, 10.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.3184712058058303, 10.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.8576958065941214, 10.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 2.8759509651764228, 10.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 5.1046225531822182, 10.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 11.095238095238095, 10.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 32.797154017857174, 10.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 158.01935680536477, 10.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1815.9523809523814, 10.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 163302.14285714156, 10.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler187 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=1.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 2.0463630789890885e-12
+// max(|f - f_GSL| / |f_GSL|): 1.5238873992472010e-15
+const testcase_hyperg<double>
+data188[19] =
+{
+ { 0.39006633302741811, 10.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.41898885698103278, 10.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.45245557983812590, 10.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.49160548618861627, 10.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.53798419230517991, 10.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.59373881442067322, 10.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.66193391357076126, 10.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.74708402736952118, 10.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.85609281019430605, 10.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.1974451135148187, 10.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.4820886036706347, 10.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.9201183180477521, 10.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 2.6569338297733336, 10.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 4.0634920634920650, 10.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 7.3102678571428568, 10.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 17.512574302697733, 10.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 74.206349206349131, 10.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 1342.8571428571363, 10.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler188 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=1.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 7.8159700933611020e-14
+// max(|f - f_GSL| / |f_GSL|): 1.4210854715202060e-15
+const testcase_hyperg<double>
+data189[19] =
+{
+ { 0.46726928123633210, 10.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.49687547629934464, 10.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.53045208856322223, 10.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.56884765624999989, 10.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.61316872427983504, 10.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.66488500161969566, 10.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.72598998634501577, 10.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.79925411522633760, 10.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.88863845062192182, 10.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.1423563481176653, 10.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.3302951388888888, 10.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.5889212827988335, 10.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.9650205761316870, 10.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 2.5555555555555549, 10.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 3.5937500000000013, 10.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 5.7818930041152203, 10.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 12.222222222222220, 10.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 54.999999999999780, 10.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler189 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=1.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 1.7763568394002505e-15
+// max(|f - f_GSL| / |f_GSL|): 2.1094237467877971e-16
+const testcase_hyperg<double>
+data190[19] =
+{
+ { 0.52631578947368429, 10.000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.55555555555555558, 10.000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.58823529411764708, 10.000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.62500000000000000, 10.000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.66666666666666663, 10.000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.71428571428571430, 10.000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.76923076923076927, 10.000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.83333333333333337, 10.000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.90909090909090906, 10.000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.1111111111111112, 10.000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.2500000000000000, 10.000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.4285714285714286, 10.000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.6666666666666663, 10.000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 2.0000000000000000, 10.000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 2.5000000000000004, 10.000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 3.3333333333333330, 10.000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 5.0000000000000009, 10.000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 9.9999999999999929, 10.000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler190 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=2.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 2.2888183593750000e-05
+// max(|f - f_GSL| / |f_GSL|): 2.8610229492187516e-15
+const testcase_hyperg<double>
+data191[19] =
+{
+ { 0.0016310376661280216, 10.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.0028007538972582421, 10.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.0049603324681551939, 10.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.0090949470177292789, 10.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.017341529915832606, 10.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.034571613033607777, 10.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.072538150286405714, 10.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.16150558288984579, 10.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.38554328942953148, 10.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 2.8679719907924444, 10.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 9.3132257461547816, 10.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 35.401331746414378, 10.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 165.38171687920172, 10.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1024.0000000000000, 10.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 9536.7431640625200, 10.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 169350.87808430271, 10.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 9765624.9999999944, 10.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 9999999999.9999332, 10.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler191 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=2.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 1.4901161193847656e-08
+// max(|f - f_GSL| / |f_GSL|): 1.4958811384436855e-15
+const testcase_hyperg<double>
+data192[19] =
+{
+ { 0.071191280690193537, 10.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.085646504654238384, 10.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.10478215656371109, 10.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.13074816337653578, 10.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.16701141666848118, 10.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.21939323375313968, 10.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.29813515331786616, 10.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.42225974638874397, 10.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.62942145962174878, 10.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.7218685262373197, 10.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 3.2855760483514689, 10.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 7.1616652508907093, 10.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 18.612326808485907, 10.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 61.476190476190474, 10.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 286.27580915178623, 10.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 2274.9441142102296, 10.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 47229.761904761865, 10.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 9961460.7142856438, 10.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler192 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=2.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 8.7311491370201111e-11
+// max(|f - f_GSL| / |f_GSL|): 1.5843951771650368e-15
+const testcase_hyperg<double>
+data193[19] =
+{
+ { 0.14747230019381058, 10.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.17073600100690609, 10.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.19982795745135354, 10.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.23681776864188053, 10.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.28475624360398011, 10.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.34827500743063133, 10.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.43464829159684687, 10.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.55576053438064787, 10.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.73195020913445530, 10.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.4310223867822929, 10.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 2.1742563399057540, 10.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 3.5769231236256043, 10.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 6.5620441134844363, 10.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 14.063492063492063, 10.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 38.085937500000036, 10.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 150.92973632068282, 10.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1212.3015873015852, 10.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 55107.142857142389, 10.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler193 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=2.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 1.8189894035458565e-12
+// max(|f - f_GSL| / |f_GSL|): 1.4848893090170350e-15
+const testcase_hyperg<double>
+data194[19] =
+{
+ { 0.21658059714090577, 10.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.24513539602702861, 10.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.27967018274845046, 10.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.32196044921875022, 10.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.37448559670781911, 10.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.44078856032208824, 10.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.52606701446027793, 10.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.63818158436213956, 10.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.78944971882612769, 10.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.3044251384443430, 10.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.7659505208333335, 10.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 2.5093710953769270, 10.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 3.8065843621399158, 10.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 6.3333333333333313, 10.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 12.109375000000004, 10.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 29.115226337448540, 10.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 108.33333333333330, 10.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1224.9999999999923, 10.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler194 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=2.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 4.2632564145606011e-14
+// max(|f - f_GSL| / |f_GSL|): 4.2632564145606064e-16
+const testcase_hyperg<double>
+data195[19] =
+{
+ { 0.27700831024930750, 10.000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.30864197530864196, 10.000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.34602076124567477, 10.000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.39062499999999994, 10.000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.44444444444444442, 10.000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.51020408163265307, 10.000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.59171597633136097, 10.000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.69444444444444453, 10.000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.82644628099173545, 10.000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.2345679012345681, 10.000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.5624999999999998, 10.000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 2.0408163265306127, 10.000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 2.7777777777777768, 10.000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 4.0000000000000000, 10.000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 6.2500000000000036, 10.000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 11.111111111111109, 10.000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 25.000000000000007, 10.000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 99.999999999999872, 10.000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler195 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=5.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 0.81250000000000000
+// max(|f - f_GSL| / |f_GSL|): 1.8182428501096805e-15
+const testcase_hyperg<double>
+data196[19] =
+{
+ { 0.00063586451658060813, 10.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.0010334743461763829, 10.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.0015326246054669763, 10.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.0019007018181583513, 10.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.0012845577715431562, 10.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { -0.0027213806178057538, 10.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { -0.015121744574954058, 10.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { -0.036637840562974290, 10.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.019117849062621605, 10.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 9.8116901852350615, 10.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 84.255589172244044, 10.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 773.87517619421294, 10.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 8556.9725363053585, 10.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 129023.99999999996, 10.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 3174543.3807373112, 10.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 175133896.95814410, 10.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 43564453125.000061, 10.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 446859999999993.50, 10.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler196 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=5.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 0.00039672851562500000
+// max(|f - f_GSL| / |f_GSL|): 1.6882064494681041e-15
+const testcase_hyperg<double>
+data197[19] =
+{
+ { -0.00030045430691814646, 10.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { -0.00031119487747322054, 10.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { -0.00014589213141656318, 10.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.00056843418860824636, 10.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.0028902549859721747, 10.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.0098776037238878477, 10.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.030689217428863869, 10.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.094211590019076558, 10.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.29791981455918370, 10.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 3.6646308771236793, 10.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 15.133991837501521, 10.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 73.331330046144089, 10.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 441.01791167787133, 10.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 3583.9999999999991, 10.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 45299.530029296984, 10.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 1157231.0002427341, 10.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 107421875.00000016, 10.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 234999999999.99734, 10.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler197 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=5.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 9.5367431640625000e-07
+// max(|f - f_GSL| / |f_GSL|): 1.6314276114917867e-15
+const testcase_hyperg<double>
+data198[19] =
+{
+ { 0.0058530497315413248, 10.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.0088526869356855397, 10.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.013770987983442959, 10.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.022108932690960776, 10.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.036786236450921550, 10.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.063750669040426505, 10.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.11577228680714462, 10.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.22197573416125760, 10.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.45361312968415324, 10.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 2.4162889363082747, 10.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 6.5381564791240399, 10.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 20.415771011498428, 10.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 76.870682056629221, 10.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 373.58730158730162, 10.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 2626.2555803571477, 10.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 33060.960671081048, 10.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1203521.8253968258, 10.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 584564285.71427989, 10.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler198 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=5.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 7.4505805969238281e-09
+// max(|f - f_GSL| / |f_GSL|): 1.6196914341138888e-15
+const testcase_hyperg<double>
+data199[19] =
+{
+ { 0.020248990107069573, 10.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.027876687750502366, 10.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.039154648888447607, 10.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.056251883506774715, 10.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.082914189910074473, 10.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.12585357817786455, 10.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.19761423206224954, 10.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.32280443863359237, 10.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.55250024062839420, 10.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.9374297986599267, 10.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 4.0849049886067696, 10.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 9.5926988633258983, 10.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 25.958314281359531, 10.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 85.333333333333300, 10.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 372.31445312500028, 10.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 2545.3436976070675, 10.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 39583.333333333343, 10.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 4599999.9999999627, 10.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler199 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=5.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 1.1641532182693481e-10
+// max(|f - f_GSL| / |f_GSL|): 1.4551915228366856e-15
+const testcase_hyperg<double>
+data200[19] =
+{
+ { 0.040386107340619266, 10.000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.052922149401344633, 10.000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.070429627772374270, 10.000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.095367431640624972, 10.000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.13168724279835387, 10.000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.18593443208187066, 10.000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.26932907434290437, 10.000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.40187757201646096, 10.000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.62092132305915493, 10.000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.6935087808430296, 10.000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 3.0517578124999991, 10.000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 5.9499018266198629, 10.000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 12.860082304526737, 10.000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 32.000000000000000, 10.000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 97.656250000000114, 10.000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 411.52263374485580, 10.000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 3124.9999999999991, 10.000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 99999.999999999665, 10.000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler200 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=10.000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 3407872.0000000000
+// max(|f - f_GSL| / |f_GSL|): 1.8642431677286335e-15
+const testcase_hyperg<double>
+data201[19] =
+{
+ { 2.3388730079478156e-05, 10.000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { -2.3204970759764180e-05, 10.000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { -0.00016219730505521665, 10.000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { -0.00044366962360922366, 10.000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { -0.00071863577205453773, 10.000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 4.4378596544533363e-05, 10.000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.0044446568070623509, 10.000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.0071045155183571615, 10.000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { -0.049961558159890306, 10.000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 51.305449964107403, 10.000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1435.9545414461309, 10.000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 39657.913058984115, 10.000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 1346016.4468570501, 10.000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 68086556.444444403, 10.000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 6646235808.7301531, 10.000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 1954852335479.9702, 10.000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 4573796225043418.0, 10.000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 1.8280190368899683e+21, 10.000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler201 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=10.000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 832.00000000000000
+// max(|f - f_GSL| / |f_GSL|): 1.7889121078953977e-15
+const testcase_hyperg<double>
+data202[19] =
+{
+ { 1.3504013648914116e-05, 10.000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 3.1753432098506483e-05, 10.000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 6.2032098207654132e-05, 10.000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 8.8747213942816339e-05, 10.000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 1.0478094697613739e-05, 10.000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { -0.00055998751005986670, 10.000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { -0.0024718654966575881, 10.000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { -0.0027000264053620069, 10.000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.066515394406810743, 10.000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 11.579200866389527, 10.000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 137.50750548795256, 10.000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1901.3196072993419, 10.000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 34210.659507137796, 10.000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 920588.19047619053, 10.000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 45876220.933028772, 10.000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 6234608574.0963297, 10.000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 5445391090029.7783, 10.000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 4.6508713107142163e+17, 10.000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler202 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=10.000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 0.93750000000000000
+// max(|f - f_GSL| / |f_GSL|): 1.8742262123209408e-15
+const testcase_hyperg<double>
+data203[19] =
+{
+ { -2.6846726901509877e-05, 10.000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { -4.7817237144298244e-05, 10.000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { -7.2908121941826117e-05, 10.000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { -6.0427853197636777e-05, 10.000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.00020559720946644960, 10.000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.0017056910683366346, 10.000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.0088037230970528183, 10.000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.041510819735141528, 10.000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.19754880805677244, 10.000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 5.6130947302779246, 10.000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 36.475357196722442, 10.000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 289.29483001400672, 10.000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 3010.8676549536503, 10.000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 45844.317460317419, 10.000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1221852.6431492427, 10.000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 79585968.928968787, 10.000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 26733475942.460335, 10.000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 500206428571421.19, 10.000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler203 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=10.000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 0.0024414062500000000
+// max(|f - f_GSL| / |f_GSL|): 1.6580008488964534e-15
+const testcase_hyperg<double>
+data204[19] =
+{
+ { 0.00025866179054283083, 10.000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.00053402577739226583, 10.000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.0011390075227239291, 10.000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.0025224267119482941, 10.000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.0058340332124251458, 10.000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.014189256143045500, 10.000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.036590990011337692, 10.000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.10106560781146991, 10.000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.30278778538531392, 10.000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 3.7187249990350599, 10.000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 16.023275545901704, 10.000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 83.265377219882822, 10.000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 553.31413918843987, 10.000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 5148.4444444444416, 10.000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 78082.084655761908, 10.000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 2565874.8781353114, 10.000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 346137152.77777809, 10.000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1472499999999.9834, 10.000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler204 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=10.000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 2.2888183593750000e-05
+// max(|f - f_GSL| / |f_GSL|): 2.8610229492187516e-15
+const testcase_hyperg<double>
+data205[19] =
+{
+ { 0.0016310376661280216, 10.000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.0028007538972582421, 10.000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.0049603324681551939, 10.000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.0090949470177292789, 10.000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.017341529915832606, 10.000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.034571613033607777, 10.000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.072538150286405714, 10.000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.16150558288984579, 10.000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.38554328942953148, 10.000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 2.8679719907924444, 10.000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 9.3132257461547816, 10.000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 35.401331746414378, 10.000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 165.38171687920172, 10.000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1024.0000000000000, 10.000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 9536.7431640625200, 10.000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 169350.87808430271, 10.000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 9765624.9999999944, 10.000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 9999999999.9999332, 10.000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler205 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=20.000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 2.5940733853654057e+18
+// max(|f - f_GSL| / |f_GSL|): 1.8312596334405405e-15
+const testcase_hyperg<double>
+data206[19] =
+{
+ { -2.1776535312781759e-07, 10.000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { -2.9128833151630439e-06, 10.000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { -9.4755553429932710e-06, 10.000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { -1.2844297353852837e-05, 10.000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 3.6576965483549205e-05, 10.000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.00020847453890689954, 10.000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { -0.00022868510398160936, 10.000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { -0.0021855513841943421, 10.000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.014662111759334568, 10.000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 746.44776348798098, 10.000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 136080.48445225612, 10.000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 23094279.597826406, 10.000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 5315913395.5545301, 10.000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 2261935718399.9990, 10.000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 2669150854828235.0, 10.000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 1.7499363099365994e+19, 10.000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 2.8881518494606140e+24, 10.000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 1.4165513933661626e+33, 10.000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler206 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=20.000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 299067162755072.00
+// max(|f - f_GSL| / |f_GSL|): 2.1129345912024644e-15
+const testcase_hyperg<double>
+data207[19] =
+{
+ { 1.7149006966334498e-07, 10.000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 3.2399324906563845e-07, 10.000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 1.6015317699713284e-07, 10.000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { -2.0500917201273337e-06, 10.000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { -1.0175546788592665e-05, 10.000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { -1.1720101988158874e-05, 10.000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.00014199637113975139, 10.000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.00021263363640641769, 10.000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { -0.0072649256698439626, 10.000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 90.430293772869618, 10.000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 6248.1455940292308, 10.000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 501143.39852548984, 10.000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 58852027.356439680, 10.000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 12942923093.333330, 10.000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 7618073993853.6592, 10.000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 22630251562549288., 10.000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1.3708372433980356e+21, 10.000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 1.4154113619999653e+29, 10.000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler207 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=20.000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 103079215104.00000
+// max(|f - f_GSL| / |f_GSL|): 1.8869870511942065e-15
+const testcase_hyperg<double>
+data208[19] =
+{
+ { -1.6667473284194196e-08, 10.000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 8.6214843496406671e-08, 10.000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 5.7778331275185146e-07, 10.000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 2.1911400502042259e-06, 10.000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 4.7440049217199358e-06, 10.000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { -1.0564233315113883e-05, 10.000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { -0.00017990026051873263, 10.000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { -0.00027618146288724629, 10.000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.030606019577723666, 10.000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 27.832854169493341, 10.000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 874.00624088575228, 10.000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 36049.199340831554, 10.000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 2270967.7298624986, 10.000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 266979100.44444439, 10.000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 80311224337.493027, 10.000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 110111693103799.72, 10.000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 2.4838871426052618e+18, 10.000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 5.4626349999998603e+25, 10.000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler208 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=20.000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 100663296.00000000
+// max(|f - f_GSL| / |f_GSL|): 1.9414329026037087e-15
+const testcase_hyperg<double>
+data209[19] =
+{
+ { -1.5843795889906876e-07, 10.000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { -5.4877276002864784e-07, 10.000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { -1.7169507967699695e-06, 10.000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { -4.5236439749819329e-06, 10.000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { -5.5690492560381956e-06, 10.000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 5.6914115607022928e-05, 10.000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.00082507252097525810, 10.000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.0085739249288230429, 10.000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.088244357683754687, 10.000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 13.387208440156897, 10.000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 226.77895441155110, 10.000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 5281.5716482686785, 10.000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 189431.77762850464, 10.000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 12408149.333333332, 10.000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1966782292.5839682, 10.000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1274123112205.7495, 10.000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 10903676350911508., 10.000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 5.1849999999998819e+22, 10.000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler209 = 2.5000000000000020e-13;
+
+// Test data for a=10.000000000000000, b=20.000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 425984.00000000000
+// max(|f - f_GSL| / |f_GSL|): 5.4067200000000052e-15
+const testcase_hyperg<double>
+data210[19] =
+{
+ { 2.6602838683283435e-06, 10.000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 7.8442223930072316e-06, 10.000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 2.4604898194634598e-05, 10.000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 8.2718061255302686e-05, 10.000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.00030072865982171723, 10.000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.0011951964277455193, 10.000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.0052617832469731814, 10.000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.026084053304588847, 10.000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.14864362802414346, 10.000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 10.000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 8.2252633399699757, 10.000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 86.736173798840269, 10.000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1253.2542894196865, 10.000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 27351.112277912434, 10.000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1048576.0000000000, 10.000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 90949470.177293226, 10.000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 28679719907.924358, 10.000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 95367431640624.906, 10.000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 9.9999999999998657e+19, 10.000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler210 = 5.0000000000000039e-13;
+
+// Test data for a=20.000000000000000, b=0.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data211[19] =
+{
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler211 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=0.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data212[19] =
+{
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler212 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=0.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data213[19] =
+{
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler213 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=0.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data214[19] =
+{
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler214 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=0.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hyperg<double>
+data215[19] =
+{
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.0000000000000000, 20.000000000000000, 0.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler215 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=0.50000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 48.000000000000000
+// max(|f - f_GSL| / |f_GSL|): 1.8556481344875154e-15
+const testcase_hyperg<double>
+data216[19] =
+{
+ { 0.26690449940521549, 20.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.28252302866181833, 20.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.30123616141153836, 20.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.32421384687602633, 20.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.35334630811776774, 20.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.39191793127467028, 20.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.44620488618129195, 20.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.52980896919265719, 20.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.67754711477562324, 20.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 1.9567557771780317, 20.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 6.1816042148333086, 20.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 35.653088618561227, 20.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 377.51482843179906, 20.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 7645.8816551195359, 20.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 354791.74537980522, 20.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 57009889.966638684, 20.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 83771357024.863937, 20.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 25866972896376408., 20.000000000000000, 0.50000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler216 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=0.50000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 0.011718750000000000
+// max(|f - f_GSL| / |f_GSL|): 1.7519521419034139e-15
+const testcase_hyperg<double>
+data217[19] =
+{
+ { 0.40342659436153389, 20.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.42420571192034318, 20.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.44852768286073041, 20.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.47751245808592863, 20.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.51283632632707765, 20.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.55713468814894329, 20.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.61481320817757334, 20.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.69383483410097213, 20.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.81012002526006044, 20.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.3622225506603911, 20.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 2.2349513086109001, 20.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 5.1864917536761723, 20.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 21.020560423779411, 20.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 175.19649997100612, 20.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 3467.1587803688708, 20.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 225003.88683445856, 20.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 110837674.65652709, 20.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 6688966964170.6807, 20.000000000000000, 0.50000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler217 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=0.50000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 1.4305114746093750e-05
+// max(|f - f_GSL| / |f_GSL|): 1.9261147266354006e-15
+const testcase_hyperg<double>
+data218[19] =
+{
+ { 0.48716309885816822, 20.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.50965859152542337, 20.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.53554809210658938, 20.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.56576689207507136, 20.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.60164849637133655, 20.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.64516711595404364, 20.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.69938278735493520, 20.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.76931621518401860, 20.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.86381808725530662, 20.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.2152051956815531, 20.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 1.6052546785425543, 20.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 2.4765586046012635, 20.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 5.1564492216997486, 20.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 18.446158392136365, 20.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 150.44577670123971, 20.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 3862.6317400115768, 20.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 632428.34833625401, 20.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 7426927663.3808765, 20.000000000000000, 0.50000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler218 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=0.50000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 4.0978193283081055e-08
+// max(|f - f_GSL| / |f_GSL|): 1.7692881266931737e-15
+const testcase_hyperg<double>
+data219[19] =
+{
+ { 0.54703266209548373, 20.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.56997321774144960, 20.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.59603026159654982, 20.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.62596978851120511, 20.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.66084565876898915, 20.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.70215256667232873, 20.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.75208916592008557, 20.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.81403631111658625, 20.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.89348608489854597, 20.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.1517793185139173, 20.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.3878110313656598, 20.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 1.8061071794572381, 20.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 2.7148594517859586, 20.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 5.4529435709049361, 20.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 19.487310275377109, 20.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 191.69079165937470, 20.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 10218.543981792311, 20.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 23160836.646583911, 20.000000000000000, 0.50000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler219 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=0.50000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 2.9103830456733704e-10
+// max(|f - f_GSL| / |f_GSL|): 1.6694673196526831e-15
+const testcase_hyperg<double>
+data220[19] =
+{
+ { 0.59292067298616025, 20.000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.61572496720679892, 20.000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.64135339122875590, 20.000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.67043457419280461, 20.000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.70380956268170969, 20.000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.74263251901495220, 20.000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.78853555445528256, 20.000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.84391122775673755, 20.000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.91242401018807373, 20.000000000000000, 0.50000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.1169059681274873, 20.000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.2825928301302667, 20.000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1.5385937789924939, 20.000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 1.9895771187893898, 20.000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 2.9707335806970168, 20.000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 6.0299506157180467, 20.000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 24.259090336955577, 20.000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 406.27267173257223, 20.000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 174330.03997220192, 20.000000000000000, 0.50000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler220 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=1.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 1024.0000000000000
+// max(|f - f_GSL| / |f_GSL|): 1.7510400000000382e-15
+const testcase_hyperg<double>
+data221[19] =
+{
+ { 0.058479236576646311, 20.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 0.065788544763137821, 20.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 0.075184824937824482, 20.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 0.087707688693157121, 20.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.10521567442213345, 20.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.13135877960541550, 20.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.17423854066297098, 20.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.25492082527223520, 20.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.44025895219654843, 20.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 3.3698615820910360, 20.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 17.997089220808483, 20.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 153.73298291118951, 20.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 2159.1667587825627, 20.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 55188.105263157879, 20.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 3191209.3921857267, 20.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 646910975.29152656, 20.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 1254834626850.2659, 20.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 5.8479532163741414e+17, 20.000000000000000, 1.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler221 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=1.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 0.21875000000000000
+// max(|f - f_GSL| / |f_GSL|): 1.5452521875000274e-15
+const testcase_hyperg<double>
+data222[19] =
+{
+ { 0.15519511120894958, 20.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.17197165701692893, 20.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.19276847315207329, 20.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.21920107206179093, 20.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.25386158960390576, 20.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.30115970686600674, 20.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.36916408142057106, 20.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.47406175901569547, 20.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.65237908266239919, 20.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 1.8227213362622299, 20.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 4.3716358339791332, 20.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 15.670841312959222, 20.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 94.742651122760179, 20.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 1081.7275541795671, 20.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 27809.787731465960, 20.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 2329811.1715181042, 20.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1537787532.6780224, 20.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 141562653506999.88, 20.000000000000000, 1.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler222 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=1.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 0.00024414062500000000
+// max(|f - f_GSL| / |f_GSL|): 1.6763226855512825e-15
+const testcase_hyperg<double>
+data223[19] =
+{
+ { 0.23253645591196551, 20.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.25484220947068342, 20.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.28181987881113812, 20.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.31508211677735770, 20.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.35706285886959610, 20.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.41160053409238206, 20.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.48508083111181960, 20.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.58885194371375260, 20.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.74482241684585782, 20.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 1.4700356864367146, 20.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 2.4955144453055143, 20.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 5.3506594845833471, 20.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 16.618413752184221, 20.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 89.310629514963878, 20.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1029.3439900542960, 20.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 35659.847863372350, 20.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 8009309.6233230168, 20.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 145640590027.39731, 20.000000000000000, 1.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler223 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=1.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 7.1525573730468750e-07
+// max(|f - f_GSL| / |f_GSL|): 1.7237966704608456e-15
+const testcase_hyperg<double>
+data224[19] =
+{
+ { 0.29614148314592509, 20.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.32176277356430805, 20.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.35217870475550511, 20.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.38885270445515113, 20.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.43389978380608418, 20.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.49048612522269458, 20.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.56355539635634599, 20.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.66123153239117671, 20.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.79773363961895416, 20.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.3245132157016595, 20.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 1.9065148749742076, 20.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 3.1328798652457452, 20.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 6.4172532944033476, 20.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 19.071683734222436, 20.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 104.41989641582512, 20.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1510.5743992324240, 20.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 115518.14360562043, 20.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 414930455.29173034, 20.000000000000000, 1.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler224 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=1.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 4.6566128730773926e-09
+// max(|f - f_GSL| / |f_GSL|): 1.6665618165272271e-15
+const testcase_hyperg<double>
+data225[19] =
+{
+ { 0.34954259539177701, 20.000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.37714038609235134, 20.000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.40942091659748781, 20.000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.44767109606846422, 20.000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.49368984777532227, 20.000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.55006638216982295, 20.000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.62065830207408890, 20.000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.71145554513583764, 20.000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.83223839666914623, 20.000000000000000, 1.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.2466748028187731, 20.000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 1.6386752725021749, 20.000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 2.3340068725479681, 20.000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 3.7848108613132054, 20.000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 7.6754638550304133, 20.000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 23.344217312927277, 20.000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 149.83491198246921, 20.000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 3936.9253501916060, 20.000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 2794143.5036480185, 20.000000000000000, 1.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler225 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=2.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 425984.00000000000
+// max(|f - f_GSL| / |f_GSL|): 5.4067200000000052e-15
+const testcase_hyperg<double>
+data226[19] =
+{
+ { 2.6602838683283435e-06, 20.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 7.8442223930072316e-06, 20.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 2.4604898194634598e-05, 20.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { 8.2718061255302686e-05, 20.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 0.00030072865982171723, 20.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.0011951964277455193, 20.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.0052617832469731814, 20.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.026084053304588847, 20.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.14864362802414346, 20.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 8.2252633399699757, 20.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 86.736173798840269, 20.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 1253.2542894196865, 20.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 27351.112277912434, 20.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1048576.0000000000, 20.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 90949470.177293226, 20.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 28679719907.924358, 20.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 95367431640624.906, 20.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 9.9999999999998657e+19, 20.000000000000000, 2.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler226 = 5.0000000000000039e-13;
+
+// Test data for a=20.000000000000000, b=2.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 40.000000000000000
+// max(|f - f_GSL| / |f_GSL|): 1.8712609271523571e-15
+const testcase_hyperg<double>
+data227[19] =
+{
+ { 0.018828092583720632, 20.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 0.023381944060455365, 20.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 0.029789623984280887, 20.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 0.039191021482500567, 20.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { 0.053727813036721528, 20.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { 0.077762010061669079, 20.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.12110505620123306, 20.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.20870149809080582, 20.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.41429234328785763, 20.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 3.1308087404153113, 20.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 13.586180626453050, 20.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 87.117304082784415, 20.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 889.26474381242826, 20.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 16231.913312693494, 20.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 653537.51168945129, 20.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 87756230.793848589, 20.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 101493977171.74945, 20.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 21375960679556916., 20.000000000000000, 2.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler227 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=2.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 0.031250000000000000
+// max(|f - f_GSL| / |f_GSL|): 1.6379336164122315e-15
+const testcase_hyperg<double>
+data228[19] =
+{
+ { 0.049200410661854238, 20.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.059460876757152607, 20.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.073244762686653225, 20.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.092334626017932769, 20.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.11976760350696856, 20.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.16102414609169408, 20.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.22670456785796225, 20.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.33912903252727361, 20.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.55049794600858049, 20.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 2.1254722872032232, 20.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 5.6261213886736172, 20.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 20.137315891130996, 20.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 108.04381584643853, 20.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 992.41692466460245, 20.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 19055.363816004465, 20.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 1105471.9504312086, 20.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 448521363.90608919, 20.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 19078917293639.004, 20.000000000000000, 2.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler228 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=2.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 8.3923339843750000e-05
+// max(|f - f_GSL| / |f_GSL|): 1.8221514326727084e-15
+const testcase_hyperg<double>
+data229[19] =
+{
+ { 0.083753547015334884, 20.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.099238444687035743, 20.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.11938294012867748, 20.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.14622683905023329, 20.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.18303556733713028, 20.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.23527764069382412, 20.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.31261681740827085, 20.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.43327581880538862, 20.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.63445840637296680, 20.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 1.7438842395813297, 20.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 3.5070840938209269, 20.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 8.6573372006089713, 20.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 28.779342118408906, 20.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 147.50178613955714, 20.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1427.1686016136398, 20.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 36780.643714655642, 20.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 5313869.6058585485, 20.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 46057280607.381966, 20.000000000000000, 2.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler229 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=2.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 5.0663948059082031e-07
+// max(|f - f_GSL| / |f_GSL|): 1.9925479281070174e-15
+const testcase_hyperg<double>
+data230[19] =
+{
+ { 0.11920045035073676, 20.000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.13907946814302777, 20.000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.16431439792559696, 20.000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.19698796016986989, 20.000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.24028510928790547, 20.000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.29926031296483113, 20.000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.38229327814229153, 20.000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.50402047283093132, 20.000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.69167261179586526, 20.000000000000000, 2.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 1.5503152253394308, 20.000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 2.6469548193635797, 20.000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 5.1882631330566813, 20.000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 12.476792759124516, 20.000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 41.026391565091259, 20.000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 220.92584715988204, 20.000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 2677.0834450236207, 20.000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 141774.31260689779, 20.000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 254267148.83196995, 20.000000000000000, 2.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler230 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=5.0000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 60129542144.000000
+// max(|f - f_GSL| / |f_GSL|): 2.0181355730233454e-15
+const testcase_hyperg<double>
+data231[19] =
+{
+ { -1.8650300348790099e-05, 20.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { -3.6488008415371319e-05, 20.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { -6.4614776410961038e-05, 20.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { -8.4495207102246549e-05, 20.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 2.2276197023825424e-05, 20.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.00070736115111447856, 20.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { 0.0027829732057273854, 20.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.0013283545664371644, 20.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { -0.041767631015048774, 20.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 61.311496556100003, 20.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 2397.4420539085681, 20.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 103687.60998586559, 20.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 6247196.6451068865, 20.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 656408576.00000000, 20.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 165334768098.54715, 20.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 175097125520816.81, 20.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 2.6818275451660257e+18, 20.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 2.9794599999999321e+25, 20.000000000000000, 5.0000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler231 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=5.0000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 9437184.0000000000
+// max(|f - f_GSL| / |f_GSL|): 2.0515617391304744e-15
+const testcase_hyperg<double>
+data232[19] =
+{
+ { -3.6403884516313627e-06, 20.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { -9.5873829246491408e-06, 20.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { -2.6052245147200097e-05, 20.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { -7.2378303598384501e-05, 20.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { -0.00020048577321417379, 20.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { -0.00051222704046227391, 20.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { -0.00080950511491898055, 20.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.0043473422174314250, 20.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.081078342558623853, 20.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 12.794854084397739, 20.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 195.15639104739046, 20.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 3938.7991953190131, 20.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 118521.48653762060, 20.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 6291455.9999999972, 20.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 773070496.50699198, 20.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 363276452167.04102, 20.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 2002716064453133.0, 20.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 4.5999999999999109e+21, 20.000000000000000, 5.0000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler232 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=5.0000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 5120.0000000000000
+// max(|f - f_GSL| / |f_GSL|): 1.7944916193878923e-15
+const testcase_hyperg<double>
+data233[19] =
+{
+ { 0.00014313323624053599, 20.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 0.00025426183473118769, 20.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 0.00048255612836437054, 20.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 0.00099096904674794185, 20.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 0.0022347805521915616, 20.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 0.0056271390060292845, 20.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { 0.016109059519227316, 20.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 0.053453465775609076, 20.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.20995202901839263, 20.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 5.9534372167648799, 20.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 46.157632071205875, 20.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 494.32074431164915, 20.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 7989.5277611775946, 20.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 224179.55830753347, 20.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 13848144.485282511, 20.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 2948587692.8891716, 20.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 5940513286161.6602, 20.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 2.8531757655945201e+18, 20.000000000000000, 5.0000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler233 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=5.0000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 7.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 1.5351977183414298e-15
+const testcase_hyperg<double>
+data234[19] =
+{
+ { 0.0012492049968744917, 20.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 0.0019931241968014200, 20.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 0.0033203386861410844, 20.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { 0.0058191894509856774, 20.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { 0.010830090368313864, 20.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 0.021653062305192875, 20.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.047180821280919043, 20.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.11405637279736212, 20.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.31275468794721017, 20.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 3.8598904658643969, 20.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 18.806301417906667, 20.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 122.77054465017432, 20.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1168.4762146808946, 20.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 18437.511788521082, 20.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 597441.79669264762, 20.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 59390411.369227782, 20.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 44681668993.361603, 20.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 4559673269683164.0, 20.000000000000000, 5.0000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler234 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=5.0000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 0.029296875000000000
+// max(|f - f_GSL| / |f_GSL|): 1.8717083246628922e-15
+const testcase_hyperg<double>
+data235[19] =
+{
+ { 0.0038867957051370739, 20.000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 0.0058484892597364235, 20.000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 0.0090987656053758189, 20.000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 0.014714392537270657, 20.000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.024900404542056772, 20.000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.044460184663785027, 20.000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.084638849196356780, 20.000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.17409058241291026, 20.000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.39357055823580767, 20.000000000000000, 5.0000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 2.9410794636226596, 20.000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 10.417226071414344, 20.000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 46.930585873140835, 20.000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 290.76717121814852, 20.000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 2788.1641083374830, 20.000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 50228.117718560752, 20.000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 2433042.3476752634, 20.000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 705345246.77141762, 20.000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 15652478868616.762, 20.000000000000000, 5.0000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler235 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=10.000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 2.5940733853654057e+18
+// max(|f - f_GSL| / |f_GSL|): 1.8312596334405405e-15
+const testcase_hyperg<double>
+data236[19] =
+{
+ { -2.1776535312781759e-07, 20.000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { -2.9128833151630439e-06, 20.000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { -9.4755553429932710e-06, 20.000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { -1.2844297353852837e-05, 20.000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { 3.6576965483549205e-05, 20.000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 0.00020847453890689954, 20.000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { -0.00022868510398160936, 20.000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { -0.0021855513841943421, 20.000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { 0.014662111759334568, 20.000000000000000, 10.000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 746.44776348798098, 20.000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 136080.48445225612, 20.000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 23094279.597826406, 20.000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 5315913395.5545301, 20.000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 2261935718399.9990, 20.000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 2669150854828235.0, 20.000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 1.7499363099365994e+19, 20.000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 2.8881518494606140e+24, 20.000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 1.4165513933661626e+33, 20.000000000000000, 10.000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler236 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=10.000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 299067162755072.00
+// max(|f - f_GSL| / |f_GSL|): 2.1129345912024644e-15
+const testcase_hyperg<double>
+data237[19] =
+{
+ { 1.7149006966334498e-07, 20.000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { 3.2399324906563845e-07, 20.000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 1.6015317699713284e-07, 20.000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { -2.0500917201273337e-06, 20.000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { -1.0175546788592665e-05, 20.000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { -1.1720101988158874e-05, 20.000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 0.00014199637113975139, 20.000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { 0.00021263363640641769, 20.000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { -0.0072649256698439626, 20.000000000000000, 10.000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 90.430293772869618, 20.000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 6248.1455940292308, 20.000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 501143.39852548984, 20.000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 58852027.356439680, 20.000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 12942923093.333330, 20.000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 7618073993853.6592, 20.000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 22630251562549288., 20.000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1.3708372433980356e+21, 20.000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 1.4154113619999653e+29, 20.000000000000000, 10.000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler237 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=10.000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 103079215104.00000
+// max(|f - f_GSL| / |f_GSL|): 1.8869870511942065e-15
+const testcase_hyperg<double>
+data238[19] =
+{
+ { -1.6667473284194196e-08, 20.000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { 8.6214843496406671e-08, 20.000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { 5.7778331275185146e-07, 20.000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { 2.1911400502042259e-06, 20.000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 4.7440049217199358e-06, 20.000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { -1.0564233315113883e-05, 20.000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { -0.00017990026051873263, 20.000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { -0.00027618146288724629, 20.000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { 0.030606019577723666, 20.000000000000000, 10.000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 27.832854169493341, 20.000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 874.00624088575228, 20.000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 36049.199340831554, 20.000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 2270967.7298624986, 20.000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 266979100.44444439, 20.000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 80311224337.493027, 20.000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 110111693103799.72, 20.000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 2.4838871426052618e+18, 20.000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 5.4626349999998603e+25, 20.000000000000000, 10.000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler238 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=10.000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 100663296.00000000
+// max(|f - f_GSL| / |f_GSL|): 1.9414329026037087e-15
+const testcase_hyperg<double>
+data239[19] =
+{
+ { -1.5843795889906876e-07, 20.000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { -5.4877276002864784e-07, 20.000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { -1.7169507967699695e-06, 20.000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { -4.5236439749819329e-06, 20.000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { -5.5690492560381956e-06, 20.000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 5.6914115607022928e-05, 20.000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 0.00082507252097525810, 20.000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { 0.0085739249288230429, 20.000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.088244357683754687, 20.000000000000000, 10.000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 13.387208440156897, 20.000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 226.77895441155110, 20.000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 5281.5716482686785, 20.000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 189431.77762850464, 20.000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 12408149.333333332, 20.000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1966782292.5839682, 20.000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 1274123112205.7495, 20.000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 10903676350911508., 20.000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 5.1849999999998819e+22, 20.000000000000000, 10.000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler239 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=10.000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 425984.00000000000
+// max(|f - f_GSL| / |f_GSL|): 5.4067200000000052e-15
+const testcase_hyperg<double>
+data240[19] =
+{
+ { 2.6602838683283435e-06, 20.000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { 7.8442223930072316e-06, 20.000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 2.4604898194634598e-05, 20.000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 8.2718061255302686e-05, 20.000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 0.00030072865982171723, 20.000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { 0.0011951964277455193, 20.000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { 0.0052617832469731814, 20.000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.026084053304588847, 20.000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.14864362802414346, 20.000000000000000, 10.000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 8.2252633399699757, 20.000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 86.736173798840269, 20.000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 1253.2542894196865, 20.000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 27351.112277912434, 20.000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 1048576.0000000000, 20.000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 90949470.177293226, 20.000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 28679719907.924358, 20.000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 95367431640624.906, 20.000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 9.9999999999998657e+19, 20.000000000000000, 10.000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler240 = 5.0000000000000039e-13;
+
+// Test data for a=20.000000000000000, b=20.000000000000000, c=2.0000000000000000.
+// max(|f - f_GSL|): 8.1129638414606682e+31
+// max(|f - f_GSL| / |f_GSL|): 2.1657042453581189e-15
+const testcase_hyperg<double>
+data241[19] =
+{
+ { 7.4612991227725660e-09, 20.000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.90000000000000002 },
+ { 1.1006588952366092e-07, 20.000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.80000000000000004 },
+ { 2.0126933732744113e-07, 20.000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.69999999999999996 },
+ { -1.0013775379571396e-06, 20.000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.59999999999999998 },
+ { -3.0371956856925611e-06, 20.000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.50000000000000000 },
+ { 2.2012669924734483e-05, 20.000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.40000000000000002 },
+ { -6.2415598025480351e-05, 20.000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.30000000000000004 },
+ { 0.00033551320394368590, 20.000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.19999999999999996 },
+ { -0.0062342152641436752, 20.000000000000000, 20.000000000000000,
+ 2.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.0000000000000000 },
+ { 34830.688900741610, 20.000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.10000000000000009 },
+ { 67626221.263030857, 20.000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.19999999999999996 },
+ { 102764604848.69762, 20.000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.30000000000000004 },
+ { 220278355222373.38, 20.000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.39999999999999991 },
+ { 1.0422324699794536e+18, 20.000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.50000000000000000 },
+ { 1.9128731788368004e+22, 20.000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.60000000000000009 },
+ { 3.5234592919485287e+27, 20.000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.69999999999999996 },
+ { 5.0867023209025249e+34, 20.000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.80000000000000004 },
+ { 3.7461088506658564e+46, 20.000000000000000, 20.000000000000000,
+ 2.0000000000000000, 0.89999999999999991 },
+};
+const double toler241 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=20.000000000000000, c=4.0000000000000000.
+// max(|f - f_GSL|): 4.3327901374988310e+27
+// max(|f - f_GSL| / |f_GSL|): 2.2075464057601018e-15
+const testcase_hyperg<double>
+data242[19] =
+{
+ { -1.5895901122487120e-09, 20.000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.90000000000000002 },
+ { -2.4403576191590296e-09, 20.000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.80000000000000004 },
+ { 1.1622915284663225e-08, 20.000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.69999999999999996 },
+ { 6.3899796223275262e-08, 20.000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.59999999999999998 },
+ { -1.3503608350984134e-07, 20.000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.50000000000000000 },
+ { -1.2198533623363349e-06, 20.000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.40000000000000002 },
+ { 9.9086618119887468e-06, 20.000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.30000000000000004 },
+ { -7.6797020080190715e-05, 20.000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.19999999999999996 },
+ { 0.0013196405087170897, 20.000000000000000, 20.000000000000000,
+ 4.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.0000000000000000 },
+ { 2274.2044768143564, 20.000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.10000000000000009 },
+ { 1611640.1560475440, 20.000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.19999999999999996 },
+ { 1147063984.7359734, 20.000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.30000000000000004 },
+ { 1253162497163.8311, 20.000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.39999999999999991 },
+ { 3071321673390476.0, 20.000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.50000000000000000 },
+ { 2.8221123559124324e+19, 20.000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.60000000000000009 },
+ { 2.3658463807419519e+24, 20.000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.69999999999999996 },
+ { 1.2596553731345468e+31, 20.000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.80000000000000004 },
+ { 1.9627175792062075e+42, 20.000000000000000, 20.000000000000000,
+ 4.0000000000000000, 0.89999999999999991 },
+};
+const double toler242 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=20.000000000000000, c=6.0000000000000000.
+// max(|f - f_GSL|): 7.5557863725914323e+23
+// max(|f - f_GSL| / |f_GSL|): 1.9837376456390635e-15
+const testcase_hyperg<double>
+data243[19] =
+{
+ { 8.0159783892777232e-11, 20.000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.90000000000000002 },
+ { -6.4422705184649393e-10, 20.000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.80000000000000004 },
+ { -3.7526132950808576e-09, 20.000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.69999999999999996 },
+ { -1.7692034036274638e-09, 20.000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.59999999999999998 },
+ { 7.9304558764774354e-08, 20.000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.50000000000000000 },
+ { 5.9348070191507617e-08, 20.000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.40000000000000002 },
+ { -3.5827694518409289e-06, 20.000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.30000000000000004 },
+ { 4.4951490418031519e-05, 20.000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.19999999999999996 },
+ { -0.0013716249406309328, 20.000000000000000, 20.000000000000000,
+ 6.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.0000000000000000 },
+ { 415.32493304415505, 20.000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.10000000000000009 },
+ { 121300.42991518594, 20.000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.19999999999999996 },
+ { 42725673.833462097, 20.000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.30000000000000004 },
+ { 24588915328.261719, 20.000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.39999999999999991 },
+ { 31929082412503.652, 20.000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.50000000000000000 },
+ { 1.4934954443280477e+17, 20.000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.60000000000000009 },
+ { 5.7726220597696125e+21, 20.000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.69999999999999996 },
+ { 1.1454387824049374e+28, 20.000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.80000000000000004 },
+ { 3.8088637321581534e+38, 20.000000000000000, 20.000000000000000,
+ 6.0000000000000000, 0.89999999999999991 },
+};
+const double toler243 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=20.000000000000000, c=8.0000000000000000.
+// max(|f - f_GSL|): 3.3204139332677193e+20
+// max(|f - f_GSL| / |f_GSL|): 1.9148846081415644e-15
+const testcase_hyperg<double>
+data244[19] =
+{
+ { 1.0699067880816065e-10, 20.000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.90000000000000002 },
+ { 5.4297771645951943e-10, 20.000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.80000000000000004 },
+ { 9.7625476382187751e-10, 20.000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.69999999999999996 },
+ { -6.7257763949908548e-09, 20.000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.59999999999999998 },
+ { -5.4634571496409877e-08, 20.000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.50000000000000000 },
+ { 1.4595644213797847e-07, 20.000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.40000000000000002 },
+ { 3.3515966494792549e-06, 20.000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.30000000000000004 },
+ { -6.5848086985738461e-05, 20.000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.19999999999999996 },
+ { 0.0034800171306214847, 20.000000000000000, 20.000000000000000,
+ 8.0000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.0000000000000000 },
+ { 130.93865856750304, 20.000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.10000000000000009 },
+ { 17850.203502975532, 20.000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.19999999999999996 },
+ { 3307058.5655149994, 20.000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.30000000000000004 },
+ { 1041065396.2302787, 20.000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.39999999999999991 },
+ { 735221357488.41736, 20.000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.50000000000000000 },
+ { 1785176805049585.2, 20.000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.60000000000000009 },
+ { 3.2302829930269192e+19, 20.000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.69999999999999996 },
+ { 2.4184909805178299e+25, 20.000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.80000000000000004 },
+ { 1.7340021007794567e+35, 20.000000000000000, 20.000000000000000,
+ 8.0000000000000000, 0.89999999999999991 },
+};
+const double toler244 = 2.5000000000000020e-13;
+
+// Test data for a=20.000000000000000, b=20.000000000000000, c=10.000000000000000.
+// max(|f - f_GSL|): 3.4227357168015770e+17
+// max(|f - f_GSL| / |f_GSL|): 2.2509396750115090e-15
+const testcase_hyperg<double>
+data245[19] =
+{
+ { -1.7945360901577764e-10, 20.000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.90000000000000002 },
+ { -4.4440665776938741e-10, 20.000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.80000000000000004 },
+ { 6.6171615263373664e-10, 20.000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.69999999999999996 },
+ { 1.5453889374050929e-08, 20.000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.59999999999999998 },
+ { 7.5754083909301490e-08, 20.000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.50000000000000000 },
+ { -4.1113628642452120e-07, 20.000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.40000000000000002 },
+ { -9.5300704264471230e-06, 20.000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.30000000000000004 },
+ { 0.00016081533175773833, 20.000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.19999999999999996 },
+ { 0.017684650940379586, 20.000000000000000, 20.000000000000000,
+ 10.000000000000000, -0.099999999999999978 },
+ { 1.0000000000000000, 20.000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.0000000000000000 },
+ { 57.562247312454403, 20.000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.10000000000000009 },
+ { 4124.4159820362511, 20.000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.19999999999999996 },
+ { 428774.21436196787, 20.000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.30000000000000004 },
+ { 76996819.900892526, 20.000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.39999999999999991 },
+ { 30473174828.943691, 20.000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.50000000000000000 },
+ { 39291970835753.094, 20.000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.60000000000000009 },
+ { 3.3890331048069018e+17, 20.000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.69999999999999996 },
+ { 9.7157373454594049e+22, 20.000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.80000000000000004 },
+ { 1.5205808288860858e+32, 20.000000000000000, 20.000000000000000,
+ 10.000000000000000, 0.89999999999999991 },
+};
+const double toler245 = 2.5000000000000020e-13;
+
+template<typename Tp, unsigned int Num>
+ void
+ test(const testcase_hyperg<Tp> (&data)[Num], Tp toler)
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = Num;
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = __gnu_cxx::hyperg(data[i].a, data[i].b,
+ data[i].c, data[i].x);
+ const Tp f0 = data[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < toler);
+ }
+
+int
+main()
+{
+ test(data001, toler001);
+ test(data002, toler002);
+ test(data003, toler003);
+ test(data004, toler004);
+ test(data005, toler005);
+ test(data006, toler006);
+ test(data007, toler007);
+ test(data008, toler008);
+ test(data009, toler009);
+ test(data010, toler010);
+ test(data011, toler011);
+ test(data012, toler012);
+ test(data013, toler013);
+ test(data014, toler014);
+ test(data015, toler015);
+ test(data016, toler016);
+ test(data017, toler017);
+ test(data018, toler018);
+ test(data019, toler019);
+ test(data020, toler020);
+ test(data021, toler021);
+ test(data022, toler022);
+ test(data023, toler023);
+ test(data024, toler024);
+ test(data025, toler025);
+ test(data026, toler026);
+ test(data027, toler027);
+ test(data028, toler028);
+ test(data029, toler029);
+ test(data030, toler030);
+ test(data031, toler031);
+ test(data032, toler032);
+ test(data033, toler033);
+ test(data034, toler034);
+ test(data035, toler035);
+ test(data036, toler036);
+ test(data037, toler037);
+ test(data038, toler038);
+ test(data039, toler039);
+ test(data040, toler040);
+ test(data041, toler041);
+ test(data042, toler042);
+ test(data043, toler043);
+ test(data044, toler044);
+ test(data045, toler045);
+ test(data046, toler046);
+ test(data047, toler047);
+ test(data048, toler048);
+ test(data049, toler049);
+ test(data050, toler050);
+ test(data051, toler051);
+ test(data052, toler052);
+ test(data053, toler053);
+ test(data054, toler054);
+ test(data055, toler055);
+ test(data056, toler056);
+ test(data057, toler057);
+ test(data058, toler058);
+ test(data059, toler059);
+ test(data060, toler060);
+ test(data061, toler061);
+ test(data062, toler062);
+ test(data063, toler063);
+ test(data064, toler064);
+ test(data065, toler065);
+ test(data066, toler066);
+ test(data067, toler067);
+ test(data068, toler068);
+ test(data069, toler069);
+ test(data070, toler070);
+ test(data071, toler071);
+ test(data072, toler072);
+ test(data073, toler073);
+ test(data074, toler074);
+ test(data075, toler075);
+ test(data076, toler076);
+ test(data077, toler077);
+ test(data078, toler078);
+ test(data079, toler079);
+ test(data080, toler080);
+ test(data081, toler081);
+ test(data082, toler082);
+ test(data083, toler083);
+ test(data084, toler084);
+ test(data085, toler085);
+ test(data086, toler086);
+ test(data087, toler087);
+ test(data088, toler088);
+ test(data089, toler089);
+ test(data090, toler090);
+ test(data091, toler091);
+ test(data092, toler092);
+ test(data093, toler093);
+ test(data094, toler094);
+ test(data095, toler095);
+ test(data096, toler096);
+ test(data097, toler097);
+ test(data098, toler098);
+ test(data099, toler099);
+ test(data100, toler100);
+ test(data101, toler101);
+ test(data102, toler102);
+ test(data103, toler103);
+ test(data104, toler104);
+ test(data105, toler105);
+ test(data106, toler106);
+ test(data107, toler107);
+ test(data108, toler108);
+ test(data109, toler109);
+ test(data110, toler110);
+ test(data111, toler111);
+ test(data112, toler112);
+ test(data113, toler113);
+ test(data114, toler114);
+ test(data115, toler115);
+ test(data116, toler116);
+ test(data117, toler117);
+ test(data118, toler118);
+ test(data119, toler119);
+ test(data120, toler120);
+ test(data121, toler121);
+ test(data122, toler122);
+ test(data123, toler123);
+ test(data124, toler124);
+ test(data125, toler125);
+ test(data126, toler126);
+ test(data127, toler127);
+ test(data128, toler128);
+ test(data129, toler129);
+ test(data130, toler130);
+ test(data131, toler131);
+ test(data132, toler132);
+ test(data133, toler133);
+ test(data134, toler134);
+ test(data135, toler135);
+ test(data136, toler136);
+ test(data137, toler137);
+ test(data138, toler138);
+ test(data139, toler139);
+ test(data140, toler140);
+ test(data141, toler141);
+ test(data142, toler142);
+ test(data143, toler143);
+ test(data144, toler144);
+ test(data145, toler145);
+ test(data146, toler146);
+ test(data147, toler147);
+ test(data148, toler148);
+ test(data149, toler149);
+ test(data150, toler150);
+ test(data151, toler151);
+ test(data152, toler152);
+ test(data153, toler153);
+ test(data154, toler154);
+ test(data155, toler155);
+ test(data156, toler156);
+ test(data157, toler157);
+ test(data158, toler158);
+ test(data159, toler159);
+ test(data160, toler160);
+ test(data161, toler161);
+ test(data162, toler162);
+ test(data163, toler163);
+ test(data164, toler164);
+ test(data165, toler165);
+ test(data166, toler166);
+ test(data167, toler167);
+ test(data168, toler168);
+ test(data169, toler169);
+ test(data170, toler170);
+ test(data171, toler171);
+ test(data172, toler172);
+ test(data173, toler173);
+ test(data174, toler174);
+ test(data175, toler175);
+ test(data176, toler176);
+ test(data177, toler177);
+ test(data178, toler178);
+ test(data179, toler179);
+ test(data180, toler180);
+ test(data181, toler181);
+ test(data182, toler182);
+ test(data183, toler183);
+ test(data184, toler184);
+ test(data185, toler185);
+ test(data186, toler186);
+ test(data187, toler187);
+ test(data188, toler188);
+ test(data189, toler189);
+ test(data190, toler190);
+ test(data191, toler191);
+ test(data192, toler192);
+ test(data193, toler193);
+ test(data194, toler194);
+ test(data195, toler195);
+ test(data196, toler196);
+ test(data197, toler197);
+ test(data198, toler198);
+ test(data199, toler199);
+ test(data200, toler200);
+ test(data201, toler201);
+ test(data202, toler202);
+ test(data203, toler203);
+ test(data204, toler204);
+ test(data205, toler205);
+ test(data206, toler206);
+ test(data207, toler207);
+ test(data208, toler208);
+ test(data209, toler209);
+ test(data210, toler210);
+ test(data211, toler211);
+ test(data212, toler212);
+ test(data213, toler213);
+ test(data214, toler214);
+ test(data215, toler215);
+ test(data216, toler216);
+ test(data217, toler217);
+ test(data218, toler218);
+ test(data219, toler219);
+ test(data220, toler220);
+ test(data221, toler221);
+ test(data222, toler222);
+ test(data223, toler223);
+ test(data224, toler224);
+ test(data225, toler225);
+ test(data226, toler226);
+ test(data227, toler227);
+ test(data228, toler228);
+ test(data229, toler229);
+ test(data230, toler230);
+ test(data231, toler231);
+ test(data232, toler232);
+ test(data233, toler233);
+ test(data234, toler234);
+ test(data235, toler235);
+ test(data236, toler236);
+ test(data237, toler237);
+ test(data238, toler238);
+ test(data239, toler239);
+ test(data240, toler240);
+ test(data241, toler241);
+ test(data242, toler242);
+ test(data243, toler243);
+ test(data244, toler244);
+ test(data245, toler245);
+ return 0;
+}
Index: testsuite/ext/special_functions/hyperg/compile.cc
===================================================================
--- testsuite/ext/special_functions/hyperg/compile.cc (revision 0)
+++ testsuite/ext/special_functions/hyperg/compile.cc (working copy)
@@ -0,0 +1,40 @@
+// { dg-do compile }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// hyperg
+
+#include <cmath>
+
+void
+test01()
+{
+ float af = 2.0F, bf = 10.0F, cf = 3.0F, xf = 0.5F;
+ double ad = 2.0, bd = 10.0, cd = 3.0, xd = 0.5;
+ long double al = 2.0L, bl = 10.0L, cl = 3.0L, xl = 0.5L;
+
+ __gnu_cxx::hyperg(af, bf, cf, xf);
+ __gnu_cxx::hypergf(af, bf, cf, xf);
+ __gnu_cxx::hyperg(ad, bd, cd, xd);
+ __gnu_cxx::hyperg(al, bl, cl, xl);
+ __gnu_cxx::hypergl(al, bl, cl, xl);
+
+ return;
+}
+
Index: testsuite/libstdc++-dg/conformance.exp
===================================================================
--- testsuite/libstdc++-dg/conformance.exp (revision 232104)
+++ testsuite/libstdc++-dg/conformance.exp (working copy)
@@ -61,6 +61,7 @@
lappend subdirs "$srcdir/tr2"
lappend subdirs "$srcdir/decimal"
lappend subdirs "$srcdir/experimental"
+ lappend subdirs "$srcdir/special_functions"
verbose "subdirs are $subdirs"
# Find all the tests.
Index: testsuite/special_functions/01_assoc_laguerre/check_nan.cc
===================================================================
--- testsuite/special_functions/01_assoc_laguerre/check_nan.cc (revision 0)
+++ testsuite/special_functions/01_assoc_laguerre/check_nan.cc (working copy)
@@ -0,0 +1,58 @@
+// { dg-require-c-std "" }
+// { dg-add-options ieee }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.1 assoc_laguerre
+
+#include <cmath>
+#include <limits>
+#include <testsuite_hooks.h>
+
+void
+test01()
+{
+ bool test [[gnu::unused]] = true;
+ float xf = std::numeric_limits<float>::quiet_NaN();
+ double xd = std::numeric_limits<double>::quiet_NaN();
+ long double xl = std::numeric_limits<long double>::quiet_NaN();
+ unsigned int n = 2, m = 1;
+
+ float a = std::assoc_laguerre(n, m, xf);
+ float b = std::assoc_laguerref(n, m, xf);
+ double c = std::assoc_laguerre(n, m, xd);
+ long double d = std::assoc_laguerre(n, m, xl);
+ long double e = std::assoc_laguerrel(n, m, xl);
+
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+int
+main()
+{
+ test01();
+ return 0;
+}
+
Index: testsuite/special_functions/01_assoc_laguerre/check_value.cc
===================================================================
--- testsuite/special_functions/01_assoc_laguerre/check_value.cc (revision 0)
+++ testsuite/special_functions/01_assoc_laguerre/check_value.cc (working copy)
@@ -0,0 +1,2120 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+//
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// assoc_laguerre
+// Compare against values generated by the GNU Scientific Library.
+// The GSL can be found on the web: http://www.gnu.org/software/gsl/
+#include <limits>
+#include <cmath>
+#if defined(__TEST_DEBUG)
+# include <iostream>
+# define VERIFY(A) \
+ if (!(A)) \
+ { \
+ std::cout << "line " << __LINE__ \
+ << " max_abs_frac = " << max_abs_frac \
+ << std::endl; \
+ }
+#else
+# include <testsuite_hooks.h>
+#endif
+#include <specfun_testcase.h>
+
+
+// Test data for n=0, m=0.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_laguerre<double>
+data001[11] =
+{
+ { 1.0000000000000000, 0, 0,
+ 0.0000000000000000 },
+ { 1.0000000000000000, 0, 0,
+ 10.000000000000000 },
+ { 1.0000000000000000, 0, 0,
+ 20.000000000000000 },
+ { 1.0000000000000000, 0, 0,
+ 30.000000000000000 },
+ { 1.0000000000000000, 0, 0,
+ 40.000000000000000 },
+ { 1.0000000000000000, 0, 0,
+ 50.000000000000000 },
+ { 1.0000000000000000, 0, 0,
+ 60.000000000000000 },
+ { 1.0000000000000000, 0, 0,
+ 70.000000000000000 },
+ { 1.0000000000000000, 0, 0,
+ 80.000000000000000 },
+ { 1.0000000000000000, 0, 0,
+ 90.000000000000000 },
+ { 1.0000000000000000, 0, 0,
+ 100.00000000000000 },
+};
+const double toler001 = 2.5000000000000020e-13;
+
+// Test data for n=0, m=1.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_laguerre<double>
+data002[11] =
+{
+ { 1.0000000000000000, 0, 1,
+ 0.0000000000000000 },
+ { 1.0000000000000000, 0, 1,
+ 10.000000000000000 },
+ { 1.0000000000000000, 0, 1,
+ 20.000000000000000 },
+ { 1.0000000000000000, 0, 1,
+ 30.000000000000000 },
+ { 1.0000000000000000, 0, 1,
+ 40.000000000000000 },
+ { 1.0000000000000000, 0, 1,
+ 50.000000000000000 },
+ { 1.0000000000000000, 0, 1,
+ 60.000000000000000 },
+ { 1.0000000000000000, 0, 1,
+ 70.000000000000000 },
+ { 1.0000000000000000, 0, 1,
+ 80.000000000000000 },
+ { 1.0000000000000000, 0, 1,
+ 90.000000000000000 },
+ { 1.0000000000000000, 0, 1,
+ 100.00000000000000 },
+};
+const double toler002 = 2.5000000000000020e-13;
+
+// Test data for n=0, m=2.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_laguerre<double>
+data003[11] =
+{
+ { 1.0000000000000000, 0, 2,
+ 0.0000000000000000 },
+ { 1.0000000000000000, 0, 2,
+ 10.000000000000000 },
+ { 1.0000000000000000, 0, 2,
+ 20.000000000000000 },
+ { 1.0000000000000000, 0, 2,
+ 30.000000000000000 },
+ { 1.0000000000000000, 0, 2,
+ 40.000000000000000 },
+ { 1.0000000000000000, 0, 2,
+ 50.000000000000000 },
+ { 1.0000000000000000, 0, 2,
+ 60.000000000000000 },
+ { 1.0000000000000000, 0, 2,
+ 70.000000000000000 },
+ { 1.0000000000000000, 0, 2,
+ 80.000000000000000 },
+ { 1.0000000000000000, 0, 2,
+ 90.000000000000000 },
+ { 1.0000000000000000, 0, 2,
+ 100.00000000000000 },
+};
+const double toler003 = 2.5000000000000020e-13;
+
+// Test data for n=0, m=5.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_laguerre<double>
+data004[11] =
+{
+ { 1.0000000000000000, 0, 5,
+ 0.0000000000000000 },
+ { 1.0000000000000000, 0, 5,
+ 10.000000000000000 },
+ { 1.0000000000000000, 0, 5,
+ 20.000000000000000 },
+ { 1.0000000000000000, 0, 5,
+ 30.000000000000000 },
+ { 1.0000000000000000, 0, 5,
+ 40.000000000000000 },
+ { 1.0000000000000000, 0, 5,
+ 50.000000000000000 },
+ { 1.0000000000000000, 0, 5,
+ 60.000000000000000 },
+ { 1.0000000000000000, 0, 5,
+ 70.000000000000000 },
+ { 1.0000000000000000, 0, 5,
+ 80.000000000000000 },
+ { 1.0000000000000000, 0, 5,
+ 90.000000000000000 },
+ { 1.0000000000000000, 0, 5,
+ 100.00000000000000 },
+};
+const double toler004 = 2.5000000000000020e-13;
+
+// Test data for n=0, m=10.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_laguerre<double>
+data005[11] =
+{
+ { 1.0000000000000000, 0, 10,
+ 0.0000000000000000 },
+ { 1.0000000000000000, 0, 10,
+ 10.000000000000000 },
+ { 1.0000000000000000, 0, 10,
+ 20.000000000000000 },
+ { 1.0000000000000000, 0, 10,
+ 30.000000000000000 },
+ { 1.0000000000000000, 0, 10,
+ 40.000000000000000 },
+ { 1.0000000000000000, 0, 10,
+ 50.000000000000000 },
+ { 1.0000000000000000, 0, 10,
+ 60.000000000000000 },
+ { 1.0000000000000000, 0, 10,
+ 70.000000000000000 },
+ { 1.0000000000000000, 0, 10,
+ 80.000000000000000 },
+ { 1.0000000000000000, 0, 10,
+ 90.000000000000000 },
+ { 1.0000000000000000, 0, 10,
+ 100.00000000000000 },
+};
+const double toler005 = 2.5000000000000020e-13;
+
+// Test data for n=0, m=20.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_laguerre<double>
+data006[11] =
+{
+ { 1.0000000000000000, 0, 20,
+ 0.0000000000000000 },
+ { 1.0000000000000000, 0, 20,
+ 10.000000000000000 },
+ { 1.0000000000000000, 0, 20,
+ 20.000000000000000 },
+ { 1.0000000000000000, 0, 20,
+ 30.000000000000000 },
+ { 1.0000000000000000, 0, 20,
+ 40.000000000000000 },
+ { 1.0000000000000000, 0, 20,
+ 50.000000000000000 },
+ { 1.0000000000000000, 0, 20,
+ 60.000000000000000 },
+ { 1.0000000000000000, 0, 20,
+ 70.000000000000000 },
+ { 1.0000000000000000, 0, 20,
+ 80.000000000000000 },
+ { 1.0000000000000000, 0, 20,
+ 90.000000000000000 },
+ { 1.0000000000000000, 0, 20,
+ 100.00000000000000 },
+};
+const double toler006 = 2.5000000000000020e-13;
+
+// Test data for n=0, m=50.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_laguerre<double>
+data007[11] =
+{
+ { 1.0000000000000000, 0, 50,
+ 0.0000000000000000 },
+ { 1.0000000000000000, 0, 50,
+ 10.000000000000000 },
+ { 1.0000000000000000, 0, 50,
+ 20.000000000000000 },
+ { 1.0000000000000000, 0, 50,
+ 30.000000000000000 },
+ { 1.0000000000000000, 0, 50,
+ 40.000000000000000 },
+ { 1.0000000000000000, 0, 50,
+ 50.000000000000000 },
+ { 1.0000000000000000, 0, 50,
+ 60.000000000000000 },
+ { 1.0000000000000000, 0, 50,
+ 70.000000000000000 },
+ { 1.0000000000000000, 0, 50,
+ 80.000000000000000 },
+ { 1.0000000000000000, 0, 50,
+ 90.000000000000000 },
+ { 1.0000000000000000, 0, 50,
+ 100.00000000000000 },
+};
+const double toler007 = 2.5000000000000020e-13;
+
+// Test data for n=0, m=100.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_laguerre<double>
+data008[11] =
+{
+ { 1.0000000000000000, 0, 100,
+ 0.0000000000000000 },
+ { 1.0000000000000000, 0, 100,
+ 10.000000000000000 },
+ { 1.0000000000000000, 0, 100,
+ 20.000000000000000 },
+ { 1.0000000000000000, 0, 100,
+ 30.000000000000000 },
+ { 1.0000000000000000, 0, 100,
+ 40.000000000000000 },
+ { 1.0000000000000000, 0, 100,
+ 50.000000000000000 },
+ { 1.0000000000000000, 0, 100,
+ 60.000000000000000 },
+ { 1.0000000000000000, 0, 100,
+ 70.000000000000000 },
+ { 1.0000000000000000, 0, 100,
+ 80.000000000000000 },
+ { 1.0000000000000000, 0, 100,
+ 90.000000000000000 },
+ { 1.0000000000000000, 0, 100,
+ 100.00000000000000 },
+};
+const double toler008 = 2.5000000000000020e-13;
+
+// Test data for n=1, m=0.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_laguerre<double>
+data009[11] =
+{
+ { 1.0000000000000000, 1, 0,
+ 0.0000000000000000 },
+ { -9.0000000000000000, 1, 0,
+ 10.000000000000000 },
+ { -19.000000000000000, 1, 0,
+ 20.000000000000000 },
+ { -29.000000000000000, 1, 0,
+ 30.000000000000000 },
+ { -39.000000000000000, 1, 0,
+ 40.000000000000000 },
+ { -49.000000000000000, 1, 0,
+ 50.000000000000000 },
+ { -59.000000000000000, 1, 0,
+ 60.000000000000000 },
+ { -69.000000000000000, 1, 0,
+ 70.000000000000000 },
+ { -79.000000000000000, 1, 0,
+ 80.000000000000000 },
+ { -89.000000000000000, 1, 0,
+ 90.000000000000000 },
+ { -99.000000000000000, 1, 0,
+ 100.00000000000000 },
+};
+const double toler009 = 2.5000000000000020e-13;
+
+// Test data for n=1, m=1.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_laguerre<double>
+data010[11] =
+{
+ { 2.0000000000000000, 1, 1,
+ 0.0000000000000000 },
+ { -8.0000000000000000, 1, 1,
+ 10.000000000000000 },
+ { -18.000000000000000, 1, 1,
+ 20.000000000000000 },
+ { -28.000000000000000, 1, 1,
+ 30.000000000000000 },
+ { -38.000000000000000, 1, 1,
+ 40.000000000000000 },
+ { -48.000000000000000, 1, 1,
+ 50.000000000000000 },
+ { -58.000000000000000, 1, 1,
+ 60.000000000000000 },
+ { -68.000000000000000, 1, 1,
+ 70.000000000000000 },
+ { -78.000000000000000, 1, 1,
+ 80.000000000000000 },
+ { -88.000000000000000, 1, 1,
+ 90.000000000000000 },
+ { -98.000000000000000, 1, 1,
+ 100.00000000000000 },
+};
+const double toler010 = 2.5000000000000020e-13;
+
+// Test data for n=1, m=2.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_laguerre<double>
+data011[11] =
+{
+ { 3.0000000000000000, 1, 2,
+ 0.0000000000000000 },
+ { -7.0000000000000000, 1, 2,
+ 10.000000000000000 },
+ { -17.000000000000000, 1, 2,
+ 20.000000000000000 },
+ { -27.000000000000000, 1, 2,
+ 30.000000000000000 },
+ { -37.000000000000000, 1, 2,
+ 40.000000000000000 },
+ { -47.000000000000000, 1, 2,
+ 50.000000000000000 },
+ { -57.000000000000000, 1, 2,
+ 60.000000000000000 },
+ { -67.000000000000000, 1, 2,
+ 70.000000000000000 },
+ { -77.000000000000000, 1, 2,
+ 80.000000000000000 },
+ { -87.000000000000000, 1, 2,
+ 90.000000000000000 },
+ { -97.000000000000000, 1, 2,
+ 100.00000000000000 },
+};
+const double toler011 = 2.5000000000000020e-13;
+
+// Test data for n=1, m=5.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_laguerre<double>
+data012[11] =
+{
+ { 6.0000000000000000, 1, 5,
+ 0.0000000000000000 },
+ { -4.0000000000000000, 1, 5,
+ 10.000000000000000 },
+ { -14.000000000000000, 1, 5,
+ 20.000000000000000 },
+ { -24.000000000000000, 1, 5,
+ 30.000000000000000 },
+ { -34.000000000000000, 1, 5,
+ 40.000000000000000 },
+ { -44.000000000000000, 1, 5,
+ 50.000000000000000 },
+ { -54.000000000000000, 1, 5,
+ 60.000000000000000 },
+ { -64.000000000000000, 1, 5,
+ 70.000000000000000 },
+ { -74.000000000000000, 1, 5,
+ 80.000000000000000 },
+ { -84.000000000000000, 1, 5,
+ 90.000000000000000 },
+ { -94.000000000000000, 1, 5,
+ 100.00000000000000 },
+};
+const double toler012 = 2.5000000000000020e-13;
+
+// Test data for n=1, m=10.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_laguerre<double>
+data013[11] =
+{
+ { 11.000000000000000, 1, 10,
+ 0.0000000000000000 },
+ { 1.0000000000000000, 1, 10,
+ 10.000000000000000 },
+ { -9.0000000000000000, 1, 10,
+ 20.000000000000000 },
+ { -19.000000000000000, 1, 10,
+ 30.000000000000000 },
+ { -29.000000000000000, 1, 10,
+ 40.000000000000000 },
+ { -39.000000000000000, 1, 10,
+ 50.000000000000000 },
+ { -49.000000000000000, 1, 10,
+ 60.000000000000000 },
+ { -59.000000000000000, 1, 10,
+ 70.000000000000000 },
+ { -69.000000000000000, 1, 10,
+ 80.000000000000000 },
+ { -79.000000000000000, 1, 10,
+ 90.000000000000000 },
+ { -89.000000000000000, 1, 10,
+ 100.00000000000000 },
+};
+const double toler013 = 2.5000000000000020e-13;
+
+// Test data for n=1, m=20.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_laguerre<double>
+data014[11] =
+{
+ { 21.000000000000000, 1, 20,
+ 0.0000000000000000 },
+ { 11.000000000000000, 1, 20,
+ 10.000000000000000 },
+ { 1.0000000000000000, 1, 20,
+ 20.000000000000000 },
+ { -9.0000000000000000, 1, 20,
+ 30.000000000000000 },
+ { -19.000000000000000, 1, 20,
+ 40.000000000000000 },
+ { -29.000000000000000, 1, 20,
+ 50.000000000000000 },
+ { -39.000000000000000, 1, 20,
+ 60.000000000000000 },
+ { -49.000000000000000, 1, 20,
+ 70.000000000000000 },
+ { -59.000000000000000, 1, 20,
+ 80.000000000000000 },
+ { -69.000000000000000, 1, 20,
+ 90.000000000000000 },
+ { -79.000000000000000, 1, 20,
+ 100.00000000000000 },
+};
+const double toler014 = 2.5000000000000020e-13;
+
+// Test data for n=1, m=50.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_laguerre<double>
+data015[11] =
+{
+ { 51.000000000000000, 1, 50,
+ 0.0000000000000000 },
+ { 41.000000000000000, 1, 50,
+ 10.000000000000000 },
+ { 31.000000000000000, 1, 50,
+ 20.000000000000000 },
+ { 21.000000000000000, 1, 50,
+ 30.000000000000000 },
+ { 11.000000000000000, 1, 50,
+ 40.000000000000000 },
+ { 1.0000000000000000, 1, 50,
+ 50.000000000000000 },
+ { -9.0000000000000000, 1, 50,
+ 60.000000000000000 },
+ { -19.000000000000000, 1, 50,
+ 70.000000000000000 },
+ { -29.000000000000000, 1, 50,
+ 80.000000000000000 },
+ { -39.000000000000000, 1, 50,
+ 90.000000000000000 },
+ { -49.000000000000000, 1, 50,
+ 100.00000000000000 },
+};
+const double toler015 = 2.5000000000000020e-13;
+
+// Test data for n=1, m=100.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_laguerre<double>
+data016[11] =
+{
+ { 101.00000000000000, 1, 100,
+ 0.0000000000000000 },
+ { 91.000000000000000, 1, 100,
+ 10.000000000000000 },
+ { 81.000000000000000, 1, 100,
+ 20.000000000000000 },
+ { 71.000000000000000, 1, 100,
+ 30.000000000000000 },
+ { 61.000000000000000, 1, 100,
+ 40.000000000000000 },
+ { 51.000000000000000, 1, 100,
+ 50.000000000000000 },
+ { 41.000000000000000, 1, 100,
+ 60.000000000000000 },
+ { 31.000000000000000, 1, 100,
+ 70.000000000000000 },
+ { 21.000000000000000, 1, 100,
+ 80.000000000000000 },
+ { 11.000000000000000, 1, 100,
+ 90.000000000000000 },
+ { 1.0000000000000000, 1, 100,
+ 100.00000000000000 },
+};
+const double toler016 = 2.5000000000000020e-13;
+
+// Test data for n=2, m=0.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_laguerre<double>
+data017[11] =
+{
+ { 1.0000000000000000, 2, 0,
+ 0.0000000000000000 },
+ { 31.000000000000000, 2, 0,
+ 10.000000000000000 },
+ { 161.00000000000000, 2, 0,
+ 20.000000000000000 },
+ { 391.00000000000000, 2, 0,
+ 30.000000000000000 },
+ { 721.00000000000000, 2, 0,
+ 40.000000000000000 },
+ { 1151.0000000000000, 2, 0,
+ 50.000000000000000 },
+ { 1681.0000000000000, 2, 0,
+ 60.000000000000000 },
+ { 2311.0000000000000, 2, 0,
+ 70.000000000000000 },
+ { 3041.0000000000000, 2, 0,
+ 80.000000000000000 },
+ { 3871.0000000000000, 2, 0,
+ 90.000000000000000 },
+ { 4801.0000000000000, 2, 0,
+ 100.00000000000000 },
+};
+const double toler017 = 2.5000000000000020e-13;
+
+// Test data for n=2, m=1.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_laguerre<double>
+data018[11] =
+{
+ { 3.0000000000000000, 2, 1,
+ 0.0000000000000000 },
+ { 23.000000000000000, 2, 1,
+ 10.000000000000000 },
+ { 143.00000000000000, 2, 1,
+ 20.000000000000000 },
+ { 363.00000000000000, 2, 1,
+ 30.000000000000000 },
+ { 683.00000000000000, 2, 1,
+ 40.000000000000000 },
+ { 1103.0000000000000, 2, 1,
+ 50.000000000000000 },
+ { 1623.0000000000000, 2, 1,
+ 60.000000000000000 },
+ { 2243.0000000000000, 2, 1,
+ 70.000000000000000 },
+ { 2963.0000000000000, 2, 1,
+ 80.000000000000000 },
+ { 3783.0000000000000, 2, 1,
+ 90.000000000000000 },
+ { 4703.0000000000000, 2, 1,
+ 100.00000000000000 },
+};
+const double toler018 = 2.5000000000000020e-13;
+
+// Test data for n=2, m=2.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_laguerre<double>
+data019[11] =
+{
+ { 6.0000000000000000, 2, 2,
+ 0.0000000000000000 },
+ { 16.000000000000000, 2, 2,
+ 10.000000000000000 },
+ { 126.00000000000000, 2, 2,
+ 20.000000000000000 },
+ { 336.00000000000000, 2, 2,
+ 30.000000000000000 },
+ { 646.00000000000000, 2, 2,
+ 40.000000000000000 },
+ { 1056.0000000000000, 2, 2,
+ 50.000000000000000 },
+ { 1566.0000000000000, 2, 2,
+ 60.000000000000000 },
+ { 2176.0000000000000, 2, 2,
+ 70.000000000000000 },
+ { 2886.0000000000000, 2, 2,
+ 80.000000000000000 },
+ { 3696.0000000000000, 2, 2,
+ 90.000000000000000 },
+ { 4606.0000000000000, 2, 2,
+ 100.00000000000000 },
+};
+const double toler019 = 2.5000000000000020e-13;
+
+// Test data for n=2, m=5.
+// max(|f - f_GSL|): 4.5519144009631418e-15
+// max(|f - f_GSL| / |f_GSL|): 4.5519144009631623e-15
+const testcase_assoc_laguerre<double>
+data020[11] =
+{
+ { 21.000000000000000, 2, 5,
+ 0.0000000000000000 },
+ { 0.99999999999999545, 2, 5,
+ 10.000000000000000 },
+ { 81.000000000000000, 2, 5,
+ 20.000000000000000 },
+ { 261.00000000000000, 2, 5,
+ 30.000000000000000 },
+ { 541.00000000000000, 2, 5,
+ 40.000000000000000 },
+ { 921.00000000000000, 2, 5,
+ 50.000000000000000 },
+ { 1401.0000000000000, 2, 5,
+ 60.000000000000000 },
+ { 1981.0000000000000, 2, 5,
+ 70.000000000000000 },
+ { 2661.0000000000000, 2, 5,
+ 80.000000000000000 },
+ { 3441.0000000000000, 2, 5,
+ 90.000000000000000 },
+ { 4321.0000000000000, 2, 5,
+ 100.00000000000000 },
+};
+const double toler020 = 2.5000000000000020e-13;
+
+// Test data for n=2, m=10.
+// max(|f - f_GSL|): 3.5527136788005009e-14
+// max(|f - f_GSL| / |f_GSL|): 2.4424906541753385e-15
+const testcase_assoc_laguerre<double>
+data021[11] =
+{
+ { 66.000000000000000, 2, 10,
+ 0.0000000000000000 },
+ { -4.0000000000000098, 2, 10,
+ 10.000000000000000 },
+ { 25.999999999999964, 2, 10,
+ 20.000000000000000 },
+ { 156.00000000000000, 2, 10,
+ 30.000000000000000 },
+ { 386.00000000000000, 2, 10,
+ 40.000000000000000 },
+ { 716.00000000000000, 2, 10,
+ 50.000000000000000 },
+ { 1146.0000000000000, 2, 10,
+ 60.000000000000000 },
+ { 1676.0000000000000, 2, 10,
+ 70.000000000000000 },
+ { 2306.0000000000000, 2, 10,
+ 80.000000000000000 },
+ { 3036.0000000000000, 2, 10,
+ 90.000000000000000 },
+ { 3866.0000000000000, 2, 10,
+ 100.00000000000000 },
+};
+const double toler021 = 2.5000000000000020e-13;
+
+// Test data for n=2, m=20.
+// max(|f - f_GSL|): 5.6843418860808015e-13
+// max(|f - f_GSL| / |f_GSL|): 5.9211894646674663e-15
+const testcase_assoc_laguerre<double>
+data022[11] =
+{
+ { 231.00000000000000, 2, 20,
+ 0.0000000000000000 },
+ { 61.000000000000206, 2, 20,
+ 10.000000000000000 },
+ { -9.0000000000000053, 2, 20,
+ 20.000000000000000 },
+ { 21.000000000000124, 2, 20,
+ 30.000000000000000 },
+ { 151.00000000000057, 2, 20,
+ 40.000000000000000 },
+ { 381.00000000000000, 2, 20,
+ 50.000000000000000 },
+ { 711.00000000000000, 2, 20,
+ 60.000000000000000 },
+ { 1141.0000000000000, 2, 20,
+ 70.000000000000000 },
+ { 1670.9999999999998, 2, 20,
+ 80.000000000000000 },
+ { 2301.0000000000000, 2, 20,
+ 90.000000000000000 },
+ { 3031.0000000000000, 2, 20,
+ 100.00000000000000 },
+};
+const double toler022 = 5.0000000000000039e-13;
+
+// Test data for n=2, m=50.
+// max(|f - f_GSL|): 3.6379788070917130e-12
+// max(|f - f_GSL| / |f_GSL|): 1.9243865760169750e-14
+const testcase_assoc_laguerre<double>
+data023[11] =
+{
+ { 1326.0000000000000, 2, 50,
+ 0.0000000000000000 },
+ { 855.99999999999693, 2, 50,
+ 10.000000000000000 },
+ { 485.99999999999835, 2, 50,
+ 20.000000000000000 },
+ { 215.99999999999937, 2, 50,
+ 30.000000000000000 },
+ { 45.999999999999829, 2, 50,
+ 40.000000000000000 },
+ { -23.999999999999538, 2, 50,
+ 50.000000000000000 },
+ { 6.0000000000001057, 2, 50,
+ 60.000000000000000 },
+ { 135.99999999999963, 2, 50,
+ 70.000000000000000 },
+ { 365.99999999999892, 2, 50,
+ 80.000000000000000 },
+ { 695.99999999999784, 2, 50,
+ 90.000000000000000 },
+ { 1125.9999999999964, 2, 50,
+ 100.00000000000000 },
+};
+const double toler023 = 1.0000000000000008e-12;
+
+// Test data for n=2, m=100.
+// max(|f - f_GSL|): 6.5483618527650833e-11
+// max(|f - f_GSL| / |f_GSL|): 1.6416871873157281e-14
+const testcase_assoc_laguerre<double>
+data024[11] =
+{
+ { 5151.0000000000000, 2, 100,
+ 0.0000000000000000 },
+ { 4181.0000000000655, 2, 100,
+ 10.000000000000000 },
+ { 3311.0000000000518, 2, 100,
+ 20.000000000000000 },
+ { 2541.0000000000400, 2, 100,
+ 30.000000000000000 },
+ { 1871.0000000000291, 2, 100,
+ 40.000000000000000 },
+ { 1301.0000000000207, 2, 100,
+ 50.000000000000000 },
+ { 831.00000000001364, 2, 100,
+ 60.000000000000000 },
+ { 461.00000000000682, 2, 100,
+ 70.000000000000000 },
+ { 191.00000000000250, 2, 100,
+ 80.000000000000000 },
+ { 21.000000000000046, 2, 100,
+ 90.000000000000000 },
+ { -48.999999999999915, 2, 100,
+ 100.00000000000000 },
+};
+const double toler024 = 1.0000000000000008e-12;
+
+// Test data for n=5, m=0.
+// max(|f - f_GSL|): 7.4505805969238281e-09
+// max(|f - f_GSL| / |f_GSL|): 1.9501553136894460e-16
+const testcase_assoc_laguerre<double>
+data025[11] =
+{
+ { 1.0000000000000000, 5, 0,
+ 0.0000000000000000 },
+ { 34.333333333333329, 5, 0,
+ 10.000000000000000 },
+ { -4765.6666666666670, 5, 0,
+ 20.000000000000000 },
+ { -74399.000000000000, 5, 0,
+ 30.000000000000000 },
+ { -418865.66666666663, 5, 0,
+ 40.000000000000000 },
+ { -1498165.6666666665, 5, 0,
+ 50.000000000000000 },
+ { -4122299.0000000000, 5, 0,
+ 60.000000000000000 },
+ { -9551265.6666666679, 5, 0,
+ 70.000000000000000 },
+ { -19595065.666666664, 5, 0,
+ 80.000000000000000 },
+ { -36713699.000000000, 5, 0,
+ 90.000000000000000 },
+ { -64117165.666666664, 5, 0,
+ 100.00000000000000 },
+};
+const double toler025 = 2.5000000000000020e-13;
+
+// Test data for n=5, m=1.
+// max(|f - f_GSL|): 3.7252902984619141e-09
+// max(|f - f_GSL| / |f_GSL|): 3.1347473636475015e-16
+const testcase_assoc_laguerre<double>
+data026[11] =
+{
+ { 6.0000000000000000, 5, 1,
+ 0.0000000000000000 },
+ { 22.666666666666661, 5, 1,
+ 10.000000000000000 },
+ { -2960.6666666666661, 5, 1,
+ 20.000000000000000 },
+ { -58944.000000000000, 5, 1,
+ 30.000000000000000 },
+ { -357927.33333333326, 5, 1,
+ 40.000000000000000 },
+ { -1329910.6666666665, 5, 1,
+ 50.000000000000000 },
+ { -3744894.0000000000, 5, 1,
+ 60.000000000000000 },
+ { -8812877.3333333321, 5, 1,
+ 70.000000000000000 },
+ { -18283860.666666664, 5, 1,
+ 80.000000000000000 },
+ { -34547844.000000000, 5, 1,
+ 90.000000000000000 },
+ { -60734827.333333336, 5, 1,
+ 100.00000000000000 },
+};
+const double toler026 = 2.5000000000000020e-13;
+
+// Test data for n=5, m=2.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_laguerre<double>
+data027[11] =
+{
+ { 21.000000000000000, 5, 2,
+ 0.0000000000000000 },
+ { 4.3333333333333339, 5, 2,
+ 10.000000000000000 },
+ { -1679.0000000000000, 5, 2,
+ 20.000000000000000 },
+ { -46029.000000000000, 5, 2,
+ 30.000000000000000 },
+ { -304045.66666666669, 5, 2,
+ 40.000000000000000 },
+ { -1176729.0000000002, 5, 2,
+ 50.000000000000000 },
+ { -3395079.0000000000, 5, 2,
+ 60.000000000000000 },
+ { -8120095.6666666660, 5, 2,
+ 70.000000000000000 },
+ { -17042778.999999996, 5, 2,
+ 80.000000000000000 },
+ { -32484129.000000000, 5, 2,
+ 90.000000000000000 },
+ { -57495145.666666664, 5, 2,
+ 100.00000000000000 },
+};
+const double toler027 = 2.5000000000000020e-13;
+
+// Test data for n=5, m=5.
+// max(|f - f_GSL|): 7.4505805969238281e-09
+// max(|f - f_GSL| / |f_GSL|): 1.7763568394002536e-15
+const testcase_assoc_laguerre<double>
+data028[11] =
+{
+ { 252.00000000000000, 5, 5,
+ 0.0000000000000000 },
+ { -14.666666666666654, 5, 5,
+ 10.000000000000000 },
+ { 51.999999999999908, 5, 5,
+ 20.000000000000000 },
+ { -19548.000000000000, 5, 5,
+ 30.000000000000000 },
+ { -178814.66666666660, 5, 5,
+ 40.000000000000000 },
+ { -797747.99999999977, 5, 5,
+ 50.000000000000000 },
+ { -2496348.0000000000, 5, 5,
+ 60.000000000000000 },
+ { -6294614.6666666660, 5, 5,
+ 70.000000000000000 },
+ { -13712547.999999996, 5, 5,
+ 80.000000000000000 },
+ { -26870147.999999993, 5, 5,
+ 90.000000000000000 },
+ { -48587414.666666672, 5, 5,
+ 100.00000000000000 },
+};
+const double toler028 = 2.5000000000000020e-13;
+
+// Test data for n=5, m=10.
+// max(|f - f_GSL|): 7.4505805969238281e-09
+// max(|f - f_GSL| / |f_GSL|): 1.9556222085140405e-15
+const testcase_assoc_laguerre<double>
+data029[11] =
+{
+ { 3003.0000000000000, 5, 10,
+ 0.0000000000000000 },
+ { 19.666666666666668, 5, 10,
+ 10.000000000000000 },
+ { 36.333333333333272, 5, 10,
+ 20.000000000000000 },
+ { -1947.0000000000000, 5, 10,
+ 30.000000000000000 },
+ { -60930.333333333314, 5, 10,
+ 40.000000000000000 },
+ { -381913.66666666651, 5, 10,
+ 50.000000000000000 },
+ { -1419897.0000000000, 5, 10,
+ 60.000000000000000 },
+ { -3979880.3333333330, 5, 10,
+ 70.000000000000000 },
+ { -9316863.6666666642, 5, 10,
+ 80.000000000000000 },
+ { -19235847.000000000, 5, 10,
+ 90.000000000000000 },
+ { -36191830.333333328, 5, 10,
+ 100.00000000000000 },
+};
+const double toler029 = 2.5000000000000020e-13;
+
+// Test data for n=5, m=20.
+// max(|f - f_GSL|): 1.8626451492309570e-09
+// max(|f - f_GSL| / |f_GSL|): 2.8421709430404088e-15
+const testcase_assoc_laguerre<double>
+data030[11] =
+{
+ { 53130.000000000000, 5, 20,
+ 0.0000000000000000 },
+ { 1213.3333333333335, 5, 20,
+ 10.000000000000000 },
+ { 129.99999999999963, 5, 20,
+ 20.000000000000000 },
+ { -119.99999999999974, 5, 20,
+ 30.000000000000000 },
+ { 463.33333333333320, 5, 20,
+ 40.000000000000000 },
+ { -48120.000000000015, 5, 20,
+ 50.000000000000000 },
+ { -345870.00000000017, 5, 20,
+ 60.000000000000000 },
+ { -1342786.6666666667, 5, 20,
+ 70.000000000000000 },
+ { -3838870.0000000009, 5, 20,
+ 80.000000000000000 },
+ { -9084120.0000000000, 5, 20,
+ 90.000000000000000 },
+ { -18878536.666666668, 5, 20,
+ 100.00000000000000 },
+};
+const double toler030 = 2.5000000000000020e-13;
+
+// Test data for n=5, m=50.
+// max(|f - f_GSL|): 5.8207660913467407e-11
+// max(|f - f_GSL| / |f_GSL|): 8.3212917817998576e-15
+const testcase_assoc_laguerre<double>
+data031[11] =
+{
+ { 3478761.0000000000, 5, 50,
+ 0.0000000000000000 },
+ { 1154544.3333333335, 5, 50,
+ 10.000000000000000 },
+ { 264661.00000000006, 5, 50,
+ 20.000000000000000 },
+ { 24111.000000000033, 5, 50,
+ 30.000000000000000 },
+ { -2105.6666666666665, 5, 50,
+ 40.000000000000000 },
+ { 1010.9999999999916, 5, 50,
+ 50.000000000000000 },
+ { -1538.9999999999955, 5, 50,
+ 60.000000000000000 },
+ { 5244.3333333333449, 5, 50,
+ 70.000000000000000 },
+ { -13639.000000000011, 5, 50,
+ 80.000000000000000 },
+ { -243189.00000000006, 5, 50,
+ 90.000000000000000 },
+ { -1118405.6666666667, 5, 50,
+ 100.00000000000000 },
+};
+const double toler031 = 5.0000000000000039e-13;
+
+// Test data for n=5, m=100.
+// max(|f - f_GSL|): 1.4901161193847656e-08
+// max(|f - f_GSL| / |f_GSL|): 4.3934583843896481e-16
+const testcase_assoc_laguerre<double>
+data032[11] =
+{
+ { 96560646.000000000, 5, 100,
+ 0.0000000000000000 },
+ { 57264262.666666649, 5, 100,
+ 10.000000000000000 },
+ { 31841379.333333332, 5, 100,
+ 20.000000000000000 },
+ { 16281996.000000000, 5, 100,
+ 30.000000000000000 },
+ { 7426112.6666666670, 5, 100,
+ 40.000000000000000 },
+ { 2863729.3333333330, 5, 100,
+ 50.000000000000000 },
+ { 834846.00000000000, 5, 100,
+ 60.000000000000000 },
+ { 129462.66666666663, 5, 100,
+ 70.000000000000000 },
+ { -12420.666666666668, 5, 100,
+ 80.000000000000000 },
+ { -804.00000000000000, 5, 100,
+ 90.000000000000000 },
+ { 4312.6666666666670, 5, 100,
+ 100.00000000000000 },
+};
+const double toler032 = 2.5000000000000020e-13;
+
+// Test data for n=10, m=0.
+// max(|f - f_GSL|): 6.1035156250000000e-05
+// max(|f - f_GSL| / |f_GSL|): 6.1315986390500118e-15
+const testcase_assoc_laguerre<double>
+data033[11] =
+{
+ { 1.0000000000000000, 10, 0,
+ 0.0000000000000000 },
+ { 27.984126984126977, 10, 0,
+ 10.000000000000000 },
+ { 3227.8077601410932, 10, 0,
+ 20.000000000000000 },
+ { 15129.571428571455, 10, 0,
+ 30.000000000000000 },
+ { 79724066.608465582, 10, 0,
+ 40.000000000000000 },
+ { 2037190065.3738980, 10, 0,
+ 50.000000000000000 },
+ { 21804200401.000000, 10, 0,
+ 60.000000000000000 },
+ { 144688291819.51855, 10, 0,
+ 70.000000000000000 },
+ { 703324772760.08276, 10, 0,
+ 80.000000000000000 },
+ { 2741055412243.8569, 10, 0,
+ 90.000000000000000 },
+ { 9051283795429.5723, 10, 0,
+ 100.00000000000000 },
+};
+const double toler033 = 5.0000000000000039e-13;
+
+// Test data for n=10, m=1.
+// max(|f - f_GSL|): 0.0019531250000000000
+// max(|f - f_GSL| / |f_GSL|): 3.2082933888884751e-16
+const testcase_assoc_laguerre<double>
+data034[11] =
+{
+ { 11.000000000000000, 10, 1,
+ 0.0000000000000000 },
+ { 14.791887125220455, 10, 1,
+ 10.000000000000000 },
+ { 2704.6507936507933, 10, 1,
+ 20.000000000000000 },
+ { -182924.71428571423, 10, 1,
+ 30.000000000000000 },
+ { 48066036.749559075, 10, 1,
+ 40.000000000000000 },
+ { 1486264192.2169311, 10, 1,
+ 50.000000000000000 },
+ { 17239562282.428574, 10, 1,
+ 60.000000000000000 },
+ { 119837491630.13579, 10, 1,
+ 70.000000000000000 },
+ { 600681375251.21167, 10, 1,
+ 80.000000000000000 },
+ { 2392908405632.4287, 10, 1,
+ 90.000000000000000 },
+ { 8033035722509.2373, 10, 1,
+ 100.00000000000000 },
+};
+const double toler034 = 2.5000000000000020e-13;
+
+// Test data for n=10, m=2.
+// max(|f - f_GSL|): 0.00012207031250000000
+// max(|f - f_GSL| / |f_GSL|): 3.0884259455918855e-16
+const testcase_assoc_laguerre<double>
+data035[11] =
+{
+ { 66.000000000000000, 10, 2,
+ 0.0000000000000000 },
+ { -14.511463844797181, 10, 2,
+ 10.000000000000000 },
+ { 1064.5890652557316, 10, 2,
+ 20.000000000000000 },
+ { -194569.71428571429, 10, 2,
+ 30.000000000000000 },
+ { 27343569.350970022, 10, 2,
+ 40.000000000000000 },
+ { 1067807661.6790125, 10, 2,
+ 50.000000000000000 },
+ { 13529451580.285711, 10, 2,
+ 60.000000000000000 },
+ { 98812724224.641937, 10, 2,
+ 70.000000000000000 },
+ { 511482736187.34021, 10, 2,
+ 80.000000000000000 },
+ { 2084478393087.4285, 10, 2,
+ 90.000000000000000 },
+ { 7117724862237.0752, 10, 2,
+ 100.00000000000000 },
+};
+const double toler035 = 2.5000000000000020e-13;
+
+// Test data for n=10, m=5.
+// max(|f - f_GSL|): 0.0019531250000000000
+// max(|f - f_GSL| / |f_GSL|): 5.4929549774030811e-15
+const testcase_assoc_laguerre<double>
+data036[11] =
+{
+ { 3003.0000000000000, 10, 5,
+ 0.0000000000000000 },
+ { 11.641975308642031, 10, 5,
+ 10.000000000000000 },
+ { -1137.5643738977069, 10, 5,
+ 20.000000000000000 },
+ { -9254.1428571428605, 10, 5,
+ 30.000000000000000 },
+ { 2121878.8377425023, 10, 5,
+ 40.000000000000000 },
+ { 352060171.43033499, 10, 5,
+ 50.000000000000000 },
+ { 6212028560.1428576, 10, 5,
+ 60.000000000000000 },
+ { 53782171674.604919, 10, 5,
+ 70.000000000000000 },
+ { 309720255837.56775, 10, 5,
+ 80.000000000000000 },
+ { 1359043035731.5713, 10, 5,
+ 90.000000000000000 },
+ { 4900625954398.9434, 10, 5,
+ 100.00000000000000 },
+};
+const double toler036 = 5.0000000000000039e-13;
+
+// Test data for n=10, m=10.
+// max(|f - f_GSL|): 0.00048828125000000000
+// max(|f - f_GSL| / |f_GSL|): 1.2999856205575476e-15
+const testcase_assoc_laguerre<double>
+data037[11] =
+{
+ { 184756.00000000000, 10, 10,
+ 0.0000000000000000 },
+ { -210.84303350970018, 10, 10,
+ 10.000000000000000 },
+ { 508.38095238095184, 10, 10,
+ 20.000000000000000 },
+ { 2098.8571428571431, 10, 10,
+ 30.000000000000000 },
+ { -536338.88536155177, 10, 10,
+ 40.000000000000000 },
+ { 24865988.804232784, 10, 10,
+ 50.000000000000000 },
+ { 1343756013.1428571, 10, 10,
+ 60.000000000000000 },
+ { 17298791247.358025, 10, 10,
+ 70.000000000000000 },
+ { 124528450897.79892, 10, 10,
+ 80.000000000000000 },
+ { 632674413641.71423, 10, 10,
+ 90.000000000000000 },
+ { 2533008935405.0298, 10, 10,
+ 100.00000000000000 },
+};
+const double toler037 = 2.5000000000000020e-13;
+
+// Test data for n=10, m=20.
+// max(|f - f_GSL|): 1.1444091796875000e-05
+// max(|f - f_GSL| / |f_GSL|): 1.3165826881543491e-14
+const testcase_assoc_laguerre<double>
+data038[11] =
+{
+ { 30045014.999999993, 10, 20,
+ 0.0000000000000000 },
+ { -23087.733686067022, 10, 20,
+ 10.000000000000000 },
+ { 207.23985890652330, 10, 20,
+ 20.000000000000000 },
+ { 1407.8571428571508, 10, 20,
+ 30.000000000000000 },
+ { -44618.156966490322, 10, 20,
+ 40.000000000000000 },
+ { 158690.04409171100, 10, 20,
+ 50.000000000000000 },
+ { -6870413.5714285728, 10, 20,
+ 60.000000000000000 },
+ { 793841351.41975331, 10, 20,
+ 70.000000000000000 },
+ { 13358288958.562618, 10, 20,
+ 80.000000000000000 },
+ { 106073722407.85715, 10, 20,
+ 90.000000000000000 },
+ { 566337213392.42493, 10, 20,
+ 100.00000000000000 },
+};
+const double toler038 = 1.0000000000000008e-12;
+
+// Test data for n=10, m=50.
+// max(|f - f_GSL|): 1.7881393432617188e-07
+// max(|f - f_GSL| / |f_GSL|): 1.9220038158581863e-14
+const testcase_assoc_laguerre<double>
+data039[11] =
+{
+ { 75394027566.000000, 10, 50,
+ 0.0000000000000000 },
+ { 8048106183.3721361, 10, 50,
+ 10.000000000000000 },
+ { 328045023.84832460, 10, 50,
+ 20.000000000000000 },
+ { -2568769.7142857178, 10, 50,
+ 30.000000000000000 },
+ { 6971.9964726631533, 10, 50,
+ 40.000000000000000 },
+ { 136111.41446207993, 10, 50,
+ 50.000000000000000 },
+ { -62462.571428570242, 10, 50,
+ 60.000000000000000 },
+ { -248167.95061728527, 10, 50,
+ 70.000000000000000 },
+ { 1941270.4091710770, 10, 50,
+ 80.000000000000000 },
+ { -8643512.5714285765, 10, 50,
+ 90.000000000000000 },
+ { -140863522.18342152, 10, 50,
+ 100.00000000000000 },
+};
+const double toler039 = 1.0000000000000008e-12;
+
+// Test data for n=10, m=100.
+// max(|f - f_GSL|): 0.0019531250000000000
+// max(|f - f_GSL| / |f_GSL|): 8.5796208358610616e-15
+const testcase_assoc_laguerre<double>
+data040[11] =
+{
+ { 46897636623981.000, 10, 100,
+ 0.0000000000000000 },
+ { 16444031323272.084, 10, 100,
+ 10.000000000000000 },
+ { 5020343986463.5391, 10, 100,
+ 20.000000000000000 },
+ { 1270977490645.2859, 10, 100,
+ 30.000000000000000 },
+ { 244835756822.62262, 10, 100,
+ 40.000000000000000 },
+ { 29786827693.962959, 10, 100,
+ 50.000000000000000 },
+ { 1127612095.2857144, 10, 100,
+ 60.000000000000000 },
+ { -66370555.419753075, 10, 100,
+ 70.000000000000000 },
+ { 10420852.957671870, 10, 100,
+ 80.000000000000000 },
+ { -3373097.5714285718, 10, 100,
+ 90.000000000000000 },
+ { 2065423.6807760145, 10, 100,
+ 100.00000000000000 },
+};
+const double toler040 = 5.0000000000000039e-13;
+
+// Test data for n=20, m=0.
+// max(|f - f_GSL|): 20.000000000000000
+// max(|f - f_GSL| / |f_GSL|): 4.7350442720305269e-15
+const testcase_assoc_laguerre<double>
+data041[11] =
+{
+ { 1.0000000000000000, 20, 0,
+ 0.0000000000000000 },
+ { -11.961333867812119, 20, 0,
+ 10.000000000000000 },
+ { 2829.4728613531743, 20, 0,
+ 20.000000000000000 },
+ { -18439.424502520938, 20, 0,
+ 30.000000000000000 },
+ { 24799805.877530713, 20, 0,
+ 40.000000000000000 },
+ { 7551960453.7672548, 20, 0,
+ 50.000000000000000 },
+ { -1379223608444.9155, 20, 0,
+ 60.000000000000000 },
+ { 165423821874449.94, 20, 0,
+ 70.000000000000000 },
+ { 29500368536981676., 20, 0,
+ 80.000000000000000 },
+ { 1.1292309514432901e+18, 20, 0,
+ 90.000000000000000 },
+ { 2.2061882785931735e+19, 20, 0,
+ 100.00000000000000 },
+};
+const double toler041 = 2.5000000000000020e-13;
+
+// Test data for n=20, m=1.
+// max(|f - f_GSL|): 8192.0000000000000
+// max(|f - f_GSL| / |f_GSL|): 2.0583579235866667e-15
+const testcase_assoc_laguerre<double>
+data042[11] =
+{
+ { 21.000000000000000, 20, 1,
+ 0.0000000000000000 },
+ { 19.900488129734079, 20, 1,
+ 10.000000000000000 },
+ { 2208.0318569557585, 20, 1,
+ 20.000000000000000 },
+ { 263690.96303121914, 20, 1,
+ 30.000000000000000 },
+ { 40667285.630564235, 20, 1,
+ 40.000000000000000 },
+ { 1737442572.8115399, 20, 1,
+ 50.000000000000000 },
+ { -588280953643.28125, 20, 1,
+ 60.000000000000000 },
+ { 45617733778241.328, 20, 1,
+ 70.000000000000000 },
+ { 17293487114876864., 20, 1,
+ 80.000000000000000 },
+ { 7.6219135858585062e+17, 20, 1,
+ 90.000000000000000 },
+ { 1.6037288204336759e+19, 20, 1,
+ 100.00000000000000 },
+};
+const double toler042 = 2.5000000000000020e-13;
+
+// Test data for n=20, m=2.
+// max(|f - f_GSL|): 6144.0000000000000
+// max(|f - f_GSL| / |f_GSL|): 9.3068805041852228e-15
+const testcase_assoc_laguerre<double>
+data043[11] =
+{
+ { 231.00000000000003, 20, 2,
+ 0.0000000000000000 },
+ { 47.009338065112921, 20, 2,
+ 10.000000000000000 },
+ { -652.51305461728589, 20, 2,
+ 20.000000000000000 },
+ { 285388.25895069109, 20, 2,
+ 30.000000000000000 },
+ { 28664069.685624730, 20, 2,
+ 40.000000000000000 },
+ { -1399631966.3144732, 20, 2,
+ 50.000000000000000 },
+ { -115357373248.28194, 20, 2,
+ 60.000000000000000 },
+ { -3357730872975.8750, 20, 2,
+ 70.000000000000000 },
+ { 9765808962855122.0, 20, 2,
+ 80.000000000000000 },
+ { 5.0717292945559181e+17, 20, 2,
+ 90.000000000000000 },
+ { 1.1564665701334456e+19, 20, 2,
+ 100.00000000000000 },
+};
+const double toler043 = 5.0000000000000039e-13;
+
+// Test data for n=20, m=5.
+// max(|f - f_GSL|): 16.000000000000000
+// max(|f - f_GSL| / |f_GSL|): 3.5731302592472765e-15
+const testcase_assoc_laguerre<double>
+data044[11] =
+{
+ { 53130.000000000000, 20, 5,
+ 0.0000000000000000 },
+ { -158.69554500944142, 20, 5,
+ 10.000000000000000 },
+ { 334.08012288038952, 20, 5,
+ 20.000000000000000 },
+ { -198372.47662554163, 20, 5,
+ 30.000000000000000 },
+ { -13627144.088579426, 20, 5,
+ 40.000000000000000 },
+ { -780579985.44731510, 20, 5,
+ 50.000000000000000 },
+ { 116648634237.73535, 20, 5,
+ 60.000000000000000 },
+ { -12347348707739.742, 20, 5,
+ 70.000000000000000 },
+ { 1199516248034090.8, 20, 5,
+ 80.000000000000000 },
+ { 1.3451503195078531e+17, 20, 5,
+ 90.000000000000000 },
+ { 4.1058904276111483e+18, 20, 5,
+ 100.00000000000000 },
+};
+const double toler044 = 2.5000000000000020e-13;
+
+// Test data for n=20, m=10.
+// max(|f - f_GSL|): 64.000000000000000
+// max(|f - f_GSL| / |f_GSL|): 1.0709209504860220e-15
+const testcase_assoc_laguerre<double>
+data045[11] =
+{
+ { 30045015.000000000, 20, 10,
+ 0.0000000000000000 },
+ { -1755.6226861258601, 20, 10,
+ 10.000000000000000 },
+ { -9081.6726644737901, 20, 10,
+ 20.000000000000000 },
+ { 95771.650912113109, 20, 10,
+ 30.000000000000000 },
+ { 5089151.9272779236, 20, 10,
+ 40.000000000000000 },
+ { 97400399.450206712, 20, 10,
+ 50.000000000000000 },
+ { -16009352450.477026, 20, 10,
+ 60.000000000000000 },
+ { 842271286905.01050, 20, 10,
+ 70.000000000000000 },
+ { -79901725466796.938, 20, 10,
+ 80.000000000000000 },
+ { 7944103675858637.0, 20, 10,
+ 90.000000000000000 },
+ { 5.7429821893388288e+17, 20, 10,
+ 100.00000000000000 },
+};
+const double toler045 = 2.5000000000000020e-13;
+
+// Test data for n=20, m=20.
+// max(|f - f_GSL|): 2.1250000000000000
+// max(|f - f_GSL| / |f_GSL|): 1.1968937782285294e-14
+const testcase_assoc_laguerre<double>
+data046[11] =
+{
+ { 137846528819.99994, 20, 20,
+ 0.0000000000000000 },
+ { -136976.49571333229, 20, 20,
+ 10.000000000000000 },
+ { 113878.49908041643, 20, 20,
+ 20.000000000000000 },
+ { -342529.21778796182, 20, 20,
+ 30.000000000000000 },
+ { -350112.66981443466, 20, 20,
+ 40.000000000000000 },
+ { -10791735.172977809, 20, 20,
+ 50.000000000000000 },
+ { -1038073940.0811402, 20, 20,
+ 60.000000000000000 },
+ { 667312550.63616335, 20, 20,
+ 70.000000000000000 },
+ { 741537869902.29028, 20, 20,
+ 80.000000000000000 },
+ { -32378376755737.418, 20, 20,
+ 90.000000000000000 },
+ { -601760332167937.62, 20, 20,
+ 100.00000000000000 },
+};
+const double toler046 = 1.0000000000000008e-12;
+
+// Test data for n=20, m=50.
+// max(|f - f_GSL|): 0.25000000000000000
+// max(|f - f_GSL| / |f_GSL|): 1.2103144092558234e-14
+const testcase_assoc_laguerre<double>
+data047[11] =
+{
+ { 1.6188460366265789e+17, 20, 50,
+ 0.0000000000000000 },
+ { 1599011936804291.5, 20, 50,
+ 10.000000000000000 },
+ { -131273880831.42432, 20, 50,
+ 20.000000000000000 },
+ { -3133213093.6903548, 20, 50,
+ 30.000000000000000 },
+ { -213935628.04985175, 20, 50,
+ 40.000000000000000 },
+ { -47375578.495921060, 20, 50,
+ 50.000000000000000 },
+ { -115731015.14034876, 20, 50,
+ 60.000000000000000 },
+ { -737415147.29420292, 20, 50,
+ 70.000000000000000 },
+ { -2123455626.8621769, 20, 50,
+ 80.000000000000000 },
+ { 29801266858.608929, 20, 50,
+ 90.000000000000000 },
+ { -132886631026.82553, 20, 50,
+ 100.00000000000000 },
+};
+const double toler047 = 1.0000000000000008e-12;
+
+// Test data for n=20, m=100.
+// max(|f - f_GSL|): 1572864.0000000000
+// max(|f - f_GSL| / |f_GSL|): 3.6621229371267356e-14
+const testcase_assoc_laguerre<double>
+data048[11] =
+{
+ { 2.9462227291176643e+22, 20, 100,
+ 0.0000000000000000 },
+ { 3.5777890748701244e+21, 20, 100,
+ 10.000000000000000 },
+ { 3.1584925521456759e+20, 20, 100,
+ 20.000000000000000 },
+ { 1.7389599388424864e+19, 20, 100,
+ 30.000000000000000 },
+ { 4.1401342745980634e+17, 20, 100,
+ 40.000000000000000 },
+ { -79359706102062.594, 20, 100,
+ 50.000000000000000 },
+ { 22736203650743.145, 20, 100,
+ 60.000000000000000 },
+ { 65679006380.095703, 20, 100,
+ 70.000000000000000 },
+ { -236263257610.77792, 20, 100,
+ 80.000000000000000 },
+ { -38072644585.303101, 20, 100,
+ 90.000000000000000 },
+ { 68236474365.173973, 20, 100,
+ 100.00000000000000 },
+};
+const double toler048 = 2.5000000000000015e-12;
+
+// Test data for n=50, m=0.
+// max(|f - f_GSL|): 196608.00000000000
+// max(|f - f_GSL| / |f_GSL|): 4.2910775919271532e-15
+const testcase_assoc_laguerre<double>
+data049[11] =
+{
+ { 1.0000000000000000, 50, 0,
+ 0.0000000000000000 },
+ { 17.534183446338233, 50, 0,
+ 10.000000000000000 },
+ { 980.26961889791028, 50, 0,
+ 20.000000000000000 },
+ { 293000.50735962362, 50, 0,
+ 30.000000000000000 },
+ { -14896937.968694873, 50, 0,
+ 40.000000000000000 },
+ { 2513677852.6916871, 50, 0,
+ 50.000000000000000 },
+ { -883876565337.99219, 50, 0,
+ 60.000000000000000 },
+ { -80967880733583.234, 50, 0,
+ 70.000000000000000 },
+ { -8217471769564841.0, 50, 0,
+ 80.000000000000000 },
+ { -2.1140031308048891e+18, 50, 0,
+ 90.000000000000000 },
+ { -3.9710103487094692e+20, 50, 0,
+ 100.00000000000000 },
+};
+const double toler049 = 2.5000000000000020e-13;
+
+// Test data for n=50, m=1.
+// max(|f - f_GSL|): 311296.00000000000
+// max(|f - f_GSL| / |f_GSL|): 4.3113718426975911e-14
+const testcase_assoc_laguerre<double>
+data050[11] =
+{
+ { 51.000000000000021, 50, 1,
+ 0.0000000000000000 },
+ { 1.4214573271639575, 50, 1,
+ 10.000000000000000 },
+ { -2574.8072295127827, 50, 1,
+ 20.000000000000000 },
+ { 35846.479728359205, 50, 1,
+ 30.000000000000000 },
+ { -48263698.768318526, 50, 1,
+ 40.000000000000000 },
+ { 6161525870.2738533, 50, 1,
+ 50.000000000000000 },
+ { -382655486658.47125, 50, 1,
+ 60.000000000000000 },
+ { -109635579833241.72, 50, 1,
+ 70.000000000000000 },
+ { -14623805817283490., 50, 1,
+ 80.000000000000000 },
+ { -2.0666847190878152e+18, 50, 1,
+ 90.000000000000000 },
+ { -1.4385187953997626e+20, 50, 1,
+ 100.00000000000000 },
+};
+const double toler050 = 2.5000000000000015e-12;
+
+// Test data for n=50, m=2.
+// max(|f - f_GSL|): 139264.00000000000
+// max(|f - f_GSL| / |f_GSL|): 2.5437687254653283e-15
+const testcase_assoc_laguerre<double>
+data051[11] =
+{
+ { 1326.0000000000000, 50, 2,
+ 0.0000000000000000 },
+ { -87.860732516444529, 50, 2,
+ 10.000000000000000 },
+ { -5203.2351191780917, 50, 2,
+ 20.000000000000000 },
+ { -461059.50012538867, 50, 2,
+ 30.000000000000000 },
+ { -30476695.327440590, 50, 2,
+ 40.000000000000000 },
+ { 3720804977.9338136, 50, 2,
+ 50.000000000000000 },
+ { 362262002434.51453, 50, 2,
+ 60.000000000000000 },
+ { -52210917867820.227, 50, 2,
+ 70.000000000000000 },
+ { -9567965136901914.0, 50, 2,
+ 80.000000000000000 },
+ { -8.9171277517712883e+17, 50, 2,
+ 90.000000000000000 },
+ { 5.7231129448806982e+19, 50, 2,
+ 100.00000000000000 },
+};
+const double toler051 = 2.5000000000000020e-13;
+
+// Test data for n=50, m=5.
+// max(|f - f_GSL|): 81920.000000000000
+// max(|f - f_GSL| / |f_GSL|): 2.6215979818234617e-15
+const testcase_assoc_laguerre<double>
+data052[11] =
+{
+ { 3478761.0000000000, 50, 5,
+ 0.0000000000000000 },
+ { 1055.8381917651498, 50, 5,
+ 10.000000000000000 },
+ { 15264.646660345055, 50, 5,
+ 20.000000000000000 },
+ { 1229651.8966600848, 50, 5,
+ 30.000000000000000 },
+ { 39270451.823656842, 50, 5,
+ 40.000000000000000 },
+ { -4424062601.1152029, 50, 5,
+ 50.000000000000000 },
+ { -186017434284.19223, 50, 5,
+ 60.000000000000000 },
+ { 50972853949302.609, 50, 5,
+ 70.000000000000000 },
+ { 6530702754012517.0, 50, 5,
+ 80.000000000000000 },
+ { 6.8387592714678029e+17, 50, 5,
+ 90.000000000000000 },
+ { 3.9198742504338391e+19, 50, 5,
+ 100.00000000000000 },
+};
+const double toler052 = 2.5000000000000020e-13;
+
+// Test data for n=50, m=10.
+// max(|f - f_GSL|): 192.00000000000000
+// max(|f - f_GSL| / |f_GSL|): 3.6229303412867937e-15
+const testcase_assoc_laguerre<double>
+data053[11] =
+{
+ { 75394027565.999985, 50, 10,
+ 0.0000000000000000 },
+ { 91833.924098770178, 50, 10,
+ 10.000000000000000 },
+ { 330501.87929778261, 50, 10,
+ 20.000000000000000 },
+ { 3625088.1635972536, 50, 10,
+ 30.000000000000000 },
+ { 213954727.28632012, 50, 10,
+ 40.000000000000000 },
+ { -9381006937.7517681, 50, 10,
+ 50.000000000000000 },
+ { 535333683777.48615, 50, 10,
+ 60.000000000000000 },
+ { 18824406573722.172, 50, 10,
+ 70.000000000000000 },
+ { -533858276780013.12, 50, 10,
+ 80.000000000000000 },
+ { -52995774666704016., 50, 10,
+ 90.000000000000000 },
+ { 6.0504182862448783e+18, 50, 10,
+ 100.00000000000000 },
+};
+const double toler053 = 2.5000000000000020e-13;
+
+// Test data for n=50, m=20.
+// max(|f - f_GSL|): 512.00000000000000
+// max(|f - f_GSL| / |f_GSL|): 9.6616871455409171e-14
+const testcase_assoc_laguerre<double>
+data054[11] =
+{
+ { 1.6188460366265779e+17, 50, 20,
+ 0.0000000000000000 },
+ { -307637087.25169408, 50, 20,
+ 10.000000000000000 },
+ { 12524651.102974586, 50, 20,
+ 20.000000000000000 },
+ { -315460483.86210561, 50, 20,
+ 30.000000000000000 },
+ { -1889683587.3459988, 50, 20,
+ 40.000000000000000 },
+ { 37457044404.200348, 50, 20,
+ 50.000000000000000 },
+ { -843831858224.71802, 50, 20,
+ 60.000000000000000 },
+ { -92231643172.307495, 50, 20,
+ 70.000000000000000 },
+ { 904211757769501.00, 50, 20,
+ 80.000000000000000 },
+ { 46508193600283272., 50, 20,
+ 90.000000000000000 },
+ { 2.3216887928162719e+18, 50, 20,
+ 100.00000000000000 },
+};
+const double toler054 = 5.0000000000000029e-12;
+
+// Test data for n=50, m=50.
+// max(|f - f_GSL|): 989855744.00000000
+// max(|f - f_GSL| / |f_GSL|): 1.1139535389485780e-14
+const testcase_assoc_laguerre<double>
+data055[11] =
+{
+ { 1.0089134454556417e+29, 50, 50,
+ 0.0000000000000000 },
+ { 1.3822795753070493e+23, 50, 50,
+ 10.000000000000000 },
+ { 95817260381628336., 50, 50,
+ 20.000000000000000 },
+ { -910798580856015.38, 50, 50,
+ 30.000000000000000 },
+ { 50513254049166.922, 50, 50,
+ 40.000000000000000 },
+ { 84159703903348.938, 50, 50,
+ 50.000000000000000 },
+ { -138805244691822.72, 50, 50,
+ 60.000000000000000 },
+ { 181046391269246.25, 50, 50,
+ 70.000000000000000 },
+ { 2086884905317107.5, 50, 50,
+ 80.000000000000000 },
+ { -2765620139862428.0, 50, 50,
+ 90.000000000000000 },
+ { -1.3706751678146290e+17, 50, 50,
+ 100.00000000000000 },
+};
+const double toler055 = 1.0000000000000008e-12;
+
+// Test data for n=50, m=100.
+// max(|f - f_GSL|): 1.8889465931478581e+22
+// max(|f - f_GSL| / |f_GSL|): 2.2737143709403468e-14
+const testcase_assoc_laguerre<double>
+data056[11] =
+{
+ { 2.0128660909731929e+40, 50, 100,
+ 0.0000000000000000 },
+ { 9.3675094807695474e+37, 50, 100,
+ 10.000000000000000 },
+ { 1.3009321481877196e+35, 50, 100,
+ 20.000000000000000 },
+ { 7.3720026893233823e+30, 50, 100,
+ 30.000000000000000 },
+ { -6.0824679079634667e+25, 50, 100,
+ 40.000000000000000 },
+ { -6.0053188793543450e+23, 50, 100,
+ 50.000000000000000 },
+ { 1.4178129287264692e+22, 50, 100,
+ 60.000000000000000 },
+ { -5.4652099341566706e+20, 50, 100,
+ 70.000000000000000 },
+ { -1.0817271759263274e+20, 50, 100,
+ 80.000000000000000 },
+ { 3.8058734007924195e+19, 50, 100,
+ 90.000000000000000 },
+ { 4.7439240848028344e+19, 50, 100,
+ 100.00000000000000 },
+};
+const double toler056 = 2.5000000000000015e-12;
+
+// Test data for n=100, m=0.
+// max(|f - f_GSL|): 98304.000000000000
+// max(|f - f_GSL| / |f_GSL|): 3.8776197831393928e-15
+const testcase_assoc_laguerre<double>
+data057[11] =
+{
+ { 1.0000000000000000, 100, 0,
+ 0.0000000000000000 },
+ { 13.277662844303450, 100, 0,
+ 10.000000000000000 },
+ { 1854.0367283243388, 100, 0,
+ 20.000000000000000 },
+ { 170141.86987046551, 100, 0,
+ 30.000000000000000 },
+ { -7272442.3156006960, 100, 0,
+ 40.000000000000000 },
+ { 4847420871.2690506, 100, 0,
+ 50.000000000000000 },
+ { 693492765740.29688, 100, 0,
+ 60.000000000000000 },
+ { 17125518672239.770, 100, 0,
+ 70.000000000000000 },
+ { -13763178176383768., 100, 0,
+ 80.000000000000000 },
+ { 2.1307220490380173e+18, 100, 0,
+ 90.000000000000000 },
+ { -2.6292260693068916e+20, 100, 0,
+ 100.00000000000000 },
+};
+const double toler057 = 2.5000000000000020e-13;
+
+// Test data for n=100, m=1.
+// max(|f - f_GSL|): 245760.00000000000
+// max(|f - f_GSL| / |f_GSL|): 1.4500034612453474e-14
+const testcase_assoc_laguerre<double>
+data058[11] =
+{
+ { 101.00000000000003, 100, 1,
+ 0.0000000000000000 },
+ { -14.650661983680420, 100, 1,
+ 10.000000000000000 },
+ { 1626.5010939361582, 100, 1,
+ 20.000000000000000 },
+ { 417884.77658268728, 100, 1,
+ 30.000000000000000 },
+ { -55617646.951649837, 100, 1,
+ 40.000000000000000 },
+ { 884829874.26626217, 100, 1,
+ 50.000000000000000 },
+ { 154466082750.32202, 100, 1,
+ 60.000000000000000 },
+ { -101423973484646.00, 100, 1,
+ 70.000000000000000 },
+ { -1388352348671756.8, 100, 1,
+ 80.000000000000000 },
+ { 7.8048705513268582e+17, 100, 1,
+ 90.000000000000000 },
+ { 1.6948925059042755e+19, 100, 1,
+ 100.00000000000000 },
+};
+const double toler058 = 1.0000000000000008e-12;
+
+// Test data for n=100, m=2.
+// max(|f - f_GSL|): 557056.00000000000
+// max(|f - f_GSL| / |f_GSL|): 5.1603746667135714e-15
+const testcase_assoc_laguerre<double>
+data059[11] =
+{
+ { 5151.0000000000055, 100, 2,
+ 0.0000000000000000 },
+ { -150.22012290951324, 100, 2,
+ 10.000000000000000 },
+ { -7655.0593294049449, 100, 2,
+ 20.000000000000000 },
+ { -140996.69276179091, 100, 2,
+ 30.000000000000000 },
+ { -38645171.278549351, 100, 2,
+ 40.000000000000000 },
+ { -8889263688.2118931, 100, 2,
+ 50.000000000000000 },
+ { -1010338971533.3400, 100, 2,
+ 60.000000000000000 },
+ { -127582564332943.91, 100, 2,
+ 70.000000000000000 },
+ { 15970305694654312., 100, 2,
+ 80.000000000000000 },
+ { -1.6019844992862820e+18, 100, 2,
+ 90.000000000000000 },
+ { 2.8267024730962955e+20, 100, 2,
+ 100.00000000000000 },
+};
+const double toler059 = 5.0000000000000039e-13;
+
+// Test data for n=100, m=5.
+// max(|f - f_GSL|): 393216.00000000000
+// max(|f - f_GSL| / |f_GSL|): 8.0946565190235238e-15
+const testcase_assoc_laguerre<double>
+data060[11] =
+{
+ { 96560646.000000030, 100, 5,
+ 0.0000000000000000 },
+ { 2430.6732236677612, 100, 5,
+ 10.000000000000000 },
+ { 111162.32026994647, 100, 5,
+ 20.000000000000000 },
+ { 4036708.2599413628, 100, 5,
+ 30.000000000000000 },
+ { -34055982.664405443, 100, 5,
+ 40.000000000000000 },
+ { 30110688343.562328, 100, 5,
+ 50.000000000000000 },
+ { 2651429940558.2974, 100, 5,
+ 60.000000000000000 },
+ { 192108556058943.09, 100, 5,
+ 70.000000000000000 },
+ { -25410533973455528., 100, 5,
+ 80.000000000000000 },
+ { 2.1072955633564431e+18, 100, 5,
+ 90.000000000000000 },
+ { -2.9434005355877289e+20, 100, 5,
+ 100.00000000000000 },
+};
+const double toler060 = 5.0000000000000039e-13;
+
+// Test data for n=100, m=10.
+// max(|f - f_GSL|): 155648.00000000000
+// max(|f - f_GSL| / |f_GSL|): 5.1685581852917721e-15
+const testcase_assoc_laguerre<double>
+data061[11] =
+{
+ { 46897636623981.039, 100, 10,
+ 0.0000000000000000 },
+ { 529208.11550990329, 100, 10,
+ 10.000000000000000 },
+ { 7402892.1748803817, 100, 10,
+ 20.000000000000000 },
+ { 88369632.083243579, 100, 10,
+ 30.000000000000000 },
+ { 822187797.59096563, 100, 10,
+ 40.000000000000000 },
+ { 180231446033.06866, 100, 10,
+ 50.000000000000000 },
+ { 7922942703798.1309, 100, 10,
+ 60.000000000000000 },
+ { 784424250559042.12, 100, 10,
+ 70.000000000000000 },
+ { -16325634720239370., 100, 10,
+ 80.000000000000000 },
+ { -1.0879588307443162e+18, 100, 10,
+ 90.000000000000000 },
+ { 3.0114394463610642e+19, 100, 10,
+ 100.00000000000000 },
+};
+const double toler061 = 5.0000000000000039e-13;
+
+// Test data for n=100, m=20.
+// max(|f - f_GSL|): 524288.00000000000
+// max(|f - f_GSL| / |f_GSL|): 3.7005989410347388e-14
+const testcase_assoc_laguerre<double>
+data062[11] =
+{
+ { 2.9462227291176614e+22, 100, 20,
+ 0.0000000000000000 },
+ { 313694958939.90405, 100, 20,
+ 10.000000000000000 },
+ { 45396489338.096191, 100, 20,
+ 20.000000000000000 },
+ { -7215826758.0081253, 100, 20,
+ 30.000000000000000 },
+ { 825949194005.88855, 100, 20,
+ 40.000000000000000 },
+ { -2764742119971.0811, 100, 20,
+ 50.000000000000000 },
+ { -219802198273516.03, 100, 20,
+ 60.000000000000000 },
+ { -1699053306145262.0, 100, 20,
+ 70.000000000000000 },
+ { 3.5495709345023846e+17, 100, 20,
+ 80.000000000000000 },
+ { -9.6128675110292419e+18, 100, 20,
+ 90.000000000000000 },
+ { 4.3619868422072212e+20, 100, 20,
+ 100.00000000000000 },
+};
+const double toler062 = 2.5000000000000015e-12;
+
+// Test data for n=100, m=50.
+// max(|f - f_GSL|): 316659348799488.00
+// max(|f - f_GSL| / |f_GSL|): 1.1554040570270351e-14
+const testcase_assoc_laguerre<double>
+data063[11] =
+{
+ { 2.0128660909731931e+40, 100, 50,
+ 0.0000000000000000 },
+ { -4.0151443913473373e+28, 100, 50,
+ 10.000000000000000 },
+ { 3.2199632594551924e+22, 100, 50,
+ 20.000000000000000 },
+ { -2.7568702092659756e+20, 100, 50,
+ 30.000000000000000 },
+ { 7.5553066015421563e+19, 100, 50,
+ 40.000000000000000 },
+ { -2.7651625252387734e+19, 100, 50,
+ 50.000000000000000 },
+ { -5.8963680147283804e+19, 100, 50,
+ 60.000000000000000 },
+ { -1.8082798163033106e+20, 100, 50,
+ 70.000000000000000 },
+ { -3.9044276986817249e+20, 100, 50,
+ 80.000000000000000 },
+ { 6.9926310700401904e+21, 100, 50,
+ 90.000000000000000 },
+ { -5.5727272809923646e+22, 100, 50,
+ 100.00000000000000 },
+};
+const double toler063 = 1.0000000000000008e-12;
+
+// Test data for n=100, m=100.
+// max(|f - f_GSL|): 2.3819765684465692e+39
+// max(|f - f_GSL| / |f_GSL|): 1.9897039067343855e-14
+const testcase_assoc_laguerre<double>
+data064[11] =
+{
+ { 9.0548514656103225e+58, 100, 100,
+ 0.0000000000000000 },
+ { 1.3334078033060556e+54, 100, 100,
+ 10.000000000000000 },
+ { 2.1002639254211340e+46, 100, 100,
+ 20.000000000000000 },
+ { -1.1073158068796292e+39, 100, 100,
+ 30.000000000000000 },
+ { -8.3640937363981346e+35, 100, 100,
+ 40.000000000000000 },
+ { -6.5879339429312686e+32, 100, 100,
+ 50.000000000000000 },
+ { -2.4190645077698771e+30, 100, 100,
+ 60.000000000000000 },
+ { -7.9224960465662171e+29, 100, 100,
+ 70.000000000000000 },
+ { -2.8605772478408694e+29, 100, 100,
+ 80.000000000000000 },
+ { 2.4149589189609957e+28, 100, 100,
+ 90.000000000000000 },
+ { 5.1146476014859021e+28, 100, 100,
+ 100.00000000000000 },
+};
+const double toler064 = 1.0000000000000008e-12;
+
+template<typename Tp, unsigned int Num>
+ void
+ test(const testcase_assoc_laguerre<Tp> (&data)[Num], Tp toler)
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = Num;
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::assoc_laguerre(data[i].n, data[i].m,
+ data[i].x);
+ const Tp f0 = data[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < toler);
+ }
+
+int
+main()
+{
+ test(data001, toler001);
+ test(data002, toler002);
+ test(data003, toler003);
+ test(data004, toler004);
+ test(data005, toler005);
+ test(data006, toler006);
+ test(data007, toler007);
+ test(data008, toler008);
+ test(data009, toler009);
+ test(data010, toler010);
+ test(data011, toler011);
+ test(data012, toler012);
+ test(data013, toler013);
+ test(data014, toler014);
+ test(data015, toler015);
+ test(data016, toler016);
+ test(data017, toler017);
+ test(data018, toler018);
+ test(data019, toler019);
+ test(data020, toler020);
+ test(data021, toler021);
+ test(data022, toler022);
+ test(data023, toler023);
+ test(data024, toler024);
+ test(data025, toler025);
+ test(data026, toler026);
+ test(data027, toler027);
+ test(data028, toler028);
+ test(data029, toler029);
+ test(data030, toler030);
+ test(data031, toler031);
+ test(data032, toler032);
+ test(data033, toler033);
+ test(data034, toler034);
+ test(data035, toler035);
+ test(data036, toler036);
+ test(data037, toler037);
+ test(data038, toler038);
+ test(data039, toler039);
+ test(data040, toler040);
+ test(data041, toler041);
+ test(data042, toler042);
+ test(data043, toler043);
+ test(data044, toler044);
+ test(data045, toler045);
+ test(data046, toler046);
+ test(data047, toler047);
+ test(data048, toler048);
+ test(data049, toler049);
+ test(data050, toler050);
+ test(data051, toler051);
+ test(data052, toler052);
+ test(data053, toler053);
+ test(data054, toler054);
+ test(data055, toler055);
+ test(data056, toler056);
+ test(data057, toler057);
+ test(data058, toler058);
+ test(data059, toler059);
+ test(data060, toler060);
+ test(data061, toler061);
+ test(data062, toler062);
+ test(data063, toler063);
+ test(data064, toler064);
+ return 0;
+}
Index: testsuite/special_functions/01_assoc_laguerre/compile.cc
===================================================================
--- testsuite/special_functions/01_assoc_laguerre/compile.cc (revision 0)
+++ testsuite/special_functions/01_assoc_laguerre/compile.cc (working copy)
@@ -0,0 +1,40 @@
+// { dg-do compile }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.1 assoc_laguerre
+
+#include <cmath>
+
+void
+test01()
+{
+ float xf = 0.5F;
+ double xd = 0.5;
+ long double xl = 0.5L;
+ unsigned int n = 2, m = 1;
+
+ std::assoc_laguerre(n, m, xf);
+ std::assoc_laguerref(n, m, xf);
+ std::assoc_laguerre(n, m, xd);
+ std::assoc_laguerre(n, m, xl);
+ std::assoc_laguerrel(n, m, xl);
+
+ return;
+}
Index: testsuite/special_functions/01_assoc_laguerre/compile_2.cc
===================================================================
--- testsuite/special_functions/01_assoc_laguerre/compile_2.cc (revision 0)
+++ testsuite/special_functions/01_assoc_laguerre/compile_2.cc (working copy)
@@ -0,0 +1,42 @@
+// { dg-do compile { xfail *-*-* } }
+// { dg-excess-errors "" }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.1 assoc_laguerre
+
+#include <math.h>
+
+void
+test01()
+{
+ float xf = 0.5F;
+ double xd = 0.5;
+ long double xl = 0.5L;
+ unsigned int n = 2, m = 1;
+
+ assoc_laguerre(n, m, xf);
+ assoc_laguerref(n, m, xf);
+ assoc_laguerre(n, m, xd);
+ assoc_laguerre(n, m, xl);
+ assoc_laguerrel(n, m, xl);
+
+ return;
+}
+
Index: testsuite/special_functions/02_assoc_legendre/check_nan.cc
===================================================================
--- testsuite/special_functions/02_assoc_legendre/check_nan.cc (revision 0)
+++ testsuite/special_functions/02_assoc_legendre/check_nan.cc (working copy)
@@ -0,0 +1,58 @@
+// { dg-require-c-std "" }
+// { dg-add-options ieee }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.2 assoc_legendre
+
+#include <cmath>
+#include <testsuite_hooks.h>
+
+void
+test01()
+{
+ float xf = std::numeric_limits<float>::quiet_NaN();
+ double xd = std::numeric_limits<double>::quiet_NaN();
+ long double xl = std::numeric_limits<long double>::quiet_NaN();
+
+ unsigned int l = 2, m = 1;
+
+ float a = std::assoc_legendre(l, m, xf);
+ float b = std::assoc_legendref(l, m, xf);
+ double c = std::assoc_legendre(l, m, xd);
+ long double d = std::assoc_legendre(l, m, xl);
+ long double e = std::assoc_legendrel(l, m, xl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+int
+main()
+{
+ test01();
+ return 0;
+}
+
Index: testsuite/special_functions/02_assoc_legendre/check_value.cc
===================================================================
--- testsuite/special_functions/02_assoc_legendre/check_value.cc (revision 0)
+++ testsuite/special_functions/02_assoc_legendre/check_value.cc (working copy)
@@ -0,0 +1,1944 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+//
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// assoc_legendre
+// Compare against values generated by the GNU Scientific Library.
+// The GSL can be found on the web: http://www.gnu.org/software/gsl/
+#include <limits>
+#include <cmath>
+#if defined(__TEST_DEBUG)
+# include <iostream>
+# define VERIFY(A) \
+ if (!(A)) \
+ { \
+ std::cout << "line " << __LINE__ \
+ << " max_abs_frac = " << max_abs_frac \
+ << std::endl; \
+ }
+#else
+# include <testsuite_hooks.h>
+#endif
+#include <specfun_testcase.h>
+
+
+// Test data for l=0, m=0.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data001[21] =
+{
+ { 1.0000000000000000, 0, 0,
+ -1.0000000000000000 },
+ { 1.0000000000000000, 0, 0,
+ -0.90000000000000002 },
+ { 1.0000000000000000, 0, 0,
+ -0.80000000000000004 },
+ { 1.0000000000000000, 0, 0,
+ -0.69999999999999996 },
+ { 1.0000000000000000, 0, 0,
+ -0.59999999999999998 },
+ { 1.0000000000000000, 0, 0,
+ -0.50000000000000000 },
+ { 1.0000000000000000, 0, 0,
+ -0.40000000000000002 },
+ { 1.0000000000000000, 0, 0,
+ -0.30000000000000004 },
+ { 1.0000000000000000, 0, 0,
+ -0.19999999999999996 },
+ { 1.0000000000000000, 0, 0,
+ -0.099999999999999978 },
+ { 1.0000000000000000, 0, 0,
+ 0.0000000000000000 },
+ { 1.0000000000000000, 0, 0,
+ 0.10000000000000009 },
+ { 1.0000000000000000, 0, 0,
+ 0.19999999999999996 },
+ { 1.0000000000000000, 0, 0,
+ 0.30000000000000004 },
+ { 1.0000000000000000, 0, 0,
+ 0.39999999999999991 },
+ { 1.0000000000000000, 0, 0,
+ 0.50000000000000000 },
+ { 1.0000000000000000, 0, 0,
+ 0.60000000000000009 },
+ { 1.0000000000000000, 0, 0,
+ 0.69999999999999996 },
+ { 1.0000000000000000, 0, 0,
+ 0.80000000000000004 },
+ { 1.0000000000000000, 0, 0,
+ 0.89999999999999991 },
+ { 1.0000000000000000, 0, 0,
+ 1.0000000000000000 },
+};
+const double toler001 = 2.5000000000000020e-13;
+
+// Test data for l=1, m=0.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data002[21] =
+{
+ { -1.0000000000000000, 1, 0,
+ -1.0000000000000000 },
+ { -0.90000000000000002, 1, 0,
+ -0.90000000000000002 },
+ { -0.80000000000000004, 1, 0,
+ -0.80000000000000004 },
+ { -0.69999999999999996, 1, 0,
+ -0.69999999999999996 },
+ { -0.59999999999999998, 1, 0,
+ -0.59999999999999998 },
+ { -0.50000000000000000, 1, 0,
+ -0.50000000000000000 },
+ { -0.40000000000000002, 1, 0,
+ -0.40000000000000002 },
+ { -0.30000000000000004, 1, 0,
+ -0.30000000000000004 },
+ { -0.19999999999999996, 1, 0,
+ -0.19999999999999996 },
+ { -0.099999999999999978, 1, 0,
+ -0.099999999999999978 },
+ { 0.0000000000000000, 1, 0,
+ 0.0000000000000000 },
+ { 0.10000000000000009, 1, 0,
+ 0.10000000000000009 },
+ { 0.19999999999999996, 1, 0,
+ 0.19999999999999996 },
+ { 0.30000000000000004, 1, 0,
+ 0.30000000000000004 },
+ { 0.39999999999999991, 1, 0,
+ 0.39999999999999991 },
+ { 0.50000000000000000, 1, 0,
+ 0.50000000000000000 },
+ { 0.60000000000000009, 1, 0,
+ 0.60000000000000009 },
+ { 0.69999999999999996, 1, 0,
+ 0.69999999999999996 },
+ { 0.80000000000000004, 1, 0,
+ 0.80000000000000004 },
+ { 0.89999999999999991, 1, 0,
+ 0.89999999999999991 },
+ { 1.0000000000000000, 1, 0,
+ 1.0000000000000000 },
+};
+const double toler002 = 2.5000000000000020e-13;
+
+// Test data for l=1, m=1.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data003[21] =
+{
+ { -0.0000000000000000, 1, 1,
+ -1.0000000000000000 },
+ { -0.43588989435406728, 1, 1,
+ -0.90000000000000002 },
+ { -0.59999999999999987, 1, 1,
+ -0.80000000000000004 },
+ { -0.71414284285428509, 1, 1,
+ -0.69999999999999996 },
+ { -0.80000000000000004, 1, 1,
+ -0.59999999999999998 },
+ { -0.86602540378443860, 1, 1,
+ -0.50000000000000000 },
+ { -0.91651513899116799, 1, 1,
+ -0.40000000000000002 },
+ { -0.95393920141694577, 1, 1,
+ -0.30000000000000004 },
+ { -0.97979589711327120, 1, 1,
+ -0.19999999999999996 },
+ { -0.99498743710661997, 1, 1,
+ -0.099999999999999978 },
+ { -1.0000000000000000, 1, 1,
+ 0.0000000000000000 },
+ { -0.99498743710661997, 1, 1,
+ 0.10000000000000009 },
+ { -0.97979589711327120, 1, 1,
+ 0.19999999999999996 },
+ { -0.95393920141694577, 1, 1,
+ 0.30000000000000004 },
+ { -0.91651513899116799, 1, 1,
+ 0.39999999999999991 },
+ { -0.86602540378443860, 1, 1,
+ 0.50000000000000000 },
+ { -0.79999999999999993, 1, 1,
+ 0.60000000000000009 },
+ { -0.71414284285428509, 1, 1,
+ 0.69999999999999996 },
+ { -0.59999999999999987, 1, 1,
+ 0.80000000000000004 },
+ { -0.43588989435406750, 1, 1,
+ 0.89999999999999991 },
+ { -0.0000000000000000, 1, 1,
+ 1.0000000000000000 },
+};
+const double toler003 = 2.5000000000000020e-13;
+
+// Test data for l=2, m=0.
+// max(|f - f_GSL|): 1.1102230246251565e-16
+// max(|f - f_GSL| / |f_GSL|): 1.3877787807814482e-15
+const testcase_assoc_legendre<double>
+data004[21] =
+{
+ { 1.0000000000000000, 2, 0,
+ -1.0000000000000000 },
+ { 0.71500000000000008, 2, 0,
+ -0.90000000000000002 },
+ { 0.46000000000000019, 2, 0,
+ -0.80000000000000004 },
+ { 0.23499999999999988, 2, 0,
+ -0.69999999999999996 },
+ { 0.039999999999999925, 2, 0,
+ -0.59999999999999998 },
+ { -0.12500000000000000, 2, 0,
+ -0.50000000000000000 },
+ { -0.25999999999999995, 2, 0,
+ -0.40000000000000002 },
+ { -0.36499999999999999, 2, 0,
+ -0.30000000000000004 },
+ { -0.44000000000000006, 2, 0,
+ -0.19999999999999996 },
+ { -0.48499999999999999, 2, 0,
+ -0.099999999999999978 },
+ { -0.50000000000000000, 2, 0,
+ 0.0000000000000000 },
+ { -0.48499999999999999, 2, 0,
+ 0.10000000000000009 },
+ { -0.44000000000000006, 2, 0,
+ 0.19999999999999996 },
+ { -0.36499999999999999, 2, 0,
+ 0.30000000000000004 },
+ { -0.26000000000000012, 2, 0,
+ 0.39999999999999991 },
+ { -0.12500000000000000, 2, 0,
+ 0.50000000000000000 },
+ { 0.040000000000000147, 2, 0,
+ 0.60000000000000009 },
+ { 0.23499999999999988, 2, 0,
+ 0.69999999999999996 },
+ { 0.46000000000000019, 2, 0,
+ 0.80000000000000004 },
+ { 0.71499999999999986, 2, 0,
+ 0.89999999999999991 },
+ { 1.0000000000000000, 2, 0,
+ 1.0000000000000000 },
+};
+const double toler004 = 2.5000000000000020e-13;
+
+// Test data for l=2, m=1.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data005[21] =
+{
+ { 0.0000000000000000, 2, 1,
+ -1.0000000000000000 },
+ { 1.1769027147559816, 2, 1,
+ -0.90000000000000002 },
+ { 1.4399999999999999, 2, 1,
+ -0.80000000000000004 },
+ { 1.4996999699939983, 2, 1,
+ -0.69999999999999996 },
+ { 1.4399999999999999, 2, 1,
+ -0.59999999999999998 },
+ { 1.2990381056766580, 2, 1,
+ -0.50000000000000000 },
+ { 1.0998181667894018, 2, 1,
+ -0.40000000000000002 },
+ { 0.85854528127525132, 2, 1,
+ -0.30000000000000004 },
+ { 0.58787753826796263, 2, 1,
+ -0.19999999999999996 },
+ { 0.29849623113198592, 2, 1,
+ -0.099999999999999978 },
+ { -0.0000000000000000, 2, 1,
+ 0.0000000000000000 },
+ { -0.29849623113198626, 2, 1,
+ 0.10000000000000009 },
+ { -0.58787753826796263, 2, 1,
+ 0.19999999999999996 },
+ { -0.85854528127525132, 2, 1,
+ 0.30000000000000004 },
+ { -1.0998181667894014, 2, 1,
+ 0.39999999999999991 },
+ { -1.2990381056766580, 2, 1,
+ 0.50000000000000000 },
+ { -1.4400000000000002, 2, 1,
+ 0.60000000000000009 },
+ { -1.4996999699939983, 2, 1,
+ 0.69999999999999996 },
+ { -1.4399999999999999, 2, 1,
+ 0.80000000000000004 },
+ { -1.1769027147559821, 2, 1,
+ 0.89999999999999991 },
+ { -0.0000000000000000, 2, 1,
+ 1.0000000000000000 },
+};
+const double toler005 = 2.5000000000000020e-13;
+
+// Test data for l=2, m=2.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data006[21] =
+{
+ { 0.0000000000000000, 2, 2,
+ -1.0000000000000000 },
+ { 0.56999999999999984, 2, 2,
+ -0.90000000000000002 },
+ { 1.0799999999999996, 2, 2,
+ -0.80000000000000004 },
+ { 1.5300000000000005, 2, 2,
+ -0.69999999999999996 },
+ { 1.9200000000000004, 2, 2,
+ -0.59999999999999998 },
+ { 2.2500000000000000, 2, 2,
+ -0.50000000000000000 },
+ { 2.5200000000000000, 2, 2,
+ -0.40000000000000002 },
+ { 2.7300000000000004, 2, 2,
+ -0.30000000000000004 },
+ { 2.8799999999999999, 2, 2,
+ -0.19999999999999996 },
+ { 2.9700000000000002, 2, 2,
+ -0.099999999999999978 },
+ { 3.0000000000000000, 2, 2,
+ 0.0000000000000000 },
+ { 2.9700000000000002, 2, 2,
+ 0.10000000000000009 },
+ { 2.8799999999999999, 2, 2,
+ 0.19999999999999996 },
+ { 2.7300000000000004, 2, 2,
+ 0.30000000000000004 },
+ { 2.5200000000000000, 2, 2,
+ 0.39999999999999991 },
+ { 2.2500000000000000, 2, 2,
+ 0.50000000000000000 },
+ { 1.9199999999999997, 2, 2,
+ 0.60000000000000009 },
+ { 1.5300000000000005, 2, 2,
+ 0.69999999999999996 },
+ { 1.0799999999999996, 2, 2,
+ 0.80000000000000004 },
+ { 0.57000000000000040, 2, 2,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 2, 2,
+ 1.0000000000000000 },
+};
+const double toler006 = 2.5000000000000020e-13;
+
+// Test data for l=5, m=0.
+// max(|f - f_GSL|): 2.0122792321330962e-16
+// max(|f - f_GSL| / |f_GSL|): 4.8911475274404243e-15
+const testcase_assoc_legendre<double>
+data007[21] =
+{
+ { -1.0000000000000000, 5, 0,
+ -1.0000000000000000 },
+ { 0.041141250000000087, 5, 0,
+ -0.90000000000000002 },
+ { 0.39951999999999993, 5, 0,
+ -0.80000000000000004 },
+ { 0.36519874999999991, 5, 0,
+ -0.69999999999999996 },
+ { 0.15263999999999994, 5, 0,
+ -0.59999999999999998 },
+ { -0.089843750000000000, 5, 0,
+ -0.50000000000000000 },
+ { -0.27063999999999994, 5, 0,
+ -0.40000000000000002 },
+ { -0.34538625000000001, 5, 0,
+ -0.30000000000000004 },
+ { -0.30751999999999996, 5, 0,
+ -0.19999999999999996 },
+ { -0.17882874999999995, 5, 0,
+ -0.099999999999999978 },
+ { 0.0000000000000000, 5, 0,
+ 0.0000000000000000 },
+ { 0.17882875000000015, 5, 0,
+ 0.10000000000000009 },
+ { 0.30751999999999996, 5, 0,
+ 0.19999999999999996 },
+ { 0.34538625000000001, 5, 0,
+ 0.30000000000000004 },
+ { 0.27064000000000010, 5, 0,
+ 0.39999999999999991 },
+ { 0.089843750000000000, 5, 0,
+ 0.50000000000000000 },
+ { -0.15264000000000016, 5, 0,
+ 0.60000000000000009 },
+ { -0.36519874999999991, 5, 0,
+ 0.69999999999999996 },
+ { -0.39951999999999993, 5, 0,
+ 0.80000000000000004 },
+ { -0.041141250000000261, 5, 0,
+ 0.89999999999999991 },
+ { 1.0000000000000000, 5, 0,
+ 1.0000000000000000 },
+};
+const double toler007 = 2.5000000000000020e-13;
+
+// Test data for l=5, m=1.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data008[21] =
+{
+ { 0.0000000000000000, 5, 1,
+ -1.0000000000000000 },
+ { -2.8099369608350981, 5, 1,
+ -0.90000000000000002 },
+ { -0.72180000000000089, 5, 1,
+ -0.80000000000000004 },
+ { 1.0951826834447254, 5, 1,
+ -0.69999999999999996 },
+ { 1.9775999999999998, 5, 1,
+ -0.59999999999999998 },
+ { 1.9282596881137892, 5, 1,
+ -0.50000000000000000 },
+ { 1.2070504380513685, 5, 1,
+ -0.40000000000000002 },
+ { 0.16079837663884422, 5, 1,
+ -0.30000000000000004 },
+ { -0.87005875663658538, 5, 1,
+ -0.19999999999999996 },
+ { -1.6083350053680323, 5, 1,
+ -0.099999999999999978 },
+ { -1.8750000000000000, 5, 1,
+ 0.0000000000000000 },
+ { -1.6083350053680314, 5, 1,
+ 0.10000000000000009 },
+ { -0.87005875663658538, 5, 1,
+ 0.19999999999999996 },
+ { 0.16079837663884422, 5, 1,
+ 0.30000000000000004 },
+ { 1.2070504380513671, 5, 1,
+ 0.39999999999999991 },
+ { 1.9282596881137892, 5, 1,
+ 0.50000000000000000 },
+ { 1.9775999999999998, 5, 1,
+ 0.60000000000000009 },
+ { 1.0951826834447254, 5, 1,
+ 0.69999999999999996 },
+ { -0.72180000000000089, 5, 1,
+ 0.80000000000000004 },
+ { -2.8099369608350973, 5, 1,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 5, 1,
+ 1.0000000000000000 },
+};
+const double toler008 = 2.5000000000000020e-13;
+
+// Test data for l=5, m=2.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data009[21] =
+{
+ { 0.0000000000000000, 5, 2,
+ -1.0000000000000000 },
+ { -12.837825000000000, 5, 2,
+ -0.90000000000000002 },
+ { -13.910400000000001, 5, 2,
+ -0.80000000000000004 },
+ { -8.8089749999999967, 5, 2,
+ -0.69999999999999996 },
+ { -1.6128000000000000, 5, 2,
+ -0.59999999999999998 },
+ { 4.9218750000000000, 5, 2,
+ -0.50000000000000000 },
+ { 9.1728000000000005, 5, 2,
+ -0.40000000000000002 },
+ { 10.462725000000001, 5, 2,
+ -0.30000000000000004 },
+ { 8.8703999999999983, 5, 2,
+ -0.19999999999999996 },
+ { 5.0415749999999990, 5, 2,
+ -0.099999999999999978 },
+ { -0.0000000000000000, 5, 2,
+ 0.0000000000000000 },
+ { -5.0415750000000044, 5, 2,
+ 0.10000000000000009 },
+ { -8.8703999999999983, 5, 2,
+ 0.19999999999999996 },
+ { -10.462725000000001, 5, 2,
+ 0.30000000000000004 },
+ { -9.1728000000000005, 5, 2,
+ 0.39999999999999991 },
+ { -4.9218750000000000, 5, 2,
+ 0.50000000000000000 },
+ { 1.6128000000000047, 5, 2,
+ 0.60000000000000009 },
+ { 8.8089749999999967, 5, 2,
+ 0.69999999999999996 },
+ { 13.910400000000001, 5, 2,
+ 0.80000000000000004 },
+ { 12.837825000000004, 5, 2,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 5, 2,
+ 1.0000000000000000 },
+};
+const double toler009 = 2.5000000000000020e-13;
+
+// Test data for l=5, m=5.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data010[21] =
+{
+ { -0.0000000000000000, 5, 5,
+ -1.0000000000000000 },
+ { -14.870165800941818, 5, 5,
+ -0.90000000000000002 },
+ { -73.483199999999925, 5, 5,
+ -0.80000000000000004 },
+ { -175.53238298794764, 5, 5,
+ -0.69999999999999996 },
+ { -309.65760000000006, 5, 5,
+ -0.59999999999999998 },
+ { -460.34662869916559, 5, 5,
+ -0.50000000000000000 },
+ { -611.12496255819883, 5, 5,
+ -0.40000000000000002 },
+ { -746.50941479523760, 5, 5,
+ -0.30000000000000004 },
+ { -853.31600434671316, 5, 5,
+ -0.19999999999999996 },
+ { -921.55189181724734, 5, 5,
+ -0.099999999999999978 },
+ { -945.00000000000000, 5, 5,
+ 0.0000000000000000 },
+ { -921.55189181724734, 5, 5,
+ 0.10000000000000009 },
+ { -853.31600434671316, 5, 5,
+ 0.19999999999999996 },
+ { -746.50941479523760, 5, 5,
+ 0.30000000000000004 },
+ { -611.12496255819883, 5, 5,
+ 0.39999999999999991 },
+ { -460.34662869916559, 5, 5,
+ 0.50000000000000000 },
+ { -309.65759999999989, 5, 5,
+ 0.60000000000000009 },
+ { -175.53238298794764, 5, 5,
+ 0.69999999999999996 },
+ { -73.483199999999925, 5, 5,
+ 0.80000000000000004 },
+ { -14.870165800941855, 5, 5,
+ 0.89999999999999991 },
+ { -0.0000000000000000, 5, 5,
+ 1.0000000000000000 },
+};
+const double toler010 = 2.5000000000000020e-13;
+
+// Test data for l=10, m=0.
+// max(|f - f_GSL|): 2.7755575615628914e-16
+// max(|f - f_GSL| / |f_GSL|): 1.0547610802636413e-15
+const testcase_assoc_legendre<double>
+data011[21] =
+{
+ { 1.0000000000000000, 10, 0,
+ -1.0000000000000000 },
+ { -0.26314561785585960, 10, 0,
+ -0.90000000000000002 },
+ { 0.30052979560000004, 10, 0,
+ -0.80000000000000004 },
+ { 0.085805795531640333, 10, 0,
+ -0.69999999999999996 },
+ { -0.24366274560000001, 10, 0,
+ -0.59999999999999998 },
+ { -0.18822860717773438, 10, 0,
+ -0.50000000000000000 },
+ { 0.096839064399999925, 10, 0,
+ -0.40000000000000002 },
+ { 0.25147634951601561, 10, 0,
+ -0.30000000000000004 },
+ { 0.12907202559999983, 10, 0,
+ -0.19999999999999996 },
+ { -0.12212499738710943, 10, 0,
+ -0.099999999999999978 },
+ { -0.24609375000000000, 10, 0,
+ 0.0000000000000000 },
+ { -0.12212499738710922, 10, 0,
+ 0.10000000000000009 },
+ { 0.12907202559999983, 10, 0,
+ 0.19999999999999996 },
+ { 0.25147634951601561, 10, 0,
+ 0.30000000000000004 },
+ { 0.096839064400000258, 10, 0,
+ 0.39999999999999991 },
+ { -0.18822860717773438, 10, 0,
+ 0.50000000000000000 },
+ { -0.24366274559999984, 10, 0,
+ 0.60000000000000009 },
+ { 0.085805795531640333, 10, 0,
+ 0.69999999999999996 },
+ { 0.30052979560000004, 10, 0,
+ 0.80000000000000004 },
+ { -0.26314561785585899, 10, 0,
+ 0.89999999999999991 },
+ { 1.0000000000000000, 10, 0,
+ 1.0000000000000000 },
+};
+const double toler011 = 2.5000000000000020e-13;
+
+// Test data for l=10, m=1.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data012[21] =
+{
+ { -0.0000000000000000, 10, 1,
+ -1.0000000000000000 },
+ { -3.0438748781479039, 10, 1,
+ -0.90000000000000002 },
+ { -0.87614260800000254, 10, 1,
+ -0.80000000000000004 },
+ { 2.9685359952934527, 10, 1,
+ -0.69999999999999996 },
+ { 1.2511825919999997, 10, 1,
+ -0.59999999999999998 },
+ { -2.0066877394361260, 10, 1,
+ -0.50000000000000000 },
+ { -2.4822196173476661, 10, 1,
+ -0.40000000000000002 },
+ { -0.12309508907433910, 10, 1,
+ -0.30000000000000004 },
+ { 2.2468221751958413, 10, 1,
+ -0.19999999999999996 },
+ { 2.2472659777983512, 10, 1,
+ -0.099999999999999978 },
+ { -0.0000000000000000, 10, 1,
+ 0.0000000000000000 },
+ { -2.2472659777983535, 10, 1,
+ 0.10000000000000009 },
+ { -2.2468221751958413, 10, 1,
+ 0.19999999999999996 },
+ { 0.12309508907433910, 10, 1,
+ 0.30000000000000004 },
+ { 2.4822196173476647, 10, 1,
+ 0.39999999999999991 },
+ { 2.0066877394361260, 10, 1,
+ 0.50000000000000000 },
+ { -1.2511825920000037, 10, 1,
+ 0.60000000000000009 },
+ { -2.9685359952934527, 10, 1,
+ 0.69999999999999996 },
+ { 0.87614260800000254, 10, 1,
+ 0.80000000000000004 },
+ { 3.0438748781479115, 10, 1,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 10, 1,
+ 1.0000000000000000 },
+};
+const double toler012 = 2.5000000000000020e-13;
+
+// Test data for l=10, m=2.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data013[21] =
+{
+ { 0.0000000000000000, 10, 2,
+ -1.0000000000000000 },
+ { 16.376387762496137, 10, 2,
+ -0.90000000000000002 },
+ { -35.394657804000005, 10, 2,
+ -0.80000000000000004 },
+ { -3.6191429423788648, 10, 2,
+ -0.69999999999999996 },
+ { 28.679675904000014, 10, 2,
+ -0.59999999999999998 },
+ { 18.388023376464844, 10, 2,
+ -0.50000000000000000 },
+ { -12.818955995999994, 10, 2,
+ -0.40000000000000002 },
+ { -27.739821675972664, 10, 2,
+ -0.30000000000000004 },
+ { -13.280661503999987, 10, 2,
+ -0.19999999999999996 },
+ { 13.885467170308601, 10, 2,
+ -0.099999999999999978 },
+ { 27.070312500000000, 10, 2,
+ 0.0000000000000000 },
+ { 13.885467170308573, 10, 2,
+ 0.10000000000000009 },
+ { -13.280661503999987, 10, 2,
+ 0.19999999999999996 },
+ { -27.739821675972664, 10, 2,
+ 0.30000000000000004 },
+ { -12.818955996000021, 10, 2,
+ 0.39999999999999991 },
+ { 18.388023376464844, 10, 2,
+ 0.50000000000000000 },
+ { 28.679675904000000, 10, 2,
+ 0.60000000000000009 },
+ { -3.6191429423788648, 10, 2,
+ 0.69999999999999996 },
+ { -35.394657804000005, 10, 2,
+ 0.80000000000000004 },
+ { 16.376387762496009, 10, 2,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 10, 2,
+ 1.0000000000000000 },
+};
+const double toler013 = 2.5000000000000020e-13;
+
+// Test data for l=10, m=5.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data014[21] =
+{
+ { 0.0000000000000000, 10, 5,
+ -1.0000000000000000 },
+ { 21343.618518164680, 10, 5,
+ -0.90000000000000002 },
+ { 40457.016407807983, 10, 5,
+ -0.80000000000000004 },
+ { 20321.279317331315, 10, 5,
+ -0.69999999999999996 },
+ { -14410.820616192004, 10, 5,
+ -0.59999999999999998 },
+ { -30086.169706116176, 10, 5,
+ -0.50000000000000000 },
+ { -17177.549337582859, 10, 5,
+ -0.40000000000000002 },
+ { 9272.5119495412364, 10, 5,
+ -0.30000000000000004 },
+ { 26591.511184414714, 10, 5,
+ -0.19999999999999996 },
+ { 21961.951238504211, 10, 5,
+ -0.099999999999999978 },
+ { -0.0000000000000000, 10, 5,
+ 0.0000000000000000 },
+ { -21961.951238504229, 10, 5,
+ 0.10000000000000009 },
+ { -26591.511184414714, 10, 5,
+ 0.19999999999999996 },
+ { -9272.5119495412364, 10, 5,
+ 0.30000000000000004 },
+ { 17177.549337582834, 10, 5,
+ 0.39999999999999991 },
+ { 30086.169706116176, 10, 5,
+ 0.50000000000000000 },
+ { 14410.820616191972, 10, 5,
+ 0.60000000000000009 },
+ { -20321.279317331315, 10, 5,
+ 0.69999999999999996 },
+ { -40457.016407807983, 10, 5,
+ 0.80000000000000004 },
+ { -21343.618518164694, 10, 5,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 10, 5,
+ 1.0000000000000000 },
+};
+const double toler014 = 2.5000000000000020e-13;
+
+// Test data for l=10, m=10.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data015[21] =
+{
+ { 0.0000000000000000, 10, 10,
+ -1.0000000000000000 },
+ { 162117.40078784220, 10, 10,
+ -0.90000000000000002 },
+ { 3958896.3481267113, 10, 10,
+ -0.80000000000000004 },
+ { 22589806.343887307, 10, 10,
+ -0.69999999999999996 },
+ { 70300999.121633321, 10, 10,
+ -0.59999999999999998 },
+ { 155370278.54003900, 10, 10,
+ -0.50000000000000000 },
+ { 273815518.20150518, 10, 10,
+ -0.40000000000000002 },
+ { 408571989.13158917, 10, 10,
+ -0.30000000000000004 },
+ { 533848212.07990247, 10, 10,
+ -0.19999999999999996 },
+ { 622640835.70523083, 10, 10,
+ -0.099999999999999978 },
+ { 654729075.00000000, 10, 10,
+ 0.0000000000000000 },
+ { 622640835.70523083, 10, 10,
+ 0.10000000000000009 },
+ { 533848212.07990247, 10, 10,
+ 0.19999999999999996 },
+ { 408571989.13158917, 10, 10,
+ 0.30000000000000004 },
+ { 273815518.20150518, 10, 10,
+ 0.39999999999999991 },
+ { 155370278.54003900, 10, 10,
+ 0.50000000000000000 },
+ { 70300999.121633217, 10, 10,
+ 0.60000000000000009 },
+ { 22589806.343887307, 10, 10,
+ 0.69999999999999996 },
+ { 3958896.3481267113, 10, 10,
+ 0.80000000000000004 },
+ { 162117.40078784304, 10, 10,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 10, 10,
+ 1.0000000000000000 },
+};
+const double toler015 = 2.5000000000000020e-13;
+
+// Test data for l=20, m=0.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 2.2307336678138069e-15
+const testcase_assoc_legendre<double>
+data016[21] =
+{
+ { 1.0000000000000000, 20, 0,
+ -1.0000000000000000 },
+ { -0.14930823530984835, 20, 0,
+ -0.90000000000000002 },
+ { 0.22420460541741347, 20, 0,
+ -0.80000000000000004 },
+ { -0.20457394463834172, 20, 0,
+ -0.69999999999999996 },
+ { 0.15916752910098109, 20, 0,
+ -0.59999999999999998 },
+ { -0.048358381067373557, 20, 0,
+ -0.50000000000000000 },
+ { -0.10159261558628156, 20, 0,
+ -0.40000000000000002 },
+ { 0.18028715947998042, 20, 0,
+ -0.30000000000000004 },
+ { -0.098042194344594796, 20, 0,
+ -0.19999999999999996 },
+ { -0.082077130944527663, 20, 0,
+ -0.099999999999999978 },
+ { 0.17619705200195312, 20, 0,
+ 0.0000000000000000 },
+ { -0.082077130944528023, 20, 0,
+ 0.10000000000000009 },
+ { -0.098042194344594796, 20, 0,
+ 0.19999999999999996 },
+ { 0.18028715947998042, 20, 0,
+ 0.30000000000000004 },
+ { -0.10159261558628112, 20, 0,
+ 0.39999999999999991 },
+ { -0.048358381067373557, 20, 0,
+ 0.50000000000000000 },
+ { 0.15916752910098075, 20, 0,
+ 0.60000000000000009 },
+ { -0.20457394463834172, 20, 0,
+ 0.69999999999999996 },
+ { 0.22420460541741347, 20, 0,
+ 0.80000000000000004 },
+ { -0.14930823530984924, 20, 0,
+ 0.89999999999999991 },
+ { 1.0000000000000000, 20, 0,
+ 1.0000000000000000 },
+};
+const double toler016 = 2.5000000000000020e-13;
+
+// Test data for l=20, m=1.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data017[21] =
+{
+ { 0.0000000000000000, 20, 1,
+ -1.0000000000000000 },
+ { 4.3838334818220499, 20, 1,
+ -0.90000000000000002 },
+ { -0.63138296146340844, 20, 1,
+ -0.80000000000000004 },
+ { 0.72274871413391395, 20, 1,
+ -0.69999999999999996 },
+ { -2.3203528743824910, 20, 1,
+ -0.59999999999999998 },
+ { 3.7399919228791405, 20, 1,
+ -0.50000000000000000 },
+ { -3.1692202279270041, 20, 1,
+ -0.40000000000000002 },
+ { 0.15804468835344135, 20, 1,
+ -0.30000000000000004 },
+ { 3.0366182393271171, 20, 1,
+ -0.19999999999999996 },
+ { -3.2115523815580209, 20, 1,
+ -0.099999999999999978 },
+ { 0.0000000000000000, 20, 1,
+ 0.0000000000000000 },
+ { 3.2115523815580169, 20, 1,
+ 0.10000000000000009 },
+ { -3.0366182393271171, 20, 1,
+ 0.19999999999999996 },
+ { -0.15804468835344135, 20, 1,
+ 0.30000000000000004 },
+ { 3.1692202279270085, 20, 1,
+ 0.39999999999999991 },
+ { -3.7399919228791405, 20, 1,
+ 0.50000000000000000 },
+ { 2.3203528743824995, 20, 1,
+ 0.60000000000000009 },
+ { -0.72274871413391395, 20, 1,
+ 0.69999999999999996 },
+ { 0.63138296146340844, 20, 1,
+ 0.80000000000000004 },
+ { -4.3838334818220339, 20, 1,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 20, 1,
+ 1.0000000000000000 },
+};
+const double toler017 = 2.5000000000000020e-13;
+
+// Test data for l=20, m=2.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data018[21] =
+{
+ { 0.0000000000000000, 20, 2,
+ -1.0000000000000000 },
+ { 80.812425587310102, 20, 2,
+ -0.90000000000000002 },
+ { -95.849622172549374, 20, 2,
+ -0.80000000000000004 },
+ { 87.337927630325510, 20, 2,
+ -0.69999999999999996 },
+ { -70.330891533985834, 20, 2,
+ -0.59999999999999998 },
+ { 24.629090735179489, 20, 2,
+ -0.50000000000000000 },
+ { 39.902576338912425, 20, 2,
+ -0.40000000000000002 },
+ { -75.621201471396603, 20, 2,
+ -0.30000000000000004 },
+ { 42.417415829726494, 20, 2,
+ -0.19999999999999996 },
+ { 33.826848678871293, 20, 2,
+ -0.099999999999999978 },
+ { -74.002761840820312, 20, 2,
+ 0.0000000000000000 },
+ { 33.826848678871464, 20, 2,
+ 0.10000000000000009 },
+ { 42.417415829726494, 20, 2,
+ 0.19999999999999996 },
+ { -75.621201471396603, 20, 2,
+ 0.30000000000000004 },
+ { 39.902576338912247, 20, 2,
+ 0.39999999999999991 },
+ { 24.629090735179489, 20, 2,
+ 0.50000000000000000 },
+ { -70.330891533985721, 20, 2,
+ 0.60000000000000009 },
+ { 87.337927630325510, 20, 2,
+ 0.69999999999999996 },
+ { -95.849622172549374, 20, 2,
+ 0.80000000000000004 },
+ { 80.812425587310500, 20, 2,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 20, 2,
+ 1.0000000000000000 },
+};
+const double toler018 = 2.5000000000000020e-13;
+
+// Test data for l=20, m=5.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data019[21] =
+{
+ { -0.0000000000000000, 20, 5,
+ -1.0000000000000000 },
+ { -315702.32715134218, 20, 5,
+ -0.90000000000000002 },
+ { 503060.91484852589, 20, 5,
+ -0.80000000000000004 },
+ { -298127.28360361955, 20, 5,
+ -0.69999999999999996 },
+ { -114444.61447464029, 20, 5,
+ -0.59999999999999998 },
+ { 543428.40914592845, 20, 5,
+ -0.50000000000000000 },
+ { -613842.07728185470, 20, 5,
+ -0.40000000000000002 },
+ { 143765.42411270936, 20, 5,
+ -0.30000000000000004 },
+ { 472600.45321372285, 20, 5,
+ -0.19999999999999996 },
+ { -563861.76771496492, 20, 5,
+ -0.099999999999999978 },
+ { 0.0000000000000000, 20, 5,
+ 0.0000000000000000 },
+ { 563861.76771496458, 20, 5,
+ 0.10000000000000009 },
+ { -472600.45321372285, 20, 5,
+ 0.19999999999999996 },
+ { -143765.42411270936, 20, 5,
+ 0.30000000000000004 },
+ { 613842.07728185481, 20, 5,
+ 0.39999999999999991 },
+ { -543428.40914592845, 20, 5,
+ 0.50000000000000000 },
+ { 114444.61447464178, 20, 5,
+ 0.60000000000000009 },
+ { 298127.28360361955, 20, 5,
+ 0.69999999999999996 },
+ { -503060.91484852589, 20, 5,
+ 0.80000000000000004 },
+ { 315702.32715134491, 20, 5,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 20, 5,
+ 1.0000000000000000 },
+};
+const double toler019 = 2.5000000000000020e-13;
+
+// Test data for l=20, m=10.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data020[21] =
+{
+ { -0.0000000000000000, 20, 10,
+ -1.0000000000000000 },
+ { 990017476694.99084, 20, 10,
+ -0.90000000000000002 },
+ { 2392757933281.0498, 20, 10,
+ -0.80000000000000004 },
+ { -1548364524949.5808, 20, 10,
+ -0.69999999999999996 },
+ { -424471915195.05627, 20, 10,
+ -0.59999999999999998 },
+ { 1744502295946.2073, 20, 10,
+ -0.50000000000000000 },
+ { -899973487310.55212, 20, 10,
+ -0.40000000000000002 },
+ { -1092420454297.7161, 20, 10,
+ -0.30000000000000004 },
+ { 1466609267659.8816, 20, 10,
+ -0.19999999999999996 },
+ { 356041756390.71674, 20, 10,
+ -0.099999999999999978 },
+ { -1612052956674.3164, 20, 10,
+ 0.0000000000000000 },
+ { 356041756390.71985, 20, 10,
+ 0.10000000000000009 },
+ { 1466609267659.8816, 20, 10,
+ 0.19999999999999996 },
+ { -1092420454297.7161, 20, 10,
+ 0.30000000000000004 },
+ { -899973487310.55530, 20, 10,
+ 0.39999999999999991 },
+ { 1744502295946.2073, 20, 10,
+ 0.50000000000000000 },
+ { -424471915195.05896, 20, 10,
+ 0.60000000000000009 },
+ { -1548364524949.5808, 20, 10,
+ 0.69999999999999996 },
+ { 2392757933281.0498, 20, 10,
+ 0.80000000000000004 },
+ { 990017476694.99316, 20, 10,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 20, 10,
+ 1.0000000000000000 },
+};
+const double toler020 = 2.5000000000000020e-13;
+
+// Test data for l=20, m=20.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data021[21] =
+{
+ { 0.0000000000000000, 20, 20,
+ -1.0000000000000000 },
+ { 19609049712023808., 20, 20,
+ -0.90000000000000002 },
+ { 1.1693527616833221e+19, 20, 20,
+ -0.80000000000000004 },
+ { 3.8073455880620691e+20, 20, 20,
+ -0.69999999999999996 },
+ { 3.6874002249007927e+21, 20, 20,
+ -0.59999999999999998 },
+ { 1.8010806978179592e+22, 20, 20,
+ -0.50000000000000000 },
+ { 5.5938832584012466e+22, 20, 20,
+ -0.40000000000000002 },
+ { 1.2454734132297811e+23, 20, 20,
+ -0.30000000000000004 },
+ { 2.1263407800797497e+23, 20, 20,
+ -0.19999999999999996 },
+ { 2.8924941146976873e+23, 20, 20,
+ -0.099999999999999978 },
+ { 3.1983098677287775e+23, 20, 20,
+ 0.0000000000000000 },
+ { 2.8924941146976873e+23, 20, 20,
+ 0.10000000000000009 },
+ { 2.1263407800797497e+23, 20, 20,
+ 0.19999999999999996 },
+ { 1.2454734132297811e+23, 20, 20,
+ 0.30000000000000004 },
+ { 5.5938832584012466e+22, 20, 20,
+ 0.39999999999999991 },
+ { 1.8010806978179592e+22, 20, 20,
+ 0.50000000000000000 },
+ { 3.6874002249007807e+21, 20, 20,
+ 0.60000000000000009 },
+ { 3.8073455880620691e+20, 20, 20,
+ 0.69999999999999996 },
+ { 1.1693527616833221e+19, 20, 20,
+ 0.80000000000000004 },
+ { 19609049712024020., 20, 20,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 20, 20,
+ 1.0000000000000000 },
+};
+const double toler021 = 2.5000000000000020e-13;
+
+// Test data for l=50, m=0.
+// max(|f - f_GSL|): 3.6082248300317588e-16
+// max(|f - f_GSL| / |f_GSL|): 2.1700196856209138e-15
+const testcase_assoc_legendre<double>
+data022[21] =
+{
+ { 1.0000000000000000, 50, 0,
+ -1.0000000000000000 },
+ { -0.17003765994383671, 50, 0,
+ -0.90000000000000002 },
+ { 0.13879737345093113, 50, 0,
+ -0.80000000000000004 },
+ { -0.014572731645892852, 50, 0,
+ -0.69999999999999996 },
+ { -0.058860798844002096, 50, 0,
+ -0.59999999999999998 },
+ { -0.031059099239609811, 50, 0,
+ -0.50000000000000000 },
+ { 0.041569033381825375, 50, 0,
+ -0.40000000000000002 },
+ { 0.10911051574714797, 50, 0,
+ -0.30000000000000004 },
+ { 0.083432272204197494, 50, 0,
+ -0.19999999999999996 },
+ { -0.038205812661313600, 50, 0,
+ -0.099999999999999978 },
+ { -0.11227517265921705, 50, 0,
+ 0.0000000000000000 },
+ { -0.038205812661314155, 50, 0,
+ 0.10000000000000009 },
+ { 0.083432272204197494, 50, 0,
+ 0.19999999999999996 },
+ { 0.10911051574714797, 50, 0,
+ 0.30000000000000004 },
+ { 0.041569033381824674, 50, 0,
+ 0.39999999999999991 },
+ { -0.031059099239609811, 50, 0,
+ 0.50000000000000000 },
+ { -0.058860798844001430, 50, 0,
+ 0.60000000000000009 },
+ { -0.014572731645892852, 50, 0,
+ 0.69999999999999996 },
+ { 0.13879737345093113, 50, 0,
+ 0.80000000000000004 },
+ { -0.17003765994383657, 50, 0,
+ 0.89999999999999991 },
+ { 1.0000000000000000, 50, 0,
+ 1.0000000000000000 },
+};
+const double toler022 = 2.5000000000000020e-13;
+
+// Test data for l=50, m=1.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data023[21] =
+{
+ { 0.0000000000000000, 50, 1,
+ -1.0000000000000000 },
+ { -0.13424149984449490, 50, 1,
+ -0.90000000000000002 },
+ { 2.2011219672413018, 50, 1,
+ -0.80000000000000004 },
+ { 6.6622414993232004, 50, 1,
+ -0.69999999999999996 },
+ { 5.5772846936919249, 50, 1,
+ -0.59999999999999998 },
+ { 5.8787148815607608, 50, 1,
+ -0.50000000000000000 },
+ { 5.5473459458633974, 50, 1,
+ -0.40000000000000002 },
+ { 1.8444956647619930, 50, 1,
+ -0.30000000000000004 },
+ { -3.8722014306642127, 50, 1,
+ -0.19999999999999996 },
+ { -5.3488751322285628, 50, 1,
+ -0.099999999999999978 },
+ { -0.0000000000000000, 50, 1,
+ 0.0000000000000000 },
+ { 5.3488751322285522, 50, 1,
+ 0.10000000000000009 },
+ { 3.8722014306642127, 50, 1,
+ 0.19999999999999996 },
+ { -1.8444956647619930, 50, 1,
+ 0.30000000000000004 },
+ { -5.5473459458634080, 50, 1,
+ 0.39999999999999991 },
+ { -5.8787148815607608, 50, 1,
+ 0.50000000000000000 },
+ { -5.5772846936919453, 50, 1,
+ 0.60000000000000009 },
+ { -6.6622414993232004, 50, 1,
+ 0.69999999999999996 },
+ { -2.2011219672413018, 50, 1,
+ 0.80000000000000004 },
+ { 0.13424149984462019, 50, 1,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 50, 1,
+ 1.0000000000000000 },
+};
+const double toler023 = 2.5000000000000020e-13;
+
+// Test data for l=50, m=2.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data024[21] =
+{
+ { 0.0000000000000000, 50, 2,
+ -1.0000000000000000 },
+ { 433.04168483713511, 50, 2,
+ -0.90000000000000002 },
+ { -348.06364372056424, 50, 2,
+ -0.80000000000000004 },
+ { 50.221071418108444, 50, 2,
+ -0.69999999999999996 },
+ { 158.46096409274352, 50, 2,
+ -0.59999999999999998 },
+ { 85.988858299721457, 50, 2,
+ -0.50000000000000000 },
+ { -101.15891460879270, 50, 2,
+ -0.40000000000000002 },
+ { -277.07168105316617, 50, 2,
+ -0.30000000000000004 },
+ { -214.33311373510401, 50, 2,
+ -0.19999999999999996 },
+ { 96.349657930951665, 50, 2,
+ -0.099999999999999978 },
+ { 286.30169028100346, 50, 2,
+ 0.0000000000000000 },
+ { 96.349657930953242, 50, 2,
+ 0.10000000000000009 },
+ { -214.33311373510401, 50, 2,
+ 0.19999999999999996 },
+ { -277.07168105316617, 50, 2,
+ 0.30000000000000004 },
+ { -101.15891460879088, 50, 2,
+ 0.39999999999999991 },
+ { 85.988858299721457, 50, 2,
+ 0.50000000000000000 },
+ { 158.46096409274153, 50, 2,
+ 0.60000000000000009 },
+ { 50.221071418108444, 50, 2,
+ 0.69999999999999996 },
+ { -348.06364372056424, 50, 2,
+ 0.80000000000000004 },
+ { 433.04168483713374, 50, 2,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 50, 2,
+ 1.0000000000000000 },
+};
+const double toler024 = 2.5000000000000020e-13;
+
+// Test data for l=50, m=5.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data025[21] =
+{
+ { -0.0000000000000000, 50, 5,
+ -1.0000000000000000 },
+ { -27340473.952132829, 50, 5,
+ -0.90000000000000002 },
+ { 27753716.768532373, 50, 5,
+ -0.80000000000000004 },
+ { 40808153.913493633, 50, 5,
+ -0.69999999999999996 },
+ { 32071189.035790090, 50, 5,
+ -0.59999999999999998 },
+ { 36265736.218529105, 50, 5,
+ -0.50000000000000000 },
+ { 37089596.700204901, 50, 5,
+ -0.40000000000000002 },
+ { 14562029.629244499, 50, 5,
+ -0.30000000000000004 },
+ { -23686895.217517190, 50, 5,
+ -0.19999999999999996 },
+ { -34878992.965676002, 50, 5,
+ -0.099999999999999978 },
+ { -0.0000000000000000, 50, 5,
+ 0.0000000000000000 },
+ { 34878992.965675958, 50, 5,
+ 0.10000000000000009 },
+ { 23686895.217517190, 50, 5,
+ 0.19999999999999996 },
+ { -14562029.629244499, 50, 5,
+ 0.30000000000000004 },
+ { -37089596.700204931, 50, 5,
+ 0.39999999999999991 },
+ { -36265736.218529105, 50, 5,
+ 0.50000000000000000 },
+ { -32071189.035790242, 50, 5,
+ 0.60000000000000009 },
+ { -40808153.913493633, 50, 5,
+ 0.69999999999999996 },
+ { -27753716.768532373, 50, 5,
+ 0.80000000000000004 },
+ { 27340473.952133428, 50, 5,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 50, 5,
+ 1.0000000000000000 },
+};
+const double toler025 = 2.5000000000000020e-13;
+
+// Test data for l=50, m=10.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data026[21] =
+{
+ { -0.0000000000000000, 50, 10,
+ -1.0000000000000000 },
+ { -8994661710093155.0, 50, 10,
+ -0.90000000000000002 },
+ { 932311375306569.62, 50, 10,
+ -0.80000000000000004 },
+ { 12153535011507012., 50, 10,
+ -0.69999999999999996 },
+ { 12176690755542240., 50, 10,
+ -0.59999999999999998 },
+ { 9180035388465754.0, 50, 10,
+ -0.50000000000000000 },
+ { 889201701866910.38, 50, 10,
+ -0.40000000000000002 },
+ { -9451384032851604.0, 50, 10,
+ -0.30000000000000004 },
+ { -9926439446673564.0, 50, 10,
+ -0.19999999999999996 },
+ { 2794368162749970.5, 50, 10,
+ -0.099999999999999978 },
+ { 11452238249246346., 50, 10,
+ 0.0000000000000000 },
+ { 2794368162750031.0, 50, 10,
+ 0.10000000000000009 },
+ { -9926439446673564.0, 50, 10,
+ 0.19999999999999996 },
+ { -9451384032851604.0, 50, 10,
+ 0.30000000000000004 },
+ { 889201701866984.00, 50, 10,
+ 0.39999999999999991 },
+ { 9180035388465754.0, 50, 10,
+ 0.50000000000000000 },
+ { 12176690755542214., 50, 10,
+ 0.60000000000000009 },
+ { 12153535011507012., 50, 10,
+ 0.69999999999999996 },
+ { 932311375306569.62, 50, 10,
+ 0.80000000000000004 },
+ { -8994661710093362.0, 50, 10,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 50, 10,
+ 1.0000000000000000 },
+};
+const double toler026 = 2.5000000000000020e-13;
+
+// Test data for l=50, m=20.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data027[21] =
+{
+ { 0.0000000000000000, 50, 20,
+ -1.0000000000000000 },
+ { 1.6630925158645501e+33, 50, 20,
+ -0.90000000000000002 },
+ { 1.0622676657892052e+33, 50, 20,
+ -0.80000000000000004 },
+ { 8.6022521164717112e+32, 50, 20,
+ -0.69999999999999996 },
+ { 4.0860128756808466e+32, 50, 20,
+ -0.59999999999999998 },
+ { -4.0169860814274459e+32, 50, 20,
+ -0.50000000000000000 },
+ { -8.2324325279774037e+32, 50, 20,
+ -0.40000000000000002 },
+ { -4.0054067236243731e+31, 50, 20,
+ -0.30000000000000004 },
+ { 7.9309266056434309e+32, 50, 20,
+ -0.19999999999999996 },
+ { 5.4151358290898977e+31, 50, 20,
+ -0.099999999999999978 },
+ { -7.8735935697332210e+32, 50, 20,
+ 0.0000000000000000 },
+ { 5.4151358290894924e+31, 50, 20,
+ 0.10000000000000009 },
+ { 7.9309266056434309e+32, 50, 20,
+ 0.19999999999999996 },
+ { -4.0054067236243731e+31, 50, 20,
+ 0.30000000000000004 },
+ { -8.2324325279773994e+32, 50, 20,
+ 0.39999999999999991 },
+ { -4.0169860814274459e+32, 50, 20,
+ 0.50000000000000000 },
+ { 4.0860128756807846e+32, 50, 20,
+ 0.60000000000000009 },
+ { 8.6022521164717112e+32, 50, 20,
+ 0.69999999999999996 },
+ { 1.0622676657892052e+33, 50, 20,
+ 0.80000000000000004 },
+ { 1.6630925158645483e+33, 50, 20,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 50, 20,
+ 1.0000000000000000 },
+};
+const double toler027 = 2.5000000000000020e-13;
+
+// Test data for l=50, m=50.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data028[21] =
+{
+ { 0.0000000000000000, 50, 50,
+ -1.0000000000000000 },
+ { 2.5366994974431341e+60, 50, 50,
+ -0.90000000000000002 },
+ { 2.2028834403101213e+67, 50, 50,
+ -0.80000000000000004 },
+ { 1.3325496559566651e+71, 50, 50,
+ -0.69999999999999996 },
+ { 3.8898096431781969e+73, 50, 50,
+ -0.59999999999999998 },
+ { 2.0509760257037188e+75, 50, 50,
+ -0.50000000000000000 },
+ { 3.4866724533443283e+76, 50, 50,
+ -0.40000000000000002 },
+ { 2.5790740224150207e+77, 50, 50,
+ -0.30000000000000004 },
+ { 9.8222237931680989e+77, 50, 50,
+ -0.19999999999999996 },
+ { 2.1198682190366617e+78, 50, 50,
+ -0.099999999999999978 },
+ { 2.7253921397507295e+78, 50, 50,
+ 0.0000000000000000 },
+ { 2.1198682190366617e+78, 50, 50,
+ 0.10000000000000009 },
+ { 9.8222237931680989e+77, 50, 50,
+ 0.19999999999999996 },
+ { 2.5790740224150207e+77, 50, 50,
+ 0.30000000000000004 },
+ { 3.4866724533443283e+76, 50, 50,
+ 0.39999999999999991 },
+ { 2.0509760257037188e+75, 50, 50,
+ 0.50000000000000000 },
+ { 3.8898096431781724e+73, 50, 50,
+ 0.60000000000000009 },
+ { 1.3325496559566651e+71, 50, 50,
+ 0.69999999999999996 },
+ { 2.2028834403101213e+67, 50, 50,
+ 0.80000000000000004 },
+ { 2.5366994974431990e+60, 50, 50,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 50, 50,
+ 1.0000000000000000 },
+};
+const double toler028 = 2.5000000000000020e-13;
+
+// Test data for l=100, m=0.
+// max(|f - f_GSL|): 3.4694469519536142e-16
+// max(|f - f_GSL| / |f_GSL|): 6.8214063779431592e-15
+const testcase_assoc_legendre<double>
+data029[21] =
+{
+ { 1.0000000000000000, 100, 0,
+ -1.0000000000000000 },
+ { 0.10226582055871893, 100, 0,
+ -0.90000000000000002 },
+ { 0.050861167913584228, 100, 0,
+ -0.80000000000000004 },
+ { -0.077132507199778641, 100, 0,
+ -0.69999999999999996 },
+ { -0.023747023905133141, 100, 0,
+ -0.59999999999999998 },
+ { -0.060518025961861198, 100, 0,
+ -0.50000000000000000 },
+ { -0.072258202125684470, 100, 0,
+ -0.40000000000000002 },
+ { 0.057127392202801566, 100, 0,
+ -0.30000000000000004 },
+ { 0.014681835355659706, 100, 0,
+ -0.19999999999999996 },
+ { -0.063895098434750205, 100, 0,
+ -0.099999999999999978 },
+ { 0.079589237387178727, 100, 0,
+ 0.0000000000000000 },
+ { -0.063895098434749761, 100, 0,
+ 0.10000000000000009 },
+ { 0.014681835355659706, 100, 0,
+ 0.19999999999999996 },
+ { 0.057127392202801566, 100, 0,
+ 0.30000000000000004 },
+ { -0.072258202125685025, 100, 0,
+ 0.39999999999999991 },
+ { -0.060518025961861198, 100, 0,
+ 0.50000000000000000 },
+ { -0.023747023905134217, 100, 0,
+ 0.60000000000000009 },
+ { -0.077132507199778641, 100, 0,
+ 0.69999999999999996 },
+ { 0.050861167913584228, 100, 0,
+ 0.80000000000000004 },
+ { 0.10226582055871711, 100, 0,
+ 0.89999999999999991 },
+ { 1.0000000000000000, 100, 0,
+ 1.0000000000000000 },
+};
+const double toler029 = 5.0000000000000039e-13;
+
+// Test data for l=100, m=1.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data030[21] =
+{
+ { -0.0000000000000000, 100, 1,
+ -1.0000000000000000 },
+ { 6.5200167187780345, 100, 1,
+ -0.90000000000000002 },
+ { 9.0065170007027486, 100, 1,
+ -0.80000000000000004 },
+ { -5.4690908541180976, 100, 1,
+ -0.69999999999999996 },
+ { -8.6275439170430790, 100, 1,
+ -0.59999999999999998 },
+ { -6.0909031663448454, 100, 1,
+ -0.50000000000000000 },
+ { 4.1160338699561212, 100, 1,
+ -0.40000000000000002 },
+ { 5.8491043010758013, 100, 1,
+ -0.30000000000000004 },
+ { -7.9435138723089826, 100, 1,
+ -0.19999999999999996 },
+ { 4.7996285823989355, 100, 1,
+ -0.099999999999999978 },
+ { 0.0000000000000000, 100, 1,
+ 0.0000000000000000 },
+ { -4.7996285823990101, 100, 1,
+ 0.10000000000000009 },
+ { 7.9435138723089826, 100, 1,
+ 0.19999999999999996 },
+ { -5.8491043010758013, 100, 1,
+ 0.30000000000000004 },
+ { -4.1160338699560395, 100, 1,
+ 0.39999999999999991 },
+ { 6.0909031663448454, 100, 1,
+ 0.50000000000000000 },
+ { 8.6275439170430470, 100, 1,
+ 0.60000000000000009 },
+ { 5.4690908541180976, 100, 1,
+ 0.69999999999999996 },
+ { -9.0065170007027486, 100, 1,
+ 0.80000000000000004 },
+ { -6.5200167187783542, 100, 1,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 100, 1,
+ 1.0000000000000000 },
+};
+const double toler030 = 2.5000000000000020e-13;
+
+// Test data for l=100, m=2.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data031[21] =
+{
+ { 0.0000000000000000, 100, 2,
+ -1.0000000000000000 },
+ { -1005.9604880761002, 100, 2,
+ -0.90000000000000002 },
+ { -489.68041725865947, 100, 2,
+ -0.80000000000000004 },
+ { 768.31676011669924, 100, 2,
+ -0.69999999999999996 },
+ { 226.90362556627937, 100, 2,
+ -0.59999999999999998 },
+ { 604.19889304940341, 100, 2,
+ -0.50000000000000000 },
+ { 733.40061037838029, 100, 2,
+ -0.40000000000000002 },
+ { -573.30774483996390, 100, 2,
+ -0.30000000000000004 },
+ { -151.52946305080880, 100, 2,
+ -0.19999999999999996 },
+ { 646.30525583587985, 100, 2,
+ -0.099999999999999978 },
+ { -803.85129761050518, 100, 2,
+ 0.0000000000000000 },
+ { 646.30525583587439, 100, 2,
+ 0.10000000000000009 },
+ { -151.52946305080880, 100, 2,
+ 0.19999999999999996 },
+ { -573.30774483996390, 100, 2,
+ 0.30000000000000004 },
+ { 733.40061037838518, 100, 2,
+ 0.39999999999999991 },
+ { 604.19889304940341, 100, 2,
+ 0.50000000000000000 },
+ { 226.90362556629168, 100, 2,
+ 0.60000000000000009 },
+ { 768.31676011669924, 100, 2,
+ 0.69999999999999996 },
+ { -489.68041725865947, 100, 2,
+ 0.80000000000000004 },
+ { -1005.9604880760779, 100, 2,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 100, 2,
+ 1.0000000000000000 },
+};
+const double toler031 = 2.5000000000000020e-13;
+
+// Test data for l=100, m=5.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data032[21] =
+{
+ { 0.0000000000000000, 100, 5,
+ -1.0000000000000000 },
+ { 900551126.09653807, 100, 5,
+ -0.90000000000000002 },
+ { 988567431.55756140, 100, 5,
+ -0.80000000000000004 },
+ { -645646451.90344620, 100, 5,
+ -0.69999999999999996 },
+ { -897114585.29920685, 100, 5,
+ -0.59999999999999998 },
+ { -661710744.42483854, 100, 5,
+ -0.50000000000000000 },
+ { 380163158.51425636, 100, 5,
+ -0.40000000000000002 },
+ { 617391071.36632574, 100, 5,
+ -0.30000000000000004 },
+ { -805288801.85509109, 100, 5,
+ -0.19999999999999996 },
+ { 481041740.16728652, 100, 5,
+ -0.099999999999999978 },
+ { 0.0000000000000000, 100, 5,
+ 0.0000000000000000 },
+ { -481041740.16729391, 100, 5,
+ 0.10000000000000009 },
+ { 805288801.85509109, 100, 5,
+ 0.19999999999999996 },
+ { -617391071.36632574, 100, 5,
+ 0.30000000000000004 },
+ { -380163158.51424754, 100, 5,
+ 0.39999999999999991 },
+ { 661710744.42483854, 100, 5,
+ 0.50000000000000000 },
+ { 897114585.29920483, 100, 5,
+ 0.60000000000000009 },
+ { 645646451.90344620, 100, 5,
+ 0.69999999999999996 },
+ { -988567431.55756140, 100, 5,
+ 0.80000000000000004 },
+ { -900551126.09655857, 100, 5,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 100, 5,
+ 1.0000000000000000 },
+};
+const double toler032 = 2.5000000000000020e-13;
+
+// Test data for l=100, m=10.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data033[21] =
+{
+ { 0.0000000000000000, 100, 10,
+ -1.0000000000000000 },
+ { 2.5643395957658602e+17, 100, 10,
+ -0.90000000000000002 },
+ { 1.5778673545673485e+18, 100, 10,
+ -0.80000000000000004 },
+ { 4.4355048487496801e+18, 100, 10,
+ -0.69999999999999996 },
+ { -9.5936111659124288e+17, 100, 10,
+ -0.59999999999999998 },
+ { 4.2387123021963438e+18, 100, 10,
+ -0.50000000000000000 },
+ { 8.2370834618426542e+18, 100, 10,
+ -0.40000000000000002 },
+ { -4.9089358388052941e+18, 100, 10,
+ -0.30000000000000004 },
+ { -2.3468810358091274e+18, 100, 10,
+ -0.19999999999999996 },
+ { 6.8627855225034568e+18, 100, 10,
+ -0.099999999999999978 },
+ { -8.2494597181670380e+18, 100, 10,
+ 0.0000000000000000 },
+ { 6.8627855225034056e+18, 100, 10,
+ 0.10000000000000009 },
+ { -2.3468810358091274e+18, 100, 10,
+ 0.19999999999999996 },
+ { -4.9089358388052941e+18, 100, 10,
+ 0.30000000000000004 },
+ { 8.2370834618426767e+18, 100, 10,
+ 0.39999999999999991 },
+ { 4.2387123021963438e+18, 100, 10,
+ 0.50000000000000000 },
+ { -9.5936111659112640e+17, 100, 10,
+ 0.60000000000000009 },
+ { 4.4355048487496801e+18, 100, 10,
+ 0.69999999999999996 },
+ { 1.5778673545673485e+18, 100, 10,
+ 0.80000000000000004 },
+ { 2.5643395957697341e+17, 100, 10,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 100, 10,
+ 1.0000000000000000 },
+};
+const double toler033 = 2.5000000000000020e-13;
+
+// Test data for l=100, m=20.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data034[21] =
+{
+ { 0.0000000000000000, 100, 20,
+ -1.0000000000000000 },
+ { 7.1604344878780134e+37, 100, 20,
+ -0.90000000000000002 },
+ { -8.3963895116962231e+38, 100, 20,
+ -0.80000000000000004 },
+ { 7.9022236853110145e+38, 100, 20,
+ -0.69999999999999996 },
+ { 8.2680005574121013e+38, 100, 20,
+ -0.59999999999999998 },
+ { 3.0750497039999552e+38, 100, 20,
+ -0.50000000000000000 },
+ { -7.6120586043843889e+38, 100, 20,
+ -0.40000000000000002 },
+ { 1.1474496891901797e+38, 100, 20,
+ -0.30000000000000004 },
+ { 4.3966251307444241e+38, 100, 20,
+ -0.19999999999999996 },
+ { -7.0503266451702591e+38, 100, 20,
+ -0.099999999999999978 },
+ { 7.7727439836159581e+38, 100, 20,
+ 0.0000000000000000 },
+ { -7.0503266451702213e+38, 100, 20,
+ 0.10000000000000009 },
+ { 4.3966251307444241e+38, 100, 20,
+ 0.19999999999999996 },
+ { 1.1474496891901797e+38, 100, 20,
+ 0.30000000000000004 },
+ { -7.6120586043843556e+38, 100, 20,
+ 0.39999999999999991 },
+ { 3.0750497039999552e+38, 100, 20,
+ 0.50000000000000000 },
+ { 8.2680005574120394e+38, 100, 20,
+ 0.60000000000000009 },
+ { 7.9022236853110145e+38, 100, 20,
+ 0.69999999999999996 },
+ { -8.3963895116962231e+38, 100, 20,
+ 0.80000000000000004 },
+ { 7.1604344878812652e+37, 100, 20,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 100, 20,
+ 1.0000000000000000 },
+};
+const double toler034 = 2.5000000000000020e-13;
+
+// Test data for l=100, m=50.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data035[21] =
+{
+ { 0.0000000000000000, 100, 50,
+ -1.0000000000000000 },
+ { 9.3231278516893716e+96, 100, 50,
+ -0.90000000000000002 },
+ { -1.1029797977454281e+98, 100, 50,
+ -0.80000000000000004 },
+ { 1.8089333903465606e+97, 100, 50,
+ -0.69999999999999996 },
+ { 5.9364045925669405e+97, 100, 50,
+ -0.59999999999999998 },
+ { -8.2252620339727118e+97, 100, 50,
+ -0.50000000000000000 },
+ { 7.1431385093739863e+97, 100, 50,
+ -0.40000000000000002 },
+ { -3.3520602067479344e+97, 100, 50,
+ -0.30000000000000004 },
+ { -2.7791149588121382e+97, 100, 50,
+ -0.19999999999999996 },
+ { 9.0119338550180417e+97, 100, 50,
+ -0.099999999999999978 },
+ { -1.1712145031578381e+98, 100, 50,
+ 0.0000000000000000 },
+ { 9.0119338550181207e+97, 100, 50,
+ 0.10000000000000009 },
+ { -2.7791149588121382e+97, 100, 50,
+ 0.19999999999999996 },
+ { -3.3520602067479344e+97, 100, 50,
+ 0.30000000000000004 },
+ { 7.1431385093740728e+97, 100, 50,
+ 0.39999999999999991 },
+ { -8.2252620339727118e+97, 100, 50,
+ 0.50000000000000000 },
+ { 5.9364045925668024e+97, 100, 50,
+ 0.60000000000000009 },
+ { 1.8089333903465606e+97, 100, 50,
+ 0.69999999999999996 },
+ { -1.1029797977454281e+98, 100, 50,
+ 0.80000000000000004 },
+ { 9.3231278516894968e+96, 100, 50,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 100, 50,
+ 1.0000000000000000 },
+};
+const double toler035 = 2.5000000000000020e-13;
+
+// Test data for l=100, m=100.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_assoc_legendre<double>
+data036[21] =
+{
+ { 0.0000000000000000, 100, 100,
+ -1.0000000000000000 },
+ { 5.7751792255758316e+150, 100, 100,
+ -0.90000000000000002 },
+ { 4.3552236041585515e+164, 100, 100,
+ -0.80000000000000004 },
+ { 1.5936546850595123e+172, 100, 100,
+ -0.69999999999999996 },
+ { 1.3579510590289176e+177, 100, 100,
+ -0.59999999999999998 },
+ { 3.7752749682889513e+180, 100, 100,
+ -0.50000000000000000 },
+ { 1.0910627330458913e+183, 100, 100,
+ -0.40000000000000002 },
+ { 5.9697347526822483e+184, 100, 100,
+ -0.30000000000000004 },
+ { 8.6585879147526714e+185, 100, 100,
+ -0.19999999999999996 },
+ { 4.0331571908057011e+186, 100, 100,
+ -0.099999999999999978 },
+ { 6.6663086700729543e+186, 100, 100,
+ 0.0000000000000000 },
+ { 4.0331571908057011e+186, 100, 100,
+ 0.10000000000000009 },
+ { 8.6585879147526714e+185, 100, 100,
+ 0.19999999999999996 },
+ { 5.9697347526822483e+184, 100, 100,
+ 0.30000000000000004 },
+ { 1.0910627330458913e+183, 100, 100,
+ 0.39999999999999991 },
+ { 3.7752749682889513e+180, 100, 100,
+ 0.50000000000000000 },
+ { 1.3579510590289000e+177, 100, 100,
+ 0.60000000000000009 },
+ { 1.5936546850595123e+172, 100, 100,
+ 0.69999999999999996 },
+ { 4.3552236041585515e+164, 100, 100,
+ 0.80000000000000004 },
+ { 5.7751792255761289e+150, 100, 100,
+ 0.89999999999999991 },
+ { 0.0000000000000000, 100, 100,
+ 1.0000000000000000 },
+};
+const double toler036 = 2.5000000000000020e-13;
+
+template<typename Tp, unsigned int Num>
+ void
+ test(const testcase_assoc_legendre<Tp> (&data)[Num], Tp toler)
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = Num;
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::assoc_legendre(data[i].l, data[i].m,
+ data[i].x);
+ const Tp f0 = data[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < toler);
+ }
+
+int
+main()
+{
+ test(data001, toler001);
+ test(data002, toler002);
+ test(data003, toler003);
+ test(data004, toler004);
+ test(data005, toler005);
+ test(data006, toler006);
+ test(data007, toler007);
+ test(data008, toler008);
+ test(data009, toler009);
+ test(data010, toler010);
+ test(data011, toler011);
+ test(data012, toler012);
+ test(data013, toler013);
+ test(data014, toler014);
+ test(data015, toler015);
+ test(data016, toler016);
+ test(data017, toler017);
+ test(data018, toler018);
+ test(data019, toler019);
+ test(data020, toler020);
+ test(data021, toler021);
+ test(data022, toler022);
+ test(data023, toler023);
+ test(data024, toler024);
+ test(data025, toler025);
+ test(data026, toler026);
+ test(data027, toler027);
+ test(data028, toler028);
+ test(data029, toler029);
+ test(data030, toler030);
+ test(data031, toler031);
+ test(data032, toler032);
+ test(data033, toler033);
+ test(data034, toler034);
+ test(data035, toler035);
+ test(data036, toler036);
+ return 0;
+}
Index: testsuite/special_functions/02_assoc_legendre/compile.cc
===================================================================
--- testsuite/special_functions/02_assoc_legendre/compile.cc (revision 0)
+++ testsuite/special_functions/02_assoc_legendre/compile.cc (working copy)
@@ -0,0 +1,41 @@
+// { dg-do compile }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.2 assoc_legendre
+
+#include <cmath>
+
+void
+test01()
+{
+ float xf = 0.5F;
+ double xd = 0.5;
+ long double xl = 0.5L;
+ unsigned int l = 2, m = 1;
+
+ std::assoc_legendre(l, m, xf);
+ std::assoc_legendref(l, m, xf);
+ std::assoc_legendre(l, m, xd);
+ std::assoc_legendre(l, m, xl);
+ std::assoc_legendrel(l, m, xl);
+
+ return;
+}
+
Index: testsuite/special_functions/02_assoc_legendre/compile_2.cc
===================================================================
--- testsuite/special_functions/02_assoc_legendre/compile_2.cc (revision 0)
+++ testsuite/special_functions/02_assoc_legendre/compile_2.cc (working copy)
@@ -0,0 +1,42 @@
+// { dg-do compile { xfail *-*-* } }
+// { dg-excess-errors "" }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.2 assoc_legendre
+
+#include <math.h>
+
+void
+test01()
+{
+ float xf = 0.5F;
+ double xd = 0.5;
+ long double xl = 0.5L;
+ unsigned int l = 2, m = 1;
+
+ assoc_legendre(l, m, xf);
+ assoc_legendref(l, m, xf);
+ assoc_legendre(l, m, xd);
+ assoc_legendre(l, m, xl);
+ assoc_legendrel(l, m, xl);
+
+ return;
+}
+
Index: testsuite/special_functions/03_beta/check_nan.cc
===================================================================
--- testsuite/special_functions/03_beta/check_nan.cc (revision 0)
+++ testsuite/special_functions/03_beta/check_nan.cc (working copy)
@@ -0,0 +1,88 @@
+// { dg-require-c-std "" }
+// { dg-add-options ieee }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.3 beta
+
+#include <cmath>
+#include <testsuite_hooks.h>
+
+void
+test01()
+{
+ float xf = std::numeric_limits<float>::quiet_NaN();
+ double xd = std::numeric_limits<double>::quiet_NaN();
+ long double xl = std::numeric_limits<long double>::quiet_NaN();
+
+ float yf = 0.0F;
+ double yd = 0.0;
+ long double yl = 0.0L;
+
+ float a = std::beta(xf, yf);
+ float b = std::betaf(xf, yf);
+ double c = std::beta(xd, yd);
+ long double d = std::beta(xl, yl);
+ long double e = std::betal(xl, yl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+void
+test02()
+{
+ float xf = 1.0F;
+ double xd = 1.0;
+ long double xl = 1.0L;
+
+ float yf = std::numeric_limits<float>::quiet_NaN();
+ double yd = std::numeric_limits<double>::quiet_NaN();
+ long double yl = std::numeric_limits<long double>::quiet_NaN();
+
+ float a = std::beta(xf, yf);
+ float b = std::betaf(xf, yf);
+ double c = std::beta(xd, yd);
+ long double d = std::beta(xl, yl);
+ long double e = std::betal(xl, yl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+int
+main()
+{
+ test01();
+ test02();
+ return 0;
+}
+
Index: testsuite/special_functions/03_beta/check_value.cc
===================================================================
--- testsuite/special_functions/03_beta/check_value.cc (revision 0)
+++ testsuite/special_functions/03_beta/check_value.cc (working copy)
@@ -0,0 +1,271 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+//
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// beta
+// Compare against values generated by the GNU Scientific Library.
+// The GSL can be found on the web: http://www.gnu.org/software/gsl/
+#include <limits>
+#include <cmath>
+#if defined(__TEST_DEBUG)
+# include <iostream>
+# define VERIFY(A) \
+ if (!(A)) \
+ { \
+ std::cout << "line " << __LINE__ \
+ << " max_abs_frac = " << max_abs_frac \
+ << std::endl; \
+ }
+#else
+# include <testsuite_hooks.h>
+#endif
+#include <specfun_testcase.h>
+
+
+// Test data for x=10.000000000000000.
+// max(|f - f_GSL|): 2.1175823681357508e-21
+// max(|f - f_GSL| / |f_GSL|): 9.9466182377295583e-14
+const testcase_beta<double>
+data001[10] =
+{
+ { 1.0825088224469029e-06, 10.000000000000000, 10.000000000000000 },
+ { 4.9925087406346778e-09, 10.000000000000000, 20.000000000000000 },
+ { 1.5729567312509485e-10, 10.000000000000000, 30.000000000000000 },
+ { 1.2168673582561288e-11, 10.000000000000000, 40.000000000000000 },
+ { 1.5916380099863291e-12, 10.000000000000000, 50.000000000000000 },
+ { 2.9408957938463963e-13, 10.000000000000000, 60.000000000000000 },
+ { 6.9411637980691676e-14, 10.000000000000000, 70.000000000000000 },
+ { 1.9665612972502651e-14, 10.000000000000000, 80.000000000000000 },
+ { 6.4187824828154399e-15, 10.000000000000000, 90.000000000000000 },
+ { 2.3455339739604842e-15, 10.000000000000000, 100.00000000000000 },
+};
+const double toler001 = 5.0000000000000029e-12;
+
+// Test data for x=20.000000000000000.
+// max(|f - f_GSL|): 1.9025154088719637e-23
+// max(|f - f_GSL| / |f_GSL|): 3.8107402664859521e-15
+const testcase_beta<double>
+data002[10] =
+{
+ { 4.9925087406346778e-09, 20.000000000000000, 10.000000000000000 },
+ { 7.2544445519248436e-13, 20.000000000000000, 20.000000000000000 },
+ { 1.7681885473062028e-15, 20.000000000000000, 30.000000000000000 },
+ { 1.7891885039182335e-17, 20.000000000000000, 40.000000000000000 },
+ { 4.3240677875623635e-19, 20.000000000000000, 50.000000000000000 },
+ { 1.8857342309689050e-20, 20.000000000000000, 60.000000000000000 },
+ { 1.2609804003539998e-21, 20.000000000000000, 70.000000000000000 },
+ { 1.1660809542079041e-22, 20.000000000000000, 80.000000000000000 },
+ { 1.3907944279729071e-23, 20.000000000000000, 90.000000000000000 },
+ { 2.0365059099917614e-24, 20.000000000000000, 100.00000000000000 },
+};
+const double toler002 = 2.5000000000000020e-13;
+
+// Test data for x=30.000000000000000.
+// max(|f - f_GSL|): 9.0472879497987402e-25
+// max(|f - f_GSL| / |f_GSL|): 5.7517716603708290e-15
+const testcase_beta<double>
+data003[10] =
+{
+ { 1.5729567312509485e-10, 30.000000000000000, 10.000000000000000 },
+ { 1.7681885473062028e-15, 30.000000000000000, 20.000000000000000 },
+ { 5.6370779640482451e-19, 30.000000000000000, 30.000000000000000 },
+ { 1.0539424603796547e-21, 30.000000000000000, 40.000000000000000 },
+ { 6.0118197777273836e-24, 30.000000000000000, 50.000000000000000 },
+ { 7.4279528553260165e-26, 30.000000000000000, 60.000000000000000 },
+ { 1.6212207780604767e-27, 30.000000000000000, 70.000000000000000 },
+ { 5.4783729715317616e-29, 30.000000000000000, 80.000000000000000 },
+ { 2.6183005659681346e-30, 30.000000000000000, 90.000000000000000 },
+ { 1.6587948222122229e-31, 30.000000000000000, 100.00000000000000 },
+};
+const double toler003 = 5.0000000000000039e-13;
+
+// Test data for x=40.000000000000000.
+// max(|f - f_GSL|): 2.6495628995839168e-25
+// max(|f - f_GSL| / |f_GSL|): 2.1773637706750213e-14
+const testcase_beta<double>
+data004[10] =
+{
+ { 1.2168673582561288e-11, 40.000000000000000, 10.000000000000000 },
+ { 1.7891885039182335e-17, 40.000000000000000, 20.000000000000000 },
+ { 1.0539424603796547e-21, 40.000000000000000, 30.000000000000000 },
+ { 4.6508509140090659e-25, 40.000000000000000, 40.000000000000000 },
+ { 7.5161712118557719e-28, 40.000000000000000, 50.000000000000000 },
+ { 3.0311331979886071e-30, 40.000000000000000, 60.000000000000000 },
+ { 2.4175035070466313e-32, 40.000000000000000, 70.000000000000000 },
+ { 3.2734839142758369e-34, 40.000000000000000, 80.000000000000000 },
+ { 6.7690629601315579e-36, 40.000000000000000, 90.000000000000000 },
+ { 1.9797337118812366e-37, 40.000000000000000, 100.00000000000000 },
+};
+const double toler004 = 2.5000000000000015e-12;
+
+// Test data for x=50.000000000000000.
+// max(|f - f_GSL|): 2.4603755039546938e-32
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_beta<double>
+data005[10] =
+{
+ { 1.5916380099863291e-12, 50.000000000000000, 10.000000000000000 },
+ { 4.3240677875623635e-19, 50.000000000000000, 20.000000000000000 },
+ { 6.0118197777273836e-24, 50.000000000000000, 30.000000000000000 },
+ { 7.5161712118557719e-28, 50.000000000000000, 40.000000000000000 },
+ { 3.9646612085674138e-31, 50.000000000000000, 50.000000000000000 },
+ { 5.8425643906418403e-34, 50.000000000000000, 60.000000000000000 },
+ { 1.8672362180783552e-36, 50.000000000000000, 70.000000000000000 },
+ { 1.0939382296458962e-38, 50.000000000000000, 80.000000000000000 },
+ { 1.0442781609881063e-40, 50.000000000000000, 90.000000000000000 },
+ { 1.4904121110954370e-42, 50.000000000000000, 100.00000000000000 },
+};
+const double toler005 = 2.5000000000000020e-13;
+
+// Test data for x=60.000000000000000.
+// max(|f - f_GSL|): 2.1911400503418824e-26
+// max(|f - f_GSL| / |f_GSL|): 7.4505871813842522e-14
+const testcase_beta<double>
+data006[10] =
+{
+ { 2.9408957938463963e-13, 60.000000000000000, 10.000000000000000 },
+ { 1.8857342309689050e-20, 60.000000000000000, 20.000000000000000 },
+ { 7.4279528553260165e-26, 60.000000000000000, 30.000000000000000 },
+ { 3.0311331979886071e-30, 60.000000000000000, 40.000000000000000 },
+ { 5.8425643906418403e-34, 60.000000000000000, 50.000000000000000 },
+ { 3.4501231469782229e-37, 60.000000000000000, 60.000000000000000 },
+ { 4.7706855386086599e-40, 60.000000000000000, 70.000000000000000 },
+ { 1.2902663809722593e-42, 60.000000000000000, 80.000000000000000 },
+ { 6.0105571058570508e-45, 60.000000000000000, 90.000000000000000 },
+ { 4.3922898898347209e-47, 60.000000000000000, 100.00000000000000 },
+};
+const double toler006 = 5.0000000000000029e-12;
+
+// Test data for x=70.000000000000000.
+// max(|f - f_GSL|): 6.9041106424942953e-27
+// max(|f - f_GSL| / |f_GSL|): 9.9466182377295583e-14
+const testcase_beta<double>
+data007[10] =
+{
+ { 6.9411637980691676e-14, 70.000000000000000, 10.000000000000000 },
+ { 1.2609804003539998e-21, 70.000000000000000, 20.000000000000000 },
+ { 1.6212207780604767e-27, 70.000000000000000, 30.000000000000000 },
+ { 2.4175035070466313e-32, 70.000000000000000, 40.000000000000000 },
+ { 1.8672362180783552e-36, 70.000000000000000, 50.000000000000000 },
+ { 4.7706855386086599e-40, 70.000000000000000, 60.000000000000000 },
+ { 3.0453137143486369e-43, 70.000000000000000, 70.000000000000000 },
+ { 4.0192274082013779e-46, 70.000000000000000, 80.000000000000000 },
+ { 9.5865870063501807e-49, 70.000000000000000, 90.000000000000000 },
+ { 3.7409127305819802e-51, 70.000000000000000, 100.00000000000000 },
+};
+const double toler007 = 5.0000000000000029e-12;
+
+// Test data for x=80.000000000000000.
+// max(|f - f_GSL|): 1.6786960063103131e-27
+// max(|f - f_GSL| / |f_GSL|): 8.5361997546557118e-14
+const testcase_beta<double>
+data008[10] =
+{
+ { 1.9665612972502651e-14, 80.000000000000000, 10.000000000000000 },
+ { 1.1660809542079041e-22, 80.000000000000000, 20.000000000000000 },
+ { 5.4783729715317616e-29, 80.000000000000000, 30.000000000000000 },
+ { 3.2734839142758369e-34, 80.000000000000000, 40.000000000000000 },
+ { 1.0939382296458962e-38, 80.000000000000000, 50.000000000000000 },
+ { 1.2902663809722593e-42, 80.000000000000000, 60.000000000000000 },
+ { 4.0192274082013779e-46, 80.000000000000000, 70.000000000000000 },
+ { 2.7160590828669411e-49, 80.000000000000000, 80.000000000000000 },
+ { 3.4593773902125368e-52, 80.000000000000000, 90.000000000000000 },
+ { 7.4807039968503468e-55, 80.000000000000000, 100.00000000000000 },
+};
+const double toler008 = 5.0000000000000029e-12;
+
+// Test data for x=90.000000000000000.
+// max(|f - f_GSL|): 2.7373473411169110e-28
+// max(|f - f_GSL| / |f_GSL|): 4.2645896608047095e-14
+const testcase_beta<double>
+data009[10] =
+{
+ { 6.4187824828154399e-15, 90.000000000000000, 10.000000000000000 },
+ { 1.3907944279729071e-23, 90.000000000000000, 20.000000000000000 },
+ { 2.6183005659681346e-30, 90.000000000000000, 30.000000000000000 },
+ { 6.7690629601315579e-36, 90.000000000000000, 40.000000000000000 },
+ { 1.0442781609881063e-40, 90.000000000000000, 50.000000000000000 },
+ { 6.0105571058570508e-45, 90.000000000000000, 60.000000000000000 },
+ { 9.5865870063501807e-49, 90.000000000000000, 70.000000000000000 },
+ { 3.4593773902125368e-52, 90.000000000000000, 80.000000000000000 },
+ { 2.4416737907558032e-55, 90.000000000000000, 90.000000000000000 },
+ { 3.0238531916564246e-58, 90.000000000000000, 100.00000000000000 },
+};
+const double toler009 = 2.5000000000000015e-12;
+
+// Test data for x=100.00000000000000.
+// max(|f - f_GSL|): 1.6960509462251754e-29
+// max(|f - f_GSL| / |f_GSL|): 7.2309800883478868e-15
+const testcase_beta<double>
+data010[10] =
+{
+ { 2.3455339739604842e-15, 100.00000000000000, 10.000000000000000 },
+ { 2.0365059099917614e-24, 100.00000000000000, 20.000000000000000 },
+ { 1.6587948222122229e-31, 100.00000000000000, 30.000000000000000 },
+ { 1.9797337118812366e-37, 100.00000000000000, 40.000000000000000 },
+ { 1.4904121110954370e-42, 100.00000000000000, 50.000000000000000 },
+ { 4.3922898898347209e-47, 100.00000000000000, 60.000000000000000 },
+ { 3.7409127305819802e-51, 100.00000000000000, 70.000000000000000 },
+ { 7.4807039968503468e-55, 100.00000000000000, 80.000000000000000 },
+ { 3.0238531916564246e-58, 100.00000000000000, 90.000000000000000 },
+ { 2.2087606931991853e-61, 100.00000000000000, 100.00000000000000 },
+};
+const double toler010 = 5.0000000000000039e-13;
+
+template<typename Tp, unsigned int Num>
+ void
+ test(const testcase_beta<Tp> (&data)[Num], Tp toler)
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = Num;
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::beta(data[i].x, data[i].y);
+ const Tp f0 = data[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < toler);
+ }
+
+int
+main()
+{
+ test(data001, toler001);
+ test(data002, toler002);
+ test(data003, toler003);
+ test(data004, toler004);
+ test(data005, toler005);
+ test(data006, toler006);
+ test(data007, toler007);
+ test(data008, toler008);
+ test(data009, toler009);
+ test(data010, toler010);
+ return 0;
+}
Index: testsuite/special_functions/03_beta/compile.cc
===================================================================
--- testsuite/special_functions/03_beta/compile.cc (revision 0)
+++ testsuite/special_functions/03_beta/compile.cc (working copy)
@@ -0,0 +1,40 @@
+// { dg-do compile }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.3 beta
+
+#include <cmath>
+
+void
+test01()
+{
+ float xf = 0.5F, yf = 0.5F;
+ double xd = 0.5, yd = 0.5;
+ long double xl = 0.5L, yl = 0.5L;
+
+ std::beta(xf, yf);
+ std::betaf(xf, yf);
+ std::beta(xd, yd);
+ std::beta(xl, yl);
+ std::betal(xl, yl);
+
+ return;
+}
+
Index: testsuite/special_functions/03_beta/compile_2.cc
===================================================================
--- testsuite/special_functions/03_beta/compile_2.cc (revision 0)
+++ testsuite/special_functions/03_beta/compile_2.cc (working copy)
@@ -0,0 +1,41 @@
+// { dg-do compile { xfail *-*-* } }
+// { dg-excess-errors "" }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.3 beta
+
+#include <math.h>
+
+void
+test01()
+{
+ float xf = 0.5F, yf = 0.5F;
+ double xd = 0.5, yd = 0.5;
+ long double xl = 0.5L, yl = 0.5L;
+
+ beta(xf, yf);
+ betaf(xf, yf);
+ beta(xd, yd);
+ beta(xl, yl);
+ betal(xl, yl);
+
+ return;
+}
+
Index: testsuite/special_functions/04_comp_ellint_1/check_nan.cc
===================================================================
--- testsuite/special_functions/04_comp_ellint_1/check_nan.cc (revision 0)
+++ testsuite/special_functions/04_comp_ellint_1/check_nan.cc (working copy)
@@ -0,0 +1,56 @@
+// { dg-require-c-std "" }
+// { dg-add-options ieee }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.4 comp_ellint_1
+
+#include <cmath>
+#include <testsuite_hooks.h>
+
+void
+test01()
+{
+ float kf = std::numeric_limits<float>::quiet_NaN();
+ double kd = std::numeric_limits<double>::quiet_NaN();
+ long double kl = std::numeric_limits<long double>::quiet_NaN();
+
+ float a = std::comp_ellint_1(kf);
+ float b = std::comp_ellint_1f(kf);
+ double c = std::comp_ellint_1(kd);
+ long double d = std::comp_ellint_1(kl);
+ long double e = std::comp_ellint_1l(kl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+int
+main()
+{
+ test01();
+ return 0;
+}
+
Index: testsuite/special_functions/04_comp_ellint_1/check_value.cc
===================================================================
--- testsuite/special_functions/04_comp_ellint_1/check_value.cc (revision 0)
+++ testsuite/special_functions/04_comp_ellint_1/check_value.cc (working copy)
@@ -0,0 +1,100 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+//
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// comp_ellint_1
+
+// Compare against values generated by the GNU Scientific Library.
+// The GSL can be found on the web: http://www.gnu.org/software/gsl/
+#include <limits>
+#include <cmath>
+#if defined(__TEST_DEBUG)
+# include <iostream>
+# define VERIFY(A) \
+ if (!(A)) \
+ { \
+ std::cout << "line " << __LINE__ \
+ << " max_abs_frac = " << max_abs_frac \
+ << std::endl; \
+ }
+#else
+# include <testsuite_hooks.h>
+#endif
+#include <specfun_testcase.h>
+
+// Test data.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 4.0617918857203532e-16
+const testcase_comp_ellint_1<double>
+data001[19] =
+{
+ { 2.2805491384227703, -0.90000000000000002 },
+ { 1.9953027776647296, -0.80000000000000004 },
+ { 1.8456939983747236, -0.69999999999999996 },
+ { 1.7507538029157526, -0.59999999999999998 },
+ { 1.6857503548125963, -0.50000000000000000 },
+ { 1.6399998658645112, -0.40000000000000002 },
+ { 1.6080486199305128, -0.30000000000000004 },
+ { 1.5868678474541660, -0.19999999999999996 },
+ { 1.5747455615173562, -0.099999999999999978 },
+ { 1.5707963267948966, 0.0000000000000000 },
+ { 1.5747455615173562, 0.10000000000000009 },
+ { 1.5868678474541660, 0.19999999999999996 },
+ { 1.6080486199305128, 0.30000000000000004 },
+ { 1.6399998658645112, 0.39999999999999991 },
+ { 1.6857503548125963, 0.50000000000000000 },
+ { 1.7507538029157526, 0.60000000000000009 },
+ { 1.8456939983747236, 0.69999999999999996 },
+ { 1.9953027776647296, 0.80000000000000004 },
+ { 2.2805491384227703, 0.89999999999999991 },
+};
+const double toler001 = 2.5000000000000020e-13;
+
+template<typename Tp, unsigned int Num>
+ void
+ test(const testcase_comp_ellint_1<Tp> (&data)[Num], Tp toler)
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = Num;
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::comp_ellint_1(data[i].k);
+ const Tp f0 = data[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < toler);
+ }
+
+int
+main()
+{
+ test(data001, toler001);
+ return 0;
+}
Index: testsuite/special_functions/04_comp_ellint_1/compile.cc
===================================================================
--- testsuite/special_functions/04_comp_ellint_1/compile.cc (revision 0)
+++ testsuite/special_functions/04_comp_ellint_1/compile.cc (working copy)
@@ -0,0 +1,40 @@
+// { dg-do compile }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.4 comp_ellint_1
+
+#include <cmath>
+
+void
+test01()
+{
+ float kf = 0.5F;
+ double kd = 0.5;
+ long double kl = 0.5L;
+
+ std::comp_ellint_1(kf);
+ std::comp_ellint_1f(kf);
+ std::comp_ellint_1(kd);
+ std::comp_ellint_1(kl);
+ std::comp_ellint_1l(kl);
+
+ return;
+}
+
Index: testsuite/special_functions/04_comp_ellint_1/compile_2.cc
===================================================================
--- testsuite/special_functions/04_comp_ellint_1/compile_2.cc (revision 0)
+++ testsuite/special_functions/04_comp_ellint_1/compile_2.cc (working copy)
@@ -0,0 +1,41 @@
+// { dg-do compile { xfail *-*-* } }
+// { dg-excess-errors "" }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.4 comp_ellint_1
+
+#include <math.h>
+
+void
+test01()
+{
+ float kf = 0.5F;
+ double kd = 0.5;
+ long double kl = 0.5L;
+
+ comp_ellint_1(kf);
+ comp_ellint_1f(kf);
+ comp_ellint_1(kd);
+ comp_ellint_1(kl);
+ comp_ellint_1l(kl);
+
+ return;
+}
+
Index: testsuite/special_functions/05_comp_ellint_2/check_nan.cc
===================================================================
--- testsuite/special_functions/05_comp_ellint_2/check_nan.cc (revision 0)
+++ testsuite/special_functions/05_comp_ellint_2/check_nan.cc (working copy)
@@ -0,0 +1,56 @@
+// { dg-require-c-std "" }
+// { dg-add-options ieee }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.5 comp_ellint_2
+
+#include <cmath>
+#include <testsuite_hooks.h>
+
+void
+test01()
+{
+ float kf = std::numeric_limits<float>::quiet_NaN();
+ double kd = std::numeric_limits<double>::quiet_NaN();
+ long double kl = std::numeric_limits<long double>::quiet_NaN();
+
+ float a = std::comp_ellint_2(kf);
+ float b = std::comp_ellint_2f(kf);
+ double c = std::comp_ellint_2(kd);
+ long double d = std::comp_ellint_2(kl);
+ long double e = std::comp_ellint_2l(kl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+int
+main()
+{
+ test01();
+ return 0;
+}
+
Index: testsuite/special_functions/05_comp_ellint_2/check_value.cc
===================================================================
--- testsuite/special_functions/05_comp_ellint_2/check_value.cc (revision 0)
+++ testsuite/special_functions/05_comp_ellint_2/check_value.cc (working copy)
@@ -0,0 +1,100 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+//
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// comp_ellint_2
+
+// Compare against values generated by the GNU Scientific Library.
+// The GSL can be found on the web: http://www.gnu.org/software/gsl/
+#include <limits>
+#include <cmath>
+#if defined(__TEST_DEBUG)
+# include <iostream>
+# define VERIFY(A) \
+ if (!(A)) \
+ { \
+ std::cout << "line " << __LINE__ \
+ << " max_abs_frac = " << max_abs_frac \
+ << std::endl; \
+ }
+#else
+# include <testsuite_hooks.h>
+#endif
+#include <specfun_testcase.h>
+
+// Test data.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 4.4233707954398090e-16
+const testcase_comp_ellint_2<double>
+data001[19] =
+{
+ { 1.1716970527816140, -0.90000000000000002 },
+ { 1.2763499431699064, -0.80000000000000004 },
+ { 1.3556611355719554, -0.69999999999999996 },
+ { 1.4180833944487241, -0.59999999999999998 },
+ { 1.4674622093394274, -0.50000000000000000 },
+ { 1.5059416123600402, -0.40000000000000002 },
+ { 1.5348334649232491, -0.30000000000000004 },
+ { 1.5549685462425291, -0.19999999999999996 },
+ { 1.5668619420216685, -0.099999999999999978 },
+ { 1.5707963267948966, 0.0000000000000000 },
+ { 1.5668619420216685, 0.10000000000000009 },
+ { 1.5549685462425291, 0.19999999999999996 },
+ { 1.5348334649232491, 0.30000000000000004 },
+ { 1.5059416123600404, 0.39999999999999991 },
+ { 1.4674622093394274, 0.50000000000000000 },
+ { 1.4180833944487241, 0.60000000000000009 },
+ { 1.3556611355719554, 0.69999999999999996 },
+ { 1.2763499431699064, 0.80000000000000004 },
+ { 1.1716970527816144, 0.89999999999999991 },
+};
+const double toler001 = 2.5000000000000020e-13;
+
+template<typename Tp, unsigned int Num>
+ void
+ test(const testcase_comp_ellint_2<Tp> (&data)[Num], Tp toler)
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = Num;
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::comp_ellint_2(data[i].k);
+ const Tp f0 = data[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < toler);
+ }
+
+int
+main()
+{
+ test(data001, toler001);
+ return 0;
+}
Index: testsuite/special_functions/05_comp_ellint_2/compile.cc
===================================================================
--- testsuite/special_functions/05_comp_ellint_2/compile.cc (revision 0)
+++ testsuite/special_functions/05_comp_ellint_2/compile.cc (working copy)
@@ -0,0 +1,40 @@
+// { dg-do compile }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.5 comp_ellint_2
+
+#include <cmath>
+
+void
+test01()
+{
+ float kf = 0.5F;
+ double kd = 0.5;
+ long double kl = 0.5L;
+
+ std::comp_ellint_2(kf);
+ std::comp_ellint_2f(kf);
+ std::comp_ellint_2(kd);
+ std::comp_ellint_2(kl);
+ std::comp_ellint_2l(kl);
+
+ return;
+}
+
Index: testsuite/special_functions/05_comp_ellint_2/compile_2.cc
===================================================================
--- testsuite/special_functions/05_comp_ellint_2/compile_2.cc (revision 0)
+++ testsuite/special_functions/05_comp_ellint_2/compile_2.cc (working copy)
@@ -0,0 +1,41 @@
+// { dg-do compile { xfail *-*-* } }
+// { dg-excess-errors "" }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.5 comp_ellint_2
+
+#include <math.h>
+
+void
+test01()
+{
+ float kf = 0.5F;
+ double kd = 0.5;
+ long double kl = 0.5L;
+
+ comp_ellint_2(kf);
+ comp_ellint_2f(kf);
+ comp_ellint_2(kd);
+ comp_ellint_2(kl);
+ comp_ellint_2l(kl);
+
+ return;
+}
+
Index: testsuite/special_functions/06_comp_ellint_3/check_nan.cc
===================================================================
--- testsuite/special_functions/06_comp_ellint_3/check_nan.cc (revision 0)
+++ testsuite/special_functions/06_comp_ellint_3/check_nan.cc (working copy)
@@ -0,0 +1,88 @@
+// { dg-require-c-std "" }
+// { dg-add-options ieee }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.6 comp_ellint_3
+
+#include <cmath>
+#include <testsuite_hooks.h>
+
+void
+test01()
+{
+ float kf = std::numeric_limits<float>::quiet_NaN();
+ double kd = std::numeric_limits<double>::quiet_NaN();
+ long double kl = std::numeric_limits<long double>::quiet_NaN();
+
+ float nuf = 0.0F;
+ double nud = 0.0;
+ long double nul = 0.0L;
+
+ float a = std::comp_ellint_3(kf, nuf);
+ float b = std::comp_ellint_3f(kf, nuf);
+ double c = std::comp_ellint_3(kd, nud);
+ long double d = std::comp_ellint_3(kl, nul);
+ long double e = std::comp_ellint_3l(kl, nul);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+void
+test02()
+{
+ float kf = 1.0F;
+ double kd = 1.0;
+ long double kl = 1.0L;
+
+ float nuf = std::numeric_limits<float>::quiet_NaN();
+ double nud = std::numeric_limits<double>::quiet_NaN();
+ long double nul = std::numeric_limits<long double>::quiet_NaN();
+
+ float a = std::comp_ellint_3(kf, nuf);
+ float b = std::comp_ellint_3f(kf, nuf);
+ double c = std::comp_ellint_3(kd, nud);
+ long double d = std::comp_ellint_3(kl, nul);
+ long double e = std::comp_ellint_3l(kl, nul);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+int
+main()
+{
+ test01();
+ test02();
+ return 0;
+}
+
Index: testsuite/special_functions/06_comp_ellint_3/check_value.cc
===================================================================
--- testsuite/special_functions/06_comp_ellint_3/check_value.cc (revision 0)
+++ testsuite/special_functions/06_comp_ellint_3/check_value.cc (working copy)
@@ -0,0 +1,451 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+//
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// comp_ellint_3
+// Compare against values generated by the GNU Scientific Library.
+// The GSL can be found on the web: http://www.gnu.org/software/gsl/
+#include <limits>
+#include <cmath>
+#if defined(__TEST_DEBUG)
+# include <iostream>
+# define VERIFY(A) \
+ if (!(A)) \
+ { \
+ std::cout << "line " << __LINE__ \
+ << " max_abs_frac = " << max_abs_frac \
+ << std::endl; \
+ }
+#else
+# include <testsuite_hooks.h>
+#endif
+#include <specfun_testcase.h>
+
+
+// Test data for k=-0.90000000000000002.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 2.6751587294384150e-16
+const testcase_comp_ellint_3<double>
+data001[10] =
+{
+ { 2.2805491384227703, -0.90000000000000002, 0.0000000000000000 },
+ { 2.1537868513875287, -0.90000000000000002, 0.10000000000000001 },
+ { 2.0443194576468890, -0.90000000000000002, 0.20000000000000001 },
+ { 1.9486280260314426, -0.90000000000000002, 0.29999999999999999 },
+ { 1.8641114227238349, -0.90000000000000002, 0.40000000000000002 },
+ { 1.7888013241937861, -0.90000000000000002, 0.50000000000000000 },
+ { 1.7211781128919523, -0.90000000000000002, 0.59999999999999998 },
+ { 1.6600480747670940, -0.90000000000000002, 0.69999999999999996 },
+ { 1.6044591960982202, -0.90000000000000002, 0.80000000000000004 },
+ { 1.5536420236310946, -0.90000000000000002, 0.90000000000000002 },
+};
+const double toler001 = 2.5000000000000020e-13;
+
+// Test data for k=-0.80000000000000004.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 1.5960830388244336e-16
+const testcase_comp_ellint_3<double>
+data002[10] =
+{
+ { 1.9953027776647296, -0.80000000000000004, 0.0000000000000000 },
+ { 1.8910755418379521, -0.80000000000000004, 0.10000000000000001 },
+ { 1.8007226661734588, -0.80000000000000004, 0.20000000000000001 },
+ { 1.7214611048717301, -0.80000000000000004, 0.29999999999999999 },
+ { 1.6512267838651289, -0.80000000000000004, 0.40000000000000002 },
+ { 1.5884528947755532, -0.80000000000000004, 0.50000000000000000 },
+ { 1.5319262547427865, -0.80000000000000004, 0.59999999999999998 },
+ { 1.4806912324625332, -0.80000000000000004, 0.69999999999999996 },
+ { 1.4339837018309471, -0.80000000000000004, 0.80000000000000004 },
+ { 1.3911845406776222, -0.80000000000000004, 0.90000000000000002 },
+};
+const double toler002 = 2.5000000000000020e-13;
+
+// Test data for k=-0.69999999999999996.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.3074070916136724e-16
+const testcase_comp_ellint_3<double>
+data003[10] =
+{
+ { 1.8456939983747236, -0.69999999999999996, 0.0000000000000000 },
+ { 1.7528050171757608, -0.69999999999999996, 0.10000000000000001 },
+ { 1.6721098780092145, -0.69999999999999996, 0.20000000000000001 },
+ { 1.6011813647733213, -0.69999999999999996, 0.29999999999999999 },
+ { 1.5382162002954762, -0.69999999999999996, 0.40000000000000002 },
+ { 1.4818433192178544, -0.69999999999999996, 0.50000000000000000 },
+ { 1.4309994736080540, -0.69999999999999996, 0.59999999999999998 },
+ { 1.3848459188329196, -0.69999999999999996, 0.69999999999999996 },
+ { 1.3427110650397531, -0.69999999999999996, 0.80000000000000004 },
+ { 1.3040500499695913, -0.69999999999999996, 0.90000000000000002 },
+};
+const double toler003 = 2.5000000000000020e-13;
+
+// Test data for k=-0.59999999999999998.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 4.1891472451898755e-16
+const testcase_comp_ellint_3<double>
+data004[10] =
+{
+ { 1.7507538029157526, -0.59999999999999998, 0.0000000000000000 },
+ { 1.6648615773343014, -0.59999999999999998, 0.10000000000000001 },
+ { 1.5901418016279374, -0.59999999999999998, 0.20000000000000001 },
+ { 1.5243814243493585, -0.59999999999999998, 0.29999999999999999 },
+ { 1.4659345278069984, -0.59999999999999998, 0.40000000000000002 },
+ { 1.4135484285693078, -0.59999999999999998, 0.50000000000000000 },
+ { 1.3662507535812816, -0.59999999999999998, 0.59999999999999998 },
+ { 1.3232737468822813, -0.59999999999999998, 0.69999999999999996 },
+ { 1.2840021261752192, -0.59999999999999998, 0.80000000000000004 },
+ { 1.2479362973851875, -0.59999999999999998, 0.90000000000000002 },
+};
+const double toler004 = 2.5000000000000020e-13;
+
+// Test data for k=-0.50000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 1.7857620325589816e-16
+const testcase_comp_ellint_3<double>
+data005[10] =
+{
+ { 1.6857503548125963, -0.50000000000000000, 0.0000000000000000 },
+ { 1.6045524936084892, -0.50000000000000000, 0.10000000000000001 },
+ { 1.5338490483665983, -0.50000000000000000, 0.20000000000000001 },
+ { 1.4715681939859637, -0.50000000000000000, 0.29999999999999999 },
+ { 1.4161679518465340, -0.50000000000000000, 0.40000000000000002 },
+ { 1.3664739530045971, -0.50000000000000000, 0.50000000000000000 },
+ { 1.3215740290190876, -0.50000000000000000, 0.59999999999999998 },
+ { 1.2807475181182502, -0.50000000000000000, 0.69999999999999996 },
+ { 1.2434165408189539, -0.50000000000000000, 0.80000000000000004 },
+ { 1.2091116095504744, -0.50000000000000000, 0.90000000000000002 },
+};
+const double toler005 = 2.5000000000000020e-13;
+
+// Test data for k=-0.40000000000000002.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 6.1925080711125793e-16
+const testcase_comp_ellint_3<double>
+data006[10] =
+{
+ { 1.6399998658645112, -0.40000000000000002, 0.0000000000000000 },
+ { 1.5620566886683604, -0.40000000000000002, 0.10000000000000001 },
+ { 1.4941414344266770, -0.40000000000000002, 0.20000000000000001 },
+ { 1.4342789859950078, -0.40000000000000002, 0.29999999999999999 },
+ { 1.3809986210732901, -0.40000000000000002, 0.40000000000000002 },
+ { 1.3331797176377398, -0.40000000000000002, 0.50000000000000000 },
+ { 1.2899514672527024, -0.40000000000000002, 0.59999999999999998 },
+ { 1.2506255923253344, -0.40000000000000002, 0.69999999999999996 },
+ { 1.2146499565727209, -0.40000000000000002, 0.80000000000000004 },
+ { 1.1815758115929846, -0.40000000000000002, 0.90000000000000002 },
+};
+const double toler006 = 2.5000000000000020e-13;
+
+// Test data for k=-0.30000000000000004.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.8209844149902043e-16
+const testcase_comp_ellint_3<double>
+data007[10] =
+{
+ { 1.6080486199305128, -0.30000000000000004, 0.0000000000000000 },
+ { 1.5323534693557528, -0.30000000000000004, 0.10000000000000001 },
+ { 1.4663658145259877, -0.30000000000000004, 0.20000000000000001 },
+ { 1.4081767433479091, -0.30000000000000004, 0.29999999999999999 },
+ { 1.3563643538969763, -0.30000000000000004, 0.40000000000000002 },
+ { 1.3098448759814962, -0.30000000000000004, 0.50000000000000000 },
+ { 1.2677758800420669, -0.30000000000000004, 0.59999999999999998 },
+ { 1.2294913236274982, -0.30000000000000004, 0.69999999999999996 },
+ { 1.1944567571590048, -0.30000000000000004, 0.80000000000000004 },
+ { 1.1622376896064914, -0.30000000000000004, 0.90000000000000002 },
+};
+const double toler007 = 2.5000000000000020e-13;
+
+// Test data for k=-0.19999999999999996.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.8637687241174905e-16
+const testcase_comp_ellint_3<double>
+data008[10] =
+{
+ { 1.5868678474541660, -0.19999999999999996, 0.0000000000000000 },
+ { 1.5126513474261087, -0.19999999999999996, 0.10000000000000001 },
+ { 1.4479323932249564, -0.19999999999999996, 0.20000000000000001 },
+ { 1.3908453514752477, -0.19999999999999996, 0.29999999999999999 },
+ { 1.3400002519661005, -0.19999999999999996, 0.40000000000000002 },
+ { 1.2943374404397372, -0.19999999999999996, 0.50000000000000000 },
+ { 1.2530330675914556, -0.19999999999999996, 0.59999999999999998 },
+ { 1.2154356555075863, -0.19999999999999996, 0.69999999999999996 },
+ { 1.1810223448909909, -0.19999999999999996, 0.80000000000000004 },
+ { 1.1493679916141861, -0.19999999999999996, 0.90000000000000002 },
+};
+const double toler008 = 2.5000000000000020e-13;
+
+// Test data for k=-0.099999999999999978.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.8887517676790089e-16
+const testcase_comp_ellint_3<double>
+data009[10] =
+{
+ { 1.5747455615173562, -0.099999999999999978, 0.0000000000000000 },
+ { 1.5013711111199950, -0.099999999999999978, 0.10000000000000001 },
+ { 1.4373749386463430, -0.099999999999999978, 0.20000000000000001 },
+ { 1.3809159606704959, -0.099999999999999978, 0.29999999999999999 },
+ { 1.3306223265207477, -0.099999999999999978, 0.40000000000000002 },
+ { 1.2854480708580160, -0.099999999999999978, 0.50000000000000000 },
+ { 1.2445798942989255, -0.099999999999999978, 0.59999999999999998 },
+ { 1.2073745911083185, -0.099999999999999978, 0.69999999999999996 },
+ { 1.1733158866987732, -0.099999999999999978, 0.80000000000000004 },
+ { 1.1419839485283374, -0.099999999999999978, 0.90000000000000002 },
+};
+const double toler009 = 2.5000000000000020e-13;
+
+// Test data for k=0.0000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 1.6725702444488137e-16
+const testcase_comp_ellint_3<double>
+data010[10] =
+{
+ { 1.5707963267948966, 0.0000000000000000, 0.0000000000000000 },
+ { 1.4976955329233277, 0.0000000000000000, 0.10000000000000001 },
+ { 1.4339343023863691, 0.0000000000000000, 0.20000000000000001 },
+ { 1.3776795151134889, 0.0000000000000000, 0.29999999999999999 },
+ { 1.3275651989026320, 0.0000000000000000, 0.40000000000000002 },
+ { 1.2825498301618641, 0.0000000000000000, 0.50000000000000000 },
+ { 1.2418235332245127, 0.0000000000000000, 0.59999999999999998 },
+ { 1.2047457872617382, 0.0000000000000000, 0.69999999999999996 },
+ { 1.1708024551734544, 0.0000000000000000, 0.80000000000000004 },
+ { 1.1395754288497419, 0.0000000000000000, 0.90000000000000002 },
+};
+const double toler010 = 2.5000000000000020e-13;
+
+// Test data for k=0.10000000000000009.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.8887517676790089e-16
+const testcase_comp_ellint_3<double>
+data011[10] =
+{
+ { 1.5747455615173562, 0.10000000000000009, 0.0000000000000000 },
+ { 1.5013711111199950, 0.10000000000000009, 0.10000000000000001 },
+ { 1.4373749386463430, 0.10000000000000009, 0.20000000000000001 },
+ { 1.3809159606704959, 0.10000000000000009, 0.29999999999999999 },
+ { 1.3306223265207477, 0.10000000000000009, 0.40000000000000002 },
+ { 1.2854480708580160, 0.10000000000000009, 0.50000000000000000 },
+ { 1.2445798942989255, 0.10000000000000009, 0.59999999999999998 },
+ { 1.2073745911083185, 0.10000000000000009, 0.69999999999999996 },
+ { 1.1733158866987732, 0.10000000000000009, 0.80000000000000004 },
+ { 1.1419839485283374, 0.10000000000000009, 0.90000000000000002 },
+};
+const double toler011 = 2.5000000000000020e-13;
+
+// Test data for k=0.19999999999999996.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.8637687241174905e-16
+const testcase_comp_ellint_3<double>
+data012[10] =
+{
+ { 1.5868678474541660, 0.19999999999999996, 0.0000000000000000 },
+ { 1.5126513474261087, 0.19999999999999996, 0.10000000000000001 },
+ { 1.4479323932249564, 0.19999999999999996, 0.20000000000000001 },
+ { 1.3908453514752477, 0.19999999999999996, 0.29999999999999999 },
+ { 1.3400002519661005, 0.19999999999999996, 0.40000000000000002 },
+ { 1.2943374404397372, 0.19999999999999996, 0.50000000000000000 },
+ { 1.2530330675914556, 0.19999999999999996, 0.59999999999999998 },
+ { 1.2154356555075863, 0.19999999999999996, 0.69999999999999996 },
+ { 1.1810223448909909, 0.19999999999999996, 0.80000000000000004 },
+ { 1.1493679916141861, 0.19999999999999996, 0.90000000000000002 },
+};
+const double toler012 = 2.5000000000000020e-13;
+
+// Test data for k=0.30000000000000004.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.8209844149902043e-16
+const testcase_comp_ellint_3<double>
+data013[10] =
+{
+ { 1.6080486199305128, 0.30000000000000004, 0.0000000000000000 },
+ { 1.5323534693557528, 0.30000000000000004, 0.10000000000000001 },
+ { 1.4663658145259877, 0.30000000000000004, 0.20000000000000001 },
+ { 1.4081767433479091, 0.30000000000000004, 0.29999999999999999 },
+ { 1.3563643538969763, 0.30000000000000004, 0.40000000000000002 },
+ { 1.3098448759814962, 0.30000000000000004, 0.50000000000000000 },
+ { 1.2677758800420669, 0.30000000000000004, 0.59999999999999998 },
+ { 1.2294913236274982, 0.30000000000000004, 0.69999999999999996 },
+ { 1.1944567571590048, 0.30000000000000004, 0.80000000000000004 },
+ { 1.1622376896064914, 0.30000000000000004, 0.90000000000000002 },
+};
+const double toler013 = 2.5000000000000020e-13;
+
+// Test data for k=0.39999999999999991.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 6.1925080711125793e-16
+const testcase_comp_ellint_3<double>
+data014[10] =
+{
+ { 1.6399998658645112, 0.39999999999999991, 0.0000000000000000 },
+ { 1.5620566886683604, 0.39999999999999991, 0.10000000000000001 },
+ { 1.4941414344266770, 0.39999999999999991, 0.20000000000000001 },
+ { 1.4342789859950078, 0.39999999999999991, 0.29999999999999999 },
+ { 1.3809986210732901, 0.39999999999999991, 0.40000000000000002 },
+ { 1.3331797176377398, 0.39999999999999991, 0.50000000000000000 },
+ { 1.2899514672527024, 0.39999999999999991, 0.59999999999999998 },
+ { 1.2506255923253344, 0.39999999999999991, 0.69999999999999996 },
+ { 1.2146499565727209, 0.39999999999999991, 0.80000000000000004 },
+ { 1.1815758115929846, 0.39999999999999991, 0.90000000000000002 },
+};
+const double toler014 = 2.5000000000000020e-13;
+
+// Test data for k=0.50000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 1.7857620325589816e-16
+const testcase_comp_ellint_3<double>
+data015[10] =
+{
+ { 1.6857503548125963, 0.50000000000000000, 0.0000000000000000 },
+ { 1.6045524936084892, 0.50000000000000000, 0.10000000000000001 },
+ { 1.5338490483665983, 0.50000000000000000, 0.20000000000000001 },
+ { 1.4715681939859637, 0.50000000000000000, 0.29999999999999999 },
+ { 1.4161679518465340, 0.50000000000000000, 0.40000000000000002 },
+ { 1.3664739530045971, 0.50000000000000000, 0.50000000000000000 },
+ { 1.3215740290190876, 0.50000000000000000, 0.59999999999999998 },
+ { 1.2807475181182502, 0.50000000000000000, 0.69999999999999996 },
+ { 1.2434165408189539, 0.50000000000000000, 0.80000000000000004 },
+ { 1.2091116095504744, 0.50000000000000000, 0.90000000000000002 },
+};
+const double toler015 = 2.5000000000000020e-13;
+
+// Test data for k=0.60000000000000009.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 4.7124937590522226e-16
+const testcase_comp_ellint_3<double>
+data016[10] =
+{
+ { 1.7507538029157526, 0.60000000000000009, 0.0000000000000000 },
+ { 1.6648615773343014, 0.60000000000000009, 0.10000000000000001 },
+ { 1.5901418016279374, 0.60000000000000009, 0.20000000000000001 },
+ { 1.5243814243493585, 0.60000000000000009, 0.29999999999999999 },
+ { 1.4659345278069984, 0.60000000000000009, 0.40000000000000002 },
+ { 1.4135484285693078, 0.60000000000000009, 0.50000000000000000 },
+ { 1.3662507535812816, 0.60000000000000009, 0.59999999999999998 },
+ { 1.3232737468822813, 0.60000000000000009, 0.69999999999999996 },
+ { 1.2840021261752192, 0.60000000000000009, 0.80000000000000004 },
+ { 1.2479362973851873, 0.60000000000000009, 0.90000000000000002 },
+};
+const double toler016 = 2.5000000000000020e-13;
+
+// Test data for k=0.69999999999999996.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.3074070916136724e-16
+const testcase_comp_ellint_3<double>
+data017[10] =
+{
+ { 1.8456939983747236, 0.69999999999999996, 0.0000000000000000 },
+ { 1.7528050171757608, 0.69999999999999996, 0.10000000000000001 },
+ { 1.6721098780092145, 0.69999999999999996, 0.20000000000000001 },
+ { 1.6011813647733213, 0.69999999999999996, 0.29999999999999999 },
+ { 1.5382162002954762, 0.69999999999999996, 0.40000000000000002 },
+ { 1.4818433192178544, 0.69999999999999996, 0.50000000000000000 },
+ { 1.4309994736080540, 0.69999999999999996, 0.59999999999999998 },
+ { 1.3848459188329196, 0.69999999999999996, 0.69999999999999996 },
+ { 1.3427110650397531, 0.69999999999999996, 0.80000000000000004 },
+ { 1.3040500499695913, 0.69999999999999996, 0.90000000000000002 },
+};
+const double toler017 = 2.5000000000000020e-13;
+
+// Test data for k=0.80000000000000004.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 1.5960830388244336e-16
+const testcase_comp_ellint_3<double>
+data018[10] =
+{
+ { 1.9953027776647296, 0.80000000000000004, 0.0000000000000000 },
+ { 1.8910755418379521, 0.80000000000000004, 0.10000000000000001 },
+ { 1.8007226661734588, 0.80000000000000004, 0.20000000000000001 },
+ { 1.7214611048717301, 0.80000000000000004, 0.29999999999999999 },
+ { 1.6512267838651289, 0.80000000000000004, 0.40000000000000002 },
+ { 1.5884528947755532, 0.80000000000000004, 0.50000000000000000 },
+ { 1.5319262547427865, 0.80000000000000004, 0.59999999999999998 },
+ { 1.4806912324625332, 0.80000000000000004, 0.69999999999999996 },
+ { 1.4339837018309471, 0.80000000000000004, 0.80000000000000004 },
+ { 1.3911845406776222, 0.80000000000000004, 0.90000000000000002 },
+};
+const double toler018 = 2.5000000000000020e-13;
+
+// Test data for k=0.89999999999999991.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 2.6751587294384150e-16
+const testcase_comp_ellint_3<double>
+data019[10] =
+{
+ { 2.2805491384227703, 0.89999999999999991, 0.0000000000000000 },
+ { 2.1537868513875287, 0.89999999999999991, 0.10000000000000001 },
+ { 2.0443194576468895, 0.89999999999999991, 0.20000000000000001 },
+ { 1.9486280260314426, 0.89999999999999991, 0.29999999999999999 },
+ { 1.8641114227238351, 0.89999999999999991, 0.40000000000000002 },
+ { 1.7888013241937863, 0.89999999999999991, 0.50000000000000000 },
+ { 1.7211781128919525, 0.89999999999999991, 0.59999999999999998 },
+ { 1.6600480747670940, 0.89999999999999991, 0.69999999999999996 },
+ { 1.6044591960982202, 0.89999999999999991, 0.80000000000000004 },
+ { 1.5536420236310948, 0.89999999999999991, 0.90000000000000002 },
+};
+const double toler019 = 2.5000000000000020e-13;
+
+template<typename Tp, unsigned int Num>
+ void
+ test(const testcase_comp_ellint_3<Tp> (&data)[Num], Tp toler)
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = Num;
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::comp_ellint_3(data[i].k, data[i].nu);
+ const Tp f0 = data[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < toler);
+ }
+
+int
+main()
+{
+ test(data001, toler001);
+ test(data002, toler002);
+ test(data003, toler003);
+ test(data004, toler004);
+ test(data005, toler005);
+ test(data006, toler006);
+ test(data007, toler007);
+ test(data008, toler008);
+ test(data009, toler009);
+ test(data010, toler010);
+ test(data011, toler011);
+ test(data012, toler012);
+ test(data013, toler013);
+ test(data014, toler014);
+ test(data015, toler015);
+ test(data016, toler016);
+ test(data017, toler017);
+ test(data018, toler018);
+ test(data019, toler019);
+ return 0;
+}
Index: testsuite/special_functions/06_comp_ellint_3/compile.cc
===================================================================
--- testsuite/special_functions/06_comp_ellint_3/compile.cc (revision 0)
+++ testsuite/special_functions/06_comp_ellint_3/compile.cc (working copy)
@@ -0,0 +1,40 @@
+// { dg-do compile }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.6 comp_ellint_3
+
+#include <cmath>
+
+void
+test01()
+{
+ float kf = 0.5F, nuf = 0.5F;
+ double kd = 0.5, nud = 0.5;
+ long double kl = 0.5L, nul = 0.5L;
+
+ std::comp_ellint_3(kf, nuf);
+ std::comp_ellint_3f(kf, nuf);
+ std::comp_ellint_3(kd, nud);
+ std::comp_ellint_3(kl, nul);
+ std::comp_ellint_3l(kl, nul);
+
+ return;
+}
+
Index: testsuite/special_functions/06_comp_ellint_3/compile_2.cc
===================================================================
--- testsuite/special_functions/06_comp_ellint_3/compile_2.cc (revision 0)
+++ testsuite/special_functions/06_comp_ellint_3/compile_2.cc (working copy)
@@ -0,0 +1,41 @@
+// { dg-do compile { xfail *-*-* } }
+// { dg-excess-errors "" }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.6 comp_ellint_3
+
+#include <math.h>
+
+void
+test01()
+{
+ float kf = 0.5F, nuf = 0.5F;
+ double kd = 0.5, nud = 0.5;
+ long double kl = 0.5L, nul = 0.5L;
+
+ comp_ellint_3(kf, nuf);
+ comp_ellint_3f(kf, nuf);
+ comp_ellint_3(kd, nud);
+ comp_ellint_3(kl, nul);
+ comp_ellint_3l(kl, nul);
+
+ return;
+}
+
Index: testsuite/special_functions/07_cyl_bessel_i/check_nan.cc
===================================================================
--- testsuite/special_functions/07_cyl_bessel_i/check_nan.cc (revision 0)
+++ testsuite/special_functions/07_cyl_bessel_i/check_nan.cc (working copy)
@@ -0,0 +1,88 @@
+// { dg-require-c-std "" }
+// { dg-add-options ieee }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.7 cyl_bessel_i
+
+#include <cmath>
+#include <testsuite_hooks.h>
+
+void
+test01()
+{
+ float xf = std::numeric_limits<float>::quiet_NaN();
+ double xd = std::numeric_limits<double>::quiet_NaN();
+ long double xl = std::numeric_limits<long double>::quiet_NaN();
+
+ float nuf = 0.0F;
+ double nud = 0.0;
+ long double nul = 0.0L;
+
+ float a = std::cyl_bessel_i(nuf, xf);
+ float b = std::cyl_bessel_if(nuf, xf);
+ double c = std::cyl_bessel_i(nud, xd);
+ long double d = std::cyl_bessel_i(nul, xl);
+ long double e = std::cyl_bessel_il(nul, xl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+void
+test02()
+{
+ float xf = 1.0F;
+ double xd = 1.0;
+ long double xl = 1.0L;
+
+ float nuf = std::numeric_limits<float>::quiet_NaN();
+ double nud = std::numeric_limits<double>::quiet_NaN();
+ long double nul = std::numeric_limits<long double>::quiet_NaN();
+
+ float a = std::cyl_bessel_i(nuf, xf);
+ float b = std::cyl_bessel_if(nuf, xf);
+ double c = std::cyl_bessel_i(nud, xd);
+ long double d = std::cyl_bessel_i(nul, xl);
+ long double e = std::cyl_bessel_il(nul, xl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+int
+main()
+{
+ test01();
+ test02();
+ return 0;
+}
+
Index: testsuite/special_functions/07_cyl_bessel_i/check_value.cc
===================================================================
--- testsuite/special_functions/07_cyl_bessel_i/check_value.cc (revision 0)
+++ testsuite/special_functions/07_cyl_bessel_i/check_value.cc (working copy)
@@ -0,0 +1,692 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+//
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// cyl_bessel_i
+// Compare against values generated by the GNU Scientific Library.
+// The GSL can be found on the web: http://www.gnu.org/software/gsl/
+#include <limits>
+#include <cmath>
+#if defined(__TEST_DEBUG)
+# include <iostream>
+# define VERIFY(A) \
+ if (!(A)) \
+ { \
+ std::cout << "line " << __LINE__ \
+ << " max_abs_frac = " << max_abs_frac \
+ << std::endl; \
+ }
+#else
+# include <testsuite_hooks.h>
+#endif
+#include <specfun_testcase.h>
+
+
+// Test data for nu=0.0000000000000000.
+// max(|f - f_GSL|): 2.8421709430404007e-14
+// max(|f - f_GSL| / |f_GSL|): 1.3916073135966565e-15
+const testcase_cyl_bessel_i<double>
+data001[21] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000 },
+ { 1.0156861412236078, 0.0000000000000000, 0.25000000000000000 },
+ { 1.0634833707413236, 0.0000000000000000, 0.50000000000000000 },
+ { 1.1456467780440014, 0.0000000000000000, 0.75000000000000000 },
+ { 1.2660658777520082, 0.0000000000000000, 1.0000000000000000 },
+ { 1.4304687177218294, 0.0000000000000000, 1.2500000000000000 },
+ { 1.6467231897728904, 0.0000000000000000, 1.5000000000000000 },
+ { 1.9252521538585023, 0.0000000000000000, 1.7500000000000000 },
+ { 2.2795853023360668, 0.0000000000000000, 2.0000000000000000 },
+ { 2.7270783071907951, 0.0000000000000000, 2.2500000000000000 },
+ { 3.2898391440501231, 0.0000000000000000, 2.5000000000000000 },
+ { 3.9959131072376550, 0.0000000000000000, 2.7500000000000000 },
+ { 4.8807925858650245, 0.0000000000000000, 3.0000000000000000 },
+ { 5.9893359979395138, 0.0000000000000000, 3.2500000000000000 },
+ { 7.3782034322254750, 0.0000000000000000, 3.5000000000000000 },
+ { 9.1189458608445655, 0.0000000000000000, 3.7500000000000000 },
+ { 11.301921952136325, 0.0000000000000000, 4.0000000000000000 },
+ { 14.041263683000595, 0.0000000000000000, 4.2500000000000000 },
+ { 17.481171855609272, 0.0000000000000000, 4.5000000000000000 },
+ { 21.803898740902120, 0.0000000000000000, 4.7500000000000000 },
+ { 27.239871823604439, 0.0000000000000000, 5.0000000000000000 },
+};
+const double toler001 = 2.5000000000000020e-13;
+
+// Test data for nu=0.33333333333333331.
+// max(|f - f_GSL|): 1.0658141036401503e-14
+// max(|f - f_GSL| / |f_GSL|): 1.1056193696204194e-15
+const testcase_cyl_bessel_i<double>
+data002[21] =
+{
+ { 0.0000000000000000, 0.33333333333333331, 0.0000000000000000 },
+ { 0.56650686557808660, 0.33333333333333331, 0.25000000000000000 },
+ { 0.73897315642511863, 0.33333333333333331, 0.50000000000000000 },
+ { 0.89532320365836804, 0.33333333333333331, 0.75000000000000000 },
+ { 1.0646313978895285, 0.33333333333333331, 1.0000000000000000 },
+ { 1.2623776732605250, 0.33333333333333331, 1.2500000000000000 },
+ { 1.5014290000224382, 0.33333333333333331, 1.5000000000000000 },
+ { 1.7951195525946044, 0.33333333333333331, 1.7500000000000000 },
+ { 2.1587825813728614, 0.33333333333333331, 2.0000000000000000 },
+ { 2.6109134564811405, 0.33333333333333331, 2.2500000000000000 },
+ { 3.1743242297241938, 0.33333333333333331, 2.5000000000000000 },
+ { 3.8774551722182107, 0.33333333333333331, 2.7500000000000000 },
+ { 4.7559569371646946, 0.33333333333333331, 3.0000000000000000 },
+ { 5.8546499652731825, 0.33333333333333331, 3.2500000000000000 },
+ { 7.2299798619171147, 0.33333333333333331, 3.5000000000000000 },
+ { 8.9531114355506318, 0.33333333333333331, 3.7500000000000000 },
+ { 11.113838389991479, 0.33333333333333331, 4.0000000000000000 },
+ { 13.825531136529117, 0.33333333333333331, 4.2500000000000000 },
+ { 17.231403968478318, 0.33333333333333331, 4.5000000000000000 },
+ { 21.512458099556554, 0.33333333333333331, 4.7500000000000000 },
+ { 26.897553069268362, 0.33333333333333331, 5.0000000000000000 },
+};
+const double toler002 = 2.5000000000000020e-13;
+
+// Test data for nu=0.50000000000000000.
+// max(|f - f_GSL|): 1.4210854715202004e-14
+// max(|f - f_GSL| / |f_GSL|): 1.2805693909168510e-15
+const testcase_cyl_bessel_i<double>
+data003[21] =
+{
+ { 0.0000000000000000, 0.50000000000000000, 0.0000000000000000 },
+ { 0.40311093489975897, 0.50000000000000000, 0.25000000000000000 },
+ { 0.58799308679041573, 0.50000000000000000, 0.50000000000000000 },
+ { 0.75761498638991298, 0.50000000000000000, 0.75000000000000000 },
+ { 0.93767488824548695, 0.50000000000000000, 1.0000000000000000 },
+ { 1.1432089853159872, 0.50000000000000000, 1.2500000000000000 },
+ { 1.3871617204034761, 0.50000000000000000, 1.5000000000000000 },
+ { 1.6830217804556815, 0.50000000000000000, 1.7500000000000000 },
+ { 2.0462368630890526, 0.50000000000000000, 2.0000000000000000 },
+ { 2.4953405089360041, 0.50000000000000000, 2.2500000000000000 },
+ { 3.0530935381967175, 0.50000000000000000, 2.5000000000000000 },
+ { 3.7477882494879449, 0.50000000000000000, 2.7500000000000000 },
+ { 4.6148229034075969, 0.50000000000000000, 3.0000000000000000 },
+ { 5.6986505325335495, 0.50000000000000000, 3.2500000000000000 },
+ { 7.0552194086911877, 0.50000000000000000, 3.5000000000000000 },
+ { 8.7550467841188944, 0.50000000000000000, 3.7500000000000000 },
+ { 10.887101798588422, 0.50000000000000000, 4.0000000000000000 },
+ { 13.563718712579764, 0.50000000000000000, 4.2500000000000000 },
+ { 16.926820080158183, 0.50000000000000000, 4.5000000000000000 },
+ { 21.155804306570005, 0.50000000000000000, 4.7500000000000000 },
+ { 26.477547497559065, 0.50000000000000000, 5.0000000000000000 },
+};
+const double toler003 = 2.5000000000000020e-13;
+
+// Test data for nu=0.66666666666666663.
+// max(|f - f_GSL|): 1.2434497875801753e-14
+// max(|f - f_GSL| / |f_GSL|): 1.3900778397944649e-15
+const testcase_cyl_bessel_i<double>
+data004[21] =
+{
+ { 0.0000000000000000, 0.66666666666666663, 0.0000000000000000 },
+ { 0.27953690613200438, 0.66666666666666663, 0.25000000000000000 },
+ { 0.45628323113556879, 0.66666666666666663, 0.50000000000000000 },
+ { 0.62594569838182612, 0.66666666666666663, 0.75000000000000000 },
+ { 0.80752128860612948, 0.66666666666666663, 1.0000000000000000 },
+ { 1.0139484513577168, 0.66666666666666663, 1.2500000000000000 },
+ { 1.2572918396962991, 0.66666666666666663, 1.5000000000000000 },
+ { 1.5505806938325577, 0.66666666666666663, 1.7500000000000000 },
+ { 1.9089492968236206, 0.66666666666666663, 2.0000000000000000 },
+ { 2.3506463490300331, 0.66666666666666663, 2.2500000000000000 },
+ { 2.8981161894224892, 0.66666666666666663, 2.5000000000000000 },
+ { 3.5792654911068720, 0.66666666666666663, 2.7500000000000000 },
+ { 4.4290087213549505, 0.66666666666666663, 3.0000000000000000 },
+ { 5.4911895720097688, 0.66666666666666663, 3.2500000000000000 },
+ { 6.8209918044137305, 0.66666666666666663, 3.5000000000000000 },
+ { 8.4879784249619767, 0.66666666666666663, 3.7500000000000000 },
+ { 10.579932774013002, 0.66666666666666663, 4.0000000000000000 },
+ { 13.207720355482458, 0.66666666666666663, 4.2500000000000000 },
+ { 16.511448404200543, 0.66666666666666663, 4.5000000000000000 },
+ { 20.668274532832392, 0.66666666666666663, 4.7500000000000000 },
+ { 25.902310583215122, 0.66666666666666663, 5.0000000000000000 },
+};
+const double toler004 = 2.5000000000000020e-13;
+
+// Test data for nu=1.0000000000000000.
+// max(|f - f_GSL|): 3.5527136788005009e-15
+// max(|f - f_GSL| / |f_GSL|): 2.2031887547040326e-16
+const testcase_cyl_bessel_i<double>
+data005[21] =
+{
+ { 0.0000000000000000, 1.0000000000000000, 0.0000000000000000 },
+ { 0.12597910894546793, 1.0000000000000000, 0.25000000000000000 },
+ { 0.25789430539089631, 1.0000000000000000, 0.50000000000000000 },
+ { 0.40199246158092228, 1.0000000000000000, 0.75000000000000000 },
+ { 0.56515910399248503, 1.0000000000000000, 1.0000000000000000 },
+ { 0.75528141834074725, 1.0000000000000000, 1.2500000000000000 },
+ { 0.98166642857790720, 1.0000000000000000, 1.5000000000000000 },
+ { 1.2555375122401731, 1.0000000000000000, 1.7500000000000000 },
+ { 1.5906368546373291, 1.0000000000000000, 2.0000000000000000 },
+ { 2.0039674569295931, 1.0000000000000000, 2.2500000000000000 },
+ { 2.5167162452886984, 1.0000000000000000, 2.5000000000000000 },
+ { 3.1554101386190028, 1.0000000000000000, 2.7500000000000000 },
+ { 3.9533702174026097, 1.0000000000000000, 3.0000000000000000 },
+ { 4.9525461659085490, 1.0000000000000000, 3.2500000000000000 },
+ { 6.2058349222583642, 1.0000000000000000, 3.5000000000000000 },
+ { 7.7800152298244161, 1.0000000000000000, 3.7500000000000000 },
+ { 9.7594651537044488, 1.0000000000000000, 4.0000000000000000 },
+ { 12.250874667409304, 1.0000000000000000, 4.2500000000000000 },
+ { 15.389222753735924, 1.0000000000000000, 4.5000000000000000 },
+ { 19.345361447520226, 1.0000000000000000, 4.7500000000000000 },
+ { 24.335642142450524, 1.0000000000000000, 5.0000000000000000 },
+};
+const double toler005 = 2.5000000000000020e-13;
+
+// Test data for nu=2.0000000000000000.
+// max(|f - f_GSL|): 1.7763568394002505e-15
+// max(|f - f_GSL| / |f_GSL|): 2.2089187702829171e-16
+const testcase_cyl_bessel_i<double>
+data006[21] =
+{
+ { 0.0000000000000000, 2.0000000000000000, 0.0000000000000000 },
+ { 0.0078532696598645167, 2.0000000000000000, 0.25000000000000000 },
+ { 0.031906149177738249, 2.0000000000000000, 0.50000000000000000 },
+ { 0.073666880494875436, 2.0000000000000000, 0.75000000000000000 },
+ { 0.13574766976703831, 2.0000000000000000, 1.0000000000000000 },
+ { 0.22201844837663415, 2.0000000000000000, 1.2500000000000000 },
+ { 0.33783461833568068, 2.0000000000000000, 1.5000000000000000 },
+ { 0.49035213986973319, 2.0000000000000000, 1.7500000000000000 },
+ { 0.68894844769873831, 2.0000000000000000, 2.0000000000000000 },
+ { 0.94577390103115722, 2.0000000000000000, 2.2500000000000000 },
+ { 1.2764661478191643, 2.0000000000000000, 2.5000000000000000 },
+ { 1.7010693700601991, 2.0000000000000000, 2.7500000000000000 },
+ { 2.2452124409299512, 2.0000000000000000, 3.0000000000000000 },
+ { 2.9416152804573357, 2.0000000000000000, 3.2500000000000000 },
+ { 3.8320120480778415, 2.0000000000000000, 3.5000000000000000 },
+ { 4.9696044049382113, 2.0000000000000000, 3.7500000000000000 },
+ { 6.4221893752841046, 2.0000000000000000, 4.0000000000000000 },
+ { 8.2761461924550552, 2.0000000000000000, 4.2500000000000000 },
+ { 10.641517298393307, 2.0000000000000000, 4.5000000000000000 },
+ { 13.658483394577813, 2.0000000000000000, 4.7500000000000000 },
+ { 17.505614966624233, 2.0000000000000000, 5.0000000000000000 },
+};
+const double toler006 = 2.5000000000000020e-13;
+
+// Test data for nu=5.0000000000000000.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 1.6610041744866592e-15
+const testcase_cyl_bessel_i<double>
+data007[21] =
+{
+ { 0.0000000000000000, 5.0000000000000000, 0.0000000000000000 },
+ { 2.5497616449882785e-07, 5.0000000000000000, 0.25000000000000000 },
+ { 8.2231713131092646e-06, 5.0000000000000000, 0.50000000000000000 },
+ { 6.3261122739811725e-05, 5.0000000000000000, 0.75000000000000000 },
+ { 0.00027146315595697195, 5.0000000000000000, 1.0000000000000000 },
+ { 0.00084793613616686856, 5.0000000000000000, 1.2500000000000000 },
+ { 0.0021705595690975554, 5.0000000000000000, 1.5000000000000000 },
+ { 0.0048504513371845394, 5.0000000000000000, 1.7500000000000000 },
+ { 0.0098256793231317023, 5.0000000000000000, 2.0000000000000000 },
+ { 0.018486577941045829, 5.0000000000000000, 2.2500000000000000 },
+ { 0.032843475172023219, 5.0000000000000000, 2.5000000000000000 },
+ { 0.055750882754221943, 5.0000000000000000, 2.7500000000000000 },
+ { 0.091206477661513338, 5.0000000000000000, 3.0000000000000000 },
+ { 0.14474880546308083, 5.0000000000000000, 3.2500000000000000 },
+ { 0.22398495470190780, 5.0000000000000000, 3.5000000000000000 },
+ { 0.33928899170999866, 5.0000000000000000, 3.7500000000000000 },
+ { 0.50472436311316626, 5.0000000000000000, 4.0000000000000000 },
+ { 0.73925961816682961, 5.0000000000000000, 4.2500000000000000 },
+ { 1.0683677743764699, 5.0000000000000000, 4.5000000000000000 },
+ { 1.5261268693599621, 5.0000000000000000, 4.7500000000000000 },
+ { 2.1579745473225476, 5.0000000000000000, 5.0000000000000000 },
+};
+const double toler007 = 2.5000000000000020e-13;
+
+// Test data for nu=10.000000000000000.
+// max(|f - f_GSL|): 9.5409791178724390e-18
+// max(|f - f_GSL| / |f_GSL|): 3.9173270279899483e-15
+const testcase_cyl_bessel_i<double>
+data008[21] =
+{
+ { 0.0000000000000000, 10.000000000000000, 0.0000000000000000 },
+ { 2.5701232848571186e-16, 10.000000000000000, 0.25000000000000000 },
+ { 2.6430419258812784e-13, 10.000000000000000, 0.50000000000000000 },
+ { 1.5349659676120412e-11, 10.000000000000000, 0.75000000000000000 },
+ { 2.7529480398368732e-10, 10.000000000000000, 1.0000000000000000 },
+ { 2.5967897782035928e-09, 10.000000000000000, 1.2500000000000000 },
+ { 1.6330924437799743e-08, 10.000000000000000, 1.5000000000000000 },
+ { 7.7706676834614093e-08, 10.000000000000000, 1.7500000000000000 },
+ { 3.0169638793506839e-07, 10.000000000000000, 2.0000000000000000 },
+ { 1.0034459057774481e-06, 10.000000000000000, 2.2500000000000000 },
+ { 2.9557436109680578e-06, 10.000000000000000, 2.5000000000000000 },
+ { 7.8955603774082724e-06, 10.000000000000000, 2.7500000000000000 },
+ { 1.9464393470612970e-05, 10.000000000000000, 3.0000000000000000 },
+ { 4.4875369479742435e-05, 10.000000000000000, 3.2500000000000000 },
+ { 9.7760848514528916e-05, 10.000000000000000, 3.5000000000000000 },
+ { 0.00020289011210063493, 10.000000000000000, 3.7500000000000000 },
+ { 0.00040378896132693047, 10.000000000000000, 4.0000000000000000 },
+ { 0.00077478519551669892, 10.000000000000000, 4.2500000000000000 },
+ { 0.0014397060684919682, 10.000000000000000, 4.5000000000000000 },
+ { 0.0026004486016189452, 10.000000000000000, 4.7500000000000000 },
+ { 0.0045800444191760525, 10.000000000000000, 5.0000000000000000 },
+};
+const double toler008 = 2.5000000000000020e-13;
+
+// Test data for nu=20.000000000000000.
+// max(|f - f_GSL|): 2.9080568410067379e-26
+// max(|f - f_GSL| / |f_GSL|): 2.1318627676504474e-15
+const testcase_cyl_bessel_i<double>
+data009[21] =
+{
+ { 0.0000000000000000, 20.000000000000000, 0.0000000000000000 },
+ { 3.5677858077910353e-37, 20.000000000000000, 0.25000000000000000 },
+ { 3.7494538480790194e-31, 20.000000000000000, 0.50000000000000000 },
+ { 1.2514356342425337e-27, 20.000000000000000, 0.75000000000000000 },
+ { 3.9668359858190197e-25, 20.000000000000000, 1.0000000000000000 },
+ { 3.4637832909868234e-23, 20.000000000000000, 1.2500000000000000 },
+ { 1.3388331839683472e-21, 20.000000000000000, 1.5000000000000000 },
+ { 2.9502376732679751e-20, 20.000000000000000, 1.7500000000000000 },
+ { 4.3105605761095479e-19, 20.000000000000000, 2.0000000000000000 },
+ { 4.6032451406433059e-18, 20.000000000000000, 2.2500000000000000 },
+ { 3.8400317244170310e-17, 20.000000000000000, 2.5000000000000000 },
+ { 2.6239115263043263e-16, 20.000000000000000, 2.7500000000000000 },
+ { 1.5209660019426689e-15, 20.000000000000000, 3.0000000000000000 },
+ { 7.6806450728249953e-15, 20.000000000000000, 3.2500000000000000 },
+ { 3.4495528847222945e-14, 20.000000000000000, 3.5000000000000000 },
+ { 1.4006589294850672e-13, 20.000000000000000, 3.7500000000000000 },
+ { 5.2100734221993044e-13, 20.000000000000000, 4.0000000000000000 },
+ { 1.7946903269488168e-12, 20.000000000000000, 4.2500000000000000 },
+ { 5.7763830562279683e-12, 20.000000000000000, 4.5000000000000000 },
+ { 1.7502433074548735e-11, 20.000000000000000, 4.7500000000000000 },
+ { 5.0242393579718066e-11, 20.000000000000000, 5.0000000000000000 },
+};
+const double toler009 = 2.5000000000000020e-13;
+// cyl_bessel_i
+
+// Test data for nu=0.0000000000000000.
+// max(|f - f_GSL|): 2.5687255815171641e+28
+// max(|f - f_GSL| / |f_GSL|): 2.3922901025046178e-14
+const testcase_cyl_bessel_i<double>
+data010[21] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000 },
+ { 27.239871823604439, 0.0000000000000000, 5.0000000000000000 },
+ { 2815.7166284662558, 0.0000000000000000, 10.000000000000000 },
+ { 339649.37329791381, 0.0000000000000000, 15.000000000000000 },
+ { 43558282.559553474, 0.0000000000000000, 20.000000000000000 },
+ { 5774560606.4663124, 0.0000000000000000, 25.000000000000000 },
+ { 781672297823.97925, 0.0000000000000000, 30.000000000000000 },
+ { 107338818494514.42, 0.0000000000000000, 35.000000000000000 },
+ { 14894774793419918., 0.0000000000000000, 40.000000000000000 },
+ { 2.0834140751773164e+18, 0.0000000000000000, 45.000000000000000 },
+ { 2.9325537838493457e+20, 0.0000000000000000, 50.000000000000000 },
+ { 4.1487895607332160e+22, 0.0000000000000000, 55.000000000000000 },
+ { 5.8940770556098216e+24, 0.0000000000000000, 60.000000000000000 },
+ { 8.4030398456255596e+26, 0.0000000000000000, 65.000000000000000 },
+ { 1.2015889579125424e+29, 0.0000000000000000, 70.000000000000000 },
+ { 1.7226390780357976e+31, 0.0000000000000000, 75.000000000000000 },
+ { 2.4751784043341661e+33, 0.0000000000000000, 80.000000000000000 },
+ { 3.5634776304081403e+35, 0.0000000000000000, 85.000000000000000 },
+ { 5.1392383455086475e+37, 0.0000000000000000, 90.000000000000000 },
+ { 7.4233258618752072e+39, 0.0000000000000000, 95.000000000000000 },
+ { 1.0737517071310986e+42, 0.0000000000000000, 100.00000000000000 },
+};
+const double toler010 = 2.5000000000000015e-12;
+
+// Test data for nu=0.33333333333333331.
+// max(|f - f_GSL|): 1.0831975343747077e+28
+// max(|f - f_GSL| / |f_GSL|): 1.2017640663876795e-14
+const testcase_cyl_bessel_i<double>
+data011[21] =
+{
+ { 0.0000000000000000, 0.33333333333333331, 0.0000000000000000 },
+ { 26.897553069268362, 0.33333333333333331, 5.0000000000000000 },
+ { 2799.2396097056790, 0.33333333333333331, 10.000000000000000 },
+ { 338348.63146593666, 0.33333333333333331, 15.000000000000000 },
+ { 43434263.927938424, 0.33333333333333331, 20.000000000000000 },
+ { 5761474759.6213636, 0.33333333333333331, 25.000000000000000 },
+ { 780201111830.30237, 0.33333333333333331, 30.000000000000000 },
+ { 107166066959051.91, 0.33333333333333331, 35.000000000000000 },
+ { 14873836574083764., 0.33333333333333331, 40.000000000000000 },
+ { 2.0808143020217085e+18, 0.33333333333333331, 45.000000000000000 },
+ { 2.9292639365644226e+20, 0.33333333333333331, 50.000000000000000 },
+ { 4.1445621624120489e+22, 0.33333333333333331, 55.000000000000000 },
+ { 5.8885758374365916e+24, 0.33333333333333331, 60.000000000000000 },
+ { 8.3958047021083955e+26, 0.33333333333333331, 65.000000000000000 },
+ { 1.2006287819446431e+29, 0.33333333333333331, 70.000000000000000 },
+ { 1.7213548977150022e+31, 0.33333333333333331, 75.000000000000000 },
+ { 2.4734492458444449e+33, 0.33333333333333331, 80.000000000000000 },
+ { 3.5611354547857122e+35, 0.33333333333333331, 85.000000000000000 },
+ { 5.1360491295551848e+37, 0.33333333333333331, 90.000000000000000 },
+ { 7.4189629097600431e+39, 0.33333333333333331, 95.000000000000000 },
+ { 1.0731523308358370e+42, 0.33333333333333331, 100.00000000000000 },
+};
+const double toler011 = 1.0000000000000008e-12;
+
+// Test data for nu=0.50000000000000000.
+// max(|f - f_GSL|): 6.9634127209802640e+27
+// max(|f - f_GSL| / |f_GSL|): 1.1904152155149629e-14
+const testcase_cyl_bessel_i<double>
+data012[21] =
+{
+ { 0.0000000000000000, 0.50000000000000000, 0.0000000000000000 },
+ { 26.477547497559065, 0.50000000000000000, 5.0000000000000000 },
+ { 2778.7846038745711, 0.50000000000000000, 10.000000000000000 },
+ { 336729.88718706399, 0.50000000000000000, 15.000000000000000 },
+ { 43279746.272428922, 0.50000000000000000, 20.000000000000000 },
+ { 5745159748.3464680, 0.50000000000000000, 25.000000000000000 },
+ { 778366068840.44580, 0.50000000000000000, 30.000000000000000 },
+ { 106950522408567.66, 0.50000000000000000, 35.000000000000000 },
+ { 14847705549021962., 0.50000000000000000, 40.000000000000000 },
+ { 2.0775691824625661e+18, 0.50000000000000000, 45.000000000000000 },
+ { 2.9251568529912984e+20, 0.50000000000000000, 50.000000000000000 },
+ { 4.1392840094781220e+22, 0.50000000000000000, 55.000000000000000 },
+ { 5.8817065760751945e+24, 0.50000000000000000, 60.000000000000000 },
+ { 8.3867695787277258e+26, 0.50000000000000000, 65.000000000000000 },
+ { 1.1994296461653203e+29, 0.50000000000000000, 70.000000000000000 },
+ { 1.7197510246063334e+31, 0.50000000000000000, 75.000000000000000 },
+ { 2.4712895036230794e+33, 0.50000000000000000, 80.000000000000000 },
+ { 3.5582099086757769e+35, 0.50000000000000000, 85.000000000000000 },
+ { 5.1320654031231128e+37, 0.50000000000000000, 90.000000000000000 },
+ { 7.4135128383495239e+39, 0.50000000000000000, 95.000000000000000 },
+ { 1.0724035825423179e+42, 0.50000000000000000, 100.00000000000000 },
+};
+const double toler012 = 1.0000000000000008e-12;
+
+// Test data for nu=0.66666666666666663.
+// max(|f - f_GSL|): 4.4875326424095035e+27
+// max(|f - f_GSL| / |f_GSL|): 8.8432218147527708e-15
+const testcase_cyl_bessel_i<double>
+data013[21] =
+{
+ { 0.0000000000000000, 0.66666666666666663, 0.0000000000000000 },
+ { 25.902310583215122, 0.66666666666666663, 5.0000000000000000 },
+ { 2750.4090423459315, 0.66666666666666663, 10.000000000000000 },
+ { 334476.98138574377, 0.66666666666666663, 15.000000000000000 },
+ { 43064361.686912313, 0.66666666666666663, 20.000000000000000 },
+ { 5722397441.9603882, 0.66666666666666663, 25.000000000000000 },
+ { 775804343498.02661, 0.66666666666666663, 30.000000000000000 },
+ { 106649495512800.88, 0.66666666666666663, 35.000000000000000 },
+ { 14811199896983756., 0.66666666666666663, 40.000000000000000 },
+ { 2.0730345814356961e+18, 0.66666666666666663, 45.000000000000000 },
+ { 2.9194166755257467e+20, 0.66666666666666663, 50.000000000000000 },
+ { 4.1319059569935374e+22, 0.66666666666666663, 55.000000000000000 },
+ { 5.8721031476386222e+24, 0.66666666666666663, 60.000000000000000 },
+ { 8.3741368248217844e+26, 0.66666666666666663, 65.000000000000000 },
+ { 1.1977528777008688e+29, 0.66666666666666663, 70.000000000000000 },
+ { 1.7175081240014333e+31, 0.66666666666666663, 75.000000000000000 },
+ { 2.4682690458513916e+33, 0.66666666666666663, 80.000000000000000 },
+ { 3.5541181975850724e+35, 0.66666666666666663, 85.000000000000000 },
+ { 5.1264933963228892e+37, 0.66666666666666663, 90.000000000000000 },
+ { 7.4058894880134064e+39, 0.66666666666666663, 95.000000000000000 },
+ { 1.0713562154788124e+42, 0.66666666666666663, 100.00000000000000 },
+};
+const double toler013 = 5.0000000000000039e-13;
+
+// Test data for nu=1.0000000000000000.
+// max(|f - f_GSL|): 5.7254726816948838e+27
+// max(|f - f_GSL| / |f_GSL|): 7.0819761463168391e-15
+const testcase_cyl_bessel_i<double>
+data014[21] =
+{
+ { 0.0000000000000000, 1.0000000000000000, 0.0000000000000000 },
+ { 24.335642142450524, 1.0000000000000000, 5.0000000000000000 },
+ { 2670.9883037012560, 1.0000000000000000, 10.000000000000000 },
+ { 328124.92197020649, 1.0000000000000000, 15.000000000000000 },
+ { 42454973.385127783, 1.0000000000000000, 20.000000000000000 },
+ { 5657865129.8787022, 1.0000000000000000, 25.000000000000000 },
+ { 768532038938.95667, 1.0000000000000000, 30.000000000000000 },
+ { 105794126051896.17, 1.0000000000000000, 35.000000000000000 },
+ { 14707396163259354., 1.0000000000000000, 40.000000000000000 },
+ { 2.0601334620815780e+18, 1.0000000000000000, 45.000000000000000 },
+ { 2.9030785901035638e+20, 1.0000000000000000, 50.000000000000000 },
+ { 4.1108986452992812e+22, 1.0000000000000000, 55.000000000000000 },
+ { 5.8447515883904527e+24, 1.0000000000000000, 60.000000000000000 },
+ { 8.3381485471501302e+26, 1.0000000000000000, 65.000000000000000 },
+ { 1.1929750788892366e+29, 1.0000000000000000, 70.000000000000000 },
+ { 1.7111160152965382e+31, 1.0000000000000000, 75.000000000000000 },
+ { 2.4596595795675343e+33, 1.0000000000000000, 80.000000000000000 },
+ { 3.5424536064404024e+35, 1.0000000000000000, 85.000000000000000 },
+ { 5.1106068152566129e+37, 1.0000000000000000, 90.000000000000000 },
+ { 7.3841518091360182e+39, 1.0000000000000000, 95.000000000000000 },
+ { 1.0683693903381569e+42, 1.0000000000000000, 100.00000000000000 },
+};
+const double toler014 = 5.0000000000000039e-13;
+
+// Test data for nu=2.0000000000000000.
+// max(|f - f_GSL|): 6.3444427013375739e+27
+// max(|f - f_GSL| / |f_GSL|): 6.0286366727804324e-15
+const testcase_cyl_bessel_i<double>
+data015[21] =
+{
+ { 0.0000000000000000, 2.0000000000000000, 0.0000000000000000 },
+ { 17.505614966624233, 2.0000000000000000, 5.0000000000000000 },
+ { 2281.5189677260046, 2.0000000000000000, 10.000000000000000 },
+ { 295899.38370188628, 2.0000000000000000, 15.000000000000000 },
+ { 39312785.221040756, 2.0000000000000000, 20.000000000000000 },
+ { 5321931396.0760155, 2.0000000000000000, 25.000000000000000 },
+ { 730436828561.38013, 2.0000000000000000, 30.000000000000000 },
+ { 101293439862977.19, 2.0000000000000000, 35.000000000000000 },
+ { 14159404985256922., 2.0000000000000000, 40.000000000000000 },
+ { 1.9918525879736883e+18, 2.0000000000000000, 45.000000000000000 },
+ { 2.8164306402451938e+20, 2.0000000000000000, 50.000000000000000 },
+ { 3.9993023372677540e+22, 2.0000000000000000, 55.000000000000000 },
+ { 5.6992520026634433e+24, 2.0000000000000000, 60.000000000000000 },
+ { 8.1464814287900378e+26, 2.0000000000000000, 65.000000000000000 },
+ { 1.1675039556585663e+29, 2.0000000000000000, 70.000000000000000 },
+ { 1.6770093176278926e+31, 2.0000000000000000, 75.000000000000000 },
+ { 2.4136869148449879e+33, 2.0000000000000000, 80.000000000000000 },
+ { 3.4801257808448186e+35, 2.0000000000000000, 85.000000000000000 },
+ { 5.0256693051696307e+37, 2.0000000000000000, 90.000000000000000 },
+ { 7.2678700343145818e+39, 2.0000000000000000, 95.000000000000000 },
+ { 1.0523843193243042e+42, 2.0000000000000000, 100.00000000000000 },
+};
+const double toler015 = 5.0000000000000039e-13;
+
+// Test data for nu=5.0000000000000000.
+// max(|f - f_GSL|): 7.7371252455336267e+26
+// max(|f - f_GSL| / |f_GSL|): 1.6729319922562276e-15
+const testcase_cyl_bessel_i<double>
+data016[21] =
+{
+ { 0.0000000000000000, 5.0000000000000000, 0.0000000000000000 },
+ { 2.1579745473225476, 5.0000000000000000, 5.0000000000000000 },
+ { 777.18828640326012, 5.0000000000000000, 10.000000000000000 },
+ { 144572.01120063409, 5.0000000000000000, 15.000000000000000 },
+ { 23018392.213413671, 5.0000000000000000, 20.000000000000000 },
+ { 3472466208.7419176, 5.0000000000000000, 25.000000000000000 },
+ { 512151465476.93494, 5.0000000000000000, 30.000000000000000 },
+ { 74756743552251.547, 5.0000000000000000, 35.000000000000000 },
+ { 10858318337624280., 5.0000000000000000, 40.000000000000000 },
+ { 1.5736087399245911e+18, 5.0000000000000000, 45.000000000000000 },
+ { 2.2785483079112825e+20, 5.0000000000000000, 50.000000000000000 },
+ { 3.2989391052963687e+22, 5.0000000000000000, 55.000000000000000 },
+ { 4.7777652072561732e+24, 5.0000000000000000, 60.000000000000000 },
+ { 6.9232165147172657e+26, 5.0000000000000000, 65.000000000000000 },
+ { 1.0038643002095155e+29, 5.0000000000000000, 70.000000000000000 },
+ { 1.4566328222327073e+31, 5.0000000000000000, 75.000000000000000 },
+ { 2.1151488565944835e+33, 5.0000000000000000, 80.000000000000000 },
+ { 3.0735883450768239e+35, 5.0000000000000000, 85.000000000000000 },
+ { 4.4694790189230327e+37, 5.0000000000000000, 90.000000000000000 },
+ { 6.5037505570430995e+39, 5.0000000000000000, 95.000000000000000 },
+ { 9.4700938730355882e+41, 5.0000000000000000, 100.00000000000000 },
+};
+const double toler016 = 2.5000000000000020e-13;
+
+// Test data for nu=10.000000000000000.
+// max(|f - f_GSL|): 2.3211375736600880e+26
+// max(|f - f_GSL| / |f_GSL|): 3.0834307473515225e-15
+const testcase_cyl_bessel_i<double>
+data017[21] =
+{
+ { 0.0000000000000000, 10.000000000000000, 0.0000000000000000 },
+ { 0.0045800444191760525, 10.000000000000000, 5.0000000000000000 },
+ { 21.891706163723381, 10.000000000000000, 10.000000000000000 },
+ { 12267.475049806462, 10.000000000000000, 15.000000000000000 },
+ { 3540200.2090195213, 10.000000000000000, 20.000000000000000 },
+ { 771298871.17072666, 10.000000000000000, 25.000000000000000 },
+ { 145831809975.96710, 10.000000000000000, 30.000000000000000 },
+ { 25449470018534.777, 10.000000000000000, 35.000000000000000 },
+ { 4228469210516757.5, 10.000000000000000, 40.000000000000000 },
+ { 6.8049404557505165e+17, 10.000000000000000, 45.000000000000000 },
+ { 1.0715971594776370e+20, 10.000000000000000, 50.000000000000000 },
+ { 1.6618215752886714e+22, 10.000000000000000, 55.000000000000000 },
+ { 2.5486246072566784e+24, 10.000000000000000, 60.000000000000000 },
+ { 3.8764628702155481e+26, 10.000000000000000, 65.000000000000000 },
+ { 5.8592538145409686e+28, 10.000000000000000, 70.000000000000000 },
+ { 8.8135370711317444e+30, 10.000000000000000, 75.000000000000000 },
+ { 1.3207418268325279e+33, 10.000000000000000, 80.000000000000000 },
+ { 1.9732791360862190e+35, 10.000000000000000, 85.000000000000000 },
+ { 2.9411893748384672e+37, 10.000000000000000, 90.000000000000000 },
+ { 4.3754494922439984e+39, 10.000000000000000, 95.000000000000000 },
+ { 6.4989755247201446e+41, 10.000000000000000, 100.00000000000000 },
+};
+const double toler017 = 2.5000000000000020e-13;
+
+// Test data for nu=20.000000000000000.
+// max(|f - f_GSL|): 1.9342813113834067e+25
+// max(|f - f_GSL| / |f_GSL|): 4.7061265485304859e-15
+const testcase_cyl_bessel_i<double>
+data018[21] =
+{
+ { 0.0000000000000000, 20.000000000000000, 0.0000000000000000 },
+ { 5.0242393579718066e-11, 20.000000000000000, 5.0000000000000000 },
+ { 0.00012507997356449481, 20.000000000000000, 10.000000000000000 },
+ { 1.6470152535015836, 20.000000000000000, 15.000000000000000 },
+ { 3188.7503288536154, 20.000000000000000, 20.000000000000000 },
+ { 2449840.5422952301, 20.000000000000000, 25.000000000000000 },
+ { 1126985104.4483771, 20.000000000000000, 30.000000000000000 },
+ { 379617876611.88580, 20.000000000000000, 35.000000000000000 },
+ { 104459633129479.89, 20.000000000000000, 40.000000000000000 },
+ { 25039579987216524., 20.000000000000000, 45.000000000000000 },
+ { 5.4420084027529984e+18, 20.000000000000000, 50.000000000000000 },
+ { 1.1007498584335495e+21, 20.000000000000000, 55.000000000000000 },
+ { 2.1091734863057236e+23, 20.000000000000000, 60.000000000000000 },
+ { 3.8763618091286899e+25, 20.000000000000000, 65.000000000000000 },
+ { 6.8946130527930870e+27, 20.000000000000000, 70.000000000000000 },
+ { 1.1946319948836447e+30, 20.000000000000000, 75.000000000000000 },
+ { 2.0265314377577587e+32, 20.000000000000000, 80.000000000000000 },
+ { 3.3784665214179985e+34, 20.000000000000000, 85.000000000000000 },
+ { 5.5516089411796646e+36, 20.000000000000000, 90.000000000000000 },
+ { 9.0129310795305151e+38, 20.000000000000000, 95.000000000000000 },
+ { 1.4483461256427176e+41, 20.000000000000000, 100.00000000000000 },
+};
+const double toler018 = 2.5000000000000020e-13;
+
+// Test data for nu=50.000000000000000.
+// max(|f - f_GSL|): 4.5452777397620335e+22
+// max(|f - f_GSL| / |f_GSL|): 6.0191728870880627e-14
+const testcase_cyl_bessel_i<double>
+data019[21] =
+{
+ { 0.0000000000000000, 50.000000000000000, 0.0000000000000000 },
+ { 2.9314696468108517e-45, 50.000000000000000, 5.0000000000000000 },
+ { 4.7568945607268442e-30, 50.000000000000000, 10.000000000000000 },
+ { 5.5468372730667069e-21, 50.000000000000000, 15.000000000000000 },
+ { 2.2551205757604056e-14, 50.000000000000000, 20.000000000000000 },
+ { 4.5344251866130257e-09, 50.000000000000000, 25.000000000000000 },
+ { 0.00014590106916468940, 50.000000000000000, 30.000000000000000 },
+ { 1.3965549457254882, 50.000000000000000, 35.000000000000000 },
+ { 5726.8656631289896, 50.000000000000000, 40.000000000000000 },
+ { 12672593.113027781, 50.000000000000000, 45.000000000000000 },
+ { 17650802430.016712, 50.000000000000000, 50.000000000000000 },
+ { 17220231607789.926, 50.000000000000000, 55.000000000000000 },
+ { 12704607933652176., 50.000000000000000, 60.000000000000000 },
+ { 7.4989491942193725e+18, 50.000000000000000, 65.000000000000000 },
+ { 3.6944034898904922e+21, 50.000000000000000, 70.000000000000000 },
+ { 1.5691634774370186e+24, 50.000000000000000, 75.000000000000000 },
+ { 5.8927749458163587e+26, 50.000000000000000, 80.000000000000000 },
+ { 1.9958849054749339e+29, 50.000000000000000, 85.000000000000000 },
+ { 6.1946050361781500e+31, 50.000000000000000, 90.000000000000000 },
+ { 1.7845429728697119e+34, 50.000000000000000, 95.000000000000000 },
+ { 4.8219580855940819e+36, 50.000000000000000, 100.00000000000000 },
+};
+const double toler019 = 5.0000000000000029e-12;
+
+// Test data for nu=100.00000000000000.
+// max(|f - f_GSL|): 186646528.00000000
+// max(|f - f_GSL| / |f_GSL|): 2.8278213985558577e-13
+const testcase_cyl_bessel_i<double>
+data020[21] =
+{
+ { 0.0000000000000000, 100.00000000000000, 0.0000000000000000 },
+ { 7.0935514885313123e-119, 100.00000000000000, 5.0000000000000000 },
+ { 1.0823442017492018e-88, 100.00000000000000, 10.000000000000000 },
+ { 5.9887888536468904e-71, 100.00000000000000, 15.000000000000000 },
+ { 2.8703193216428771e-58, 100.00000000000000, 20.000000000000000 },
+ { 2.4426896913122370e-48, 100.00000000000000, 25.000000000000000 },
+ { 3.9476420053334271e-40, 100.00000000000000, 30.000000000000000 },
+ { 4.2836596180818780e-33, 100.00000000000000, 35.000000000000000 },
+ { 6.6249380222596129e-27, 100.00000000000000, 40.000000000000000 },
+ { 2.3702587262788900e-21, 100.00000000000000, 45.000000000000000 },
+ { 2.7278879470966917e-16, 100.00000000000000, 50.000000000000000 },
+ { 1.2763258878228082e-11, 100.00000000000000, 55.000000000000000 },
+ { 2.8832770906491972e-07, 100.00000000000000, 60.000000000000000 },
+ { 0.0035805902717061227, 100.00000000000000, 65.000000000000000 },
+ { 27.017219102595387, 100.00000000000000, 70.000000000000000 },
+ { 134001.44891209516, 100.00000000000000, 75.000000000000000 },
+ { 465194832.85060996, 100.00000000000000, 80.000000000000000 },
+ { 1189280653119.4814, 100.00000000000000, 85.000000000000000 },
+ { 2334119331258728.0, 100.00000000000000, 90.000000000000000 },
+ { 3.6399223078502436e+18, 100.00000000000000, 95.000000000000000 },
+ { 4.6415349416162005e+21, 100.00000000000000, 100.00000000000000 },
+};
+const double toler020 = 2.5000000000000014e-11;
+
+template<typename Tp, unsigned int Num>
+ void
+ test(const testcase_cyl_bessel_i<Tp> (&data)[Num], Tp toler)
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = Num;
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::cyl_bessel_i(data[i].nu, data[i].x);
+ const Tp f0 = data[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < toler);
+ }
+
+int
+main()
+{
+ test(data001, toler001);
+ test(data002, toler002);
+ test(data003, toler003);
+ test(data004, toler004);
+ test(data005, toler005);
+ test(data006, toler006);
+ test(data007, toler007);
+ test(data008, toler008);
+ test(data009, toler009);
+ test(data010, toler010);
+ test(data011, toler011);
+ test(data012, toler012);
+ test(data013, toler013);
+ test(data014, toler014);
+ test(data015, toler015);
+ test(data016, toler016);
+ test(data017, toler017);
+ test(data018, toler018);
+ test(data019, toler019);
+ test(data020, toler020);
+ return 0;
+}
Index: testsuite/special_functions/07_cyl_bessel_i/compile.cc
===================================================================
--- testsuite/special_functions/07_cyl_bessel_i/compile.cc (revision 0)
+++ testsuite/special_functions/07_cyl_bessel_i/compile.cc (working copy)
@@ -0,0 +1,41 @@
+// { dg-do compile }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.7 cyl_bessel_i
+
+#include <cmath>
+
+void
+test01()
+{
+
+ float nuf = 1.0F / 3.0F, xf = 0.5F;
+ double nud = 1.0 / 3.0, xd = 0.5;
+ long double nul = 1.0L / 3.0L, xl = 0.5L;
+
+ std::cyl_bessel_i(nuf, xf);
+ std::cyl_bessel_if(nuf, xf);
+ std::cyl_bessel_i(nud, xd);
+ std::cyl_bessel_i(nul, xl);
+ std::cyl_bessel_il(nul, xl);
+
+ return;
+}
+
Index: testsuite/special_functions/07_cyl_bessel_i/compile_2.cc
===================================================================
--- testsuite/special_functions/07_cyl_bessel_i/compile_2.cc (revision 0)
+++ testsuite/special_functions/07_cyl_bessel_i/compile_2.cc (working copy)
@@ -0,0 +1,41 @@
+// { dg-do compile { xfail *-*-* } }
+// { dg-excess-errors "" }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.7 cyl_bessel_i
+
+#include <math.h>
+
+void
+test01()
+{
+ float nuf = 1.0F / 3.0F, xf = 0.5F;
+ double nud = 1.0 / 3.0, xd = 0.5;
+ long double nul = 1.0L / 3.0L, xl = 0.5L;
+
+ cyl_bessel_i(nuf, xf);
+ cyl_bessel_if(nuf, xf);
+ cyl_bessel_i(nud, xd);
+ cyl_bessel_i(nul, xl);
+ cyl_bessel_il(nul, xl);
+
+ return;
+}
+
Index: testsuite/special_functions/07_cyl_bessel_i/pr56216.cc
===================================================================
--- testsuite/special_functions/07_cyl_bessel_i/pr56216.cc (revision 0)
+++ testsuite/special_functions/07_cyl_bessel_i/pr56216.cc (working copy)
@@ -0,0 +1,45 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+// Copyright (C) 2015 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// PR libstdc++/56216 - Crash of Bessel functions at x==0!
+
+#include <testsuite_hooks.h>
+#include <cmath>
+
+void
+test01()
+{
+ double j0 = std::cyl_bessel_j(0.0, 0.0);
+ double i0 = std::cyl_bessel_i(0.0, 0.0);
+ double j1 = std::cyl_bessel_j(1.0, 0.0);
+ double i1 = std::cyl_bessel_i(1.0, 0.0);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(j0 == 1.0);
+ VERIFY(i0 == 1.0);
+ VERIFY(j1 == 0.0);
+ VERIFY(i1 == 0.0);
+}
+
+int
+main()
+{
+ test01();
+
+ return 0;
+}
Index: testsuite/special_functions/08_cyl_bessel_j/check_nan.cc
===================================================================
--- testsuite/special_functions/08_cyl_bessel_j/check_nan.cc (revision 0)
+++ testsuite/special_functions/08_cyl_bessel_j/check_nan.cc (working copy)
@@ -0,0 +1,88 @@
+// { dg-require-c-std "" }
+// { dg-add-options ieee }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.8 cyl_bessel_j
+
+#include <cmath>
+#include <testsuite_hooks.h>
+
+void
+test01()
+{
+ float xf = std::numeric_limits<float>::quiet_NaN();
+ double xd = std::numeric_limits<double>::quiet_NaN();
+ long double xl = std::numeric_limits<long double>::quiet_NaN();
+
+ float nuf = 0.0F;
+ double nud = 0.0;
+ long double nul = 0.0L;
+
+ float a = std::cyl_bessel_j(nuf, xf);
+ float b = std::cyl_bessel_jf(nuf, xf);
+ double c = std::cyl_bessel_j(nud, xd);
+ long double d = std::cyl_bessel_j(nul, xl);
+ long double e = std::cyl_bessel_jl(nul, xl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+void
+test02()
+{
+ float xf = 1.0F;
+ double xd = 1.0;
+ long double xl = 1.0L;
+
+ float nuf = std::numeric_limits<float>::quiet_NaN();
+ double nud = std::numeric_limits<double>::quiet_NaN();
+ long double nul = std::numeric_limits<long double>::quiet_NaN();
+
+ float a = std::cyl_bessel_j(nuf, xf);
+ float b = std::cyl_bessel_jf(nuf, xf);
+ double c = std::cyl_bessel_j(nud, xd);
+ long double d = std::cyl_bessel_j(nul, xl);
+ long double e = std::cyl_bessel_jl(nul, xl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+int
+main()
+{
+ test01();
+ test02();
+ return 0;
+}
+
Index: testsuite/special_functions/08_cyl_bessel_j/check_value.cc
===================================================================
--- testsuite/special_functions/08_cyl_bessel_j/check_value.cc (revision 0)
+++ testsuite/special_functions/08_cyl_bessel_j/check_value.cc (working copy)
@@ -0,0 +1,692 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+//
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// cyl_bessel_j
+// Compare against values generated by the GNU Scientific Library.
+// The GSL can be found on the web: http://www.gnu.org/software/gsl/
+#include <limits>
+#include <cmath>
+#if defined(__TEST_DEBUG)
+# include <iostream>
+# define VERIFY(A) \
+ if (!(A)) \
+ { \
+ std::cout << "line " << __LINE__ \
+ << " max_abs_frac = " << max_abs_frac \
+ << std::endl; \
+ }
+#else
+# include <testsuite_hooks.h>
+#endif
+#include <specfun_testcase.h>
+
+
+// Test data for nu=0.0000000000000000.
+// max(|f - f_GSL|): 1.6653345369377348e-16
+// max(|f - f_GSL| / |f_GSL|): 6.5276306654894409e-16
+const testcase_cyl_bessel_j<double>
+data001[21] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000 },
+ { 0.98443592929585266, 0.0000000000000000, 0.25000000000000000 },
+ { 0.93846980724081297, 0.0000000000000000, 0.50000000000000000 },
+ { 0.86424227516664853, 0.0000000000000000, 0.75000000000000000 },
+ { 0.76519768655796661, 0.0000000000000000, 1.0000000000000000 },
+ { 0.64590608527128535, 0.0000000000000000, 1.2500000000000000 },
+ { 0.51182767173591814, 0.0000000000000000, 1.5000000000000000 },
+ { 0.36903253018515075, 0.0000000000000000, 1.7500000000000000 },
+ { 0.22389077914123562, 0.0000000000000000, 2.0000000000000000 },
+ { 0.082749851288734022, 0.0000000000000000, 2.2500000000000000 },
+ { -0.048383776468197998, 0.0000000000000000, 2.5000000000000000 },
+ { -0.16414142780851368, 0.0000000000000000, 2.7500000000000000 },
+ { -0.26005195490193334, 0.0000000000000000, 3.0000000000000000 },
+ { -0.33275080217061132, 0.0000000000000000, 3.2500000000000000 },
+ { -0.38012773998726335, 0.0000000000000000, 3.5000000000000000 },
+ { -0.40140605493617426, 0.0000000000000000, 3.7500000000000000 },
+ { -0.39714980986384740, 0.0000000000000000, 4.0000000000000000 },
+ { -0.36919977029989554, 0.0000000000000000, 4.2500000000000000 },
+ { -0.32054250898512149, 0.0000000000000000, 4.5000000000000000 },
+ { -0.25512082749137405, 0.0000000000000000, 4.7500000000000000 },
+ { -0.17759677131433835, 0.0000000000000000, 5.0000000000000000 },
+};
+const double toler001 = 2.5000000000000020e-13;
+
+// Test data for nu=0.33333333333333331.
+// max(|f - f_GSL|): 7.7715611723760958e-16
+// max(|f - f_GSL| / |f_GSL|): 1.2121143083098064e-15
+const testcase_cyl_bessel_j<double>
+data002[21] =
+{
+ { 0.0000000000000000, 0.33333333333333331, 0.0000000000000000 },
+ { 0.55338359549647709, 0.33333333333333331, 0.25000000000000000 },
+ { 0.67283082949794537, 0.33333333333333331, 0.50000000000000000 },
+ { 0.72490863199379008, 0.33333333333333331, 0.75000000000000000 },
+ { 0.73087640216944760, 0.33333333333333331, 1.0000000000000000 },
+ { 0.69953374433894455, 0.33333333333333331, 1.2500000000000000 },
+ { 0.63713263706489176, 0.33333333333333331, 1.5000000000000000 },
+ { 0.54956352730788460, 0.33333333333333331, 1.7500000000000000 },
+ { 0.44293981814857586, 0.33333333333333331, 2.0000000000000000 },
+ { 0.32366988946292502, 0.33333333333333331, 2.2500000000000000 },
+ { 0.19832093341860796, 0.33333333333333331, 2.5000000000000000 },
+ { 0.073389637874297489, 0.33333333333333331, 2.7500000000000000 },
+ { -0.044963820940233351, 0.33333333333333331, 3.0000000000000000 },
+ { -0.15118395956666372, 0.33333333333333331, 3.2500000000000000 },
+ { -0.24056593952693625, 0.33333333333333331, 3.5000000000000000 },
+ { -0.30946094681921288, 0.33333333333333331, 3.7500000000000000 },
+ { -0.35542737345457609, 0.33333333333333331, 4.0000000000000000 },
+ { -0.37731852825457068, 0.33333333333333331, 4.2500000000000000 },
+ { -0.37530189159358079, 0.33333333333333331, 4.5000000000000000 },
+ { -0.35080916720916927, 0.33333333333333331, 4.7500000000000000 },
+ { -0.30642046380026405, 0.33333333333333331, 5.0000000000000000 },
+};
+const double toler002 = 2.5000000000000020e-13;
+
+// Test data for nu=0.50000000000000000.
+// max(|f - f_GSL|): 7.7715611723760958e-16
+// max(|f - f_GSL| / |f_GSL|): 1.1959227189513475e-15
+const testcase_cyl_bessel_j<double>
+data003[21] =
+{
+ { 0.0000000000000000, 0.50000000000000000, 0.0000000000000000 },
+ { 0.39479959874136972, 0.50000000000000000, 0.25000000000000000 },
+ { 0.54097378993452760, 0.50000000000000000, 0.50000000000000000 },
+ { 0.62800587637588623, 0.50000000000000000, 0.75000000000000000 },
+ { 0.67139670714180244, 0.50000000000000000, 1.0000000000000000 },
+ { 0.67724253810014312, 0.50000000000000000, 1.2500000000000000 },
+ { 0.64983807475374655, 0.50000000000000000, 1.5000000000000000 },
+ { 0.59348525447147382, 0.50000000000000000, 1.7500000000000000 },
+ { 0.51301613656182721, 0.50000000000000000, 2.0000000000000000 },
+ { 0.41387506064759982, 0.50000000000000000, 2.2500000000000000 },
+ { 0.30200490606236535, 0.50000000000000000, 2.5000000000000000 },
+ { 0.18363332138431521, 0.50000000000000000, 2.7500000000000000 },
+ { 0.065008182877375753, 0.50000000000000000, 3.0000000000000000 },
+ { -0.047885729975898544, 0.50000000000000000, 3.2500000000000000 },
+ { -0.14960456964952620, 0.50000000000000000, 3.5000000000000000 },
+ { -0.23549801845815513, 0.50000000000000000, 3.7500000000000000 },
+ { -0.30192051329163944, 0.50000000000000000, 4.0000000000000000 },
+ { -0.34638850218952444, 0.50000000000000000, 4.2500000000000000 },
+ { -0.36767487332724025, 0.50000000000000000, 4.5000000000000000 },
+ { -0.36583563802350400, 0.50000000000000000, 4.7500000000000000 },
+ { -0.34216798479816180, 0.50000000000000000, 5.0000000000000000 },
+};
+const double toler003 = 2.5000000000000020e-13;
+
+// Test data for nu=0.66666666666666663.
+// max(|f - f_GSL|): 7.7715611723760958e-16
+// max(|f - f_GSL| / |f_GSL|): 1.4163878424300161e-15
+const testcase_cyl_bessel_j<double>
+data004[21] =
+{
+ { 0.0000000000000000, 0.66666666666666663, 0.0000000000000000 },
+ { 0.27434438998865135, 0.66666666666666663, 0.25000000000000000 },
+ { 0.42331075068448321, 0.66666666666666663, 0.50000000000000000 },
+ { 0.52870551548162792, 0.66666666666666663, 0.75000000000000000 },
+ { 0.59794997367362801, 0.66666666666666663, 1.0000000000000000 },
+ { 0.63338726889075891, 0.66666666666666663, 1.2500000000000000 },
+ { 0.63673234502877385, 0.66666666666666663, 1.5000000000000000 },
+ { 0.61022230460131899, 0.66666666666666663, 1.7500000000000000 },
+ { 0.55696967691913712, 0.66666666666666663, 2.0000000000000000 },
+ { 0.48101276749106114, 0.66666666666666663, 2.2500000000000000 },
+ { 0.38721242477084306, 0.66666666666666663, 2.5000000000000000 },
+ { 0.28105724771080542, 0.66666666666666663, 2.7500000000000000 },
+ { 0.16841218049067044, 0.66666666666666663, 3.0000000000000000 },
+ { 0.055235893475364915, 0.66666666666666663, 3.2500000000000000 },
+ { -0.052711584404031925, 0.66666666666666663, 3.5000000000000000 },
+ { -0.15015178042293029, 0.66666666666666663, 3.7500000000000000 },
+ { -0.23254408502670390, 0.66666666666666663, 4.0000000000000000 },
+ { -0.29630067002972543, 0.66666666666666663, 4.2500000000000000 },
+ { -0.33894810189777724, 0.66666666666666663, 4.5000000000000000 },
+ { -0.35922706960321099, 0.66666666666666663, 4.7500000000000000 },
+ { -0.35712533549168868, 0.66666666666666663, 5.0000000000000000 },
+};
+const double toler004 = 2.5000000000000020e-13;
+
+// Test data for nu=1.0000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 6.7783500059747526e-16
+const testcase_cyl_bessel_j<double>
+data005[21] =
+{
+ { 0.0000000000000000, 1.0000000000000000, 0.0000000000000000 },
+ { 0.12402597732272694, 1.0000000000000000, 0.25000000000000000 },
+ { 0.24226845767487390, 1.0000000000000000, 0.50000000000000000 },
+ { 0.34924360217486222, 1.0000000000000000, 0.75000000000000000 },
+ { 0.44005058574493355, 1.0000000000000000, 1.0000000000000000 },
+ { 0.51062326031988059, 1.0000000000000000, 1.2500000000000000 },
+ { 0.55793650791009952, 1.0000000000000000, 1.5000000000000000 },
+ { 0.58015619763899240, 1.0000000000000000, 1.7500000000000000 },
+ { 0.57672480775687363, 1.0000000000000000, 2.0000000000000000 },
+ { 0.54837835664696011, 1.0000000000000000, 2.2500000000000000 },
+ { 0.49709410246427416, 1.0000000000000000, 2.5000000000000000 },
+ { 0.42597230295790256, 1.0000000000000000, 2.7500000000000000 },
+ { 0.33905895852593648, 1.0000000000000000, 3.0000000000000000 },
+ { 0.24111968801520400, 1.0000000000000000, 3.2500000000000000 },
+ { 0.13737752736232706, 1.0000000000000000, 3.5000000000000000 },
+ { 0.033229349129679724, 1.0000000000000000, 3.7500000000000000 },
+ { -0.066043328023549230, 1.0000000000000000, 4.0000000000000000 },
+ { -0.15555319297834286, 1.0000000000000000, 4.2500000000000000 },
+ { -0.23106043192337070, 1.0000000000000000, 4.5000000000000000 },
+ { -0.28918679864711044, 1.0000000000000000, 4.7500000000000000 },
+ { -0.32757913759146529, 1.0000000000000000, 5.0000000000000000 },
+};
+const double toler005 = 2.5000000000000020e-13;
+
+// Test data for nu=2.0000000000000000.
+// max(|f - f_GSL|): 5.5511151231257827e-17
+// max(|f - f_GSL| / |f_GSL|): 2.4155555971238584e-16
+const testcase_cyl_bessel_j<double>
+data006[21] =
+{
+ { 0.0000000000000000, 2.0000000000000000, 0.0000000000000000 },
+ { 0.0077718892859626760, 2.0000000000000000, 0.25000000000000000 },
+ { 0.030604023458682638, 2.0000000000000000, 0.50000000000000000 },
+ { 0.067073997299650551, 2.0000000000000000, 0.75000000000000000 },
+ { 0.11490348493190047, 2.0000000000000000, 1.0000000000000000 },
+ { 0.17109113124052350, 2.0000000000000000, 1.2500000000000000 },
+ { 0.23208767214421472, 2.0000000000000000, 1.5000000000000000 },
+ { 0.29400312425941216, 2.0000000000000000, 1.7500000000000000 },
+ { 0.35283402861563773, 2.0000000000000000, 2.0000000000000000 },
+ { 0.40469757684189717, 2.0000000000000000, 2.2500000000000000 },
+ { 0.44605905843961718, 2.0000000000000000, 2.5000000000000000 },
+ { 0.47393946632335160, 2.0000000000000000, 2.7500000000000000 },
+ { 0.48609126058589119, 2.0000000000000000, 3.0000000000000000 },
+ { 0.48113214864150627, 2.0000000000000000, 3.2500000000000000 },
+ { 0.45862918419430765, 2.0000000000000000, 3.5000000000000000 },
+ { 0.41912837447200352, 2.0000000000000000, 3.7500000000000000 },
+ { 0.36412814585207293, 2.0000000000000000, 4.0000000000000000 },
+ { 0.29599826772185189, 2.0000000000000000, 4.2500000000000000 },
+ { 0.21784898368584549, 2.0000000000000000, 4.5000000000000000 },
+ { 0.13335796490311685, 2.0000000000000000, 4.7500000000000000 },
+ { 0.046565116277751971, 2.0000000000000000, 5.0000000000000000 },
+};
+const double toler006 = 2.5000000000000020e-13;
+
+// Test data for nu=5.0000000000000000.
+// max(|f - f_GSL|): 1.3877787807814457e-16
+// max(|f - f_GSL| / |f_GSL|): 1.4609680807504906e-15
+const testcase_cyl_bessel_j<double>
+data007[21] =
+{
+ { 0.0000000000000000, 5.0000000000000000, 0.0000000000000000 },
+ { 2.5365161587472413e-07, 5.0000000000000000, 0.25000000000000000 },
+ { 8.0536272413574753e-06, 5.0000000000000000, 0.50000000000000000 },
+ { 6.0364166510576438e-05, 5.0000000000000000, 0.75000000000000000 },
+ { 0.00024975773021123450, 5.0000000000000000, 1.0000000000000000 },
+ { 0.00074440885254749821, 5.0000000000000000, 1.2500000000000000 },
+ { 0.0017994217673606111, 5.0000000000000000, 1.5000000000000000 },
+ { 0.0037577257273157133, 5.0000000000000000, 1.7500000000000000 },
+ { 0.0070396297558716842, 5.0000000000000000, 2.0000000000000000 },
+ { 0.012121078633445751, 5.0000000000000000, 2.2500000000000000 },
+ { 0.019501625134503223, 5.0000000000000000, 2.5000000000000000 },
+ { 0.029664058320006174, 5.0000000000000000, 2.7500000000000000 },
+ { 0.043028434877047578, 5.0000000000000000, 3.0000000000000000 },
+ { 0.059903888098560426, 5.0000000000000000, 3.2500000000000000 },
+ { 0.080441986647991792, 5.0000000000000000, 3.5000000000000000 },
+ { 0.10459554742314070, 5.0000000000000000, 3.7500000000000000 },
+ { 0.13208665604709827, 5.0000000000000000, 4.0000000000000000 },
+ { 0.16238721643623680, 5.0000000000000000, 4.2500000000000000 },
+ { 0.19471465863871368, 5.0000000000000000, 4.5000000000000000 },
+ { 0.22804452118769436, 5.0000000000000000, 4.7500000000000000 },
+ { 0.26114054612017007, 5.0000000000000000, 5.0000000000000000 },
+};
+const double toler007 = 2.5000000000000020e-13;
+
+// Test data for nu=10.000000000000000.
+// max(|f - f_GSL|): 3.2526065174565133e-18
+// max(|f - f_GSL| / |f_GSL|): 3.9336732209858561e-15
+const testcase_cyl_bessel_j<double>
+data008[21] =
+{
+ { 0.0000000000000000, 10.000000000000000, 0.0000000000000000 },
+ { 2.5628321598050096e-16, 10.000000000000000, 0.25000000000000000 },
+ { 2.6131773608228023e-13, 10.000000000000000, 0.50000000000000000 },
+ { 1.4962171311759677e-11, 10.000000000000000, 0.75000000000000000 },
+ { 2.6306151236874524e-10, 10.000000000000000, 1.0000000000000000 },
+ { 2.4187548221114514e-09, 10.000000000000000, 1.2500000000000000 },
+ { 1.4743269078039996e-08, 10.000000000000000, 1.5000000000000000 },
+ { 6.7608502849897560e-08, 10.000000000000000, 1.7500000000000000 },
+ { 2.5153862827167358e-07, 10.000000000000000, 2.0000000000000000 },
+ { 7.9717051583730038e-07, 10.000000000000000, 2.2500000000000000 },
+ { 2.2247284173983839e-06, 10.000000000000000, 2.5000000000000000 },
+ { 5.5985475639210430e-06, 10.000000000000000, 2.7500000000000000 },
+ { 1.2928351645715880e-05, 10.000000000000000, 3.0000000000000000 },
+ { 2.7761691354244538e-05, 10.000000000000000, 3.2500000000000000 },
+ { 5.6009495875078844e-05, 10.000000000000000, 3.5000000000000000 },
+ { 0.00010703761729231951, 10.000000000000000, 3.7500000000000000 },
+ { 0.00019504055466003446, 10.000000000000000, 4.0000000000000000 },
+ { 0.00034068888474064193, 10.000000000000000, 4.2500000000000000 },
+ { 0.00057300977667164505, 10.000000000000000, 4.5000000000000000 },
+ { 0.00093142172588886810, 10.000000000000000, 4.7500000000000000 },
+ { 0.0014678026473104744, 10.000000000000000, 5.0000000000000000 },
+};
+const double toler008 = 2.5000000000000020e-13;
+
+// Test data for nu=20.000000000000000.
+// max(|f - f_GSL|): 1.9387045606711586e-26
+// max(|f - f_GSL| / |f_GSL|): 2.1275572270326799e-15
+const testcase_cyl_bessel_j<double>
+data009[21] =
+{
+ { 0.0000000000000000, 20.000000000000000, 0.0000000000000000 },
+ { 3.5624805510586969e-37, 20.000000000000000, 0.25000000000000000 },
+ { 3.7272019617047132e-31, 20.000000000000000, 0.50000000000000000 },
+ { 1.2347870693633488e-27, 20.000000000000000, 0.75000000000000000 },
+ { 3.8735030085246562e-25, 20.000000000000000, 1.0000000000000000 },
+ { 3.3372897667043766e-23, 20.000000000000000, 1.2500000000000000 },
+ { 1.2689972189332558e-21, 20.000000000000000, 1.5000000000000000 },
+ { 2.7427715944032989e-20, 20.000000000000000, 1.7500000000000000 },
+ { 3.9189728050907524e-19, 20.000000000000000, 2.0000000000000000 },
+ { 4.0805232551365158e-18, 20.000000000000000, 2.2500000000000000 },
+ { 3.3090793836587786e-17, 20.000000000000000, 2.5000000000000000 },
+ { 2.1915404680645990e-16, 20.000000000000000, 2.7500000000000000 },
+ { 1.2275946737992981e-15, 20.000000000000000, 3.0000000000000000 },
+ { 5.9727663938305382e-15, 20.000000000000000, 3.2500000000000000 },
+ { 2.5768553102807590e-14, 20.000000000000000, 3.5000000000000000 },
+ { 1.0021112208287217e-13, 20.000000000000000, 3.7500000000000000 },
+ { 3.5595116285938516e-13, 20.000000000000000, 4.0000000000000000 },
+ { 1.1673622958555074e-12, 20.000000000000000, 4.2500000000000000 },
+ { 3.5665470983611762e-12, 20.000000000000000, 4.5000000000000000 },
+ { 1.0227564044880958e-11, 20.000000000000000, 4.7500000000000000 },
+ { 2.7703300521289426e-11, 20.000000000000000, 5.0000000000000000 },
+};
+const double toler009 = 2.5000000000000020e-13;
+// cyl_bessel_j
+
+// Test data for nu=0.0000000000000000.
+// max(|f - f_GSL|): 7.6709472107694410e-15
+// max(|f - f_GSL| / |f_GSL|): 4.1048891312746575e-13
+const testcase_cyl_bessel_j<double>
+data010[21] =
+{
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000 },
+ { -0.17759677131433835, 0.0000000000000000, 5.0000000000000000 },
+ { -0.24593576445134835, 0.0000000000000000, 10.000000000000000 },
+ { -0.014224472826780771, 0.0000000000000000, 15.000000000000000 },
+ { 0.16702466434058319, 0.0000000000000000, 20.000000000000000 },
+ { 0.096266783275958154, 0.0000000000000000, 25.000000000000000 },
+ { -0.086367983581040142, 0.0000000000000000, 30.000000000000000 },
+ { -0.12684568275631256, 0.0000000000000000, 35.000000000000000 },
+ { 0.0073668905842374085, 0.0000000000000000, 40.000000000000000 },
+ { 0.11581867067325631, 0.0000000000000000, 45.000000000000000 },
+ { 0.055812327669251746, 0.0000000000000000, 50.000000000000000 },
+ { -0.074548302648236808, 0.0000000000000000, 55.000000000000000 },
+ { -0.091471804089061859, 0.0000000000000000, 60.000000000000000 },
+ { 0.018687343227677979, 0.0000000000000000, 65.000000000000000 },
+ { 0.094908726483013545, 0.0000000000000000, 70.000000000000000 },
+ { 0.034643913805097008, 0.0000000000000000, 75.000000000000000 },
+ { -0.069742165512210033, 0.0000000000000000, 80.000000000000000 },
+ { -0.070940394796273273, 0.0000000000000000, 85.000000000000000 },
+ { 0.026630016699969526, 0.0000000000000000, 90.000000000000000 },
+ { 0.081811967783384135, 0.0000000000000000, 95.000000000000000 },
+ { 0.019985850304223170, 0.0000000000000000, 100.00000000000000 },
+};
+const double toler010 = 2.5000000000000014e-11;
+
+// Test data for nu=0.33333333333333331.
+// max(|f - f_GSL|): 7.9311557321659620e-15
+// max(|f - f_GSL| / |f_GSL|): 4.2444155318123211e-12
+const testcase_cyl_bessel_j<double>
+data011[21] =
+{
+ { 0.0000000000000000, 0.33333333333333331, 0.0000000000000000 },
+ { -0.30642046380026405, 0.33333333333333331, 5.0000000000000000 },
+ { -0.18614516704869571, 0.33333333333333331, 10.000000000000000 },
+ { 0.089740004221152650, 0.33333333333333331, 15.000000000000000 },
+ { 0.17606058001293901, 0.33333333333333331, 20.000000000000000 },
+ { 0.020097162141383233, 0.33333333333333331, 25.000000000000000 },
+ { -0.13334053387426159, 0.33333333333333331, 30.000000000000000 },
+ { -0.087118009397765497, 0.33333333333333331, 35.000000000000000 },
+ { 0.069202942818858179, 0.33333333333333331, 40.000000000000000 },
+ { 0.11387616964518317, 0.33333333333333331, 45.000000000000000 },
+ { -0.00057226680771808045, 0.33333333333333331, 50.000000000000000 },
+ { -0.10331600929280822, 0.33333333333333331, 55.000000000000000 },
+ { -0.055618147270528003, 0.33333333333333331, 60.000000000000000 },
+ { 0.064711954014113948, 0.33333333333333331, 65.000000000000000 },
+ { 0.086879926462481605, 0.33333333333333331, 70.000000000000000 },
+ { -0.012614484229891068, 0.33333333333333331, 75.000000000000000 },
+ { -0.088199784400034537, 0.33333333333333331, 80.000000000000000 },
+ { -0.036703611076564523, 0.33333333333333331, 85.000000000000000 },
+ { 0.062916286828779547, 0.33333333333333331, 90.000000000000000 },
+ { 0.069465244416806030, 0.33333333333333331, 95.000000000000000 },
+ { -0.021271244853702364, 0.33333333333333331, 100.00000000000000 },
+};
+const double toler011 = 2.5000000000000017e-10;
+
+// Test data for nu=0.50000000000000000.
+// max(|f - f_GSL|): 7.4246164771807344e-15
+// max(|f - f_GSL| / |f_GSL|): 3.6725252809051799e-13
+const testcase_cyl_bessel_j<double>
+data012[21] =
+{
+ { 0.0000000000000000, 0.50000000000000000, 0.0000000000000000 },
+ { -0.34216798479816180, 0.50000000000000000, 5.0000000000000000 },
+ { -0.13726373575505049, 0.50000000000000000, 10.000000000000000 },
+ { 0.13396768882243937, 0.50000000000000000, 15.000000000000000 },
+ { 0.16288076385502984, 0.50000000000000000, 20.000000000000000 },
+ { -0.021120283599650493, 0.50000000000000000, 25.000000000000000 },
+ { -0.14392965337039987, 0.50000000000000000, 30.000000000000000 },
+ { -0.057747757589458777, 0.50000000000000000, 35.000000000000000 },
+ { 0.094000962389533649, 0.50000000000000000, 40.000000000000000 },
+ { 0.10120783324271411, 0.50000000000000000, 45.000000000000000 },
+ { -0.029605831888924641, 0.50000000000000000, 50.000000000000000 },
+ { -0.10756039213265806, 0.50000000000000000, 55.000000000000000 },
+ { -0.031397461182520438, 0.50000000000000000, 60.000000000000000 },
+ { 0.081827430775628554, 0.50000000000000000, 65.000000000000000 },
+ { 0.073802429539054554, 0.50000000000000000, 70.000000000000000 },
+ { -0.035727009681702615, 0.50000000000000000, 75.000000000000000 },
+ { -0.088661035811765460, 0.50000000000000000, 80.000000000000000 },
+ { -0.015238065106312516, 0.50000000000000000, 85.000000000000000 },
+ { 0.075189068550269425, 0.50000000000000000, 90.000000000000000 },
+ { 0.055932643481494133, 0.50000000000000000, 95.000000000000000 },
+ { -0.040402132716252127, 0.50000000000000000, 100.00000000000000 },
+};
+const double toler012 = 2.5000000000000014e-11;
+
+// Test data for nu=0.66666666666666663.
+// max(|f - f_GSL|): 6.3629657098829284e-15
+// max(|f - f_GSL| / |f_GSL|): 1.2254869540384518e-12
+const testcase_cyl_bessel_j<double>
+data013[21] =
+{
+ { 0.0000000000000000, 0.66666666666666663, 0.0000000000000000 },
+ { -0.35712533549168868, 0.66666666666666663, 5.0000000000000000 },
+ { -0.080149603304315808, 0.66666666666666663, 10.000000000000000 },
+ { 0.16918875175798079, 0.66666666666666663, 15.000000000000000 },
+ { 0.13904826122116531, 0.66666666666666663, 20.000000000000000 },
+ { -0.060770629698497600, 0.66666666666666663, 25.000000000000000 },
+ { -0.14489851974205062, 0.66666666666666663, 30.000000000000000 },
+ { -0.024604880159644394, 0.66666666666666663, 35.000000000000000 },
+ { 0.11243936464912010, 0.66666666666666663, 40.000000000000000 },
+ { 0.081776275512525309, 0.66666666666666663, 45.000000000000000 },
+ { -0.056589908749367777, 0.66666666666666663, 50.000000000000000 },
+ { -0.10455814523765931, 0.66666666666666663, 55.000000000000000 },
+ { -0.0051030148548608456, 0.66666666666666663, 60.000000000000000 },
+ { 0.093398227061639236, 0.66666666666666663, 65.000000000000000 },
+ { 0.055763883611864913, 0.66666666666666663, 70.000000000000000 },
+ { -0.056395322915757364, 0.66666666666666663, 75.000000000000000 },
+ { -0.083131347805783087, 0.66666666666666663, 80.000000000000000 },
+ { 0.0072315397874096648, 0.66666666666666663, 85.000000000000000 },
+ { 0.082362798520905250, 0.66666666666666663, 90.000000000000000 },
+ { 0.038630504403446168, 0.66666666666666663, 95.000000000000000 },
+ { -0.056778819380529734, 0.66666666666666663, 100.00000000000000 },
+};
+const double toler013 = 1.0000000000000006e-10;
+
+// Test data for nu=1.0000000000000000.
+// max(|f - f_GSL|): 7.1435912740724916e-15
+// max(|f - f_GSL| / |f_GSL|): 1.7857949645087573e-12
+const testcase_cyl_bessel_j<double>
+data014[21] =
+{
+ { 0.0000000000000000, 1.0000000000000000, 0.0000000000000000 },
+ { -0.32757913759146529, 1.0000000000000000, 5.0000000000000000 },
+ { 0.043472746168861459, 1.0000000000000000, 10.000000000000000 },
+ { 0.20510403861352280, 1.0000000000000000, 15.000000000000000 },
+ { 0.066833124175850078, 1.0000000000000000, 20.000000000000000 },
+ { -0.12535024958028990, 1.0000000000000000, 25.000000000000000 },
+ { -0.11875106261662294, 1.0000000000000000, 30.000000000000000 },
+ { 0.043990942179625646, 1.0000000000000000, 35.000000000000000 },
+ { 0.12603831803758500, 1.0000000000000000, 40.000000000000000 },
+ { 0.028348854376424561, 1.0000000000000000, 45.000000000000000 },
+ { -0.097511828125175129, 1.0000000000000000, 50.000000000000000 },
+ { -0.078250038308684711, 1.0000000000000000, 55.000000000000000 },
+ { 0.046598383758166370, 1.0000000000000000, 60.000000000000000 },
+ { 0.097330172226126929, 1.0000000000000000, 65.000000000000000 },
+ { 0.0099877887848385128, 1.0000000000000000, 70.000000000000000 },
+ { -0.085139995044829081, 1.0000000000000000, 75.000000000000000 },
+ { -0.056057296675712555, 1.0000000000000000, 80.000000000000000 },
+ { 0.049151460334891130, 1.0000000000000000, 85.000000000000000 },
+ { 0.079925646708868092, 1.0000000000000000, 90.000000000000000 },
+ { -0.0023925612997269283, 1.0000000000000000, 95.000000000000000 },
+ { -0.077145352014112129, 1.0000000000000000, 100.00000000000000 },
+};
+const double toler014 = 1.0000000000000006e-10;
+
+// Test data for nu=2.0000000000000000.
+// max(|f - f_GSL|): 7.6050277186823223e-15
+// max(|f - f_GSL| / |f_GSL|): 2.0010877493528614e-12
+const testcase_cyl_bessel_j<double>
+data015[21] =
+{
+ { 0.0000000000000000, 2.0000000000000000, 0.0000000000000000 },
+ { 0.046565116277751971, 2.0000000000000000, 5.0000000000000000 },
+ { 0.25463031368512068, 2.0000000000000000, 10.000000000000000 },
+ { 0.041571677975250486, 2.0000000000000000, 15.000000000000000 },
+ { -0.16034135192299820, 2.0000000000000000, 20.000000000000000 },
+ { -0.10629480324238134, 2.0000000000000000, 25.000000000000000 },
+ { 0.078451246073265299, 2.0000000000000000, 30.000000000000000 },
+ { 0.12935945088086259, 2.0000000000000000, 35.000000000000000 },
+ { -0.0010649746823579794, 2.0000000000000000, 40.000000000000000 },
+ { -0.11455872158985966, 2.0000000000000000, 45.000000000000000 },
+ { -0.059712800794258863, 2.0000000000000000, 50.000000000000000 },
+ { 0.071702846709739240, 2.0000000000000000, 55.000000000000000 },
+ { 0.093025083547667420, 2.0000000000000000, 60.000000000000000 },
+ { -0.015692568697643128, 2.0000000000000000, 65.000000000000000 },
+ { -0.094623361089161029, 2.0000000000000000, 70.000000000000000 },
+ { -0.036914313672959179, 2.0000000000000000, 75.000000000000000 },
+ { 0.068340733095317172, 2.0000000000000000, 80.000000000000000 },
+ { 0.072096899745329540, 2.0000000000000000, 85.000000000000000 },
+ { -0.024853891217550248, 2.0000000000000000, 90.000000000000000 },
+ { -0.081862337494957332, 2.0000000000000000, 95.000000000000000 },
+ { -0.021528757344505364, 2.0000000000000000, 100.00000000000000 },
+};
+const double toler015 = 2.5000000000000017e-10;
+
+// Test data for nu=5.0000000000000000.
+// max(|f - f_GSL|): 6.8521577301083880e-15
+// max(|f - f_GSL| / |f_GSL|): 5.6813560677959848e-13
+const testcase_cyl_bessel_j<double>
+data016[21] =
+{
+ { 0.0000000000000000, 5.0000000000000000, 0.0000000000000000 },
+ { 0.26114054612017007, 5.0000000000000000, 5.0000000000000000 },
+ { -0.23406152818679371, 5.0000000000000000, 10.000000000000000 },
+ { 0.13045613456502966, 5.0000000000000000, 15.000000000000000 },
+ { 0.15116976798239498, 5.0000000000000000, 20.000000000000000 },
+ { -0.066007995398422933, 5.0000000000000000, 25.000000000000000 },
+ { -0.14324029551207709, 5.0000000000000000, 30.000000000000000 },
+ { -0.0015053072953907251, 5.0000000000000000, 35.000000000000000 },
+ { 0.12257346597711777, 5.0000000000000000, 40.000000000000000 },
+ { 0.057984499200954109, 5.0000000000000000, 45.000000000000000 },
+ { -0.081400247696569616, 5.0000000000000000, 50.000000000000000 },
+ { -0.092569895786432765, 5.0000000000000000, 55.000000000000000 },
+ { 0.027454744228344204, 5.0000000000000000, 60.000000000000000 },
+ { 0.099110527701539025, 5.0000000000000000, 65.000000000000000 },
+ { 0.026058129823895364, 5.0000000000000000, 70.000000000000000 },
+ { -0.078523977013751398, 5.0000000000000000, 75.000000000000000 },
+ { -0.065862349140031584, 5.0000000000000000, 80.000000000000000 },
+ { 0.038669072284680979, 5.0000000000000000, 85.000000000000000 },
+ { 0.082759319528415157, 5.0000000000000000, 90.000000000000000 },
+ { 0.0079423372702472871, 5.0000000000000000, 95.000000000000000 },
+ { -0.074195736964513898, 5.0000000000000000, 100.00000000000000 },
+};
+const double toler016 = 5.0000000000000028e-11;
+
+// Test data for nu=10.000000000000000.
+// max(|f - f_GSL|): 7.2303274478713320e-15
+// max(|f - f_GSL| / |f_GSL|): 3.6974790630140835e-13
+const testcase_cyl_bessel_j<double>
+data017[21] =
+{
+ { 0.0000000000000000, 10.000000000000000, 0.0000000000000000 },
+ { 0.0014678026473104744, 10.000000000000000, 5.0000000000000000 },
+ { 0.20748610663335865, 10.000000000000000, 10.000000000000000 },
+ { -0.090071811047659087, 10.000000000000000, 15.000000000000000 },
+ { 0.18648255802394512, 10.000000000000000, 20.000000000000000 },
+ { -0.075179843948523312, 10.000000000000000, 25.000000000000000 },
+ { -0.12987689399858882, 10.000000000000000, 30.000000000000000 },
+ { 0.063546391343962866, 10.000000000000000, 35.000000000000000 },
+ { 0.11938336278226094, 10.000000000000000, 40.000000000000000 },
+ { -0.026971402475010831, 10.000000000000000, 45.000000000000000 },
+ { -0.11384784914946940, 10.000000000000000, 50.000000000000000 },
+ { -0.015773790303746080, 10.000000000000000, 55.000000000000000 },
+ { 0.097177143328071064, 10.000000000000000, 60.000000000000000 },
+ { 0.054617389951112129, 10.000000000000000, 65.000000000000000 },
+ { -0.065870338561952013, 10.000000000000000, 70.000000000000000 },
+ { -0.080417867891894437, 10.000000000000000, 75.000000000000000 },
+ { 0.024043850978184747, 10.000000000000000, 80.000000000000000 },
+ { 0.086824832700067869, 10.000000000000000, 85.000000000000000 },
+ { 0.019554748856312299, 10.000000000000000, 90.000000000000000 },
+ { -0.072341598669443757, 10.000000000000000, 95.000000000000000 },
+ { -0.054732176935472096, 10.000000000000000, 100.00000000000000 },
+};
+const double toler017 = 2.5000000000000014e-11;
+
+// Test data for nu=20.000000000000000.
+// max(|f - f_GSL|): 7.7177847446208148e-15
+// max(|f - f_GSL| / |f_GSL|): 1.1191513260854523e-12
+const testcase_cyl_bessel_j<double>
+data018[21] =
+{
+ { 0.0000000000000000, 20.000000000000000, 0.0000000000000000 },
+ { 2.7703300521289426e-11, 20.000000000000000, 5.0000000000000000 },
+ { 1.1513369247813403e-05, 20.000000000000000, 10.000000000000000 },
+ { 0.0073602340792234934, 20.000000000000000, 15.000000000000000 },
+ { 0.16474777377532665, 20.000000000000000, 20.000000000000000 },
+ { 0.051994049228303307, 20.000000000000000, 25.000000000000000 },
+ { 0.0048310199934040923, 20.000000000000000, 30.000000000000000 },
+ { -0.10927417397178038, 20.000000000000000, 35.000000000000000 },
+ { 0.12779393355084889, 20.000000000000000, 40.000000000000000 },
+ { 0.0047633437900313621, 20.000000000000000, 45.000000000000000 },
+ { -0.11670435275957974, 20.000000000000000, 50.000000000000000 },
+ { 0.025389204574566639, 20.000000000000000, 55.000000000000000 },
+ { 0.10266020557876326, 20.000000000000000, 60.000000000000000 },
+ { -0.023138582263434154, 20.000000000000000, 65.000000000000000 },
+ { -0.096058573489952365, 20.000000000000000, 70.000000000000000 },
+ { 0.0068961047221522270, 20.000000000000000, 75.000000000000000 },
+ { 0.090565405489918357, 20.000000000000000, 80.000000000000000 },
+ { 0.015985497599497172, 20.000000000000000, 85.000000000000000 },
+ { -0.080345344044422534, 20.000000000000000, 90.000000000000000 },
+ { -0.040253075701614051, 20.000000000000000, 95.000000000000000 },
+ { 0.062217458498338672, 20.000000000000000, 100.00000000000000 },
+};
+const double toler018 = 1.0000000000000006e-10;
+
+// Test data for nu=50.000000000000000.
+// max(|f - f_GSL|): 6.6543992538470320e-15
+// max(|f - f_GSL| / |f_GSL|): 1.6466369526724007e-13
+const testcase_cyl_bessel_j<double>
+data019[21] =
+{
+ { 0.0000000000000000, 50.000000000000000, 0.0000000000000000 },
+ { 2.2942476159525415e-45, 50.000000000000000, 5.0000000000000000 },
+ { 1.7845136078715964e-30, 50.000000000000000, 10.000000000000000 },
+ { 6.1060519495338733e-22, 50.000000000000000, 15.000000000000000 },
+ { 4.4510392847006872e-16, 50.000000000000000, 20.000000000000000 },
+ { 9.7561594280229808e-12, 50.000000000000000, 25.000000000000000 },
+ { 2.0581656631564172e-08, 50.000000000000000, 30.000000000000000 },
+ { 7.6069951699272960e-06, 50.000000000000000, 35.000000000000000 },
+ { 0.00068185243531768309, 50.000000000000000, 40.000000000000000 },
+ { 0.017284343240791214, 50.000000000000000, 45.000000000000000 },
+ { 0.12140902189761507, 50.000000000000000, 50.000000000000000 },
+ { 0.13594720957176012, 50.000000000000000, 55.000000000000000 },
+ { -0.13798273148535209, 50.000000000000000, 60.000000000000000 },
+ { 0.12116217746619409, 50.000000000000000, 65.000000000000000 },
+ { -0.11394866738787145, 50.000000000000000, 70.000000000000000 },
+ { 0.094076799581573348, 50.000000000000000, 75.000000000000000 },
+ { -0.039457764590251347, 50.000000000000000, 80.000000000000000 },
+ { -0.040412060734136383, 50.000000000000000, 85.000000000000000 },
+ { 0.090802099838032266, 50.000000000000000, 90.000000000000000 },
+ { -0.055979156267280165, 50.000000000000000, 95.000000000000000 },
+ { -0.038698339728525440, 50.000000000000000, 100.00000000000000 },
+};
+const double toler019 = 1.0000000000000006e-11;
+
+// Test data for nu=100.00000000000000.
+// max(|f - f_GSL|): 4.8138576458356397e-17
+// max(|f - f_GSL| / |f_GSL|): 1.0835289187603112e-13
+const testcase_cyl_bessel_j<double>
+data020[21] =
+{
+ { 0.0000000000000000, 100.00000000000000, 0.0000000000000000 },
+ { 6.2677893955418763e-119, 100.00000000000000, 5.0000000000000000 },
+ { 6.5973160641553816e-89, 100.00000000000000, 10.000000000000000 },
+ { 1.9660095611249536e-71, 100.00000000000000, 15.000000000000000 },
+ { 3.9617550943362524e-59, 100.00000000000000, 20.000000000000000 },
+ { 1.1064482655301687e-49, 100.00000000000000, 25.000000000000000 },
+ { 4.5788015281752354e-42, 100.00000000000000, 30.000000000000000 },
+ { 9.9210206714732606e-36, 100.00000000000000, 35.000000000000000 },
+ { 2.3866062996027414e-30, 100.00000000000000, 40.000000000000000 },
+ { 1.0329791804565538e-25, 100.00000000000000, 45.000000000000000 },
+ { 1.1159273690838340e-21, 100.00000000000000, 50.000000000000000 },
+ { 3.7899753451900682e-18, 100.00000000000000, 55.000000000000000 },
+ { 4.7832744078781205e-15, 100.00000000000000, 60.000000000000000 },
+ { 2.5375564579490517e-12, 100.00000000000000, 65.000000000000000 },
+ { 6.1982452141641260e-10, 100.00000000000000, 70.000000000000000 },
+ { 7.4479005905904457e-08, 100.00000000000000, 75.000000000000000 },
+ { 4.6065530648234948e-06, 100.00000000000000, 80.000000000000000 },
+ { 0.00015043869999501765, 100.00000000000000, 85.000000000000000 },
+ { 0.0026021305819963472, 100.00000000000000, 90.000000000000000 },
+ { 0.023150768009428030, 100.00000000000000, 95.000000000000000 },
+ { 0.096366673295861571, 100.00000000000000, 100.00000000000000 },
+};
+const double toler020 = 1.0000000000000006e-11;
+
+template<typename Tp, unsigned int Num>
+ void
+ test(const testcase_cyl_bessel_j<Tp> (&data)[Num], Tp toler)
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = Num;
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::cyl_bessel_j(data[i].nu, data[i].x);
+ const Tp f0 = data[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < toler);
+ }
+
+int
+main()
+{
+ test(data001, toler001);
+ test(data002, toler002);
+ test(data003, toler003);
+ test(data004, toler004);
+ test(data005, toler005);
+ test(data006, toler006);
+ test(data007, toler007);
+ test(data008, toler008);
+ test(data009, toler009);
+ test(data010, toler010);
+ test(data011, toler011);
+ test(data012, toler012);
+ test(data013, toler013);
+ test(data014, toler014);
+ test(data015, toler015);
+ test(data016, toler016);
+ test(data017, toler017);
+ test(data018, toler018);
+ test(data019, toler019);
+ test(data020, toler020);
+ return 0;
+}
Index: testsuite/special_functions/08_cyl_bessel_j/compile.cc
===================================================================
--- testsuite/special_functions/08_cyl_bessel_j/compile.cc (revision 0)
+++ testsuite/special_functions/08_cyl_bessel_j/compile.cc (working copy)
@@ -0,0 +1,40 @@
+// { dg-do compile }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.8 cyl_bessel_j
+
+#include <cmath>
+
+void
+test01()
+{
+ float nuf = 1.0F / 3.0F, xf = 0.5F;
+ double nud = 1.0 / 3.0, xd = 0.5;
+ long double nul = 1.0L / 3.0L, xl = 0.5L;
+
+ std::cyl_bessel_j(nuf, xf);
+ std::cyl_bessel_jf(nuf, xf);
+ std::cyl_bessel_j(nud, xd);
+ std::cyl_bessel_j(nul, xl);
+ std::cyl_bessel_jl(nul, xl);
+
+ return;
+}
+
Index: testsuite/special_functions/08_cyl_bessel_j/compile_2.cc
===================================================================
--- testsuite/special_functions/08_cyl_bessel_j/compile_2.cc (revision 0)
+++ testsuite/special_functions/08_cyl_bessel_j/compile_2.cc (working copy)
@@ -0,0 +1,41 @@
+// { dg-do compile { xfail *-*-* } }
+// { dg-excess-errors "" }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.8 cyl_bessel_j
+
+#include <math.h>
+
+void
+test01()
+{
+ float nuf = 1.0F / 3.0F, xf = 0.5F;
+ double nud = 1.0 / 3.0, xd = 0.5;
+ long double nul = 1.0L / 3.0L, xl = 0.5L;
+
+ cyl_bessel_j(nuf, xf);
+ cyl_bessel_jf(nuf, xf);
+ cyl_bessel_j(nud, xd);
+ cyl_bessel_j(nul, xl);
+ cyl_bessel_jl(nul, xl);
+
+ return;
+}
+
Index: testsuite/special_functions/09_cyl_bessel_k/check_nan.cc
===================================================================
--- testsuite/special_functions/09_cyl_bessel_k/check_nan.cc (revision 0)
+++ testsuite/special_functions/09_cyl_bessel_k/check_nan.cc (working copy)
@@ -0,0 +1,88 @@
+// { dg-require-c-std "" }
+// { dg-add-options ieee }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.9 cyl_bessel_k
+
+#include <cmath>
+#include <testsuite_hooks.h>
+
+void
+test01()
+{
+ float xf = std::numeric_limits<float>::quiet_NaN();
+ double xd = std::numeric_limits<double>::quiet_NaN();
+ long double xl = std::numeric_limits<long double>::quiet_NaN();
+
+ float nuf = 0.0F;
+ double nud = 0.0;
+ long double nul = 0.0L;
+
+ float a = std::cyl_bessel_k(nuf, xf);
+ float b = std::cyl_bessel_kf(nuf, xf);
+ double c = std::cyl_bessel_k(nud, xd);
+ long double d = std::cyl_bessel_k(nul, xl);
+ long double e = std::cyl_bessel_kl(nul, xl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+void
+test02()
+{
+ float xf = 1.0F;
+ double xd = 1.0;
+ long double xl = 1.0L;
+
+ float nuf = std::numeric_limits<float>::quiet_NaN();
+ double nud = std::numeric_limits<double>::quiet_NaN();
+ long double nul = std::numeric_limits<long double>::quiet_NaN();
+
+ float a = std::cyl_bessel_k(nuf, xf);
+ float b = std::cyl_bessel_kf(nuf, xf);
+ double c = std::cyl_bessel_k(nud, xd);
+ long double d = std::cyl_bessel_k(nul, xl);
+ long double e = std::cyl_bessel_kl(nul, xl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+int
+main()
+{
+ test01();
+ test02();
+ return 0;
+}
+
Index: testsuite/special_functions/09_cyl_bessel_k/check_value.cc
===================================================================
--- testsuite/special_functions/09_cyl_bessel_k/check_value.cc (revision 0)
+++ testsuite/special_functions/09_cyl_bessel_k/check_value.cc (working copy)
@@ -0,0 +1,732 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+//
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// cyl_bessel_k
+// Compare against values generated by the GNU Scientific Library.
+// The GSL can be found on the web: http://www.gnu.org/software/gsl/
+#include <limits>
+#include <cmath>
+#if defined(__TEST_DEBUG)
+# include <iostream>
+# define VERIFY(A) \
+ if (!(A)) \
+ { \
+ std::cout << "line " << __LINE__ \
+ << " max_abs_frac = " << max_abs_frac \
+ << std::endl; \
+ }
+#else
+# include <testsuite_hooks.h>
+#endif
+#include <specfun_testcase.h>
+
+
+// Test data for nu=0.0000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 1.7863051312335036e-16
+const testcase_cyl_bessel_k<double>
+data001[20] =
+{
+ { 1.5415067512483025, 0.0000000000000000, 0.25000000000000000 },
+ { 0.92441907122766565, 0.0000000000000000, 0.50000000000000000 },
+ { 0.61058242211646430, 0.0000000000000000, 0.75000000000000000 },
+ { 0.42102443824070829, 0.0000000000000000, 1.0000000000000000 },
+ { 0.29760308908410588, 0.0000000000000000, 1.2500000000000000 },
+ { 0.21380556264752565, 0.0000000000000000, 1.5000000000000000 },
+ { 0.15537981238660362, 0.0000000000000000, 1.7500000000000000 },
+ { 0.11389387274953360, 0.0000000000000000, 2.0000000000000000 },
+ { 0.084043111974658191, 0.0000000000000000, 2.2500000000000000 },
+ { 0.062347553200366168, 0.0000000000000000, 2.5000000000000000 },
+ { 0.046454901308760774, 0.0000000000000000, 2.7500000000000000 },
+ { 0.034739504386279256, 0.0000000000000000, 3.0000000000000000 },
+ { 0.026058755255154966, 0.0000000000000000, 3.2500000000000000 },
+ { 0.019598897170368501, 0.0000000000000000, 3.5000000000000000 },
+ { 0.014774250877128706, 0.0000000000000000, 3.7500000000000000 },
+ { 0.011159676085853026, 0.0000000000000000, 4.0000000000000000 },
+ { 0.0084443877245429649, 0.0000000000000000, 4.2500000000000000 },
+ { 0.0063998572432339747, 0.0000000000000000, 4.5000000000000000 },
+ { 0.0048572045578879524, 0.0000000000000000, 4.7500000000000000 },
+ { 0.0036910983340425947, 0.0000000000000000, 5.0000000000000000 },
+};
+const double toler001 = 2.5000000000000020e-13;
+
+// Test data for nu=0.33333333333333331.
+// max(|f - f_GSL|): 1.3322676295501878e-15
+// max(|f - f_GSL| / |f_GSL|): 4.3522010494015439e-15
+const testcase_cyl_bessel_k<double>
+data002[20] =
+{
+ { 1.7144912564234518, 0.33333333333333331, 0.25000000000000000 },
+ { 0.98903107424672421, 0.33333333333333331, 0.50000000000000000 },
+ { 0.64216899667282989, 0.33333333333333331, 0.75000000000000000 },
+ { 0.43843063344153432, 0.33333333333333331, 1.0000000000000000 },
+ { 0.30788192414945043, 0.33333333333333331, 1.2500000000000000 },
+ { 0.22015769026776688, 0.33333333333333331, 1.5000000000000000 },
+ { 0.15943413057311245, 0.33333333333333331, 1.7500000000000000 },
+ { 0.11654496129616534, 0.33333333333333331, 2.0000000000000000 },
+ { 0.085809609306439674, 0.33333333333333331, 2.2500000000000000 },
+ { 0.063542537454733386, 0.33333333333333331, 2.5000000000000000 },
+ { 0.047273354184795509, 0.33333333333333331, 2.7500000000000000 },
+ { 0.035305904902162587, 0.33333333333333331, 3.0000000000000000 },
+ { 0.026454186892773169, 0.33333333333333331, 3.2500000000000000 },
+ { 0.019877061407943805, 0.33333333333333331, 3.5000000000000000 },
+ { 0.014971213514760214, 0.33333333333333331, 3.7500000000000000 },
+ { 0.011299947573672165, 0.33333333333333331, 4.0000000000000000 },
+ { 0.0085447959546110473, 0.33333333333333331, 4.2500000000000000 },
+ { 0.0064720581217078237, 0.33333333333333331, 4.5000000000000000 },
+ { 0.0049093342803275264, 0.33333333333333331, 4.7500000000000000 },
+ { 0.0037288750960535887, 0.33333333333333331, 5.0000000000000000 },
+};
+const double toler002 = 2.5000000000000020e-13;
+
+// Test data for nu=0.50000000000000000.
+// max(|f - f_GSL|): 1.3322676295501878e-15
+// max(|f - f_GSL| / |f_GSL|): 1.5172850443872369e-15
+const testcase_cyl_bessel_k<double>
+data003[20] =
+{
+ { 1.9521640631515476, 0.50000000000000000, 0.25000000000000000 },
+ { 1.0750476034999195, 0.50000000000000000, 0.50000000000000000 },
+ { 0.68361006034952421, 0.50000000000000000, 0.75000000000000000 },
+ { 0.46106850444789454, 0.50000000000000000, 1.0000000000000000 },
+ { 0.32117137397144746, 0.50000000000000000, 1.2500000000000000 },
+ { 0.22833505222826550, 0.50000000000000000, 1.5000000000000000 },
+ { 0.16463628997380864, 0.50000000000000000, 1.7500000000000000 },
+ { 0.11993777196806145, 0.50000000000000000, 2.0000000000000000 },
+ { 0.088065558803650454, 0.50000000000000000, 2.2500000000000000 },
+ { 0.065065943154009986, 0.50000000000000000, 2.5000000000000000 },
+ { 0.048315198301417825, 0.50000000000000000, 2.7500000000000000 },
+ { 0.036025985131764589, 0.50000000000000000, 3.0000000000000000 },
+ { 0.026956356532443351, 0.50000000000000000, 3.2500000000000000 },
+ { 0.020229969578139294, 0.50000000000000000, 3.5000000000000000 },
+ { 0.015220888252975564, 0.50000000000000000, 3.7500000000000000 },
+ { 0.011477624576608052, 0.50000000000000000, 4.0000000000000000 },
+ { 0.0086718932956978342, 0.50000000000000000, 4.2500000000000000 },
+ { 0.0065633945646345407, 0.50000000000000000, 4.5000000000000000 },
+ { 0.0049752435421262292, 0.50000000000000000, 4.7500000000000000 },
+ { 0.0037766133746428825, 0.50000000000000000, 5.0000000000000000 },
+};
+const double toler003 = 2.5000000000000020e-13;
+
+// Test data for nu=0.66666666666666663.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 8.1483075013172610e-16
+const testcase_cyl_bessel_k<double>
+data004[20] =
+{
+ { 2.3289060745544101, 0.66666666666666663, 0.25000000000000000 },
+ { 1.2059304647203353, 0.66666666666666663, 0.50000000000000000 },
+ { 0.74547232976647215, 0.66666666666666663, 0.75000000000000000 },
+ { 0.49447506210420827, 0.66666666666666663, 1.0000000000000000 },
+ { 0.34062994813514252, 0.66666666666666663, 1.2500000000000000 },
+ { 0.24024045240315581, 0.66666666666666663, 1.5000000000000000 },
+ { 0.17217716908452310, 0.66666666666666663, 1.7500000000000000 },
+ { 0.12483892748812841, 0.66666666666666663, 2.0000000000000000 },
+ { 0.091315296079621050, 0.66666666666666663, 2.2500000000000000 },
+ { 0.067255322171623361, 0.66666666666666663, 2.5000000000000000 },
+ { 0.049809546542402224, 0.66666666666666663, 2.7500000000000000 },
+ { 0.037057074495188531, 0.66666666666666663, 3.0000000000000000 },
+ { 0.027674365504886729, 0.66666666666666663, 3.2500000000000000 },
+ { 0.020733915836010912, 0.66666666666666663, 3.5000000000000000 },
+ { 0.015577015510251332, 0.66666666666666663, 3.7500000000000000 },
+ { 0.011730801456525336, 0.66666666666666663, 4.0000000000000000 },
+ { 0.0088528343204658851, 0.66666666666666663, 4.2500000000000000 },
+ { 0.0066933190915775560, 0.66666666666666663, 4.5000000000000000 },
+ { 0.0050689292106255480, 0.66666666666666663, 4.7500000000000000 },
+ { 0.0038444246344968226, 0.66666666666666663, 5.0000000000000000 },
+};
+const double toler004 = 2.5000000000000020e-13;
+
+// Test data for nu=1.0000000000000000.
+// max(|f - f_GSL|): 5.5511151231257827e-17
+// max(|f - f_GSL| / |f_GSL|): 2.7422040631145076e-16
+const testcase_cyl_bessel_k<double>
+data005[20] =
+{
+ { 3.7470259744407115, 1.0000000000000000, 0.25000000000000000 },
+ { 1.6564411200033007, 1.0000000000000000, 0.50000000000000000 },
+ { 0.94958046696214016, 1.0000000000000000, 0.75000000000000000 },
+ { 0.60190723019723458, 1.0000000000000000, 1.0000000000000000 },
+ { 0.40212407978419540, 1.0000000000000000, 1.2500000000000000 },
+ { 0.27738780045684375, 1.0000000000000000, 1.5000000000000000 },
+ { 0.19547745347439310, 1.0000000000000000, 1.7500000000000000 },
+ { 0.13986588181652262, 1.0000000000000000, 2.0000000000000000 },
+ { 0.10121630256832535, 1.0000000000000000, 2.2500000000000000 },
+ { 0.073890816347747038, 1.0000000000000000, 2.5000000000000000 },
+ { 0.054318522758919859, 1.0000000000000000, 2.7500000000000000 },
+ { 0.040156431128194198, 1.0000000000000000, 3.0000000000000000 },
+ { 0.029825529796040143, 1.0000000000000000, 3.2500000000000000 },
+ { 0.022239392925923845, 1.0000000000000000, 3.5000000000000000 },
+ { 0.016638191754688912, 1.0000000000000000, 3.7500000000000000 },
+ { 0.012483498887268435, 1.0000000000000000, 4.0000000000000000 },
+ { 0.0093896806560432589, 1.0000000000000000, 4.2500000000000000 },
+ { 0.0070780949089680901, 1.0000000000000000, 4.5000000000000000 },
+ { 0.0053459218178228390, 1.0000000000000000, 4.7500000000000000 },
+ { 0.0040446134454521655, 1.0000000000000000, 5.0000000000000000 },
+};
+const double toler005 = 2.5000000000000020e-13;
+
+// Test data for nu=2.0000000000000000.
+// max(|f - f_GSL|): 3.5527136788005009e-15
+// max(|f - f_GSL| / |f_GSL|): 1.9937716861613039e-16
+const testcase_cyl_bessel_k<double>
+data006[20] =
+{
+ { 31.517714546773998, 2.0000000000000000, 0.25000000000000000 },
+ { 7.5501835512408695, 2.0000000000000000, 0.50000000000000000 },
+ { 3.1427970006821715, 2.0000000000000000, 0.75000000000000000 },
+ { 1.6248388986351774, 2.0000000000000000, 1.0000000000000000 },
+ { 0.94100161673881855, 2.0000000000000000, 1.2500000000000000 },
+ { 0.58365596325665070, 2.0000000000000000, 1.5000000000000000 },
+ { 0.37878261635733856, 2.0000000000000000, 1.7500000000000000 },
+ { 0.25375975456605621, 2.0000000000000000, 2.0000000000000000 },
+ { 0.17401315870205850, 2.0000000000000000, 2.2500000000000000 },
+ { 0.12146020627856381, 2.0000000000000000, 2.5000000000000000 },
+ { 0.085959281497066137, 2.0000000000000000, 2.7500000000000000 },
+ { 0.061510458471742059, 2.0000000000000000, 3.0000000000000000 },
+ { 0.044412927437333515, 2.0000000000000000, 3.2500000000000000 },
+ { 0.032307121699467839, 2.0000000000000000, 3.5000000000000000 },
+ { 0.023647953146296127, 2.0000000000000000, 3.7500000000000000 },
+ { 0.017401425529487244, 2.0000000000000000, 4.0000000000000000 },
+ { 0.012863060974445674, 2.0000000000000000, 4.2500000000000000 },
+ { 0.0095456772027753475, 2.0000000000000000, 4.5000000000000000 },
+ { 0.0071081190074975690, 2.0000000000000000, 4.7500000000000000 },
+ { 0.0053089437122234608, 2.0000000000000000, 5.0000000000000000 },
+};
+const double toler006 = 2.5000000000000020e-13;
+
+// Test data for nu=5.0000000000000000.
+// max(|f - f_GSL|): 5.8207660913467407e-11
+// max(|f - f_GSL| / |f_GSL|): 2.4867363835720159e-16
+const testcase_cyl_bessel_k<double>
+data007[20] =
+{
+ { 391683.98962334893, 5.0000000000000000, 0.25000000000000000 },
+ { 12097.979476096394, 5.0000000000000000, 0.50000000000000000 },
+ { 1562.5870339691098, 5.0000000000000000, 0.75000000000000000 },
+ { 360.96058960124066, 5.0000000000000000, 1.0000000000000000 },
+ { 114.29321426334016, 5.0000000000000000, 1.2500000000000000 },
+ { 44.067781159301056, 5.0000000000000000, 1.5000000000000000 },
+ { 19.426568687730292, 5.0000000000000000, 1.7500000000000000 },
+ { 9.4310491005964820, 5.0000000000000000, 2.0000000000000000 },
+ { 4.9221270549918685, 5.0000000000000000, 2.2500000000000000 },
+ { 2.7168842907865423, 5.0000000000000000, 2.5000000000000000 },
+ { 1.5677685890536335, 5.0000000000000000, 2.7500000000000000 },
+ { 0.93777360238680818, 5.0000000000000000, 3.0000000000000000 },
+ { 0.57775534736785106, 5.0000000000000000, 3.2500000000000000 },
+ { 0.36482440208451983, 5.0000000000000000, 3.5000000000000000 },
+ { 0.23520290620082257, 5.0000000000000000, 3.7500000000000000 },
+ { 0.15434254872599723, 5.0000000000000000, 4.0000000000000000 },
+ { 0.10283347176876455, 5.0000000000000000, 4.2500000000000000 },
+ { 0.069423643150881773, 5.0000000000000000, 4.5000000000000000 },
+ { 0.047410616917942211, 5.0000000000000000, 4.7500000000000000 },
+ { 0.032706273712031865, 5.0000000000000000, 5.0000000000000000 },
+};
+const double toler007 = 2.5000000000000020e-13;
+
+// Test data for nu=10.000000000000000.
+// max(|f - f_GSL|): 6.1035156250000000e-05
+// max(|f - f_GSL| / |f_GSL|): 7.7998476565326393e-16
+const testcase_cyl_bessel_k<double>
+data008[20] =
+{
+ { 194481817927839.88, 10.000000000000000, 0.25000000000000000 },
+ { 188937569319.90030, 10.000000000000000, 0.50000000000000000 },
+ { 3248187687.8018155, 10.000000000000000, 0.75000000000000000 },
+ { 180713289.90102941, 10.000000000000000, 1.0000000000000000 },
+ { 19104425.945252180, 10.000000000000000, 1.2500000000000000 },
+ { 3027483.5236822353, 10.000000000000000, 1.5000000000000000 },
+ { 633724.71555087867, 10.000000000000000, 1.7500000000000000 },
+ { 162482.40397955943, 10.000000000000000, 2.0000000000000000 },
+ { 48602.446087749791, 10.000000000000000, 2.2500000000000000 },
+ { 16406.916416341937, 10.000000000000000, 2.5000000000000000 },
+ { 6104.1720745909606, 10.000000000000000, 2.7500000000000000 },
+ { 2459.6204220569480, 10.000000000000000, 3.0000000000000000 },
+ { 1059.2358443703381, 10.000000000000000, 3.2500000000000000 },
+ { 482.53582096664758, 10.000000000000000, 3.5000000000000000 },
+ { 230.64249314993776, 10.000000000000000, 3.7500000000000000 },
+ { 114.91408364049620, 10.000000000000000, 4.0000000000000000 },
+ { 59.361613632706479, 10.000000000000000, 4.2500000000000000 },
+ { 31.652958759229868, 10.000000000000000, 4.5000000000000000 },
+ { 17.357723966417399, 10.000000000000000, 4.7500000000000000 },
+ { 9.7585628291778121, 10.000000000000000, 5.0000000000000000 },
+};
+const double toler008 = 2.5000000000000020e-13;
+
+// Test data for nu=20.000000000000000.
+// max(|f - f_GSL|): 2.7670116110564327e+19
+// max(|f - f_GSL| / |f_GSL|): 1.2737005853777639e-15
+const testcase_cyl_bessel_k<double>
+data009[20] =
+{
+ { 7.0065983661641184e+34, 20.000000000000000, 0.25000000000000000 },
+ { 6.6655498744171593e+28, 20.000000000000000, 0.50000000000000000 },
+ { 1.9962989615380379e+25, 20.000000000000000, 0.75000000000000000 },
+ { 6.2943693604245335e+22, 20.000000000000000, 1.0000000000000000 },
+ { 7.2034511920074182e+20, 20.000000000000000, 1.2500000000000000 },
+ { 1.8620549984645546e+19, 20.000000000000000, 1.5000000000000000 },
+ { 8.4415605303952486e+17, 20.000000000000000, 1.7500000000000000 },
+ { 57708568527002520., 20.000000000000000, 2.0000000000000000 },
+ { 5396824209986879.0, 20.000000000000000, 2.2500000000000000 },
+ { 645996884063683.62, 20.000000000000000, 2.5000000000000000 },
+ { 94387401970996.328, 20.000000000000000, 2.7500000000000000 },
+ { 16254643952204.371, 20.000000000000000, 3.0000000000000000 },
+ { 3212694836166.4053, 20.000000000000000, 3.2500000000000000 },
+ { 713857897923.74072, 20.000000000000000, 3.5000000000000000 },
+ { 175423421958.35925, 20.000000000000000, 3.7500000000000000 },
+ { 47050078926.298080, 20.000000000000000, 4.0000000000000000 },
+ { 13625066095.067503, 20.000000000000000, 4.2500000000000000 },
+ { 4222179870.6810656, 20.000000000000000, 4.5000000000000000 },
+ { 1389634112.7516634, 20.000000000000000, 4.7500000000000000 },
+ { 482700052.06214869, 20.000000000000000, 5.0000000000000000 },
+};
+const double toler009 = 2.5000000000000020e-13;
+
+// Test data for nu=50.000000000000000.
+// max(|f - f_GSL|): 3.9111090745622133e+92
+// max(|f - f_GSL| / |f_GSL|): 3.7220730535457535e-15
+const testcase_cyl_bessel_k<double>
+data010[20] =
+{
+ { 4.3394604622138714e+107, 50.000000000000000, 0.25000000000000000 },
+ { 3.8505298918269003e+92, 50.000000000000000, 0.50000000000000000 },
+ { 6.0292756894842793e+83, 50.000000000000000, 0.75000000000000000 },
+ { 3.4068968541616991e+77, 50.000000000000000, 1.0000000000000000 },
+ { 4.8485527365039051e+72, 50.000000000000000, 1.2500000000000000 },
+ { 5.3091717574907920e+68, 50.000000000000000, 1.5000000000000000 },
+ { 2.3762245257445824e+65, 50.000000000000000, 1.7500000000000000 },
+ { 2.9799817396049268e+62, 50.000000000000000, 2.0000000000000000 },
+ { 8.2079431233488581e+59, 50.000000000000000, 2.2500000000000000 },
+ { 4.2046528212987503e+57, 50.000000000000000, 2.5000000000000000 },
+ { 3.5578676911884825e+55, 50.000000000000000, 2.7500000000000000 },
+ { 4.5559542293221535e+53, 50.000000000000000, 3.0000000000000000 },
+ { 8.2606735967628997e+51, 50.000000000000000, 3.2500000000000000 },
+ { 2.0139406747903812e+50, 50.000000000000000, 3.5000000000000000 },
+ { 6.3368727837484600e+48, 50.000000000000000, 3.7500000000000000 },
+ { 2.4897317389325753e+47, 50.000000000000000, 4.0000000000000000 },
+ { 1.1888958173039699e+46, 50.000000000000000, 4.2500000000000000 },
+ { 6.7472593648148542e+44, 50.000000000000000, 4.5000000000000000 },
+ { 4.4664266585930700e+43, 50.000000000000000, 4.7500000000000000 },
+ { 3.3943222434301628e+42, 50.000000000000000, 5.0000000000000000 },
+};
+const double toler010 = 2.5000000000000020e-13;
+
+// Test data for nu=100.00000000000000.
+// max(|f - f_GSL|): 8.5970689361151757e+232
+// max(|f - f_GSL| / |f_GSL|): 9.0457919481999128e-14
+const testcase_cyl_bessel_k<double>
+data011[20] =
+{
+ { 9.5039428115809898e+245, 100.00000000000000, 0.25000000000000000 },
+ { 7.4937399313533112e+215, 100.00000000000000, 0.50000000000000000 },
+ { 1.8417471020730701e+198, 100.00000000000000, 0.75000000000000000 },
+ { 5.9003331836386410e+185, 100.00000000000000, 1.0000000000000000 },
+ { 1.2002130935576950e+176, 100.00000000000000, 1.2500000000000000 },
+ { 1.4467044226487075e+168, 100.00000000000000, 1.5000000000000000 },
+ { 2.9161498411497642e+161, 100.00000000000000, 1.7500000000000000 },
+ { 4.6194159776013925e+155, 100.00000000000000, 2.0000000000000000 },
+ { 3.5332121583541727e+150, 100.00000000000000, 2.2500000000000000 },
+ { 9.3566097231039940e+145, 100.00000000000000, 2.5000000000000000 },
+ { 6.7672283615134532e+141, 100.00000000000000, 2.7500000000000000 },
+ { 1.1219630864949494e+138, 100.00000000000000, 3.0000000000000000 },
+ { 3.7329723699990903e+134, 100.00000000000000, 3.2500000000000000 },
+ { 2.2476893883855163e+131, 100.00000000000000, 3.5000000000000000 },
+ { 2.2564559319883196e+128, 100.00000000000000, 3.7500000000000000 },
+ { 3.5353340499626455e+125, 100.00000000000000, 4.0000000000000000 },
+ { 8.1898439213010234e+122, 100.00000000000000, 4.2500000000000000 },
+ { 2.6823744110726800e+120, 100.00000000000000, 4.5000000000000000 },
+ { 1.1963963615212274e+118, 100.00000000000000, 4.7500000000000000 },
+ { 7.0398601930616815e+115, 100.00000000000000, 5.0000000000000000 },
+};
+const double toler011 = 5.0000000000000029e-12;
+// cyl_bessel_k
+
+// Test data for nu=0.0000000000000000.
+// max(|f - f_GSL|): 4.3368086899420177e-19
+// max(|f - f_GSL| / |f_GSL|): 1.8009631353873430e-16
+const testcase_cyl_bessel_k<double>
+data012[20] =
+{
+ { 0.0036910983340425947, 0.0000000000000000, 5.0000000000000000 },
+ { 1.7780062316167650e-05, 0.0000000000000000, 10.000000000000000 },
+ { 9.8195364823964333e-08, 0.0000000000000000, 15.000000000000000 },
+ { 5.7412378153365238e-10, 0.0000000000000000, 20.000000000000000 },
+ { 3.4641615622131151e-12, 0.0000000000000000, 25.000000000000000 },
+ { 2.1324774964630566e-14, 0.0000000000000000, 30.000000000000000 },
+ { 1.3310351491429464e-16, 0.0000000000000000, 35.000000000000000 },
+ { 8.3928611000995700e-19, 0.0000000000000000, 40.000000000000000 },
+ { 5.3334561226187247e-21, 0.0000000000000000, 45.000000000000000 },
+ { 3.4101677497894956e-23, 0.0000000000000000, 50.000000000000000 },
+ { 2.1913102183534147e-25, 0.0000000000000000, 55.000000000000000 },
+ { 1.4138978405591074e-27, 0.0000000000000000, 60.000000000000000 },
+ { 9.1544673210030045e-30, 0.0000000000000000, 65.000000000000000 },
+ { 5.9446613372925013e-32, 0.0000000000000000, 70.000000000000000 },
+ { 3.8701170455869113e-34, 0.0000000000000000, 75.000000000000000 },
+ { 2.5251198425054723e-36, 0.0000000000000000, 80.000000000000000 },
+ { 1.6507623579783908e-38, 0.0000000000000000, 85.000000000000000 },
+ { 1.0810242556984256e-40, 0.0000000000000000, 90.000000000000000 },
+ { 7.0901249699001278e-43, 0.0000000000000000, 95.000000000000000 },
+ { 4.6566282291759032e-45, 0.0000000000000000, 100.00000000000000 },
+};
+const double toler012 = 2.5000000000000020e-13;
+
+// Test data for nu=0.33333333333333331.
+// max(|f - f_GSL|): 1.0339757656912846e-25
+// max(|f - f_GSL| / |f_GSL|): 1.7960859646361972e-16
+const testcase_cyl_bessel_k<double>
+data013[20] =
+{
+ { 0.0037288750960535887, 0.33333333333333331, 5.0000000000000000 },
+ { 1.7874608271055339e-05, 0.33333333333333331, 10.000000000000000 },
+ { 9.8548341568798317e-08, 0.33333333333333331, 15.000000000000000 },
+ { 5.7568278247790865e-10, 0.33333333333333331, 20.000000000000000 },
+ { 3.4717201424907059e-12, 0.33333333333333331, 25.000000000000000 },
+ { 2.1363664736611189e-14, 0.33333333333333331, 30.000000000000000 },
+ { 1.3331202314165813e-16, 0.33333333333333331, 35.000000000000000 },
+ { 8.4043837769480934e-19, 0.33333333333333331, 40.000000000000000 },
+ { 5.3399731261024948e-21, 0.33333333333333331, 45.000000000000000 },
+ { 3.4139217813583632e-23, 0.33333333333333331, 50.000000000000000 },
+ { 2.1935050179185627e-25, 0.33333333333333331, 55.000000000000000 },
+ { 1.4151968805623662e-27, 0.33333333333333331, 60.000000000000000 },
+ { 9.1622357217019043e-30, 0.33333333333333331, 65.000000000000000 },
+ { 5.9493479703461315e-32, 0.33333333333333331, 70.000000000000000 },
+ { 3.8729660011055947e-34, 0.33333333333333331, 75.000000000000000 },
+ { 2.5268631828013877e-36, 0.33333333333333331, 80.000000000000000 },
+ { 1.6518353676138867e-38, 0.33333333333333331, 85.000000000000000 },
+ { 1.0816880942511494e-40, 0.33333333333333331, 90.000000000000000 },
+ { 7.0942508599231512e-43, 0.33333333333333331, 95.000000000000000 },
+ { 4.6592031570213454e-45, 0.33333333333333331, 100.00000000000000 },
+};
+const double toler013 = 2.5000000000000020e-13;
+
+// Test data for nu=0.50000000000000000.
+// max(|f - f_GSL|): 1.5046327690525280e-36
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_cyl_bessel_k<double>
+data014[20] =
+{
+ { 0.0037766133746428825, 0.50000000000000000, 5.0000000000000000 },
+ { 1.7993478093705181e-05, 0.50000000000000000, 10.000000000000000 },
+ { 9.8991312032877236e-08, 0.50000000000000000, 15.000000000000000 },
+ { 5.7763739747074450e-10, 0.50000000000000000, 20.000000000000000 },
+ { 3.4811912768406949e-12, 0.50000000000000000, 25.000000000000000 },
+ { 2.1412375659560111e-14, 0.50000000000000000, 30.000000000000000 },
+ { 1.3357311366035824e-16, 0.50000000000000000, 35.000000000000000 },
+ { 8.4188091949489049e-19, 0.50000000000000000, 40.000000000000000 },
+ { 5.3481305002517408e-21, 0.50000000000000000, 45.000000000000000 },
+ { 3.4186200954570754e-23, 0.50000000000000000, 50.000000000000000 },
+ { 2.1962515908772453e-25, 0.50000000000000000, 55.000000000000000 },
+ { 1.4168223500353693e-27, 0.50000000000000000, 60.000000000000000 },
+ { 9.1719554473256892e-30, 0.50000000000000000, 65.000000000000000 },
+ { 5.9552114337788932e-32, 0.50000000000000000, 70.000000000000000 },
+ { 3.8765301321409432e-34, 0.50000000000000000, 75.000000000000000 },
+ { 2.5290440439442910e-36, 0.50000000000000000, 80.000000000000000 },
+ { 1.6531776067605980e-38, 0.50000000000000000, 85.000000000000000 },
+ { 1.0825184636529955e-40, 0.50000000000000000, 90.000000000000000 },
+ { 7.0994115873258822e-43, 0.50000000000000000, 95.000000000000000 },
+ { 4.6624238126346715e-45, 0.50000000000000000, 100.00000000000000 },
+};
+const double toler014 = 2.5000000000000020e-13;
+
+// Test data for nu=0.66666666666666663.
+// max(|f - f_GSL|): 4.3368086899420177e-19
+// max(|f - f_GSL| / |f_GSL|): 3.5630695000470094e-16
+const testcase_cyl_bessel_k<double>
+data015[20] =
+{
+ { 0.0038444246344968226, 0.66666666666666663, 5.0000000000000000 },
+ { 1.8161187569530204e-05, 0.66666666666666663, 10.000000000000000 },
+ { 9.9614751542305571e-08, 0.66666666666666663, 15.000000000000000 },
+ { 5.8038484271925811e-10, 0.66666666666666663, 20.000000000000000 },
+ { 3.4944937498488603e-12, 0.66666666666666663, 25.000000000000000 },
+ { 2.1480755645577720e-14, 0.66666666666666663, 30.000000000000000 },
+ { 1.3393949190152161e-16, 0.66666666666666663, 35.000000000000000 },
+ { 8.4390460553642992e-19, 0.66666666666666663, 40.000000000000000 },
+ { 5.3595716143622089e-21, 0.66666666666666663, 45.000000000000000 },
+ { 3.4252085301433749e-23, 0.66666666666666663, 50.000000000000000 },
+ { 2.2001025377982308e-25, 0.66666666666666663, 55.000000000000000 },
+ { 1.4191011274172078e-27, 0.66666666666666663, 60.000000000000000 },
+ { 9.1855803020269763e-30, 0.66666666666666663, 65.000000000000000 },
+ { 5.9634299472578764e-32, 0.66666666666666663, 70.000000000000000 },
+ { 3.8815254026478500e-34, 0.66666666666666663, 75.000000000000000 },
+ { 2.5321003991943851e-36, 0.66666666666666663, 80.000000000000000 },
+ { 1.6550585670593067e-38, 0.66666666666666663, 85.000000000000000 },
+ { 1.0836820479428605e-40, 0.66666666666666663, 90.000000000000000 },
+ { 7.1066428916285356e-43, 0.66666666666666663, 95.000000000000000 },
+ { 4.6669364587280465e-45, 0.66666666666666663, 100.00000000000000 },
+};
+const double toler015 = 2.5000000000000020e-13;
+
+// Test data for nu=1.0000000000000000.
+// max(|f - f_GSL|): 1.0339757656912846e-25
+// max(|f - f_GSL| / |f_GSL|): 2.9112857291682056e-16
+const testcase_cyl_bessel_k<double>
+data016[20] =
+{
+ { 0.0040446134454521655, 1.0000000000000000, 5.0000000000000000 },
+ { 1.8648773453825582e-05, 1.0000000000000000, 10.000000000000000 },
+ { 1.0141729369762091e-07, 1.0000000000000000, 15.000000000000000 },
+ { 5.8830579695570384e-10, 1.0000000000000000, 20.000000000000000 },
+ { 3.5327780731999345e-12, 1.0000000000000000, 25.000000000000000 },
+ { 2.1677320018915498e-14, 1.0000000000000000, 30.000000000000000 },
+ { 1.3499178340011053e-16, 1.0000000000000000, 35.000000000000000 },
+ { 8.4971319548610435e-19, 1.0000000000000000, 40.000000000000000 },
+ { 5.3923945937225035e-21, 1.0000000000000000, 45.000000000000000 },
+ { 3.4441022267175555e-23, 1.0000000000000000, 50.000000000000000 },
+ { 2.2111422716117463e-25, 1.0000000000000000, 55.000000000000000 },
+ { 1.4256320265171041e-27, 1.0000000000000000, 60.000000000000000 },
+ { 9.2246195278906156e-30, 1.0000000000000000, 65.000000000000000 },
+ { 5.9869736739138550e-32, 1.0000000000000000, 70.000000000000000 },
+ { 3.8958329467421912e-34, 1.0000000000000000, 75.000000000000000 },
+ { 2.5408531275211708e-36, 1.0000000000000000, 80.000000000000000 },
+ { 1.6604444948567571e-38, 1.0000000000000000, 85.000000000000000 },
+ { 1.0870134457498335e-40, 1.0000000000000000, 90.000000000000000 },
+ { 7.1273442329907240e-43, 1.0000000000000000, 95.000000000000000 },
+ { 4.6798537356369101e-45, 1.0000000000000000, 100.00000000000000 },
+};
+const double toler016 = 2.5000000000000020e-13;
+
+// Test data for nu=2.0000000000000000.
+// max(|f - f_GSL|): 8.6736173798840355e-19
+// max(|f - f_GSL| / |f_GSL|): 1.6337745981208381e-16
+const testcase_cyl_bessel_k<double>
+data017[20] =
+{
+ { 0.0053089437122234608, 2.0000000000000000, 5.0000000000000000 },
+ { 2.1509817006932767e-05, 2.0000000000000000, 10.000000000000000 },
+ { 1.1171767065031378e-07, 2.0000000000000000, 15.000000000000000 },
+ { 6.3295436122922281e-10, 2.0000000000000000, 20.000000000000000 },
+ { 3.7467838080691102e-12, 2.0000000000000000, 25.000000000000000 },
+ { 2.2769929632558265e-14, 2.0000000000000000, 30.000000000000000 },
+ { 1.4081733110858665e-16, 2.0000000000000000, 35.000000000000000 },
+ { 8.8177176978426223e-19, 2.0000000000000000, 40.000000000000000 },
+ { 5.5731181045619470e-21, 2.0000000000000000, 45.000000000000000 },
+ { 3.5479318388581979e-23, 2.0000000000000000, 50.000000000000000 },
+ { 2.2717153918665688e-25, 2.0000000000000000, 55.000000000000000 },
+ { 1.4614189081096777e-27, 2.0000000000000000, 60.000000000000000 },
+ { 9.4383017680150234e-30, 2.0000000000000000, 65.000000000000000 },
+ { 6.1157177279757537e-32, 2.0000000000000000, 70.000000000000000 },
+ { 3.9740059241667034e-34, 2.0000000000000000, 75.000000000000000 },
+ { 2.5886411706935015e-36, 2.0000000000000000, 80.000000000000000 },
+ { 1.6898316402103142e-38, 2.0000000000000000, 85.000000000000000 },
+ { 1.1051801100484218e-40, 2.0000000000000000, 90.000000000000000 },
+ { 7.2401743221736176e-43, 2.0000000000000000, 95.000000000000000 },
+ { 4.7502253038886413e-45, 2.0000000000000000, 100.00000000000000 },
+};
+const double toler017 = 2.5000000000000020e-13;
+
+// Test data for nu=5.0000000000000000.
+// max(|f - f_GSL|): 6.9388939039072284e-18
+// max(|f - f_GSL| / |f_GSL|): 2.3552470349020973e-16
+const testcase_cyl_bessel_k<double>
+data018[20] =
+{
+ { 0.032706273712031865, 5.0000000000000000, 5.0000000000000000 },
+ { 5.7541849985312288e-05, 5.0000000000000000, 10.000000000000000 },
+ { 2.1878261369258224e-07, 5.0000000000000000, 15.000000000000000 },
+ { 1.0538660139974233e-09, 5.0000000000000000, 20.000000000000000 },
+ { 5.6485921365284157e-12, 5.0000000000000000, 25.000000000000000 },
+ { 3.2103335105890266e-14, 5.0000000000000000, 30.000000000000000 },
+ { 1.8919208406439644e-16, 5.0000000000000000, 35.000000000000000 },
+ { 1.1423814375953188e-18, 5.0000000000000000, 40.000000000000000 },
+ { 7.0181216822204101e-21, 5.0000000000000000, 45.000000000000000 },
+ { 4.3671822541009859e-23, 5.0000000000000000, 50.000000000000000 },
+ { 2.7444967640357869e-25, 5.0000000000000000, 55.000000000000000 },
+ { 1.7382232741886986e-27, 5.0000000000000000, 60.000000000000000 },
+ { 1.1078474298959669e-29, 5.0000000000000000, 65.000000000000000 },
+ { 7.0974537081794416e-32, 5.0000000000000000, 70.000000000000000 },
+ { 4.5667269500061064e-34, 5.0000000000000000, 75.000000000000000 },
+ { 2.9491764420206150e-36, 5.0000000000000000, 80.000000000000000 },
+ { 1.9105685973117463e-38, 5.0000000000000000, 85.000000000000000 },
+ { 1.2411034311592645e-40, 5.0000000000000000, 90.000000000000000 },
+ { 8.0814211331379146e-43, 5.0000000000000000, 95.000000000000000 },
+ { 5.2732561132929509e-45, 5.0000000000000000, 100.00000000000000 },
+};
+const double toler018 = 2.5000000000000020e-13;
+
+// Test data for nu=10.000000000000000.
+// max(|f - f_GSL|): 5.3290705182007514e-15
+// max(|f - f_GSL| / |f_GSL|): 5.4609173619982130e-16
+const testcase_cyl_bessel_k<double>
+data019[20] =
+{
+ { 9.7585628291778121, 10.000000000000000, 5.0000000000000000 },
+ { 0.0016142553003906700, 10.000000000000000, 10.000000000000000 },
+ { 2.2605303776606435e-06, 10.000000000000000, 15.000000000000000 },
+ { 6.3162145283215804e-09, 10.000000000000000, 20.000000000000000 },
+ { 2.4076769602801233e-11, 10.000000000000000, 25.000000000000000 },
+ { 1.0842816942222975e-13, 10.000000000000000, 30.000000000000000 },
+ { 5.3976770429777191e-16, 10.000000000000000, 35.000000000000000 },
+ { 2.8680293113671932e-18, 10.000000000000000, 40.000000000000000 },
+ { 1.5939871900169600e-20, 10.000000000000000, 45.000000000000000 },
+ { 9.1509882099879962e-23, 10.000000000000000, 50.000000000000000 },
+ { 5.3823846249592858e-25, 10.000000000000000, 55.000000000000000 },
+ { 3.2253408700563144e-27, 10.000000000000000, 60.000000000000000 },
+ { 1.9613367530075138e-29, 10.000000000000000, 65.000000000000000 },
+ { 1.2068471495933484e-31, 10.000000000000000, 70.000000000000000 },
+ { 7.4979152649449644e-34, 10.000000000000000, 75.000000000000000 },
+ { 4.6957285830490538e-36, 10.000000000000000, 80.000000000000000 },
+ { 2.9606323347034079e-38, 10.000000000000000, 85.000000000000000 },
+ { 1.8773542561131613e-40, 10.000000000000000, 90.000000000000000 },
+ { 1.1962899527846350e-42, 10.000000000000000, 95.000000000000000 },
+ { 7.6554279773881018e-45, 10.000000000000000, 100.00000000000000 },
+};
+const double toler019 = 2.5000000000000020e-13;
+
+// Test data for nu=20.000000000000000.
+// max(|f - f_GSL|): 4.1723251342773438e-07
+// max(|f - f_GSL| / |f_GSL|): 1.2224656515794909e-15
+const testcase_cyl_bessel_k<double>
+data020[20] =
+{
+ { 482700052.06214869, 20.000000000000000, 5.0000000000000000 },
+ { 178.74427820770546, 20.000000000000000, 10.000000000000000 },
+ { 0.012141257729731143, 20.000000000000000, 15.000000000000000 },
+ { 5.5431116361258155e-06, 20.000000000000000, 20.000000000000000 },
+ { 6.3744029330352113e-09, 20.000000000000000, 25.000000000000000 },
+ { 1.2304516475442478e-11, 20.000000000000000, 30.000000000000000 },
+ { 3.2673136479809018e-14, 20.000000000000000, 35.000000000000000 },
+ { 1.0703023799997383e-16, 20.000000000000000, 40.000000000000000 },
+ { 4.0549953175660457e-19, 20.000000000000000, 45.000000000000000 },
+ { 1.7061483797220349e-21, 20.000000000000000, 50.000000000000000 },
+ { 7.7617008115659413e-24, 20.000000000000000, 55.000000000000000 },
+ { 3.7482954006874720e-26, 20.000000000000000, 60.000000000000000 },
+ { 1.8966880763956576e-28, 20.000000000000000, 65.000000000000000 },
+ { 9.9615763479998864e-31, 20.000000000000000, 70.000000000000000 },
+ { 5.3921623063091066e-33, 20.000000000000000, 75.000000000000000 },
+ { 2.9920407657642272e-35, 20.000000000000000, 80.000000000000000 },
+ { 1.6948662723618255e-37, 20.000000000000000, 85.000000000000000 },
+ { 9.7689149642963042e-40, 20.000000000000000, 90.000000000000000 },
+ { 5.7143603019220823e-42, 20.000000000000000, 95.000000000000000 },
+ { 3.3852054148901700e-44, 20.000000000000000, 100.00000000000000 },
+};
+const double toler020 = 2.5000000000000020e-13;
+
+// Test data for nu=50.000000000000000.
+// max(|f - f_GSL|): 8.6655802749976619e+27
+// max(|f - f_GSL| / |f_GSL|): 2.6684549464729312e-15
+const testcase_cyl_bessel_k<double>
+data021[20] =
+{
+ { 3.3943222434301628e+42, 50.000000000000000, 5.0000000000000000 },
+ { 2.0613737753892557e+27, 50.000000000000000, 10.000000000000000 },
+ { 1.7267736974519188e+18, 50.000000000000000, 15.000000000000000 },
+ { 411711209122.01788, 50.000000000000000, 20.000000000000000 },
+ { 1972478.7419813874, 50.000000000000000, 25.000000000000000 },
+ { 58.770686258007267, 50.000000000000000, 30.000000000000000 },
+ { 0.0058659391182535178, 50.000000000000000, 35.000000000000000 },
+ { 1.3634854128794101e-06, 50.000000000000000, 40.000000000000000 },
+ { 5.8652396362160819e-10, 50.000000000000000, 45.000000000000000 },
+ { 4.0060134766400893e-13, 50.000000000000000, 50.000000000000000 },
+ { 3.9062324485711016e-16, 50.000000000000000, 55.000000000000000 },
+ { 5.0389298085176510e-19, 50.000000000000000, 60.000000000000000 },
+ { 8.1305344250110424e-22, 50.000000000000000, 65.000000000000000 },
+ { 1.5732816234948991e-24, 50.000000000000000, 70.000000000000000 },
+ { 3.5349854993874412e-27, 50.000000000000000, 75.000000000000000 },
+ { 8.9940101003189485e-30, 50.000000000000000, 80.000000000000000 },
+ { 2.5403205503080723e-32, 50.000000000000000, 85.000000000000000 },
+ { 7.8397596486715721e-35, 50.000000000000000, 90.000000000000000 },
+ { 2.6098900651329542e-37, 50.000000000000000, 95.000000000000000 },
+ { 9.2745226536133258e-40, 50.000000000000000, 100.00000000000000 },
+};
+const double toler021 = 2.5000000000000020e-13;
+
+// Test data for nu=100.00000000000000.
+// max(|f - f_GSL|): 3.4996011596528191e+101
+// max(|f - f_GSL| / |f_GSL|): 4.9711230957426436e-15
+const testcase_cyl_bessel_k<double>
+data022[20] =
+{
+ { 7.0398601930616815e+115, 100.00000000000000, 5.0000000000000000 },
+ { 4.5966740842695238e+85, 100.00000000000000, 10.000000000000000 },
+ { 8.2565552242653946e+67, 100.00000000000000, 15.000000000000000 },
+ { 1.7081356456876041e+55, 100.00000000000000, 20.000000000000000 },
+ { 1.9858028128780610e+45, 100.00000000000000, 25.000000000000000 },
+ { 1.2131584253026677e+37, 100.00000000000000, 30.000000000000000 },
+ { 1.1016916354696688e+30, 100.00000000000000, 35.000000000000000 },
+ { 7.0074023297775712e+23, 100.00000000000000, 40.000000000000000 },
+ { 1.9236643958470894e+18, 100.00000000000000, 45.000000000000000 },
+ { 16394035276269.250, 100.00000000000000, 50.000000000000000 },
+ { 343254952.89495474, 100.00000000000000, 55.000000000000000 },
+ { 14870.012754946298, 100.00000000000000, 60.000000000000000 },
+ { 1.1708099078572216, 100.00000000000000, 65.000000000000000 },
+ { 0.00015161193930722313, 100.00000000000000, 70.000000000000000 },
+ { 2.9850234381623443e-08, 100.00000000000000, 75.000000000000000 },
+ { 8.3928710724649129e-12, 100.00000000000000, 80.000000000000000 },
+ { 3.2033435630927732e-15, 100.00000000000000, 85.000000000000000 },
+ { 1.5922281431788096e-18, 100.00000000000000, 90.000000000000000 },
+ { 9.9589454577674131e-22, 100.00000000000000, 95.000000000000000 },
+ { 7.6171296304940840e-25, 100.00000000000000, 100.00000000000000 },
+};
+const double toler022 = 2.5000000000000020e-13;
+
+template<typename Tp, unsigned int Num>
+ void
+ test(const testcase_cyl_bessel_k<Tp> (&data)[Num], Tp toler)
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = Num;
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::cyl_bessel_k(data[i].nu, data[i].x);
+ const Tp f0 = data[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < toler);
+ }
+
+int
+main()
+{
+ test(data001, toler001);
+ test(data002, toler002);
+ test(data003, toler003);
+ test(data004, toler004);
+ test(data005, toler005);
+ test(data006, toler006);
+ test(data007, toler007);
+ test(data008, toler008);
+ test(data009, toler009);
+ test(data010, toler010);
+ test(data011, toler011);
+ test(data012, toler012);
+ test(data013, toler013);
+ test(data014, toler014);
+ test(data015, toler015);
+ test(data016, toler016);
+ test(data017, toler017);
+ test(data018, toler018);
+ test(data019, toler019);
+ test(data020, toler020);
+ test(data021, toler021);
+ test(data022, toler022);
+ return 0;
+}
Index: testsuite/special_functions/09_cyl_bessel_k/compile.cc
===================================================================
--- testsuite/special_functions/09_cyl_bessel_k/compile.cc (revision 0)
+++ testsuite/special_functions/09_cyl_bessel_k/compile.cc (working copy)
@@ -0,0 +1,40 @@
+// { dg-do compile }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.9 cyl_bessel_k
+
+#include <cmath>
+
+void
+test01()
+{
+ float nuf = 1.0F / 3.0F, xf = 0.5F;
+ double nud = 1.0 / 3.0, xd = 0.5;
+ long double nul = 1.0L / 3.0L, xl = 0.5L;
+
+ std::cyl_bessel_k(nuf, xf);
+ std::cyl_bessel_kf(nuf, xf);
+ std::cyl_bessel_k(nud, xd);
+ std::cyl_bessel_k(nul, xl);
+ std::cyl_bessel_kl(nul, xl);
+
+ return;
+}
+
Index: testsuite/special_functions/09_cyl_bessel_k/compile_2.cc
===================================================================
--- testsuite/special_functions/09_cyl_bessel_k/compile_2.cc (revision 0)
+++ testsuite/special_functions/09_cyl_bessel_k/compile_2.cc (working copy)
@@ -0,0 +1,41 @@
+// { dg-do compile { xfail *-*-* } }
+// { dg-excess-errors "" }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.9 cyl_bessel_k
+
+#include <math.h>
+
+void
+test01()
+{
+ float nuf = 1.0F / 3.0F, xf = 0.5F;
+ double nud = 1.0 / 3.0, xd = 0.5;
+ long double nul = 1.0L / 3.0L, xl = 0.5L;
+
+ cyl_bessel_k(nuf, xf);
+ cyl_bessel_kf(nuf, xf);
+ cyl_bessel_k(nud, xd);
+ cyl_bessel_k(nul, xl);
+ cyl_bessel_kl(nul, xl);
+
+ return;
+}
+
Index: testsuite/special_functions/10_cyl_neumann/check_nan.cc
===================================================================
--- testsuite/special_functions/10_cyl_neumann/check_nan.cc (revision 0)
+++ testsuite/special_functions/10_cyl_neumann/check_nan.cc (working copy)
@@ -0,0 +1,88 @@
+// { dg-require-c-std "" }
+// { dg-add-options ieee }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.10 cyl_neumann
+
+#include <cmath>
+#include <testsuite_hooks.h>
+
+void
+test01()
+{
+ float xf = std::numeric_limits<float>::quiet_NaN();
+ double xd = std::numeric_limits<double>::quiet_NaN();
+ long double xl = std::numeric_limits<long double>::quiet_NaN();
+
+ float nuf = 0.0F;
+ double nud = 0.0;
+ long double nul = 0.0L;
+
+ float a = std::cyl_neumann(nuf, xf);
+ float b = std::cyl_neumannf(nuf, xf);
+ double c = std::cyl_neumann(nud, xd);
+ long double d = std::cyl_neumann(nul, xl);
+ long double e = std::cyl_neumannl(nul, xl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+void
+test02()
+{
+ float xf = 1.0F;
+ double xd = 1.0;
+ long double xl = 1.0L;
+
+ float nuf = std::numeric_limits<float>::quiet_NaN();
+ double nud = std::numeric_limits<double>::quiet_NaN();
+ long double nul = std::numeric_limits<long double>::quiet_NaN();
+
+ float a = std::cyl_neumann(nuf, xf);
+ float b = std::cyl_neumannf(nuf, xf);
+ double c = std::cyl_neumann(nud, xd);
+ long double d = std::cyl_neumann(nul, xl);
+ long double e = std::cyl_neumannl(nul, xl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+int
+main()
+{
+ test01();
+ test02();
+ return 0;
+}
+
Index: testsuite/special_functions/10_cyl_neumann/check_value.cc
===================================================================
--- testsuite/special_functions/10_cyl_neumann/check_value.cc (revision 0)
+++ testsuite/special_functions/10_cyl_neumann/check_value.cc (working copy)
@@ -0,0 +1,718 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+//
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// cyl_neumann
+// Compare against values generated by the GNU Scientific Library.
+// The GSL can be found on the web: http://www.gnu.org/software/gsl/
+#include <limits>
+#include <cmath>
+#if defined(__TEST_DEBUG)
+# include <iostream>
+# define VERIFY(A) \
+ if (!(A)) \
+ { \
+ std::cout << "line " << __LINE__ \
+ << " max_abs_frac = " << max_abs_frac \
+ << std::endl; \
+ }
+#else
+# include <testsuite_hooks.h>
+#endif
+#include <specfun_testcase.h>
+
+
+// Test data for nu=0.0000000000000000.
+// max(|f - f_GSL|): 1.6653345369377348e-16
+// max(|f - f_GSL| / |f_GSL|): 2.6623873675138176e-15
+const testcase_cyl_neumann<double>
+data001[20] =
+{
+ { -0.93157302493005878, 0.0000000000000000, 0.25000000000000000 },
+ { -0.44451873350670656, 0.0000000000000000, 0.50000000000000000 },
+ { -0.13717276938577236, 0.0000000000000000, 0.75000000000000000 },
+ { 0.088256964215676942, 0.0000000000000000, 1.0000000000000000 },
+ { 0.25821685159454072, 0.0000000000000000, 1.2500000000000000 },
+ { 0.38244892379775886, 0.0000000000000000, 1.5000000000000000 },
+ { 0.46549262864690610, 0.0000000000000000, 1.7500000000000000 },
+ { 0.51037567264974493, 0.0000000000000000, 2.0000000000000000 },
+ { 0.52006476245727862, 0.0000000000000000, 2.2500000000000000 },
+ { 0.49807035961523194, 0.0000000000000000, 2.5000000000000000 },
+ { 0.44865872156913222, 0.0000000000000000, 2.7500000000000000 },
+ { 0.37685001001279045, 0.0000000000000000, 3.0000000000000000 },
+ { 0.28828690267308710, 0.0000000000000000, 3.2500000000000000 },
+ { 0.18902194392082688, 0.0000000000000000, 3.5000000000000000 },
+ { 0.085256756977362638, 0.0000000000000000, 3.7500000000000000 },
+ { -0.016940739325064763, 0.0000000000000000, 4.0000000000000000 },
+ { -0.11191885116160770, 0.0000000000000000, 4.2500000000000000 },
+ { -0.19470500862950454, 0.0000000000000000, 4.5000000000000000 },
+ { -0.26123250323497549, 0.0000000000000000, 4.7500000000000000 },
+ { -0.30851762524903359, 0.0000000000000000, 5.0000000000000000 },
+};
+const double toler001 = 2.5000000000000020e-13;
+
+// Test data for nu=0.33333333333333331.
+// max(|f - f_GSL|): 5.8286708792820718e-16
+// max(|f - f_GSL| / |f_GSL|): 1.7769445360534625e-14
+const testcase_cyl_neumann<double>
+data002[20] =
+{
+ { -1.3461842332051077, 0.33333333333333331, 0.25000000000000000 },
+ { -0.84062782604337771, 0.33333333333333331, 0.50000000000000000 },
+ { -0.52488281484097077, 0.33333333333333331, 0.75000000000000000 },
+ { -0.27880164127599205, 0.33333333333333331, 1.0000000000000000 },
+ { -0.074321349727836453, 0.33333333333333331, 1.2500000000000000 },
+ { 0.096610087766627981, 0.33333333333333331, 1.5000000000000000 },
+ { 0.23582564494922068, 0.33333333333333331, 1.7500000000000000 },
+ { 0.34319996626034494, 0.33333333333333331, 2.0000000000000000 },
+ { 0.41835668452349323, 0.33333333333333331, 2.2500000000000000 },
+ { 0.46145947419129157, 0.33333333333333331, 2.5000000000000000 },
+ { 0.47358926135786023, 0.33333333333333331, 2.7500000000000000 },
+ { 0.45689303457230640, 0.33333333333333331, 3.0000000000000000 },
+ { 0.41458485697347386, 0.33333333333333331, 3.2500000000000000 },
+ { 0.35084133277859947, 0.33333333333333331, 3.5000000000000000 },
+ { 0.27061914527820891, 0.33333333333333331, 3.7500000000000000 },
+ { 0.17941676634394862, 0.33333333333333331, 4.0000000000000000 },
+ { 0.083000434191526043, 0.33333333333333331, 4.2500000000000000 },
+ { -0.012886361627105348, 0.33333333333333331, 4.5000000000000000 },
+ { -0.10281143123935124, 0.33333333333333331, 4.7500000000000000 },
+ { -0.18192321129343850, 0.33333333333333331, 5.0000000000000000 },
+};
+const double toler002 = 1.0000000000000008e-12;
+
+// Test data for nu=0.50000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 5.7217850214577088e-15
+const testcase_cyl_neumann<double>
+data003[20] =
+{
+ { -1.5461605241060765, 0.50000000000000000, 0.25000000000000000 },
+ { -0.99024588024340454, 0.50000000000000000, 0.50000000000000000 },
+ { -0.67411792914454460, 0.50000000000000000, 0.75000000000000000 },
+ { -0.43109886801837594, 0.50000000000000000, 1.0000000000000000 },
+ { -0.22502969244466481, 0.50000000000000000, 1.2500000000000000 },
+ { -0.046083165893097265, 0.50000000000000000, 1.5000000000000000 },
+ { 0.10750804524368722, 0.50000000000000000, 1.7500000000000000 },
+ { 0.23478571040624849, 0.50000000000000000, 2.0000000000000000 },
+ { 0.33414002338271825, 0.50000000000000000, 2.2500000000000000 },
+ { 0.40427830223905686, 0.50000000000000000, 2.5000000000000000 },
+ { 0.44472115119490507, 0.50000000000000000, 2.7500000000000000 },
+ { 0.45604882079463316, 0.50000000000000000, 3.0000000000000000 },
+ { 0.43998859501924370, 0.50000000000000000, 3.2500000000000000 },
+ { 0.39938682536304909, 0.50000000000000000, 3.5000000000000000 },
+ { 0.33809163836693340, 0.50000000000000000, 3.7500000000000000 },
+ { 0.26076607667717877, 0.50000000000000000, 4.0000000000000000 },
+ { 0.17264962544644955, 0.50000000000000000, 4.2500000000000000 },
+ { 0.079285862862978548, 0.50000000000000000, 4.5000000000000000 },
+ { -0.013765943019498003, 0.50000000000000000, 4.7500000000000000 },
+ { -0.10121770918510846, 0.50000000000000000, 5.0000000000000000 },
+};
+const double toler003 = 5.0000000000000039e-13;
+
+// Test data for nu=0.66666666666666663.
+// max(|f - f_GSL|): 1.4988010832439613e-15
+// max(|f - f_GSL| / |f_GSL|): 6.3663053018318525e-15
+const testcase_cyl_neumann<double>
+data004[20] =
+{
+ { -1.8021638417426857, 0.66666666666666663, 0.25000000000000000 },
+ { -1.1316060101031435, 0.66666666666666663, 0.50000000000000000 },
+ { -0.80251156358450737, 0.66666666666666663, 0.75000000000000000 },
+ { -0.56270321497463327, 0.66666666666666663, 1.0000000000000000 },
+ { -0.36007453643432208, 0.66666666666666663, 1.2500000000000000 },
+ { -0.18017937469615020, 0.66666666666666663, 1.5000000000000000 },
+ { -0.019885608758103752, 0.66666666666666663, 1.7500000000000000 },
+ { 0.11989345361903521, 0.66666666666666663, 2.0000000000000000 },
+ { 0.23690889836358039, 0.66666666666666663, 2.2500000000000000 },
+ { 0.32882045742954535, 0.66666666666666663, 2.5000000000000000 },
+ { 0.39385133784531856, 0.66666666666666663, 2.7500000000000000 },
+ { 0.43115101690935642, 0.66666666666666663, 3.0000000000000000 },
+ { 0.44098127351445843, 0.66666666666666663, 3.2500000000000000 },
+ { 0.42477631413456485, 0.66666666666666663, 3.5000000000000000 },
+ { 0.38510384155620386, 0.66666666666666663, 3.7500000000000000 },
+ { 0.32554526794354366, 0.66666666666666663, 4.0000000000000000 },
+ { 0.25051080073878446, 0.66666666666666663, 4.2500000000000000 },
+ { 0.16500507211842136, 0.66666666666666663, 4.5000000000000000 },
+ { 0.074359649728861360, 0.66666666666666663, 4.7500000000000000 },
+ { -0.016050662643389627, 0.66666666666666663, 5.0000000000000000 },
+};
+const double toler004 = 5.0000000000000039e-13;
+
+// Test data for nu=1.0000000000000000.
+// max(|f - f_GSL|): 9.1593399531575415e-16
+// max(|f - f_GSL| / |f_GSL|): 3.3683879467319323e-14
+const testcase_cyl_neumann<double>
+data005[13] =
+{
+ { -0.10703243154093699, 1.0000000000000000, 2.0000000000000000 },
+ { 0.027192057738017056, 1.0000000000000000, 2.2500000000000000 },
+ { 0.14591813796678599, 1.0000000000000000, 2.5000000000000000 },
+ { 0.24601900149738354, 1.0000000000000000, 2.7500000000000000 },
+ { 0.32467442479180003, 1.0000000000000000, 3.0000000000000000 },
+ { 0.37977777371708382, 1.0000000000000000, 3.2500000000000000 },
+ { 0.41018841788751170, 1.0000000000000000, 3.5000000000000000 },
+ { 0.41586877934522715, 1.0000000000000000, 3.7500000000000000 },
+ { 0.39792571055709991, 1.0000000000000000, 4.0000000000000000 },
+ { 0.35856889308385076, 1.0000000000000000, 4.2500000000000000 },
+ { 0.30099732306965449, 1.0000000000000000, 4.5000000000000000 },
+ { 0.22922559673872217, 1.0000000000000000, 4.7500000000000000 },
+ { 0.14786314339122700, 1.0000000000000000, 5.0000000000000000 },
+};
+const double toler005 = 2.5000000000000015e-12;
+
+// Test data for nu=2.0000000000000000.
+// max(|f - f_GSL|): 6.1062266354383610e-16
+// max(|f - f_GSL| / |f_GSL|): 1.2540693630135021e-14
+const testcase_cyl_neumann<double>
+data006[20] =
+{
+ { -20.701268809592200, 2.0000000000000000, 0.25000000000000000 },
+ { -5.4413708371742668, 2.0000000000000000, 0.50000000000000000 },
+ { -2.6297460326656559, 2.0000000000000000, 0.75000000000000000 },
+ { -1.6506826068162548, 2.0000000000000000, 1.0000000000000000 },
+ { -1.1931993101785539, 2.0000000000000000, 1.2500000000000000 },
+ { -0.93219375976297369, 2.0000000000000000, 1.5000000000000000 },
+ { -0.75574746972832973, 2.0000000000000000, 1.7500000000000000 },
+ { -0.61740810419068193, 2.0000000000000000, 2.0000000000000000 },
+ { -0.49589404446793012, 2.0000000000000000, 2.2500000000000000 },
+ { -0.38133584924180314, 2.0000000000000000, 2.5000000000000000 },
+ { -0.26973581138921693, 2.0000000000000000, 2.7500000000000000 },
+ { -0.16040039348492377, 2.0000000000000000, 3.0000000000000000 },
+ { -0.054577503462573951, 2.0000000000000000, 3.2500000000000000 },
+ { 0.045371437729179787, 2.0000000000000000, 3.5000000000000000 },
+ { 0.13653992534009185, 2.0000000000000000, 3.7500000000000000 },
+ { 0.21590359460361472, 2.0000000000000000, 4.0000000000000000 },
+ { 0.28065715378930217, 2.0000000000000000, 4.2500000000000000 },
+ { 0.32848159666046206, 2.0000000000000000, 4.5000000000000000 },
+ { 0.35774854396706901, 2.0000000000000000, 4.7500000000000000 },
+ { 0.36766288260552438, 2.0000000000000000, 5.0000000000000000 },
+};
+const double toler006 = 1.0000000000000008e-12;
+
+// Test data for nu=5.0000000000000000.
+// max(|f - f_GSL|): 8.8817841970012523e-15
+// max(|f - f_GSL| / |f_GSL|): 1.6846903979704834e-15
+const testcase_cyl_neumann<double>
+data007[13] =
+{
+ { -9.9359891284819675, 5.0000000000000000, 2.0000000000000000 },
+ { -5.9446343848076424, 5.0000000000000000, 2.2500000000000000 },
+ { -3.8301760007407522, 5.0000000000000000, 2.5000000000000000 },
+ { -2.6287042009459087, 5.0000000000000000, 2.7500000000000000 },
+ { -1.9059459538286738, 5.0000000000000000, 3.0000000000000000 },
+ { -1.4498157389142654, 5.0000000000000000, 3.2500000000000000 },
+ { -1.1494603169763686, 5.0000000000000000, 3.5000000000000000 },
+ { -0.94343105151431672, 5.0000000000000000, 3.7500000000000000 },
+ { -0.79585142111419982, 5.0000000000000000, 4.0000000000000000 },
+ { -0.68479288173907016, 5.0000000000000000, 4.2500000000000000 },
+ { -0.59631936513587558, 5.0000000000000000, 4.5000000000000000 },
+ { -0.52130838331747587, 5.0000000000000000, 4.7500000000000000 },
+ { -0.45369482249110193, 5.0000000000000000, 5.0000000000000000 },
+};
+const double toler007 = 2.5000000000000020e-13;
+
+// Test data for nu=10.000000000000000.
+// max(|f - f_GSL|): 2.3841857910156250e-07
+// max(|f - f_GSL| / |f_GSL|): 1.4991559422183497e-15
+const testcase_cyl_neumann<double>
+data008[20] =
+{
+ { -124241617095379.48, 10.000000000000000, 0.25000000000000000 },
+ { -121963623349.56966, 10.000000000000000, 0.50000000000000000 },
+ { -2133501638.9057348, 10.000000000000000, 0.75000000000000000 },
+ { -121618014.27868921, 10.000000000000000, 1.0000000000000000 },
+ { -13265210.158452792, 10.000000000000000, 1.2500000000000000 },
+ { -2183993.0260864049, 10.000000000000000, 1.5000000000000000 },
+ { -478274.82386541169, 10.000000000000000, 1.7500000000000000 },
+ { -129184.54220803917, 10.000000000000000, 2.0000000000000000 },
+ { -40993.254794381690, 10.000000000000000, 2.2500000000000000 },
+ { -14782.847716021070, 10.000000000000000, 2.5000000000000000 },
+ { -5916.5330998776262, 10.000000000000000, 2.7500000000000000 },
+ { -2582.6071294842995, 10.000000000000000, 3.0000000000000000 },
+ { -1213.3423564023892, 10.000000000000000, 3.2500000000000000 },
+ { -607.27437834125760, 10.000000000000000, 3.5000000000000000 },
+ { -321.17461059752202, 10.000000000000000, 3.7500000000000000 },
+ { -178.33055590796428, 10.000000000000000, 4.0000000000000000 },
+ { -103.40496587570090, 10.000000000000000, 4.2500000000000000 },
+ { -62.345024619781434, 10.000000000000000, 4.5000000000000000 },
+ { -38.944510430296937, 10.000000000000000, 4.7500000000000000 },
+ { -25.129110095610095, 10.000000000000000, 5.0000000000000000 },
+};
+const double toler008 = 2.5000000000000020e-13;
+
+// Test data for nu=20.000000000000000.
+// max(|f - f_GSL|): 6442450944.0000000
+// max(|f - f_GSL| / |f_GSL|): 1.6458221996165416e-15
+const testcase_cyl_neumann<double>
+data009[20] =
+{
+ { -4.4678815064152581e+34, 20.000000000000000, 0.25000000000000000 },
+ { -4.2714301215659088e+28, 20.000000000000000, 0.50000000000000000 },
+ { -1.2898357375834223e+25, 20.000000000000000, 0.75000000000000000 },
+ { -4.1139703148355065e+22, 20.000000000000000, 1.0000000000000000 },
+ { -4.7783533372148580e+20, 20.000000000000000, 1.2500000000000000 },
+ { -1.2577301772964241e+19, 20.000000000000000, 1.5000000000000000 },
+ { -5.8251041176649626e+17, 20.000000000000000, 1.7500000000000000 },
+ { -40816513889983640., 20.000000000000000, 2.0000000000000000 },
+ { -3925339868516418.5, 20.000000000000000, 2.2500000000000000 },
+ { -484776559582090.25, 20.000000000000000, 2.5000000000000000 },
+ { -73320655044814.469, 20.000000000000000, 2.7500000000000000 },
+ { -13113540041757.449, 20.000000000000000, 3.0000000000000000 },
+ { -2700669268882.7139, 20.000000000000000, 3.2500000000000000 },
+ { -627339518240.21240, 20.000000000000000, 3.5000000000000000 },
+ { -161695236802.71753, 20.000000000000000, 3.7500000000000000 },
+ { -45637199262.220100, 20.000000000000000, 4.0000000000000000 },
+ { -13953299213.925377, 20.000000000000000, 4.2500000000000000 },
+ { -4580215756.5691023, 20.000000000000000, 4.5000000000000000 },
+ { -1602110715.5159132, 20.000000000000000, 4.7500000000000000 },
+ { -593396529.69143200, 20.000000000000000, 5.0000000000000000 },
+};
+const double toler009 = 2.5000000000000020e-13;
+
+// Test data for nu=50.000000000000000.
+// max(|f - f_GSL|): 6.4703872001161536e+68
+// max(|f - f_GSL| / |f_GSL|): 3.7730746786493403e-15
+const testcase_cyl_neumann<double>
+data010[20] =
+{
+ { -2.7643487471155969e+107, 50.000000000000000, 0.25000000000000000 },
+ { -2.4575848224461092e+92, 50.000000000000000, 0.50000000000000000 },
+ { -3.8604508467683829e+83, 50.000000000000000, 0.75000000000000000 },
+ { -2.1911428126053411e+77, 50.000000000000000, 1.0000000000000000 },
+ { -3.1362926828833165e+72, 50.000000000000000, 1.2500000000000000 },
+ { -3.4584216846550566e+68, 50.000000000000000, 1.5000000000000000 },
+ { -1.5607714080312795e+65, 50.000000000000000, 1.7500000000000000 },
+ { -1.9761505765184128e+62, 50.000000000000000, 2.0000000000000000 },
+ { -5.5023640499231188e+59, 50.000000000000000, 2.2500000000000000 },
+ { -2.8530384545826849e+57, 50.000000000000000, 2.5000000000000000 },
+ { -2.4467169322684809e+55, 50.000000000000000, 2.7500000000000000 },
+ { -3.1793891461005181e+53, 50.000000000000000, 3.0000000000000000 },
+ { -5.8573901231568658e+51, 50.000000000000000, 3.2500000000000000 },
+ { -1.4528262197760965e+50, 50.000000000000000, 3.5000000000000000 },
+ { -4.6566569870478635e+48, 50.000000000000000, 3.7500000000000000 },
+ { -1.8661134361400254e+47, 50.000000000000000, 4.0000000000000000 },
+ { -9.1005883612255402e+45, 50.000000000000000, 4.2500000000000000 },
+ { -5.2813777542386141e+44, 50.000000000000000, 4.5000000000000000 },
+ { -3.5795477722116469e+43, 50.000000000000000, 4.7500000000000000 },
+ { -2.7888370175838930e+42, 50.000000000000000, 5.0000000000000000 },
+};
+const double toler010 = 2.5000000000000020e-13;
+
+// Test data for nu=100.00000000000000.
+// max(|f - f_GSL|): 1.6136484921850493e+233
+// max(|f - f_GSL| / |f_GSL|): 3.7090973947899002e-13
+const testcase_cyl_neumann<double>
+data011[20] =
+{
+ { -6.0523080585856754e+245, 100.00000000000000, 0.25000000000000000 },
+ { -4.7766903780412668e+215, 100.00000000000000, 0.50000000000000000 },
+ { -1.1758283017660654e+198, 100.00000000000000, 0.75000000000000000 },
+ { -3.7752878101091316e+185, 100.00000000000000, 1.0000000000000000 },
+ { -7.7013290730008304e+175, 100.00000000000000, 1.2500000000000000 },
+ { -9.3152624794288802e+167, 100.00000000000000, 1.5000000000000000 },
+ { -1.8854163374247264e+161, 100.00000000000000, 1.7500000000000000 },
+ { -3.0008260488569689e+155, 100.00000000000000, 2.0000000000000000 },
+ { -2.3075650873777408e+150, 100.00000000000000, 2.2500000000000000 },
+ { -6.1476258561369381e+145, 100.00000000000000, 2.5000000000000000 },
+ { -4.4758816234829593e+141, 100.00000000000000, 2.7500000000000000 },
+ { -7.4747961023547846e+137, 100.00000000000000, 3.0000000000000000 },
+ { -2.5067022766900123e+134, 100.00000000000000, 3.2500000000000000 },
+ { -1.5222488313431896e+131, 100.00000000000000, 3.5000000000000000 },
+ { -1.5422392812241397e+128, 100.00000000000000, 3.7500000000000000 },
+ { -2.4400857387551062e+125, 100.00000000000000, 4.0000000000000000 },
+ { -5.7118153392422278e+122, 100.00000000000000, 4.2500000000000000 },
+ { -1.8915420905194465e+120, 100.00000000000000, 4.5000000000000000 },
+ { -8.5357945104770158e+117, 100.00000000000000, 4.7500000000000000 },
+ { -5.0848639160196196e+115, 100.00000000000000, 5.0000000000000000 },
+};
+const double toler011 = 2.5000000000000014e-11;
+// cyl_neumann
+
+// Test data for nu=0.0000000000000000.
+// max(|f - f_GSL|): 7.1245093158367467e-15
+// max(|f - f_GSL| / |f_GSL|): 1.5215931554460198e-12
+const testcase_cyl_neumann<double>
+data012[20] =
+{
+ { -0.30851762524903359, 0.0000000000000000, 5.0000000000000000 },
+ { 0.055671167283599457, 0.0000000000000000, 10.000000000000000 },
+ { 0.20546429603891822, 0.0000000000000000, 15.000000000000000 },
+ { 0.062640596809384053, 0.0000000000000000, 20.000000000000000 },
+ { -0.12724943226800617, 0.0000000000000000, 25.000000000000000 },
+ { -0.11729573168666413, 0.0000000000000000, 30.000000000000000 },
+ { 0.045797987195155689, 0.0000000000000000, 35.000000000000000 },
+ { 0.12593641705826092, 0.0000000000000000, 40.000000000000000 },
+ { 0.027060469763313333, 0.0000000000000000, 45.000000000000000 },
+ { -0.098064995470077118, 0.0000000000000000, 50.000000000000000 },
+ { -0.077569178730412594, 0.0000000000000000, 55.000000000000000 },
+ { 0.047358952209449426, 0.0000000000000000, 60.000000000000000 },
+ { 0.097183557740181920, 0.0000000000000000, 65.000000000000000 },
+ { 0.0093096664589409992, 0.0000000000000000, 70.000000000000000 },
+ { -0.085369047647775656, 0.0000000000000000, 75.000000000000000 },
+ { -0.055620339089770016, 0.0000000000000000, 80.000000000000000 },
+ { 0.049567884951494251, 0.0000000000000000, 85.000000000000000 },
+ { 0.079776475854877751, 0.0000000000000000, 90.000000000000000 },
+ { -0.0028230995861232107, 0.0000000000000000, 95.000000000000000 },
+ { -0.077244313365083153, 0.0000000000000000, 100.00000000000000 },
+};
+const double toler012 = 1.0000000000000006e-10;
+
+// Test data for nu=0.33333333333333331.
+// max(|f - f_GSL|): 6.4392935428259079e-15
+// max(|f - f_GSL| / |f_GSL|): 4.0229312517518102e-13
+const testcase_cyl_neumann<double>
+data013[20] =
+{
+ { -0.18192321129343850, 0.33333333333333331, 5.0000000000000000 },
+ { 0.17020111788268760, 0.33333333333333331, 10.000000000000000 },
+ { 0.18540507541540796, 0.33333333333333331, 15.000000000000000 },
+ { -0.028777707635715043, 0.33333333333333331, 20.000000000000000 },
+ { -0.15829741864944163, 0.33333333333333331, 25.000000000000000 },
+ { -0.058645772316705209, 0.33333333333333331, 30.000000000000000 },
+ { 0.10294930308870617, 0.33333333333333331, 35.000000000000000 },
+ { 0.10547870367098922, 0.33333333333333331, 40.000000000000000 },
+ { -0.034334228816010816, 0.33333333333333331, 45.000000000000000 },
+ { -0.11283489933031279, 0.33333333333333331, 50.000000000000000 },
+ { -0.030007358986895105, 0.33333333333333331, 55.000000000000000 },
+ { 0.086699173295718121, 0.33333333333333331, 60.000000000000000 },
+ { 0.074875579668878658, 0.33333333333333331, 65.000000000000000 },
+ { -0.039323246374552680, 0.33333333333333331, 70.000000000000000 },
+ { -0.091263539574475236, 0.33333333333333331, 75.000000000000000 },
+ { -0.013358849535984318, 0.33333333333333331, 80.000000000000000 },
+ { 0.078373575537830198, 0.33333333333333331, 85.000000000000000 },
+ { 0.055812482883955940, 0.33333333333333331, 90.000000000000000 },
+ { -0.043310380106990683, 0.33333333333333331, 95.000000000000000 },
+ { -0.076900504962136559, 0.33333333333333331, 100.00000000000000 },
+};
+const double toler013 = 2.5000000000000014e-11;
+
+// Test data for nu=0.50000000000000000.
+// max(|f - f_GSL|): 6.5988881026157742e-15
+// max(|f - f_GSL| / |f_GSL|): 6.0282403975230169e-13
+const testcase_cyl_neumann<double>
+data014[20] =
+{
+ { -0.10121770918510846, 0.50000000000000000, 5.0000000000000000 },
+ { 0.21170886633139810, 0.50000000000000000, 10.000000000000000 },
+ { 0.15650551590730855, 0.50000000000000000, 15.000000000000000 },
+ { -0.072806904785061938, 0.50000000000000000, 20.000000000000000 },
+ { -0.15817308404205055, 0.50000000000000000, 25.000000000000000 },
+ { -0.022470290598831138, 0.50000000000000000, 30.000000000000000 },
+ { 0.12187835265849535, 0.50000000000000000, 35.000000000000000 },
+ { 0.084138655676395377, 0.50000000000000000, 40.000000000000000 },
+ { -0.062482641933003201, 0.50000000000000000, 45.000000000000000 },
+ { -0.10888475635053954, 0.50000000000000000, 50.000000000000000 },
+ { -0.0023805454010949376, 0.50000000000000000, 55.000000000000000 },
+ { 0.098104683735037918, 0.50000000000000000, 60.000000000000000 },
+ { 0.055663470218594434, 0.50000000000000000, 65.000000000000000 },
+ { -0.060396767883824871, 0.50000000000000000, 70.000000000000000 },
+ { -0.084922578922046868, 0.50000000000000000, 75.000000000000000 },
+ { 0.0098472271924441284, 0.50000000000000000, 80.000000000000000 },
+ { 0.085190643574343625, 0.50000000000000000, 85.000000000000000 },
+ { 0.037684970437156268, 0.50000000000000000, 90.000000000000000 },
+ { -0.059772904856097500, 0.50000000000000000, 95.000000000000000 },
+ { -0.068803091468728109, 0.50000000000000000, 100.00000000000000 },
+};
+const double toler014 = 5.0000000000000028e-11;
+
+// Test data for nu=0.66666666666666663.
+// max(|f - f_GSL|): 7.2442052356791464e-15
+// max(|f - f_GSL| / |f_GSL|): 4.1296144775547441e-13
+const testcase_cyl_neumann<double>
+data015[20] =
+{
+ { -0.016050662643389627, 0.66666666666666663, 5.0000000000000000 },
+ { 0.23937232657540733, 0.66666666666666663, 10.000000000000000 },
+ { 0.11762106604241235, 0.66666666666666663, 15.000000000000000 },
+ { -0.11182254014899558, 0.66666666666666663, 20.000000000000000 },
+ { -0.14756582982938804, 0.66666666666666663, 25.000000000000000 },
+ { 0.015078692908077713, 0.66666666666666663, 30.000000000000000 },
+ { 0.13260911815705795, 0.66666666666666663, 35.000000000000000 },
+ { 0.057217565989652698, 0.66666666666666663, 40.000000000000000 },
+ { -0.086373755152382006, 0.66666666666666663, 45.000000000000000 },
+ { -0.097624139208051616, 0.66666666666666663, 50.000000000000000 },
+ { 0.025354902147023392, 0.66666666666666663, 55.000000000000000 },
+ { 0.10288136476351206, 0.66666666666666663, 60.000000000000000 },
+ { 0.032728379560128203, 0.66666666666666663, 65.000000000000000 },
+ { -0.077363672735747818, 0.66666666666666663, 70.000000000000000 },
+ { -0.072855870458293961, 0.66666666666666663, 75.000000000000000 },
+ { 0.032358106046953543, 0.66666666666666663, 80.000000000000000 },
+ { 0.086240651537394228, 0.66666666666666663, 85.000000000000000 },
+ { 0.017029601697285190, 0.66666666666666663, 90.000000000000000 },
+ { -0.072173520560584681, 0.66666666666666663, 95.000000000000000 },
+ { -0.056057339204073887, 0.66666666666666663, 100.00000000000000 },
+};
+const double toler015 = 2.5000000000000014e-11;
+
+// Test data for nu=1.0000000000000000.
+// max(|f - f_GSL|): 7.6640083168655337e-15
+// max(|f - f_GSL| / |f_GSL|): 4.2719333494531163e-13
+const testcase_cyl_neumann<double>
+data016[20] =
+{
+ { 0.14786314339122700, 1.0000000000000000, 5.0000000000000000 },
+ { 0.24901542420695386, 1.0000000000000000, 10.000000000000000 },
+ { 0.021073628036873522, 1.0000000000000000, 15.000000000000000 },
+ { -0.16551161436252115, 1.0000000000000000, 20.000000000000000 },
+ { -0.098829964783237412, 1.0000000000000000, 25.000000000000000 },
+ { 0.084425570661747135, 1.0000000000000000, 30.000000000000000 },
+ { 0.12751273354559009, 1.0000000000000000, 35.000000000000000 },
+ { -0.0057935058215497536, 1.0000000000000000, 40.000000000000000 },
+ { -0.11552517964639945, 1.0000000000000000, 45.000000000000000 },
+ { -0.056795668562014692, 1.0000000000000000, 50.000000000000000 },
+ { 0.073846265432577926, 1.0000000000000000, 55.000000000000000 },
+ { 0.091869609369866892, 1.0000000000000000, 60.000000000000000 },
+ { -0.017940374275377362, 1.0000000000000000, 65.000000000000000 },
+ { -0.094844652625716230, 1.0000000000000000, 70.000000000000000 },
+ { -0.035213785160580421, 1.0000000000000000, 75.000000000000000 },
+ { 0.069395913784588037, 1.0000000000000000, 80.000000000000000 },
+ { 0.071233187582749768, 1.0000000000000000, 85.000000000000000 },
+ { -0.026187238607768244, 1.0000000000000000, 90.000000000000000 },
+ { -0.081827958724501215, 1.0000000000000000, 95.000000000000000 },
+ { -0.020372312002759834, 1.0000000000000000, 100.00000000000000 },
+};
+const double toler016 = 2.5000000000000014e-11;
+
+// Test data for nu=2.0000000000000000.
+// max(|f - f_GSL|): 7.1193051454088163e-15
+// max(|f - f_GSL| / |f_GSL|): 3.9371586401654762e-12
+const testcase_cyl_neumann<double>
+data017[20] =
+{
+ { 0.36766288260552438, 2.0000000000000000, 5.0000000000000000 },
+ { -0.0058680824422086830, 2.0000000000000000, 10.000000000000000 },
+ { -0.20265447896733507, 2.0000000000000000, 15.000000000000000 },
+ { -0.079191758245636165, 2.0000000000000000, 20.000000000000000 },
+ { 0.11934303508534717, 2.0000000000000000, 25.000000000000000 },
+ { 0.12292410306411394, 2.0000000000000000, 30.000000000000000 },
+ { -0.038511545278264829, 2.0000000000000000, 35.000000000000000 },
+ { -0.12622609234933840, 2.0000000000000000, 40.000000000000000 },
+ { -0.032194922192042195, 2.0000000000000000, 45.000000000000000 },
+ { 0.095793168727596537, 2.0000000000000000, 50.000000000000000 },
+ { 0.080254497473415426, 2.0000000000000000, 55.000000000000000 },
+ { -0.044296631897120527, 2.0000000000000000, 60.000000000000000 },
+ { -0.097735569256347382, 2.0000000000000000, 65.000000000000000 },
+ { -0.012019513676818605, 2.0000000000000000, 70.000000000000000 },
+ { 0.084430013376826846, 2.0000000000000000, 75.000000000000000 },
+ { 0.057355236934384719, 2.0000000000000000, 80.000000000000000 },
+ { -0.047891809949547198, 2.0000000000000000, 85.000000000000000 },
+ { -0.080358414490605934, 2.0000000000000000, 90.000000000000000 },
+ { 0.0011004057182389746, 2.0000000000000000, 95.000000000000000 },
+ { 0.076836867125027963, 2.0000000000000000, 100.00000000000000 },
+};
+const double toler017 = 2.5000000000000017e-10;
+
+// Test data for nu=5.0000000000000000.
+// max(|f - f_GSL|): 7.8097792989562098e-15
+// max(|f - f_GSL| / |f_GSL|): 3.2731037832632215e-11
+const testcase_cyl_neumann<double>
+data018[20] =
+{
+ { -0.45369482249110193, 5.0000000000000000, 5.0000000000000000 },
+ { 0.13540304768936234, 5.0000000000000000, 10.000000000000000 },
+ { 0.16717271575940015, 5.0000000000000000, 15.000000000000000 },
+ { -0.10003576788953220, 5.0000000000000000, 20.000000000000000 },
+ { -0.14705799311372267, 5.0000000000000000, 25.000000000000000 },
+ { 0.031627359289264301, 5.0000000000000000, 30.000000000000000 },
+ { 0.13554781474770028, 5.0000000000000000, 35.000000000000000 },
+ { 0.031869448780850247, 5.0000000000000000, 40.000000000000000 },
+ { -0.10426932700176872, 5.0000000000000000, 45.000000000000000 },
+ { -0.078548413913081594, 5.0000000000000000, 50.000000000000000 },
+ { 0.055257033062858375, 5.0000000000000000, 55.000000000000000 },
+ { 0.099464632840450887, 5.0000000000000000, 60.000000000000000 },
+ { 0.00023860469499595305, 5.0000000000000000, 65.000000000000000 },
+ { -0.091861802216406052, 5.0000000000000000, 70.000000000000000 },
+ { -0.048383671296970042, 5.0000000000000000, 75.000000000000000 },
+ { 0.060293667104896316, 5.0000000000000000, 80.000000000000000 },
+ { 0.077506166682733996, 5.0000000000000000, 85.000000000000000 },
+ { -0.015338764062239767, 5.0000000000000000, 90.000000000000000 },
+ { -0.081531504045514361, 5.0000000000000000, 95.000000000000000 },
+ { -0.029480196281661937, 5.0000000000000000, 100.00000000000000 },
+};
+const double toler018 = 2.5000000000000013e-09;
+
+// Test data for nu=10.000000000000000.
+// max(|f - f_GSL|): 1.7763568394002505e-14
+// max(|f - f_GSL| / |f_GSL|): 2.7466153115234563e-12
+const testcase_cyl_neumann<double>
+data019[20] =
+{
+ { -25.129110095610095, 10.000000000000000, 5.0000000000000000 },
+ { -0.35981415218340279, 10.000000000000000, 10.000000000000000 },
+ { 0.21997141360195577, 10.000000000000000, 15.000000000000000 },
+ { -0.043894653515658105, 10.000000000000000, 20.000000000000000 },
+ { -0.14871839049980651, 10.000000000000000, 25.000000000000000 },
+ { 0.075056702122397012, 10.000000000000000, 30.000000000000000 },
+ { 0.12222473135000546, 10.000000000000000, 35.000000000000000 },
+ { -0.046723877232677985, 10.000000000000000, 40.000000000000000 },
+ { -0.11739339009322181, 10.000000000000000, 45.000000000000000 },
+ { 0.0057238971820535930, 10.000000000000000, 50.000000000000000 },
+ { 0.10733910125831631, 10.000000000000000, 55.000000000000000 },
+ { 0.036290350559545478, 10.000000000000000, 60.000000000000000 },
+ { -0.083239127691715667, 10.000000000000000, 65.000000000000000 },
+ { -0.069639384138314858, 10.000000000000000, 70.000000000000000 },
+ { 0.045798335061325066, 10.000000000000000, 75.000000000000000 },
+ { 0.086269195064844456, 10.000000000000000, 80.000000000000000 },
+ { -0.0018234674126248740, 10.000000000000000, 85.000000000000000 },
+ { -0.082067762371231284, 10.000000000000000, 90.000000000000000 },
+ { -0.038798074754578089, 10.000000000000000, 95.000000000000000 },
+ { 0.058331574236414913, 10.000000000000000, 100.00000000000000 },
+};
+const double toler019 = 2.5000000000000017e-10;
+
+// Test data for nu=20.000000000000000.
+// max(|f - f_GSL|): 7.1525573730468750e-07
+// max(|f - f_GSL| / |f_GSL|): 1.7017552833615218e-12
+const testcase_cyl_neumann<double>
+data020[20] =
+{
+ { -593396529.69143200, 20.000000000000000, 5.0000000000000000 },
+ { -1597.4838482696259, 20.000000000000000, 10.000000000000000 },
+ { -3.3087330924737621, 20.000000000000000, 15.000000000000000 },
+ { -0.28548945860020319, 20.000000000000000, 20.000000000000000 },
+ { 0.19804074776289243, 20.000000000000000, 25.000000000000000 },
+ { -0.16848153948742683, 20.000000000000000, 30.000000000000000 },
+ { 0.10102784152594022, 20.000000000000000, 35.000000000000000 },
+ { 0.045161820565805755, 20.000000000000000, 40.000000000000000 },
+ { -0.12556489308015448, 20.000000000000000, 45.000000000000000 },
+ { 0.016442633948115834, 20.000000000000000, 50.000000000000000 },
+ { 0.10853448778255181, 20.000000000000000, 55.000000000000000 },
+ { -0.026721408520664701, 20.000000000000000, 60.000000000000000 },
+ { -0.098780425256324175, 20.000000000000000, 65.000000000000000 },
+ { 0.016201957786018233, 20.000000000000000, 70.000000000000000 },
+ { 0.093591198265063721, 20.000000000000000, 75.000000000000000 },
+ { 0.0040484400737296200, 20.000000000000000, 80.000000000000000 },
+ { -0.086314929459920531, 20.000000000000000, 85.000000000000000 },
+ { -0.028274110097231530, 20.000000000000000, 90.000000000000000 },
+ { 0.072349520791638741, 20.000000000000000, 95.000000000000000 },
+ { 0.051247973076188474, 20.000000000000000, 100.00000000000000 },
+};
+const double toler020 = 1.0000000000000006e-10;
+
+// Test data for nu=50.000000000000000.
+// max(|f - f_GSL|): 1.0522490333925732e+28
+// max(|f - f_GSL| / |f_GSL|): 2.6658726302692481e-12
+const testcase_cyl_neumann<double>
+data021[20] =
+{
+ { -2.7888370175838930e+42, 50.000000000000000, 5.0000000000000000 },
+ { -3.6410665018007421e+27, 50.000000000000000, 10.000000000000000 },
+ { -1.0929732912175415e+19, 50.000000000000000, 15.000000000000000 },
+ { -15606426801663.734, 50.000000000000000, 20.000000000000000 },
+ { -753573251.44662738, 50.000000000000000, 25.000000000000000 },
+ { -386759.32602734759, 50.000000000000000, 30.000000000000000 },
+ { -1172.8690492895323, 50.000000000000000, 35.000000000000000 },
+ { -15.615608873419944, 50.000000000000000, 40.000000000000000 },
+ { -0.87058346204176895, 50.000000000000000, 45.000000000000000 },
+ { -0.21031655464397747, 50.000000000000000, 50.000000000000000 },
+ { 0.093048240412999389, 50.000000000000000, 55.000000000000000 },
+ { 0.0086417699626744754, 50.000000000000000, 60.000000000000000 },
+ { -0.025019788459222037, 50.000000000000000, 65.000000000000000 },
+ { -0.0014815155191909152, 50.000000000000000, 70.000000000000000 },
+ { 0.050335774732164121, 50.000000000000000, 75.000000000000000 },
+ { -0.092924250967987232, 50.000000000000000, 80.000000000000000 },
+ { 0.087332463030205698, 50.000000000000000, 85.000000000000000 },
+ { -0.016164237701651860, 50.000000000000000, 90.000000000000000 },
+ { -0.068897613820457934, 50.000000000000000, 95.000000000000000 },
+ { 0.076505263944803045, 50.000000000000000, 100.00000000000000 },
+};
+const double toler021 = 2.5000000000000017e-10;
+
+// Test data for nu=100.00000000000000.
+// max(|f - f_GSL|): 6.3342780989716025e+102
+// max(|f - f_GSL| / |f_GSL|): 1.2681517765786818e-13
+const testcase_cyl_neumann<double>
+data022[20] =
+{
+ { -5.0848639160196196e+115, 100.00000000000000, 5.0000000000000000 },
+ { -4.8491482711800252e+85, 100.00000000000000, 10.000000000000000 },
+ { -1.6375955323195320e+68, 100.00000000000000, 15.000000000000000 },
+ { -8.2002648144679126e+55, 100.00000000000000, 20.000000000000000 },
+ { -2.9712216432562368e+46, 100.00000000000000, 25.000000000000000 },
+ { -7.2875284708240751e+38, 100.00000000000000, 30.000000000000000 },
+ { -3.4251079902108953e+32, 100.00000000000000, 35.000000000000000 },
+ { -1.4552439438101802e+27, 100.00000000000000, 40.000000000000000 },
+ { -3.4506612476220073e+22, 100.00000000000000, 45.000000000000000 },
+ { -3.2938001882025953e+18, 100.00000000000000, 50.000000000000000 },
+ { -1005686182055527.4, 100.00000000000000, 55.000000000000000 },
+ { -831892881402.11377, 100.00000000000000, 60.000000000000000 },
+ { -1650863778.0598330, 100.00000000000000, 65.000000000000000 },
+ { -7192614.1976097794, 100.00000000000000, 70.000000000000000 },
+ { -64639.072261231595, 100.00000000000000, 75.000000000000000 },
+ { -1152.5905185698466, 100.00000000000000, 80.000000000000000 },
+ { -40.250761402101560, 100.00000000000000, 85.000000000000000 },
+ { -2.8307771387185459, 100.00000000000000, 90.000000000000000 },
+ { -0.45762200495904848, 100.00000000000000, 95.000000000000000 },
+ { -0.16692141141757652, 100.00000000000000, 100.00000000000000 },
+};
+const double toler022 = 1.0000000000000006e-11;
+
+template<typename Tp, unsigned int Num>
+ void
+ test(const testcase_cyl_neumann<Tp> (&data)[Num], Tp toler)
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = Num;
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::cyl_neumann(data[i].nu, data[i].x);
+ const Tp f0 = data[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < toler);
+ }
+
+int
+main()
+{
+ test(data001, toler001);
+ test(data002, toler002);
+ test(data003, toler003);
+ test(data004, toler004);
+ test(data005, toler005);
+ test(data006, toler006);
+ test(data007, toler007);
+ test(data008, toler008);
+ test(data009, toler009);
+ test(data010, toler010);
+ test(data011, toler011);
+ test(data012, toler012);
+ test(data013, toler013);
+ test(data014, toler014);
+ test(data015, toler015);
+ test(data016, toler016);
+ test(data017, toler017);
+ test(data018, toler018);
+ test(data019, toler019);
+ test(data020, toler020);
+ test(data021, toler021);
+ test(data022, toler022);
+ return 0;
+}
Index: testsuite/special_functions/10_cyl_neumann/compile.cc
===================================================================
--- testsuite/special_functions/10_cyl_neumann/compile.cc (revision 0)
+++ testsuite/special_functions/10_cyl_neumann/compile.cc (working copy)
@@ -0,0 +1,40 @@
+// { dg-do compile }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.10 cyl_neumann
+
+#include <cmath>
+
+void
+test01()
+{
+ float nuf = 1.0F / 3.0F, xf = 0.5F;
+ double nud = 1.0 / 3.0, xd = 0.5;
+ long double nul = 1.0L / 3.0L, xl = 0.5L;
+
+ std::cyl_neumann(nuf, xf);
+ std::cyl_neumannf(nuf, xf);
+ std::cyl_neumann(nud, xd);
+ std::cyl_neumann(nul, xl);
+ std::cyl_neumannl(nul, xl);
+
+ return;
+}
+
Index: testsuite/special_functions/10_cyl_neumann/compile_2.cc
===================================================================
--- testsuite/special_functions/10_cyl_neumann/compile_2.cc (revision 0)
+++ testsuite/special_functions/10_cyl_neumann/compile_2.cc (working copy)
@@ -0,0 +1,41 @@
+// { dg-do compile { xfail *-*-* } }
+// { dg-excess-errors "" }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.10 cyl_neumann
+
+#include <math.h>
+
+void
+test01()
+{
+ float nuf = 1.0F / 3.0F, xf = 0.5F;
+ double nud = 1.0 / 3.0, xd = 0.5;
+ long double nul = 1.0L / 3.0L, xl = 0.5L;
+
+ cyl_neumann(nuf, xf);
+ cyl_neumannf(nuf, xf);
+ cyl_neumann(nud, xd);
+ cyl_neumann(nul, xl);
+ cyl_neumannl(nul, xl);
+
+ return;
+}
+
Index: testsuite/special_functions/11_ellint_1/check_nan.cc
===================================================================
--- testsuite/special_functions/11_ellint_1/check_nan.cc (revision 0)
+++ testsuite/special_functions/11_ellint_1/check_nan.cc (working copy)
@@ -0,0 +1,88 @@
+// { dg-require-c-std "" }
+// { dg-add-options ieee }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.11 ellint_1
+
+#include <cmath>
+#include <testsuite_hooks.h>
+
+void
+test01()
+{
+ float kf = std::numeric_limits<float>::quiet_NaN();
+ double kd = std::numeric_limits<double>::quiet_NaN();
+ long double kl = std::numeric_limits<long double>::quiet_NaN();
+
+ float phif = std::atan2(1.0F, 1.0F);
+ double phid = std::atan2(1.0, 1.0);
+ long double phil = std::atan2(1.0L, 1.0L);
+
+ float a = std::ellint_1(kf, phif);
+ float b = std::ellint_1f(kf, phif);
+ double c = std::ellint_1(kd, phid);
+ long double d = std::ellint_1(kl, phil);
+ long double e = std::ellint_1l(kl, phil);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+void
+test02()
+{
+ float kf = 0.5F;
+ double kd = 0.5;
+ long double kl = 0.5L;
+
+ float phif = std::numeric_limits<float>::quiet_NaN();
+ double phid = std::numeric_limits<double>::quiet_NaN();
+ long double phil = std::numeric_limits<long double>::quiet_NaN();
+
+ float a = std::ellint_1(kf, phif);
+ float b = std::ellint_1f(kf, phif);
+ double c = std::ellint_1(kd, phid);
+ long double d = std::ellint_1(kl, phil);
+ long double e = std::ellint_1l(kl, phil);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+int
+main()
+{
+ test01();
+ test02();
+ return 0;
+}
+
Index: testsuite/special_functions/11_ellint_1/check_value.cc
===================================================================
--- testsuite/special_functions/11_ellint_1/check_value.cc (revision 0)
+++ testsuite/special_functions/11_ellint_1/check_value.cc (working copy)
@@ -0,0 +1,451 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+//
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// ellint_1
+// Compare against values generated by the GNU Scientific Library.
+// The GSL can be found on the web: http://www.gnu.org/software/gsl/
+#include <limits>
+#include <cmath>
+#if defined(__TEST_DEBUG)
+# include <iostream>
+# define VERIFY(A) \
+ if (!(A)) \
+ { \
+ std::cout << "line " << __LINE__ \
+ << " max_abs_frac = " << max_abs_frac \
+ << std::endl; \
+ }
+#else
+# include <testsuite_hooks.h>
+#endif
+#include <specfun_testcase.h>
+
+
+// Test data for k=-0.90000000000000002.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 4.3381508715713370e-16
+const testcase_ellint_1<double>
+data001[10] =
+{
+ { 0.0000000000000000, -0.90000000000000002, 0.0000000000000000 },
+ { 0.17525427376115024, -0.90000000000000002, 0.17453292519943295 },
+ { 0.35492464591297446, -0.90000000000000002, 0.34906585039886590 },
+ { 0.54388221416157112, -0.90000000000000002, 0.52359877559829882 },
+ { 0.74797400423532490, -0.90000000000000002, 0.69813170079773179 },
+ { 0.97463898451966458, -0.90000000000000002, 0.87266462599716477 },
+ { 1.2334463254523440, -0.90000000000000002, 1.0471975511965976 },
+ { 1.5355247765594913, -0.90000000000000002, 1.2217304763960306 },
+ { 1.8882928567775121, -0.90000000000000002, 1.3962634015954636 },
+ { 2.2805491384227703, -0.90000000000000002, 1.5707963267948966 },
+};
+const double toler001 = 2.5000000000000020e-13;
+
+// Test data for k=-0.80000000000000004.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.1175183168766718e-16
+const testcase_ellint_1<double>
+data002[10] =
+{
+ { 0.0000000000000000, -0.80000000000000004, 0.0000000000000000 },
+ { 0.17510154241338899, -0.80000000000000004, 0.17453292519943295 },
+ { 0.35365068839779390, -0.80000000000000004, 0.34906585039886590 },
+ { 0.53926804409084550, -0.80000000000000004, 0.52359877559829882 },
+ { 0.73587926028070361, -0.80000000000000004, 0.69813170079773179 },
+ { 0.94770942970071170, -0.80000000000000004, 0.87266462599716477 },
+ { 1.1789022995388236, -0.80000000000000004, 1.0471975511965976 },
+ { 1.4323027881876009, -0.80000000000000004, 1.2217304763960306 },
+ { 1.7069629739121674, -0.80000000000000004, 1.3962634015954636 },
+ { 1.9953027776647296, -0.80000000000000004, 1.5707963267948966 },
+};
+const double toler002 = 2.5000000000000020e-13;
+
+// Test data for k=-0.69999999999999996.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 3.5930208052157665e-16
+const testcase_ellint_1<double>
+data003[10] =
+{
+ { 0.0000000000000000, -0.69999999999999996, 0.0000000000000000 },
+ { 0.17496737466916723, -0.69999999999999996, 0.17453292519943295 },
+ { 0.35254687535677925, -0.69999999999999996, 0.34906585039886590 },
+ { 0.53536740275997119, -0.69999999999999996, 0.52359877559829882 },
+ { 0.72603797651684454, -0.69999999999999996, 0.69813170079773179 },
+ { 0.92698296348313458, -0.69999999999999996, 0.87266462599716477 },
+ { 1.1400447527693316, -0.69999999999999996, 1.0471975511965976 },
+ { 1.3657668117194073, -0.69999999999999996, 1.2217304763960306 },
+ { 1.6024686895959159, -0.69999999999999996, 1.3962634015954636 },
+ { 1.8456939983747236, -0.69999999999999996, 1.5707963267948966 },
+};
+const double toler003 = 2.5000000000000020e-13;
+
+// Test data for k=-0.59999999999999998.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.3664899092028927e-16
+const testcase_ellint_1<double>
+data004[10] =
+{
+ { 0.0000000000000000, -0.59999999999999998, 0.0000000000000000 },
+ { 0.17485154362988359, -0.59999999999999998, 0.17453292519943295 },
+ { 0.35160509865544326, -0.59999999999999998, 0.34906585039886590 },
+ { 0.53210652578446138, -0.59999999999999998, 0.52359877559829882 },
+ { 0.71805304664485659, -0.59999999999999998, 0.69813170079773179 },
+ { 0.91082759030195970, -0.59999999999999998, 0.87266462599716477 },
+ { 1.1112333229323361, -0.59999999999999998, 1.0471975511965976 },
+ { 1.3191461190365270, -0.59999999999999998, 1.2217304763960306 },
+ { 1.5332022105084773, -0.59999999999999998, 1.3962634015954636 },
+ { 1.7507538029157526, -0.59999999999999998, 1.5707963267948966 },
+};
+const double toler004 = 2.5000000000000020e-13;
+
+// Test data for k=-0.50000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 3.1201497220602069e-16
+const testcase_ellint_1<double>
+data005[10] =
+{
+ { 0.0000000000000000, -0.50000000000000000, 0.0000000000000000 },
+ { 0.17475385514035785, -0.50000000000000000, 0.17453292519943295 },
+ { 0.35081868470101585, -0.50000000000000000, 0.34906585039886590 },
+ { 0.52942862705190574, -0.50000000000000000, 0.52359877559829882 },
+ { 0.71164727562630314, -0.50000000000000000, 0.69813170079773179 },
+ { 0.89824523594227768, -0.50000000000000000, 0.87266462599716477 },
+ { 1.0895506700518851, -0.50000000000000000, 1.0471975511965976 },
+ { 1.2853005857432931, -0.50000000000000000, 1.2217304763960306 },
+ { 1.4845545520549484, -0.50000000000000000, 1.3962634015954636 },
+ { 1.6857503548125963, -0.50000000000000000, 1.5707963267948966 },
+};
+const double toler005 = 2.5000000000000020e-13;
+
+// Test data for k=-0.40000000000000002.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 4.0617918857203532e-16
+const testcase_ellint_1<double>
+data006[10] =
+{
+ { 0.0000000000000000, -0.40000000000000002, 0.0000000000000000 },
+ { 0.17467414669441528, -0.40000000000000002, 0.17453292519943295 },
+ { 0.35018222772483443, -0.40000000000000002, 0.34906585039886590 },
+ { 0.52729015917508737, -0.40000000000000002, 0.52359877559829882 },
+ { 0.70662374407341244, -0.40000000000000002, 0.69813170079773179 },
+ { 0.88859210497602170, -0.40000000000000002, 0.87266462599716477 },
+ { 1.0733136290471379, -0.40000000000000002, 1.0471975511965976 },
+ { 1.2605612170157061, -0.40000000000000002, 1.2217304763960306 },
+ { 1.4497513956433439, -0.40000000000000002, 1.3962634015954636 },
+ { 1.6399998658645112, -0.40000000000000002, 1.5707963267948966 },
+};
+const double toler006 = 2.5000000000000020e-13;
+
+// Test data for k=-0.30000000000000004.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 6.3361874537309281e-16
+const testcase_ellint_1<double>
+data007[10] =
+{
+ { 0.0000000000000000, -0.30000000000000004, 0.0000000000000000 },
+ { 0.17461228653000099, -0.30000000000000004, 0.17453292519943295 },
+ { 0.34969146102798415, -0.30000000000000004, 0.34906585039886590 },
+ { 0.52565822873726320, -0.30000000000000004, 0.52359877559829882 },
+ { 0.70284226512408532, -0.30000000000000004, 0.69813170079773179 },
+ { 0.88144139195111182, -0.30000000000000004, 0.87266462599716477 },
+ { 1.0614897067260520, -0.30000000000000004, 1.0471975511965976 },
+ { 1.2428416824174218, -0.30000000000000004, 1.2217304763960306 },
+ { 1.4251795877015927, -0.30000000000000004, 1.3962634015954636 },
+ { 1.6080486199305128, -0.30000000000000004, 1.5707963267948966 },
+};
+const double toler007 = 2.5000000000000020e-13;
+
+// Test data for k=-0.19999999999999996.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.2156475739151676e-16
+const testcase_ellint_1<double>
+data008[10] =
+{
+ { 0.0000000000000000, -0.19999999999999996, 0.0000000000000000 },
+ { 0.17456817290292809, -0.19999999999999996, 0.17453292519943295 },
+ { 0.34934315932086801, -0.19999999999999996, 0.34906585039886590 },
+ { 0.52450880529443988, -0.19999999999999996, 0.52359877559829882 },
+ { 0.70020491009844876, -0.19999999999999996, 0.69813170079773179 },
+ { 0.87651006649967955, -0.19999999999999996, 0.87266462599716477 },
+ { 1.0534305870298994, -0.19999999999999996, 1.0471975511965976 },
+ { 1.2308975521670784, -0.19999999999999996, 1.2217304763960306 },
+ { 1.4087733584990738, -0.19999999999999996, 1.3962634015954636 },
+ { 1.5868678474541660, -0.19999999999999996, 1.5707963267948966 },
+};
+const double toler008 = 2.5000000000000020e-13;
+
+// Test data for k=-0.099999999999999978.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.1735566504509650e-16
+const testcase_ellint_1<double>
+data009[10] =
+{
+ { 0.0000000000000000, -0.099999999999999978, 0.0000000000000000 },
+ { 0.17454173353063659, -0.099999999999999978, 0.17453292519943295 },
+ { 0.34913506721468091, -0.099999999999999978, 0.34906585039886590 },
+ { 0.52382550016538942, -0.099999999999999978, 0.52359877559829882 },
+ { 0.69864700854177020, -0.099999999999999978, 0.69813170079773179 },
+ { 0.87361792586964870, -0.099999999999999978, 0.87266462599716477 },
+ { 1.0487386319621683, -0.099999999999999978, 1.0471975511965976 },
+ { 1.2239913752078757, -0.099999999999999978, 1.2217304763960306 },
+ { 1.3993423113684049, -0.099999999999999978, 1.3962634015954636 },
+ { 1.5747455615173562, -0.099999999999999978, 1.5707963267948966 },
+};
+const double toler009 = 2.5000000000000020e-13;
+
+// Test data for k=0.0000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 2.1203697876423452e-16
+const testcase_ellint_1<double>
+data010[10] =
+{
+ { 0.0000000000000000, 0.0000000000000000, 0.0000000000000000 },
+ { 0.17453292519943292, 0.0000000000000000, 0.17453292519943295 },
+ { 0.34906585039886584, 0.0000000000000000, 0.34906585039886590 },
+ { 0.52359877559829870, 0.0000000000000000, 0.52359877559829882 },
+ { 0.69813170079773168, 0.0000000000000000, 0.69813170079773179 },
+ { 0.87266462599716477, 0.0000000000000000, 0.87266462599716477 },
+ { 1.0471975511965974, 0.0000000000000000, 1.0471975511965976 },
+ { 1.2217304763960304, 0.0000000000000000, 1.2217304763960306 },
+ { 1.3962634015954631, 0.0000000000000000, 1.3962634015954636 },
+ { 1.5707963267948966, 0.0000000000000000, 1.5707963267948966 },
+};
+const double toler010 = 2.5000000000000020e-13;
+
+// Test data for k=0.10000000000000009.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.1735566504509650e-16
+const testcase_ellint_1<double>
+data011[10] =
+{
+ { 0.0000000000000000, 0.10000000000000009, 0.0000000000000000 },
+ { 0.17454173353063659, 0.10000000000000009, 0.17453292519943295 },
+ { 0.34913506721468091, 0.10000000000000009, 0.34906585039886590 },
+ { 0.52382550016538942, 0.10000000000000009, 0.52359877559829882 },
+ { 0.69864700854177020, 0.10000000000000009, 0.69813170079773179 },
+ { 0.87361792586964870, 0.10000000000000009, 0.87266462599716477 },
+ { 1.0487386319621683, 0.10000000000000009, 1.0471975511965976 },
+ { 1.2239913752078757, 0.10000000000000009, 1.2217304763960306 },
+ { 1.3993423113684049, 0.10000000000000009, 1.3962634015954636 },
+ { 1.5747455615173562, 0.10000000000000009, 1.5707963267948966 },
+};
+const double toler011 = 2.5000000000000020e-13;
+
+// Test data for k=0.19999999999999996.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.2156475739151676e-16
+const testcase_ellint_1<double>
+data012[10] =
+{
+ { 0.0000000000000000, 0.19999999999999996, 0.0000000000000000 },
+ { 0.17456817290292809, 0.19999999999999996, 0.17453292519943295 },
+ { 0.34934315932086801, 0.19999999999999996, 0.34906585039886590 },
+ { 0.52450880529443988, 0.19999999999999996, 0.52359877559829882 },
+ { 0.70020491009844876, 0.19999999999999996, 0.69813170079773179 },
+ { 0.87651006649967955, 0.19999999999999996, 0.87266462599716477 },
+ { 1.0534305870298994, 0.19999999999999996, 1.0471975511965976 },
+ { 1.2308975521670784, 0.19999999999999996, 1.2217304763960306 },
+ { 1.4087733584990738, 0.19999999999999996, 1.3962634015954636 },
+ { 1.5868678474541660, 0.19999999999999996, 1.5707963267948966 },
+};
+const double toler012 = 2.5000000000000020e-13;
+
+// Test data for k=0.30000000000000004.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 6.3361874537309281e-16
+const testcase_ellint_1<double>
+data013[10] =
+{
+ { 0.0000000000000000, 0.30000000000000004, 0.0000000000000000 },
+ { 0.17461228653000099, 0.30000000000000004, 0.17453292519943295 },
+ { 0.34969146102798415, 0.30000000000000004, 0.34906585039886590 },
+ { 0.52565822873726320, 0.30000000000000004, 0.52359877559829882 },
+ { 0.70284226512408532, 0.30000000000000004, 0.69813170079773179 },
+ { 0.88144139195111182, 0.30000000000000004, 0.87266462599716477 },
+ { 1.0614897067260520, 0.30000000000000004, 1.0471975511965976 },
+ { 1.2428416824174218, 0.30000000000000004, 1.2217304763960306 },
+ { 1.4251795877015927, 0.30000000000000004, 1.3962634015954636 },
+ { 1.6080486199305128, 0.30000000000000004, 1.5707963267948966 },
+};
+const double toler013 = 2.5000000000000020e-13;
+
+// Test data for k=0.39999999999999991.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 5.4157225142938039e-16
+const testcase_ellint_1<double>
+data014[10] =
+{
+ { 0.0000000000000000, 0.39999999999999991, 0.0000000000000000 },
+ { 0.17467414669441528, 0.39999999999999991, 0.17453292519943295 },
+ { 0.35018222772483443, 0.39999999999999991, 0.34906585039886590 },
+ { 0.52729015917508737, 0.39999999999999991, 0.52359877559829882 },
+ { 0.70662374407341244, 0.39999999999999991, 0.69813170079773179 },
+ { 0.88859210497602170, 0.39999999999999991, 0.87266462599716477 },
+ { 1.0733136290471379, 0.39999999999999991, 1.0471975511965976 },
+ { 1.2605612170157061, 0.39999999999999991, 1.2217304763960306 },
+ { 1.4497513956433439, 0.39999999999999991, 1.3962634015954636 },
+ { 1.6399998658645112, 0.39999999999999991, 1.5707963267948966 },
+};
+const double toler014 = 2.5000000000000020e-13;
+
+// Test data for k=0.50000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 3.1201497220602069e-16
+const testcase_ellint_1<double>
+data015[10] =
+{
+ { 0.0000000000000000, 0.50000000000000000, 0.0000000000000000 },
+ { 0.17475385514035785, 0.50000000000000000, 0.17453292519943295 },
+ { 0.35081868470101585, 0.50000000000000000, 0.34906585039886590 },
+ { 0.52942862705190574, 0.50000000000000000, 0.52359877559829882 },
+ { 0.71164727562630314, 0.50000000000000000, 0.69813170079773179 },
+ { 0.89824523594227768, 0.50000000000000000, 0.87266462599716477 },
+ { 1.0895506700518851, 0.50000000000000000, 1.0471975511965976 },
+ { 1.2853005857432931, 0.50000000000000000, 1.2217304763960306 },
+ { 1.4845545520549484, 0.50000000000000000, 1.3962634015954636 },
+ { 1.6857503548125963, 0.50000000000000000, 1.5707963267948966 },
+};
+const double toler015 = 2.5000000000000020e-13;
+
+// Test data for k=0.60000000000000009.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.3664899092028927e-16
+const testcase_ellint_1<double>
+data016[10] =
+{
+ { 0.0000000000000000, 0.60000000000000009, 0.0000000000000000 },
+ { 0.17485154362988359, 0.60000000000000009, 0.17453292519943295 },
+ { 0.35160509865544326, 0.60000000000000009, 0.34906585039886590 },
+ { 0.53210652578446138, 0.60000000000000009, 0.52359877559829882 },
+ { 0.71805304664485659, 0.60000000000000009, 0.69813170079773179 },
+ { 0.91082759030195970, 0.60000000000000009, 0.87266462599716477 },
+ { 1.1112333229323361, 0.60000000000000009, 1.0471975511965976 },
+ { 1.3191461190365270, 0.60000000000000009, 1.2217304763960306 },
+ { 1.5332022105084775, 0.60000000000000009, 1.3962634015954636 },
+ { 1.7507538029157526, 0.60000000000000009, 1.5707963267948966 },
+};
+const double toler016 = 2.5000000000000020e-13;
+
+// Test data for k=0.69999999999999996.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 3.5930208052157665e-16
+const testcase_ellint_1<double>
+data017[10] =
+{
+ { 0.0000000000000000, 0.69999999999999996, 0.0000000000000000 },
+ { 0.17496737466916723, 0.69999999999999996, 0.17453292519943295 },
+ { 0.35254687535677925, 0.69999999999999996, 0.34906585039886590 },
+ { 0.53536740275997119, 0.69999999999999996, 0.52359877559829882 },
+ { 0.72603797651684454, 0.69999999999999996, 0.69813170079773179 },
+ { 0.92698296348313458, 0.69999999999999996, 0.87266462599716477 },
+ { 1.1400447527693316, 0.69999999999999996, 1.0471975511965976 },
+ { 1.3657668117194073, 0.69999999999999996, 1.2217304763960306 },
+ { 1.6024686895959159, 0.69999999999999996, 1.3962634015954636 },
+ { 1.8456939983747236, 0.69999999999999996, 1.5707963267948966 },
+};
+const double toler017 = 2.5000000000000020e-13;
+
+// Test data for k=0.80000000000000004.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.1175183168766718e-16
+const testcase_ellint_1<double>
+data018[10] =
+{
+ { 0.0000000000000000, 0.80000000000000004, 0.0000000000000000 },
+ { 0.17510154241338899, 0.80000000000000004, 0.17453292519943295 },
+ { 0.35365068839779390, 0.80000000000000004, 0.34906585039886590 },
+ { 0.53926804409084550, 0.80000000000000004, 0.52359877559829882 },
+ { 0.73587926028070361, 0.80000000000000004, 0.69813170079773179 },
+ { 0.94770942970071170, 0.80000000000000004, 0.87266462599716477 },
+ { 1.1789022995388236, 0.80000000000000004, 1.0471975511965976 },
+ { 1.4323027881876009, 0.80000000000000004, 1.2217304763960306 },
+ { 1.7069629739121674, 0.80000000000000004, 1.3962634015954636 },
+ { 1.9953027776647296, 0.80000000000000004, 1.5707963267948966 },
+};
+const double toler018 = 2.5000000000000020e-13;
+
+// Test data for k=0.89999999999999991.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 3.8945813740035884e-16
+const testcase_ellint_1<double>
+data019[10] =
+{
+ { 0.0000000000000000, 0.89999999999999991, 0.0000000000000000 },
+ { 0.17525427376115024, 0.89999999999999991, 0.17453292519943295 },
+ { 0.35492464591297446, 0.89999999999999991, 0.34906585039886590 },
+ { 0.54388221416157112, 0.89999999999999991, 0.52359877559829882 },
+ { 0.74797400423532490, 0.89999999999999991, 0.69813170079773179 },
+ { 0.97463898451966458, 0.89999999999999991, 0.87266462599716477 },
+ { 1.2334463254523440, 0.89999999999999991, 1.0471975511965976 },
+ { 1.5355247765594910, 0.89999999999999991, 1.2217304763960306 },
+ { 1.8882928567775117, 0.89999999999999991, 1.3962634015954636 },
+ { 2.2805491384227703, 0.89999999999999991, 1.5707963267948966 },
+};
+const double toler019 = 2.5000000000000020e-13;
+
+template<typename Tp, unsigned int Num>
+ void
+ test(const testcase_ellint_1<Tp> (&data)[Num], Tp toler)
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = Num;
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::ellint_1(data[i].k, data[i].phi);
+ const Tp f0 = data[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < toler);
+ }
+
+int
+main()
+{
+ test(data001, toler001);
+ test(data002, toler002);
+ test(data003, toler003);
+ test(data004, toler004);
+ test(data005, toler005);
+ test(data006, toler006);
+ test(data007, toler007);
+ test(data008, toler008);
+ test(data009, toler009);
+ test(data010, toler010);
+ test(data011, toler011);
+ test(data012, toler012);
+ test(data013, toler013);
+ test(data014, toler014);
+ test(data015, toler015);
+ test(data016, toler016);
+ test(data017, toler017);
+ test(data018, toler018);
+ test(data019, toler019);
+ return 0;
+}
Index: testsuite/special_functions/11_ellint_1/compile.cc
===================================================================
--- testsuite/special_functions/11_ellint_1/compile.cc (revision 0)
+++ testsuite/special_functions/11_ellint_1/compile.cc (working copy)
@@ -0,0 +1,40 @@
+// { dg-do compile }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.11 ellint_1
+
+#include <cmath>
+
+void
+test01()
+{
+ float kf = 0.5F, phif = std::atan2(1.0F, 1.0F);
+ double kd = 0.5, phid = std::atan2(1.0, 1.0);
+ long double kl = 0.5L, phil = std::atan2(1.0L, 1.0L);
+
+ std::ellint_1(kf, phif);
+ std::ellint_1f(kf, phif);
+ std::ellint_1(kd, phid);
+ std::ellint_1(kl, phil);
+ std::ellint_1l(kl, phil);
+
+ return;
+}
+
Index: testsuite/special_functions/11_ellint_1/compile_2.cc
===================================================================
--- testsuite/special_functions/11_ellint_1/compile_2.cc (revision 0)
+++ testsuite/special_functions/11_ellint_1/compile_2.cc (working copy)
@@ -0,0 +1,41 @@
+// { dg-do compile { xfail *-*-* } }
+// { dg-excess-errors "" }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.11 ellint_1
+
+#include <math.h>
+
+void
+test01()
+{
+ float kf = 0.5F, phif = atan2(1.0F, 1.0F);
+ double kd = 0.5, phid = atan2(1.0, 1.0);
+ long double kl = 0.5L, phil = atan2(1.0L, 1.0L);
+
+ ellint_1(kf, phif);
+ ellint_1f(kf, phif);
+ ellint_1(kd, phid);
+ ellint_1(kl, phil);
+ ellint_1l(kl, phil);
+
+ return;
+}
+
Index: testsuite/special_functions/12_ellint_2/check_nan.cc
===================================================================
--- testsuite/special_functions/12_ellint_2/check_nan.cc (revision 0)
+++ testsuite/special_functions/12_ellint_2/check_nan.cc (working copy)
@@ -0,0 +1,88 @@
+// { dg-require-c-std "" }
+// { dg-add-options ieee }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.12 ellint_2
+
+#include <cmath>
+#include <testsuite_hooks.h>
+
+void
+test01()
+{
+ float kf = std::numeric_limits<float>::quiet_NaN();
+ double kd = std::numeric_limits<double>::quiet_NaN();
+ long double kl = std::numeric_limits<long double>::quiet_NaN();
+
+ float phif = std::atan2(1.0F, 1.0F);
+ double phid = std::atan2(1.0, 1.0);
+ long double phil = std::atan2(1.0L, 1.0L);
+
+ float a = std::ellint_2(kf, phif);
+ float b = std::ellint_2f(kf, phif);
+ double c = std::ellint_2(kd, phid);
+ long double d = std::ellint_2(kl, phil);
+ long double e = std::ellint_2l(kl, phil);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+void
+test02()
+{
+ float kf = 0.5F;
+ double kd = 0.5;
+ long double kl = 0.5L;
+
+ float phif = std::numeric_limits<float>::quiet_NaN();
+ double phid = std::numeric_limits<double>::quiet_NaN();
+ long double phil = std::numeric_limits<long double>::quiet_NaN();
+
+ float a = std::ellint_2(kf, phif);
+ float b = std::ellint_2f(kf, phif);
+ double c = std::ellint_2(kd, phid);
+ long double d = std::ellint_2(kl, phil);
+ long double e = std::ellint_2l(kl, phil);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+int
+main()
+{
+ test01();
+ test02();
+ return 0;
+}
+
Index: testsuite/special_functions/12_ellint_2/check_value.cc
===================================================================
--- testsuite/special_functions/12_ellint_2/check_value.cc (revision 0)
+++ testsuite/special_functions/12_ellint_2/check_value.cc (working copy)
@@ -0,0 +1,451 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+//
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// ellint_2
+// Compare against values generated by the GNU Scientific Library.
+// The GSL can be found on the web: http://www.gnu.org/software/gsl/
+#include <limits>
+#include <cmath>
+#if defined(__TEST_DEBUG)
+# include <iostream>
+# define VERIFY(A) \
+ if (!(A)) \
+ { \
+ std::cout << "line " << __LINE__ \
+ << " max_abs_frac = " << max_abs_frac \
+ << std::endl; \
+ }
+#else
+# include <testsuite_hooks.h>
+#endif
+#include <specfun_testcase.h>
+
+
+// Test data for k=-0.90000000000000002.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 6.6116483711056737e-16
+const testcase_ellint_2<double>
+data001[10] =
+{
+ { 0.0000000000000000, -0.90000000000000002, 0.0000000000000000 },
+ { 0.17381690606167960, -0.90000000000000002, 0.17453292519943295 },
+ { 0.34337919186972055, -0.90000000000000002, 0.34906585039886590 },
+ { 0.50464268659856326, -0.90000000000000002, 0.52359877559829882 },
+ { 0.65400003842368570, -0.90000000000000002, 0.69813170079773179 },
+ { 0.78854928419904646, -0.90000000000000002, 0.87266462599716477 },
+ { 0.90645698626315396, -0.90000000000000002, 1.0471975511965976 },
+ { 1.0075154899135925, -0.90000000000000002, 1.2217304763960306 },
+ { 1.0940135583194068, -0.90000000000000002, 1.3962634015954636 },
+ { 1.1716970527816140, -0.90000000000000002, 1.5707963267948966 },
+};
+const double toler001 = 2.5000000000000020e-13;
+
+// Test data for k=-0.80000000000000004.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.4793687438660849e-16
+const testcase_ellint_2<double>
+data002[10] =
+{
+ { 0.0000000000000000, -0.80000000000000004, 0.0000000000000000 },
+ { 0.17396762274534805, -0.80000000000000004, 0.17453292519943295 },
+ { 0.34458685226969316, -0.80000000000000004, 0.34906585039886590 },
+ { 0.50872923654502433, -0.80000000000000004, 0.52359877559829882 },
+ { 0.66372016539176215, -0.80000000000000004, 0.69813170079773179 },
+ { 0.80760344410167406, -0.80000000000000004, 0.87266462599716477 },
+ { 0.93945480372495049, -0.80000000000000004, 1.0471975511965976 },
+ { 1.0597473310395036, -0.80000000000000004, 1.2217304763960306 },
+ { 1.1706981862452361, -0.80000000000000004, 1.3962634015954636 },
+ { 1.2763499431699064, -0.80000000000000004, 1.5707963267948966 },
+};
+const double toler002 = 2.5000000000000020e-13;
+
+// Test data for k=-0.69999999999999996.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 4.0435005012914979e-16
+const testcase_ellint_2<double>
+data003[10] =
+{
+ { 0.0000000000000000, -0.69999999999999996, 0.0000000000000000 },
+ { 0.17410041242702542, -0.69999999999999996, 0.17453292519943295 },
+ { 0.34564605085764760, -0.69999999999999996, 0.34906585039886590 },
+ { 0.51228495693314646, -0.69999999999999996, 0.52359877559829882 },
+ { 0.67207654098799530, -0.69999999999999996, 0.69813170079773179 },
+ { 0.82370932631556515, -0.69999999999999996, 0.87266462599716477 },
+ { 0.96672313309452795, -0.69999999999999996, 1.0471975511965976 },
+ { 1.1017090644949503, -0.69999999999999996, 1.2217304763960306 },
+ { 1.2304180097292914, -0.69999999999999996, 1.3962634015954636 },
+ { 1.3556611355719554, -0.69999999999999996, 1.5707963267948966 },
+};
+const double toler003 = 2.5000000000000020e-13;
+
+// Test data for k=-0.59999999999999998.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.9101039108874066e-16
+const testcase_ellint_2<double>
+data004[10] =
+{
+ { 0.0000000000000000, -0.59999999999999998, 0.0000000000000000 },
+ { 0.17421534919599127, -0.59999999999999998, 0.17453292519943295 },
+ { 0.34655927787174101, -0.59999999999999998, 0.34906585039886590 },
+ { 0.51533034538432143, -0.59999999999999998, 0.52359877559829882 },
+ { 0.67916550597453018, -0.59999999999999998, 0.69813170079773179 },
+ { 0.83720218180349870, -0.59999999999999998, 0.87266462599716477 },
+ { 0.98922159354937755, -0.59999999999999998, 1.0471975511965976 },
+ { 1.1357478470419360, -0.59999999999999998, 1.2217304763960306 },
+ { 1.2780617372844056, -0.59999999999999998, 1.3962634015954636 },
+ { 1.4180833944487241, -0.59999999999999998, 1.5707963267948966 },
+};
+const double toler004 = 2.5000000000000020e-13;
+
+// Test data for k=-0.50000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 3.2412420886495652e-16
+const testcase_ellint_2<double>
+data005[10] =
+{
+ { 0.0000000000000000, -0.50000000000000000, 0.0000000000000000 },
+ { 0.17431249677315910, -0.50000000000000000, 0.17453292519943295 },
+ { 0.34732862537770803, -0.50000000000000000, 0.34906585039886590 },
+ { 0.51788193485993794, -0.50000000000000000, 0.52359877559829882 },
+ { 0.68506022954164536, -0.50000000000000000, 0.69813170079773179 },
+ { 0.84831662803347196, -0.50000000000000000, 0.87266462599716477 },
+ { 1.0075555551444717, -0.50000000000000000, 1.0471975511965976 },
+ { 1.1631768599287300, -0.50000000000000000, 1.2217304763960306 },
+ { 1.3160584048772543, -0.50000000000000000, 1.3962634015954636 },
+ { 1.4674622093394274, -0.50000000000000000, 1.5707963267948966 },
+};
+const double toler005 = 2.5000000000000020e-13;
+
+// Test data for k=-0.40000000000000002.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 5.6222658248988364e-16
+const testcase_ellint_2<double>
+data006[10] =
+{
+ { 0.0000000000000000, -0.40000000000000002, 0.0000000000000000 },
+ { 0.17439190872481267, -0.40000000000000002, 0.17453292519943295 },
+ { 0.34795581767099210, -0.40000000000000002, 0.34906585039886590 },
+ { 0.51995290683804463, -0.40000000000000002, 0.52359877559829882 },
+ { 0.68981638464431538, -0.40000000000000002, 0.69813170079773179 },
+ { 0.85722088859936041, -0.40000000000000002, 0.87266462599716477 },
+ { 1.0221301327876993, -0.40000000000000002, 1.0471975511965976 },
+ { 1.1848138019818371, -0.40000000000000002, 1.2217304763960306 },
+ { 1.3458259266501533, -0.40000000000000002, 1.3962634015954636 },
+ { 1.5059416123600402, -0.40000000000000002, 1.5707963267948966 },
+};
+const double toler006 = 2.5000000000000020e-13;
+
+// Test data for k=-0.30000000000000004.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 6.3860540218057383e-16
+const testcase_ellint_2<double>
+data007[10] =
+{
+ { 0.0000000000000000, -0.30000000000000004, 0.0000000000000000 },
+ { 0.17445362864048913, -0.30000000000000004, 0.17453292519943295 },
+ { 0.34844223535713464, -0.30000000000000004, 0.34906585039886590 },
+ { 0.52155353877411770, -0.30000000000000004, 0.52359877559829882 },
+ { 0.69347584418369879, -0.30000000000000004, 0.69813170079773179 },
+ { 0.86403609928237668, -0.30000000000000004, 0.87266462599716477 },
+ { 1.0332234514065408, -0.30000000000000004, 1.0471975511965976 },
+ { 1.2011943182068923, -0.30000000000000004, 1.2217304763960306 },
+ { 1.3682566113689623, -0.30000000000000004, 1.3962634015954636 },
+ { 1.5348334649232491, -0.30000000000000004, 1.5707963267948966 },
+};
+const double toler007 = 2.5000000000000020e-13;
+
+// Test data for k=-0.19999999999999996.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.2658819988515356e-16
+const testcase_ellint_2<double>
+data008[10] =
+{
+ { 0.0000000000000000, -0.19999999999999996, 0.0000000000000000 },
+ { 0.17449769027652812, -0.19999999999999996, 0.17453292519943295 },
+ { 0.34878893400762095, -0.19999999999999996, 0.34906585039886590 },
+ { 0.52269152856057410, -0.19999999999999996, 0.52359877559829882 },
+ { 0.69606913360157563, -0.19999999999999996, 0.69813170079773179 },
+ { 0.86884782374863356, -0.19999999999999996, 0.87266462599716477 },
+ { 1.0410255369689567, -0.19999999999999996, 1.0471975511965976 },
+ { 1.2126730391631360, -0.19999999999999996, 1.2217304763960306 },
+ { 1.3839259540325153, -0.19999999999999996, 1.3962634015954636 },
+ { 1.5549685462425291, -0.19999999999999996, 1.5707963267948966 },
+};
+const double toler008 = 2.5000000000000020e-13;
+
+// Test data for k=-0.099999999999999978.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.1875595485348029e-16
+const testcase_ellint_2<double>
+data009[10] =
+{
+ { 0.0000000000000000, -0.099999999999999978, 0.0000000000000000 },
+ { 0.17452411766649939, -0.099999999999999978, 0.17453292519943295 },
+ { 0.34899665805442404, -0.099999999999999978, 0.34906585039886590 },
+ { 0.52337222400508776, -0.099999999999999978, 0.52359877559829882 },
+ { 0.69761705217284864, -0.099999999999999978, 0.69813170079773179 },
+ { 0.87171309273007491, -0.099999999999999978, 0.87266462599716477 },
+ { 1.0456602197056326, -0.099999999999999978, 1.0471975511965976 },
+ { 1.2194762899272025, -0.099999999999999978, 1.2217304763960306 },
+ { 1.3931950229892744, -0.099999999999999978, 1.3962634015954636 },
+ { 1.5668619420216685, -0.099999999999999978, 1.5707963267948966 },
+};
+const double toler009 = 2.5000000000000020e-13;
+
+// Test data for k=0.0000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 2.1203697876423452e-16
+const testcase_ellint_2<double>
+data010[10] =
+{
+ { 0.0000000000000000, 0.0000000000000000, 0.0000000000000000 },
+ { 0.17453292519943292, 0.0000000000000000, 0.17453292519943295 },
+ { 0.34906585039886584, 0.0000000000000000, 0.34906585039886590 },
+ { 0.52359877559829870, 0.0000000000000000, 0.52359877559829882 },
+ { 0.69813170079773168, 0.0000000000000000, 0.69813170079773179 },
+ { 0.87266462599716477, 0.0000000000000000, 0.87266462599716477 },
+ { 1.0471975511965974, 0.0000000000000000, 1.0471975511965976 },
+ { 1.2217304763960304, 0.0000000000000000, 1.2217304763960306 },
+ { 1.3962634015954631, 0.0000000000000000, 1.3962634015954636 },
+ { 1.5707963267948966, 0.0000000000000000, 1.5707963267948966 },
+};
+const double toler010 = 2.5000000000000020e-13;
+
+// Test data for k=0.10000000000000009.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.1875595485348029e-16
+const testcase_ellint_2<double>
+data011[10] =
+{
+ { 0.0000000000000000, 0.10000000000000009, 0.0000000000000000 },
+ { 0.17452411766649939, 0.10000000000000009, 0.17453292519943295 },
+ { 0.34899665805442404, 0.10000000000000009, 0.34906585039886590 },
+ { 0.52337222400508776, 0.10000000000000009, 0.52359877559829882 },
+ { 0.69761705217284864, 0.10000000000000009, 0.69813170079773179 },
+ { 0.87171309273007491, 0.10000000000000009, 0.87266462599716477 },
+ { 1.0456602197056326, 0.10000000000000009, 1.0471975511965976 },
+ { 1.2194762899272025, 0.10000000000000009, 1.2217304763960306 },
+ { 1.3931950229892744, 0.10000000000000009, 1.3962634015954636 },
+ { 1.5668619420216685, 0.10000000000000009, 1.5707963267948966 },
+};
+const double toler011 = 2.5000000000000020e-13;
+
+// Test data for k=0.19999999999999996.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.2658819988515356e-16
+const testcase_ellint_2<double>
+data012[10] =
+{
+ { 0.0000000000000000, 0.19999999999999996, 0.0000000000000000 },
+ { 0.17449769027652812, 0.19999999999999996, 0.17453292519943295 },
+ { 0.34878893400762095, 0.19999999999999996, 0.34906585039886590 },
+ { 0.52269152856057410, 0.19999999999999996, 0.52359877559829882 },
+ { 0.69606913360157563, 0.19999999999999996, 0.69813170079773179 },
+ { 0.86884782374863356, 0.19999999999999996, 0.87266462599716477 },
+ { 1.0410255369689567, 0.19999999999999996, 1.0471975511965976 },
+ { 1.2126730391631360, 0.19999999999999996, 1.2217304763960306 },
+ { 1.3839259540325153, 0.19999999999999996, 1.3962634015954636 },
+ { 1.5549685462425291, 0.19999999999999996, 1.5707963267948966 },
+};
+const double toler012 = 2.5000000000000020e-13;
+
+// Test data for k=0.30000000000000004.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 6.3860540218057383e-16
+const testcase_ellint_2<double>
+data013[10] =
+{
+ { 0.0000000000000000, 0.30000000000000004, 0.0000000000000000 },
+ { 0.17445362864048913, 0.30000000000000004, 0.17453292519943295 },
+ { 0.34844223535713464, 0.30000000000000004, 0.34906585039886590 },
+ { 0.52155353877411770, 0.30000000000000004, 0.52359877559829882 },
+ { 0.69347584418369879, 0.30000000000000004, 0.69813170079773179 },
+ { 0.86403609928237668, 0.30000000000000004, 0.87266462599716477 },
+ { 1.0332234514065408, 0.30000000000000004, 1.0471975511965976 },
+ { 1.2011943182068923, 0.30000000000000004, 1.2217304763960306 },
+ { 1.3682566113689623, 0.30000000000000004, 1.3962634015954636 },
+ { 1.5348334649232491, 0.30000000000000004, 1.5707963267948966 },
+};
+const double toler013 = 2.5000000000000020e-13;
+
+// Test data for k=0.39999999999999991.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 5.8978277272530773e-16
+const testcase_ellint_2<double>
+data014[10] =
+{
+ { 0.0000000000000000, 0.39999999999999991, 0.0000000000000000 },
+ { 0.17439190872481267, 0.39999999999999991, 0.17453292519943295 },
+ { 0.34795581767099210, 0.39999999999999991, 0.34906585039886590 },
+ { 0.51995290683804463, 0.39999999999999991, 0.52359877559829882 },
+ { 0.68981638464431538, 0.39999999999999991, 0.69813170079773179 },
+ { 0.85722088859936041, 0.39999999999999991, 0.87266462599716477 },
+ { 1.0221301327876993, 0.39999999999999991, 1.0471975511965976 },
+ { 1.1848138019818373, 0.39999999999999991, 1.2217304763960306 },
+ { 1.3458259266501533, 0.39999999999999991, 1.3962634015954636 },
+ { 1.5059416123600404, 0.39999999999999991, 1.5707963267948966 },
+};
+const double toler014 = 2.5000000000000020e-13;
+
+// Test data for k=0.50000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 3.2412420886495652e-16
+const testcase_ellint_2<double>
+data015[10] =
+{
+ { 0.0000000000000000, 0.50000000000000000, 0.0000000000000000 },
+ { 0.17431249677315910, 0.50000000000000000, 0.17453292519943295 },
+ { 0.34732862537770803, 0.50000000000000000, 0.34906585039886590 },
+ { 0.51788193485993794, 0.50000000000000000, 0.52359877559829882 },
+ { 0.68506022954164536, 0.50000000000000000, 0.69813170079773179 },
+ { 0.84831662803347196, 0.50000000000000000, 0.87266462599716477 },
+ { 1.0075555551444717, 0.50000000000000000, 1.0471975511965976 },
+ { 1.1631768599287300, 0.50000000000000000, 1.2217304763960306 },
+ { 1.3160584048772543, 0.50000000000000000, 1.3962634015954636 },
+ { 1.4674622093394274, 0.50000000000000000, 1.5707963267948966 },
+};
+const double toler015 = 2.5000000000000020e-13;
+
+// Test data for k=0.60000000000000009.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.9101039108874066e-16
+const testcase_ellint_2<double>
+data016[10] =
+{
+ { 0.0000000000000000, 0.60000000000000009, 0.0000000000000000 },
+ { 0.17421534919599127, 0.60000000000000009, 0.17453292519943295 },
+ { 0.34655927787174101, 0.60000000000000009, 0.34906585039886590 },
+ { 0.51533034538432143, 0.60000000000000009, 0.52359877559829882 },
+ { 0.67916550597453018, 0.60000000000000009, 0.69813170079773179 },
+ { 0.83720218180349870, 0.60000000000000009, 0.87266462599716477 },
+ { 0.98922159354937744, 0.60000000000000009, 1.0471975511965976 },
+ { 1.1357478470419360, 0.60000000000000009, 1.2217304763960306 },
+ { 1.2780617372844056, 0.60000000000000009, 1.3962634015954636 },
+ { 1.4180833944487241, 0.60000000000000009, 1.5707963267948966 },
+};
+const double toler016 = 2.5000000000000020e-13;
+
+// Test data for k=0.69999999999999996.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 4.0435005012914979e-16
+const testcase_ellint_2<double>
+data017[10] =
+{
+ { 0.0000000000000000, 0.69999999999999996, 0.0000000000000000 },
+ { 0.17410041242702542, 0.69999999999999996, 0.17453292519943295 },
+ { 0.34564605085764760, 0.69999999999999996, 0.34906585039886590 },
+ { 0.51228495693314646, 0.69999999999999996, 0.52359877559829882 },
+ { 0.67207654098799530, 0.69999999999999996, 0.69813170079773179 },
+ { 0.82370932631556515, 0.69999999999999996, 0.87266462599716477 },
+ { 0.96672313309452795, 0.69999999999999996, 1.0471975511965976 },
+ { 1.1017090644949503, 0.69999999999999996, 1.2217304763960306 },
+ { 1.2304180097292914, 0.69999999999999996, 1.3962634015954636 },
+ { 1.3556611355719554, 0.69999999999999996, 1.5707963267948966 },
+};
+const double toler017 = 2.5000000000000020e-13;
+
+// Test data for k=0.80000000000000004.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.4793687438660849e-16
+const testcase_ellint_2<double>
+data018[10] =
+{
+ { 0.0000000000000000, 0.80000000000000004, 0.0000000000000000 },
+ { 0.17396762274534805, 0.80000000000000004, 0.17453292519943295 },
+ { 0.34458685226969316, 0.80000000000000004, 0.34906585039886590 },
+ { 0.50872923654502433, 0.80000000000000004, 0.52359877559829882 },
+ { 0.66372016539176215, 0.80000000000000004, 0.69813170079773179 },
+ { 0.80760344410167406, 0.80000000000000004, 0.87266462599716477 },
+ { 0.93945480372495049, 0.80000000000000004, 1.0471975511965976 },
+ { 1.0597473310395036, 0.80000000000000004, 1.2217304763960306 },
+ { 1.1706981862452361, 0.80000000000000004, 1.3962634015954636 },
+ { 1.2763499431699064, 0.80000000000000004, 1.5707963267948966 },
+};
+const double toler018 = 2.5000000000000020e-13;
+
+// Test data for k=0.89999999999999991.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.7901367831880493e-16
+const testcase_ellint_2<double>
+data019[10] =
+{
+ { 0.0000000000000000, 0.89999999999999991, 0.0000000000000000 },
+ { 0.17381690606167960, 0.89999999999999991, 0.17453292519943295 },
+ { 0.34337919186972055, 0.89999999999999991, 0.34906585039886590 },
+ { 0.50464268659856326, 0.89999999999999991, 0.52359877559829882 },
+ { 0.65400003842368570, 0.89999999999999991, 0.69813170079773179 },
+ { 0.78854928419904657, 0.89999999999999991, 0.87266462599716477 },
+ { 0.90645698626315407, 0.89999999999999991, 1.0471975511965976 },
+ { 1.0075154899135930, 0.89999999999999991, 1.2217304763960306 },
+ { 1.0940135583194071, 0.89999999999999991, 1.3962634015954636 },
+ { 1.1716970527816144, 0.89999999999999991, 1.5707963267948966 },
+};
+const double toler019 = 2.5000000000000020e-13;
+
+template<typename Tp, unsigned int Num>
+ void
+ test(const testcase_ellint_2<Tp> (&data)[Num], Tp toler)
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = Num;
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::ellint_2(data[i].k, data[i].phi);
+ const Tp f0 = data[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < toler);
+ }
+
+int
+main()
+{
+ test(data001, toler001);
+ test(data002, toler002);
+ test(data003, toler003);
+ test(data004, toler004);
+ test(data005, toler005);
+ test(data006, toler006);
+ test(data007, toler007);
+ test(data008, toler008);
+ test(data009, toler009);
+ test(data010, toler010);
+ test(data011, toler011);
+ test(data012, toler012);
+ test(data013, toler013);
+ test(data014, toler014);
+ test(data015, toler015);
+ test(data016, toler016);
+ test(data017, toler017);
+ test(data018, toler018);
+ test(data019, toler019);
+ return 0;
+}
Index: testsuite/special_functions/12_ellint_2/compile.cc
===================================================================
--- testsuite/special_functions/12_ellint_2/compile.cc (revision 0)
+++ testsuite/special_functions/12_ellint_2/compile.cc (working copy)
@@ -0,0 +1,40 @@
+// { dg-do compile }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.12 ellint_2
+
+#include <cmath>
+
+void
+test01()
+{
+ float kf = 0.5F, phif = std::atan2(1.0F, 1.0F);
+ double kd = 0.5, phid = std::atan2(1.0, 1.0);
+ long double kl = 0.5L, phil = std::atan2(1.0L, 1.0L);
+
+ std::ellint_2(kf, phif);
+ std::ellint_2f(kf, phif);
+ std::ellint_2(kd, phid);
+ std::ellint_2(kl, phil);
+ std::ellint_2l(kl, phil);
+
+ return;
+}
+
Index: testsuite/special_functions/12_ellint_2/compile_2.cc
===================================================================
--- testsuite/special_functions/12_ellint_2/compile_2.cc (revision 0)
+++ testsuite/special_functions/12_ellint_2/compile_2.cc (working copy)
@@ -0,0 +1,41 @@
+// { dg-do compile { xfail *-*-* } }
+// { dg-excess-errors "" }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.12 ellint_2
+
+#include <math.h>
+
+void
+test01()
+{
+ float kf = 0.5F, phif = atan2(1.0F, 1.0F);
+ double kd = 0.5, phid = atan2(1.0, 1.0);
+ long double kl = 0.5L, phil = atan2(1.0L, 1.0L);
+
+ ellint_2(kf, phif);
+ ellint_2f(kf, phif);
+ ellint_2(kd, phid);
+ ellint_2(kl, phil);
+ ellint_2l(kl, phil);
+
+ return;
+}
+
Index: testsuite/special_functions/13_ellint_3/check_nan.cc
===================================================================
--- testsuite/special_functions/13_ellint_3/check_nan.cc (revision 0)
+++ testsuite/special_functions/13_ellint_3/check_nan.cc (working copy)
@@ -0,0 +1,128 @@
+// { dg-require-c-std "" }
+// { dg-add-options ieee }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.13 ellint_3
+
+#include <cmath>
+#include <testsuite_hooks.h>
+
+void
+test01()
+{
+ float kf = std::numeric_limits<float>::quiet_NaN();
+ double kd = std::numeric_limits<double>::quiet_NaN();
+ long double kl = std::numeric_limits<long double>::quiet_NaN();
+
+ float nuf = 0.2F;
+ double nud = 0.2;
+ long double nul = 0.2L;
+
+ float phif = std::atan2(1.0F, 1.0F);
+ double phid = std::atan2(1.0, 1.0);
+ long double phil = std::atan2(1.0L, 1.0L);
+
+ float a = std::ellint_3(kf, nuf, phif);
+ float b = std::ellint_3f(kf, nuf, phif);
+ double c = std::ellint_3(kd, nud, phid);
+ long double d = std::ellint_3(kl, nul, phil);
+ long double e = std::ellint_3l(kl, nul, phil);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+void
+test02()
+{
+ float kf = 0.5F;
+ double kd = 0.5;
+ long double kl = 0.5L;
+
+ float nuf = std::numeric_limits<float>::quiet_NaN();
+ double nud = std::numeric_limits<double>::quiet_NaN();
+ long double nul = std::numeric_limits<long double>::quiet_NaN();
+
+ float phif = std::atan2(1.0F, 1.0F);
+ double phid = std::atan2(1.0, 1.0);
+ long double phil = std::atan2(1.0L, 1.0L);
+
+ float a = std::ellint_3(kf, nuf, phif);
+ float b = std::ellint_3f(kf, nuf, phif);
+ double c = std::ellint_3(kd, nud, phid);
+ long double d = std::ellint_3(kl, nul, phil);
+ long double e = std::ellint_3l(kl, nul, phil);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+void
+test03()
+{
+ float kf = 0.5F;
+ double kd = 0.5;
+ long double kl = 0.5L;
+
+ float nuf = 0.2F;
+ double nud = 0.2;
+ long double nul = 0.2L;
+
+ float phif = std::numeric_limits<float>::quiet_NaN();
+ double phid = std::numeric_limits<double>::quiet_NaN();
+ long double phil = std::numeric_limits<long double>::quiet_NaN();
+
+ float a = std::ellint_3(kf, nuf, phif);
+ float b = std::ellint_3f(kf, nuf, phif);
+ double c = std::ellint_3(kd, nud, phid);
+ long double d = std::ellint_3(kl, nul, phil);
+ long double e = std::ellint_3l(kl, nul, phil);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+int
+main()
+{
+ test01();
+ test02();
+ test03();
+ return 0;
+}
+
Index: testsuite/special_functions/13_ellint_3/check_value.cc
===================================================================
--- testsuite/special_functions/13_ellint_3/check_value.cc (revision 0)
+++ testsuite/special_functions/13_ellint_3/check_value.cc (working copy)
@@ -0,0 +1,5772 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+//
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// ellint_3
+// Compare against values generated by the GNU Scientific Library.
+// The GSL can be found on the web: http://www.gnu.org/software/gsl/
+#include <limits>
+#include <cmath>
+#if defined(__TEST_DEBUG)
+# include <iostream>
+# define VERIFY(A) \
+ if (!(A)) \
+ { \
+ std::cout << "line " << __LINE__ \
+ << " max_abs_frac = " << max_abs_frac \
+ << std::endl; \
+ }
+#else
+# include <testsuite_hooks.h>
+#endif
+#include <specfun_testcase.h>
+
+
+// Test data for k=-0.90000000000000002, nu=0.0000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 2.9686139313362077e-16
+const testcase_ellint_3<double>
+data001[10] =
+{
+ { 0.0000000000000000, -0.90000000000000002, 0.0000000000000000,
+ 0.0000000000000000 },
+ { 0.17525427376115024, -0.90000000000000002, 0.0000000000000000,
+ 0.17453292519943295 },
+ { 0.35492464591297446, -0.90000000000000002, 0.0000000000000000,
+ 0.34906585039886590 },
+ { 0.54388221416157112, -0.90000000000000002, 0.0000000000000000,
+ 0.52359877559829882 },
+ { 0.74797400423532490, -0.90000000000000002, 0.0000000000000000,
+ 0.69813170079773179 },
+ { 0.97463898451966458, -0.90000000000000002, 0.0000000000000000,
+ 0.87266462599716477 },
+ { 1.2334463254523440, -0.90000000000000002, 0.0000000000000000,
+ 1.0471975511965976 },
+ { 1.5355247765594913, -0.90000000000000002, 0.0000000000000000,
+ 1.2217304763960306 },
+ { 1.8882928567775121, -0.90000000000000002, 0.0000000000000000,
+ 1.3962634015954636 },
+ { 2.2805491384227703, -0.90000000000000002, 0.0000000000000000,
+ 1.5707963267948966 },
+};
+const double toler001 = 2.5000000000000020e-13;
+
+// Test data for k=-0.90000000000000002, nu=0.10000000000000001.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.0141810743801079e-16
+const testcase_ellint_3<double>
+data002[10] =
+{
+ { 0.0000000000000000, -0.90000000000000002, 0.10000000000000001,
+ 0.0000000000000000 },
+ { 0.17507714233254656, -0.90000000000000002, 0.10000000000000001,
+ 0.17453292519943295 },
+ { 0.35350932904326521, -0.90000000000000002, 0.10000000000000001,
+ 0.34906585039886590 },
+ { 0.53911129989870976, -0.90000000000000002, 0.10000000000000001,
+ 0.52359877559829882 },
+ { 0.73666644254508395, -0.90000000000000002, 0.10000000000000001,
+ 0.69813170079773179 },
+ { 0.95250736612100195, -0.90000000000000002, 0.10000000000000001,
+ 0.87266462599716477 },
+ { 1.1950199550905594, -0.90000000000000002, 0.10000000000000001,
+ 1.0471975511965976 },
+ { 1.4741687286340850, -0.90000000000000002, 0.10000000000000001,
+ 1.2217304763960306 },
+ { 1.7968678183506057, -0.90000000000000002, 0.10000000000000001,
+ 1.3962634015954636 },
+ { 2.1537868513875287, -0.90000000000000002, 0.10000000000000001,
+ 1.5707963267948966 },
+};
+const double toler002 = 2.5000000000000020e-13;
+
+// Test data for k=-0.90000000000000002, nu=0.20000000000000001.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 3.0588292817405780e-16
+const testcase_ellint_3<double>
+data003[10] =
+{
+ { 0.0000000000000000, -0.90000000000000002, 0.20000000000000001,
+ 0.0000000000000000 },
+ { 0.17490065089140927, -0.90000000000000002, 0.20000000000000001,
+ 0.17453292519943295 },
+ { 0.35211377590661436, -0.90000000000000002, 0.20000000000000001,
+ 0.34906585039886590 },
+ { 0.53448220334204100, -0.90000000000000002, 0.20000000000000001,
+ 0.52359877559829882 },
+ { 0.72591368943179579, -0.90000000000000002, 0.20000000000000001,
+ 0.69813170079773179 },
+ { 0.93192539780038763, -0.90000000000000002, 0.20000000000000001,
+ 0.87266462599716477 },
+ { 1.1600809679692683, -0.90000000000000002, 0.20000000000000001,
+ 1.0471975511965976 },
+ { 1.4195407225882510, -0.90000000000000002, 0.20000000000000001,
+ 1.2217304763960306 },
+ { 1.7168966476424525, -0.90000000000000002, 0.20000000000000001,
+ 1.3962634015954636 },
+ { 2.0443194576468890, -0.90000000000000002, 0.20000000000000001,
+ 1.5707963267948966 },
+};
+const double toler003 = 2.5000000000000020e-13;
+
+// Test data for k=-0.90000000000000002, nu=0.29999999999999999.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.2403611223075570e-16
+const testcase_ellint_3<double>
+data004[10] =
+{
+ { 0.0000000000000000, -0.90000000000000002, 0.29999999999999999,
+ 0.0000000000000000 },
+ { 0.17472479532647531, -0.90000000000000002, 0.29999999999999999,
+ 0.17453292519943295 },
+ { 0.35073750187374114, -0.90000000000000002, 0.29999999999999999,
+ 0.34906585039886590 },
+ { 0.52998766129466957, -0.90000000000000002, 0.29999999999999999,
+ 0.52359877559829882 },
+ { 0.71566993548699553, -0.90000000000000002, 0.29999999999999999,
+ 0.69813170079773179 },
+ { 0.91271517762560195, -0.90000000000000002, 0.29999999999999999,
+ 0.87266462599716477 },
+ { 1.1281241199843370, -0.90000000000000002, 0.29999999999999999,
+ 1.0471975511965976 },
+ { 1.3704929576917451, -0.90000000000000002, 0.29999999999999999,
+ 1.2217304763960306 },
+ { 1.6461981511487713, -0.90000000000000002, 0.29999999999999999,
+ 1.3962634015954636 },
+ { 1.9486280260314426, -0.90000000000000002, 0.29999999999999999,
+ 1.5707963267948966 },
+};
+const double toler004 = 2.5000000000000020e-13;
+
+// Test data for k=-0.90000000000000002, nu=0.40000000000000002.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.3487482375512111e-16
+const testcase_ellint_3<double>
+data005[10] =
+{
+ { 0.0000000000000000, -0.90000000000000002, 0.40000000000000002,
+ 0.0000000000000000 },
+ { 0.17454957156468837, -0.90000000000000002, 0.40000000000000002,
+ 0.17453292519943295 },
+ { 0.34938003933330430, -0.90000000000000002, 0.40000000000000002,
+ 0.34906585039886590 },
+ { 0.52562093533067433, -0.90000000000000002, 0.40000000000000002,
+ 0.52359877559829882 },
+ { 0.70589461324915670, -0.90000000000000002, 0.40000000000000002,
+ 0.69813170079773179 },
+ { 0.89472658511942849, -0.90000000000000002, 0.40000000000000002,
+ 0.87266462599716477 },
+ { 1.0987419542323440, -0.90000000000000002, 0.40000000000000002,
+ 1.0471975511965976 },
+ { 1.3261349565496303, -0.90000000000000002, 0.40000000000000002,
+ 1.2217304763960306 },
+ { 1.5831293909853765, -0.90000000000000002, 0.40000000000000002,
+ 1.3962634015954636 },
+ { 1.8641114227238349, -0.90000000000000002, 0.40000000000000002,
+ 1.5707963267948966 },
+};
+const double toler005 = 2.5000000000000020e-13;
+
+// Test data for k=-0.90000000000000002, nu=0.50000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.4538944656036724e-16
+const testcase_ellint_3<double>
+data006[10] =
+{
+ { 0.0000000000000000, -0.90000000000000002, 0.50000000000000000,
+ 0.0000000000000000 },
+ { 0.17437497557073334, -0.90000000000000002, 0.50000000000000000,
+ 0.17453292519943295 },
+ { 0.34804093691586013, -0.90000000000000002, 0.50000000000000000,
+ 0.34906585039886590 },
+ { 0.52137576320372891, -0.90000000000000002, 0.50000000000000000,
+ 0.52359877559829882 },
+ { 0.69655163996912262, -0.90000000000000002, 0.50000000000000000,
+ 0.69813170079773179 },
+ { 0.87783188683054236, -0.90000000000000002, 0.50000000000000000,
+ 0.87266462599716477 },
+ { 1.0716015959755185, -0.90000000000000002, 0.50000000000000000,
+ 1.0471975511965976 },
+ { 1.2857636916026749, -0.90000000000000002, 0.50000000000000000,
+ 1.2217304763960306 },
+ { 1.5264263913252363, -0.90000000000000002, 0.50000000000000000,
+ 1.3962634015954636 },
+ { 1.7888013241937861, -0.90000000000000002, 0.50000000000000000,
+ 1.5707963267948966 },
+};
+const double toler006 = 2.5000000000000020e-13;
+
+// Test data for k=-0.90000000000000002, nu=0.59999999999999998.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.5560830683344639e-16
+const testcase_ellint_3<double>
+data007[10] =
+{
+ { 0.0000000000000000, -0.90000000000000002, 0.59999999999999998,
+ 0.0000000000000000 },
+ { 0.17420100334657812, -0.90000000000000002, 0.59999999999999998,
+ 0.17453292519943295 },
+ { 0.34671975876122157, -0.90000000000000002, 0.59999999999999998,
+ 0.34906585039886590 },
+ { 0.51724631570707946, -0.90000000000000002, 0.59999999999999998,
+ 0.52359877559829882 },
+ { 0.68760879113743023, -0.90000000000000002, 0.59999999999999998,
+ 0.69813170079773179 },
+ { 0.86192157779698364, -0.90000000000000002, 0.59999999999999998,
+ 0.87266462599716477 },
+ { 1.0464279696166354, -0.90000000000000002, 0.59999999999999998,
+ 1.0471975511965976 },
+ { 1.2488156247094007, -0.90000000000000002, 0.59999999999999998,
+ 1.2217304763960306 },
+ { 1.4750988777188472, -0.90000000000000002, 0.59999999999999998,
+ 1.3962634015954636 },
+ { 1.7211781128919523, -0.90000000000000002, 0.59999999999999998,
+ 1.5707963267948966 },
+};
+const double toler007 = 2.5000000000000020e-13;
+
+// Test data for k=-0.90000000000000002, nu=0.69999999999999996.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 5.4833366769839281e-16
+const testcase_ellint_3<double>
+data008[10] =
+{
+ { 0.0000000000000000, -0.90000000000000002, 0.69999999999999996,
+ 0.0000000000000000 },
+ { 0.17402765093102207, -0.90000000000000002, 0.69999999999999996,
+ 0.17453292519943295 },
+ { 0.34541608382635131, -0.90000000000000002, 0.69999999999999996,
+ 0.34906585039886590 },
+ { 0.51322715827061682, -0.90000000000000002, 0.69999999999999996,
+ 0.52359877559829882 },
+ { 0.67903717872440272, -0.90000000000000002, 0.69999999999999996,
+ 0.69813170079773179 },
+ { 0.84690113601682671, -0.90000000000000002, 0.69999999999999996,
+ 0.87266462599716477 },
+ { 1.0229914311548418, -0.90000000000000002, 0.69999999999999996,
+ 1.0471975511965976 },
+ { 1.2148329639709381, -0.90000000000000002, 0.69999999999999996,
+ 1.2217304763960306 },
+ { 1.4283586501307803, -0.90000000000000002, 0.69999999999999996,
+ 1.3962634015954636 },
+ { 1.6600480747670940, -0.90000000000000002, 0.69999999999999996,
+ 1.5707963267948966 },
+};
+const double toler008 = 2.5000000000000020e-13;
+
+// Test data for k=-0.90000000000000002, nu=0.80000000000000004.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.7525301941362493e-16
+const testcase_ellint_3<double>
+data009[10] =
+{
+ { 0.0000000000000000, -0.90000000000000002, 0.80000000000000004,
+ 0.0000000000000000 },
+ { 0.17385491439925146, -0.90000000000000002, 0.80000000000000004,
+ 0.17453292519943295 },
+ { 0.34412950523113928, -0.90000000000000002, 0.80000000000000004,
+ 0.34906585039886590 },
+ { 0.50931321668729590, -0.90000000000000002, 0.80000000000000004,
+ 0.52359877559829882 },
+ { 0.67081081392296327, -0.90000000000000002, 0.80000000000000004,
+ 0.69813170079773179 },
+ { 0.83268846097293259, -0.90000000000000002, 0.80000000000000004,
+ 0.87266462599716477 },
+ { 1.0010985015814027, -0.90000000000000002, 0.80000000000000004,
+ 1.0471975511965976 },
+ { 1.1834394045489680, -0.90000000000000002, 0.80000000000000004,
+ 1.2217304763960306 },
+ { 1.3855695891683186, -0.90000000000000002, 0.80000000000000004,
+ 1.3962634015954636 },
+ { 1.6044591960982202, -0.90000000000000002, 0.80000000000000004,
+ 1.5707963267948966 },
+};
+const double toler009 = 2.5000000000000020e-13;
+
+// Test data for k=-0.90000000000000002, nu=0.90000000000000002.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.8471853989694167e-16
+const testcase_ellint_3<double>
+data010[10] =
+{
+ { 0.0000000000000000, -0.90000000000000002, 0.90000000000000002,
+ 0.0000000000000000 },
+ { 0.17368278986240135, -0.90000000000000002, 0.90000000000000002,
+ 0.17453292519943295 },
+ { 0.34285962963961397, -0.90000000000000002, 0.90000000000000002,
+ 0.34906585039886590 },
+ { 0.50549974644993312, -0.90000000000000002, 0.90000000000000002,
+ 0.52359877559829882 },
+ { 0.66290623857720876, -0.90000000000000002, 0.90000000000000002,
+ 0.69813170079773179 },
+ { 0.81921183128847175, -0.90000000000000002, 0.90000000000000002,
+ 0.87266462599716477 },
+ { 0.98058481956066390, -0.90000000000000002, 0.90000000000000002,
+ 1.0471975511965976 },
+ { 1.1543223520473569, -0.90000000000000002, 0.90000000000000002,
+ 1.2217304763960306 },
+ { 1.3462119782292938, -0.90000000000000002, 0.90000000000000002,
+ 1.3962634015954636 },
+ { 1.5536420236310946, -0.90000000000000002, 0.90000000000000002,
+ 1.5707963267948966 },
+};
+const double toler010 = 2.5000000000000020e-13;
+
+// Test data for k=-0.80000000000000004, nu=0.0000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.1175183168766718e-16
+const testcase_ellint_3<double>
+data011[10] =
+{
+ { 0.0000000000000000, -0.80000000000000004, 0.0000000000000000,
+ 0.0000000000000000 },
+ { 0.17510154241338899, -0.80000000000000004, 0.0000000000000000,
+ 0.17453292519943295 },
+ { 0.35365068839779390, -0.80000000000000004, 0.0000000000000000,
+ 0.34906585039886590 },
+ { 0.53926804409084550, -0.80000000000000004, 0.0000000000000000,
+ 0.52359877559829882 },
+ { 0.73587926028070361, -0.80000000000000004, 0.0000000000000000,
+ 0.69813170079773179 },
+ { 0.94770942970071170, -0.80000000000000004, 0.0000000000000000,
+ 0.87266462599716477 },
+ { 1.1789022995388236, -0.80000000000000004, 0.0000000000000000,
+ 1.0471975511965976 },
+ { 1.4323027881876009, -0.80000000000000004, 0.0000000000000000,
+ 1.2217304763960306 },
+ { 1.7069629739121674, -0.80000000000000004, 0.0000000000000000,
+ 1.3962634015954636 },
+ { 1.9953027776647296, -0.80000000000000004, 0.0000000000000000,
+ 1.5707963267948966 },
+};
+const double toler011 = 2.5000000000000020e-13;
+
+// Test data for k=-0.80000000000000004, nu=0.10000000000000001.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.1537164503193145e-16
+const testcase_ellint_3<double>
+data012[10] =
+{
+ { 0.0000000000000000, -0.80000000000000004, 0.10000000000000001,
+ 0.0000000000000000 },
+ { 0.17492468824017163, -0.80000000000000004, 0.10000000000000001,
+ 0.17453292519943295 },
+ { 0.35224443521476911, -0.80000000000000004, 0.10000000000000001,
+ 0.34906585039886590 },
+ { 0.53456851853226950, -0.80000000000000004, 0.10000000000000001,
+ 0.52359877559829882 },
+ { 0.72488875602364922, -0.80000000000000004, 0.10000000000000001,
+ 0.69813170079773179 },
+ { 0.92661354274638952, -0.80000000000000004, 0.10000000000000001,
+ 0.87266462599716477 },
+ { 1.1432651144499075, -0.80000000000000004, 0.10000000000000001,
+ 1.0471975511965976 },
+ { 1.3774479927211429, -0.80000000000000004, 0.10000000000000001,
+ 1.2217304763960306 },
+ { 1.6287092337196041, -0.80000000000000004, 0.10000000000000001,
+ 1.3962634015954636 },
+ { 1.8910755418379521, -0.80000000000000004, 0.10000000000000001,
+ 1.5707963267948966 },
+};
+const double toler012 = 2.5000000000000020e-13;
+
+// Test data for k=-0.80000000000000004, nu=0.20000000000000001.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.1894552974436829e-16
+const testcase_ellint_3<double>
+data013[10] =
+{
+ { 0.0000000000000000, -0.80000000000000004, 0.20000000000000001,
+ 0.0000000000000000 },
+ { 0.17474847286224940, -0.80000000000000004, 0.20000000000000001,
+ 0.17453292519943295 },
+ { 0.35085779529084682, -0.80000000000000004, 0.20000000000000001,
+ 0.34906585039886590 },
+ { 0.53000829263059146, -0.80000000000000004, 0.20000000000000001,
+ 0.52359877559829882 },
+ { 0.71443466027453384, -0.80000000000000004, 0.20000000000000001,
+ 0.69813170079773179 },
+ { 0.90698196872715420, -0.80000000000000004, 0.20000000000000001,
+ 0.87266462599716477 },
+ { 1.1108198200558579, -0.80000000000000004, 0.20000000000000001,
+ 1.0471975511965976 },
+ { 1.3284988909963957, -0.80000000000000004, 0.20000000000000001,
+ 1.2217304763960306 },
+ { 1.5600369318140328, -0.80000000000000004, 0.20000000000000001,
+ 1.3962634015954636 },
+ { 1.8007226661734588, -0.80000000000000004, 0.20000000000000001,
+ 1.5707963267948966 },
+};
+const double toler013 = 2.5000000000000020e-13;
+
+// Test data for k=-0.80000000000000004, nu=0.29999999999999999.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.2247517409029886e-16
+const testcase_ellint_3<double>
+data014[10] =
+{
+ { 0.0000000000000000, -0.80000000000000004, 0.29999999999999999,
+ 0.0000000000000000 },
+ { 0.17457289217669889, -0.80000000000000004, 0.29999999999999999,
+ 0.17453292519943295 },
+ { 0.34949028801501258, -0.80000000000000004, 0.29999999999999999,
+ 0.34906585039886590 },
+ { 0.52558024362769307, -0.80000000000000004, 0.29999999999999999,
+ 0.52359877559829882 },
+ { 0.70447281740094891, -0.80000000000000004, 0.29999999999999999,
+ 0.69813170079773179 },
+ { 0.88864745641528986, -0.80000000000000004, 0.29999999999999999,
+ 0.87266462599716477 },
+ { 1.0811075819341462, -0.80000000000000004, 0.29999999999999999,
+ 1.0471975511965976 },
+ { 1.2844589654082377, -0.80000000000000004, 0.29999999999999999,
+ 1.2217304763960306 },
+ { 1.4991461361277847, -0.80000000000000004, 0.29999999999999999,
+ 1.3962634015954636 },
+ { 1.7214611048717301, -0.80000000000000004, 0.29999999999999999,
+ 1.5707963267948966 },
+};
+const double toler014 = 2.5000000000000020e-13;
+
+// Test data for k=-0.80000000000000004, nu=0.40000000000000002.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.2596216594752862e-16
+const testcase_ellint_3<double>
+data015[10] =
+{
+ { 0.0000000000000000, -0.80000000000000004, 0.40000000000000002,
+ 0.0000000000000000 },
+ { 0.17439794211872175, -0.80000000000000004, 0.40000000000000002,
+ 0.17453292519943295 },
+ { 0.34814144964568972, -0.80000000000000004, 0.40000000000000002,
+ 0.34906585039886590 },
+ { 0.52127776285273064, -0.80000000000000004, 0.40000000000000002,
+ 0.52359877559829882 },
+ { 0.69496411438966588, -0.80000000000000004, 0.40000000000000002,
+ 0.69813170079773179 },
+ { 0.87146878427509589, -0.80000000000000004, 0.40000000000000002,
+ 0.87266462599716477 },
+ { 1.0537579024937762, -0.80000000000000004, 0.40000000000000002,
+ 1.0471975511965976 },
+ { 1.2445534387922637, -0.80000000000000004, 0.40000000000000002,
+ 1.2217304763960306 },
+ { 1.4446769766361993, -0.80000000000000004, 0.40000000000000002,
+ 1.3962634015954636 },
+ { 1.6512267838651289, -0.80000000000000004, 0.40000000000000002,
+ 1.5707963267948966 },
+};
+const double toler015 = 2.5000000000000020e-13;
+
+// Test data for k=-0.80000000000000004, nu=0.50000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.2940800093915668e-16
+const testcase_ellint_3<double>
+data016[10] =
+{
+ { 0.0000000000000000, -0.80000000000000004, 0.50000000000000000,
+ 0.0000000000000000 },
+ { 0.17422361866118044, -0.80000000000000004, 0.50000000000000000,
+ 0.17453292519943295 },
+ { 0.34681083254170475, -0.80000000000000004, 0.50000000000000000,
+ 0.34906585039886590 },
+ { 0.51709470815494440, -0.80000000000000004, 0.50000000000000000,
+ 0.52359877559829882 },
+ { 0.68587375344080237, -0.80000000000000004, 0.50000000000000000,
+ 0.69813170079773179 },
+ { 0.85532571852810624, -0.80000000000000004, 0.50000000000000000,
+ 0.87266462599716477 },
+ { 1.0284677391874903, -0.80000000000000004, 0.50000000000000000,
+ 1.0471975511965976 },
+ { 1.2081693942686225, -0.80000000000000004, 0.50000000000000000,
+ 1.2217304763960306 },
+ { 1.3955803006426311, -0.80000000000000004, 0.50000000000000000,
+ 1.3962634015954636 },
+ { 1.5884528947755532, -0.80000000000000004, 0.50000000000000000,
+ 1.5707963267948966 },
+};
+const double toler016 = 2.5000000000000020e-13;
+
+// Test data for k=-0.80000000000000004, nu=0.59999999999999998.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.3281408974056389e-16
+const testcase_ellint_3<double>
+data017[10] =
+{
+ { 0.0000000000000000, -0.80000000000000004, 0.59999999999999998,
+ 0.0000000000000000 },
+ { 0.17404991781414089, -0.80000000000000004, 0.59999999999999998,
+ 0.17453292519943295 },
+ { 0.34549800443625167, -0.80000000000000004, 0.59999999999999998,
+ 0.34906585039886590 },
+ { 0.51302536167001545, -0.80000000000000004, 0.59999999999999998,
+ 0.52359877559829882 },
+ { 0.67717065003912236, -0.80000000000000004, 0.59999999999999998,
+ 0.69813170079773179 },
+ { 0.84011512421134416, -0.80000000000000004, 0.59999999999999998,
+ 0.87266462599716477 },
+ { 1.0049863847088740, -0.80000000000000004, 0.59999999999999998,
+ 1.0471975511965976 },
+ { 1.1748145941898920, -0.80000000000000004, 0.59999999999999998,
+ 1.2217304763960306 },
+ { 1.3510319699755071, -0.80000000000000004, 0.59999999999999998,
+ 1.3962634015954636 },
+ { 1.5319262547427865, -0.80000000000000004, 0.59999999999999998,
+ 1.5707963267948966 },
+};
+const double toler017 = 2.5000000000000020e-13;
+
+// Test data for k=-0.80000000000000004, nu=0.69999999999999996.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 4.3618176466061808e-16
+const testcase_ellint_3<double>
+data018[10] =
+{
+ { 0.0000000000000000, -0.80000000000000004, 0.69999999999999996,
+ 0.0000000000000000 },
+ { 0.17387683562442199, -0.80000000000000004, 0.69999999999999996,
+ 0.17453292519943295 },
+ { 0.34420254775101611, -0.80000000000000004, 0.69999999999999996,
+ 0.34906585039886590 },
+ { 0.50906439222143673, -0.80000000000000004, 0.69999999999999996,
+ 0.52359877559829882 },
+ { 0.66882693152688422, -0.80000000000000004, 0.69999999999999996,
+ 0.69813170079773179 },
+ { 0.82574792844091316, -0.80000000000000004, 0.69999999999999996,
+ 0.87266462599716477 },
+ { 0.98310431309490931, -0.80000000000000004, 0.69999999999999996,
+ 1.0471975511965976 },
+ { 1.1440884535113258, -0.80000000000000004, 0.69999999999999996,
+ 1.2217304763960306 },
+ { 1.3103743938952537, -0.80000000000000004, 0.69999999999999996,
+ 1.3962634015954636 },
+ { 1.4806912324625332, -0.80000000000000004, 0.69999999999999996,
+ 1.5707963267948966 },
+};
+const double toler018 = 2.5000000000000020e-13;
+
+// Test data for k=-0.80000000000000004, nu=0.80000000000000004.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.3951228558314112e-16
+const testcase_ellint_3<double>
+data019[10] =
+{
+ { 0.0000000000000000, -0.80000000000000004, 0.80000000000000004,
+ 0.0000000000000000 },
+ { 0.17370436817515203, -0.80000000000000004, 0.80000000000000004,
+ 0.17453292519943295 },
+ { 0.34292405894783395, -0.80000000000000004, 0.80000000000000004,
+ 0.34906585039886590 },
+ { 0.50520682176250076, -0.80000000000000004, 0.80000000000000004,
+ 0.52359877559829882 },
+ { 0.66081751679736178, -0.80000000000000004, 0.80000000000000004,
+ 0.69813170079773179 },
+ { 0.81214672249355102, -0.80000000000000004, 0.80000000000000004,
+ 0.87266462599716477 },
+ { 0.96264481387685552, -0.80000000000000004, 0.80000000000000004,
+ 1.0471975511965976 },
+ { 1.1156611352656258, -0.80000000000000004, 0.80000000000000004,
+ 1.2217304763960306 },
+ { 1.2730756225143889, -0.80000000000000004, 0.80000000000000004,
+ 1.3962634015954636 },
+ { 1.4339837018309471, -0.80000000000000004, 0.80000000000000004,
+ 1.5707963267948966 },
+};
+const double toler019 = 2.5000000000000020e-13;
+
+// Test data for k=-0.80000000000000004, nu=0.90000000000000002.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 4.4280684534289690e-16
+const testcase_ellint_3<double>
+data020[10] =
+{
+ { 0.0000000000000000, -0.80000000000000004, 0.90000000000000002,
+ 0.0000000000000000 },
+ { 0.17353251158533151, -0.80000000000000004, 0.90000000000000002,
+ 0.17453292519943295 },
+ { 0.34166214791545768, -0.80000000000000004, 0.90000000000000002,
+ 0.34906585039886590 },
+ { 0.50144799535130569, -0.80000000000000004, 0.90000000000000002,
+ 0.52359877559829882 },
+ { 0.65311976193814425, -0.80000000000000004, 0.90000000000000002,
+ 0.69813170079773179 },
+ { 0.79924384892320866, -0.80000000000000004, 0.90000000000000002,
+ 0.87266462599716477 },
+ { 0.94345762353365603, -0.80000000000000004, 0.90000000000000002,
+ 1.0471975511965976 },
+ { 1.0892582069219161, -0.80000000000000004, 0.90000000000000002,
+ 1.2217304763960306 },
+ { 1.2387000876610268, -0.80000000000000004, 0.90000000000000002,
+ 1.3962634015954636 },
+ { 1.3911845406776222, -0.80000000000000004, 0.90000000000000002,
+ 1.5707963267948966 },
+};
+const double toler020 = 2.5000000000000020e-13;
+
+// Test data for k=-0.69999999999999996, nu=0.0000000000000000.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 3.5930208052157665e-16
+const testcase_ellint_3<double>
+data021[10] =
+{
+ { 0.0000000000000000, -0.69999999999999996, 0.0000000000000000,
+ 0.0000000000000000 },
+ { 0.17496737466916723, -0.69999999999999996, 0.0000000000000000,
+ 0.17453292519943295 },
+ { 0.35254687535677925, -0.69999999999999996, 0.0000000000000000,
+ 0.34906585039886590 },
+ { 0.53536740275997119, -0.69999999999999996, 0.0000000000000000,
+ 0.52359877559829882 },
+ { 0.72603797651684454, -0.69999999999999996, 0.0000000000000000,
+ 0.69813170079773179 },
+ { 0.92698296348313458, -0.69999999999999996, 0.0000000000000000,
+ 0.87266462599716477 },
+ { 1.1400447527693316, -0.69999999999999996, 0.0000000000000000,
+ 1.0471975511965976 },
+ { 1.3657668117194073, -0.69999999999999996, 0.0000000000000000,
+ 1.2217304763960306 },
+ { 1.6024686895959159, -0.69999999999999996, 0.0000000000000000,
+ 1.3962634015954636 },
+ { 1.8456939983747236, -0.69999999999999996, 0.0000000000000000,
+ 1.5707963267948966 },
+};
+const double toler021 = 2.5000000000000020e-13;
+
+// Test data for k=-0.69999999999999996, nu=0.10000000000000001.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 3.6735282577377367e-16
+const testcase_ellint_3<double>
+data022[10] =
+{
+ { 0.0000000000000000, -0.69999999999999996, 0.10000000000000001,
+ 0.0000000000000000 },
+ { 0.17479076384884684, -0.69999999999999996, 0.10000000000000001,
+ 0.17453292519943295 },
+ { 0.35114844900396364, -0.69999999999999996, 0.10000000000000001,
+ 0.34906585039886590 },
+ { 0.53072776947527001, -0.69999999999999996, 0.10000000000000001,
+ 0.52359877559829882 },
+ { 0.71530198262386235, -0.69999999999999996, 0.10000000000000001,
+ 0.69813170079773179 },
+ { 0.90666760677828306, -0.69999999999999996, 0.10000000000000001,
+ 0.87266462599716477 },
+ { 1.1063366517438080, -0.69999999999999996, 0.10000000000000001,
+ 1.0471975511965976 },
+ { 1.3149477243092149, -0.69999999999999996, 0.10000000000000001,
+ 1.2217304763960306 },
+ { 1.5314886725038925, -0.69999999999999996, 0.10000000000000001,
+ 1.3962634015954636 },
+ { 1.7528050171757608, -0.69999999999999996, 0.10000000000000001,
+ 1.5707963267948966 },
+};
+const double toler022 = 2.5000000000000020e-13;
+
+// Test data for k=-0.69999999999999996, nu=0.20000000000000001.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 3.7517969287516802e-16
+const testcase_ellint_3<double>
+data023[10] =
+{
+ { 0.0000000000000000, -0.69999999999999996, 0.20000000000000001,
+ 0.0000000000000000 },
+ { 0.17461479077791475, -0.69999999999999996, 0.20000000000000001,
+ 0.17453292519943295 },
+ { 0.34976950621407538, -0.69999999999999996, 0.20000000000000001,
+ 0.34906585039886590 },
+ { 0.52622533231350177, -0.69999999999999996, 0.20000000000000001,
+ 0.52359877559829882 },
+ { 0.70508774017895215, -0.69999999999999996, 0.20000000000000001,
+ 0.69813170079773179 },
+ { 0.88775302531730294, -0.69999999999999996, 0.20000000000000001,
+ 0.87266462599716477 },
+ { 1.0756195476149006, -0.69999999999999996, 0.20000000000000001,
+ 1.0471975511965976 },
+ { 1.2695349716654374, -0.69999999999999996, 0.20000000000000001,
+ 1.2217304763960306 },
+ { 1.4690814617070540, -0.69999999999999996, 0.20000000000000001,
+ 1.3962634015954636 },
+ { 1.6721098780092145, -0.69999999999999996, 0.20000000000000001,
+ 1.5707963267948966 },
+};
+const double toler023 = 2.5000000000000020e-13;
+
+// Test data for k=-0.69999999999999996, nu=0.29999999999999999.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.8280039841080712e-16
+const testcase_ellint_3<double>
+data024[10] =
+{
+ { 0.0000000000000000, -0.69999999999999996, 0.29999999999999999,
+ 0.0000000000000000 },
+ { 0.17443945136076175, -0.69999999999999996, 0.29999999999999999,
+ 0.17453292519943295 },
+ { 0.34840956983535287, -0.69999999999999996, 0.29999999999999999,
+ 0.34906585039886590 },
+ { 0.52185308551329168, -0.69999999999999996, 0.29999999999999999,
+ 0.52359877559829882 },
+ { 0.69535240431168255, -0.69999999999999996, 0.29999999999999999,
+ 0.69813170079773179 },
+ { 0.87007983473964923, -0.69999999999999996, 0.29999999999999999,
+ 0.87266462599716477 },
+ { 1.0474657975577066, -0.69999999999999996, 0.29999999999999999,
+ 1.0471975511965976 },
+ { 1.2286225419931891, -0.69999999999999996, 0.29999999999999999,
+ 1.2217304763960306 },
+ { 1.4136490671013271, -0.69999999999999996, 0.29999999999999999,
+ 1.3962634015954636 },
+ { 1.6011813647733213, -0.69999999999999996, 0.29999999999999999,
+ 1.5707963267948966 },
+};
+const double toler024 = 2.5000000000000020e-13;
+
+// Test data for k=-0.69999999999999996, nu=0.40000000000000002.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.3472957053482092e-16
+const testcase_ellint_3<double>
+data025[10] =
+{
+ { 0.0000000000000000, -0.69999999999999996, 0.40000000000000002,
+ 0.0000000000000000 },
+ { 0.17426474153983229, -0.69999999999999996, 0.40000000000000002,
+ 0.17453292519943295 },
+ { 0.34706817945773732, -0.69999999999999996, 0.40000000000000002,
+ 0.34906585039886590 },
+ { 0.51760452851738148, -0.69999999999999996, 0.40000000000000002,
+ 0.52359877559829882 },
+ { 0.68605801534722755, -0.69999999999999996, 0.40000000000000002,
+ 0.69813170079773179 },
+ { 0.85351339387296532, -0.69999999999999996, 0.40000000000000002,
+ 0.87266462599716477 },
+ { 1.0215297967969539, -0.69999999999999996, 0.40000000000000002,
+ 1.0471975511965976 },
+ { 1.1915051074460530, -0.69999999999999996, 0.40000000000000002,
+ 1.2217304763960306 },
+ { 1.3639821911744707, -0.69999999999999996, 0.40000000000000002,
+ 1.3962634015954636 },
+ { 1.5382162002954762, -0.69999999999999996, 0.40000000000000002,
+ 1.5707963267948966 },
+};
+const double toler025 = 2.5000000000000020e-13;
+
+// Test data for k=-0.69999999999999996, nu=0.50000000000000000.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 3.9748346743390620e-16
+const testcase_ellint_3<double>
+data026[10] =
+{
+ { 0.0000000000000000, -0.69999999999999996, 0.50000000000000000,
+ 0.0000000000000000 },
+ { 0.17409065729516096, -0.69999999999999996, 0.50000000000000000,
+ 0.17453292519943295 },
+ { 0.34574489064986091, -0.69999999999999996, 0.50000000000000000,
+ 0.34906585039886590 },
+ { 0.51347361925579782, -0.69999999999999996, 0.50000000000000000,
+ 0.52359877559829882 },
+ { 0.67717079489579279, -0.69999999999999996, 0.50000000000000000,
+ 0.69813170079773179 },
+ { 0.83793902055292280, -0.69999999999999996, 0.50000000000000000,
+ 0.87266462599716477 },
+ { 0.99752863545289705, -0.69999999999999996, 0.50000000000000000,
+ 1.0471975511965976 },
+ { 1.1576240080401501, -0.69999999999999996, 0.50000000000000000,
+ 1.2217304763960306 },
+ { 1.3191464023923762, -0.69999999999999996, 0.50000000000000000,
+ 1.3962634015954636 },
+ { 1.4818433192178544, -0.69999999999999996, 0.50000000000000000,
+ 1.5707963267948966 },
+};
+const double toler026 = 2.5000000000000020e-13;
+
+// Test data for k=-0.69999999999999996, nu=0.59999999999999998.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 4.0457157538295173e-16
+const testcase_ellint_3<double>
+data027[10] =
+{
+ { 0.0000000000000000, -0.69999999999999996, 0.59999999999999998,
+ 0.0000000000000000 },
+ { 0.17391719464391614, -0.69999999999999996, 0.59999999999999998,
+ 0.17453292519943295 },
+ { 0.34443927423869031, -0.69999999999999996, 0.59999999999999998,
+ 0.34906585039886590 },
+ { 0.50945473266486063, -0.69999999999999996, 0.59999999999999998,
+ 0.52359877559829882 },
+ { 0.66866056326513812, -0.69999999999999996, 0.59999999999999998,
+ 0.69813170079773179 },
+ { 0.82325830002337352, -0.69999999999999996, 0.59999999999999998,
+ 0.87266462599716477 },
+ { 0.97522808245669368, -0.69999999999999996, 0.59999999999999998,
+ 1.0471975511965976 },
+ { 1.1265300613705285, -0.69999999999999996, 0.59999999999999998,
+ 1.2217304763960306 },
+ { 1.2784066076152001, -0.69999999999999996, 0.59999999999999998,
+ 1.3962634015954636 },
+ { 1.4309994736080540, -0.69999999999999996, 0.59999999999999998,
+ 1.5707963267948966 },
+};
+const double toler027 = 2.5000000000000020e-13;
+
+// Test data for k=-0.69999999999999996, nu=0.69999999999999996.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 5.4867405596732161e-16
+const testcase_ellint_3<double>
+data028[10] =
+{
+ { 0.0000000000000000, -0.69999999999999996, 0.69999999999999996,
+ 0.0000000000000000 },
+ { 0.17374434963995031, -0.69999999999999996, 0.69999999999999996,
+ 0.17453292519943295 },
+ { 0.34315091562900674, -0.69999999999999996, 0.69999999999999996,
+ 0.34906585039886590 },
+ { 0.50554262375653347, -0.69999999999999996, 0.69999999999999996,
+ 0.52359877559829882 },
+ { 0.66050025406305801, -0.69999999999999996, 0.69999999999999996,
+ 0.69813170079773179 },
+ { 0.80938620118847404, -0.69999999999999996, 0.69999999999999996,
+ 0.87266462599716477 },
+ { 0.95443223855852144, -0.69999999999999996, 0.69999999999999996,
+ 1.0471975511965976 },
+ { 1.0978573207128304, -0.69999999999999996, 0.69999999999999996,
+ 1.2217304763960306 },
+ { 1.2411754575007123, -0.69999999999999996, 0.69999999999999996,
+ 1.3962634015954636 },
+ { 1.3848459188329196, -0.69999999999999996, 0.69999999999999996,
+ 1.5707963267948966 },
+};
+const double toler028 = 2.5000000000000020e-13;
+
+// Test data for k=-0.69999999999999996, nu=0.80000000000000004.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.1829502028913879e-16
+const testcase_ellint_3<double>
+data029[10] =
+{
+ { 0.0000000000000000, -0.69999999999999996, 0.80000000000000004,
+ 0.0000000000000000 },
+ { 0.17357211837335740, -0.69999999999999996, 0.80000000000000004,
+ 0.17453292519943295 },
+ { 0.34187941416012108, -0.69999999999999996, 0.80000000000000004,
+ 0.34906585039886590 },
+ { 0.50173239465478259, -0.69999999999999996, 0.80000000000000004,
+ 0.52359877559829882 },
+ { 0.65266550725988315, -0.69999999999999996, 0.80000000000000004,
+ 0.69813170079773179 },
+ { 0.79624879865249298, -0.69999999999999996, 0.80000000000000004,
+ 0.87266462599716477 },
+ { 0.93497577043296920, -0.69999999999999996, 0.80000000000000004,
+ 1.0471975511965976 },
+ { 1.0713041566930750, -0.69999999999999996, 0.80000000000000004,
+ 1.2217304763960306 },
+ { 1.2069772023255654, -0.69999999999999996, 0.80000000000000004,
+ 1.3962634015954636 },
+ { 1.3427110650397531, -0.69999999999999996, 0.80000000000000004,
+ 1.5707963267948966 },
+};
+const double toler029 = 2.5000000000000020e-13;
+
+// Test data for k=-0.69999999999999996, nu=0.90000000000000002.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 4.2494869624129105e-16
+const testcase_ellint_3<double>
+data030[10] =
+{
+ { 0.0000000000000000, -0.69999999999999996, 0.90000000000000002,
+ 0.0000000000000000 },
+ { 0.17340049697003637, -0.69999999999999996, 0.90000000000000002,
+ 0.17453292519943295 },
+ { 0.34062438249741556, -0.69999999999999996, 0.90000000000000002,
+ 0.34906585039886590 },
+ { 0.49801946510076867, -0.69999999999999996, 0.90000000000000002,
+ 0.52359877559829882 },
+ { 0.64513432604750476, -0.69999999999999996, 0.90000000000000002,
+ 0.69813170079773179 },
+ { 0.78378145487573758, -0.69999999999999996, 0.90000000000000002,
+ 0.87266462599716477 },
+ { 0.91671799500854623, -0.69999999999999996, 0.90000000000000002,
+ 1.0471975511965976 },
+ { 1.0466193579463123, -0.69999999999999996, 0.90000000000000002,
+ 1.2217304763960306 },
+ { 1.1754218079199146, -0.69999999999999996, 0.90000000000000002,
+ 1.3962634015954636 },
+ { 1.3040500499695913, -0.69999999999999996, 0.90000000000000002,
+ 1.5707963267948966 },
+};
+const double toler030 = 2.5000000000000020e-13;
+
+// Test data for k=-0.59999999999999998, nu=0.0000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 2.8964816695821429e-16
+const testcase_ellint_3<double>
+data031[10] =
+{
+ { 0.0000000000000000, -0.59999999999999998, 0.0000000000000000,
+ 0.0000000000000000 },
+ { 0.17485154362988359, -0.59999999999999998, 0.0000000000000000,
+ 0.17453292519943295 },
+ { 0.35160509865544326, -0.59999999999999998, 0.0000000000000000,
+ 0.34906585039886590 },
+ { 0.53210652578446138, -0.59999999999999998, 0.0000000000000000,
+ 0.52359877559829882 },
+ { 0.71805304664485659, -0.59999999999999998, 0.0000000000000000,
+ 0.69813170079773179 },
+ { 0.91082759030195970, -0.59999999999999998, 0.0000000000000000,
+ 0.87266462599716477 },
+ { 1.1112333229323361, -0.59999999999999998, 0.0000000000000000,
+ 1.0471975511965976 },
+ { 1.3191461190365270, -0.59999999999999998, 0.0000000000000000,
+ 1.2217304763960306 },
+ { 1.5332022105084773, -0.59999999999999998, 0.0000000000000000,
+ 1.3962634015954636 },
+ { 1.7507538029157526, -0.59999999999999998, 0.0000000000000000,
+ 1.5707963267948966 },
+};
+const double toler031 = 2.5000000000000020e-13;
+
+// Test data for k=-0.59999999999999998, nu=0.10000000000000001.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 2.6674242225057385e-16
+const testcase_ellint_3<double>
+data032[10] =
+{
+ { 0.0000000000000000, -0.59999999999999998, 0.10000000000000001,
+ 0.0000000000000000 },
+ { 0.17467514275022011, -0.59999999999999998, 0.10000000000000001,
+ 0.17453292519943295 },
+ { 0.35021333086258255, -0.59999999999999998, 0.10000000000000001,
+ 0.34906585039886590 },
+ { 0.52751664092962691, -0.59999999999999998, 0.10000000000000001,
+ 0.52359877559829882 },
+ { 0.70752126971957874, -0.59999999999999998, 0.10000000000000001,
+ 0.69813170079773179 },
+ { 0.89111058756112871, -0.59999999999999998, 0.10000000000000001,
+ 0.87266462599716477 },
+ { 1.0789241202877768, -0.59999999999999998, 0.10000000000000001,
+ 1.0471975511965976 },
+ { 1.2710800210399946, -0.59999999999999998, 0.10000000000000001,
+ 1.2217304763960306 },
+ { 1.4669060574440276, -0.59999999999999998, 0.10000000000000001,
+ 1.3962634015954636 },
+ { 1.6648615773343014, -0.59999999999999998, 0.10000000000000001,
+ 1.5707963267948966 },
+};
+const double toler032 = 2.5000000000000020e-13;
+
+// Test data for k=-0.59999999999999998, nu=0.20000000000000001.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 4.1891472451898755e-16
+const testcase_ellint_3<double>
+data033[10] =
+{
+ { 0.0000000000000000, -0.59999999999999998, 0.20000000000000001,
+ 0.0000000000000000 },
+ { 0.17449937871800650, -0.59999999999999998, 0.20000000000000001,
+ 0.17453292519943295 },
+ { 0.34884093647346553, -0.59999999999999998, 0.20000000000000001,
+ 0.34906585039886590 },
+ { 0.52306221119844087, -0.59999999999999998, 0.20000000000000001,
+ 0.52359877559829882 },
+ { 0.69749955678982223, -0.59999999999999998, 0.20000000000000001,
+ 0.69813170079773179 },
+ { 0.87274610682416853, -0.59999999999999998, 0.20000000000000001,
+ 0.87266462599716477 },
+ { 1.0494620540750792, -0.59999999999999998, 0.20000000000000001,
+ 1.0471975511965976 },
+ { 1.2280847305507339, -0.59999999999999998, 0.20000000000000001,
+ 1.2217304763960306 },
+ { 1.4085436279696886, -0.59999999999999998, 0.20000000000000001,
+ 1.3962634015954636 },
+ { 1.5901418016279374, -0.59999999999999998, 0.20000000000000001,
+ 1.5707963267948966 },
+};
+const double toler033 = 2.5000000000000020e-13;
+
+// Test data for k=-0.59999999999999998, nu=0.29999999999999999.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 2.9132420715478757e-16
+const testcase_ellint_3<double>
+data034[10] =
+{
+ { 0.0000000000000000, -0.59999999999999998, 0.29999999999999999,
+ 0.0000000000000000 },
+ { 0.17432424744393932, -0.59999999999999998, 0.29999999999999999,
+ 0.17453292519943295 },
+ { 0.34748744127146447, -0.59999999999999998, 0.29999999999999999,
+ 0.34906585039886590 },
+ { 0.51873632743924825, -0.59999999999999998, 0.29999999999999999,
+ 0.52359877559829882 },
+ { 0.68794610396313116, -0.59999999999999998, 0.29999999999999999,
+ 0.69813170079773179 },
+ { 0.85558070175468726, -0.59999999999999998, 0.29999999999999999,
+ 0.87266462599716477 },
+ { 1.0224416343605653, -0.59999999999999998, 0.29999999999999999,
+ 1.0471975511965976 },
+ { 1.1893144457936788, -0.59999999999999998, 0.29999999999999999,
+ 1.2217304763960306 },
+ { 1.3566435377982575, -0.59999999999999998, 0.29999999999999999,
+ 1.3962634015954636 },
+ { 1.5243814243493585, -0.59999999999999998, 0.29999999999999999,
+ 1.5707963267948966 },
+};
+const double toler034 = 2.5000000000000020e-13;
+
+// Test data for k=-0.59999999999999998, nu=0.40000000000000002.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.3897581541285558e-16
+const testcase_ellint_3<double>
+data035[10] =
+{
+ { 0.0000000000000000, -0.59999999999999998, 0.40000000000000002,
+ 0.0000000000000000 },
+ { 0.17414974487670717, -0.59999999999999998, 0.40000000000000002,
+ 0.17453292519943295 },
+ { 0.34615238767335027, -0.59999999999999998, 0.40000000000000002,
+ 0.34906585039886590 },
+ { 0.51453257838108557, -0.59999999999999998, 0.40000000000000002,
+ 0.52359877559829882 },
+ { 0.67882386787534399, -0.59999999999999998, 0.40000000000000002,
+ 0.69813170079773179 },
+ { 0.83948470233173578, -0.59999999999999998, 0.40000000000000002,
+ 0.87266462599716477 },
+ { 0.99753496200073977, -0.59999999999999998, 0.40000000000000002,
+ 1.0471975511965976 },
+ { 1.1541101404388487, -0.59999999999999998, 0.40000000000000002,
+ 1.2217304763960306 },
+ { 1.3100911323398814, -0.59999999999999998, 0.40000000000000002,
+ 1.3962634015954636 },
+ { 1.4659345278069984, -0.59999999999999998, 0.40000000000000002,
+ 1.5707963267948966 },
+};
+const double toler035 = 2.5000000000000020e-13;
+
+// Test data for k=-0.59999999999999998, nu=0.50000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.5022138270566200e-16
+const testcase_ellint_3<double>
+data036[10] =
+{
+ { 0.0000000000000000, -0.59999999999999998, 0.50000000000000000,
+ 0.0000000000000000 },
+ { 0.17397586700252807, -0.59999999999999998, 0.50000000000000000,
+ 0.17453292519943295 },
+ { 0.34483533397138516, -0.59999999999999998, 0.50000000000000000,
+ 0.34906585039886590 },
+ { 0.51044500461706477, -0.59999999999999998, 0.50000000000000000,
+ 0.52359877559829882 },
+ { 0.67009988034712664, -0.59999999999999998, 0.50000000000000000,
+ 0.69813170079773179 },
+ { 0.82434762375735193, -0.59999999999999998, 0.50000000000000000,
+ 0.87266462599716477 },
+ { 0.97447346702798998, -0.59999999999999998, 0.50000000000000000,
+ 1.0471975511965976 },
+ { 1.1219494000522143, -0.59999999999999998, 0.50000000000000000,
+ 1.2217304763960306 },
+ { 1.2680242605954484, -0.59999999999999998, 0.50000000000000000,
+ 1.3962634015954636 },
+ { 1.4135484285693078, -0.59999999999999998, 0.50000000000000000,
+ 1.5707963267948966 },
+};
+const double toler036 = 2.5000000000000020e-13;
+
+// Test data for k=-0.59999999999999998, nu=0.59999999999999998.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.2504224329684343e-16
+const testcase_ellint_3<double>
+data037[10] =
+{
+ { 0.0000000000000000, -0.59999999999999998, 0.59999999999999998,
+ 0.0000000000000000 },
+ { 0.17380260984469353, -0.59999999999999998, 0.59999999999999998,
+ 0.17453292519943295 },
+ { 0.34353585361777839, -0.59999999999999998, 0.59999999999999998,
+ 0.34906585039886590 },
+ { 0.50646805774321380, -0.59999999999999998, 0.59999999999999998,
+ 0.52359877559829882 },
+ { 0.66174468108625506, -0.59999999999999998, 0.59999999999999998,
+ 0.69813170079773179 },
+ { 0.81007462280278408, -0.59999999999999998, 0.59999999999999998,
+ 0.87266462599716477 },
+ { 0.95303466945718729, -0.59999999999999998, 0.59999999999999998,
+ 1.0471975511965976 },
+ { 1.0924118588677505, -0.59999999999999998, 0.59999999999999998,
+ 1.2217304763960306 },
+ { 1.2297640574847937, -0.59999999999999998, 0.59999999999999998,
+ 1.3962634015954636 },
+ { 1.3662507535812816, -0.59999999999999998, 0.59999999999999998,
+ 1.5707963267948966 },
+};
+const double toler037 = 2.5000000000000020e-13;
+
+// Test data for k=-0.59999999999999998, nu=0.69999999999999996.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.3559889697529752e-16
+const testcase_ellint_3<double>
+data038[10] =
+{
+ { 0.0000000000000000, -0.59999999999999998, 0.69999999999999996,
+ 0.0000000000000000 },
+ { 0.17362996946312007, -0.59999999999999998, 0.69999999999999996,
+ 0.17453292519943295 },
+ { 0.34225353454870588, -0.59999999999999998, 0.69999999999999996,
+ 0.34906585039886590 },
+ { 0.50259656397799524, -0.59999999999999998, 0.69999999999999996,
+ 0.52359877559829882 },
+ { 0.65373184496628933, -0.59999999999999998, 0.69999999999999996,
+ 0.69813170079773179 },
+ { 0.79658372884056439, -0.59999999999999998, 0.69999999999999996,
+ 0.87266462599716477 },
+ { 0.93303240100245421, -0.59999999999999998, 0.69999999999999996,
+ 1.0471975511965976 },
+ { 1.0651547944716557, -0.59999999999999998, 0.69999999999999996,
+ 1.2217304763960306 },
+ { 1.1947676204853441, -0.59999999999999998, 0.69999999999999996,
+ 1.3962634015954636 },
+ { 1.3232737468822813, -0.59999999999999998, 0.69999999999999996,
+ 1.5707963267948966 },
+};
+const double toler038 = 2.5000000000000020e-13;
+
+// Test data for k=-0.59999999999999998, nu=0.80000000000000004.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 5.1879494682720725e-16
+const testcase_ellint_3<double>
+data039[10] =
+{
+ { 0.0000000000000000, -0.59999999999999998, 0.80000000000000004,
+ 0.0000000000000000 },
+ { 0.17345794195390685, -0.59999999999999998, 0.80000000000000004,
+ 0.17453292519943295 },
+ { 0.34098797854531027, -0.59999999999999998, 0.80000000000000004,
+ 0.34906585039886590 },
+ { 0.49882569168826213, -0.59999999999999998, 0.80000000000000004,
+ 0.52359877559829882 },
+ { 0.64603758566475511, -0.59999999999999998, 0.80000000000000004,
+ 0.69813170079773179 },
+ { 0.78380365594769730, -0.59999999999999998, 0.80000000000000004,
+ 0.87266462599716477 },
+ { 0.91430946255611190, -0.59999999999999998, 0.80000000000000004,
+ 1.0471975511965976 },
+ { 1.0398955217270607, -0.59999999999999998, 0.80000000000000004,
+ 1.2217304763960306 },
+ { 1.1625948314277679, -0.59999999999999998, 0.80000000000000004,
+ 1.3962634015954636 },
+ { 1.2840021261752192, -0.59999999999999998, 0.80000000000000004,
+ 1.5707963267948966 },
+};
+const double toler039 = 2.5000000000000020e-13;
+
+// Test data for k=-0.59999999999999998, nu=0.90000000000000002.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 3.4768329326726447e-16
+const testcase_ellint_3<double>
+data040[10] =
+{
+ { 0.0000000000000000, -0.59999999999999998, 0.90000000000000002,
+ 0.0000000000000000 },
+ { 0.17328652344890030, -0.59999999999999998, 0.90000000000000002,
+ 0.17453292519943295 },
+ { 0.33973880062929018, -0.59999999999999998, 0.90000000000000002,
+ 0.34906585039886590 },
+ { 0.49515092233122743, -0.59999999999999998, 0.90000000000000002,
+ 0.52359877559829882 },
+ { 0.63864042139737043, -0.59999999999999998, 0.90000000000000002,
+ 0.69813170079773179 },
+ { 0.77167205646538850, -0.59999999999999998, 0.90000000000000002,
+ 0.87266462599716477 },
+ { 0.89673202848034383, -0.59999999999999998, 0.90000000000000002,
+ 1.0471975511965976 },
+ { 1.0163984492661304, -0.59999999999999998, 0.90000000000000002,
+ 1.2217304763960306 },
+ { 1.1328845785162431, -0.59999999999999998, 0.90000000000000002,
+ 1.3962634015954636 },
+ { 1.2479362973851875, -0.59999999999999998, 0.90000000000000002,
+ 1.5707963267948966 },
+};
+const double toler040 = 2.5000000000000020e-13;
+
+// Test data for k=-0.50000000000000000, nu=0.0000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 3.1201497220602069e-16
+const testcase_ellint_3<double>
+data041[10] =
+{
+ { 0.0000000000000000, -0.50000000000000000, 0.0000000000000000,
+ 0.0000000000000000 },
+ { 0.17475385514035785, -0.50000000000000000, 0.0000000000000000,
+ 0.17453292519943295 },
+ { 0.35081868470101585, -0.50000000000000000, 0.0000000000000000,
+ 0.34906585039886590 },
+ { 0.52942862705190574, -0.50000000000000000, 0.0000000000000000,
+ 0.52359877559829882 },
+ { 0.71164727562630314, -0.50000000000000000, 0.0000000000000000,
+ 0.69813170079773179 },
+ { 0.89824523594227768, -0.50000000000000000, 0.0000000000000000,
+ 0.87266462599716477 },
+ { 1.0895506700518851, -0.50000000000000000, 0.0000000000000000,
+ 1.0471975511965976 },
+ { 1.2853005857432931, -0.50000000000000000, 0.0000000000000000,
+ 1.2217304763960306 },
+ { 1.4845545520549484, -0.50000000000000000, 0.0000000000000000,
+ 1.3962634015954636 },
+ { 1.6857503548125963, -0.50000000000000000, 0.0000000000000000,
+ 1.5707963267948966 },
+};
+const double toler041 = 2.5000000000000020e-13;
+
+// Test data for k=-0.50000000000000000, nu=0.10000000000000001.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 3.1662857256911530e-16
+const testcase_ellint_3<double>
+data042[10] =
+{
+ { 0.0000000000000000, -0.50000000000000000, 0.10000000000000001,
+ 0.0000000000000000 },
+ { 0.17457763120814676, -0.50000000000000000, 0.10000000000000001,
+ 0.17453292519943295 },
+ { 0.34943246340849154, -0.50000000000000000, 0.10000000000000001,
+ 0.34906585039886590 },
+ { 0.52487937869610790, -0.50000000000000000, 0.10000000000000001,
+ 0.52359877559829882 },
+ { 0.70127785096388384, -0.50000000000000000, 0.10000000000000001,
+ 0.69813170079773179 },
+ { 0.87898815988624479, -0.50000000000000000, 0.10000000000000001,
+ 0.87266462599716477 },
+ { 1.0582764576094172, -0.50000000000000000, 0.10000000000000001,
+ 1.0471975511965976 },
+ { 1.2391936844060205, -0.50000000000000000, 0.10000000000000001,
+ 1.2217304763960306 },
+ { 1.4214793542995841, -0.50000000000000000, 0.10000000000000001,
+ 1.3962634015954636 },
+ { 1.6045524936084892, -0.50000000000000000, 0.10000000000000001,
+ 1.5707963267948966 },
+};
+const double toler042 = 2.5000000000000020e-13;
+
+// Test data for k=-0.50000000000000000, nu=0.20000000000000001.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 3.2114786773102175e-16
+const testcase_ellint_3<double>
+data043[10] =
+{
+ { 0.0000000000000000, -0.50000000000000000, 0.20000000000000001,
+ 0.0000000000000000 },
+ { 0.17440204336345433, -0.50000000000000000, 0.20000000000000001,
+ 0.17453292519943295 },
+ { 0.34806552388338824, -0.50000000000000000, 0.20000000000000001,
+ 0.34906585039886590 },
+ { 0.52046416757129810, -0.50000000000000000, 0.20000000000000001,
+ 0.52359877559829882 },
+ { 0.69140924550993865, -0.50000000000000000, 0.20000000000000001,
+ 0.69813170079773179 },
+ { 0.86104678636125520, -0.50000000000000000, 0.20000000000000001,
+ 0.87266462599716477 },
+ { 1.0297439459053981, -0.50000000000000000, 0.20000000000000001,
+ 1.0471975511965976 },
+ { 1.1979214112912033, -0.50000000000000000, 0.20000000000000001,
+ 1.2217304763960306 },
+ { 1.3659033858648930, -0.50000000000000000, 0.20000000000000001,
+ 1.3962634015954636 },
+ { 1.5338490483665983, -0.50000000000000000, 0.20000000000000001,
+ 1.5707963267948966 },
+};
+const double toler043 = 2.5000000000000020e-13;
+
+// Test data for k=-0.50000000000000000, nu=0.29999999999999999.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 3.2557837230041312e-16
+const testcase_ellint_3<double>
+data044[10] =
+{
+ { 0.0000000000000000, -0.50000000000000000, 0.29999999999999999,
+ 0.0000000000000000 },
+ { 0.17422708752228896, -0.50000000000000000, 0.29999999999999999,
+ 0.17453292519943295 },
+ { 0.34671739434855858, -0.50000000000000000, 0.29999999999999999,
+ 0.34906585039886590 },
+ { 0.51617616305641878, -0.50000000000000000, 0.29999999999999999,
+ 0.52359877559829882 },
+ { 0.68200047612545167, -0.50000000000000000, 0.29999999999999999,
+ 0.69813170079773179 },
+ { 0.84427217869498372, -0.50000000000000000, 0.29999999999999999,
+ 0.87266462599716477 },
+ { 1.0035637821389782, -0.50000000000000000, 0.29999999999999999,
+ 1.0471975511965976 },
+ { 1.1606800483933111, -0.50000000000000000, 0.29999999999999999,
+ 1.2217304763960306 },
+ { 1.3164407134643459, -0.50000000000000000, 0.29999999999999999,
+ 1.3962634015954636 },
+ { 1.4715681939859637, -0.50000000000000000, 0.29999999999999999,
+ 1.5707963267948966 },
+};
+const double toler044 = 2.5000000000000020e-13;
+
+// Test data for k=-0.50000000000000000, nu=0.40000000000000002.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 3.2992508582900068e-16
+const testcase_ellint_3<double>
+data045[10] =
+{
+ { 0.0000000000000000, -0.50000000000000000, 0.40000000000000002,
+ 0.0000000000000000 },
+ { 0.17405275963859917, -0.50000000000000000, 0.40000000000000002,
+ 0.17453292519943295 },
+ { 0.34538761957029329, -0.50000000000000000, 0.40000000000000002,
+ 0.34906585039886590 },
+ { 0.51200902646603907, -0.50000000000000000, 0.40000000000000002,
+ 0.52359877559829882 },
+ { 0.67301522212868792, -0.50000000000000000, 0.40000000000000002,
+ 0.69813170079773179 },
+ { 0.82853844466313320, -0.50000000000000000, 0.40000000000000002,
+ 0.87266462599716477 },
+ { 0.97942097862681488, -0.50000000000000000, 0.40000000000000002,
+ 1.0471975511965976 },
+ { 1.1268429801220614, -0.50000000000000000, 0.40000000000000002,
+ 1.2217304763960306 },
+ { 1.2720406704533922, -0.50000000000000000, 0.40000000000000002,
+ 1.3962634015954636 },
+ { 1.4161679518465340, -0.50000000000000000, 0.40000000000000002,
+ 1.5707963267948966 },
+};
+const double toler045 = 2.5000000000000020e-13;
+
+// Test data for k=-0.50000000000000000, nu=0.50000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 3.3419255755184137e-16
+const testcase_ellint_3<double>
+data046[10] =
+{
+ { 0.0000000000000000, -0.50000000000000000, 0.50000000000000000,
+ 0.0000000000000000 },
+ { 0.17387905570381157, -0.50000000000000000, 0.50000000000000000,
+ 0.17453292519943295 },
+ { 0.34407576010465207, -0.50000000000000000, 0.50000000000000000,
+ 0.34906585039886590 },
+ { 0.50795686560160824, -0.50000000000000000, 0.50000000000000000,
+ 0.52359877559829882 },
+ { 0.66442115453330164, -0.50000000000000000, 0.50000000000000000,
+ 0.69813170079773179 },
+ { 0.81373829119355345, -0.50000000000000000, 0.50000000000000000,
+ 0.87266462599716477 },
+ { 0.95705743313235825, -0.50000000000000000, 0.50000000000000000,
+ 1.0471975511965976 },
+ { 1.0959131991362554, -0.50000000000000000, 0.50000000000000000,
+ 1.2217304763960306 },
+ { 1.2318900529754597, -0.50000000000000000, 0.50000000000000000,
+ 1.3962634015954636 },
+ { 1.3664739530045971, -0.50000000000000000, 0.50000000000000000,
+ 1.5707963267948966 },
+};
+const double toler046 = 2.5000000000000020e-13;
+
+// Test data for k=-0.50000000000000000, nu=0.59999999999999998.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 3.3838494104749599e-16
+const testcase_ellint_3<double>
+data047[10] =
+{
+ { 0.0000000000000000, -0.50000000000000000, 0.59999999999999998,
+ 0.0000000000000000 },
+ { 0.17370597174637581, -0.50000000000000000, 0.59999999999999998,
+ 0.17453292519943295 },
+ { 0.34278139158591414, -0.50000000000000000, 0.59999999999999998,
+ 0.34906585039886590 },
+ { 0.50401419439302708, -0.50000000000000000, 0.59999999999999998,
+ 0.52359877559829882 },
+ { 0.65618938076167210, -0.50000000000000000, 0.59999999999999998,
+ 0.69813170079773179 },
+ { 0.79977959248855424, -0.50000000000000000, 0.59999999999999998,
+ 0.87266462599716477 },
+ { 0.93625925190753545, -0.50000000000000000, 0.59999999999999998,
+ 1.0471975511965976 },
+ { 1.0674905658379708, -0.50000000000000000, 0.59999999999999998,
+ 1.2217304763960306 },
+ { 1.1953481298023050, -0.50000000000000000, 0.59999999999999998,
+ 1.3962634015954636 },
+ { 1.3215740290190876, -0.50000000000000000, 0.59999999999999998,
+ 1.5707963267948966 },
+};
+const double toler047 = 2.5000000000000020e-13;
+
+// Test data for k=-0.50000000000000000, nu=0.69999999999999996.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 3.4250604066951477e-16
+const testcase_ellint_3<double>
+data048[10] =
+{
+ { 0.0000000000000000, -0.50000000000000000, 0.69999999999999996,
+ 0.0000000000000000 },
+ { 0.17353350383131641, -0.50000000000000000, 0.69999999999999996,
+ 0.17453292519943295 },
+ { 0.34150410405436771, -0.50000000000000000, 0.69999999999999996,
+ 0.34906585039886590 },
+ { 0.50017589696443487, -0.50000000000000000, 0.69999999999999996,
+ 0.52359877559829882 },
+ { 0.64829398188419951, -0.50000000000000000, 0.69999999999999996,
+ 0.69813170079773179 },
+ { 0.78658270782402073, -0.50000000000000000, 0.69999999999999996,
+ 0.87266462599716477 },
+ { 0.91684738336675053, -0.50000000000000000, 0.69999999999999996,
+ 1.0471975511965976 },
+ { 1.0412486789555935, -0.50000000000000000, 0.69999999999999996,
+ 1.2217304763960306 },
+ { 1.1619021847612001, -0.50000000000000000, 0.69999999999999996,
+ 1.3962634015954636 },
+ { 1.2807475181182502, -0.50000000000000000, 0.69999999999999996,
+ 1.5707963267948966 },
+};
+const double toler048 = 2.5000000000000020e-13;
+
+// Test data for k=-0.50000000000000000, nu=0.80000000000000004.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.5715240651179632e-16
+const testcase_ellint_3<double>
+data049[10] =
+{
+ { 0.0000000000000000, -0.50000000000000000, 0.80000000000000004,
+ 0.0000000000000000 },
+ { 0.17336164805979126, -0.50000000000000000, 0.80000000000000004,
+ 0.17453292519943295 },
+ { 0.34024350132086773, -0.50000000000000000, 0.80000000000000004,
+ 0.34906585039886590 },
+ { 0.49643719555734073, -0.50000000000000000, 0.80000000000000004,
+ 0.52359877559829882 },
+ { 0.64071162456976150, -0.50000000000000000, 0.80000000000000004,
+ 0.69813170079773179 },
+ { 0.77407836177211908, -0.50000000000000000, 0.80000000000000004,
+ 0.87266462599716477 },
+ { 0.89867058251905652, -0.50000000000000000, 0.80000000000000004,
+ 1.0471975511965976 },
+ { 1.0169181822134910, -0.50000000000000000, 0.80000000000000004,
+ 1.2217304763960306 },
+ { 1.1311363312779448, -0.50000000000000000, 0.80000000000000004,
+ 1.3962634015954636 },
+ { 1.2434165408189539, -0.50000000000000000, 0.80000000000000004,
+ 1.5707963267948966 },
+};
+const double toler049 = 2.5000000000000020e-13;
+
+// Test data for k=-0.50000000000000000, nu=0.90000000000000002.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.4664649039489274e-16
+const testcase_ellint_3<double>
+data050[10] =
+{
+ { 0.0000000000000000, -0.50000000000000000, 0.90000000000000002,
+ 0.0000000000000000 },
+ { 0.17319040056865681, -0.50000000000000000, 0.90000000000000002,
+ 0.17453292519943295 },
+ { 0.33899920036578557, -0.50000000000000000, 0.90000000000000002,
+ 0.34906585039886590 },
+ { 0.49279362182695174, -0.50000000000000000, 0.90000000000000002,
+ 0.52359877559829882 },
+ { 0.63342123379746151, -0.50000000000000000, 0.90000000000000002,
+ 0.69813170079773179 },
+ { 0.76220595179550321, -0.50000000000000000, 0.90000000000000002,
+ 0.87266462599716477 },
+ { 0.88160004743532294, -0.50000000000000000, 0.90000000000000002,
+ 1.0471975511965976 },
+ { 0.99427448642310123, -0.50000000000000000, 0.90000000000000002,
+ 1.2217304763960306 },
+ { 1.1027091512470095, -0.50000000000000000, 0.90000000000000002,
+ 1.3962634015954636 },
+ { 1.2091116095504744, -0.50000000000000000, 0.90000000000000002,
+ 1.5707963267948966 },
+};
+const double toler050 = 2.5000000000000020e-13;
+
+// Test data for k=-0.40000000000000002, nu=0.0000000000000000.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 4.0617918857203532e-16
+const testcase_ellint_3<double>
+data051[10] =
+{
+ { 0.0000000000000000, -0.40000000000000002, 0.0000000000000000,
+ 0.0000000000000000 },
+ { 0.17467414669441528, -0.40000000000000002, 0.0000000000000000,
+ 0.17453292519943295 },
+ { 0.35018222772483443, -0.40000000000000002, 0.0000000000000000,
+ 0.34906585039886590 },
+ { 0.52729015917508737, -0.40000000000000002, 0.0000000000000000,
+ 0.52359877559829882 },
+ { 0.70662374407341244, -0.40000000000000002, 0.0000000000000000,
+ 0.69813170079773179 },
+ { 0.88859210497602170, -0.40000000000000002, 0.0000000000000000,
+ 0.87266462599716477 },
+ { 1.0733136290471379, -0.40000000000000002, 0.0000000000000000,
+ 1.0471975511965976 },
+ { 1.2605612170157061, -0.40000000000000002, 0.0000000000000000,
+ 1.2217304763960306 },
+ { 1.4497513956433439, -0.40000000000000002, 0.0000000000000000,
+ 1.3962634015954636 },
+ { 1.6399998658645112, -0.40000000000000002, 0.0000000000000000,
+ 1.5707963267948966 },
+};
+const double toler051 = 2.5000000000000020e-13;
+
+// Test data for k=-0.40000000000000002, nu=0.10000000000000001.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 4.2644663257577874e-16
+const testcase_ellint_3<double>
+data052[10] =
+{
+ { 0.0000000000000000, -0.40000000000000002, 0.10000000000000001,
+ 0.0000000000000000 },
+ { 0.17449806706684670, -0.40000000000000002, 0.10000000000000001,
+ 0.17453292519943295 },
+ { 0.34880048623856075, -0.40000000000000002, 0.10000000000000001,
+ 0.34906585039886590 },
+ { 0.52277322065757392, -0.40000000000000002, 0.10000000000000001,
+ 0.52359877559829882 },
+ { 0.69638072056918365, -0.40000000000000002, 0.10000000000000001,
+ 0.69813170079773179 },
+ { 0.86968426619831540, -0.40000000000000002, 0.10000000000000001,
+ 0.87266462599716477 },
+ { 1.0428044206578095, -0.40000000000000002, 0.10000000000000001,
+ 1.0471975511965976 },
+ { 1.2158651158274378, -0.40000000000000002, 0.10000000000000001,
+ 1.2217304763960306 },
+ { 1.3889447129893324, -0.40000000000000002, 0.10000000000000001,
+ 1.3962634015954636 },
+ { 1.5620566886683604, -0.40000000000000002, 0.10000000000000001,
+ 1.5707963267948966 },
+};
+const double toler052 = 2.5000000000000020e-13;
+
+// Test data for k=-0.40000000000000002, nu=0.20000000000000001.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 4.4583049464169287e-16
+const testcase_ellint_3<double>
+data053[10] =
+{
+ { 0.0000000000000000, -0.40000000000000002, 0.20000000000000001,
+ 0.0000000000000000 },
+ { 0.17432262290723397, -0.40000000000000002, 0.20000000000000001,
+ 0.17453292519943295 },
+ { 0.34743795258968596, -0.40000000000000002, 0.20000000000000001,
+ 0.34906585039886590 },
+ { 0.51838919472805101, -0.40000000000000002, 0.20000000000000001,
+ 0.52359877559829882 },
+ { 0.68663134739057907, -0.40000000000000002, 0.20000000000000001,
+ 0.69813170079773179 },
+ { 0.85206432981833979, -0.40000000000000002, 0.20000000000000001,
+ 0.87266462599716477 },
+ { 1.0149595349004430, -0.40000000000000002, 0.20000000000000001,
+ 1.0471975511965976 },
+ { 1.1758349405464676, -0.40000000000000002, 0.20000000000000001,
+ 1.2217304763960306 },
+ { 1.3353337673882637, -0.40000000000000002, 0.20000000000000001,
+ 1.3962634015954636 },
+ { 1.4941414344266770, -0.40000000000000002, 0.20000000000000001,
+ 1.5707963267948966 },
+};
+const double toler053 = 2.5000000000000020e-13;
+
+// Test data for k=-0.40000000000000002, nu=0.29999999999999999.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 6.1925080711125793e-16
+const testcase_ellint_3<double>
+data054[10] =
+{
+ { 0.0000000000000000, -0.40000000000000002, 0.29999999999999999,
+ 0.0000000000000000 },
+ { 0.17414781013591540, -0.40000000000000002, 0.29999999999999999,
+ 0.17453292519943295 },
+ { 0.34609415696777285, -0.40000000000000002, 0.29999999999999999,
+ 0.34906585039886590 },
+ { 0.51413131295862535, -0.40000000000000002, 0.29999999999999999,
+ 0.52359877559829882 },
+ { 0.67733527622935630, -0.40000000000000002, 0.29999999999999999,
+ 0.69813170079773179 },
+ { 0.83558675182733266, -0.40000000000000002, 0.29999999999999999,
+ 0.87266462599716477 },
+ { 0.98940140808865906, -0.40000000000000002, 0.29999999999999999,
+ 1.0471975511965976 },
+ { 1.1396968797728058, -0.40000000000000002, 0.29999999999999999,
+ 1.2217304763960306 },
+ { 1.2875920037865090, -0.40000000000000002, 0.29999999999999999,
+ 1.3962634015954636 },
+ { 1.4342789859950078, -0.40000000000000002, 0.29999999999999999,
+ 1.5707963267948966 },
+};
+const double toler054 = 2.5000000000000020e-13;
+
+// Test data for k=-0.40000000000000002, nu=0.40000000000000002.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 4.8235661108581362e-16
+const testcase_ellint_3<double>
+data055[10] =
+{
+ { 0.0000000000000000, -0.40000000000000002, 0.40000000000000002,
+ 0.0000000000000000 },
+ { 0.17397362471112707, -0.40000000000000002, 0.40000000000000002,
+ 0.17453292519943295 },
+ { 0.34476864603333196, -0.40000000000000002, 0.40000000000000002,
+ 0.34906585039886590 },
+ { 0.50999329415379346, -0.40000000000000002, 0.40000000000000002,
+ 0.52359877559829882 },
+ { 0.66845674551396006, -0.40000000000000002, 0.40000000000000002,
+ 0.69813170079773179 },
+ { 0.82012848346231748, -0.40000000000000002, 0.40000000000000002,
+ 0.87266462599716477 },
+ { 0.96582449258349057, -0.40000000000000002, 0.40000000000000002,
+ 1.0471975511965976 },
+ { 1.1068473749476286, -0.40000000000000002, 0.40000000000000002,
+ 1.2217304763960306 },
+ { 1.2447132729159989, -0.40000000000000002, 0.40000000000000002,
+ 1.3962634015954636 },
+ { 1.3809986210732901, -0.40000000000000002, 0.40000000000000002,
+ 1.5707963267948966 },
+};
+const double toler055 = 2.5000000000000020e-13;
+
+// Test data for k=-0.40000000000000002, nu=0.50000000000000000.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 4.9965792755639576e-16
+const testcase_ellint_3<double>
+data056[10] =
+{
+ { 0.0000000000000000, -0.40000000000000002, 0.50000000000000000,
+ 0.0000000000000000 },
+ { 0.17380006262854136, -0.40000000000000002, 0.50000000000000000,
+ 0.17453292519943295 },
+ { 0.34346098216756610, -0.40000000000000002, 0.50000000000000000,
+ 0.34906585039886590 },
+ { 0.50596929935059420, -0.40000000000000002, 0.50000000000000000,
+ 0.52359877559829882 },
+ { 0.65996392089131251, -0.40000000000000002, 0.50000000000000000,
+ 0.69813170079773179 },
+ { 0.80558463511364786, -0.40000000000000002, 0.50000000000000000,
+ 0.87266462599716477 },
+ { 0.94397834522857704, -0.40000000000000002, 0.50000000000000000,
+ 1.0471975511965976 },
+ { 1.0768075114108115, -0.40000000000000002, 0.50000000000000000,
+ 1.2217304763960306 },
+ { 1.2059184624251333, -0.40000000000000002, 0.50000000000000000,
+ 1.3962634015954636 },
+ { 1.3331797176377398, -0.40000000000000002, 0.50000000000000000,
+ 1.5707963267948966 },
+};
+const double toler056 = 2.5000000000000020e-13;
+
+// Test data for k=-0.40000000000000002, nu=0.59999999999999998.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 5.1640223038298069e-16
+const testcase_ellint_3<double>
+data057[10] =
+{
+ { 0.0000000000000000, -0.40000000000000002, 0.59999999999999998,
+ 0.0000000000000000 },
+ { 0.17362711992081245, -0.40000000000000002, 0.59999999999999998,
+ 0.17453292519943295 },
+ { 0.34217074276403953, -0.40000000000000002, 0.59999999999999998,
+ 0.34906585039886590 },
+ { 0.50205389185761606, -0.40000000000000002, 0.59999999999999998,
+ 0.52359877559829882 },
+ { 0.65182834920372734, -0.40000000000000002, 0.59999999999999998,
+ 0.69813170079773179 },
+ { 0.79186512820565136, -0.40000000000000002, 0.59999999999999998,
+ 0.87266462599716477 },
+ { 0.92365535916287134, -0.40000000000000002, 0.59999999999999998,
+ 1.0471975511965976 },
+ { 1.0491915663957907, -0.40000000000000002, 0.59999999999999998,
+ 1.2217304763960306 },
+ { 1.1705934291745106, -0.40000000000000002, 0.59999999999999998,
+ 1.3962634015954636 },
+ { 1.2899514672527024, -0.40000000000000002, 0.59999999999999998,
+ 1.5707963267948966 },
+};
+const double toler057 = 2.5000000000000020e-13;
+
+// Test data for k=-0.40000000000000002, nu=0.69999999999999996.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 5.3264047918332349e-16
+const testcase_ellint_3<double>
+data058[10] =
+{
+ { 0.0000000000000000, -0.40000000000000002, 0.69999999999999996,
+ 0.0000000000000000 },
+ { 0.17345479265712868, -0.40000000000000002, 0.69999999999999996,
+ 0.17453292519943295 },
+ { 0.34089751955950354, -0.40000000000000002, 0.69999999999999996,
+ 0.34906585039886590 },
+ { 0.49824200167361332, -0.40000000000000002, 0.69999999999999996,
+ 0.52359877559829882 },
+ { 0.64402450341199402, -0.40000000000000002, 0.69999999999999996,
+ 0.69813170079773179 },
+ { 0.77889207804122873, -0.40000000000000002, 0.69999999999999996,
+ 0.87266462599716477 },
+ { 0.90468169720957992, -0.40000000000000002, 0.69999999999999996,
+ 1.0471975511965976 },
+ { 1.0236847823692916, -0.40000000000000002, 0.69999999999999996,
+ 1.2217304763960306 },
+ { 1.1382465247425166, -0.40000000000000002, 0.69999999999999996,
+ 1.3962634015954636 },
+ { 1.2506255923253344, -0.40000000000000002, 0.69999999999999996,
+ 1.5707963267948966 },
+};
+const double toler058 = 2.5000000000000020e-13;
+
+// Test data for k=-0.40000000000000002, nu=0.80000000000000004.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 6.6611561645571024e-16
+const testcase_ellint_3<double>
+data059[10] =
+{
+ { 0.0000000000000000, -0.40000000000000002, 0.80000000000000004,
+ 0.0000000000000000 },
+ { 0.17328307694277154, -0.40000000000000002, 0.80000000000000004,
+ 0.17453292519943295 },
+ { 0.33964091800132007, -0.40000000000000002, 0.80000000000000004,
+ 0.34906585039886590 },
+ { 0.49452889372467440, -0.40000000000000002, 0.80000000000000004,
+ 0.52359877559829882 },
+ { 0.63652940095937316, -0.40000000000000002, 0.80000000000000004,
+ 0.69813170079773179 },
+ { 0.76659772511159097, -0.40000000000000002, 0.80000000000000004,
+ 0.87266462599716477 },
+ { 0.88691047977338111, -0.40000000000000002, 0.80000000000000004,
+ 1.0471975511965976 },
+ { 1.0000273200611638, -0.40000000000000002, 0.80000000000000004,
+ 1.2217304763960306 },
+ { 1.1084787902188009, -0.40000000000000002, 0.80000000000000004,
+ 1.3962634015954636 },
+ { 1.2146499565727209, -0.40000000000000002, 0.80000000000000004,
+ 1.5707963267948966 },
+};
+const double toler059 = 2.5000000000000020e-13;
+
+// Test data for k=-0.40000000000000002, nu=0.90000000000000002.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 5.6376730823308004e-16
+const testcase_ellint_3<double>
+data060[10] =
+{
+ { 0.0000000000000000, -0.40000000000000002, 0.90000000000000002,
+ 0.0000000000000000 },
+ { 0.17311196891868127, -0.40000000000000002, 0.90000000000000002,
+ 0.17453292519943295 },
+ { 0.33840055664911906, -0.40000000000000002, 0.90000000000000002,
+ 0.34906585039886590 },
+ { 0.49091013944075329, -0.40000000000000002, 0.90000000000000002,
+ 0.52359877559829882 },
+ { 0.62932228186809580, -0.40000000000000002, 0.90000000000000002,
+ 0.69813170079773179 },
+ { 0.75492278323019801, -0.40000000000000002, 0.90000000000000002,
+ 0.87266462599716477 },
+ { 0.87021659043854294, -0.40000000000000002, 0.90000000000000002,
+ 1.0471975511965976 },
+ { 0.97800245228239246, -0.40000000000000002, 0.90000000000000002,
+ 1.2217304763960306 },
+ { 1.0809625773173697, -0.40000000000000002, 0.90000000000000002,
+ 1.3962634015954636 },
+ { 1.1815758115929846, -0.40000000000000002, 0.90000000000000002,
+ 1.5707963267948966 },
+};
+const double toler060 = 2.5000000000000020e-13;
+
+// Test data for k=-0.30000000000000004, nu=0.0000000000000000.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 6.3361874537309281e-16
+const testcase_ellint_3<double>
+data061[10] =
+{
+ { 0.0000000000000000, -0.30000000000000004, 0.0000000000000000,
+ 0.0000000000000000 },
+ { 0.17461228653000099, -0.30000000000000004, 0.0000000000000000,
+ 0.17453292519943295 },
+ { 0.34969146102798415, -0.30000000000000004, 0.0000000000000000,
+ 0.34906585039886590 },
+ { 0.52565822873726320, -0.30000000000000004, 0.0000000000000000,
+ 0.52359877559829882 },
+ { 0.70284226512408532, -0.30000000000000004, 0.0000000000000000,
+ 0.69813170079773179 },
+ { 0.88144139195111182, -0.30000000000000004, 0.0000000000000000,
+ 0.87266462599716477 },
+ { 1.0614897067260520, -0.30000000000000004, 0.0000000000000000,
+ 1.0471975511965976 },
+ { 1.2428416824174218, -0.30000000000000004, 0.0000000000000000,
+ 1.2217304763960306 },
+ { 1.4251795877015927, -0.30000000000000004, 0.0000000000000000,
+ 1.3962634015954636 },
+ { 1.6080486199305128, -0.30000000000000004, 0.0000000000000000,
+ 1.5707963267948966 },
+};
+const double toler061 = 2.5000000000000020e-13;
+
+// Test data for k=-0.30000000000000004, nu=0.10000000000000001.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 6.3908043711907203e-16
+const testcase_ellint_3<double>
+data062[10] =
+{
+ { 0.0000000000000000, -0.30000000000000004, 0.10000000000000001,
+ 0.0000000000000000 },
+ { 0.17443631884814376, -0.30000000000000004, 0.10000000000000001,
+ 0.17453292519943295 },
+ { 0.34831316835124926, -0.30000000000000004, 0.10000000000000001,
+ 0.34906585039886590 },
+ { 0.52116586276523857, -0.30000000000000004, 0.10000000000000001,
+ 0.52359877559829882 },
+ { 0.69269385837910036, -0.30000000000000004, 0.10000000000000001,
+ 0.69813170079773179 },
+ { 0.86279023163070856, -0.30000000000000004, 0.10000000000000001,
+ 0.87266462599716477 },
+ { 1.0315321461438263, -0.30000000000000004, 0.10000000000000001,
+ 1.0471975511965976 },
+ { 1.1991449111869024, -0.30000000000000004, 0.10000000000000001,
+ 1.2217304763960306 },
+ { 1.3659561780923213, -0.30000000000000004, 0.10000000000000001,
+ 1.3962634015954636 },
+ { 1.5323534693557528, -0.30000000000000004, 0.10000000000000001,
+ 1.5707963267948966 },
+};
+const double toler062 = 2.5000000000000020e-13;
+
+// Test data for k=-0.30000000000000004, nu=0.20000000000000001.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 6.4447238179454079e-16
+const testcase_ellint_3<double>
+data063[10] =
+{
+ { 0.0000000000000000, -0.30000000000000004, 0.20000000000000001,
+ 0.0000000000000000 },
+ { 0.17426098615372088, -0.30000000000000004, 0.20000000000000001,
+ 0.17453292519943295 },
+ { 0.34695402664689923, -0.30000000000000004, 0.20000000000000001,
+ 0.34906585039886590 },
+ { 0.51680555567038933, -0.30000000000000004, 0.20000000000000001,
+ 0.52359877559829882 },
+ { 0.68303375225260210, -0.30000000000000004, 0.20000000000000001,
+ 0.69813170079773179 },
+ { 0.84540662891295026, -0.30000000000000004, 0.20000000000000001,
+ 0.87266462599716477 },
+ { 1.0041834051646927, -0.30000000000000004, 0.20000000000000001,
+ 1.0471975511965976 },
+ { 1.1599952702345711, -0.30000000000000004, 0.20000000000000001,
+ 1.2217304763960306 },
+ { 1.3137179520499165, -0.30000000000000004, 0.20000000000000001,
+ 1.3962634015954636 },
+ { 1.4663658145259877, -0.30000000000000004, 0.20000000000000001,
+ 1.5707963267948966 },
+};
+const double toler063 = 2.5000000000000020e-13;
+
+// Test data for k=-0.30000000000000004, nu=0.29999999999999999.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 6.4979715256503266e-16
+const testcase_ellint_3<double>
+data064[10] =
+{
+ { 0.0000000000000000, -0.30000000000000004, 0.29999999999999999,
+ 0.0000000000000000 },
+ { 0.17408628437042842, -0.30000000000000004, 0.29999999999999999,
+ 0.17453292519943295 },
+ { 0.34561356761638401, -0.30000000000000004, 0.29999999999999999,
+ 0.34906585039886590 },
+ { 0.51257058617875850, -0.30000000000000004, 0.29999999999999999,
+ 0.52359877559829882 },
+ { 0.67382207124602878, -0.30000000000000004, 0.29999999999999999,
+ 0.69813170079773179 },
+ { 0.82914751587825131, -0.30000000000000004, 0.29999999999999999,
+ 0.87266462599716477 },
+ { 0.97907434814374938, -0.30000000000000004, 0.29999999999999999,
+ 1.0471975511965976 },
+ { 1.1246399297351584, -0.30000000000000004, 0.29999999999999999,
+ 1.2217304763960306 },
+ { 1.2671793970398149, -0.30000000000000004, 0.29999999999999999,
+ 1.3962634015954636 },
+ { 1.4081767433479091, -0.30000000000000004, 0.29999999999999999,
+ 1.5707963267948966 },
+};
+const double toler064 = 2.5000000000000020e-13;
+
+// Test data for k=-0.30000000000000004, nu=0.40000000000000002.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 6.5505716921759864e-16
+const testcase_ellint_3<double>
+data065[10] =
+{
+ { 0.0000000000000000, -0.30000000000000004, 0.40000000000000002,
+ 0.0000000000000000 },
+ { 0.17391220945982727, -0.30000000000000004, 0.40000000000000002,
+ 0.17453292519943295 },
+ { 0.34429133937639689, -0.30000000000000004, 0.40000000000000002,
+ 0.34906585039886590 },
+ { 0.50845471668581632, -0.30000000000000004, 0.40000000000000002,
+ 0.52359877559829882 },
+ { 0.66502347027873854, -0.30000000000000004, 0.40000000000000002,
+ 0.69813170079773179 },
+ { 0.81389191978012254, -0.30000000000000004, 0.40000000000000002,
+ 0.87266462599716477 },
+ { 0.95590618002140570, -0.30000000000000004, 0.40000000000000002,
+ 1.0471975511965976 },
+ { 1.0924915195213121, -0.30000000000000004, 0.40000000000000002,
+ 1.2217304763960306 },
+ { 1.2253651604038061, -0.30000000000000004, 0.40000000000000002,
+ 1.3962634015954636 },
+ { 1.3563643538969763, -0.30000000000000004, 0.40000000000000002,
+ 1.5707963267948966 },
+};
+const double toler065 = 2.5000000000000020e-13;
+
+// Test data for k=-0.30000000000000004, nu=0.50000000000000000.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 6.7807908859023716e-16
+const testcase_ellint_3<double>
+data066[10] =
+{
+ { 0.0000000000000000, -0.30000000000000004, 0.50000000000000000,
+ 0.0000000000000000 },
+ { 0.17373875742088232, -0.30000000000000004, 0.50000000000000000,
+ 0.17453292519943295 },
+ { 0.34298690571124157, -0.30000000000000004, 0.50000000000000000,
+ 0.34906585039886590 },
+ { 0.50445214859646936, -0.30000000000000004, 0.50000000000000000,
+ 0.52359877559829882 },
+ { 0.65660648352418516, -0.30000000000000004, 0.50000000000000000,
+ 0.69813170079773179 },
+ { 0.79953670639287289, -0.30000000000000004, 0.50000000000000000,
+ 0.87266462599716477 },
+ { 0.93443393926588536, -0.30000000000000004, 0.50000000000000000,
+ 1.0471975511965976 },
+ { 1.0630838369016911, -0.30000000000000004, 0.50000000000000000,
+ 1.2217304763960306 },
+ { 1.1875197325653029, -0.30000000000000004, 0.50000000000000000,
+ 1.3962634015954636 },
+ { 1.3098448759814962, -0.30000000000000004, 0.50000000000000000,
+ 1.5707963267948966 },
+};
+const double toler066 = 2.5000000000000020e-13;
+
+// Test data for k=-0.30000000000000004, nu=0.59999999999999998.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 7.0057999499931649e-16
+const testcase_ellint_3<double>
+data067[10] =
+{
+ { 0.0000000000000000, -0.30000000000000004, 0.59999999999999998,
+ 0.0000000000000000 },
+ { 0.17356592428950823, -0.30000000000000004, 0.59999999999999998,
+ 0.17453292519943295 },
+ { 0.34169984536697379, -0.30000000000000004, 0.59999999999999998,
+ 0.34906585039886590 },
+ { 0.50055748266498457, -0.30000000000000004, 0.59999999999999998,
+ 0.52359877559829882 },
+ { 0.64854298527106768, -0.30000000000000004, 0.59999999999999998,
+ 0.69813170079773179 },
+ { 0.78599329284207431, -0.30000000000000004, 0.59999999999999998,
+ 0.87266462599716477 },
+ { 0.91445452089128199, -0.30000000000000004, 0.59999999999999998,
+ 1.0471975511965976 },
+ { 1.0360412952290587, -0.30000000000000004, 0.59999999999999998,
+ 1.2217304763960306 },
+ { 1.1530473919778641, -0.30000000000000004, 0.59999999999999998,
+ 1.3962634015954636 },
+ { 1.2677758800420669, -0.30000000000000004, 0.59999999999999998,
+ 1.5707963267948966 },
+};
+const double toler067 = 2.5000000000000020e-13;
+
+// Test data for k=-0.30000000000000004, nu=0.69999999999999996.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 7.2239502844122443e-16
+const testcase_ellint_3<double>
+data068[10] =
+{
+ { 0.0000000000000000, -0.30000000000000004, 0.69999999999999996,
+ 0.0000000000000000 },
+ { 0.17339370613812224, -0.30000000000000004, 0.69999999999999996,
+ 0.17453292519943295 },
+ { 0.34042975138455933, -0.30000000000000004, 0.69999999999999996,
+ 0.34906585039886590 },
+ { 0.49676568368075985, -0.30000000000000004, 0.69999999999999996,
+ 0.52359877559829882 },
+ { 0.64080774055753720, -0.30000000000000004, 0.69999999999999996,
+ 0.69813170079773179 },
+ { 0.77318507779667278, -0.30000000000000004, 0.69999999999999996,
+ 0.87266462599716477 },
+ { 0.89579782346548609, -0.30000000000000004, 0.69999999999999996,
+ 1.0471975511965976 },
+ { 1.0110573286052202, -0.30000000000000004, 0.69999999999999996,
+ 1.2217304763960306 },
+ { 1.1214710972949635, -0.30000000000000004, 0.69999999999999996,
+ 1.3962634015954636 },
+ { 1.2294913236274982, -0.30000000000000004, 0.69999999999999996,
+ 1.5707963267948966 },
+};
+const double toler068 = 2.5000000000000020e-13;
+
+// Test data for k=-0.30000000000000004, nu=0.80000000000000004.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 7.4358357000101250e-16
+const testcase_ellint_3<double>
+data069[10] =
+{
+ { 0.0000000000000000, -0.30000000000000004, 0.80000000000000004,
+ 0.0000000000000000 },
+ { 0.17322209907520358, -0.30000000000000004, 0.80000000000000004,
+ 0.17453292519943295 },
+ { 0.33917623046949996, -0.30000000000000004, 0.80000000000000004,
+ 0.34906585039886590 },
+ { 0.49307204894329176, -0.30000000000000004, 0.80000000000000004,
+ 0.52359877559829882 },
+ { 0.63337802830291734, -0.30000000000000004, 0.80000000000000004,
+ 0.69813170079773179 },
+ { 0.76104540997689407, -0.30000000000000004, 0.80000000000000004,
+ 0.87266462599716477 },
+ { 0.87832009635450714, -0.30000000000000004, 0.80000000000000004,
+ 1.0471975511965976 },
+ { 0.98787879723171790, -0.30000000000000004, 0.80000000000000004,
+ 1.2217304763960306 },
+ { 1.0924036340069339, -0.30000000000000004, 0.80000000000000004,
+ 1.3962634015954636 },
+ { 1.1944567571590048, -0.30000000000000004, 0.80000000000000004,
+ 1.5707963267948966 },
+};
+const double toler069 = 2.5000000000000020e-13;
+
+// Test data for k=-0.30000000000000004, nu=0.90000000000000002.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 7.6419688299804087e-16
+const testcase_ellint_3<double>
+data070[10] =
+{
+ { 0.0000000000000000, -0.30000000000000004, 0.90000000000000002,
+ 0.0000000000000000 },
+ { 0.17305109924485945, -0.30000000000000004, 0.90000000000000002,
+ 0.17453292519943295 },
+ { 0.33793890239556984, -0.30000000000000004, 0.90000000000000002,
+ 0.34906585039886590 },
+ { 0.48947218005089738, -0.30000000000000004, 0.90000000000000002,
+ 0.52359877559829882 },
+ { 0.62623332340775151, -0.30000000000000004, 0.90000000000000002,
+ 0.69813170079773179 },
+ { 0.74951596581511148, -0.30000000000000004, 0.90000000000000002,
+ 0.87266462599716477 },
+ { 0.86189886597755994, -0.30000000000000004, 0.90000000000000002,
+ 1.0471975511965976 },
+ { 0.96629451153092005, -0.30000000000000004, 0.90000000000000002,
+ 1.2217304763960306 },
+ { 1.0655269133492682, -0.30000000000000004, 0.90000000000000002,
+ 1.3962634015954636 },
+ { 1.1622376896064914, -0.30000000000000004, 0.90000000000000002,
+ 1.5707963267948966 },
+};
+const double toler070 = 2.5000000000000020e-13;
+
+// Test data for k=-0.19999999999999996, nu=0.0000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.2156475739151676e-16
+const testcase_ellint_3<double>
+data071[10] =
+{
+ { 0.0000000000000000, -0.19999999999999996, 0.0000000000000000,
+ 0.0000000000000000 },
+ { 0.17456817290292809, -0.19999999999999996, 0.0000000000000000,
+ 0.17453292519943295 },
+ { 0.34934315932086801, -0.19999999999999996, 0.0000000000000000,
+ 0.34906585039886590 },
+ { 0.52450880529443988, -0.19999999999999996, 0.0000000000000000,
+ 0.52359877559829882 },
+ { 0.70020491009844876, -0.19999999999999996, 0.0000000000000000,
+ 0.69813170079773179 },
+ { 0.87651006649967955, -0.19999999999999996, 0.0000000000000000,
+ 0.87266462599716477 },
+ { 1.0534305870298994, -0.19999999999999996, 0.0000000000000000,
+ 1.0471975511965976 },
+ { 1.2308975521670784, -0.19999999999999996, 0.0000000000000000,
+ 1.2217304763960306 },
+ { 1.4087733584990738, -0.19999999999999996, 0.0000000000000000,
+ 1.3962634015954636 },
+ { 1.5868678474541660, -0.19999999999999996, 0.0000000000000000,
+ 1.5707963267948966 },
+};
+const double toler071 = 2.5000000000000020e-13;
+
+// Test data for k=-0.19999999999999996, nu=0.10000000000000001.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.3374593253183472e-16
+const testcase_ellint_3<double>
+data072[10] =
+{
+ { 0.0000000000000000, -0.19999999999999996, 0.10000000000000001,
+ 0.0000000000000000 },
+ { 0.17439228502691748, -0.19999999999999996, 0.10000000000000001,
+ 0.17453292519943295 },
+ { 0.34796731137565740, -0.19999999999999996, 0.10000000000000001,
+ 0.34906585039886590 },
+ { 0.52003370294544848, -0.19999999999999996, 0.10000000000000001,
+ 0.52359877559829882 },
+ { 0.69012222258631462, -0.19999999999999996, 0.10000000000000001,
+ 0.69813170079773179 },
+ { 0.85803491465566772, -0.19999999999999996, 0.10000000000000001,
+ 0.87266462599716477 },
+ { 1.0238463961099364, -0.19999999999999996, 0.10000000000000001,
+ 1.0471975511965976 },
+ { 1.1878691059202153, -0.19999999999999996, 0.10000000000000001,
+ 1.2217304763960306 },
+ { 1.3505985031831940, -0.19999999999999996, 0.10000000000000001,
+ 1.3962634015954636 },
+ { 1.5126513474261087, -0.19999999999999996, 0.10000000000000001,
+ 1.5707963267948966 },
+};
+const double toler072 = 2.5000000000000020e-13;
+
+// Test data for k=-0.19999999999999996, nu=0.20000000000000001.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.4549984059502760e-16
+const testcase_ellint_3<double>
+data073[10] =
+{
+ { 0.0000000000000000, -0.19999999999999996, 0.20000000000000001,
+ 0.0000000000000000 },
+ { 0.17421703179583747, -0.19999999999999996, 0.20000000000000001,
+ 0.17453292519943295 },
+ { 0.34661057411998791, -0.19999999999999996, 0.20000000000000001,
+ 0.34906585039886590 },
+ { 0.51569006052647393, -0.19999999999999996, 0.20000000000000001,
+ 0.52359877559829882 },
+ { 0.68052412821107244, -0.19999999999999996, 0.20000000000000001,
+ 0.69813170079773179 },
+ { 0.84081341263313825, -0.19999999999999996, 0.20000000000000001,
+ 0.87266462599716477 },
+ { 0.99683359988842890, -0.19999999999999996, 0.20000000000000001,
+ 1.0471975511965976 },
+ { 1.1493086715118852, -0.19999999999999996, 0.20000000000000001,
+ 1.2217304763960306 },
+ { 1.2992699693957541, -0.19999999999999996, 0.20000000000000001,
+ 1.3962634015954636 },
+ { 1.4479323932249564, -0.19999999999999996, 0.20000000000000001,
+ 1.5707963267948966 },
+};
+const double toler073 = 2.5000000000000020e-13;
+
+// Test data for k=-0.19999999999999996, nu=0.29999999999999999.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 5.3140668101543467e-16
+const testcase_ellint_3<double>
+data074[10] =
+{
+ { 0.0000000000000000, -0.19999999999999996, 0.29999999999999999,
+ 0.0000000000000000 },
+ { 0.17404240913577704, -0.19999999999999996, 0.29999999999999999,
+ 0.17453292519943295 },
+ { 0.34527248032587193, -0.19999999999999996, 0.29999999999999999,
+ 0.34906585039886590 },
+ { 0.51147118981668416, -0.19999999999999996, 0.29999999999999999,
+ 0.52359877559829882 },
+ { 0.67137107867777601, -0.19999999999999996, 0.29999999999999999,
+ 0.69813170079773179 },
+ { 0.82470418188668893, -0.19999999999999996, 0.29999999999999999,
+ 0.87266462599716477 },
+ { 0.97202873223594299, -0.19999999999999996, 0.29999999999999999,
+ 1.0471975511965976 },
+ { 1.1144773569375266, -0.19999999999999996, 0.29999999999999999,
+ 1.2217304763960306 },
+ { 1.2535292433701000, -0.19999999999999996, 0.29999999999999999,
+ 1.3962634015954636 },
+ { 1.3908453514752477, -0.19999999999999996, 0.29999999999999999,
+ 1.5707963267948966 },
+};
+const double toler074 = 2.5000000000000020e-13;
+
+// Test data for k=-0.19999999999999996, nu=0.40000000000000002.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.6788709752760483e-16
+const testcase_ellint_3<double>
+data075[10] =
+{
+ { 0.0000000000000000, -0.19999999999999996, 0.40000000000000002,
+ 0.0000000000000000 },
+ { 0.17386841301066674, -0.19999999999999996, 0.40000000000000002,
+ 0.17453292519943295 },
+ { 0.34395257914113253, -0.19999999999999996, 0.40000000000000002,
+ 0.34906585039886590 },
+ { 0.50737088376869466, -0.19999999999999996, 0.40000000000000002,
+ 0.52359877559829882 },
+ { 0.66262801717277631, -0.19999999999999996, 0.40000000000000002,
+ 0.69813170079773179 },
+ { 0.80958766645079094, -0.19999999999999996, 0.40000000000000002,
+ 0.87266462599716477 },
+ { 0.94913754236162040, -0.19999999999999996, 0.40000000000000002,
+ 1.0471975511965976 },
+ { 1.0827985514222997, -0.19999999999999996, 0.40000000000000002,
+ 1.2217304763960306 },
+ { 1.2124212429050478, -0.19999999999999996, 0.40000000000000002,
+ 1.3962634015954636 },
+ { 1.3400002519661005, -0.19999999999999996, 0.40000000000000002,
+ 1.5707963267948966 },
+};
+const double toler075 = 2.5000000000000020e-13;
+
+// Test data for k=-0.19999999999999996, nu=0.50000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.7788201301356829e-16
+const testcase_ellint_3<double>
+data076[10] =
+{
+ { 0.0000000000000000, -0.19999999999999996, 0.50000000000000000,
+ 0.0000000000000000 },
+ { 0.17369503942181799, -0.19999999999999996, 0.50000000000000000,
+ 0.17453292519943295 },
+ { 0.34265043534362660, -0.19999999999999996, 0.50000000000000000,
+ 0.34906585039886590 },
+ { 0.50338337208655415, -0.19999999999999996, 0.50000000000000000,
+ 0.52359877559829882 },
+ { 0.65426373297163609, -0.19999999999999996, 0.50000000000000000,
+ 0.69813170079773179 },
+ { 0.79536193036145808, -0.19999999999999996, 0.50000000000000000,
+ 0.87266462599716477 },
+ { 0.92791875910061605, -0.19999999999999996, 0.50000000000000000,
+ 1.0471975511965976 },
+ { 1.0538145052725829, -0.19999999999999996, 0.50000000000000000,
+ 1.2217304763960306 },
+ { 1.1752060022875899, -0.19999999999999996, 0.50000000000000000,
+ 1.3962634015954636 },
+ { 1.2943374404397372, -0.19999999999999996, 0.50000000000000000,
+ 1.5707963267948966 },
+};
+const double toler076 = 2.5000000000000020e-13;
+
+// Test data for k=-0.19999999999999996, nu=0.59999999999999998.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.8899223779598256e-16
+const testcase_ellint_3<double>
+data077[10] =
+{
+ { 0.0000000000000000, -0.19999999999999996, 0.59999999999999998,
+ 0.0000000000000000 },
+ { 0.17352228440746925, -0.19999999999999996, 0.59999999999999998,
+ 0.17453292519943295 },
+ { 0.34136562863713626, -0.19999999999999996, 0.59999999999999998,
+ 0.34906585039886590 },
+ { 0.49950328177638481, -0.19999999999999996, 0.59999999999999998,
+ 0.52359877559829882 },
+ { 0.64625032705690799, -0.19999999999999996, 0.59999999999999998,
+ 0.69813170079773179 },
+ { 0.78193941198403083, -0.19999999999999996, 0.59999999999999998,
+ 0.87266462599716477 },
+ { 0.90817230934317128, -0.19999999999999996, 0.59999999999999998,
+ 1.0471975511965976 },
+ { 1.0271563751276462, -0.19999999999999996, 0.59999999999999998,
+ 1.2217304763960306 },
+ { 1.1412999379040518, -0.19999999999999996, 0.59999999999999998,
+ 1.3962634015954636 },
+ { 1.2530330675914556, -0.19999999999999996, 0.59999999999999998,
+ 1.5707963267948966 },
+};
+const double toler077 = 2.5000000000000020e-13;
+
+// Test data for k=-0.19999999999999996, nu=0.69999999999999996.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 5.9999318361775115e-16
+const testcase_ellint_3<double>
+data078[10] =
+{
+ { 0.0000000000000000, -0.19999999999999996, 0.69999999999999996,
+ 0.0000000000000000 },
+ { 0.17335014404233895, -0.19999999999999996, 0.69999999999999996,
+ 0.17453292519943295 },
+ { 0.34009775298617811, -0.19999999999999996, 0.69999999999999996,
+ 0.34906585039886590 },
+ { 0.49572560201923810, -0.19999999999999996, 0.69999999999999996,
+ 0.52359877559829882 },
+ { 0.63856276669886503, -0.19999999999999996, 0.69999999999999996,
+ 0.69813170079773179 },
+ { 0.76924438644867565, -0.19999999999999996, 0.69999999999999996,
+ 0.87266462599716477 },
+ { 0.88973060843856466, -0.19999999999999996, 0.69999999999999996,
+ 1.0471975511965976 },
+ { 1.0025230471636377, -0.19999999999999996, 0.69999999999999996,
+ 1.2217304763960306 },
+ { 1.1102356376093103, -0.19999999999999996, 0.69999999999999996,
+ 1.3962634015954636 },
+ { 1.2154356555075863, -0.19999999999999996, 0.69999999999999996,
+ 1.5707963267948966 },
+};
+const double toler078 = 2.5000000000000020e-13;
+
+// Test data for k=-0.19999999999999996, nu=0.80000000000000004.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 5.0901276230707249e-16
+const testcase_ellint_3<double>
+data079[10] =
+{
+ { 0.0000000000000000, -0.19999999999999996, 0.80000000000000004,
+ 0.0000000000000000 },
+ { 0.17317861443718538, -0.19999999999999996, 0.80000000000000004,
+ 0.17453292519943295 },
+ { 0.33884641598718701, -0.19999999999999996, 0.80000000000000004,
+ 0.34906585039886590 },
+ { 0.49204565281259494, -0.19999999999999996, 0.80000000000000004,
+ 0.52359877559829882 },
+ { 0.63117851188220320, -0.19999999999999996, 0.80000000000000004,
+ 0.69813170079773179 },
+ { 0.75721095949544170, -0.19999999999999996, 0.80000000000000004,
+ 0.87266462599716477 },
+ { 0.87245201443919118, -0.19999999999999996, 0.80000000000000004,
+ 1.0471975511965976 },
+ { 0.97966584238831089, -0.19999999999999996, 0.80000000000000004,
+ 1.2217304763960306 },
+ { 1.0816336325174360, -0.19999999999999996, 0.80000000000000004,
+ 1.3962634015954636 },
+ { 1.1810223448909909, -0.19999999999999996, 0.80000000000000004,
+ 1.5707963267948966 },
+};
+const double toler079 = 2.5000000000000020e-13;
+
+// Test data for k=-0.19999999999999996, nu=0.90000000000000002.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 6.4833128442756722e-16
+const testcase_ellint_3<double>
+data080[10] =
+{
+ { 0.0000000000000000, -0.19999999999999996, 0.90000000000000002,
+ 0.0000000000000000 },
+ { 0.17300769173837277, -0.19999999999999996, 0.90000000000000002,
+ 0.17453292519943295 },
+ { 0.33761123827372508, -0.19999999999999996, 0.90000000000000002,
+ 0.34906585039886590 },
+ { 0.48845905690769426, -0.19999999999999996, 0.90000000000000002,
+ 0.52359877559829882 },
+ { 0.62407720017324952, -0.19999999999999996, 0.90000000000000002,
+ 0.69813170079773179 },
+ { 0.74578146525124289, -0.19999999999999996, 0.90000000000000002,
+ 0.87266462599716477 },
+ { 0.85621583540073076, -0.19999999999999996, 0.90000000000000002,
+ 1.0471975511965976 },
+ { 0.95837725988001199, -0.19999999999999996, 0.90000000000000002,
+ 1.2217304763960306 },
+ { 1.0551821412633928, -0.19999999999999996, 0.90000000000000002,
+ 1.3962634015954636 },
+ { 1.1493679916141861, -0.19999999999999996, 0.90000000000000002,
+ 1.5707963267948966 },
+};
+const double toler080 = 2.5000000000000020e-13;
+
+// Test data for k=-0.099999999999999978, nu=0.0000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.1735566504509650e-16
+const testcase_ellint_3<double>
+data081[10] =
+{
+ { 0.0000000000000000, -0.099999999999999978, 0.0000000000000000,
+ 0.0000000000000000 },
+ { 0.17454173353063659, -0.099999999999999978, 0.0000000000000000,
+ 0.17453292519943295 },
+ { 0.34913506721468091, -0.099999999999999978, 0.0000000000000000,
+ 0.34906585039886590 },
+ { 0.52382550016538942, -0.099999999999999978, 0.0000000000000000,
+ 0.52359877559829882 },
+ { 0.69864700854177020, -0.099999999999999978, 0.0000000000000000,
+ 0.69813170079773179 },
+ { 0.87361792586964870, -0.099999999999999978, 0.0000000000000000,
+ 0.87266462599716477 },
+ { 1.0487386319621683, -0.099999999999999978, 0.0000000000000000,
+ 1.0471975511965976 },
+ { 1.2239913752078757, -0.099999999999999978, 0.0000000000000000,
+ 1.2217304763960306 },
+ { 1.3993423113684049, -0.099999999999999978, 0.0000000000000000,
+ 1.3962634015954636 },
+ { 1.5747455615173562, -0.099999999999999978, 0.0000000000000000,
+ 1.5707963267948966 },
+};
+const double toler081 = 2.5000000000000020e-13;
+
+// Test data for k=-0.099999999999999978, nu=0.10000000000000001.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.3097339877269682e-16
+const testcase_ellint_3<double>
+data082[10] =
+{
+ { 0.0000000000000000, -0.099999999999999978, 0.10000000000000001,
+ 0.0000000000000000 },
+ { 0.17436589347616613, -0.099999999999999978, 0.10000000000000001,
+ 0.17453292519943295 },
+ { 0.34776067871237359, -0.099999999999999978, 0.10000000000000001,
+ 0.34906585039886590 },
+ { 0.51936064354727796, -0.099999999999999978, 0.10000000000000001,
+ 0.52359877559829882 },
+ { 0.68860303749364349, -0.099999999999999978, 0.10000000000000001,
+ 0.69813170079773179 },
+ { 0.85524561882332051, -0.099999999999999978, 0.10000000000000001,
+ 0.87266462599716477 },
+ { 1.0193708301908335, -0.099999999999999978, 0.10000000000000001,
+ 1.0471975511965976 },
+ { 1.1813474067123044, -0.099999999999999978, 0.10000000000000001,
+ 1.2217304763960306 },
+ { 1.3417670770424983, -0.099999999999999978, 0.10000000000000001,
+ 1.3962634015954636 },
+ { 1.5013711111199950, -0.099999999999999978, 0.10000000000000001,
+ 1.5707963267948966 },
+};
+const double toler082 = 2.5000000000000020e-13;
+
+// Test data for k=-0.099999999999999978, nu=0.20000000000000001.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.4399947764827574e-16
+const testcase_ellint_3<double>
+data083[10] =
+{
+ { 0.0000000000000000, -0.099999999999999978, 0.20000000000000001,
+ 0.0000000000000000 },
+ { 0.17419068786141340, -0.099999999999999978, 0.20000000000000001,
+ 0.17453292519943295 },
+ { 0.34640537686230133, -0.099999999999999978, 0.20000000000000001,
+ 0.34906585039886590 },
+ { 0.51502689171753946, -0.099999999999999978, 0.20000000000000001,
+ 0.52359877559829882 },
+ { 0.67904147863672715, -0.099999999999999978, 0.20000000000000001,
+ 0.69813170079773179 },
+ { 0.83811885126105179, -0.099999999999999978, 0.20000000000000001,
+ 0.87266462599716477 },
+ { 0.99255278555742787, -0.099999999999999978, 0.20000000000000001,
+ 1.0471975511965976 },
+ { 1.1431260546194930, -0.099999999999999978, 0.20000000000000001,
+ 1.2217304763960306 },
+ { 1.2909589656532101, -0.099999999999999978, 0.20000000000000001,
+ 1.3962634015954636 },
+ { 1.4373749386463430, -0.099999999999999978, 0.20000000000000001,
+ 1.5707963267948966 },
+};
+const double toler083 = 2.5000000000000020e-13;
+
+// Test data for k=-0.099999999999999978, nu=0.29999999999999999.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.5650492137236872e-16
+const testcase_ellint_3<double>
+data084[10] =
+{
+ { 0.0000000000000000, -0.099999999999999978, 0.29999999999999999,
+ 0.0000000000000000 },
+ { 0.17401611261390104, -0.099999999999999978, 0.29999999999999999,
+ 0.17453292519943295 },
+ { 0.34506869507511773, -0.099999999999999978, 0.29999999999999999,
+ 0.34906585039886590 },
+ { 0.51081757604259859, -0.099999999999999978, 0.29999999999999999,
+ 0.52359877559829882 },
+ { 0.66992297597712303, -0.099999999999999978, 0.29999999999999999,
+ 0.69813170079773179 },
+ { 0.82209722856174228, -0.099999999999999978, 0.29999999999999999,
+ 0.87266462599716477 },
+ { 0.96792430487669590, -0.099999999999999978, 0.29999999999999999,
+ 1.0471975511965976 },
+ { 1.1085964108954092, -0.099999999999999978, 0.29999999999999999,
+ 1.2217304763960306 },
+ { 1.2456748370836999, -0.099999999999999978, 0.29999999999999999,
+ 1.3962634015954636 },
+ { 1.3809159606704959, -0.099999999999999978, 0.29999999999999999,
+ 1.5707963267948966 },
+};
+const double toler084 = 2.5000000000000020e-13;
+
+// Test data for k=-0.099999999999999978, nu=0.40000000000000002.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.6854758534459740e-16
+const testcase_ellint_3<double>
+data085[10] =
+{
+ { 0.0000000000000000, -0.099999999999999978, 0.40000000000000002,
+ 0.0000000000000000 },
+ { 0.17384216369897931, -0.099999999999999978, 0.40000000000000002,
+ 0.17453292519943295 },
+ { 0.34375018311376787, -0.099999999999999978, 0.40000000000000002,
+ 0.34906585039886590 },
+ { 0.50672650758380455, -0.099999999999999978, 0.40000000000000002,
+ 0.52359877559829882 },
+ { 0.66121264213337616, -0.099999999999999978, 0.40000000000000002,
+ 0.69813170079773179 },
+ { 0.80706202005774441, -0.099999999999999978, 0.40000000000000002,
+ 0.87266462599716477 },
+ { 0.94519376138245870, -0.099999999999999978, 0.40000000000000002,
+ 1.0471975511965976 },
+ { 1.0771880300759584, -0.099999999999999978, 0.40000000000000002,
+ 1.2217304763960306 },
+ { 1.2049711557188272, -0.099999999999999978, 0.40000000000000002,
+ 1.3962634015954636 },
+ { 1.3306223265207477, -0.099999999999999978, 0.40000000000000002,
+ 1.5707963267948966 },
+};
+const double toler085 = 2.5000000000000020e-13;
+
+// Test data for k=-0.099999999999999978, nu=0.50000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.8017534281650347e-16
+const testcase_ellint_3<double>
+data086[10] =
+{
+ { 0.0000000000000000, -0.099999999999999978, 0.50000000000000000,
+ 0.0000000000000000 },
+ { 0.17366883711936548, -0.099999999999999978, 0.50000000000000000,
+ 0.17453292519943295 },
+ { 0.34244940634881882, -0.099999999999999978, 0.50000000000000000,
+ 0.34906585039886590 },
+ { 0.50274793281634367, -0.099999999999999978, 0.50000000000000000,
+ 0.52359877559829882 },
+ { 0.65287941633275082, -0.099999999999999978, 0.50000000000000000,
+ 0.69813170079773179 },
+ { 0.79291198790315398, -0.099999999999999978, 0.50000000000000000,
+ 0.87266462599716477 },
+ { 0.92412201537880323, -0.099999999999999978, 0.50000000000000000,
+ 1.0471975511965976 },
+ { 1.0484480076799372, -0.099999999999999978, 0.50000000000000000,
+ 1.2217304763960306 },
+ { 1.1681168130475206, -0.099999999999999978, 0.50000000000000000,
+ 1.3962634015954636 },
+ { 1.2854480708580160, -0.099999999999999978, 0.50000000000000000,
+ 1.5707963267948966 },
+};
+const double toler086 = 2.5000000000000020e-13;
+
+// Test data for k=-0.099999999999999978, nu=0.59999999999999998.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.9142834151672032e-16
+const testcase_ellint_3<double>
+data087[10] =
+{
+ { 0.0000000000000000, -0.099999999999999978, 0.59999999999999998,
+ 0.0000000000000000 },
+ { 0.17349612891469013, -0.099999999999999978, 0.59999999999999998,
+ 0.17453292519943295 },
+ { 0.34116594505539444, -0.099999999999999978, 0.59999999999999998,
+ 0.34906585039886590 },
+ { 0.49887649430466674, -0.099999999999999978, 0.59999999999999998,
+ 0.52359877559829882 },
+ { 0.64489553282165146, -0.099999999999999978, 0.59999999999999998,
+ 0.69813170079773179 },
+ { 0.77956016553782437, -0.099999999999999978, 0.59999999999999998,
+ 0.87266462599716477 },
+ { 0.90451074530096287, -0.099999999999999978, 0.59999999999999998,
+ 1.0471975511965976 },
+ { 1.0220113666961632, -0.099999999999999978, 0.59999999999999998,
+ 1.2217304763960306 },
+ { 1.1345351441065563, -0.099999999999999978, 0.59999999999999998,
+ 1.3962634015954636 },
+ { 1.2445798942989255, -0.099999999999999978, 0.59999999999999998,
+ 1.5707963267948966 },
+};
+const double toler087 = 2.5000000000000020e-13;
+
+// Test data for k=-0.099999999999999978, nu=0.69999999999999996.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 5.5172091551439012e-16
+const testcase_ellint_3<double>
+data088[10] =
+{
+ { 0.0000000000000000, -0.099999999999999978, 0.69999999999999996,
+ 0.0000000000000000 },
+ { 0.17332403516105047, -0.099999999999999978, 0.69999999999999996,
+ 0.17453292519943295 },
+ { 0.33989939374896883, -0.099999999999999978, 0.69999999999999996,
+ 0.34906585039886590 },
+ { 0.49510719568614070, -0.099999999999999978, 0.69999999999999996,
+ 0.52359877559829882 },
+ { 0.63723607776354974, -0.099999999999999978, 0.69999999999999996,
+ 0.69813170079773179 },
+ { 0.76693133887935327, -0.099999999999999978, 0.69999999999999996,
+ 0.87266462599716477 },
+ { 0.88619382078823805, -0.099999999999999978, 0.69999999999999996,
+ 1.0471975511965976 },
+ { 0.99758012018676490, -0.099999999999999978, 0.69999999999999996,
+ 1.2217304763960306 },
+ { 1.1037642270814410, -0.099999999999999978, 0.69999999999999996,
+ 1.3962634015954636 },
+ { 1.2073745911083185, -0.099999999999999978, 0.69999999999999996,
+ 1.5707963267948966 },
+};
+const double toler088 = 2.5000000000000020e-13;
+
+// Test data for k=-0.099999999999999978, nu=0.80000000000000004.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.1294144515772258e-16
+const testcase_ellint_3<double>
+data089[10] =
+{
+ { 0.0000000000000000, -0.099999999999999978, 0.80000000000000004,
+ 0.0000000000000000 },
+ { 0.17315255197057014, -0.099999999999999978, 0.80000000000000004,
+ 0.17453292519943295 },
+ { 0.33864936055747991, -0.099999999999999978, 0.80000000000000004,
+ 0.34906585039886590 },
+ { 0.49143537041117613, -0.099999999999999978, 0.80000000000000004,
+ 0.52359877559829882 },
+ { 0.62987861760047492, -0.099999999999999978, 0.80000000000000004,
+ 0.69813170079773179 },
+ { 0.75496005490917517, -0.099999999999999978, 0.80000000000000004,
+ 0.87266462599716477 },
+ { 0.86903081862701881, -0.099999999999999978, 0.80000000000000004,
+ 1.0471975511965976 },
+ { 0.97490814820725591, -0.099999999999999978, 0.80000000000000004,
+ 1.2217304763960306 },
+ { 1.0754290107171083, -0.099999999999999978, 0.80000000000000004,
+ 1.3962634015954636 },
+ { 1.1733158866987732, -0.099999999999999978, 0.80000000000000004,
+ 1.5707963267948966 },
+};
+const double toler089 = 2.5000000000000020e-13;
+
+// Test data for k=-0.099999999999999978, nu=0.90000000000000002.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.2325599449457852e-16
+const testcase_ellint_3<double>
+data090[10] =
+{
+ { 0.0000000000000000, -0.099999999999999978, 0.90000000000000002,
+ 0.0000000000000000 },
+ { 0.17298167549096563, -0.099999999999999978, 0.90000000000000002,
+ 0.17453292519943295 },
+ { 0.33741546662741589, -0.099999999999999978, 0.90000000000000002,
+ 0.34906585039886590 },
+ { 0.48785665376856868, -0.099999999999999978, 0.90000000000000002,
+ 0.52359877559829882 },
+ { 0.62280288554518959, -0.099999999999999978, 0.90000000000000002,
+ 0.69813170079773179 },
+ { 0.74358903115455188, -0.099999999999999978, 0.90000000000000002,
+ 0.87266462599716477 },
+ { 0.85290207679298335, -0.099999999999999978, 0.90000000000000002,
+ 1.0471975511965976 },
+ { 0.95379006645397379, -0.099999999999999978, 0.90000000000000002,
+ 1.2217304763960306 },
+ { 1.0492213119872327, -0.099999999999999978, 0.90000000000000002,
+ 1.3962634015954636 },
+ { 1.1419839485283374, -0.099999999999999978, 0.90000000000000002,
+ 1.5707963267948966 },
+};
+const double toler090 = 2.5000000000000020e-13;
+
+// Test data for k=0.0000000000000000, nu=0.0000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 2.1203697876423452e-16
+const testcase_ellint_3<double>
+data091[10] =
+{
+ { 0.0000000000000000, 0.0000000000000000, 0.0000000000000000,
+ 0.0000000000000000 },
+ { 0.17453292519943292, 0.0000000000000000, 0.0000000000000000,
+ 0.17453292519943295 },
+ { 0.34906585039886584, 0.0000000000000000, 0.0000000000000000,
+ 0.34906585039886590 },
+ { 0.52359877559829870, 0.0000000000000000, 0.0000000000000000,
+ 0.52359877559829882 },
+ { 0.69813170079773168, 0.0000000000000000, 0.0000000000000000,
+ 0.69813170079773179 },
+ { 0.87266462599716477, 0.0000000000000000, 0.0000000000000000,
+ 0.87266462599716477 },
+ { 1.0471975511965974, 0.0000000000000000, 0.0000000000000000,
+ 1.0471975511965976 },
+ { 1.2217304763960304, 0.0000000000000000, 0.0000000000000000,
+ 1.2217304763960306 },
+ { 1.3962634015954631, 0.0000000000000000, 0.0000000000000000,
+ 1.3962634015954636 },
+ { 1.5707963267948966, 0.0000000000000000, 0.0000000000000000,
+ 1.5707963267948966 },
+};
+const double toler091 = 2.5000000000000020e-13;
+
+// Test data for k=0.0000000000000000, nu=0.10000000000000001.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 2.1813975824747021e-16
+const testcase_ellint_3<double>
+data092[10] =
+{
+ { 0.0000000000000000, 0.0000000000000000, 0.10000000000000001,
+ 0.0000000000000000 },
+ { 0.17435710107516605, 0.0000000000000000, 0.10000000000000001,
+ 0.17453292519943295 },
+ { 0.34769194715329604, 0.0000000000000000, 0.10000000000000001,
+ 0.34906585039886590 },
+ { 0.51913731575866107, 0.0000000000000000, 0.10000000000000001,
+ 0.52359877559829882 },
+ { 0.68810051897078450, 0.0000000000000000, 0.10000000000000001,
+ 0.69813170079773179 },
+ { 0.85432615661706823, 0.0000000000000000, 0.10000000000000001,
+ 0.87266462599716477 },
+ { 1.0179006647340794, 0.0000000000000000, 0.10000000000000001,
+ 1.0471975511965976 },
+ { 1.1792120640746322, 0.0000000000000000, 0.10000000000000001,
+ 1.2217304763960306 },
+ { 1.3388834245070498, 0.0000000000000000, 0.10000000000000001,
+ 1.3962634015954636 },
+ { 1.4976955329233277, 0.0000000000000000, 0.10000000000000001,
+ 1.5707963267948966 },
+};
+const double toler092 = 2.5000000000000020e-13;
+
+// Test data for k=0.0000000000000000, nu=0.20000000000000001.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 2.2402804784409065e-16
+const testcase_ellint_3<double>
+data093[10] =
+{
+ { 0.0000000000000000, 0.0000000000000000, 0.20000000000000001,
+ 0.0000000000000000 },
+ { 0.17418191132226074, 0.0000000000000000, 0.20000000000000001,
+ 0.17453292519943295 },
+ { 0.34633712256943405, 0.0000000000000000, 0.20000000000000001,
+ 0.34906585039886590 },
+ { 0.51480684302043700, 0.0000000000000000, 0.20000000000000001,
+ 0.52359877559829882 },
+ { 0.67855102942481937, 0.0000000000000000, 0.20000000000000001,
+ 0.69813170079773179 },
+ { 0.83723056090326253, 0.0000000000000000, 0.20000000000000001,
+ 0.87266462599716477 },
+ { 0.99114645269578161, 0.0000000000000000, 0.20000000000000001,
+ 1.0471975511965976 },
+ { 1.1411014627915537, 0.0000000000000000, 0.20000000000000001,
+ 1.2217304763960306 },
+ { 1.2882448138013969, 0.0000000000000000, 0.20000000000000001,
+ 1.3962634015954636 },
+ { 1.4339343023863691, 0.0000000000000000, 0.20000000000000001,
+ 1.5707963267948966 },
+};
+const double toler093 = 2.5000000000000020e-13;
+
+// Test data for k=0.0000000000000000, nu=0.29999999999999999.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 2.2972291118632678e-16
+const testcase_ellint_3<double>
+data094[10] =
+{
+ { 0.0000000000000000, 0.0000000000000000, 0.29999999999999999,
+ 0.0000000000000000 },
+ { 0.17400735186871724, 0.0000000000000000, 0.29999999999999999,
+ 0.17453292519943295 },
+ { 0.34500091027020219, 0.0000000000000000, 0.29999999999999999,
+ 0.34906585039886590 },
+ { 0.51060069523901530, 0.0000000000000000, 0.29999999999999999,
+ 0.52359877559829882 },
+ { 0.66944393961375448, 0.0000000000000000, 0.29999999999999999,
+ 0.69813170079773179 },
+ { 0.82123776744538157, 0.0000000000000000, 0.29999999999999999,
+ 0.87266462599716477 },
+ { 0.96657579245516501, 0.0000000000000000, 0.29999999999999999,
+ 1.0471975511965976 },
+ { 1.1066703663542414, 0.0000000000000000, 0.29999999999999999,
+ 1.2217304763960306 },
+ { 1.2431094251944901, 0.0000000000000000, 0.29999999999999999,
+ 1.3962634015954636 },
+ { 1.3776795151134889, 0.0000000000000000, 0.29999999999999999,
+ 1.5707963267948966 },
+};
+const double toler094 = 2.5000000000000020e-13;
+
+// Test data for k=0.0000000000000000, nu=0.40000000000000002.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 2.3524218164111537e-16
+const testcase_ellint_3<double>
+data095[10] =
+{
+ { 0.0000000000000000, 0.0000000000000000, 0.40000000000000002,
+ 0.0000000000000000 },
+ { 0.17383341868035862, 0.0000000000000000, 0.40000000000000002,
+ 0.17453292519943295 },
+ { 0.34368286022299821, 0.0000000000000000, 0.40000000000000002,
+ 0.34906585039886590 },
+ { 0.50651268947499395, 0.0000000000000000, 0.40000000000000002,
+ 0.52359877559829882 },
+ { 0.66074441806097539, 0.0000000000000000, 0.40000000000000002,
+ 0.69813170079773179 },
+ { 0.80622931670113474, 0.0000000000000000, 0.40000000000000002,
+ 0.87266462599716477 },
+ { 0.94389791565435210, 0.0000000000000000, 0.40000000000000002,
+ 1.0471975511965976 },
+ { 1.0753503387899728, 0.0000000000000000, 0.40000000000000002,
+ 1.2217304763960306 },
+ { 1.2025374759127518, 0.0000000000000000, 0.40000000000000002,
+ 1.3962634015954636 },
+ { 1.3275651989026320, 0.0000000000000000, 0.40000000000000002,
+ 1.5707963267948966 },
+};
+const double toler095 = 2.5000000000000020e-13;
+
+// Test data for k=0.0000000000000000, nu=0.50000000000000000.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 3.6090167266677240e-16
+const testcase_ellint_3<double>
+data096[10] =
+{
+ { 0.0000000000000000, 0.0000000000000000, 0.50000000000000000,
+ 0.0000000000000000 },
+ { 0.17366010776037044, 0.0000000000000000, 0.50000000000000000,
+ 0.17453292519943295 },
+ { 0.34238253799539309, 0.0000000000000000, 0.50000000000000000,
+ 0.34906585039886590 },
+ { 0.50253707775976397, 0.0000000000000000, 0.50000000000000000,
+ 0.52359877559829882 },
+ { 0.65242145347295766, 0.0000000000000000, 0.50000000000000000,
+ 0.69813170079773179 },
+ { 0.79210420018698058, 0.0000000000000000, 0.50000000000000000,
+ 0.87266462599716477 },
+ { 0.92287437995632171, 0.0000000000000000, 0.50000000000000000,
+ 1.0471975511965976 },
+ { 1.0466900550798659, 0.0000000000000000, 0.50000000000000000,
+ 1.2217304763960306 },
+ { 1.1658007366618623, 0.0000000000000000, 0.50000000000000000,
+ 1.3962634015954636 },
+ { 1.2825498301618641, 0.0000000000000000, 0.50000000000000000,
+ 1.5707963267948966 },
+};
+const double toler096 = 2.5000000000000020e-13;
+
+// Test data for k=0.0000000000000000, nu=0.59999999999999998.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 2.4581288258006758e-16
+const testcase_ellint_3<double>
+data097[10] =
+{
+ { 0.0000000000000000, 0.0000000000000000, 0.59999999999999998,
+ 0.0000000000000000 },
+ { 0.17348741514884700, 0.0000000000000000, 0.59999999999999998,
+ 0.17453292519943295 },
+ { 0.34109952405241289, 0.0000000000000000, 0.59999999999999998,
+ 0.34906585039886590 },
+ { 0.49866850781226285, 0.0000000000000000, 0.59999999999999998,
+ 0.52359877559829882 },
+ { 0.64444732407062499, 0.0000000000000000, 0.59999999999999998,
+ 0.69813170079773179 },
+ { 0.77877564686544720, 0.0000000000000000, 0.59999999999999998,
+ 0.87266462599716477 },
+ { 0.90330743691883475, 0.0000000000000000, 0.59999999999999998,
+ 1.0471975511965976 },
+ { 1.0203257987604104, 0.0000000000000000, 0.59999999999999998,
+ 1.2217304763960306 },
+ { 1.1323247918768629, 0.0000000000000000, 0.59999999999999998,
+ 1.3962634015954636 },
+ { 1.2418235332245127, 0.0000000000000000, 0.59999999999999998,
+ 1.5707963267948966 },
+};
+const double toler097 = 2.5000000000000020e-13;
+
+// Test data for k=0.0000000000000000, nu=0.69999999999999996.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 2.5088894797856263e-16
+const testcase_ellint_3<double>
+data098[10] =
+{
+ { 0.0000000000000000, 0.0000000000000000, 0.69999999999999996,
+ 0.0000000000000000 },
+ { 0.17331533692234474, 0.0000000000000000, 0.69999999999999996,
+ 0.17453292519943295 },
+ { 0.33983341309265935, 0.0000000000000000, 0.69999999999999996,
+ 0.34906585039886590 },
+ { 0.49490198805931979, 0.0000000000000000, 0.69999999999999996,
+ 0.52359877559829882 },
+ { 0.63679715525145297, 0.0000000000000000, 0.69999999999999996,
+ 0.69813170079773179 },
+ { 0.76616861049481944, 0.0000000000000000, 0.69999999999999996,
+ 0.87266462599716477 },
+ { 0.88503143209004198, 0.0000000000000000, 0.69999999999999996,
+ 1.0471975511965976 },
+ { 0.99596060249112173, 0.0000000000000000, 0.69999999999999996,
+ 1.2217304763960306 },
+ { 1.1016495050260424, 0.0000000000000000, 0.69999999999999996,
+ 1.3962634015954636 },
+ { 1.2047457872617382, 0.0000000000000000, 0.69999999999999996,
+ 1.5707963267948966 },
+};
+const double toler098 = 2.5000000000000020e-13;
+
+// Test data for k=0.0000000000000000, nu=0.80000000000000004.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 3.8375904358197891e-16
+const testcase_ellint_3<double>
+data099[10] =
+{
+ { 0.0000000000000000, 0.0000000000000000, 0.80000000000000004,
+ 0.0000000000000000 },
+ { 0.17314386919344210, 0.0000000000000000, 0.80000000000000004,
+ 0.17453292519943295 },
+ { 0.33858381342073240, 0.0000000000000000, 0.80000000000000004,
+ 0.34906585039886590 },
+ { 0.49123285640844727, 0.0000000000000000, 0.80000000000000004,
+ 0.52359877559829882 },
+ { 0.62944854858904509, 0.0000000000000000, 0.80000000000000004,
+ 0.69813170079773179 },
+ { 0.75421778305499343, 0.0000000000000000, 0.80000000000000004,
+ 0.87266462599716477 },
+ { 0.86790634112156617, 0.0000000000000000, 0.80000000000000004,
+ 1.0471975511965976 },
+ { 0.97334918087427558, 0.0000000000000000, 0.80000000000000004,
+ 1.2217304763960306 },
+ { 1.0734012615283985, 0.0000000000000000, 0.80000000000000004,
+ 1.3962634015954636 },
+ { 1.1708024551734544, 0.0000000000000000, 0.80000000000000004,
+ 1.5707963267948966 },
+};
+const double toler099 = 2.5000000000000020e-13;
+
+// Test data for k=0.0000000000000000, nu=0.90000000000000002.
+// max(|f - f_GSL|): 1.1102230246251565e-16
+// max(|f - f_GSL| / |f_GSL|): 1.7838310376154469e-16
+const testcase_ellint_3<double>
+data100[10] =
+{
+ { 0.0000000000000000, 0.0000000000000000, 0.90000000000000002,
+ 0.0000000000000000 },
+ { 0.17297300811030597, 0.0000000000000000, 0.90000000000000002,
+ 0.17453292519943295 },
+ { 0.33735034635360817, 0.0000000000000000, 0.90000000000000002,
+ 0.34906585039886590 },
+ { 0.48765675230233130, 0.0000000000000000, 0.90000000000000002,
+ 0.52359877559829882 },
+ { 0.62238126886123568, 0.0000000000000000, 0.90000000000000002,
+ 0.69813170079773179 },
+ { 0.74286600807269243, 0.0000000000000000, 0.90000000000000002,
+ 0.87266462599716477 },
+ { 0.85181283909264949, 0.0000000000000000, 0.90000000000000002,
+ 1.0471975511965976 },
+ { 0.95228683995371133, 0.0000000000000000, 0.90000000000000002,
+ 1.2217304763960306 },
+ { 1.0472730487412552, 0.0000000000000000, 0.90000000000000002,
+ 1.3962634015954636 },
+ { 1.1395754288497419, 0.0000000000000000, 0.90000000000000002,
+ 1.5707963267948966 },
+};
+const double toler100 = 2.5000000000000020e-13;
+
+// Test data for k=0.10000000000000009, nu=0.0000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.1735566504509650e-16
+const testcase_ellint_3<double>
+data101[10] =
+{
+ { 0.0000000000000000, 0.10000000000000009, 0.0000000000000000,
+ 0.0000000000000000 },
+ { 0.17454173353063659, 0.10000000000000009, 0.0000000000000000,
+ 0.17453292519943295 },
+ { 0.34913506721468091, 0.10000000000000009, 0.0000000000000000,
+ 0.34906585039886590 },
+ { 0.52382550016538942, 0.10000000000000009, 0.0000000000000000,
+ 0.52359877559829882 },
+ { 0.69864700854177020, 0.10000000000000009, 0.0000000000000000,
+ 0.69813170079773179 },
+ { 0.87361792586964870, 0.10000000000000009, 0.0000000000000000,
+ 0.87266462599716477 },
+ { 1.0487386319621683, 0.10000000000000009, 0.0000000000000000,
+ 1.0471975511965976 },
+ { 1.2239913752078757, 0.10000000000000009, 0.0000000000000000,
+ 1.2217304763960306 },
+ { 1.3993423113684049, 0.10000000000000009, 0.0000000000000000,
+ 1.3962634015954636 },
+ { 1.5747455615173562, 0.10000000000000009, 0.0000000000000000,
+ 1.5707963267948966 },
+};
+const double toler101 = 2.5000000000000020e-13;
+
+// Test data for k=0.10000000000000009, nu=0.10000000000000001.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.3097339877269682e-16
+const testcase_ellint_3<double>
+data102[10] =
+{
+ { 0.0000000000000000, 0.10000000000000009, 0.10000000000000001,
+ 0.0000000000000000 },
+ { 0.17436589347616613, 0.10000000000000009, 0.10000000000000001,
+ 0.17453292519943295 },
+ { 0.34776067871237359, 0.10000000000000009, 0.10000000000000001,
+ 0.34906585039886590 },
+ { 0.51936064354727796, 0.10000000000000009, 0.10000000000000001,
+ 0.52359877559829882 },
+ { 0.68860303749364349, 0.10000000000000009, 0.10000000000000001,
+ 0.69813170079773179 },
+ { 0.85524561882332051, 0.10000000000000009, 0.10000000000000001,
+ 0.87266462599716477 },
+ { 1.0193708301908335, 0.10000000000000009, 0.10000000000000001,
+ 1.0471975511965976 },
+ { 1.1813474067123044, 0.10000000000000009, 0.10000000000000001,
+ 1.2217304763960306 },
+ { 1.3417670770424983, 0.10000000000000009, 0.10000000000000001,
+ 1.3962634015954636 },
+ { 1.5013711111199950, 0.10000000000000009, 0.10000000000000001,
+ 1.5707963267948966 },
+};
+const double toler102 = 2.5000000000000020e-13;
+
+// Test data for k=0.10000000000000009, nu=0.20000000000000001.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.4399947764827574e-16
+const testcase_ellint_3<double>
+data103[10] =
+{
+ { 0.0000000000000000, 0.10000000000000009, 0.20000000000000001,
+ 0.0000000000000000 },
+ { 0.17419068786141340, 0.10000000000000009, 0.20000000000000001,
+ 0.17453292519943295 },
+ { 0.34640537686230133, 0.10000000000000009, 0.20000000000000001,
+ 0.34906585039886590 },
+ { 0.51502689171753946, 0.10000000000000009, 0.20000000000000001,
+ 0.52359877559829882 },
+ { 0.67904147863672715, 0.10000000000000009, 0.20000000000000001,
+ 0.69813170079773179 },
+ { 0.83811885126105179, 0.10000000000000009, 0.20000000000000001,
+ 0.87266462599716477 },
+ { 0.99255278555742787, 0.10000000000000009, 0.20000000000000001,
+ 1.0471975511965976 },
+ { 1.1431260546194930, 0.10000000000000009, 0.20000000000000001,
+ 1.2217304763960306 },
+ { 1.2909589656532101, 0.10000000000000009, 0.20000000000000001,
+ 1.3962634015954636 },
+ { 1.4373749386463430, 0.10000000000000009, 0.20000000000000001,
+ 1.5707963267948966 },
+};
+const double toler103 = 2.5000000000000020e-13;
+
+// Test data for k=0.10000000000000009, nu=0.29999999999999999.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.5650492137236872e-16
+const testcase_ellint_3<double>
+data104[10] =
+{
+ { 0.0000000000000000, 0.10000000000000009, 0.29999999999999999,
+ 0.0000000000000000 },
+ { 0.17401611261390104, 0.10000000000000009, 0.29999999999999999,
+ 0.17453292519943295 },
+ { 0.34506869507511773, 0.10000000000000009, 0.29999999999999999,
+ 0.34906585039886590 },
+ { 0.51081757604259859, 0.10000000000000009, 0.29999999999999999,
+ 0.52359877559829882 },
+ { 0.66992297597712303, 0.10000000000000009, 0.29999999999999999,
+ 0.69813170079773179 },
+ { 0.82209722856174228, 0.10000000000000009, 0.29999999999999999,
+ 0.87266462599716477 },
+ { 0.96792430487669590, 0.10000000000000009, 0.29999999999999999,
+ 1.0471975511965976 },
+ { 1.1085964108954092, 0.10000000000000009, 0.29999999999999999,
+ 1.2217304763960306 },
+ { 1.2456748370836999, 0.10000000000000009, 0.29999999999999999,
+ 1.3962634015954636 },
+ { 1.3809159606704959, 0.10000000000000009, 0.29999999999999999,
+ 1.5707963267948966 },
+};
+const double toler104 = 2.5000000000000020e-13;
+
+// Test data for k=0.10000000000000009, nu=0.40000000000000002.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.6854758534459740e-16
+const testcase_ellint_3<double>
+data105[10] =
+{
+ { 0.0000000000000000, 0.10000000000000009, 0.40000000000000002,
+ 0.0000000000000000 },
+ { 0.17384216369897931, 0.10000000000000009, 0.40000000000000002,
+ 0.17453292519943295 },
+ { 0.34375018311376787, 0.10000000000000009, 0.40000000000000002,
+ 0.34906585039886590 },
+ { 0.50672650758380455, 0.10000000000000009, 0.40000000000000002,
+ 0.52359877559829882 },
+ { 0.66121264213337616, 0.10000000000000009, 0.40000000000000002,
+ 0.69813170079773179 },
+ { 0.80706202005774441, 0.10000000000000009, 0.40000000000000002,
+ 0.87266462599716477 },
+ { 0.94519376138245870, 0.10000000000000009, 0.40000000000000002,
+ 1.0471975511965976 },
+ { 1.0771880300759584, 0.10000000000000009, 0.40000000000000002,
+ 1.2217304763960306 },
+ { 1.2049711557188272, 0.10000000000000009, 0.40000000000000002,
+ 1.3962634015954636 },
+ { 1.3306223265207477, 0.10000000000000009, 0.40000000000000002,
+ 1.5707963267948966 },
+};
+const double toler105 = 2.5000000000000020e-13;
+
+// Test data for k=0.10000000000000009, nu=0.50000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.8017534281650347e-16
+const testcase_ellint_3<double>
+data106[10] =
+{
+ { 0.0000000000000000, 0.10000000000000009, 0.50000000000000000,
+ 0.0000000000000000 },
+ { 0.17366883711936548, 0.10000000000000009, 0.50000000000000000,
+ 0.17453292519943295 },
+ { 0.34244940634881882, 0.10000000000000009, 0.50000000000000000,
+ 0.34906585039886590 },
+ { 0.50274793281634367, 0.10000000000000009, 0.50000000000000000,
+ 0.52359877559829882 },
+ { 0.65287941633275082, 0.10000000000000009, 0.50000000000000000,
+ 0.69813170079773179 },
+ { 0.79291198790315398, 0.10000000000000009, 0.50000000000000000,
+ 0.87266462599716477 },
+ { 0.92412201537880323, 0.10000000000000009, 0.50000000000000000,
+ 1.0471975511965976 },
+ { 1.0484480076799372, 0.10000000000000009, 0.50000000000000000,
+ 1.2217304763960306 },
+ { 1.1681168130475206, 0.10000000000000009, 0.50000000000000000,
+ 1.3962634015954636 },
+ { 1.2854480708580160, 0.10000000000000009, 0.50000000000000000,
+ 1.5707963267948966 },
+};
+const double toler106 = 2.5000000000000020e-13;
+
+// Test data for k=0.10000000000000009, nu=0.59999999999999998.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.9142834151672032e-16
+const testcase_ellint_3<double>
+data107[10] =
+{
+ { 0.0000000000000000, 0.10000000000000009, 0.59999999999999998,
+ 0.0000000000000000 },
+ { 0.17349612891469013, 0.10000000000000009, 0.59999999999999998,
+ 0.17453292519943295 },
+ { 0.34116594505539444, 0.10000000000000009, 0.59999999999999998,
+ 0.34906585039886590 },
+ { 0.49887649430466674, 0.10000000000000009, 0.59999999999999998,
+ 0.52359877559829882 },
+ { 0.64489553282165146, 0.10000000000000009, 0.59999999999999998,
+ 0.69813170079773179 },
+ { 0.77956016553782437, 0.10000000000000009, 0.59999999999999998,
+ 0.87266462599716477 },
+ { 0.90451074530096287, 0.10000000000000009, 0.59999999999999998,
+ 1.0471975511965976 },
+ { 1.0220113666961632, 0.10000000000000009, 0.59999999999999998,
+ 1.2217304763960306 },
+ { 1.1345351441065563, 0.10000000000000009, 0.59999999999999998,
+ 1.3962634015954636 },
+ { 1.2445798942989255, 0.10000000000000009, 0.59999999999999998,
+ 1.5707963267948966 },
+};
+const double toler107 = 2.5000000000000020e-13;
+
+// Test data for k=0.10000000000000009, nu=0.69999999999999996.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 5.5172091551439012e-16
+const testcase_ellint_3<double>
+data108[10] =
+{
+ { 0.0000000000000000, 0.10000000000000009, 0.69999999999999996,
+ 0.0000000000000000 },
+ { 0.17332403516105047, 0.10000000000000009, 0.69999999999999996,
+ 0.17453292519943295 },
+ { 0.33989939374896883, 0.10000000000000009, 0.69999999999999996,
+ 0.34906585039886590 },
+ { 0.49510719568614070, 0.10000000000000009, 0.69999999999999996,
+ 0.52359877559829882 },
+ { 0.63723607776354974, 0.10000000000000009, 0.69999999999999996,
+ 0.69813170079773179 },
+ { 0.76693133887935327, 0.10000000000000009, 0.69999999999999996,
+ 0.87266462599716477 },
+ { 0.88619382078823805, 0.10000000000000009, 0.69999999999999996,
+ 1.0471975511965976 },
+ { 0.99758012018676490, 0.10000000000000009, 0.69999999999999996,
+ 1.2217304763960306 },
+ { 1.1037642270814410, 0.10000000000000009, 0.69999999999999996,
+ 1.3962634015954636 },
+ { 1.2073745911083185, 0.10000000000000009, 0.69999999999999996,
+ 1.5707963267948966 },
+};
+const double toler108 = 2.5000000000000020e-13;
+
+// Test data for k=0.10000000000000009, nu=0.80000000000000004.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.1294144515772258e-16
+const testcase_ellint_3<double>
+data109[10] =
+{
+ { 0.0000000000000000, 0.10000000000000009, 0.80000000000000004,
+ 0.0000000000000000 },
+ { 0.17315255197057014, 0.10000000000000009, 0.80000000000000004,
+ 0.17453292519943295 },
+ { 0.33864936055747991, 0.10000000000000009, 0.80000000000000004,
+ 0.34906585039886590 },
+ { 0.49143537041117613, 0.10000000000000009, 0.80000000000000004,
+ 0.52359877559829882 },
+ { 0.62987861760047492, 0.10000000000000009, 0.80000000000000004,
+ 0.69813170079773179 },
+ { 0.75496005490917517, 0.10000000000000009, 0.80000000000000004,
+ 0.87266462599716477 },
+ { 0.86903081862701881, 0.10000000000000009, 0.80000000000000004,
+ 1.0471975511965976 },
+ { 0.97490814820725591, 0.10000000000000009, 0.80000000000000004,
+ 1.2217304763960306 },
+ { 1.0754290107171083, 0.10000000000000009, 0.80000000000000004,
+ 1.3962634015954636 },
+ { 1.1733158866987732, 0.10000000000000009, 0.80000000000000004,
+ 1.5707963267948966 },
+};
+const double toler109 = 2.5000000000000020e-13;
+
+// Test data for k=0.10000000000000009, nu=0.90000000000000002.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.2325599449457852e-16
+const testcase_ellint_3<double>
+data110[10] =
+{
+ { 0.0000000000000000, 0.10000000000000009, 0.90000000000000002,
+ 0.0000000000000000 },
+ { 0.17298167549096563, 0.10000000000000009, 0.90000000000000002,
+ 0.17453292519943295 },
+ { 0.33741546662741589, 0.10000000000000009, 0.90000000000000002,
+ 0.34906585039886590 },
+ { 0.48785665376856868, 0.10000000000000009, 0.90000000000000002,
+ 0.52359877559829882 },
+ { 0.62280288554518959, 0.10000000000000009, 0.90000000000000002,
+ 0.69813170079773179 },
+ { 0.74358903115455188, 0.10000000000000009, 0.90000000000000002,
+ 0.87266462599716477 },
+ { 0.85290207679298335, 0.10000000000000009, 0.90000000000000002,
+ 1.0471975511965976 },
+ { 0.95379006645397379, 0.10000000000000009, 0.90000000000000002,
+ 1.2217304763960306 },
+ { 1.0492213119872327, 0.10000000000000009, 0.90000000000000002,
+ 1.3962634015954636 },
+ { 1.1419839485283374, 0.10000000000000009, 0.90000000000000002,
+ 1.5707963267948966 },
+};
+const double toler110 = 2.5000000000000020e-13;
+
+// Test data for k=0.19999999999999996, nu=0.0000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.2156475739151676e-16
+const testcase_ellint_3<double>
+data111[10] =
+{
+ { 0.0000000000000000, 0.19999999999999996, 0.0000000000000000,
+ 0.0000000000000000 },
+ { 0.17456817290292809, 0.19999999999999996, 0.0000000000000000,
+ 0.17453292519943295 },
+ { 0.34934315932086801, 0.19999999999999996, 0.0000000000000000,
+ 0.34906585039886590 },
+ { 0.52450880529443988, 0.19999999999999996, 0.0000000000000000,
+ 0.52359877559829882 },
+ { 0.70020491009844876, 0.19999999999999996, 0.0000000000000000,
+ 0.69813170079773179 },
+ { 0.87651006649967955, 0.19999999999999996, 0.0000000000000000,
+ 0.87266462599716477 },
+ { 1.0534305870298994, 0.19999999999999996, 0.0000000000000000,
+ 1.0471975511965976 },
+ { 1.2308975521670784, 0.19999999999999996, 0.0000000000000000,
+ 1.2217304763960306 },
+ { 1.4087733584990738, 0.19999999999999996, 0.0000000000000000,
+ 1.3962634015954636 },
+ { 1.5868678474541660, 0.19999999999999996, 0.0000000000000000,
+ 1.5707963267948966 },
+};
+const double toler111 = 2.5000000000000020e-13;
+
+// Test data for k=0.19999999999999996, nu=0.10000000000000001.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.3374593253183472e-16
+const testcase_ellint_3<double>
+data112[10] =
+{
+ { 0.0000000000000000, 0.19999999999999996, 0.10000000000000001,
+ 0.0000000000000000 },
+ { 0.17439228502691748, 0.19999999999999996, 0.10000000000000001,
+ 0.17453292519943295 },
+ { 0.34796731137565740, 0.19999999999999996, 0.10000000000000001,
+ 0.34906585039886590 },
+ { 0.52003370294544848, 0.19999999999999996, 0.10000000000000001,
+ 0.52359877559829882 },
+ { 0.69012222258631462, 0.19999999999999996, 0.10000000000000001,
+ 0.69813170079773179 },
+ { 0.85803491465566772, 0.19999999999999996, 0.10000000000000001,
+ 0.87266462599716477 },
+ { 1.0238463961099364, 0.19999999999999996, 0.10000000000000001,
+ 1.0471975511965976 },
+ { 1.1878691059202153, 0.19999999999999996, 0.10000000000000001,
+ 1.2217304763960306 },
+ { 1.3505985031831940, 0.19999999999999996, 0.10000000000000001,
+ 1.3962634015954636 },
+ { 1.5126513474261087, 0.19999999999999996, 0.10000000000000001,
+ 1.5707963267948966 },
+};
+const double toler112 = 2.5000000000000020e-13;
+
+// Test data for k=0.19999999999999996, nu=0.20000000000000001.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.4549984059502760e-16
+const testcase_ellint_3<double>
+data113[10] =
+{
+ { 0.0000000000000000, 0.19999999999999996, 0.20000000000000001,
+ 0.0000000000000000 },
+ { 0.17421703179583747, 0.19999999999999996, 0.20000000000000001,
+ 0.17453292519943295 },
+ { 0.34661057411998791, 0.19999999999999996, 0.20000000000000001,
+ 0.34906585039886590 },
+ { 0.51569006052647393, 0.19999999999999996, 0.20000000000000001,
+ 0.52359877559829882 },
+ { 0.68052412821107244, 0.19999999999999996, 0.20000000000000001,
+ 0.69813170079773179 },
+ { 0.84081341263313825, 0.19999999999999996, 0.20000000000000001,
+ 0.87266462599716477 },
+ { 0.99683359988842890, 0.19999999999999996, 0.20000000000000001,
+ 1.0471975511965976 },
+ { 1.1493086715118852, 0.19999999999999996, 0.20000000000000001,
+ 1.2217304763960306 },
+ { 1.2992699693957541, 0.19999999999999996, 0.20000000000000001,
+ 1.3962634015954636 },
+ { 1.4479323932249564, 0.19999999999999996, 0.20000000000000001,
+ 1.5707963267948966 },
+};
+const double toler113 = 2.5000000000000020e-13;
+
+// Test data for k=0.19999999999999996, nu=0.29999999999999999.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 5.3140668101543467e-16
+const testcase_ellint_3<double>
+data114[10] =
+{
+ { 0.0000000000000000, 0.19999999999999996, 0.29999999999999999,
+ 0.0000000000000000 },
+ { 0.17404240913577704, 0.19999999999999996, 0.29999999999999999,
+ 0.17453292519943295 },
+ { 0.34527248032587193, 0.19999999999999996, 0.29999999999999999,
+ 0.34906585039886590 },
+ { 0.51147118981668416, 0.19999999999999996, 0.29999999999999999,
+ 0.52359877559829882 },
+ { 0.67137107867777601, 0.19999999999999996, 0.29999999999999999,
+ 0.69813170079773179 },
+ { 0.82470418188668893, 0.19999999999999996, 0.29999999999999999,
+ 0.87266462599716477 },
+ { 0.97202873223594299, 0.19999999999999996, 0.29999999999999999,
+ 1.0471975511965976 },
+ { 1.1144773569375266, 0.19999999999999996, 0.29999999999999999,
+ 1.2217304763960306 },
+ { 1.2535292433701000, 0.19999999999999996, 0.29999999999999999,
+ 1.3962634015954636 },
+ { 1.3908453514752477, 0.19999999999999996, 0.29999999999999999,
+ 1.5707963267948966 },
+};
+const double toler114 = 2.5000000000000020e-13;
+
+// Test data for k=0.19999999999999996, nu=0.40000000000000002.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.6788709752760483e-16
+const testcase_ellint_3<double>
+data115[10] =
+{
+ { 0.0000000000000000, 0.19999999999999996, 0.40000000000000002,
+ 0.0000000000000000 },
+ { 0.17386841301066674, 0.19999999999999996, 0.40000000000000002,
+ 0.17453292519943295 },
+ { 0.34395257914113253, 0.19999999999999996, 0.40000000000000002,
+ 0.34906585039886590 },
+ { 0.50737088376869466, 0.19999999999999996, 0.40000000000000002,
+ 0.52359877559829882 },
+ { 0.66262801717277631, 0.19999999999999996, 0.40000000000000002,
+ 0.69813170079773179 },
+ { 0.80958766645079094, 0.19999999999999996, 0.40000000000000002,
+ 0.87266462599716477 },
+ { 0.94913754236162040, 0.19999999999999996, 0.40000000000000002,
+ 1.0471975511965976 },
+ { 1.0827985514222997, 0.19999999999999996, 0.40000000000000002,
+ 1.2217304763960306 },
+ { 1.2124212429050478, 0.19999999999999996, 0.40000000000000002,
+ 1.3962634015954636 },
+ { 1.3400002519661005, 0.19999999999999996, 0.40000000000000002,
+ 1.5707963267948966 },
+};
+const double toler115 = 2.5000000000000020e-13;
+
+// Test data for k=0.19999999999999996, nu=0.50000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.7788201301356829e-16
+const testcase_ellint_3<double>
+data116[10] =
+{
+ { 0.0000000000000000, 0.19999999999999996, 0.50000000000000000,
+ 0.0000000000000000 },
+ { 0.17369503942181799, 0.19999999999999996, 0.50000000000000000,
+ 0.17453292519943295 },
+ { 0.34265043534362660, 0.19999999999999996, 0.50000000000000000,
+ 0.34906585039886590 },
+ { 0.50338337208655415, 0.19999999999999996, 0.50000000000000000,
+ 0.52359877559829882 },
+ { 0.65426373297163609, 0.19999999999999996, 0.50000000000000000,
+ 0.69813170079773179 },
+ { 0.79536193036145808, 0.19999999999999996, 0.50000000000000000,
+ 0.87266462599716477 },
+ { 0.92791875910061605, 0.19999999999999996, 0.50000000000000000,
+ 1.0471975511965976 },
+ { 1.0538145052725829, 0.19999999999999996, 0.50000000000000000,
+ 1.2217304763960306 },
+ { 1.1752060022875899, 0.19999999999999996, 0.50000000000000000,
+ 1.3962634015954636 },
+ { 1.2943374404397372, 0.19999999999999996, 0.50000000000000000,
+ 1.5707963267948966 },
+};
+const double toler116 = 2.5000000000000020e-13;
+
+// Test data for k=0.19999999999999996, nu=0.59999999999999998.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.8899223779598256e-16
+const testcase_ellint_3<double>
+data117[10] =
+{
+ { 0.0000000000000000, 0.19999999999999996, 0.59999999999999998,
+ 0.0000000000000000 },
+ { 0.17352228440746925, 0.19999999999999996, 0.59999999999999998,
+ 0.17453292519943295 },
+ { 0.34136562863713626, 0.19999999999999996, 0.59999999999999998,
+ 0.34906585039886590 },
+ { 0.49950328177638481, 0.19999999999999996, 0.59999999999999998,
+ 0.52359877559829882 },
+ { 0.64625032705690799, 0.19999999999999996, 0.59999999999999998,
+ 0.69813170079773179 },
+ { 0.78193941198403083, 0.19999999999999996, 0.59999999999999998,
+ 0.87266462599716477 },
+ { 0.90817230934317128, 0.19999999999999996, 0.59999999999999998,
+ 1.0471975511965976 },
+ { 1.0271563751276462, 0.19999999999999996, 0.59999999999999998,
+ 1.2217304763960306 },
+ { 1.1412999379040518, 0.19999999999999996, 0.59999999999999998,
+ 1.3962634015954636 },
+ { 1.2530330675914556, 0.19999999999999996, 0.59999999999999998,
+ 1.5707963267948966 },
+};
+const double toler117 = 2.5000000000000020e-13;
+
+// Test data for k=0.19999999999999996, nu=0.69999999999999996.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 5.9999318361775115e-16
+const testcase_ellint_3<double>
+data118[10] =
+{
+ { 0.0000000000000000, 0.19999999999999996, 0.69999999999999996,
+ 0.0000000000000000 },
+ { 0.17335014404233895, 0.19999999999999996, 0.69999999999999996,
+ 0.17453292519943295 },
+ { 0.34009775298617811, 0.19999999999999996, 0.69999999999999996,
+ 0.34906585039886590 },
+ { 0.49572560201923810, 0.19999999999999996, 0.69999999999999996,
+ 0.52359877559829882 },
+ { 0.63856276669886503, 0.19999999999999996, 0.69999999999999996,
+ 0.69813170079773179 },
+ { 0.76924438644867565, 0.19999999999999996, 0.69999999999999996,
+ 0.87266462599716477 },
+ { 0.88973060843856466, 0.19999999999999996, 0.69999999999999996,
+ 1.0471975511965976 },
+ { 1.0025230471636377, 0.19999999999999996, 0.69999999999999996,
+ 1.2217304763960306 },
+ { 1.1102356376093103, 0.19999999999999996, 0.69999999999999996,
+ 1.3962634015954636 },
+ { 1.2154356555075863, 0.19999999999999996, 0.69999999999999996,
+ 1.5707963267948966 },
+};
+const double toler118 = 2.5000000000000020e-13;
+
+// Test data for k=0.19999999999999996, nu=0.80000000000000004.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 5.0901276230707249e-16
+const testcase_ellint_3<double>
+data119[10] =
+{
+ { 0.0000000000000000, 0.19999999999999996, 0.80000000000000004,
+ 0.0000000000000000 },
+ { 0.17317861443718538, 0.19999999999999996, 0.80000000000000004,
+ 0.17453292519943295 },
+ { 0.33884641598718701, 0.19999999999999996, 0.80000000000000004,
+ 0.34906585039886590 },
+ { 0.49204565281259494, 0.19999999999999996, 0.80000000000000004,
+ 0.52359877559829882 },
+ { 0.63117851188220320, 0.19999999999999996, 0.80000000000000004,
+ 0.69813170079773179 },
+ { 0.75721095949544170, 0.19999999999999996, 0.80000000000000004,
+ 0.87266462599716477 },
+ { 0.87245201443919118, 0.19999999999999996, 0.80000000000000004,
+ 1.0471975511965976 },
+ { 0.97966584238831089, 0.19999999999999996, 0.80000000000000004,
+ 1.2217304763960306 },
+ { 1.0816336325174360, 0.19999999999999996, 0.80000000000000004,
+ 1.3962634015954636 },
+ { 1.1810223448909909, 0.19999999999999996, 0.80000000000000004,
+ 1.5707963267948966 },
+};
+const double toler119 = 2.5000000000000020e-13;
+
+// Test data for k=0.19999999999999996, nu=0.90000000000000002.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 6.4833128442756722e-16
+const testcase_ellint_3<double>
+data120[10] =
+{
+ { 0.0000000000000000, 0.19999999999999996, 0.90000000000000002,
+ 0.0000000000000000 },
+ { 0.17300769173837277, 0.19999999999999996, 0.90000000000000002,
+ 0.17453292519943295 },
+ { 0.33761123827372508, 0.19999999999999996, 0.90000000000000002,
+ 0.34906585039886590 },
+ { 0.48845905690769426, 0.19999999999999996, 0.90000000000000002,
+ 0.52359877559829882 },
+ { 0.62407720017324952, 0.19999999999999996, 0.90000000000000002,
+ 0.69813170079773179 },
+ { 0.74578146525124289, 0.19999999999999996, 0.90000000000000002,
+ 0.87266462599716477 },
+ { 0.85621583540073076, 0.19999999999999996, 0.90000000000000002,
+ 1.0471975511965976 },
+ { 0.95837725988001199, 0.19999999999999996, 0.90000000000000002,
+ 1.2217304763960306 },
+ { 1.0551821412633928, 0.19999999999999996, 0.90000000000000002,
+ 1.3962634015954636 },
+ { 1.1493679916141861, 0.19999999999999996, 0.90000000000000002,
+ 1.5707963267948966 },
+};
+const double toler120 = 2.5000000000000020e-13;
+
+// Test data for k=0.30000000000000004, nu=0.0000000000000000.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 6.3361874537309281e-16
+const testcase_ellint_3<double>
+data121[10] =
+{
+ { 0.0000000000000000, 0.30000000000000004, 0.0000000000000000,
+ 0.0000000000000000 },
+ { 0.17461228653000099, 0.30000000000000004, 0.0000000000000000,
+ 0.17453292519943295 },
+ { 0.34969146102798415, 0.30000000000000004, 0.0000000000000000,
+ 0.34906585039886590 },
+ { 0.52565822873726320, 0.30000000000000004, 0.0000000000000000,
+ 0.52359877559829882 },
+ { 0.70284226512408532, 0.30000000000000004, 0.0000000000000000,
+ 0.69813170079773179 },
+ { 0.88144139195111182, 0.30000000000000004, 0.0000000000000000,
+ 0.87266462599716477 },
+ { 1.0614897067260520, 0.30000000000000004, 0.0000000000000000,
+ 1.0471975511965976 },
+ { 1.2428416824174218, 0.30000000000000004, 0.0000000000000000,
+ 1.2217304763960306 },
+ { 1.4251795877015927, 0.30000000000000004, 0.0000000000000000,
+ 1.3962634015954636 },
+ { 1.6080486199305128, 0.30000000000000004, 0.0000000000000000,
+ 1.5707963267948966 },
+};
+const double toler121 = 2.5000000000000020e-13;
+
+// Test data for k=0.30000000000000004, nu=0.10000000000000001.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 6.3908043711907203e-16
+const testcase_ellint_3<double>
+data122[10] =
+{
+ { 0.0000000000000000, 0.30000000000000004, 0.10000000000000001,
+ 0.0000000000000000 },
+ { 0.17443631884814376, 0.30000000000000004, 0.10000000000000001,
+ 0.17453292519943295 },
+ { 0.34831316835124926, 0.30000000000000004, 0.10000000000000001,
+ 0.34906585039886590 },
+ { 0.52116586276523857, 0.30000000000000004, 0.10000000000000001,
+ 0.52359877559829882 },
+ { 0.69269385837910036, 0.30000000000000004, 0.10000000000000001,
+ 0.69813170079773179 },
+ { 0.86279023163070856, 0.30000000000000004, 0.10000000000000001,
+ 0.87266462599716477 },
+ { 1.0315321461438263, 0.30000000000000004, 0.10000000000000001,
+ 1.0471975511965976 },
+ { 1.1991449111869024, 0.30000000000000004, 0.10000000000000001,
+ 1.2217304763960306 },
+ { 1.3659561780923213, 0.30000000000000004, 0.10000000000000001,
+ 1.3962634015954636 },
+ { 1.5323534693557528, 0.30000000000000004, 0.10000000000000001,
+ 1.5707963267948966 },
+};
+const double toler122 = 2.5000000000000020e-13;
+
+// Test data for k=0.30000000000000004, nu=0.20000000000000001.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 6.4447238179454079e-16
+const testcase_ellint_3<double>
+data123[10] =
+{
+ { 0.0000000000000000, 0.30000000000000004, 0.20000000000000001,
+ 0.0000000000000000 },
+ { 0.17426098615372088, 0.30000000000000004, 0.20000000000000001,
+ 0.17453292519943295 },
+ { 0.34695402664689923, 0.30000000000000004, 0.20000000000000001,
+ 0.34906585039886590 },
+ { 0.51680555567038933, 0.30000000000000004, 0.20000000000000001,
+ 0.52359877559829882 },
+ { 0.68303375225260210, 0.30000000000000004, 0.20000000000000001,
+ 0.69813170079773179 },
+ { 0.84540662891295026, 0.30000000000000004, 0.20000000000000001,
+ 0.87266462599716477 },
+ { 1.0041834051646927, 0.30000000000000004, 0.20000000000000001,
+ 1.0471975511965976 },
+ { 1.1599952702345711, 0.30000000000000004, 0.20000000000000001,
+ 1.2217304763960306 },
+ { 1.3137179520499165, 0.30000000000000004, 0.20000000000000001,
+ 1.3962634015954636 },
+ { 1.4663658145259877, 0.30000000000000004, 0.20000000000000001,
+ 1.5707963267948966 },
+};
+const double toler123 = 2.5000000000000020e-13;
+
+// Test data for k=0.30000000000000004, nu=0.29999999999999999.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 6.4979715256503266e-16
+const testcase_ellint_3<double>
+data124[10] =
+{
+ { 0.0000000000000000, 0.30000000000000004, 0.29999999999999999,
+ 0.0000000000000000 },
+ { 0.17408628437042842, 0.30000000000000004, 0.29999999999999999,
+ 0.17453292519943295 },
+ { 0.34561356761638401, 0.30000000000000004, 0.29999999999999999,
+ 0.34906585039886590 },
+ { 0.51257058617875850, 0.30000000000000004, 0.29999999999999999,
+ 0.52359877559829882 },
+ { 0.67382207124602878, 0.30000000000000004, 0.29999999999999999,
+ 0.69813170079773179 },
+ { 0.82914751587825131, 0.30000000000000004, 0.29999999999999999,
+ 0.87266462599716477 },
+ { 0.97907434814374938, 0.30000000000000004, 0.29999999999999999,
+ 1.0471975511965976 },
+ { 1.1246399297351584, 0.30000000000000004, 0.29999999999999999,
+ 1.2217304763960306 },
+ { 1.2671793970398149, 0.30000000000000004, 0.29999999999999999,
+ 1.3962634015954636 },
+ { 1.4081767433479091, 0.30000000000000004, 0.29999999999999999,
+ 1.5707963267948966 },
+};
+const double toler124 = 2.5000000000000020e-13;
+
+// Test data for k=0.30000000000000004, nu=0.40000000000000002.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 6.5505716921759864e-16
+const testcase_ellint_3<double>
+data125[10] =
+{
+ { 0.0000000000000000, 0.30000000000000004, 0.40000000000000002,
+ 0.0000000000000000 },
+ { 0.17391220945982727, 0.30000000000000004, 0.40000000000000002,
+ 0.17453292519943295 },
+ { 0.34429133937639689, 0.30000000000000004, 0.40000000000000002,
+ 0.34906585039886590 },
+ { 0.50845471668581632, 0.30000000000000004, 0.40000000000000002,
+ 0.52359877559829882 },
+ { 0.66502347027873854, 0.30000000000000004, 0.40000000000000002,
+ 0.69813170079773179 },
+ { 0.81389191978012254, 0.30000000000000004, 0.40000000000000002,
+ 0.87266462599716477 },
+ { 0.95590618002140570, 0.30000000000000004, 0.40000000000000002,
+ 1.0471975511965976 },
+ { 1.0924915195213121, 0.30000000000000004, 0.40000000000000002,
+ 1.2217304763960306 },
+ { 1.2253651604038061, 0.30000000000000004, 0.40000000000000002,
+ 1.3962634015954636 },
+ { 1.3563643538969763, 0.30000000000000004, 0.40000000000000002,
+ 1.5707963267948966 },
+};
+const double toler125 = 2.5000000000000020e-13;
+
+// Test data for k=0.30000000000000004, nu=0.50000000000000000.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 6.7807908859023716e-16
+const testcase_ellint_3<double>
+data126[10] =
+{
+ { 0.0000000000000000, 0.30000000000000004, 0.50000000000000000,
+ 0.0000000000000000 },
+ { 0.17373875742088232, 0.30000000000000004, 0.50000000000000000,
+ 0.17453292519943295 },
+ { 0.34298690571124157, 0.30000000000000004, 0.50000000000000000,
+ 0.34906585039886590 },
+ { 0.50445214859646936, 0.30000000000000004, 0.50000000000000000,
+ 0.52359877559829882 },
+ { 0.65660648352418516, 0.30000000000000004, 0.50000000000000000,
+ 0.69813170079773179 },
+ { 0.79953670639287289, 0.30000000000000004, 0.50000000000000000,
+ 0.87266462599716477 },
+ { 0.93443393926588536, 0.30000000000000004, 0.50000000000000000,
+ 1.0471975511965976 },
+ { 1.0630838369016911, 0.30000000000000004, 0.50000000000000000,
+ 1.2217304763960306 },
+ { 1.1875197325653029, 0.30000000000000004, 0.50000000000000000,
+ 1.3962634015954636 },
+ { 1.3098448759814962, 0.30000000000000004, 0.50000000000000000,
+ 1.5707963267948966 },
+};
+const double toler126 = 2.5000000000000020e-13;
+
+// Test data for k=0.30000000000000004, nu=0.59999999999999998.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 7.0057999499931649e-16
+const testcase_ellint_3<double>
+data127[10] =
+{
+ { 0.0000000000000000, 0.30000000000000004, 0.59999999999999998,
+ 0.0000000000000000 },
+ { 0.17356592428950823, 0.30000000000000004, 0.59999999999999998,
+ 0.17453292519943295 },
+ { 0.34169984536697379, 0.30000000000000004, 0.59999999999999998,
+ 0.34906585039886590 },
+ { 0.50055748266498457, 0.30000000000000004, 0.59999999999999998,
+ 0.52359877559829882 },
+ { 0.64854298527106768, 0.30000000000000004, 0.59999999999999998,
+ 0.69813170079773179 },
+ { 0.78599329284207431, 0.30000000000000004, 0.59999999999999998,
+ 0.87266462599716477 },
+ { 0.91445452089128199, 0.30000000000000004, 0.59999999999999998,
+ 1.0471975511965976 },
+ { 1.0360412952290587, 0.30000000000000004, 0.59999999999999998,
+ 1.2217304763960306 },
+ { 1.1530473919778641, 0.30000000000000004, 0.59999999999999998,
+ 1.3962634015954636 },
+ { 1.2677758800420669, 0.30000000000000004, 0.59999999999999998,
+ 1.5707963267948966 },
+};
+const double toler127 = 2.5000000000000020e-13;
+
+// Test data for k=0.30000000000000004, nu=0.69999999999999996.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 7.2239502844122443e-16
+const testcase_ellint_3<double>
+data128[10] =
+{
+ { 0.0000000000000000, 0.30000000000000004, 0.69999999999999996,
+ 0.0000000000000000 },
+ { 0.17339370613812224, 0.30000000000000004, 0.69999999999999996,
+ 0.17453292519943295 },
+ { 0.34042975138455933, 0.30000000000000004, 0.69999999999999996,
+ 0.34906585039886590 },
+ { 0.49676568368075985, 0.30000000000000004, 0.69999999999999996,
+ 0.52359877559829882 },
+ { 0.64080774055753720, 0.30000000000000004, 0.69999999999999996,
+ 0.69813170079773179 },
+ { 0.77318507779667278, 0.30000000000000004, 0.69999999999999996,
+ 0.87266462599716477 },
+ { 0.89579782346548609, 0.30000000000000004, 0.69999999999999996,
+ 1.0471975511965976 },
+ { 1.0110573286052202, 0.30000000000000004, 0.69999999999999996,
+ 1.2217304763960306 },
+ { 1.1214710972949635, 0.30000000000000004, 0.69999999999999996,
+ 1.3962634015954636 },
+ { 1.2294913236274982, 0.30000000000000004, 0.69999999999999996,
+ 1.5707963267948966 },
+};
+const double toler128 = 2.5000000000000020e-13;
+
+// Test data for k=0.30000000000000004, nu=0.80000000000000004.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 7.4358357000101250e-16
+const testcase_ellint_3<double>
+data129[10] =
+{
+ { 0.0000000000000000, 0.30000000000000004, 0.80000000000000004,
+ 0.0000000000000000 },
+ { 0.17322209907520358, 0.30000000000000004, 0.80000000000000004,
+ 0.17453292519943295 },
+ { 0.33917623046949996, 0.30000000000000004, 0.80000000000000004,
+ 0.34906585039886590 },
+ { 0.49307204894329176, 0.30000000000000004, 0.80000000000000004,
+ 0.52359877559829882 },
+ { 0.63337802830291734, 0.30000000000000004, 0.80000000000000004,
+ 0.69813170079773179 },
+ { 0.76104540997689407, 0.30000000000000004, 0.80000000000000004,
+ 0.87266462599716477 },
+ { 0.87832009635450714, 0.30000000000000004, 0.80000000000000004,
+ 1.0471975511965976 },
+ { 0.98787879723171790, 0.30000000000000004, 0.80000000000000004,
+ 1.2217304763960306 },
+ { 1.0924036340069339, 0.30000000000000004, 0.80000000000000004,
+ 1.3962634015954636 },
+ { 1.1944567571590048, 0.30000000000000004, 0.80000000000000004,
+ 1.5707963267948966 },
+};
+const double toler129 = 2.5000000000000020e-13;
+
+// Test data for k=0.30000000000000004, nu=0.90000000000000002.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 7.6419688299804087e-16
+const testcase_ellint_3<double>
+data130[10] =
+{
+ { 0.0000000000000000, 0.30000000000000004, 0.90000000000000002,
+ 0.0000000000000000 },
+ { 0.17305109924485945, 0.30000000000000004, 0.90000000000000002,
+ 0.17453292519943295 },
+ { 0.33793890239556984, 0.30000000000000004, 0.90000000000000002,
+ 0.34906585039886590 },
+ { 0.48947218005089738, 0.30000000000000004, 0.90000000000000002,
+ 0.52359877559829882 },
+ { 0.62623332340775151, 0.30000000000000004, 0.90000000000000002,
+ 0.69813170079773179 },
+ { 0.74951596581511148, 0.30000000000000004, 0.90000000000000002,
+ 0.87266462599716477 },
+ { 0.86189886597755994, 0.30000000000000004, 0.90000000000000002,
+ 1.0471975511965976 },
+ { 0.96629451153092005, 0.30000000000000004, 0.90000000000000002,
+ 1.2217304763960306 },
+ { 1.0655269133492682, 0.30000000000000004, 0.90000000000000002,
+ 1.3962634015954636 },
+ { 1.1622376896064914, 0.30000000000000004, 0.90000000000000002,
+ 1.5707963267948966 },
+};
+const double toler130 = 2.5000000000000020e-13;
+
+// Test data for k=0.39999999999999991, nu=0.0000000000000000.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 5.4157225142938039e-16
+const testcase_ellint_3<double>
+data131[10] =
+{
+ { 0.0000000000000000, 0.39999999999999991, 0.0000000000000000,
+ 0.0000000000000000 },
+ { 0.17467414669441528, 0.39999999999999991, 0.0000000000000000,
+ 0.17453292519943295 },
+ { 0.35018222772483443, 0.39999999999999991, 0.0000000000000000,
+ 0.34906585039886590 },
+ { 0.52729015917508737, 0.39999999999999991, 0.0000000000000000,
+ 0.52359877559829882 },
+ { 0.70662374407341244, 0.39999999999999991, 0.0000000000000000,
+ 0.69813170079773179 },
+ { 0.88859210497602170, 0.39999999999999991, 0.0000000000000000,
+ 0.87266462599716477 },
+ { 1.0733136290471379, 0.39999999999999991, 0.0000000000000000,
+ 1.0471975511965976 },
+ { 1.2605612170157061, 0.39999999999999991, 0.0000000000000000,
+ 1.2217304763960306 },
+ { 1.4497513956433439, 0.39999999999999991, 0.0000000000000000,
+ 1.3962634015954636 },
+ { 1.6399998658645112, 0.39999999999999991, 0.0000000000000000,
+ 1.5707963267948966 },
+};
+const double toler131 = 2.5000000000000020e-13;
+
+// Test data for k=0.39999999999999991, nu=0.10000000000000001.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 5.6859551010103832e-16
+const testcase_ellint_3<double>
+data132[10] =
+{
+ { 0.0000000000000000, 0.39999999999999991, 0.10000000000000001,
+ 0.0000000000000000 },
+ { 0.17449806706684670, 0.39999999999999991, 0.10000000000000001,
+ 0.17453292519943295 },
+ { 0.34880048623856075, 0.39999999999999991, 0.10000000000000001,
+ 0.34906585039886590 },
+ { 0.52277322065757392, 0.39999999999999991, 0.10000000000000001,
+ 0.52359877559829882 },
+ { 0.69638072056918365, 0.39999999999999991, 0.10000000000000001,
+ 0.69813170079773179 },
+ { 0.86968426619831540, 0.39999999999999991, 0.10000000000000001,
+ 0.87266462599716477 },
+ { 1.0428044206578095, 0.39999999999999991, 0.10000000000000001,
+ 1.0471975511965976 },
+ { 1.2158651158274378, 0.39999999999999991, 0.10000000000000001,
+ 1.2217304763960306 },
+ { 1.3889447129893324, 0.39999999999999991, 0.10000000000000001,
+ 1.3962634015954636 },
+ { 1.5620566886683604, 0.39999999999999991, 0.10000000000000001,
+ 1.5707963267948966 },
+};
+const double toler132 = 2.5000000000000020e-13;
+
+// Test data for k=0.39999999999999991, nu=0.20000000000000001.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 5.9444065952225719e-16
+const testcase_ellint_3<double>
+data133[10] =
+{
+ { 0.0000000000000000, 0.39999999999999991, 0.20000000000000001,
+ 0.0000000000000000 },
+ { 0.17432262290723397, 0.39999999999999991, 0.20000000000000001,
+ 0.17453292519943295 },
+ { 0.34743795258968596, 0.39999999999999991, 0.20000000000000001,
+ 0.34906585039886590 },
+ { 0.51838919472805112, 0.39999999999999991, 0.20000000000000001,
+ 0.52359877559829882 },
+ { 0.68663134739057907, 0.39999999999999991, 0.20000000000000001,
+ 0.69813170079773179 },
+ { 0.85206432981833979, 0.39999999999999991, 0.20000000000000001,
+ 0.87266462599716477 },
+ { 1.0149595349004430, 0.39999999999999991, 0.20000000000000001,
+ 1.0471975511965976 },
+ { 1.1758349405464676, 0.39999999999999991, 0.20000000000000001,
+ 1.2217304763960306 },
+ { 1.3353337673882637, 0.39999999999999991, 0.20000000000000001,
+ 1.3962634015954636 },
+ { 1.4941414344266770, 0.39999999999999991, 0.20000000000000001,
+ 1.5707963267948966 },
+};
+const double toler133 = 2.5000000000000020e-13;
+
+// Test data for k=0.39999999999999991, nu=0.29999999999999999.
+// max(|f - f_GSL|): 1.1102230246251565e-15
+// max(|f - f_GSL| / |f_GSL|): 7.7406350888907249e-16
+const testcase_ellint_3<double>
+data134[10] =
+{
+ { 0.0000000000000000, 0.39999999999999991, 0.29999999999999999,
+ 0.0000000000000000 },
+ { 0.17414781013591540, 0.39999999999999991, 0.29999999999999999,
+ 0.17453292519943295 },
+ { 0.34609415696777285, 0.39999999999999991, 0.29999999999999999,
+ 0.34906585039886590 },
+ { 0.51413131295862535, 0.39999999999999991, 0.29999999999999999,
+ 0.52359877559829882 },
+ { 0.67733527622935630, 0.39999999999999991, 0.29999999999999999,
+ 0.69813170079773179 },
+ { 0.83558675182733266, 0.39999999999999991, 0.29999999999999999,
+ 0.87266462599716477 },
+ { 0.98940140808865906, 0.39999999999999991, 0.29999999999999999,
+ 1.0471975511965976 },
+ { 1.1396968797728058, 0.39999999999999991, 0.29999999999999999,
+ 1.2217304763960306 },
+ { 1.2875920037865090, 0.39999999999999991, 0.29999999999999999,
+ 1.3962634015954636 },
+ { 1.4342789859950078, 0.39999999999999991, 0.29999999999999999,
+ 1.5707963267948966 },
+};
+const double toler134 = 2.5000000000000020e-13;
+
+// Test data for k=0.39999999999999991, nu=0.40000000000000002.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 6.4314214811441816e-16
+const testcase_ellint_3<double>
+data135[10] =
+{
+ { 0.0000000000000000, 0.39999999999999991, 0.40000000000000002,
+ 0.0000000000000000 },
+ { 0.17397362471112707, 0.39999999999999991, 0.40000000000000002,
+ 0.17453292519943295 },
+ { 0.34476864603333196, 0.39999999999999991, 0.40000000000000002,
+ 0.34906585039886590 },
+ { 0.50999329415379346, 0.39999999999999991, 0.40000000000000002,
+ 0.52359877559829882 },
+ { 0.66845674551396006, 0.39999999999999991, 0.40000000000000002,
+ 0.69813170079773179 },
+ { 0.82012848346231748, 0.39999999999999991, 0.40000000000000002,
+ 0.87266462599716477 },
+ { 0.96582449258349057, 0.39999999999999991, 0.40000000000000002,
+ 1.0471975511965976 },
+ { 1.1068473749476286, 0.39999999999999991, 0.40000000000000002,
+ 1.2217304763960306 },
+ { 1.2447132729159989, 0.39999999999999991, 0.40000000000000002,
+ 1.3962634015954636 },
+ { 1.3809986210732901, 0.39999999999999991, 0.40000000000000002,
+ 1.5707963267948966 },
+};
+const double toler135 = 2.5000000000000020e-13;
+
+// Test data for k=0.39999999999999991, nu=0.50000000000000000.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 6.6621057007519435e-16
+const testcase_ellint_3<double>
+data136[10] =
+{
+ { 0.0000000000000000, 0.39999999999999991, 0.50000000000000000,
+ 0.0000000000000000 },
+ { 0.17380006262854136, 0.39999999999999991, 0.50000000000000000,
+ 0.17453292519943295 },
+ { 0.34346098216756610, 0.39999999999999991, 0.50000000000000000,
+ 0.34906585039886590 },
+ { 0.50596929935059420, 0.39999999999999991, 0.50000000000000000,
+ 0.52359877559829882 },
+ { 0.65996392089131251, 0.39999999999999991, 0.50000000000000000,
+ 0.69813170079773179 },
+ { 0.80558463511364786, 0.39999999999999991, 0.50000000000000000,
+ 0.87266462599716477 },
+ { 0.94397834522857704, 0.39999999999999991, 0.50000000000000000,
+ 1.0471975511965976 },
+ { 1.0768075114108115, 0.39999999999999991, 0.50000000000000000,
+ 1.2217304763960306 },
+ { 1.2059184624251333, 0.39999999999999991, 0.50000000000000000,
+ 1.3962634015954636 },
+ { 1.3331797176377398, 0.39999999999999991, 0.50000000000000000,
+ 1.5707963267948966 },
+};
+const double toler136 = 2.5000000000000020e-13;
+
+// Test data for k=0.39999999999999991, nu=0.59999999999999998.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 6.8853630717730749e-16
+const testcase_ellint_3<double>
+data137[10] =
+{
+ { 0.0000000000000000, 0.39999999999999991, 0.59999999999999998,
+ 0.0000000000000000 },
+ { 0.17362711992081245, 0.39999999999999991, 0.59999999999999998,
+ 0.17453292519943295 },
+ { 0.34217074276403953, 0.39999999999999991, 0.59999999999999998,
+ 0.34906585039886590 },
+ { 0.50205389185761606, 0.39999999999999991, 0.59999999999999998,
+ 0.52359877559829882 },
+ { 0.65182834920372734, 0.39999999999999991, 0.59999999999999998,
+ 0.69813170079773179 },
+ { 0.79186512820565136, 0.39999999999999991, 0.59999999999999998,
+ 0.87266462599716477 },
+ { 0.92365535916287134, 0.39999999999999991, 0.59999999999999998,
+ 1.0471975511965976 },
+ { 1.0491915663957907, 0.39999999999999991, 0.59999999999999998,
+ 1.2217304763960306 },
+ { 1.1705934291745106, 0.39999999999999991, 0.59999999999999998,
+ 1.3962634015954636 },
+ { 1.2899514672527024, 0.39999999999999991, 0.59999999999999998,
+ 1.5707963267948966 },
+};
+const double toler137 = 2.5000000000000020e-13;
+
+// Test data for k=0.39999999999999991, nu=0.69999999999999996.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 7.1018730557776469e-16
+const testcase_ellint_3<double>
+data138[10] =
+{
+ { 0.0000000000000000, 0.39999999999999991, 0.69999999999999996,
+ 0.0000000000000000 },
+ { 0.17345479265712868, 0.39999999999999991, 0.69999999999999996,
+ 0.17453292519943295 },
+ { 0.34089751955950354, 0.39999999999999991, 0.69999999999999996,
+ 0.34906585039886590 },
+ { 0.49824200167361332, 0.39999999999999991, 0.69999999999999996,
+ 0.52359877559829882 },
+ { 0.64402450341199402, 0.39999999999999991, 0.69999999999999996,
+ 0.69813170079773179 },
+ { 0.77889207804122873, 0.39999999999999991, 0.69999999999999996,
+ 0.87266462599716477 },
+ { 0.90468169720957992, 0.39999999999999991, 0.69999999999999996,
+ 1.0471975511965976 },
+ { 1.0236847823692916, 0.39999999999999991, 0.69999999999999996,
+ 1.2217304763960306 },
+ { 1.1382465247425166, 0.39999999999999991, 0.69999999999999996,
+ 1.3962634015954636 },
+ { 1.2506255923253344, 0.39999999999999991, 0.69999999999999996,
+ 1.5707963267948966 },
+};
+const double toler138 = 2.5000000000000020e-13;
+
+// Test data for k=0.39999999999999991, nu=0.80000000000000004.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 7.3122171115555478e-16
+const testcase_ellint_3<double>
+data139[10] =
+{
+ { 0.0000000000000000, 0.39999999999999991, 0.80000000000000004,
+ 0.0000000000000000 },
+ { 0.17328307694277154, 0.39999999999999991, 0.80000000000000004,
+ 0.17453292519943295 },
+ { 0.33964091800132007, 0.39999999999999991, 0.80000000000000004,
+ 0.34906585039886590 },
+ { 0.49452889372467440, 0.39999999999999991, 0.80000000000000004,
+ 0.52359877559829882 },
+ { 0.63652940095937316, 0.39999999999999991, 0.80000000000000004,
+ 0.69813170079773179 },
+ { 0.76659772511159097, 0.39999999999999991, 0.80000000000000004,
+ 0.87266462599716477 },
+ { 0.88691047977338111, 0.39999999999999991, 0.80000000000000004,
+ 1.0471975511965976 },
+ { 1.0000273200611638, 0.39999999999999991, 0.80000000000000004,
+ 1.2217304763960306 },
+ { 1.1084787902188009, 0.39999999999999991, 0.80000000000000004,
+ 1.3962634015954636 },
+ { 1.2146499565727209, 0.39999999999999991, 0.80000000000000004,
+ 1.5707963267948966 },
+};
+const double toler139 = 2.5000000000000020e-13;
+
+// Test data for k=0.39999999999999991, nu=0.90000000000000002.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 7.5168974431077345e-16
+const testcase_ellint_3<double>
+data140[10] =
+{
+ { 0.0000000000000000, 0.39999999999999991, 0.90000000000000002,
+ 0.0000000000000000 },
+ { 0.17311196891868127, 0.39999999999999991, 0.90000000000000002,
+ 0.17453292519943295 },
+ { 0.33840055664911906, 0.39999999999999991, 0.90000000000000002,
+ 0.34906585039886590 },
+ { 0.49091013944075329, 0.39999999999999991, 0.90000000000000002,
+ 0.52359877559829882 },
+ { 0.62932228186809580, 0.39999999999999991, 0.90000000000000002,
+ 0.69813170079773179 },
+ { 0.75492278323019801, 0.39999999999999991, 0.90000000000000002,
+ 0.87266462599716477 },
+ { 0.87021659043854294, 0.39999999999999991, 0.90000000000000002,
+ 1.0471975511965976 },
+ { 0.97800245228239246, 0.39999999999999991, 0.90000000000000002,
+ 1.2217304763960306 },
+ { 1.0809625773173697, 0.39999999999999991, 0.90000000000000002,
+ 1.3962634015954636 },
+ { 1.1815758115929846, 0.39999999999999991, 0.90000000000000002,
+ 1.5707963267948966 },
+};
+const double toler140 = 2.5000000000000020e-13;
+
+// Test data for k=0.50000000000000000, nu=0.0000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 3.1201497220602069e-16
+const testcase_ellint_3<double>
+data141[10] =
+{
+ { 0.0000000000000000, 0.50000000000000000, 0.0000000000000000,
+ 0.0000000000000000 },
+ { 0.17475385514035785, 0.50000000000000000, 0.0000000000000000,
+ 0.17453292519943295 },
+ { 0.35081868470101585, 0.50000000000000000, 0.0000000000000000,
+ 0.34906585039886590 },
+ { 0.52942862705190574, 0.50000000000000000, 0.0000000000000000,
+ 0.52359877559829882 },
+ { 0.71164727562630314, 0.50000000000000000, 0.0000000000000000,
+ 0.69813170079773179 },
+ { 0.89824523594227768, 0.50000000000000000, 0.0000000000000000,
+ 0.87266462599716477 },
+ { 1.0895506700518851, 0.50000000000000000, 0.0000000000000000,
+ 1.0471975511965976 },
+ { 1.2853005857432931, 0.50000000000000000, 0.0000000000000000,
+ 1.2217304763960306 },
+ { 1.4845545520549484, 0.50000000000000000, 0.0000000000000000,
+ 1.3962634015954636 },
+ { 1.6857503548125963, 0.50000000000000000, 0.0000000000000000,
+ 1.5707963267948966 },
+};
+const double toler141 = 2.5000000000000020e-13;
+
+// Test data for k=0.50000000000000000, nu=0.10000000000000001.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 3.1662857256911530e-16
+const testcase_ellint_3<double>
+data142[10] =
+{
+ { 0.0000000000000000, 0.50000000000000000, 0.10000000000000001,
+ 0.0000000000000000 },
+ { 0.17457763120814676, 0.50000000000000000, 0.10000000000000001,
+ 0.17453292519943295 },
+ { 0.34943246340849154, 0.50000000000000000, 0.10000000000000001,
+ 0.34906585039886590 },
+ { 0.52487937869610790, 0.50000000000000000, 0.10000000000000001,
+ 0.52359877559829882 },
+ { 0.70127785096388384, 0.50000000000000000, 0.10000000000000001,
+ 0.69813170079773179 },
+ { 0.87898815988624479, 0.50000000000000000, 0.10000000000000001,
+ 0.87266462599716477 },
+ { 1.0582764576094172, 0.50000000000000000, 0.10000000000000001,
+ 1.0471975511965976 },
+ { 1.2391936844060205, 0.50000000000000000, 0.10000000000000001,
+ 1.2217304763960306 },
+ { 1.4214793542995841, 0.50000000000000000, 0.10000000000000001,
+ 1.3962634015954636 },
+ { 1.6045524936084892, 0.50000000000000000, 0.10000000000000001,
+ 1.5707963267948966 },
+};
+const double toler142 = 2.5000000000000020e-13;
+
+// Test data for k=0.50000000000000000, nu=0.20000000000000001.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 3.2114786773102175e-16
+const testcase_ellint_3<double>
+data143[10] =
+{
+ { 0.0000000000000000, 0.50000000000000000, 0.20000000000000001,
+ 0.0000000000000000 },
+ { 0.17440204336345433, 0.50000000000000000, 0.20000000000000001,
+ 0.17453292519943295 },
+ { 0.34806552388338824, 0.50000000000000000, 0.20000000000000001,
+ 0.34906585039886590 },
+ { 0.52046416757129810, 0.50000000000000000, 0.20000000000000001,
+ 0.52359877559829882 },
+ { 0.69140924550993865, 0.50000000000000000, 0.20000000000000001,
+ 0.69813170079773179 },
+ { 0.86104678636125520, 0.50000000000000000, 0.20000000000000001,
+ 0.87266462599716477 },
+ { 1.0297439459053981, 0.50000000000000000, 0.20000000000000001,
+ 1.0471975511965976 },
+ { 1.1979214112912033, 0.50000000000000000, 0.20000000000000001,
+ 1.2217304763960306 },
+ { 1.3659033858648930, 0.50000000000000000, 0.20000000000000001,
+ 1.3962634015954636 },
+ { 1.5338490483665983, 0.50000000000000000, 0.20000000000000001,
+ 1.5707963267948966 },
+};
+const double toler143 = 2.5000000000000020e-13;
+
+// Test data for k=0.50000000000000000, nu=0.29999999999999999.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 3.2557837230041312e-16
+const testcase_ellint_3<double>
+data144[10] =
+{
+ { 0.0000000000000000, 0.50000000000000000, 0.29999999999999999,
+ 0.0000000000000000 },
+ { 0.17422708752228896, 0.50000000000000000, 0.29999999999999999,
+ 0.17453292519943295 },
+ { 0.34671739434855858, 0.50000000000000000, 0.29999999999999999,
+ 0.34906585039886590 },
+ { 0.51617616305641878, 0.50000000000000000, 0.29999999999999999,
+ 0.52359877559829882 },
+ { 0.68200047612545167, 0.50000000000000000, 0.29999999999999999,
+ 0.69813170079773179 },
+ { 0.84427217869498372, 0.50000000000000000, 0.29999999999999999,
+ 0.87266462599716477 },
+ { 1.0035637821389782, 0.50000000000000000, 0.29999999999999999,
+ 1.0471975511965976 },
+ { 1.1606800483933111, 0.50000000000000000, 0.29999999999999999,
+ 1.2217304763960306 },
+ { 1.3164407134643459, 0.50000000000000000, 0.29999999999999999,
+ 1.3962634015954636 },
+ { 1.4715681939859637, 0.50000000000000000, 0.29999999999999999,
+ 1.5707963267948966 },
+};
+const double toler144 = 2.5000000000000020e-13;
+
+// Test data for k=0.50000000000000000, nu=0.40000000000000002.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 3.2992508582900068e-16
+const testcase_ellint_3<double>
+data145[10] =
+{
+ { 0.0000000000000000, 0.50000000000000000, 0.40000000000000002,
+ 0.0000000000000000 },
+ { 0.17405275963859917, 0.50000000000000000, 0.40000000000000002,
+ 0.17453292519943295 },
+ { 0.34538761957029329, 0.50000000000000000, 0.40000000000000002,
+ 0.34906585039886590 },
+ { 0.51200902646603907, 0.50000000000000000, 0.40000000000000002,
+ 0.52359877559829882 },
+ { 0.67301522212868792, 0.50000000000000000, 0.40000000000000002,
+ 0.69813170079773179 },
+ { 0.82853844466313320, 0.50000000000000000, 0.40000000000000002,
+ 0.87266462599716477 },
+ { 0.97942097862681488, 0.50000000000000000, 0.40000000000000002,
+ 1.0471975511965976 },
+ { 1.1268429801220614, 0.50000000000000000, 0.40000000000000002,
+ 1.2217304763960306 },
+ { 1.2720406704533922, 0.50000000000000000, 0.40000000000000002,
+ 1.3962634015954636 },
+ { 1.4161679518465340, 0.50000000000000000, 0.40000000000000002,
+ 1.5707963267948966 },
+};
+const double toler145 = 2.5000000000000020e-13;
+
+// Test data for k=0.50000000000000000, nu=0.50000000000000000.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 3.3419255755184137e-16
+const testcase_ellint_3<double>
+data146[10] =
+{
+ { 0.0000000000000000, 0.50000000000000000, 0.50000000000000000,
+ 0.0000000000000000 },
+ { 0.17387905570381157, 0.50000000000000000, 0.50000000000000000,
+ 0.17453292519943295 },
+ { 0.34407576010465207, 0.50000000000000000, 0.50000000000000000,
+ 0.34906585039886590 },
+ { 0.50795686560160824, 0.50000000000000000, 0.50000000000000000,
+ 0.52359877559829882 },
+ { 0.66442115453330164, 0.50000000000000000, 0.50000000000000000,
+ 0.69813170079773179 },
+ { 0.81373829119355345, 0.50000000000000000, 0.50000000000000000,
+ 0.87266462599716477 },
+ { 0.95705743313235825, 0.50000000000000000, 0.50000000000000000,
+ 1.0471975511965976 },
+ { 1.0959131991362554, 0.50000000000000000, 0.50000000000000000,
+ 1.2217304763960306 },
+ { 1.2318900529754597, 0.50000000000000000, 0.50000000000000000,
+ 1.3962634015954636 },
+ { 1.3664739530045971, 0.50000000000000000, 0.50000000000000000,
+ 1.5707963267948966 },
+};
+const double toler146 = 2.5000000000000020e-13;
+
+// Test data for k=0.50000000000000000, nu=0.59999999999999998.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 3.3838494104749599e-16
+const testcase_ellint_3<double>
+data147[10] =
+{
+ { 0.0000000000000000, 0.50000000000000000, 0.59999999999999998,
+ 0.0000000000000000 },
+ { 0.17370597174637581, 0.50000000000000000, 0.59999999999999998,
+ 0.17453292519943295 },
+ { 0.34278139158591414, 0.50000000000000000, 0.59999999999999998,
+ 0.34906585039886590 },
+ { 0.50401419439302708, 0.50000000000000000, 0.59999999999999998,
+ 0.52359877559829882 },
+ { 0.65618938076167210, 0.50000000000000000, 0.59999999999999998,
+ 0.69813170079773179 },
+ { 0.79977959248855424, 0.50000000000000000, 0.59999999999999998,
+ 0.87266462599716477 },
+ { 0.93625925190753545, 0.50000000000000000, 0.59999999999999998,
+ 1.0471975511965976 },
+ { 1.0674905658379708, 0.50000000000000000, 0.59999999999999998,
+ 1.2217304763960306 },
+ { 1.1953481298023050, 0.50000000000000000, 0.59999999999999998,
+ 1.3962634015954636 },
+ { 1.3215740290190876, 0.50000000000000000, 0.59999999999999998,
+ 1.5707963267948966 },
+};
+const double toler147 = 2.5000000000000020e-13;
+
+// Test data for k=0.50000000000000000, nu=0.69999999999999996.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 3.4250604066951477e-16
+const testcase_ellint_3<double>
+data148[10] =
+{
+ { 0.0000000000000000, 0.50000000000000000, 0.69999999999999996,
+ 0.0000000000000000 },
+ { 0.17353350383131641, 0.50000000000000000, 0.69999999999999996,
+ 0.17453292519943295 },
+ { 0.34150410405436771, 0.50000000000000000, 0.69999999999999996,
+ 0.34906585039886590 },
+ { 0.50017589696443487, 0.50000000000000000, 0.69999999999999996,
+ 0.52359877559829882 },
+ { 0.64829398188419951, 0.50000000000000000, 0.69999999999999996,
+ 0.69813170079773179 },
+ { 0.78658270782402073, 0.50000000000000000, 0.69999999999999996,
+ 0.87266462599716477 },
+ { 0.91684738336675053, 0.50000000000000000, 0.69999999999999996,
+ 1.0471975511965976 },
+ { 1.0412486789555935, 0.50000000000000000, 0.69999999999999996,
+ 1.2217304763960306 },
+ { 1.1619021847612001, 0.50000000000000000, 0.69999999999999996,
+ 1.3962634015954636 },
+ { 1.2807475181182502, 0.50000000000000000, 0.69999999999999996,
+ 1.5707963267948966 },
+};
+const double toler148 = 2.5000000000000020e-13;
+
+// Test data for k=0.50000000000000000, nu=0.80000000000000004.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.5715240651179632e-16
+const testcase_ellint_3<double>
+data149[10] =
+{
+ { 0.0000000000000000, 0.50000000000000000, 0.80000000000000004,
+ 0.0000000000000000 },
+ { 0.17336164805979126, 0.50000000000000000, 0.80000000000000004,
+ 0.17453292519943295 },
+ { 0.34024350132086773, 0.50000000000000000, 0.80000000000000004,
+ 0.34906585039886590 },
+ { 0.49643719555734073, 0.50000000000000000, 0.80000000000000004,
+ 0.52359877559829882 },
+ { 0.64071162456976150, 0.50000000000000000, 0.80000000000000004,
+ 0.69813170079773179 },
+ { 0.77407836177211908, 0.50000000000000000, 0.80000000000000004,
+ 0.87266462599716477 },
+ { 0.89867058251905652, 0.50000000000000000, 0.80000000000000004,
+ 1.0471975511965976 },
+ { 1.0169181822134910, 0.50000000000000000, 0.80000000000000004,
+ 1.2217304763960306 },
+ { 1.1311363312779448, 0.50000000000000000, 0.80000000000000004,
+ 1.3962634015954636 },
+ { 1.2434165408189539, 0.50000000000000000, 0.80000000000000004,
+ 1.5707963267948966 },
+};
+const double toler149 = 2.5000000000000020e-13;
+
+// Test data for k=0.50000000000000000, nu=0.90000000000000002.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.4664649039489274e-16
+const testcase_ellint_3<double>
+data150[10] =
+{
+ { 0.0000000000000000, 0.50000000000000000, 0.90000000000000002,
+ 0.0000000000000000 },
+ { 0.17319040056865681, 0.50000000000000000, 0.90000000000000002,
+ 0.17453292519943295 },
+ { 0.33899920036578557, 0.50000000000000000, 0.90000000000000002,
+ 0.34906585039886590 },
+ { 0.49279362182695174, 0.50000000000000000, 0.90000000000000002,
+ 0.52359877559829882 },
+ { 0.63342123379746151, 0.50000000000000000, 0.90000000000000002,
+ 0.69813170079773179 },
+ { 0.76220595179550321, 0.50000000000000000, 0.90000000000000002,
+ 0.87266462599716477 },
+ { 0.88160004743532294, 0.50000000000000000, 0.90000000000000002,
+ 1.0471975511965976 },
+ { 0.99427448642310123, 0.50000000000000000, 0.90000000000000002,
+ 1.2217304763960306 },
+ { 1.1027091512470095, 0.50000000000000000, 0.90000000000000002,
+ 1.3962634015954636 },
+ { 1.2091116095504744, 0.50000000000000000, 0.90000000000000002,
+ 1.5707963267948966 },
+};
+const double toler150 = 2.5000000000000020e-13;
+
+// Test data for k=0.60000000000000009, nu=0.0000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.3664899092028927e-16
+const testcase_ellint_3<double>
+data151[10] =
+{
+ { 0.0000000000000000, 0.60000000000000009, 0.0000000000000000,
+ 0.0000000000000000 },
+ { 0.17485154362988359, 0.60000000000000009, 0.0000000000000000,
+ 0.17453292519943295 },
+ { 0.35160509865544326, 0.60000000000000009, 0.0000000000000000,
+ 0.34906585039886590 },
+ { 0.53210652578446138, 0.60000000000000009, 0.0000000000000000,
+ 0.52359877559829882 },
+ { 0.71805304664485659, 0.60000000000000009, 0.0000000000000000,
+ 0.69813170079773179 },
+ { 0.91082759030195970, 0.60000000000000009, 0.0000000000000000,
+ 0.87266462599716477 },
+ { 1.1112333229323361, 0.60000000000000009, 0.0000000000000000,
+ 1.0471975511965976 },
+ { 1.3191461190365270, 0.60000000000000009, 0.0000000000000000,
+ 1.2217304763960306 },
+ { 1.5332022105084775, 0.60000000000000009, 0.0000000000000000,
+ 1.3962634015954636 },
+ { 1.7507538029157526, 0.60000000000000009, 0.0000000000000000,
+ 1.5707963267948966 },
+};
+const double toler151 = 2.5000000000000020e-13;
+
+// Test data for k=0.60000000000000009, nu=0.10000000000000001.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.4937942733669112e-16
+const testcase_ellint_3<double>
+data152[10] =
+{
+ { 0.0000000000000000, 0.60000000000000009, 0.10000000000000001,
+ 0.0000000000000000 },
+ { 0.17467514275022011, 0.60000000000000009, 0.10000000000000001,
+ 0.17453292519943295 },
+ { 0.35021333086258255, 0.60000000000000009, 0.10000000000000001,
+ 0.34906585039886590 },
+ { 0.52751664092962691, 0.60000000000000009, 0.10000000000000001,
+ 0.52359877559829882 },
+ { 0.70752126971957874, 0.60000000000000009, 0.10000000000000001,
+ 0.69813170079773179 },
+ { 0.89111058756112871, 0.60000000000000009, 0.10000000000000001,
+ 0.87266462599716477 },
+ { 1.0789241202877768, 0.60000000000000009, 0.10000000000000001,
+ 1.0471975511965976 },
+ { 1.2710800210399946, 0.60000000000000009, 0.10000000000000001,
+ 1.2217304763960306 },
+ { 1.4669060574440276, 0.60000000000000009, 0.10000000000000001,
+ 1.3962634015954636 },
+ { 1.6648615773343014, 0.60000000000000009, 0.10000000000000001,
+ 1.5707963267948966 },
+};
+const double toler152 = 2.5000000000000020e-13;
+
+// Test data for k=0.60000000000000009, nu=0.20000000000000001.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 4.1891472451898755e-16
+const testcase_ellint_3<double>
+data153[10] =
+{
+ { 0.0000000000000000, 0.60000000000000009, 0.20000000000000001,
+ 0.0000000000000000 },
+ { 0.17449937871800650, 0.60000000000000009, 0.20000000000000001,
+ 0.17453292519943295 },
+ { 0.34884093647346553, 0.60000000000000009, 0.20000000000000001,
+ 0.34906585039886590 },
+ { 0.52306221119844087, 0.60000000000000009, 0.20000000000000001,
+ 0.52359877559829882 },
+ { 0.69749955678982223, 0.60000000000000009, 0.20000000000000001,
+ 0.69813170079773179 },
+ { 0.87274610682416853, 0.60000000000000009, 0.20000000000000001,
+ 0.87266462599716477 },
+ { 1.0494620540750792, 0.60000000000000009, 0.20000000000000001,
+ 1.0471975511965976 },
+ { 1.2280847305507339, 0.60000000000000009, 0.20000000000000001,
+ 1.2217304763960306 },
+ { 1.4085436279696888, 0.60000000000000009, 0.20000000000000001,
+ 1.3962634015954636 },
+ { 1.5901418016279374, 0.60000000000000009, 0.20000000000000001,
+ 1.5707963267948966 },
+};
+const double toler153 = 2.5000000000000020e-13;
+
+// Test data for k=0.60000000000000009, nu=0.29999999999999999.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.7339932380431439e-16
+const testcase_ellint_3<double>
+data154[10] =
+{
+ { 0.0000000000000000, 0.60000000000000009, 0.29999999999999999,
+ 0.0000000000000000 },
+ { 0.17432424744393932, 0.60000000000000009, 0.29999999999999999,
+ 0.17453292519943295 },
+ { 0.34748744127146447, 0.60000000000000009, 0.29999999999999999,
+ 0.34906585039886590 },
+ { 0.51873632743924825, 0.60000000000000009, 0.29999999999999999,
+ 0.52359877559829882 },
+ { 0.68794610396313116, 0.60000000000000009, 0.29999999999999999,
+ 0.69813170079773179 },
+ { 0.85558070175468726, 0.60000000000000009, 0.29999999999999999,
+ 0.87266462599716477 },
+ { 1.0224416343605653, 0.60000000000000009, 0.29999999999999999,
+ 1.0471975511965976 },
+ { 1.1893144457936788, 0.60000000000000009, 0.29999999999999999,
+ 1.2217304763960306 },
+ { 1.3566435377982575, 0.60000000000000009, 0.29999999999999999,
+ 1.3962634015954636 },
+ { 1.5243814243493585, 0.60000000000000009, 0.29999999999999999,
+ 1.5707963267948966 },
+};
+const double toler154 = 2.5000000000000020e-13;
+
+// Test data for k=0.60000000000000009, nu=0.40000000000000002.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 4.5440898085101625e-16
+const testcase_ellint_3<double>
+data155[10] =
+{
+ { 0.0000000000000000, 0.60000000000000009, 0.40000000000000002,
+ 0.0000000000000000 },
+ { 0.17414974487670717, 0.60000000000000009, 0.40000000000000002,
+ 0.17453292519943295 },
+ { 0.34615238767335027, 0.60000000000000009, 0.40000000000000002,
+ 0.34906585039886590 },
+ { 0.51453257838108557, 0.60000000000000009, 0.40000000000000002,
+ 0.52359877559829882 },
+ { 0.67882386787534399, 0.60000000000000009, 0.40000000000000002,
+ 0.69813170079773179 },
+ { 0.83948470233173578, 0.60000000000000009, 0.40000000000000002,
+ 0.87266462599716477 },
+ { 0.99753496200073977, 0.60000000000000009, 0.40000000000000002,
+ 1.0471975511965976 },
+ { 1.1541101404388487, 0.60000000000000009, 0.40000000000000002,
+ 1.2217304763960306 },
+ { 1.3100911323398816, 0.60000000000000009, 0.40000000000000002,
+ 1.3962634015954636 },
+ { 1.4659345278069984, 0.60000000000000009, 0.40000000000000002,
+ 1.5707963267948966 },
+};
+const double toler155 = 2.5000000000000020e-13;
+
+// Test data for k=0.60000000000000009, nu=0.50000000000000000.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 4.7124937590522226e-16
+const testcase_ellint_3<double>
+data156[10] =
+{
+ { 0.0000000000000000, 0.60000000000000009, 0.50000000000000000,
+ 0.0000000000000000 },
+ { 0.17397586700252807, 0.60000000000000009, 0.50000000000000000,
+ 0.17453292519943295 },
+ { 0.34483533397138516, 0.60000000000000009, 0.50000000000000000,
+ 0.34906585039886590 },
+ { 0.51044500461706477, 0.60000000000000009, 0.50000000000000000,
+ 0.52359877559829882 },
+ { 0.67009988034712664, 0.60000000000000009, 0.50000000000000000,
+ 0.69813170079773179 },
+ { 0.82434762375735193, 0.60000000000000009, 0.50000000000000000,
+ 0.87266462599716477 },
+ { 0.97447346702798998, 0.60000000000000009, 0.50000000000000000,
+ 1.0471975511965976 },
+ { 1.1219494000522143, 0.60000000000000009, 0.50000000000000000,
+ 1.2217304763960306 },
+ { 1.2680242605954486, 0.60000000000000009, 0.50000000000000000,
+ 1.3962634015954636 },
+ { 1.4135484285693078, 0.60000000000000009, 0.50000000000000000,
+ 1.5707963267948966 },
+};
+const double toler156 = 2.5000000000000020e-13;
+
+// Test data for k=0.60000000000000009, nu=0.59999999999999998.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.0652177678695900e-16
+const testcase_ellint_3<double>
+data157[10] =
+{
+ { 0.0000000000000000, 0.60000000000000009, 0.59999999999999998,
+ 0.0000000000000000 },
+ { 0.17380260984469353, 0.60000000000000009, 0.59999999999999998,
+ 0.17453292519943295 },
+ { 0.34353585361777839, 0.60000000000000009, 0.59999999999999998,
+ 0.34906585039886590 },
+ { 0.50646805774321380, 0.60000000000000009, 0.59999999999999998,
+ 0.52359877559829882 },
+ { 0.66174468108625506, 0.60000000000000009, 0.59999999999999998,
+ 0.69813170079773179 },
+ { 0.81007462280278408, 0.60000000000000009, 0.59999999999999998,
+ 0.87266462599716477 },
+ { 0.95303466945718729, 0.60000000000000009, 0.59999999999999998,
+ 1.0471975511965976 },
+ { 1.0924118588677505, 0.60000000000000009, 0.59999999999999998,
+ 1.2217304763960306 },
+ { 1.2297640574847937, 0.60000000000000009, 0.59999999999999998,
+ 1.3962634015954636 },
+ { 1.3662507535812816, 0.60000000000000009, 0.59999999999999998,
+ 1.5707963267948966 },
+};
+const double toler157 = 2.5000000000000020e-13;
+
+// Test data for k=0.60000000000000009, nu=0.69999999999999996.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.1692457486457856e-16
+const testcase_ellint_3<double>
+data158[10] =
+{
+ { 0.0000000000000000, 0.60000000000000009, 0.69999999999999996,
+ 0.0000000000000000 },
+ { 0.17362996946312007, 0.60000000000000009, 0.69999999999999996,
+ 0.17453292519943295 },
+ { 0.34225353454870588, 0.60000000000000009, 0.69999999999999996,
+ 0.34906585039886590 },
+ { 0.50259656397799524, 0.60000000000000009, 0.69999999999999996,
+ 0.52359877559829882 },
+ { 0.65373184496628933, 0.60000000000000009, 0.69999999999999996,
+ 0.69813170079773179 },
+ { 0.79658372884056439, 0.60000000000000009, 0.69999999999999996,
+ 0.87266462599716477 },
+ { 0.93303240100245421, 0.60000000000000009, 0.69999999999999996,
+ 1.0471975511965976 },
+ { 1.0651547944716557, 0.60000000000000009, 0.69999999999999996,
+ 1.2217304763960306 },
+ { 1.1947676204853441, 0.60000000000000009, 0.69999999999999996,
+ 1.3962634015954636 },
+ { 1.3232737468822813, 0.60000000000000009, 0.69999999999999996,
+ 1.5707963267948966 },
+};
+const double toler158 = 2.5000000000000020e-13;
+
+// Test data for k=0.60000000000000009, nu=0.80000000000000004.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.2705175719241326e-16
+const testcase_ellint_3<double>
+data159[10] =
+{
+ { 0.0000000000000000, 0.60000000000000009, 0.80000000000000004,
+ 0.0000000000000000 },
+ { 0.17345794195390685, 0.60000000000000009, 0.80000000000000004,
+ 0.17453292519943295 },
+ { 0.34098797854531027, 0.60000000000000009, 0.80000000000000004,
+ 0.34906585039886590 },
+ { 0.49882569168826213, 0.60000000000000009, 0.80000000000000004,
+ 0.52359877559829882 },
+ { 0.64603758566475511, 0.60000000000000009, 0.80000000000000004,
+ 0.69813170079773179 },
+ { 0.78380365594769730, 0.60000000000000009, 0.80000000000000004,
+ 0.87266462599716477 },
+ { 0.91430946255611190, 0.60000000000000009, 0.80000000000000004,
+ 1.0471975511965976 },
+ { 1.0398955217270607, 0.60000000000000009, 0.80000000000000004,
+ 1.2217304763960306 },
+ { 1.1625948314277679, 0.60000000000000009, 0.80000000000000004,
+ 1.3962634015954636 },
+ { 1.2840021261752192, 0.60000000000000009, 0.80000000000000004,
+ 1.5707963267948966 },
+};
+const double toler159 = 2.5000000000000020e-13;
+
+// Test data for k=0.60000000000000009, nu=0.90000000000000002.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.5585887739668036e-16
+const testcase_ellint_3<double>
+data160[10] =
+{
+ { 0.0000000000000000, 0.60000000000000009, 0.90000000000000002,
+ 0.0000000000000000 },
+ { 0.17328652344890030, 0.60000000000000009, 0.90000000000000002,
+ 0.17453292519943295 },
+ { 0.33973880062929018, 0.60000000000000009, 0.90000000000000002,
+ 0.34906585039886590 },
+ { 0.49515092233122743, 0.60000000000000009, 0.90000000000000002,
+ 0.52359877559829882 },
+ { 0.63864042139737043, 0.60000000000000009, 0.90000000000000002,
+ 0.69813170079773179 },
+ { 0.77167205646538850, 0.60000000000000009, 0.90000000000000002,
+ 0.87266462599716477 },
+ { 0.89673202848034383, 0.60000000000000009, 0.90000000000000002,
+ 1.0471975511965976 },
+ { 1.0163984492661304, 0.60000000000000009, 0.90000000000000002,
+ 1.2217304763960306 },
+ { 1.1328845785162431, 0.60000000000000009, 0.90000000000000002,
+ 1.3962634015954636 },
+ { 1.2479362973851873, 0.60000000000000009, 0.90000000000000002,
+ 1.5707963267948966 },
+};
+const double toler160 = 2.5000000000000020e-13;
+
+// Test data for k=0.69999999999999996, nu=0.0000000000000000.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 3.5930208052157665e-16
+const testcase_ellint_3<double>
+data161[10] =
+{
+ { 0.0000000000000000, 0.69999999999999996, 0.0000000000000000,
+ 0.0000000000000000 },
+ { 0.17496737466916723, 0.69999999999999996, 0.0000000000000000,
+ 0.17453292519943295 },
+ { 0.35254687535677925, 0.69999999999999996, 0.0000000000000000,
+ 0.34906585039886590 },
+ { 0.53536740275997119, 0.69999999999999996, 0.0000000000000000,
+ 0.52359877559829882 },
+ { 0.72603797651684454, 0.69999999999999996, 0.0000000000000000,
+ 0.69813170079773179 },
+ { 0.92698296348313458, 0.69999999999999996, 0.0000000000000000,
+ 0.87266462599716477 },
+ { 1.1400447527693316, 0.69999999999999996, 0.0000000000000000,
+ 1.0471975511965976 },
+ { 1.3657668117194073, 0.69999999999999996, 0.0000000000000000,
+ 1.2217304763960306 },
+ { 1.6024686895959159, 0.69999999999999996, 0.0000000000000000,
+ 1.3962634015954636 },
+ { 1.8456939983747236, 0.69999999999999996, 0.0000000000000000,
+ 1.5707963267948966 },
+};
+const double toler161 = 2.5000000000000020e-13;
+
+// Test data for k=0.69999999999999996, nu=0.10000000000000001.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 3.6735282577377367e-16
+const testcase_ellint_3<double>
+data162[10] =
+{
+ { 0.0000000000000000, 0.69999999999999996, 0.10000000000000001,
+ 0.0000000000000000 },
+ { 0.17479076384884684, 0.69999999999999996, 0.10000000000000001,
+ 0.17453292519943295 },
+ { 0.35114844900396364, 0.69999999999999996, 0.10000000000000001,
+ 0.34906585039886590 },
+ { 0.53072776947527001, 0.69999999999999996, 0.10000000000000001,
+ 0.52359877559829882 },
+ { 0.71530198262386235, 0.69999999999999996, 0.10000000000000001,
+ 0.69813170079773179 },
+ { 0.90666760677828306, 0.69999999999999996, 0.10000000000000001,
+ 0.87266462599716477 },
+ { 1.1063366517438080, 0.69999999999999996, 0.10000000000000001,
+ 1.0471975511965976 },
+ { 1.3149477243092149, 0.69999999999999996, 0.10000000000000001,
+ 1.2217304763960306 },
+ { 1.5314886725038925, 0.69999999999999996, 0.10000000000000001,
+ 1.3962634015954636 },
+ { 1.7528050171757608, 0.69999999999999996, 0.10000000000000001,
+ 1.5707963267948966 },
+};
+const double toler162 = 2.5000000000000020e-13;
+
+// Test data for k=0.69999999999999996, nu=0.20000000000000001.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 3.7517969287516802e-16
+const testcase_ellint_3<double>
+data163[10] =
+{
+ { 0.0000000000000000, 0.69999999999999996, 0.20000000000000001,
+ 0.0000000000000000 },
+ { 0.17461479077791475, 0.69999999999999996, 0.20000000000000001,
+ 0.17453292519943295 },
+ { 0.34976950621407538, 0.69999999999999996, 0.20000000000000001,
+ 0.34906585039886590 },
+ { 0.52622533231350177, 0.69999999999999996, 0.20000000000000001,
+ 0.52359877559829882 },
+ { 0.70508774017895215, 0.69999999999999996, 0.20000000000000001,
+ 0.69813170079773179 },
+ { 0.88775302531730294, 0.69999999999999996, 0.20000000000000001,
+ 0.87266462599716477 },
+ { 1.0756195476149006, 0.69999999999999996, 0.20000000000000001,
+ 1.0471975511965976 },
+ { 1.2695349716654374, 0.69999999999999996, 0.20000000000000001,
+ 1.2217304763960306 },
+ { 1.4690814617070540, 0.69999999999999996, 0.20000000000000001,
+ 1.3962634015954636 },
+ { 1.6721098780092145, 0.69999999999999996, 0.20000000000000001,
+ 1.5707963267948966 },
+};
+const double toler163 = 2.5000000000000020e-13;
+
+// Test data for k=0.69999999999999996, nu=0.29999999999999999.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.8280039841080712e-16
+const testcase_ellint_3<double>
+data164[10] =
+{
+ { 0.0000000000000000, 0.69999999999999996, 0.29999999999999999,
+ 0.0000000000000000 },
+ { 0.17443945136076175, 0.69999999999999996, 0.29999999999999999,
+ 0.17453292519943295 },
+ { 0.34840956983535287, 0.69999999999999996, 0.29999999999999999,
+ 0.34906585039886590 },
+ { 0.52185308551329168, 0.69999999999999996, 0.29999999999999999,
+ 0.52359877559829882 },
+ { 0.69535240431168255, 0.69999999999999996, 0.29999999999999999,
+ 0.69813170079773179 },
+ { 0.87007983473964923, 0.69999999999999996, 0.29999999999999999,
+ 0.87266462599716477 },
+ { 1.0474657975577066, 0.69999999999999996, 0.29999999999999999,
+ 1.0471975511965976 },
+ { 1.2286225419931891, 0.69999999999999996, 0.29999999999999999,
+ 1.2217304763960306 },
+ { 1.4136490671013271, 0.69999999999999996, 0.29999999999999999,
+ 1.3962634015954636 },
+ { 1.6011813647733213, 0.69999999999999996, 0.29999999999999999,
+ 1.5707963267948966 },
+};
+const double toler164 = 2.5000000000000020e-13;
+
+// Test data for k=0.69999999999999996, nu=0.40000000000000002.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.3472957053482092e-16
+const testcase_ellint_3<double>
+data165[10] =
+{
+ { 0.0000000000000000, 0.69999999999999996, 0.40000000000000002,
+ 0.0000000000000000 },
+ { 0.17426474153983229, 0.69999999999999996, 0.40000000000000002,
+ 0.17453292519943295 },
+ { 0.34706817945773732, 0.69999999999999996, 0.40000000000000002,
+ 0.34906585039886590 },
+ { 0.51760452851738148, 0.69999999999999996, 0.40000000000000002,
+ 0.52359877559829882 },
+ { 0.68605801534722755, 0.69999999999999996, 0.40000000000000002,
+ 0.69813170079773179 },
+ { 0.85351339387296532, 0.69999999999999996, 0.40000000000000002,
+ 0.87266462599716477 },
+ { 1.0215297967969539, 0.69999999999999996, 0.40000000000000002,
+ 1.0471975511965976 },
+ { 1.1915051074460530, 0.69999999999999996, 0.40000000000000002,
+ 1.2217304763960306 },
+ { 1.3639821911744707, 0.69999999999999996, 0.40000000000000002,
+ 1.3962634015954636 },
+ { 1.5382162002954762, 0.69999999999999996, 0.40000000000000002,
+ 1.5707963267948966 },
+};
+const double toler165 = 2.5000000000000020e-13;
+
+// Test data for k=0.69999999999999996, nu=0.50000000000000000.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 3.9748346743390620e-16
+const testcase_ellint_3<double>
+data166[10] =
+{
+ { 0.0000000000000000, 0.69999999999999996, 0.50000000000000000,
+ 0.0000000000000000 },
+ { 0.17409065729516096, 0.69999999999999996, 0.50000000000000000,
+ 0.17453292519943295 },
+ { 0.34574489064986091, 0.69999999999999996, 0.50000000000000000,
+ 0.34906585039886590 },
+ { 0.51347361925579782, 0.69999999999999996, 0.50000000000000000,
+ 0.52359877559829882 },
+ { 0.67717079489579279, 0.69999999999999996, 0.50000000000000000,
+ 0.69813170079773179 },
+ { 0.83793902055292280, 0.69999999999999996, 0.50000000000000000,
+ 0.87266462599716477 },
+ { 0.99752863545289705, 0.69999999999999996, 0.50000000000000000,
+ 1.0471975511965976 },
+ { 1.1576240080401501, 0.69999999999999996, 0.50000000000000000,
+ 1.2217304763960306 },
+ { 1.3191464023923762, 0.69999999999999996, 0.50000000000000000,
+ 1.3962634015954636 },
+ { 1.4818433192178544, 0.69999999999999996, 0.50000000000000000,
+ 1.5707963267948966 },
+};
+const double toler166 = 2.5000000000000020e-13;
+
+// Test data for k=0.69999999999999996, nu=0.59999999999999998.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 4.0457157538295173e-16
+const testcase_ellint_3<double>
+data167[10] =
+{
+ { 0.0000000000000000, 0.69999999999999996, 0.59999999999999998,
+ 0.0000000000000000 },
+ { 0.17391719464391614, 0.69999999999999996, 0.59999999999999998,
+ 0.17453292519943295 },
+ { 0.34443927423869031, 0.69999999999999996, 0.59999999999999998,
+ 0.34906585039886590 },
+ { 0.50945473266486063, 0.69999999999999996, 0.59999999999999998,
+ 0.52359877559829882 },
+ { 0.66866056326513812, 0.69999999999999996, 0.59999999999999998,
+ 0.69813170079773179 },
+ { 0.82325830002337352, 0.69999999999999996, 0.59999999999999998,
+ 0.87266462599716477 },
+ { 0.97522808245669368, 0.69999999999999996, 0.59999999999999998,
+ 1.0471975511965976 },
+ { 1.1265300613705285, 0.69999999999999996, 0.59999999999999998,
+ 1.2217304763960306 },
+ { 1.2784066076152001, 0.69999999999999996, 0.59999999999999998,
+ 1.3962634015954636 },
+ { 1.4309994736080540, 0.69999999999999996, 0.59999999999999998,
+ 1.5707963267948966 },
+};
+const double toler167 = 2.5000000000000020e-13;
+
+// Test data for k=0.69999999999999996, nu=0.69999999999999996.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 5.4867405596732161e-16
+const testcase_ellint_3<double>
+data168[10] =
+{
+ { 0.0000000000000000, 0.69999999999999996, 0.69999999999999996,
+ 0.0000000000000000 },
+ { 0.17374434963995031, 0.69999999999999996, 0.69999999999999996,
+ 0.17453292519943295 },
+ { 0.34315091562900674, 0.69999999999999996, 0.69999999999999996,
+ 0.34906585039886590 },
+ { 0.50554262375653347, 0.69999999999999996, 0.69999999999999996,
+ 0.52359877559829882 },
+ { 0.66050025406305801, 0.69999999999999996, 0.69999999999999996,
+ 0.69813170079773179 },
+ { 0.80938620118847404, 0.69999999999999996, 0.69999999999999996,
+ 0.87266462599716477 },
+ { 0.95443223855852144, 0.69999999999999996, 0.69999999999999996,
+ 1.0471975511965976 },
+ { 1.0978573207128304, 0.69999999999999996, 0.69999999999999996,
+ 1.2217304763960306 },
+ { 1.2411754575007123, 0.69999999999999996, 0.69999999999999996,
+ 1.3962634015954636 },
+ { 1.3848459188329196, 0.69999999999999996, 0.69999999999999996,
+ 1.5707963267948966 },
+};
+const double toler168 = 2.5000000000000020e-13;
+
+// Test data for k=0.69999999999999996, nu=0.80000000000000004.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.1829502028913879e-16
+const testcase_ellint_3<double>
+data169[10] =
+{
+ { 0.0000000000000000, 0.69999999999999996, 0.80000000000000004,
+ 0.0000000000000000 },
+ { 0.17357211837335740, 0.69999999999999996, 0.80000000000000004,
+ 0.17453292519943295 },
+ { 0.34187941416012108, 0.69999999999999996, 0.80000000000000004,
+ 0.34906585039886590 },
+ { 0.50173239465478259, 0.69999999999999996, 0.80000000000000004,
+ 0.52359877559829882 },
+ { 0.65266550725988315, 0.69999999999999996, 0.80000000000000004,
+ 0.69813170079773179 },
+ { 0.79624879865249298, 0.69999999999999996, 0.80000000000000004,
+ 0.87266462599716477 },
+ { 0.93497577043296920, 0.69999999999999996, 0.80000000000000004,
+ 1.0471975511965976 },
+ { 1.0713041566930750, 0.69999999999999996, 0.80000000000000004,
+ 1.2217304763960306 },
+ { 1.2069772023255654, 0.69999999999999996, 0.80000000000000004,
+ 1.3962634015954636 },
+ { 1.3427110650397531, 0.69999999999999996, 0.80000000000000004,
+ 1.5707963267948966 },
+};
+const double toler169 = 2.5000000000000020e-13;
+
+// Test data for k=0.69999999999999996, nu=0.90000000000000002.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 4.2494869624129105e-16
+const testcase_ellint_3<double>
+data170[10] =
+{
+ { 0.0000000000000000, 0.69999999999999996, 0.90000000000000002,
+ 0.0000000000000000 },
+ { 0.17340049697003637, 0.69999999999999996, 0.90000000000000002,
+ 0.17453292519943295 },
+ { 0.34062438249741556, 0.69999999999999996, 0.90000000000000002,
+ 0.34906585039886590 },
+ { 0.49801946510076867, 0.69999999999999996, 0.90000000000000002,
+ 0.52359877559829882 },
+ { 0.64513432604750476, 0.69999999999999996, 0.90000000000000002,
+ 0.69813170079773179 },
+ { 0.78378145487573758, 0.69999999999999996, 0.90000000000000002,
+ 0.87266462599716477 },
+ { 0.91671799500854623, 0.69999999999999996, 0.90000000000000002,
+ 1.0471975511965976 },
+ { 1.0466193579463123, 0.69999999999999996, 0.90000000000000002,
+ 1.2217304763960306 },
+ { 1.1754218079199146, 0.69999999999999996, 0.90000000000000002,
+ 1.3962634015954636 },
+ { 1.3040500499695913, 0.69999999999999996, 0.90000000000000002,
+ 1.5707963267948966 },
+};
+const double toler170 = 2.5000000000000020e-13;
+
+// Test data for k=0.80000000000000004, nu=0.0000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.1175183168766718e-16
+const testcase_ellint_3<double>
+data171[10] =
+{
+ { 0.0000000000000000, 0.80000000000000004, 0.0000000000000000,
+ 0.0000000000000000 },
+ { 0.17510154241338899, 0.80000000000000004, 0.0000000000000000,
+ 0.17453292519943295 },
+ { 0.35365068839779390, 0.80000000000000004, 0.0000000000000000,
+ 0.34906585039886590 },
+ { 0.53926804409084550, 0.80000000000000004, 0.0000000000000000,
+ 0.52359877559829882 },
+ { 0.73587926028070361, 0.80000000000000004, 0.0000000000000000,
+ 0.69813170079773179 },
+ { 0.94770942970071170, 0.80000000000000004, 0.0000000000000000,
+ 0.87266462599716477 },
+ { 1.1789022995388236, 0.80000000000000004, 0.0000000000000000,
+ 1.0471975511965976 },
+ { 1.4323027881876009, 0.80000000000000004, 0.0000000000000000,
+ 1.2217304763960306 },
+ { 1.7069629739121674, 0.80000000000000004, 0.0000000000000000,
+ 1.3962634015954636 },
+ { 1.9953027776647296, 0.80000000000000004, 0.0000000000000000,
+ 1.5707963267948966 },
+};
+const double toler171 = 2.5000000000000020e-13;
+
+// Test data for k=0.80000000000000004, nu=0.10000000000000001.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.1537164503193145e-16
+const testcase_ellint_3<double>
+data172[10] =
+{
+ { 0.0000000000000000, 0.80000000000000004, 0.10000000000000001,
+ 0.0000000000000000 },
+ { 0.17492468824017163, 0.80000000000000004, 0.10000000000000001,
+ 0.17453292519943295 },
+ { 0.35224443521476911, 0.80000000000000004, 0.10000000000000001,
+ 0.34906585039886590 },
+ { 0.53456851853226950, 0.80000000000000004, 0.10000000000000001,
+ 0.52359877559829882 },
+ { 0.72488875602364922, 0.80000000000000004, 0.10000000000000001,
+ 0.69813170079773179 },
+ { 0.92661354274638952, 0.80000000000000004, 0.10000000000000001,
+ 0.87266462599716477 },
+ { 1.1432651144499075, 0.80000000000000004, 0.10000000000000001,
+ 1.0471975511965976 },
+ { 1.3774479927211429, 0.80000000000000004, 0.10000000000000001,
+ 1.2217304763960306 },
+ { 1.6287092337196041, 0.80000000000000004, 0.10000000000000001,
+ 1.3962634015954636 },
+ { 1.8910755418379521, 0.80000000000000004, 0.10000000000000001,
+ 1.5707963267948966 },
+};
+const double toler172 = 2.5000000000000020e-13;
+
+// Test data for k=0.80000000000000004, nu=0.20000000000000001.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.1894552974436829e-16
+const testcase_ellint_3<double>
+data173[10] =
+{
+ { 0.0000000000000000, 0.80000000000000004, 0.20000000000000001,
+ 0.0000000000000000 },
+ { 0.17474847286224940, 0.80000000000000004, 0.20000000000000001,
+ 0.17453292519943295 },
+ { 0.35085779529084682, 0.80000000000000004, 0.20000000000000001,
+ 0.34906585039886590 },
+ { 0.53000829263059146, 0.80000000000000004, 0.20000000000000001,
+ 0.52359877559829882 },
+ { 0.71443466027453384, 0.80000000000000004, 0.20000000000000001,
+ 0.69813170079773179 },
+ { 0.90698196872715420, 0.80000000000000004, 0.20000000000000001,
+ 0.87266462599716477 },
+ { 1.1108198200558579, 0.80000000000000004, 0.20000000000000001,
+ 1.0471975511965976 },
+ { 1.3284988909963957, 0.80000000000000004, 0.20000000000000001,
+ 1.2217304763960306 },
+ { 1.5600369318140328, 0.80000000000000004, 0.20000000000000001,
+ 1.3962634015954636 },
+ { 1.8007226661734588, 0.80000000000000004, 0.20000000000000001,
+ 1.5707963267948966 },
+};
+const double toler173 = 2.5000000000000020e-13;
+
+// Test data for k=0.80000000000000004, nu=0.29999999999999999.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.2247517409029886e-16
+const testcase_ellint_3<double>
+data174[10] =
+{
+ { 0.0000000000000000, 0.80000000000000004, 0.29999999999999999,
+ 0.0000000000000000 },
+ { 0.17457289217669889, 0.80000000000000004, 0.29999999999999999,
+ 0.17453292519943295 },
+ { 0.34949028801501258, 0.80000000000000004, 0.29999999999999999,
+ 0.34906585039886590 },
+ { 0.52558024362769307, 0.80000000000000004, 0.29999999999999999,
+ 0.52359877559829882 },
+ { 0.70447281740094891, 0.80000000000000004, 0.29999999999999999,
+ 0.69813170079773179 },
+ { 0.88864745641528986, 0.80000000000000004, 0.29999999999999999,
+ 0.87266462599716477 },
+ { 1.0811075819341462, 0.80000000000000004, 0.29999999999999999,
+ 1.0471975511965976 },
+ { 1.2844589654082377, 0.80000000000000004, 0.29999999999999999,
+ 1.2217304763960306 },
+ { 1.4991461361277847, 0.80000000000000004, 0.29999999999999999,
+ 1.3962634015954636 },
+ { 1.7214611048717301, 0.80000000000000004, 0.29999999999999999,
+ 1.5707963267948966 },
+};
+const double toler174 = 2.5000000000000020e-13;
+
+// Test data for k=0.80000000000000004, nu=0.40000000000000002.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.2596216594752862e-16
+const testcase_ellint_3<double>
+data175[10] =
+{
+ { 0.0000000000000000, 0.80000000000000004, 0.40000000000000002,
+ 0.0000000000000000 },
+ { 0.17439794211872175, 0.80000000000000004, 0.40000000000000002,
+ 0.17453292519943295 },
+ { 0.34814144964568972, 0.80000000000000004, 0.40000000000000002,
+ 0.34906585039886590 },
+ { 0.52127776285273064, 0.80000000000000004, 0.40000000000000002,
+ 0.52359877559829882 },
+ { 0.69496411438966588, 0.80000000000000004, 0.40000000000000002,
+ 0.69813170079773179 },
+ { 0.87146878427509589, 0.80000000000000004, 0.40000000000000002,
+ 0.87266462599716477 },
+ { 1.0537579024937762, 0.80000000000000004, 0.40000000000000002,
+ 1.0471975511965976 },
+ { 1.2445534387922637, 0.80000000000000004, 0.40000000000000002,
+ 1.2217304763960306 },
+ { 1.4446769766361993, 0.80000000000000004, 0.40000000000000002,
+ 1.3962634015954636 },
+ { 1.6512267838651289, 0.80000000000000004, 0.40000000000000002,
+ 1.5707963267948966 },
+};
+const double toler175 = 2.5000000000000020e-13;
+
+// Test data for k=0.80000000000000004, nu=0.50000000000000000.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.2940800093915668e-16
+const testcase_ellint_3<double>
+data176[10] =
+{
+ { 0.0000000000000000, 0.80000000000000004, 0.50000000000000000,
+ 0.0000000000000000 },
+ { 0.17422361866118044, 0.80000000000000004, 0.50000000000000000,
+ 0.17453292519943295 },
+ { 0.34681083254170475, 0.80000000000000004, 0.50000000000000000,
+ 0.34906585039886590 },
+ { 0.51709470815494440, 0.80000000000000004, 0.50000000000000000,
+ 0.52359877559829882 },
+ { 0.68587375344080237, 0.80000000000000004, 0.50000000000000000,
+ 0.69813170079773179 },
+ { 0.85532571852810624, 0.80000000000000004, 0.50000000000000000,
+ 0.87266462599716477 },
+ { 1.0284677391874903, 0.80000000000000004, 0.50000000000000000,
+ 1.0471975511965976 },
+ { 1.2081693942686225, 0.80000000000000004, 0.50000000000000000,
+ 1.2217304763960306 },
+ { 1.3955803006426311, 0.80000000000000004, 0.50000000000000000,
+ 1.3962634015954636 },
+ { 1.5884528947755532, 0.80000000000000004, 0.50000000000000000,
+ 1.5707963267948966 },
+};
+const double toler176 = 2.5000000000000020e-13;
+
+// Test data for k=0.80000000000000004, nu=0.59999999999999998.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.3281408974056389e-16
+const testcase_ellint_3<double>
+data177[10] =
+{
+ { 0.0000000000000000, 0.80000000000000004, 0.59999999999999998,
+ 0.0000000000000000 },
+ { 0.17404991781414089, 0.80000000000000004, 0.59999999999999998,
+ 0.17453292519943295 },
+ { 0.34549800443625167, 0.80000000000000004, 0.59999999999999998,
+ 0.34906585039886590 },
+ { 0.51302536167001545, 0.80000000000000004, 0.59999999999999998,
+ 0.52359877559829882 },
+ { 0.67717065003912236, 0.80000000000000004, 0.59999999999999998,
+ 0.69813170079773179 },
+ { 0.84011512421134416, 0.80000000000000004, 0.59999999999999998,
+ 0.87266462599716477 },
+ { 1.0049863847088740, 0.80000000000000004, 0.59999999999999998,
+ 1.0471975511965976 },
+ { 1.1748145941898920, 0.80000000000000004, 0.59999999999999998,
+ 1.2217304763960306 },
+ { 1.3510319699755071, 0.80000000000000004, 0.59999999999999998,
+ 1.3962634015954636 },
+ { 1.5319262547427865, 0.80000000000000004, 0.59999999999999998,
+ 1.5707963267948966 },
+};
+const double toler177 = 2.5000000000000020e-13;
+
+// Test data for k=0.80000000000000004, nu=0.69999999999999996.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 4.3618176466061808e-16
+const testcase_ellint_3<double>
+data178[10] =
+{
+ { 0.0000000000000000, 0.80000000000000004, 0.69999999999999996,
+ 0.0000000000000000 },
+ { 0.17387683562442199, 0.80000000000000004, 0.69999999999999996,
+ 0.17453292519943295 },
+ { 0.34420254775101611, 0.80000000000000004, 0.69999999999999996,
+ 0.34906585039886590 },
+ { 0.50906439222143673, 0.80000000000000004, 0.69999999999999996,
+ 0.52359877559829882 },
+ { 0.66882693152688422, 0.80000000000000004, 0.69999999999999996,
+ 0.69813170079773179 },
+ { 0.82574792844091316, 0.80000000000000004, 0.69999999999999996,
+ 0.87266462599716477 },
+ { 0.98310431309490931, 0.80000000000000004, 0.69999999999999996,
+ 1.0471975511965976 },
+ { 1.1440884535113258, 0.80000000000000004, 0.69999999999999996,
+ 1.2217304763960306 },
+ { 1.3103743938952537, 0.80000000000000004, 0.69999999999999996,
+ 1.3962634015954636 },
+ { 1.4806912324625332, 0.80000000000000004, 0.69999999999999996,
+ 1.5707963267948966 },
+};
+const double toler178 = 2.5000000000000020e-13;
+
+// Test data for k=0.80000000000000004, nu=0.80000000000000004.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.3951228558314112e-16
+const testcase_ellint_3<double>
+data179[10] =
+{
+ { 0.0000000000000000, 0.80000000000000004, 0.80000000000000004,
+ 0.0000000000000000 },
+ { 0.17370436817515203, 0.80000000000000004, 0.80000000000000004,
+ 0.17453292519943295 },
+ { 0.34292405894783395, 0.80000000000000004, 0.80000000000000004,
+ 0.34906585039886590 },
+ { 0.50520682176250076, 0.80000000000000004, 0.80000000000000004,
+ 0.52359877559829882 },
+ { 0.66081751679736178, 0.80000000000000004, 0.80000000000000004,
+ 0.69813170079773179 },
+ { 0.81214672249355102, 0.80000000000000004, 0.80000000000000004,
+ 0.87266462599716477 },
+ { 0.96264481387685552, 0.80000000000000004, 0.80000000000000004,
+ 1.0471975511965976 },
+ { 1.1156611352656258, 0.80000000000000004, 0.80000000000000004,
+ 1.2217304763960306 },
+ { 1.2730756225143889, 0.80000000000000004, 0.80000000000000004,
+ 1.3962634015954636 },
+ { 1.4339837018309471, 0.80000000000000004, 0.80000000000000004,
+ 1.5707963267948966 },
+};
+const double toler179 = 2.5000000000000020e-13;
+
+// Test data for k=0.80000000000000004, nu=0.90000000000000002.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 4.4280684534289690e-16
+const testcase_ellint_3<double>
+data180[10] =
+{
+ { 0.0000000000000000, 0.80000000000000004, 0.90000000000000002,
+ 0.0000000000000000 },
+ { 0.17353251158533151, 0.80000000000000004, 0.90000000000000002,
+ 0.17453292519943295 },
+ { 0.34166214791545768, 0.80000000000000004, 0.90000000000000002,
+ 0.34906585039886590 },
+ { 0.50144799535130569, 0.80000000000000004, 0.90000000000000002,
+ 0.52359877559829882 },
+ { 0.65311976193814425, 0.80000000000000004, 0.90000000000000002,
+ 0.69813170079773179 },
+ { 0.79924384892320866, 0.80000000000000004, 0.90000000000000002,
+ 0.87266462599716477 },
+ { 0.94345762353365603, 0.80000000000000004, 0.90000000000000002,
+ 1.0471975511965976 },
+ { 1.0892582069219161, 0.80000000000000004, 0.90000000000000002,
+ 1.2217304763960306 },
+ { 1.2387000876610268, 0.80000000000000004, 0.90000000000000002,
+ 1.3962634015954636 },
+ { 1.3911845406776222, 0.80000000000000004, 0.90000000000000002,
+ 1.5707963267948966 },
+};
+const double toler180 = 2.5000000000000020e-13;
+
+// Test data for k=0.89999999999999991, nu=0.0000000000000000.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 3.8945813740035884e-16
+const testcase_ellint_3<double>
+data181[10] =
+{
+ { 0.0000000000000000, 0.89999999999999991, 0.0000000000000000,
+ 0.0000000000000000 },
+ { 0.17525427376115024, 0.89999999999999991, 0.0000000000000000,
+ 0.17453292519943295 },
+ { 0.35492464591297446, 0.89999999999999991, 0.0000000000000000,
+ 0.34906585039886590 },
+ { 0.54388221416157112, 0.89999999999999991, 0.0000000000000000,
+ 0.52359877559829882 },
+ { 0.74797400423532490, 0.89999999999999991, 0.0000000000000000,
+ 0.69813170079773179 },
+ { 0.97463898451966458, 0.89999999999999991, 0.0000000000000000,
+ 0.87266462599716477 },
+ { 1.2334463254523440, 0.89999999999999991, 0.0000000000000000,
+ 1.0471975511965976 },
+ { 1.5355247765594910, 0.89999999999999991, 0.0000000000000000,
+ 1.2217304763960306 },
+ { 1.8882928567775117, 0.89999999999999991, 0.0000000000000000,
+ 1.3962634015954636 },
+ { 2.2805491384227703, 0.89999999999999991, 0.0000000000000000,
+ 1.5707963267948966 },
+};
+const double toler181 = 2.5000000000000020e-13;
+
+// Test data for k=0.89999999999999991, nu=0.10000000000000001.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 4.1237990617685137e-16
+const testcase_ellint_3<double>
+data182[10] =
+{
+ { 0.0000000000000000, 0.89999999999999991, 0.10000000000000001,
+ 0.0000000000000000 },
+ { 0.17507714233254656, 0.89999999999999991, 0.10000000000000001,
+ 0.17453292519943295 },
+ { 0.35350932904326521, 0.89999999999999991, 0.10000000000000001,
+ 0.34906585039886590 },
+ { 0.53911129989870976, 0.89999999999999991, 0.10000000000000001,
+ 0.52359877559829882 },
+ { 0.73666644254508395, 0.89999999999999991, 0.10000000000000001,
+ 0.69813170079773179 },
+ { 0.95250736612100195, 0.89999999999999991, 0.10000000000000001,
+ 0.87266462599716477 },
+ { 1.1950199550905594, 0.89999999999999991, 0.10000000000000001,
+ 1.0471975511965976 },
+ { 1.4741687286340848, 0.89999999999999991, 0.10000000000000001,
+ 1.2217304763960306 },
+ { 1.7968678183506053, 0.89999999999999991, 0.10000000000000001,
+ 1.3962634015954636 },
+ { 2.1537868513875287, 0.89999999999999991, 0.10000000000000001,
+ 1.5707963267948966 },
+};
+const double toler182 = 2.5000000000000020e-13;
+
+// Test data for k=0.89999999999999991, nu=0.20000000000000001.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 4.3446165733924066e-16
+const testcase_ellint_3<double>
+data183[10] =
+{
+ { 0.0000000000000000, 0.89999999999999991, 0.20000000000000001,
+ 0.0000000000000000 },
+ { 0.17490065089140927, 0.89999999999999991, 0.20000000000000001,
+ 0.17453292519943295 },
+ { 0.35211377590661436, 0.89999999999999991, 0.20000000000000001,
+ 0.34906585039886590 },
+ { 0.53448220334204100, 0.89999999999999991, 0.20000000000000001,
+ 0.52359877559829882 },
+ { 0.72591368943179579, 0.89999999999999991, 0.20000000000000001,
+ 0.69813170079773179 },
+ { 0.93192539780038763, 0.89999999999999991, 0.20000000000000001,
+ 0.87266462599716477 },
+ { 1.1600809679692683, 0.89999999999999991, 0.20000000000000001,
+ 1.0471975511965976 },
+ { 1.4195407225882508, 0.89999999999999991, 0.20000000000000001,
+ 1.2217304763960306 },
+ { 1.7168966476424521, 0.89999999999999991, 0.20000000000000001,
+ 1.3962634015954636 },
+ { 2.0443194576468895, 0.89999999999999991, 0.20000000000000001,
+ 1.5707963267948966 },
+};
+const double toler183 = 2.5000000000000020e-13;
+
+// Test data for k=0.89999999999999991, nu=0.29999999999999999.
+// max(|f - f_GSL|): 1.1102230246251565e-15
+// max(|f - f_GSL| / |f_GSL|): 5.6974600067013622e-16
+const testcase_ellint_3<double>
+data184[10] =
+{
+ { 0.0000000000000000, 0.89999999999999991, 0.29999999999999999,
+ 0.0000000000000000 },
+ { 0.17472479532647531, 0.89999999999999991, 0.29999999999999999,
+ 0.17453292519943295 },
+ { 0.35073750187374114, 0.89999999999999991, 0.29999999999999999,
+ 0.34906585039886590 },
+ { 0.52998766129466957, 0.89999999999999991, 0.29999999999999999,
+ 0.52359877559829882 },
+ { 0.71566993548699553, 0.89999999999999991, 0.29999999999999999,
+ 0.69813170079773179 },
+ { 0.91271517762560195, 0.89999999999999991, 0.29999999999999999,
+ 0.87266462599716477 },
+ { 1.1281241199843370, 0.89999999999999991, 0.29999999999999999,
+ 1.0471975511965976 },
+ { 1.3704929576917448, 0.89999999999999991, 0.29999999999999999,
+ 1.2217304763960306 },
+ { 1.6461981511487711, 0.89999999999999991, 0.29999999999999999,
+ 1.3962634015954636 },
+ { 1.9486280260314426, 0.89999999999999991, 0.29999999999999999,
+ 1.5707963267948966 },
+};
+const double toler184 = 2.5000000000000020e-13;
+
+// Test data for k=0.89999999999999991, nu=0.40000000000000002.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 4.7646208744449464e-16
+const testcase_ellint_3<double>
+data185[10] =
+{
+ { 0.0000000000000000, 0.89999999999999991, 0.40000000000000002,
+ 0.0000000000000000 },
+ { 0.17454957156468837, 0.89999999999999991, 0.40000000000000002,
+ 0.17453292519943295 },
+ { 0.34938003933330430, 0.89999999999999991, 0.40000000000000002,
+ 0.34906585039886590 },
+ { 0.52562093533067433, 0.89999999999999991, 0.40000000000000002,
+ 0.52359877559829882 },
+ { 0.70589461324915670, 0.89999999999999991, 0.40000000000000002,
+ 0.69813170079773179 },
+ { 0.89472658511942849, 0.89999999999999991, 0.40000000000000002,
+ 0.87266462599716477 },
+ { 1.0987419542323440, 0.89999999999999991, 0.40000000000000002,
+ 1.0471975511965976 },
+ { 1.3261349565496301, 0.89999999999999991, 0.40000000000000002,
+ 1.2217304763960306 },
+ { 1.5831293909853763, 0.89999999999999991, 0.40000000000000002,
+ 1.3962634015954636 },
+ { 1.8641114227238351, 0.89999999999999991, 0.40000000000000002,
+ 1.5707963267948966 },
+};
+const double toler185 = 2.5000000000000020e-13;
+
+// Test data for k=0.89999999999999991, nu=0.50000000000000000.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 4.9652155758573562e-16
+const testcase_ellint_3<double>
+data186[10] =
+{
+ { 0.0000000000000000, 0.89999999999999991, 0.50000000000000000,
+ 0.0000000000000000 },
+ { 0.17437497557073334, 0.89999999999999991, 0.50000000000000000,
+ 0.17453292519943295 },
+ { 0.34804093691586013, 0.89999999999999991, 0.50000000000000000,
+ 0.34906585039886590 },
+ { 0.52137576320372891, 0.89999999999999991, 0.50000000000000000,
+ 0.52359877559829882 },
+ { 0.69655163996912262, 0.89999999999999991, 0.50000000000000000,
+ 0.69813170079773179 },
+ { 0.87783188683054236, 0.89999999999999991, 0.50000000000000000,
+ 0.87266462599716477 },
+ { 1.0716015959755185, 0.89999999999999991, 0.50000000000000000,
+ 1.0471975511965976 },
+ { 1.2857636916026749, 0.89999999999999991, 0.50000000000000000,
+ 1.2217304763960306 },
+ { 1.5264263913252358, 0.89999999999999991, 0.50000000000000000,
+ 1.3962634015954636 },
+ { 1.7888013241937863, 0.89999999999999991, 0.50000000000000000,
+ 1.5707963267948966 },
+};
+const double toler186 = 2.5000000000000020e-13;
+
+// Test data for k=0.89999999999999991, nu=0.59999999999999998.
+// max(|f - f_GSL|): 6.6613381477509392e-16
+// max(|f - f_GSL| / |f_GSL|): 3.8702201113622378e-16
+const testcase_ellint_3<double>
+data187[10] =
+{
+ { 0.0000000000000000, 0.89999999999999991, 0.59999999999999998,
+ 0.0000000000000000 },
+ { 0.17420100334657812, 0.89999999999999991, 0.59999999999999998,
+ 0.17453292519943295 },
+ { 0.34671975876122157, 0.89999999999999991, 0.59999999999999998,
+ 0.34906585039886590 },
+ { 0.51724631570707946, 0.89999999999999991, 0.59999999999999998,
+ 0.52359877559829882 },
+ { 0.68760879113743023, 0.89999999999999991, 0.59999999999999998,
+ 0.69813170079773179 },
+ { 0.86192157779698364, 0.89999999999999991, 0.59999999999999998,
+ 0.87266462599716477 },
+ { 1.0464279696166354, 0.89999999999999991, 0.59999999999999998,
+ 1.0471975511965976 },
+ { 1.2488156247094004, 0.89999999999999991, 0.59999999999999998,
+ 1.2217304763960306 },
+ { 1.4750988777188470, 0.89999999999999991, 0.59999999999999998,
+ 1.3962634015954636 },
+ { 1.7211781128919525, 0.89999999999999991, 0.59999999999999998,
+ 1.5707963267948966 },
+};
+const double toler187 = 2.5000000000000020e-13;
+
+// Test data for k=0.89999999999999991, nu=0.69999999999999996.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.3410843563834748e-16
+const testcase_ellint_3<double>
+data188[10] =
+{
+ { 0.0000000000000000, 0.89999999999999991, 0.69999999999999996,
+ 0.0000000000000000 },
+ { 0.17402765093102207, 0.89999999999999991, 0.69999999999999996,
+ 0.17453292519943295 },
+ { 0.34541608382635131, 0.89999999999999991, 0.69999999999999996,
+ 0.34906585039886590 },
+ { 0.51322715827061682, 0.89999999999999991, 0.69999999999999996,
+ 0.52359877559829882 },
+ { 0.67903717872440272, 0.89999999999999991, 0.69999999999999996,
+ 0.69813170079773179 },
+ { 0.84690113601682671, 0.89999999999999991, 0.69999999999999996,
+ 0.87266462599716477 },
+ { 1.0229914311548418, 0.89999999999999991, 0.69999999999999996,
+ 1.0471975511965976 },
+ { 1.2148329639709381, 0.89999999999999991, 0.69999999999999996,
+ 1.2217304763960306 },
+ { 1.4283586501307799, 0.89999999999999991, 0.69999999999999996,
+ 1.3962634015954636 },
+ { 1.6600480747670940, 0.89999999999999991, 0.69999999999999996,
+ 1.5707963267948966 },
+};
+const double toler188 = 2.5000000000000020e-13;
+
+// Test data for k=0.89999999999999991, nu=0.80000000000000004.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 3.3100928058463168e-16
+const testcase_ellint_3<double>
+data189[10] =
+{
+ { 0.0000000000000000, 0.89999999999999991, 0.80000000000000004,
+ 0.0000000000000000 },
+ { 0.17385491439925146, 0.89999999999999991, 0.80000000000000004,
+ 0.17453292519943295 },
+ { 0.34412950523113928, 0.89999999999999991, 0.80000000000000004,
+ 0.34906585039886590 },
+ { 0.50931321668729590, 0.89999999999999991, 0.80000000000000004,
+ 0.52359877559829882 },
+ { 0.67081081392296327, 0.89999999999999991, 0.80000000000000004,
+ 0.69813170079773179 },
+ { 0.83268846097293259, 0.89999999999999991, 0.80000000000000004,
+ 0.87266462599716477 },
+ { 1.0010985015814027, 0.89999999999999991, 0.80000000000000004,
+ 1.0471975511965976 },
+ { 1.1834394045489678, 0.89999999999999991, 0.80000000000000004,
+ 1.2217304763960306 },
+ { 1.3855695891683182, 0.89999999999999991, 0.80000000000000004,
+ 1.3962634015954636 },
+ { 1.6044591960982202, 0.89999999999999991, 0.80000000000000004,
+ 1.5707963267948966 },
+};
+const double toler189 = 2.5000000000000020e-13;
+
+// Test data for k=0.89999999999999991, nu=0.90000000000000002.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 5.7167507456081732e-16
+const testcase_ellint_3<double>
+data190[10] =
+{
+ { 0.0000000000000000, 0.89999999999999991, 0.90000000000000002,
+ 0.0000000000000000 },
+ { 0.17368278986240135, 0.89999999999999991, 0.90000000000000002,
+ 0.17453292519943295 },
+ { 0.34285962963961397, 0.89999999999999991, 0.90000000000000002,
+ 0.34906585039886590 },
+ { 0.50549974644993312, 0.89999999999999991, 0.90000000000000002,
+ 0.52359877559829882 },
+ { 0.66290623857720876, 0.89999999999999991, 0.90000000000000002,
+ 0.69813170079773179 },
+ { 0.81921183128847175, 0.89999999999999991, 0.90000000000000002,
+ 0.87266462599716477 },
+ { 0.98058481956066390, 0.89999999999999991, 0.90000000000000002,
+ 1.0471975511965976 },
+ { 1.1543223520473569, 0.89999999999999991, 0.90000000000000002,
+ 1.2217304763960306 },
+ { 1.3462119782292934, 0.89999999999999991, 0.90000000000000002,
+ 1.3962634015954636 },
+ { 1.5536420236310948, 0.89999999999999991, 0.90000000000000002,
+ 1.5707963267948966 },
+};
+const double toler190 = 2.5000000000000020e-13;
+
+template<typename Tp, unsigned int Num>
+ void
+ test(const testcase_ellint_3<Tp> (&data)[Num], Tp toler)
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = Num;
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::ellint_3(data[i].k, data[i].nu,
+ data[i].phi);
+ const Tp f0 = data[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < toler);
+ }
+
+int
+main()
+{
+ test(data001, toler001);
+ test(data002, toler002);
+ test(data003, toler003);
+ test(data004, toler004);
+ test(data005, toler005);
+ test(data006, toler006);
+ test(data007, toler007);
+ test(data008, toler008);
+ test(data009, toler009);
+ test(data010, toler010);
+ test(data011, toler011);
+ test(data012, toler012);
+ test(data013, toler013);
+ test(data014, toler014);
+ test(data015, toler015);
+ test(data016, toler016);
+ test(data017, toler017);
+ test(data018, toler018);
+ test(data019, toler019);
+ test(data020, toler020);
+ test(data021, toler021);
+ test(data022, toler022);
+ test(data023, toler023);
+ test(data024, toler024);
+ test(data025, toler025);
+ test(data026, toler026);
+ test(data027, toler027);
+ test(data028, toler028);
+ test(data029, toler029);
+ test(data030, toler030);
+ test(data031, toler031);
+ test(data032, toler032);
+ test(data033, toler033);
+ test(data034, toler034);
+ test(data035, toler035);
+ test(data036, toler036);
+ test(data037, toler037);
+ test(data038, toler038);
+ test(data039, toler039);
+ test(data040, toler040);
+ test(data041, toler041);
+ test(data042, toler042);
+ test(data043, toler043);
+ test(data044, toler044);
+ test(data045, toler045);
+ test(data046, toler046);
+ test(data047, toler047);
+ test(data048, toler048);
+ test(data049, toler049);
+ test(data050, toler050);
+ test(data051, toler051);
+ test(data052, toler052);
+ test(data053, toler053);
+ test(data054, toler054);
+ test(data055, toler055);
+ test(data056, toler056);
+ test(data057, toler057);
+ test(data058, toler058);
+ test(data059, toler059);
+ test(data060, toler060);
+ test(data061, toler061);
+ test(data062, toler062);
+ test(data063, toler063);
+ test(data064, toler064);
+ test(data065, toler065);
+ test(data066, toler066);
+ test(data067, toler067);
+ test(data068, toler068);
+ test(data069, toler069);
+ test(data070, toler070);
+ test(data071, toler071);
+ test(data072, toler072);
+ test(data073, toler073);
+ test(data074, toler074);
+ test(data075, toler075);
+ test(data076, toler076);
+ test(data077, toler077);
+ test(data078, toler078);
+ test(data079, toler079);
+ test(data080, toler080);
+ test(data081, toler081);
+ test(data082, toler082);
+ test(data083, toler083);
+ test(data084, toler084);
+ test(data085, toler085);
+ test(data086, toler086);
+ test(data087, toler087);
+ test(data088, toler088);
+ test(data089, toler089);
+ test(data090, toler090);
+ test(data091, toler091);
+ test(data092, toler092);
+ test(data093, toler093);
+ test(data094, toler094);
+ test(data095, toler095);
+ test(data096, toler096);
+ test(data097, toler097);
+ test(data098, toler098);
+ test(data099, toler099);
+ test(data100, toler100);
+ test(data101, toler101);
+ test(data102, toler102);
+ test(data103, toler103);
+ test(data104, toler104);
+ test(data105, toler105);
+ test(data106, toler106);
+ test(data107, toler107);
+ test(data108, toler108);
+ test(data109, toler109);
+ test(data110, toler110);
+ test(data111, toler111);
+ test(data112, toler112);
+ test(data113, toler113);
+ test(data114, toler114);
+ test(data115, toler115);
+ test(data116, toler116);
+ test(data117, toler117);
+ test(data118, toler118);
+ test(data119, toler119);
+ test(data120, toler120);
+ test(data121, toler121);
+ test(data122, toler122);
+ test(data123, toler123);
+ test(data124, toler124);
+ test(data125, toler125);
+ test(data126, toler126);
+ test(data127, toler127);
+ test(data128, toler128);
+ test(data129, toler129);
+ test(data130, toler130);
+ test(data131, toler131);
+ test(data132, toler132);
+ test(data133, toler133);
+ test(data134, toler134);
+ test(data135, toler135);
+ test(data136, toler136);
+ test(data137, toler137);
+ test(data138, toler138);
+ test(data139, toler139);
+ test(data140, toler140);
+ test(data141, toler141);
+ test(data142, toler142);
+ test(data143, toler143);
+ test(data144, toler144);
+ test(data145, toler145);
+ test(data146, toler146);
+ test(data147, toler147);
+ test(data148, toler148);
+ test(data149, toler149);
+ test(data150, toler150);
+ test(data151, toler151);
+ test(data152, toler152);
+ test(data153, toler153);
+ test(data154, toler154);
+ test(data155, toler155);
+ test(data156, toler156);
+ test(data157, toler157);
+ test(data158, toler158);
+ test(data159, toler159);
+ test(data160, toler160);
+ test(data161, toler161);
+ test(data162, toler162);
+ test(data163, toler163);
+ test(data164, toler164);
+ test(data165, toler165);
+ test(data166, toler166);
+ test(data167, toler167);
+ test(data168, toler168);
+ test(data169, toler169);
+ test(data170, toler170);
+ test(data171, toler171);
+ test(data172, toler172);
+ test(data173, toler173);
+ test(data174, toler174);
+ test(data175, toler175);
+ test(data176, toler176);
+ test(data177, toler177);
+ test(data178, toler178);
+ test(data179, toler179);
+ test(data180, toler180);
+ test(data181, toler181);
+ test(data182, toler182);
+ test(data183, toler183);
+ test(data184, toler184);
+ test(data185, toler185);
+ test(data186, toler186);
+ test(data187, toler187);
+ test(data188, toler188);
+ test(data189, toler189);
+ test(data190, toler190);
+ return 0;
+}
Index: testsuite/special_functions/13_ellint_3/compile.cc
===================================================================
--- testsuite/special_functions/13_ellint_3/compile.cc (revision 0)
+++ testsuite/special_functions/13_ellint_3/compile.cc (working copy)
@@ -0,0 +1,40 @@
+// { dg-do compile }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.13 ellint_3
+
+#include <cmath>
+
+void
+test01()
+{
+ float kf = 0.5F, nuf = 0.2F, phif = std::atan2(1.0F, 1.0F);
+ double kd = 0.5, nud = 0.2, phid = std::atan2(1.0, 1.0);
+ long double kl = 0.5L, nul = 0.2L, phil = std::atan2(1.0L, 1.0L);
+
+ std::ellint_3(kf, nuf, phif);
+ std::ellint_3f(kf, nuf, phif);
+ std::ellint_3(kd, nud, phid);
+ std::ellint_3(kl, nul, phil);
+ std::ellint_3l(kl, nul, phil);
+
+ return;
+}
+
Index: testsuite/special_functions/13_ellint_3/compile_2.cc
===================================================================
--- testsuite/special_functions/13_ellint_3/compile_2.cc (revision 0)
+++ testsuite/special_functions/13_ellint_3/compile_2.cc (working copy)
@@ -0,0 +1,41 @@
+// { dg-do compile { xfail *-*-* } }
+// { dg-excess-errors "" }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.13 ellint_3
+
+#include <math.h>
+
+void
+test01()
+{
+ float kf = 0.5F, nuf = 0.2F, phif = atan2(1.0F, 1.0F);
+ double kd = 0.5, nud = 0.2, phid = atan2(1.0, 1.0);
+ long double kl = 0.5L, nul = 0.2L, phil = atan2(1.0L, 1.0L);
+
+ ellint_3(kf, nuf, phif);
+ ellint_3f(kf, nuf, phif);
+ ellint_3(kd, nud, phid);
+ ellint_3(kl, nul, phil);
+ ellint_3l(kl, nul, phil);
+
+ return;
+}
+
Index: testsuite/special_functions/14_expint/check_nan.cc
===================================================================
--- testsuite/special_functions/14_expint/check_nan.cc (revision 0)
+++ testsuite/special_functions/14_expint/check_nan.cc (working copy)
@@ -0,0 +1,56 @@
+// { dg-require-c-std "" }
+// { dg-add-options ieee }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.14 expint
+
+#include <cmath>
+#include <testsuite_hooks.h>
+
+void
+test01()
+{
+ float xf = std::numeric_limits<float>::quiet_NaN();
+ double xd = std::numeric_limits<double>::quiet_NaN();
+ long double xl = std::numeric_limits<long double>::quiet_NaN();
+
+ float a = std::expint(xf);
+ float b = std::expintf(xf);
+ double c = std::expint(xd);
+ long double d = std::expint(xl);
+ long double e = std::expintl(xl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+int
+main()
+{
+ test01();
+ return 0;
+}
+
Index: testsuite/special_functions/14_expint/check_value.cc
===================================================================
--- testsuite/special_functions/14_expint/check_value.cc (revision 0)
+++ testsuite/special_functions/14_expint/check_value.cc (working copy)
@@ -0,0 +1,193 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+//
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// expint
+
+// Compare against values generated by the GNU Scientific Library.
+// The GSL can be found on the web: http://www.gnu.org/software/gsl/
+#include <limits>
+#include <cmath>
+#if defined(__TEST_DEBUG)
+# include <iostream>
+# define VERIFY(A) \
+ if (!(A)) \
+ { \
+ std::cout << "line " << __LINE__ \
+ << " max_abs_frac = " << max_abs_frac \
+ << std::endl; \
+ }
+#else
+# include <testsuite_hooks.h>
+#endif
+#include <specfun_testcase.h>
+
+// Test data.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 2.0242558374827411e-15
+const testcase_expint<double>
+data001[50] =
+{
+ { -3.7832640295504591e-24, -50.000000000000000 },
+ { -1.0489811642368024e-23, -49.000000000000000 },
+ { -2.9096641904058423e-23, -48.000000000000000 },
+ { -8.0741978427258127e-23, -47.000000000000000 },
+ { -2.2415317597442998e-22, -46.000000000000000 },
+ { -6.2256908094623848e-22, -45.000000000000000 },
+ { -1.7299598742816476e-21, -44.000000000000000 },
+ { -4.8094965569500181e-21, -43.000000000000000 },
+ { -1.3377908810011775e-20, -42.000000000000000 },
+ { -3.7231667764599780e-20, -41.000000000000000 },
+ { -1.0367732614516570e-19, -40.000000000000000 },
+ { -2.8887793015227007e-19, -39.000000000000000 },
+ { -8.0541069142907499e-19, -38.000000000000000 },
+ { -2.2470206975885714e-18, -37.000000000000000 },
+ { -6.2733390097622421e-18, -36.000000000000000 },
+ { -1.7527059389947371e-17, -35.000000000000000 },
+ { -4.9006761183927874e-17, -34.000000000000000 },
+ { -1.3713843484487468e-16, -33.000000000000000 },
+ { -3.8409618012250671e-16, -32.000000000000000 },
+ { -1.0767670386162383e-15, -31.000000000000000 },
+ { -3.0215520106888124e-15, -30.000000000000000 },
+ { -8.4877597783535634e-15, -29.000000000000000 },
+ { -2.3869415119337330e-14, -28.000000000000000 },
+ { -6.7206374352620390e-14, -27.000000000000000 },
+ { -1.8946858856749785e-13, -26.000000000000000 },
+ { -5.3488997553402167e-13, -25.000000000000000 },
+ { -1.5123058939997059e-12, -24.000000000000000 },
+ { -4.2826847956656722e-12, -23.000000000000000 },
+ { -1.2149378956204371e-11, -22.000000000000000 },
+ { -3.4532012671467559e-11, -21.000000000000000 },
+ { -9.8355252906498815e-11, -20.000000000000000 },
+ { -2.8078290970607954e-10, -19.000000000000000 },
+ { -8.0360903448286769e-10, -18.000000000000000 },
+ { -2.3064319898216547e-09, -17.000000000000000 },
+ { -6.6404872494410427e-09, -16.000000000000000 },
+ { -1.9186278921478670e-08, -15.000000000000000 },
+ { -5.5656311111451816e-08, -14.000000000000000 },
+ { -1.6218662188014328e-07, -13.000000000000000 },
+ { -4.7510818246724931e-07, -12.000000000000000 },
+ { -1.4003003042474418e-06, -11.000000000000000 },
+ { -4.1569689296853246e-06, -10.000000000000000 },
+ { -1.2447354178006272e-05, -9.0000000000000000 },
+ { -3.7665622843924906e-05, -8.0000000000000000 },
+ { -0.00011548173161033820, -7.0000000000000000 },
+ { -0.00036008245216265862, -6.0000000000000000 },
+ { -0.0011482955912753257, -5.0000000000000000 },
+ { -0.0037793524098489058, -4.0000000000000000 },
+ { -0.013048381094197037, -3.0000000000000000 },
+ { -0.048900510708061125, -2.0000000000000000 },
+ { -0.21938393439552029, -1.0000000000000000 },
+};
+const double toler001 = 2.5000000000000020e-13;
+// expint
+
+
+// Test data.
+// max(|f - f_GSL|): 2048.0000000000000
+// max(|f - f_GSL| / |f_GSL|): 1.4993769017626171e-15
+const testcase_expint<double>
+data002[50] =
+{
+ { 1.8951178163559366, 1.0000000000000000 },
+ { 4.9542343560018907, 2.0000000000000000 },
+ { 9.9338325706254160, 3.0000000000000000 },
+ { 19.630874470056217, 4.0000000000000000 },
+ { 40.185275355803178, 5.0000000000000000 },
+ { 85.989762142439204, 6.0000000000000000 },
+ { 191.50474333550136, 7.0000000000000000 },
+ { 440.37989953483833, 8.0000000000000000 },
+ { 1037.8782907170896, 9.0000000000000000 },
+ { 2492.2289762418782, 10.000000000000000 },
+ { 6071.4063740986112, 11.000000000000000 },
+ { 14959.532666397528, 12.000000000000000 },
+ { 37197.688490689041, 13.000000000000000 },
+ { 93192.513633965369, 14.000000000000000 },
+ { 234955.85249076830, 15.000000000000000 },
+ { 595560.99867083691, 16.000000000000000 },
+ { 1516637.8940425171, 17.000000000000000 },
+ { 3877904.3305974435, 18.000000000000000 },
+ { 9950907.2510468438, 19.000000000000000 },
+ { 25615652.664056588, 20.000000000000000 },
+ { 66127186.355484925, 21.000000000000000 },
+ { 171144671.30036369, 22.000000000000000 },
+ { 443966369.83027124, 23.000000000000000 },
+ { 1154115391.8491828, 24.000000000000000 },
+ { 3005950906.5255494, 25.000000000000000 },
+ { 7842940991.8981876, 26.000000000000000 },
+ { 20496497119.880810, 27.000000000000000 },
+ { 53645118592.314682, 28.000000000000000 },
+ { 140599195758.40689, 29.000000000000000 },
+ { 368973209407.27417, 30.000000000000000 },
+ { 969455575968.39392, 31.000000000000000 },
+ { 2550043566357.7871, 32.000000000000000 },
+ { 6714640184076.4971, 33.000000000000000 },
+ { 17698037244116.266, 34.000000000000000 },
+ { 46690550144661.602, 35.000000000000000 },
+ { 123285207991209.75, 36.000000000000000 },
+ { 325798899867226.50, 37.000000000000000 },
+ { 861638819996578.75, 38.000000000000000 },
+ { 2280446200301902.5, 39.000000000000000 },
+ { 6039718263611242.0, 40.000000000000000 },
+ { 16006649143245042., 41.000000000000000 },
+ { 42447960921368504., 42.000000000000000 },
+ { 1.1263482901669666e+17, 43.000000000000000 },
+ { 2.9904447186323366e+17, 44.000000000000000 },
+ { 7.9439160357044531e+17, 45.000000000000000 },
+ { 2.1113423886478239e+18, 46.000000000000000 },
+ { 5.6143296808103424e+18, 47.000000000000000 },
+ { 1.4936302131129930e+19, 48.000000000000000 },
+ { 3.9754427479037444e+19, 49.000000000000000 },
+ { 1.0585636897131690e+20, 50.000000000000000 },
+};
+const double toler002 = 2.5000000000000020e-13;
+
+template<typename Tp, unsigned int Num>
+ void
+ test(const testcase_expint<Tp> (&data)[Num], Tp toler)
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = Num;
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::expint(data[i].x);
+ const Tp f0 = data[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < toler);
+ }
+
+int
+main()
+{
+ test(data001, toler001);
+ test(data002, toler002);
+ return 0;
+}
Index: testsuite/special_functions/14_expint/compile.cc
===================================================================
--- testsuite/special_functions/14_expint/compile.cc (revision 0)
+++ testsuite/special_functions/14_expint/compile.cc (working copy)
@@ -0,0 +1,40 @@
+// { dg-do compile }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.14 expint
+
+#include <cmath>
+
+void
+test01()
+{
+ float xf = 0.5F;
+ double xd = 0.5;
+ long double xl = 0.5L;
+
+ std::expint(xf);
+ std::expintf(xf);
+ std::expint(xd);
+ std::expint(xl);
+ std::expintl(xl);
+
+ return;
+}
+
Index: testsuite/special_functions/14_expint/compile_2.cc
===================================================================
--- testsuite/special_functions/14_expint/compile_2.cc (revision 0)
+++ testsuite/special_functions/14_expint/compile_2.cc (working copy)
@@ -0,0 +1,41 @@
+// { dg-do compile { xfail *-*-* } }
+// { dg-excess-errors "" }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.14 expint
+
+#include <math.h>
+
+void
+test01()
+{
+ float xf = 0.5F;
+ double xd = 0.5;
+ long double xl = 0.5L;
+
+ expint(xf);
+ expintf(xf);
+ expint(xd);
+ expint(xl);
+ expintl(xl);
+
+ return;
+}
+
Index: testsuite/special_functions/15_hermite/check_nan.cc
===================================================================
--- testsuite/special_functions/15_hermite/check_nan.cc (revision 0)
+++ testsuite/special_functions/15_hermite/check_nan.cc (working copy)
@@ -0,0 +1,58 @@
+// { dg-require-c-std "" }
+// { dg-add-options ieee }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.15 hermite
+
+#include <cmath>
+#include <testsuite_hooks.h>
+
+void
+test01()
+{
+ float xf = std::numeric_limits<float>::quiet_NaN();
+ double xd = std::numeric_limits<double>::quiet_NaN();
+ long double xl = std::numeric_limits<long double>::quiet_NaN();
+
+ unsigned int n = 5;
+
+ float a = std::hermite(n, xf);
+ float b = std::hermitef(n, xf);
+ double c = std::hermite(n, xd);
+ long double d = std::hermite(n, xl);
+ long double e = std::hermitel(n, xl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+int
+main()
+{
+ test01();
+ return 0;
+}
+
Index: testsuite/special_functions/15_hermite/check_value.cc
===================================================================
--- testsuite/special_functions/15_hermite/check_value.cc (revision 0)
+++ testsuite/special_functions/15_hermite/check_value.cc (working copy)
@@ -0,0 +1,1759 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+//
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// hermite
+// Compare against values generated by the GNU Scientific Library.
+// The GSL can be found on the web: http://www.gnu.org/software/gsl/
+#include <limits>
+#include <cmath>
+#if defined(__TEST_DEBUG)
+# include <iostream>
+# define VERIFY(A) \
+ if (!(A)) \
+ { \
+ std::cout << "line " << __LINE__ \
+ << " max_abs_frac = " << max_abs_frac \
+ << std::endl; \
+ }
+#else
+# include <testsuite_hooks.h>
+#endif
+#include <specfun_testcase.h>
+
+
+// Test data for n=0.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hermite<double>
+data001[201] =
+{
+ { 1.0000000000000000, 0, -10.000000000000000 },
+ { 1.0000000000000000, 0, -9.9000000000000004 },
+ { 1.0000000000000000, 0, -9.8000000000000007 },
+ { 1.0000000000000000, 0, -9.6999999999999993 },
+ { 1.0000000000000000, 0, -9.5999999999999996 },
+ { 1.0000000000000000, 0, -9.5000000000000000 },
+ { 1.0000000000000000, 0, -9.4000000000000004 },
+ { 1.0000000000000000, 0, -9.3000000000000007 },
+ { 1.0000000000000000, 0, -9.1999999999999993 },
+ { 1.0000000000000000, 0, -9.0999999999999996 },
+ { 1.0000000000000000, 0, -9.0000000000000000 },
+ { 1.0000000000000000, 0, -8.9000000000000004 },
+ { 1.0000000000000000, 0, -8.8000000000000007 },
+ { 1.0000000000000000, 0, -8.6999999999999993 },
+ { 1.0000000000000000, 0, -8.5999999999999996 },
+ { 1.0000000000000000, 0, -8.5000000000000000 },
+ { 1.0000000000000000, 0, -8.4000000000000004 },
+ { 1.0000000000000000, 0, -8.3000000000000007 },
+ { 1.0000000000000000, 0, -8.1999999999999993 },
+ { 1.0000000000000000, 0, -8.0999999999999996 },
+ { 1.0000000000000000, 0, -8.0000000000000000 },
+ { 1.0000000000000000, 0, -7.9000000000000004 },
+ { 1.0000000000000000, 0, -7.7999999999999998 },
+ { 1.0000000000000000, 0, -7.7000000000000002 },
+ { 1.0000000000000000, 0, -7.5999999999999996 },
+ { 1.0000000000000000, 0, -7.5000000000000000 },
+ { 1.0000000000000000, 0, -7.4000000000000004 },
+ { 1.0000000000000000, 0, -7.2999999999999998 },
+ { 1.0000000000000000, 0, -7.2000000000000002 },
+ { 1.0000000000000000, 0, -7.0999999999999996 },
+ { 1.0000000000000000, 0, -7.0000000000000000 },
+ { 1.0000000000000000, 0, -6.9000000000000004 },
+ { 1.0000000000000000, 0, -6.7999999999999998 },
+ { 1.0000000000000000, 0, -6.7000000000000002 },
+ { 1.0000000000000000, 0, -6.5999999999999996 },
+ { 1.0000000000000000, 0, -6.5000000000000000 },
+ { 1.0000000000000000, 0, -6.4000000000000004 },
+ { 1.0000000000000000, 0, -6.2999999999999998 },
+ { 1.0000000000000000, 0, -6.2000000000000002 },
+ { 1.0000000000000000, 0, -6.0999999999999996 },
+ { 1.0000000000000000, 0, -6.0000000000000000 },
+ { 1.0000000000000000, 0, -5.9000000000000004 },
+ { 1.0000000000000000, 0, -5.7999999999999998 },
+ { 1.0000000000000000, 0, -5.7000000000000002 },
+ { 1.0000000000000000, 0, -5.5999999999999996 },
+ { 1.0000000000000000, 0, -5.5000000000000000 },
+ { 1.0000000000000000, 0, -5.4000000000000004 },
+ { 1.0000000000000000, 0, -5.2999999999999998 },
+ { 1.0000000000000000, 0, -5.2000000000000002 },
+ { 1.0000000000000000, 0, -5.0999999999999996 },
+ { 1.0000000000000000, 0, -5.0000000000000000 },
+ { 1.0000000000000000, 0, -4.9000000000000004 },
+ { 1.0000000000000000, 0, -4.7999999999999998 },
+ { 1.0000000000000000, 0, -4.7000000000000002 },
+ { 1.0000000000000000, 0, -4.5999999999999996 },
+ { 1.0000000000000000, 0, -4.5000000000000000 },
+ { 1.0000000000000000, 0, -4.4000000000000004 },
+ { 1.0000000000000000, 0, -4.2999999999999998 },
+ { 1.0000000000000000, 0, -4.2000000000000002 },
+ { 1.0000000000000000, 0, -4.0999999999999996 },
+ { 1.0000000000000000, 0, -4.0000000000000000 },
+ { 1.0000000000000000, 0, -3.9000000000000004 },
+ { 1.0000000000000000, 0, -3.7999999999999998 },
+ { 1.0000000000000000, 0, -3.7000000000000002 },
+ { 1.0000000000000000, 0, -3.5999999999999996 },
+ { 1.0000000000000000, 0, -3.5000000000000000 },
+ { 1.0000000000000000, 0, -3.4000000000000004 },
+ { 1.0000000000000000, 0, -3.2999999999999998 },
+ { 1.0000000000000000, 0, -3.2000000000000002 },
+ { 1.0000000000000000, 0, -3.0999999999999996 },
+ { 1.0000000000000000, 0, -3.0000000000000000 },
+ { 1.0000000000000000, 0, -2.9000000000000004 },
+ { 1.0000000000000000, 0, -2.7999999999999998 },
+ { 1.0000000000000000, 0, -2.7000000000000002 },
+ { 1.0000000000000000, 0, -2.5999999999999996 },
+ { 1.0000000000000000, 0, -2.5000000000000000 },
+ { 1.0000000000000000, 0, -2.4000000000000004 },
+ { 1.0000000000000000, 0, -2.2999999999999998 },
+ { 1.0000000000000000, 0, -2.2000000000000002 },
+ { 1.0000000000000000, 0, -2.0999999999999996 },
+ { 1.0000000000000000, 0, -2.0000000000000000 },
+ { 1.0000000000000000, 0, -1.9000000000000004 },
+ { 1.0000000000000000, 0, -1.8000000000000007 },
+ { 1.0000000000000000, 0, -1.6999999999999993 },
+ { 1.0000000000000000, 0, -1.5999999999999996 },
+ { 1.0000000000000000, 0, -1.5000000000000000 },
+ { 1.0000000000000000, 0, -1.4000000000000004 },
+ { 1.0000000000000000, 0, -1.3000000000000007 },
+ { 1.0000000000000000, 0, -1.1999999999999993 },
+ { 1.0000000000000000, 0, -1.0999999999999996 },
+ { 1.0000000000000000, 0, -1.0000000000000000 },
+ { 1.0000000000000000, 0, -0.90000000000000036 },
+ { 1.0000000000000000, 0, -0.80000000000000071 },
+ { 1.0000000000000000, 0, -0.69999999999999929 },
+ { 1.0000000000000000, 0, -0.59999999999999964 },
+ { 1.0000000000000000, 0, -0.50000000000000000 },
+ { 1.0000000000000000, 0, -0.40000000000000036 },
+ { 1.0000000000000000, 0, -0.30000000000000071 },
+ { 1.0000000000000000, 0, -0.19999999999999929 },
+ { 1.0000000000000000, 0, -0.099999999999999645 },
+ { 1.0000000000000000, 0, 0.0000000000000000 },
+ { 1.0000000000000000, 0, 0.099999999999999645 },
+ { 1.0000000000000000, 0, 0.19999999999999929 },
+ { 1.0000000000000000, 0, 0.30000000000000071 },
+ { 1.0000000000000000, 0, 0.40000000000000036 },
+ { 1.0000000000000000, 0, 0.50000000000000000 },
+ { 1.0000000000000000, 0, 0.59999999999999964 },
+ { 1.0000000000000000, 0, 0.69999999999999929 },
+ { 1.0000000000000000, 0, 0.80000000000000071 },
+ { 1.0000000000000000, 0, 0.90000000000000036 },
+ { 1.0000000000000000, 0, 1.0000000000000000 },
+ { 1.0000000000000000, 0, 1.0999999999999996 },
+ { 1.0000000000000000, 0, 1.1999999999999993 },
+ { 1.0000000000000000, 0, 1.3000000000000007 },
+ { 1.0000000000000000, 0, 1.4000000000000004 },
+ { 1.0000000000000000, 0, 1.5000000000000000 },
+ { 1.0000000000000000, 0, 1.5999999999999996 },
+ { 1.0000000000000000, 0, 1.6999999999999993 },
+ { 1.0000000000000000, 0, 1.8000000000000007 },
+ { 1.0000000000000000, 0, 1.9000000000000004 },
+ { 1.0000000000000000, 0, 2.0000000000000000 },
+ { 1.0000000000000000, 0, 2.0999999999999996 },
+ { 1.0000000000000000, 0, 2.1999999999999993 },
+ { 1.0000000000000000, 0, 2.3000000000000007 },
+ { 1.0000000000000000, 0, 2.4000000000000004 },
+ { 1.0000000000000000, 0, 2.5000000000000000 },
+ { 1.0000000000000000, 0, 2.5999999999999996 },
+ { 1.0000000000000000, 0, 2.6999999999999993 },
+ { 1.0000000000000000, 0, 2.8000000000000007 },
+ { 1.0000000000000000, 0, 2.9000000000000004 },
+ { 1.0000000000000000, 0, 3.0000000000000000 },
+ { 1.0000000000000000, 0, 3.0999999999999996 },
+ { 1.0000000000000000, 0, 3.1999999999999993 },
+ { 1.0000000000000000, 0, 3.3000000000000007 },
+ { 1.0000000000000000, 0, 3.4000000000000004 },
+ { 1.0000000000000000, 0, 3.5000000000000000 },
+ { 1.0000000000000000, 0, 3.5999999999999996 },
+ { 1.0000000000000000, 0, 3.6999999999999993 },
+ { 1.0000000000000000, 0, 3.8000000000000007 },
+ { 1.0000000000000000, 0, 3.9000000000000004 },
+ { 1.0000000000000000, 0, 4.0000000000000000 },
+ { 1.0000000000000000, 0, 4.0999999999999996 },
+ { 1.0000000000000000, 0, 4.1999999999999993 },
+ { 1.0000000000000000, 0, 4.3000000000000007 },
+ { 1.0000000000000000, 0, 4.4000000000000004 },
+ { 1.0000000000000000, 0, 4.5000000000000000 },
+ { 1.0000000000000000, 0, 4.5999999999999996 },
+ { 1.0000000000000000, 0, 4.6999999999999993 },
+ { 1.0000000000000000, 0, 4.8000000000000007 },
+ { 1.0000000000000000, 0, 4.9000000000000004 },
+ { 1.0000000000000000, 0, 5.0000000000000000 },
+ { 1.0000000000000000, 0, 5.0999999999999996 },
+ { 1.0000000000000000, 0, 5.1999999999999993 },
+ { 1.0000000000000000, 0, 5.3000000000000007 },
+ { 1.0000000000000000, 0, 5.4000000000000004 },
+ { 1.0000000000000000, 0, 5.5000000000000000 },
+ { 1.0000000000000000, 0, 5.5999999999999996 },
+ { 1.0000000000000000, 0, 5.6999999999999993 },
+ { 1.0000000000000000, 0, 5.8000000000000007 },
+ { 1.0000000000000000, 0, 5.9000000000000004 },
+ { 1.0000000000000000, 0, 6.0000000000000000 },
+ { 1.0000000000000000, 0, 6.1000000000000014 },
+ { 1.0000000000000000, 0, 6.1999999999999993 },
+ { 1.0000000000000000, 0, 6.3000000000000007 },
+ { 1.0000000000000000, 0, 6.3999999999999986 },
+ { 1.0000000000000000, 0, 6.5000000000000000 },
+ { 1.0000000000000000, 0, 6.6000000000000014 },
+ { 1.0000000000000000, 0, 6.6999999999999993 },
+ { 1.0000000000000000, 0, 6.8000000000000007 },
+ { 1.0000000000000000, 0, 6.8999999999999986 },
+ { 1.0000000000000000, 0, 7.0000000000000000 },
+ { 1.0000000000000000, 0, 7.1000000000000014 },
+ { 1.0000000000000000, 0, 7.1999999999999993 },
+ { 1.0000000000000000, 0, 7.3000000000000007 },
+ { 1.0000000000000000, 0, 7.3999999999999986 },
+ { 1.0000000000000000, 0, 7.5000000000000000 },
+ { 1.0000000000000000, 0, 7.6000000000000014 },
+ { 1.0000000000000000, 0, 7.6999999999999993 },
+ { 1.0000000000000000, 0, 7.8000000000000007 },
+ { 1.0000000000000000, 0, 7.8999999999999986 },
+ { 1.0000000000000000, 0, 8.0000000000000000 },
+ { 1.0000000000000000, 0, 8.1000000000000014 },
+ { 1.0000000000000000, 0, 8.1999999999999993 },
+ { 1.0000000000000000, 0, 8.3000000000000007 },
+ { 1.0000000000000000, 0, 8.3999999999999986 },
+ { 1.0000000000000000, 0, 8.5000000000000000 },
+ { 1.0000000000000000, 0, 8.6000000000000014 },
+ { 1.0000000000000000, 0, 8.6999999999999993 },
+ { 1.0000000000000000, 0, 8.8000000000000007 },
+ { 1.0000000000000000, 0, 8.8999999999999986 },
+ { 1.0000000000000000, 0, 9.0000000000000000 },
+ { 1.0000000000000000, 0, 9.1000000000000014 },
+ { 1.0000000000000000, 0, 9.1999999999999993 },
+ { 1.0000000000000000, 0, 9.3000000000000007 },
+ { 1.0000000000000000, 0, 9.3999999999999986 },
+ { 1.0000000000000000, 0, 9.5000000000000000 },
+ { 1.0000000000000000, 0, 9.6000000000000014 },
+ { 1.0000000000000000, 0, 9.6999999999999993 },
+ { 1.0000000000000000, 0, 9.8000000000000007 },
+ { 1.0000000000000000, 0, 9.8999999999999986 },
+ { 1.0000000000000000, 0, 10.000000000000000 },
+};
+const double toler001 = 2.5000000000000020e-13;
+
+// Test data for n=1.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hermite<double>
+data002[201] =
+{
+ { -20.000000000000000, 1, -10.000000000000000 },
+ { -19.800000000000001, 1, -9.9000000000000004 },
+ { -19.600000000000001, 1, -9.8000000000000007 },
+ { -19.399999999999999, 1, -9.6999999999999993 },
+ { -19.199999999999999, 1, -9.5999999999999996 },
+ { -19.000000000000000, 1, -9.5000000000000000 },
+ { -18.800000000000001, 1, -9.4000000000000004 },
+ { -18.600000000000001, 1, -9.3000000000000007 },
+ { -18.399999999999999, 1, -9.1999999999999993 },
+ { -18.199999999999999, 1, -9.0999999999999996 },
+ { -18.000000000000000, 1, -9.0000000000000000 },
+ { -17.800000000000001, 1, -8.9000000000000004 },
+ { -17.600000000000001, 1, -8.8000000000000007 },
+ { -17.399999999999999, 1, -8.6999999999999993 },
+ { -17.199999999999999, 1, -8.5999999999999996 },
+ { -17.000000000000000, 1, -8.5000000000000000 },
+ { -16.800000000000001, 1, -8.4000000000000004 },
+ { -16.600000000000001, 1, -8.3000000000000007 },
+ { -16.399999999999999, 1, -8.1999999999999993 },
+ { -16.199999999999999, 1, -8.0999999999999996 },
+ { -16.000000000000000, 1, -8.0000000000000000 },
+ { -15.800000000000001, 1, -7.9000000000000004 },
+ { -15.600000000000000, 1, -7.7999999999999998 },
+ { -15.400000000000000, 1, -7.7000000000000002 },
+ { -15.199999999999999, 1, -7.5999999999999996 },
+ { -15.000000000000000, 1, -7.5000000000000000 },
+ { -14.800000000000001, 1, -7.4000000000000004 },
+ { -14.600000000000000, 1, -7.2999999999999998 },
+ { -14.400000000000000, 1, -7.2000000000000002 },
+ { -14.199999999999999, 1, -7.0999999999999996 },
+ { -14.000000000000000, 1, -7.0000000000000000 },
+ { -13.800000000000001, 1, -6.9000000000000004 },
+ { -13.600000000000000, 1, -6.7999999999999998 },
+ { -13.400000000000000, 1, -6.7000000000000002 },
+ { -13.199999999999999, 1, -6.5999999999999996 },
+ { -13.000000000000000, 1, -6.5000000000000000 },
+ { -12.800000000000001, 1, -6.4000000000000004 },
+ { -12.600000000000000, 1, -6.2999999999999998 },
+ { -12.400000000000000, 1, -6.2000000000000002 },
+ { -12.199999999999999, 1, -6.0999999999999996 },
+ { -12.000000000000000, 1, -6.0000000000000000 },
+ { -11.800000000000001, 1, -5.9000000000000004 },
+ { -11.600000000000000, 1, -5.7999999999999998 },
+ { -11.400000000000000, 1, -5.7000000000000002 },
+ { -11.199999999999999, 1, -5.5999999999999996 },
+ { -11.000000000000000, 1, -5.5000000000000000 },
+ { -10.800000000000001, 1, -5.4000000000000004 },
+ { -10.600000000000000, 1, -5.2999999999999998 },
+ { -10.400000000000000, 1, -5.2000000000000002 },
+ { -10.199999999999999, 1, -5.0999999999999996 },
+ { -10.000000000000000, 1, -5.0000000000000000 },
+ { -9.8000000000000007, 1, -4.9000000000000004 },
+ { -9.5999999999999996, 1, -4.7999999999999998 },
+ { -9.4000000000000004, 1, -4.7000000000000002 },
+ { -9.1999999999999993, 1, -4.5999999999999996 },
+ { -9.0000000000000000, 1, -4.5000000000000000 },
+ { -8.8000000000000007, 1, -4.4000000000000004 },
+ { -8.5999999999999996, 1, -4.2999999999999998 },
+ { -8.4000000000000004, 1, -4.2000000000000002 },
+ { -8.1999999999999993, 1, -4.0999999999999996 },
+ { -8.0000000000000000, 1, -4.0000000000000000 },
+ { -7.8000000000000007, 1, -3.9000000000000004 },
+ { -7.5999999999999996, 1, -3.7999999999999998 },
+ { -7.4000000000000004, 1, -3.7000000000000002 },
+ { -7.1999999999999993, 1, -3.5999999999999996 },
+ { -7.0000000000000000, 1, -3.5000000000000000 },
+ { -6.8000000000000007, 1, -3.4000000000000004 },
+ { -6.5999999999999996, 1, -3.2999999999999998 },
+ { -6.4000000000000004, 1, -3.2000000000000002 },
+ { -6.1999999999999993, 1, -3.0999999999999996 },
+ { -6.0000000000000000, 1, -3.0000000000000000 },
+ { -5.8000000000000007, 1, -2.9000000000000004 },
+ { -5.5999999999999996, 1, -2.7999999999999998 },
+ { -5.4000000000000004, 1, -2.7000000000000002 },
+ { -5.1999999999999993, 1, -2.5999999999999996 },
+ { -5.0000000000000000, 1, -2.5000000000000000 },
+ { -4.8000000000000007, 1, -2.4000000000000004 },
+ { -4.5999999999999996, 1, -2.2999999999999998 },
+ { -4.4000000000000004, 1, -2.2000000000000002 },
+ { -4.1999999999999993, 1, -2.0999999999999996 },
+ { -4.0000000000000000, 1, -2.0000000000000000 },
+ { -3.8000000000000007, 1, -1.9000000000000004 },
+ { -3.6000000000000014, 1, -1.8000000000000007 },
+ { -3.3999999999999986, 1, -1.6999999999999993 },
+ { -3.1999999999999993, 1, -1.5999999999999996 },
+ { -3.0000000000000000, 1, -1.5000000000000000 },
+ { -2.8000000000000007, 1, -1.4000000000000004 },
+ { -2.6000000000000014, 1, -1.3000000000000007 },
+ { -2.3999999999999986, 1, -1.1999999999999993 },
+ { -2.1999999999999993, 1, -1.0999999999999996 },
+ { -2.0000000000000000, 1, -1.0000000000000000 },
+ { -1.8000000000000007, 1, -0.90000000000000036 },
+ { -1.6000000000000014, 1, -0.80000000000000071 },
+ { -1.3999999999999986, 1, -0.69999999999999929 },
+ { -1.1999999999999993, 1, -0.59999999999999964 },
+ { -1.0000000000000000, 1, -0.50000000000000000 },
+ { -0.80000000000000071, 1, -0.40000000000000036 },
+ { -0.60000000000000142, 1, -0.30000000000000071 },
+ { -0.39999999999999858, 1, -0.19999999999999929 },
+ { -0.19999999999999929, 1, -0.099999999999999645 },
+ { 0.0000000000000000, 1, 0.0000000000000000 },
+ { 0.19999999999999929, 1, 0.099999999999999645 },
+ { 0.39999999999999858, 1, 0.19999999999999929 },
+ { 0.60000000000000142, 1, 0.30000000000000071 },
+ { 0.80000000000000071, 1, 0.40000000000000036 },
+ { 1.0000000000000000, 1, 0.50000000000000000 },
+ { 1.1999999999999993, 1, 0.59999999999999964 },
+ { 1.3999999999999986, 1, 0.69999999999999929 },
+ { 1.6000000000000014, 1, 0.80000000000000071 },
+ { 1.8000000000000007, 1, 0.90000000000000036 },
+ { 2.0000000000000000, 1, 1.0000000000000000 },
+ { 2.1999999999999993, 1, 1.0999999999999996 },
+ { 2.3999999999999986, 1, 1.1999999999999993 },
+ { 2.6000000000000014, 1, 1.3000000000000007 },
+ { 2.8000000000000007, 1, 1.4000000000000004 },
+ { 3.0000000000000000, 1, 1.5000000000000000 },
+ { 3.1999999999999993, 1, 1.5999999999999996 },
+ { 3.3999999999999986, 1, 1.6999999999999993 },
+ { 3.6000000000000014, 1, 1.8000000000000007 },
+ { 3.8000000000000007, 1, 1.9000000000000004 },
+ { 4.0000000000000000, 1, 2.0000000000000000 },
+ { 4.1999999999999993, 1, 2.0999999999999996 },
+ { 4.3999999999999986, 1, 2.1999999999999993 },
+ { 4.6000000000000014, 1, 2.3000000000000007 },
+ { 4.8000000000000007, 1, 2.4000000000000004 },
+ { 5.0000000000000000, 1, 2.5000000000000000 },
+ { 5.1999999999999993, 1, 2.5999999999999996 },
+ { 5.3999999999999986, 1, 2.6999999999999993 },
+ { 5.6000000000000014, 1, 2.8000000000000007 },
+ { 5.8000000000000007, 1, 2.9000000000000004 },
+ { 6.0000000000000000, 1, 3.0000000000000000 },
+ { 6.1999999999999993, 1, 3.0999999999999996 },
+ { 6.3999999999999986, 1, 3.1999999999999993 },
+ { 6.6000000000000014, 1, 3.3000000000000007 },
+ { 6.8000000000000007, 1, 3.4000000000000004 },
+ { 7.0000000000000000, 1, 3.5000000000000000 },
+ { 7.1999999999999993, 1, 3.5999999999999996 },
+ { 7.3999999999999986, 1, 3.6999999999999993 },
+ { 7.6000000000000014, 1, 3.8000000000000007 },
+ { 7.8000000000000007, 1, 3.9000000000000004 },
+ { 8.0000000000000000, 1, 4.0000000000000000 },
+ { 8.1999999999999993, 1, 4.0999999999999996 },
+ { 8.3999999999999986, 1, 4.1999999999999993 },
+ { 8.6000000000000014, 1, 4.3000000000000007 },
+ { 8.8000000000000007, 1, 4.4000000000000004 },
+ { 9.0000000000000000, 1, 4.5000000000000000 },
+ { 9.1999999999999993, 1, 4.5999999999999996 },
+ { 9.3999999999999986, 1, 4.6999999999999993 },
+ { 9.6000000000000014, 1, 4.8000000000000007 },
+ { 9.8000000000000007, 1, 4.9000000000000004 },
+ { 10.000000000000000, 1, 5.0000000000000000 },
+ { 10.199999999999999, 1, 5.0999999999999996 },
+ { 10.399999999999999, 1, 5.1999999999999993 },
+ { 10.600000000000001, 1, 5.3000000000000007 },
+ { 10.800000000000001, 1, 5.4000000000000004 },
+ { 11.000000000000000, 1, 5.5000000000000000 },
+ { 11.199999999999999, 1, 5.5999999999999996 },
+ { 11.399999999999999, 1, 5.6999999999999993 },
+ { 11.600000000000001, 1, 5.8000000000000007 },
+ { 11.800000000000001, 1, 5.9000000000000004 },
+ { 12.000000000000000, 1, 6.0000000000000000 },
+ { 12.200000000000003, 1, 6.1000000000000014 },
+ { 12.399999999999999, 1, 6.1999999999999993 },
+ { 12.600000000000001, 1, 6.3000000000000007 },
+ { 12.799999999999997, 1, 6.3999999999999986 },
+ { 13.000000000000000, 1, 6.5000000000000000 },
+ { 13.200000000000003, 1, 6.6000000000000014 },
+ { 13.399999999999999, 1, 6.6999999999999993 },
+ { 13.600000000000001, 1, 6.8000000000000007 },
+ { 13.799999999999997, 1, 6.8999999999999986 },
+ { 14.000000000000000, 1, 7.0000000000000000 },
+ { 14.200000000000003, 1, 7.1000000000000014 },
+ { 14.399999999999999, 1, 7.1999999999999993 },
+ { 14.600000000000001, 1, 7.3000000000000007 },
+ { 14.799999999999997, 1, 7.3999999999999986 },
+ { 15.000000000000000, 1, 7.5000000000000000 },
+ { 15.200000000000003, 1, 7.6000000000000014 },
+ { 15.399999999999999, 1, 7.6999999999999993 },
+ { 15.600000000000001, 1, 7.8000000000000007 },
+ { 15.799999999999997, 1, 7.8999999999999986 },
+ { 16.000000000000000, 1, 8.0000000000000000 },
+ { 16.200000000000003, 1, 8.1000000000000014 },
+ { 16.399999999999999, 1, 8.1999999999999993 },
+ { 16.600000000000001, 1, 8.3000000000000007 },
+ { 16.799999999999997, 1, 8.3999999999999986 },
+ { 17.000000000000000, 1, 8.5000000000000000 },
+ { 17.200000000000003, 1, 8.6000000000000014 },
+ { 17.399999999999999, 1, 8.6999999999999993 },
+ { 17.600000000000001, 1, 8.8000000000000007 },
+ { 17.799999999999997, 1, 8.8999999999999986 },
+ { 18.000000000000000, 1, 9.0000000000000000 },
+ { 18.200000000000003, 1, 9.1000000000000014 },
+ { 18.399999999999999, 1, 9.1999999999999993 },
+ { 18.600000000000001, 1, 9.3000000000000007 },
+ { 18.799999999999997, 1, 9.3999999999999986 },
+ { 19.000000000000000, 1, 9.5000000000000000 },
+ { 19.200000000000003, 1, 9.6000000000000014 },
+ { 19.399999999999999, 1, 9.6999999999999993 },
+ { 19.600000000000001, 1, 9.8000000000000007 },
+ { 19.799999999999997, 1, 9.8999999999999986 },
+ { 20.000000000000000, 1, 10.000000000000000 },
+};
+const double toler002 = 2.5000000000000020e-13;
+
+// Test data for n=2.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hermite<double>
+data003[201] =
+{
+ { 398.00000000000000, 2, -10.000000000000000 },
+ { 390.04000000000002, 2, -9.9000000000000004 },
+ { 382.16000000000008, 2, -9.8000000000000007 },
+ { 374.35999999999996, 2, -9.6999999999999993 },
+ { 366.63999999999999, 2, -9.5999999999999996 },
+ { 359.00000000000000, 2, -9.5000000000000000 },
+ { 351.44000000000005, 2, -9.4000000000000004 },
+ { 343.96000000000004, 2, -9.3000000000000007 },
+ { 336.55999999999995, 2, -9.1999999999999993 },
+ { 329.23999999999995, 2, -9.0999999999999996 },
+ { 322.00000000000000, 2, -9.0000000000000000 },
+ { 314.84000000000003, 2, -8.9000000000000004 },
+ { 307.76000000000005, 2, -8.8000000000000007 },
+ { 300.75999999999993, 2, -8.6999999999999993 },
+ { 293.83999999999997, 2, -8.5999999999999996 },
+ { 287.00000000000000, 2, -8.5000000000000000 },
+ { 280.24000000000001, 2, -8.4000000000000004 },
+ { 273.56000000000006, 2, -8.3000000000000007 },
+ { 266.95999999999998, 2, -8.1999999999999993 },
+ { 260.44000000000000, 2, -8.0999999999999996 },
+ { 254.00000000000000, 2, -8.0000000000000000 },
+ { 247.64000000000001, 2, -7.9000000000000004 },
+ { 241.35999999999999, 2, -7.7999999999999998 },
+ { 235.16000000000003, 2, -7.7000000000000002 },
+ { 229.03999999999999, 2, -7.5999999999999996 },
+ { 223.00000000000000, 2, -7.5000000000000000 },
+ { 217.04000000000002, 2, -7.4000000000000004 },
+ { 211.16000000000000, 2, -7.2999999999999998 },
+ { 205.36000000000001, 2, -7.2000000000000002 },
+ { 199.63999999999999, 2, -7.0999999999999996 },
+ { 194.00000000000000, 2, -7.0000000000000000 },
+ { 188.44000000000003, 2, -6.9000000000000004 },
+ { 182.95999999999998, 2, -6.7999999999999998 },
+ { 177.56000000000000, 2, -6.7000000000000002 },
+ { 172.23999999999998, 2, -6.5999999999999996 },
+ { 167.00000000000000, 2, -6.5000000000000000 },
+ { 161.84000000000003, 2, -6.4000000000000004 },
+ { 156.75999999999999, 2, -6.2999999999999998 },
+ { 151.76000000000002, 2, -6.2000000000000002 },
+ { 146.83999999999997, 2, -6.0999999999999996 },
+ { 142.00000000000000, 2, -6.0000000000000000 },
+ { 137.24000000000001, 2, -5.9000000000000004 },
+ { 132.56000000000000, 2, -5.7999999999999998 },
+ { 127.96000000000001, 2, -5.7000000000000002 },
+ { 123.43999999999998, 2, -5.5999999999999996 },
+ { 119.00000000000000, 2, -5.5000000000000000 },
+ { 114.64000000000001, 2, -5.4000000000000004 },
+ { 110.36000000000000, 2, -5.2999999999999998 },
+ { 106.16000000000001, 2, -5.2000000000000002 },
+ { 102.03999999999999, 2, -5.0999999999999996 },
+ { 98.000000000000000, 2, -5.0000000000000000 },
+ { 94.040000000000020, 2, -4.9000000000000004 },
+ { 90.159999999999997, 2, -4.7999999999999998 },
+ { 86.360000000000014, 2, -4.7000000000000002 },
+ { 82.639999999999986, 2, -4.5999999999999996 },
+ { 79.000000000000000, 2, -4.5000000000000000 },
+ { 75.440000000000012, 2, -4.4000000000000004 },
+ { 71.959999999999994, 2, -4.2999999999999998 },
+ { 68.560000000000002, 2, -4.2000000000000002 },
+ { 65.239999999999995, 2, -4.0999999999999996 },
+ { 62.000000000000000, 2, -4.0000000000000000 },
+ { 58.840000000000011, 2, -3.9000000000000004 },
+ { 55.759999999999998, 2, -3.7999999999999998 },
+ { 52.760000000000005, 2, -3.7000000000000002 },
+ { 49.839999999999989, 2, -3.5999999999999996 },
+ { 47.000000000000000, 2, -3.5000000000000000 },
+ { 44.240000000000009, 2, -3.4000000000000004 },
+ { 41.559999999999995, 2, -3.2999999999999998 },
+ { 38.960000000000008, 2, -3.2000000000000002 },
+ { 36.439999999999991, 2, -3.0999999999999996 },
+ { 34.000000000000000, 2, -3.0000000000000000 },
+ { 31.640000000000008, 2, -2.9000000000000004 },
+ { 29.359999999999996, 2, -2.7999999999999998 },
+ { 27.160000000000004, 2, -2.7000000000000002 },
+ { 25.039999999999992, 2, -2.5999999999999996 },
+ { 23.000000000000000, 2, -2.5000000000000000 },
+ { 21.040000000000006, 2, -2.4000000000000004 },
+ { 19.159999999999997, 2, -2.2999999999999998 },
+ { 17.360000000000003, 2, -2.2000000000000002 },
+ { 15.639999999999993, 2, -2.0999999999999996 },
+ { 14.000000000000000, 2, -2.0000000000000000 },
+ { 12.440000000000005, 2, -1.9000000000000004 },
+ { 10.960000000000010, 2, -1.8000000000000007 },
+ { 9.5599999999999898, 2, -1.6999999999999993 },
+ { 8.2399999999999949, 2, -1.5999999999999996 },
+ { 7.0000000000000000, 2, -1.5000000000000000 },
+ { 5.8400000000000043, 2, -1.4000000000000004 },
+ { 4.7600000000000078, 2, -1.3000000000000007 },
+ { 3.7599999999999936, 2, -1.1999999999999993 },
+ { 2.8399999999999972, 2, -1.0999999999999996 },
+ { 2.0000000000000000, 2, -1.0000000000000000 },
+ { 1.2400000000000024, 2, -0.90000000000000036 },
+ { 0.56000000000000449, 2, -0.80000000000000071 },
+ { -0.040000000000004032, 2, -0.69999999999999929 },
+ { -0.56000000000000161, 2, -0.59999999999999964 },
+ { -1.0000000000000000, 2, -0.50000000000000000 },
+ { -1.3599999999999990, 2, -0.40000000000000036 },
+ { -1.6399999999999983, 2, -0.30000000000000071 },
+ { -1.8400000000000012, 2, -0.19999999999999929 },
+ { -1.9600000000000002, 2, -0.099999999999999645 },
+ { -2.0000000000000000, 2, 0.0000000000000000 },
+ { -1.9600000000000002, 2, 0.099999999999999645 },
+ { -1.8400000000000012, 2, 0.19999999999999929 },
+ { -1.6399999999999983, 2, 0.30000000000000071 },
+ { -1.3599999999999990, 2, 0.40000000000000036 },
+ { -1.0000000000000000, 2, 0.50000000000000000 },
+ { -0.56000000000000161, 2, 0.59999999999999964 },
+ { -0.040000000000004032, 2, 0.69999999999999929 },
+ { 0.56000000000000449, 2, 0.80000000000000071 },
+ { 1.2400000000000024, 2, 0.90000000000000036 },
+ { 2.0000000000000000, 2, 1.0000000000000000 },
+ { 2.8399999999999972, 2, 1.0999999999999996 },
+ { 3.7599999999999936, 2, 1.1999999999999993 },
+ { 4.7600000000000078, 2, 1.3000000000000007 },
+ { 5.8400000000000043, 2, 1.4000000000000004 },
+ { 7.0000000000000000, 2, 1.5000000000000000 },
+ { 8.2399999999999949, 2, 1.5999999999999996 },
+ { 9.5599999999999898, 2, 1.6999999999999993 },
+ { 10.960000000000010, 2, 1.8000000000000007 },
+ { 12.440000000000005, 2, 1.9000000000000004 },
+ { 14.000000000000000, 2, 2.0000000000000000 },
+ { 15.639999999999993, 2, 2.0999999999999996 },
+ { 17.359999999999989, 2, 2.1999999999999993 },
+ { 19.160000000000014, 2, 2.3000000000000007 },
+ { 21.040000000000006, 2, 2.4000000000000004 },
+ { 23.000000000000000, 2, 2.5000000000000000 },
+ { 25.039999999999992, 2, 2.5999999999999996 },
+ { 27.159999999999986, 2, 2.6999999999999993 },
+ { 29.360000000000017, 2, 2.8000000000000007 },
+ { 31.640000000000008, 2, 2.9000000000000004 },
+ { 34.000000000000000, 2, 3.0000000000000000 },
+ { 36.439999999999991, 2, 3.0999999999999996 },
+ { 38.959999999999980, 2, 3.1999999999999993 },
+ { 41.560000000000016, 2, 3.3000000000000007 },
+ { 44.240000000000009, 2, 3.4000000000000004 },
+ { 47.000000000000000, 2, 3.5000000000000000 },
+ { 49.839999999999989, 2, 3.5999999999999996 },
+ { 52.759999999999977, 2, 3.6999999999999993 },
+ { 55.760000000000019, 2, 3.8000000000000007 },
+ { 58.840000000000011, 2, 3.9000000000000004 },
+ { 62.000000000000000, 2, 4.0000000000000000 },
+ { 65.239999999999995, 2, 4.0999999999999996 },
+ { 68.559999999999974, 2, 4.1999999999999993 },
+ { 71.960000000000022, 2, 4.3000000000000007 },
+ { 75.440000000000012, 2, 4.4000000000000004 },
+ { 79.000000000000000, 2, 4.5000000000000000 },
+ { 82.639999999999986, 2, 4.5999999999999996 },
+ { 86.359999999999971, 2, 4.6999999999999993 },
+ { 90.160000000000025, 2, 4.8000000000000007 },
+ { 94.040000000000020, 2, 4.9000000000000004 },
+ { 98.000000000000000, 2, 5.0000000000000000 },
+ { 102.03999999999999, 2, 5.0999999999999996 },
+ { 106.15999999999997, 2, 5.1999999999999993 },
+ { 110.36000000000003, 2, 5.3000000000000007 },
+ { 114.64000000000001, 2, 5.4000000000000004 },
+ { 119.00000000000000, 2, 5.5000000000000000 },
+ { 123.43999999999998, 2, 5.5999999999999996 },
+ { 127.95999999999998, 2, 5.6999999999999993 },
+ { 132.56000000000003, 2, 5.8000000000000007 },
+ { 137.24000000000001, 2, 5.9000000000000004 },
+ { 142.00000000000000, 2, 6.0000000000000000 },
+ { 146.84000000000006, 2, 6.1000000000000014 },
+ { 151.75999999999996, 2, 6.1999999999999993 },
+ { 156.76000000000005, 2, 6.3000000000000007 },
+ { 161.83999999999992, 2, 6.3999999999999986 },
+ { 167.00000000000000, 2, 6.5000000000000000 },
+ { 172.24000000000007, 2, 6.6000000000000014 },
+ { 177.55999999999997, 2, 6.6999999999999993 },
+ { 182.96000000000004, 2, 6.8000000000000007 },
+ { 188.43999999999991, 2, 6.8999999999999986 },
+ { 194.00000000000000, 2, 7.0000000000000000 },
+ { 199.64000000000007, 2, 7.1000000000000014 },
+ { 205.35999999999996, 2, 7.1999999999999993 },
+ { 211.16000000000005, 2, 7.3000000000000007 },
+ { 217.03999999999991, 2, 7.3999999999999986 },
+ { 223.00000000000000, 2, 7.5000000000000000 },
+ { 229.04000000000008, 2, 7.6000000000000014 },
+ { 235.15999999999997, 2, 7.6999999999999993 },
+ { 241.36000000000004, 2, 7.8000000000000007 },
+ { 247.63999999999990, 2, 7.8999999999999986 },
+ { 254.00000000000000, 2, 8.0000000000000000 },
+ { 260.44000000000011, 2, 8.1000000000000014 },
+ { 266.95999999999998, 2, 8.1999999999999993 },
+ { 273.56000000000006, 2, 8.3000000000000007 },
+ { 280.23999999999990, 2, 8.3999999999999986 },
+ { 287.00000000000000, 2, 8.5000000000000000 },
+ { 293.84000000000009, 2, 8.6000000000000014 },
+ { 300.75999999999993, 2, 8.6999999999999993 },
+ { 307.76000000000005, 2, 8.8000000000000007 },
+ { 314.83999999999992, 2, 8.8999999999999986 },
+ { 322.00000000000000, 2, 9.0000000000000000 },
+ { 329.24000000000012, 2, 9.1000000000000014 },
+ { 336.55999999999995, 2, 9.1999999999999993 },
+ { 343.96000000000004, 2, 9.3000000000000007 },
+ { 351.43999999999988, 2, 9.3999999999999986 },
+ { 359.00000000000000, 2, 9.5000000000000000 },
+ { 366.64000000000010, 2, 9.6000000000000014 },
+ { 374.35999999999996, 2, 9.6999999999999993 },
+ { 382.16000000000008, 2, 9.8000000000000007 },
+ { 390.03999999999991, 2, 9.8999999999999986 },
+ { 398.00000000000000, 2, 10.000000000000000 },
+};
+const double toler003 = 2.5000000000000020e-13;
+
+// Test data for n=5.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hermite<double>
+data004[201] =
+{
+ { -3041200.0000000000, 5, -10.000000000000000 },
+ { -2889108.3196800007, 5, -9.9000000000000004 },
+ { -2743131.8297600015, 5, -9.8000000000000007 },
+ { -2603085.2022399991, 5, -9.6999999999999993 },
+ { -2468786.8723199992, 5, -9.5999999999999996 },
+ { -2340059.0000000000, 5, -9.5000000000000000 },
+ { -2216727.4316800009, 5, -9.4000000000000004 },
+ { -2098621.6617600010, 5, -9.3000000000000007 },
+ { -1985574.7942399993, 5, -9.1999999999999993 },
+ { -1877423.5043199996, 5, -9.0999999999999996 },
+ { -1774008.0000000000, 5, -9.0000000000000000 },
+ { -1675171.9836800008, 5, -8.9000000000000004 },
+ { -1580762.6137600006, 5, -8.8000000000000007 },
+ { -1490630.4662399990, 5, -8.6999999999999993 },
+ { -1404629.4963199999, 5, -8.5999999999999996 },
+ { -1322617.0000000000, 5, -8.5000000000000000 },
+ { -1244453.5756800002, 5, -8.4000000000000004 },
+ { -1170003.0857600006, 5, -8.3000000000000007 },
+ { -1099132.6182399995, 5, -8.1999999999999993 },
+ { -1031712.4483199996, 5, -8.0999999999999996 },
+ { -967616.00000000000, 5, -8.0000000000000000 },
+ { -906719.80768000009, 5, -7.9000000000000004 },
+ { -848903.47775999992, 5, -7.7999999999999998 },
+ { -794049.65024000010, 5, -7.7000000000000002 },
+ { -742043.96031999995, 5, -7.5999999999999996 },
+ { -692775.00000000000, 5, -7.5000000000000000 },
+ { -646134.27968000027, 5, -7.4000000000000004 },
+ { -602016.18975999986, 5, -7.2999999999999998 },
+ { -560317.96224000002, 5, -7.2000000000000002 },
+ { -520939.63231999992, 5, -7.0999999999999996 },
+ { -483784.00000000000, 5, -7.0000000000000000 },
+ { -448756.59168000019, 5, -6.9000000000000004 },
+ { -415765.62176000001, 5, -6.7999999999999998 },
+ { -384721.95424000005, 5, -6.7000000000000002 },
+ { -355539.06431999995, 5, -6.5999999999999996 },
+ { -328133.00000000000, 5, -6.5000000000000000 },
+ { -302422.34368000011, 5, -6.4000000000000004 },
+ { -278328.17375999998, 5, -6.2999999999999998 },
+ { -255774.02624000004, 5, -6.2000000000000002 },
+ { -234685.85631999990, 5, -6.0999999999999996 },
+ { -214992.00000000000, 5, -6.0000000000000000 },
+ { -196623.13568000006, 5, -5.9000000000000004 },
+ { -179512.24575999999, 5, -5.7999999999999998 },
+ { -163594.57824000003, 5, -5.7000000000000002 },
+ { -148807.60831999997, 5, -5.5999999999999996 },
+ { -135091.00000000000, 5, -5.5000000000000000 },
+ { -122386.56768000004, 5, -5.4000000000000004 },
+ { -110638.23776000000, 5, -5.2999999999999998 },
+ { -99792.010240000047, 5, -5.2000000000000002 },
+ { -89795.920319999976, 5, -5.0999999999999996 },
+ { -80600.000000000000, 5, -5.0000000000000000 },
+ { -72156.239680000028, 5, -4.9000000000000004 },
+ { -64418.549759999994, 5, -4.7999999999999998 },
+ { -57342.722240000010, 5, -4.7000000000000002 },
+ { -50886.392319999970, 5, -4.5999999999999996 },
+ { -45009.000000000000, 5, -4.5000000000000000 },
+ { -39671.751680000008, 5, -4.4000000000000004 },
+ { -34837.581759999986, 5, -4.2999999999999998 },
+ { -30471.114240000010, 5, -4.2000000000000002 },
+ { -26538.624319999992, 5, -4.0999999999999996 },
+ { -23008.000000000000, 5, -4.0000000000000000 },
+ { -19848.703680000013, 5, -3.9000000000000004 },
+ { -17031.733759999996, 5, -3.7999999999999998 },
+ { -14529.586240000001, 5, -3.7000000000000002 },
+ { -12316.216319999992, 5, -3.5999999999999996 },
+ { -10367.000000000000, 5, -3.5000000000000000 },
+ { -8658.6956800000080, 5, -3.4000000000000004 },
+ { -7169.4057599999960, 5, -3.2999999999999998 },
+ { -5878.5382400000035, 5, -3.2000000000000002 },
+ { -4766.7683199999965, 5, -3.0999999999999996 },
+ { -3816.0000000000000, 5, -3.0000000000000000 },
+ { -3009.3276800000026, 5, -2.9000000000000004 },
+ { -2330.9977599999988, 5, -2.7999999999999998 },
+ { -1766.3702400000002, 5, -2.7000000000000002 },
+ { -1301.8803199999984, 5, -2.5999999999999996 },
+ { -925.00000000000000, 5, -2.5000000000000000 },
+ { -624.19968000000074, 5, -2.4000000000000004 },
+ { -388.90975999999978, 5, -2.2999999999999998 },
+ { -209.48224000000022, 5, -2.2000000000000002 },
+ { -77.152319999999520, 5, -2.0999999999999996 },
+ { 16.000000000000000, 5, -2.0000000000000000 },
+ { 77.088319999999840, 5, -1.9000000000000004 },
+ { 112.45823999999980, 5, -1.8000000000000007 },
+ { 127.72576000000002, 5, -1.6999999999999993 },
+ { 127.81567999999996, 5, -1.5999999999999996 },
+ { 117.00000000000000, 5, -1.5000000000000000 },
+ { 98.936320000000080, 5, -1.4000000000000004 },
+ { 76.706240000000179, 5, -1.3000000000000007 },
+ { 52.853759999999838, 5, -1.1999999999999993 },
+ { 29.423679999999933, 5, -1.0999999999999996 },
+ { 8.0000000000000000, 5, -1.0000000000000000 },
+ { -10.255679999999948, 5, -0.90000000000000036 },
+ { -24.565759999999916, 5, -0.80000000000000071 },
+ { -34.498240000000052, 5, -0.69999999999999929 },
+ { -39.928320000000006, 5, -0.59999999999999964 },
+ { -41.000000000000000, 5, -0.50000000000000000 },
+ { -38.087680000000020, 5, -0.40000000000000036 },
+ { -31.757760000000054, 5, -0.30000000000000071 },
+ { -22.730239999999931, 5, -0.19999999999999929 },
+ { -11.840319999999959, 5, -0.099999999999999645 },
+ { 0.0000000000000000, 5, 0.0000000000000000 },
+ { 11.840319999999959, 5, 0.099999999999999645 },
+ { 22.730239999999931, 5, 0.19999999999999929 },
+ { 31.757760000000054, 5, 0.30000000000000071 },
+ { 38.087680000000020, 5, 0.40000000000000036 },
+ { 41.000000000000000, 5, 0.50000000000000000 },
+ { 39.928320000000006, 5, 0.59999999999999964 },
+ { 34.498240000000052, 5, 0.69999999999999929 },
+ { 24.565759999999916, 5, 0.80000000000000071 },
+ { 10.255679999999948, 5, 0.90000000000000036 },
+ { -8.0000000000000000, 5, 1.0000000000000000 },
+ { -29.423679999999933, 5, 1.0999999999999996 },
+ { -52.853759999999838, 5, 1.1999999999999993 },
+ { -76.706240000000179, 5, 1.3000000000000007 },
+ { -98.936320000000080, 5, 1.4000000000000004 },
+ { -117.00000000000000, 5, 1.5000000000000000 },
+ { -127.81567999999996, 5, 1.5999999999999996 },
+ { -127.72576000000002, 5, 1.6999999999999993 },
+ { -112.45823999999980, 5, 1.8000000000000007 },
+ { -77.088319999999840, 5, 1.9000000000000004 },
+ { -16.000000000000000, 5, 2.0000000000000000 },
+ { 77.152319999999520, 5, 2.0999999999999996 },
+ { 209.48223999999891, 5, 2.1999999999999993 },
+ { 388.90976000000148, 5, 2.3000000000000007 },
+ { 624.19968000000074, 5, 2.4000000000000004 },
+ { 925.00000000000000, 5, 2.5000000000000000 },
+ { 1301.8803199999984, 5, 2.5999999999999996 },
+ { 1766.3702399999963, 5, 2.6999999999999993 },
+ { 2330.9977600000047, 5, 2.8000000000000007 },
+ { 3009.3276800000026, 5, 2.9000000000000004 },
+ { 3816.0000000000000, 5, 3.0000000000000000 },
+ { 4766.7683199999965, 5, 3.0999999999999996 },
+ { 5878.5382399999908, 5, 3.1999999999999993 },
+ { 7169.4057600000087, 5, 3.3000000000000007 },
+ { 8658.6956800000080, 5, 3.4000000000000004 },
+ { 10367.000000000000, 5, 3.5000000000000000 },
+ { 12316.216319999992, 5, 3.5999999999999996 },
+ { 14529.586239999979, 5, 3.6999999999999993 },
+ { 17031.733760000021, 5, 3.8000000000000007 },
+ { 19848.703680000013, 5, 3.9000000000000004 },
+ { 23008.000000000000, 5, 4.0000000000000000 },
+ { 26538.624319999992, 5, 4.0999999999999996 },
+ { 30471.114239999963, 5, 4.1999999999999993 },
+ { 34837.581760000037, 5, 4.3000000000000007 },
+ { 39671.751680000008, 5, 4.4000000000000004 },
+ { 45009.000000000000, 5, 4.5000000000000000 },
+ { 50886.392319999970, 5, 4.5999999999999996 },
+ { 57342.722239999952, 5, 4.6999999999999993 },
+ { 64418.549760000053, 5, 4.8000000000000007 },
+ { 72156.239680000028, 5, 4.9000000000000004 },
+ { 80600.000000000000, 5, 5.0000000000000000 },
+ { 89795.920319999976, 5, 5.0999999999999996 },
+ { 99792.010239999945, 5, 5.1999999999999993 },
+ { 110638.23776000006, 5, 5.3000000000000007 },
+ { 122386.56768000004, 5, 5.4000000000000004 },
+ { 135091.00000000000, 5, 5.5000000000000000 },
+ { 148807.60831999997, 5, 5.5999999999999996 },
+ { 163594.57823999992, 5, 5.6999999999999993 },
+ { 179512.24576000011, 5, 5.8000000000000007 },
+ { 196623.13568000006, 5, 5.9000000000000004 },
+ { 214992.00000000000, 5, 6.0000000000000000 },
+ { 234685.85632000031, 5, 6.1000000000000014 },
+ { 255774.02623999983, 5, 6.1999999999999993 },
+ { 278328.17376000021, 5, 6.3000000000000007 },
+ { 302422.34367999958, 5, 6.3999999999999986 },
+ { 328133.00000000000, 5, 6.5000000000000000 },
+ { 355539.06432000035, 5, 6.6000000000000014 },
+ { 384721.95423999976, 5, 6.6999999999999993 },
+ { 415765.62176000018, 5, 6.8000000000000007 },
+ { 448756.59167999960, 5, 6.8999999999999986 },
+ { 483784.00000000000, 5, 7.0000000000000000 },
+ { 520939.63232000044, 5, 7.1000000000000014 },
+ { 560317.96223999979, 5, 7.1999999999999993 },
+ { 602016.18976000033, 5, 7.3000000000000007 },
+ { 646134.27967999945, 5, 7.3999999999999986 },
+ { 692775.00000000000, 5, 7.5000000000000000 },
+ { 742043.96032000054, 5, 7.6000000000000014 },
+ { 794049.65023999964, 5, 7.6999999999999993 },
+ { 848903.47776000027, 5, 7.8000000000000007 },
+ { 906719.80767999915, 5, 7.8999999999999986 },
+ { 967616.00000000000, 5, 8.0000000000000000 },
+ { 1031712.4483200011, 5, 8.1000000000000014 },
+ { 1099132.6182399995, 5, 8.1999999999999993 },
+ { 1170003.0857600006, 5, 8.3000000000000007 },
+ { 1244453.5756799988, 5, 8.3999999999999986 },
+ { 1322617.0000000000, 5, 8.5000000000000000 },
+ { 1404629.4963200013, 5, 8.6000000000000014 },
+ { 1490630.4662399990, 5, 8.6999999999999993 },
+ { 1580762.6137600006, 5, 8.8000000000000007 },
+ { 1675171.9836799989, 5, 8.8999999999999986 },
+ { 1774008.0000000000, 5, 9.0000000000000000 },
+ { 1877423.5043200015, 5, 9.1000000000000014 },
+ { 1985574.7942399993, 5, 9.1999999999999993 },
+ { 2098621.6617600010, 5, 9.3000000000000007 },
+ { 2216727.4316799981, 5, 9.3999999999999986 },
+ { 2340059.0000000000, 5, 9.5000000000000000 },
+ { 2468786.8723200019, 5, 9.6000000000000014 },
+ { 2603085.2022399991, 5, 9.6999999999999993 },
+ { 2743131.8297600015, 5, 9.8000000000000007 },
+ { 2889108.3196799983, 5, 9.8999999999999986 },
+ { 3041200.0000000000, 5, 10.000000000000000 },
+};
+const double toler004 = 2.5000000000000020e-13;
+
+// Test data for n=10.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hermite<double>
+data005[201] =
+{
+ { 8093278209760.0000, 10, -10.000000000000000 },
+ { 7282867075495.3066, 10, -9.9000000000000004 },
+ { 6545846221520.6768, 10, -9.8000000000000007 },
+ { 5876279006180.6377, 10, -9.6999999999999993 },
+ { 5268651052510.4668, 10, -9.5999999999999996 },
+ { 4717844376391.0000, 10, -9.5000000000000000 },
+ { 4219112842239.1147, 10, -9.4000000000000004 },
+ { 3768058891466.0469, 10, -9.3000000000000007 },
+ { 3360611490639.0889, 10, -9.1999999999999993 },
+ { 2993005247949.7607, 10, -9.0999999999999996 },
+ { 2661760648224.0000, 10, -9.0000000000000000 },
+ { 2363665358307.8496, 10, -8.9000000000000004 },
+ { 2095756556225.3428, 10, -8.8000000000000007 },
+ { 1855304239034.7983, 10, -8.6999999999999993 },
+ { 1639795465805.4746, 10, -8.5999999999999996 },
+ { 1446919493599.0000, 10, -8.5000000000000000 },
+ { 1274553765769.7463, 10, -8.4000000000000004 },
+ { 1120750713295.2778, 10, -8.3000000000000007 },
+ { 983725331213.07190, 10, -8.1999999999999993 },
+ { 861843493572.90051, 10, -8.0999999999999996 },
+ { 753610971616.00000, 10, -8.0000000000000000 },
+ { 657663121163.02454, 10, -7.9000000000000004 },
+ { 572755206432.81335, 10, -7.7999999999999998 },
+ { 497753328723.87518, 10, -7.7000000000000002 },
+ { 431625929570.40063, 10, -7.5999999999999996 },
+ { 373435839135.00000, 10, -7.5000000000000000 },
+ { 322332841721.55731, 10, -7.4000000000000004 },
+ { 277546731384.01782, 10, -7.2999999999999998 },
+ { 238380831670.89990, 10, -7.2000000000000002 },
+ { 204205954581.24731, 10, -7.0999999999999996 },
+ { 174454774816.00000, 10, -7.0000000000000000 },
+ { 148616596389.67230, 10, -6.9000000000000004 },
+ { 126232489621.23923, 10, -6.7999999999999998 },
+ { 106890777450.54663, 10, -6.7000000000000002 },
+ { 90222850927.787979, 10, -6.5999999999999996 },
+ { 75899294599.000000, 10, -6.5000000000000000 },
+ { 63626303360.468109, 10, -6.4000000000000004 },
+ { 53142373179.806053, 10, -6.2999999999999998 },
+ { 44215248881.625534, 10, -6.2000000000000002 },
+ { 36639112971.527679, 10, -6.0999999999999996 },
+ { 30232000224.000000, 10, -6.0000000000000000 },
+ { 24833423488.050617, 10, -5.9000000000000004 },
+ { 20302196869.444584, 10, -5.7999999999999998 },
+ { 16514443130.579359, 10, -5.7000000000000002 },
+ { 13361772808.732477, 10, -5.5999999999999996 },
+ { 10749623191.000000, 10, -5.5000000000000000 },
+ { 8595745900.0898170, 10, -5.4000000000000004 },
+ { 6828832439.6160822, 10, -5.2999999999999998 },
+ { 5387267621.0259018, 10, -5.2000000000000002 },
+ { 4218001347.1524582, 10, -5.0999999999999996 },
+ { 3275529760.0000000, 10, -5.0000000000000000 },
+ { 2520977273.0966806, 10, -4.9000000000000004 },
+ { 1921271501.9744270, 10, -4.7999999999999998 },
+ { 1448403580.4203825, 10, -4.7000000000000002 },
+ { 1078766805.4651456, 10, -4.5999999999999996 },
+ { 792566991.00000000, 10, -4.5000000000000000 },
+ { 573298328.81993556, 10, -4.4000000000000004 },
+ { 407278957.14375639, 10, -4.2999999999999998 },
+ { 283240820.63788313, 10, -4.2000000000000002 },
+ { 191968773.03860721, 10, -4.0999999999999996 },
+ { 125984224.00000000, 10, -4.0000000000000000 },
+ { 79268966.162877649, 10, -3.9000000000000004 },
+ { 47025137.016035721, 10, -3.7999999999999998 },
+ { 25467573.275709353, 10, -3.7000000000000002 },
+ { 11645103.614666298, 10, -3.5999999999999996 },
+ { 3287599.0000000000, 10, -3.5000000000000000 },
+ { -1324140.9798373245, 10, -3.4000000000000004 },
+ { -3468342.2313268245, 10, -3.2999999999999998 },
+ { -4074495.5241857050, 10, -3.2000000000000002 },
+ { -3800107.4878923763, 10, -3.0999999999999996 },
+ { -3093984.0000000000, 10, -3.0000000000000000 },
+ { -2247873.5653938209, 10, -2.9000000000000004 },
+ { -1438117.1978829810, 10, -2.7999999999999998 },
+ { -758781.93281034287, 10, -2.7000000000000002 },
+ { -247597.05012469599, 10, -2.5999999999999996 },
+ { 94135.000000000000, 10, -2.5000000000000000 },
+ { 286617.47398410190, 10, -2.4000000000000004 },
+ { 360718.79745525768, 10, -2.2999999999999998 },
+ { 350419.82826741762, 10, -2.2000000000000002 },
+ { 287863.09027338214, 10, -2.0999999999999996 },
+ { 200416.00000000000, 10, -2.0000000000000000 },
+ { 109249.22783242268, 10, -1.9000000000000004 },
+ { 29012.094015898125, 10, -1.8000000000000007 },
+ { -31740.330680422732, 10, -1.6999999999999993 },
+ { -69648.597834137676, 10, -1.5999999999999996 },
+ { -85401.000000000000, 10, -1.5000000000000000 },
+ { -82507.675752857642, 10, -1.4000000000000004 },
+ { -66123.413033062563, 10, -1.3000000000000007 },
+ { -42007.465141862223, 10, -1.1999999999999993 },
+ { -15676.055823257526, 10, -1.0999999999999996 },
+ { 8224.0000000000000, 10, -1.0000000000000000 },
+ { 26314.366684262357, 10, -0.90000000000000036 },
+ { 36668.344916377559, 10, -0.80000000000000071 },
+ { 38802.826035097583, 10, -0.69999999999999929 },
+ { 33513.167890022363, 10, -0.59999999999999964 },
+ { 22591.000000000000, 10, -0.50000000000000000 },
+ { 8467.6907597824556, 10, -0.40000000000000036 },
+ { -6173.8524877822965, 10, -0.30000000000000071 },
+ { -18778.856957542470, 10, -0.19999999999999929 },
+ { -27256.158950297624, 10, -0.099999999999999645 },
+ { -30240.000000000000, 10, 0.0000000000000000 },
+ { -27256.158950297624, 10, 0.099999999999999645 },
+ { -18778.856957542470, 10, 0.19999999999999929 },
+ { -6173.8524877822965, 10, 0.30000000000000071 },
+ { 8467.6907597824556, 10, 0.40000000000000036 },
+ { 22591.000000000000, 10, 0.50000000000000000 },
+ { 33513.167890022363, 10, 0.59999999999999964 },
+ { 38802.826035097583, 10, 0.69999999999999929 },
+ { 36668.344916377559, 10, 0.80000000000000071 },
+ { 26314.366684262357, 10, 0.90000000000000036 },
+ { 8224.0000000000000, 10, 1.0000000000000000 },
+ { -15676.055823257526, 10, 1.0999999999999996 },
+ { -42007.465141862223, 10, 1.1999999999999993 },
+ { -66123.413033062563, 10, 1.3000000000000007 },
+ { -82507.675752857642, 10, 1.4000000000000004 },
+ { -85401.000000000000, 10, 1.5000000000000000 },
+ { -69648.597834137676, 10, 1.5999999999999996 },
+ { -31740.330680422732, 10, 1.6999999999999993 },
+ { 29012.094015898125, 10, 1.8000000000000007 },
+ { 109249.22783242268, 10, 1.9000000000000004 },
+ { 200416.00000000000, 10, 2.0000000000000000 },
+ { 287863.09027338214, 10, 2.0999999999999996 },
+ { 350419.82826741732, 10, 2.1999999999999993 },
+ { 360718.79745525745, 10, 2.3000000000000007 },
+ { 286617.47398410190, 10, 2.4000000000000004 },
+ { 94135.000000000000, 10, 2.5000000000000000 },
+ { -247597.05012469599, 10, 2.5999999999999996 },
+ { -758781.93281033845, 10, 2.6999999999999993 },
+ { -1438117.1978829878, 10, 2.8000000000000007 },
+ { -2247873.5653938209, 10, 2.9000000000000004 },
+ { -3093984.0000000000, 10, 3.0000000000000000 },
+ { -3800107.4878923763, 10, 3.0999999999999996 },
+ { -4074495.5241857003, 10, 3.1999999999999993 },
+ { -3468342.2313268133, 10, 3.3000000000000007 },
+ { -1324140.9798373245, 10, 3.4000000000000004 },
+ { 3287599.0000000000, 10, 3.5000000000000000 },
+ { 11645103.614666298, 10, 3.5999999999999996 },
+ { 25467573.275709212, 10, 3.6999999999999993 },
+ { 47025137.016035900, 10, 3.8000000000000007 },
+ { 79268966.162877649, 10, 3.9000000000000004 },
+ { 125984224.00000000, 10, 4.0000000000000000 },
+ { 191968773.03860721, 10, 4.0999999999999996 },
+ { 283240820.63788199, 10, 4.1999999999999993 },
+ { 407278957.14375770, 10, 4.3000000000000007 },
+ { 573298328.81993556, 10, 4.4000000000000004 },
+ { 792566991.00000000, 10, 4.5000000000000000 },
+ { 1078766805.4651456, 10, 4.5999999999999996 },
+ { 1448403580.4203794, 10, 4.6999999999999993 },
+ { 1921271501.9744320, 10, 4.8000000000000007 },
+ { 2520977273.0966806, 10, 4.9000000000000004 },
+ { 3275529760.0000000, 10, 5.0000000000000000 },
+ { 4218001347.1524582, 10, 5.0999999999999996 },
+ { 5387267621.0258913, 10, 5.1999999999999993 },
+ { 6828832439.6160927, 10, 5.3000000000000007 },
+ { 8595745900.0898170, 10, 5.4000000000000004 },
+ { 10749623191.000000, 10, 5.5000000000000000 },
+ { 13361772808.732477, 10, 5.5999999999999996 },
+ { 16514443130.579332, 10, 5.6999999999999993 },
+ { 20302196869.444618, 10, 5.8000000000000007 },
+ { 24833423488.050617, 10, 5.9000000000000004 },
+ { 30232000224.000000, 10, 6.0000000000000000 },
+ { 36639112971.527824, 10, 6.1000000000000014 },
+ { 44215248881.625443, 10, 6.1999999999999993 },
+ { 53142373179.806152, 10, 6.3000000000000007 },
+ { 63626303360.467911, 10, 6.3999999999999986 },
+ { 75899294599.000000, 10, 6.5000000000000000 },
+ { 90222850927.788208, 10, 6.6000000000000014 },
+ { 106890777450.54652, 10, 6.6999999999999993 },
+ { 126232489621.23946, 10, 6.8000000000000007 },
+ { 148616596389.67184, 10, 6.8999999999999986 },
+ { 174454774816.00000, 10, 7.0000000000000000 },
+ { 204205954581.24780, 10, 7.1000000000000014 },
+ { 238380831670.89960, 10, 7.1999999999999993 },
+ { 277546731384.01831, 10, 7.3000000000000007 },
+ { 322332841721.55646, 10, 7.3999999999999986 },
+ { 373435839135.00000, 10, 7.5000000000000000 },
+ { 431625929570.40161, 10, 7.6000000000000014 },
+ { 497753328723.87476, 10, 7.6999999999999993 },
+ { 572755206432.81396, 10, 7.8000000000000007 },
+ { 657663121163.02307, 10, 7.8999999999999986 },
+ { 753610971616.00000, 10, 8.0000000000000000 },
+ { 861843493572.90283, 10, 8.1000000000000014 },
+ { 983725331213.07190, 10, 8.1999999999999993 },
+ { 1120750713295.2778, 10, 8.3000000000000007 },
+ { 1274553765769.7439, 10, 8.3999999999999986 },
+ { 1446919493599.0000, 10, 8.5000000000000000 },
+ { 1639795465805.4785, 10, 8.6000000000000014 },
+ { 1855304239034.7983, 10, 8.6999999999999993 },
+ { 2095756556225.3428, 10, 8.8000000000000007 },
+ { 2363665358307.8442, 10, 8.8999999999999986 },
+ { 2661760648224.0000, 10, 9.0000000000000000 },
+ { 2993005247949.7671, 10, 9.1000000000000014 },
+ { 3360611490639.0889, 10, 9.1999999999999993 },
+ { 3768058891466.0469, 10, 9.3000000000000007 },
+ { 4219112842239.1055, 10, 9.3999999999999986 },
+ { 4717844376391.0000, 10, 9.5000000000000000 },
+ { 5268651052510.4785, 10, 9.6000000000000014 },
+ { 5876279006180.6377, 10, 9.6999999999999993 },
+ { 6545846221520.6768, 10, 9.8000000000000007 },
+ { 7282867075495.2949, 10, 9.8999999999999986 },
+ { 8093278209760.0000, 10, 10.000000000000000 },
+};
+const double toler005 = 2.5000000000000020e-13;
+
+// Test data for n=20.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hermite<double>
+data006[201] =
+{
+ { 3.6536710970888030e+25, 20, -10.000000000000000 },
+ { 2.9174932703098834e+25, 20, -9.9000000000000004 },
+ { 2.3228769039548404e+25, 20, -9.8000000000000007 },
+ { 1.8439144509496016e+25, 20, -9.6999999999999993 },
+ { 1.4591971834545420e+25, 20, -9.5999999999999996 },
+ { 1.1510764882450827e+25, 20, -9.5000000000000000 },
+ { 9.0503941245991605e+24, 20, -9.4000000000000004 },
+ { 7.0918188910312152e+24, 20, -9.3000000000000007 },
+ { 5.5376531405202033e+24, 20, -9.1999999999999993 },
+ { 4.3084410724035914e+24, 20, -9.0999999999999996 },
+ { 3.3395360269524137e+24, 20, -9.0000000000000000 },
+ { 2.5784910430831484e+24, 20, -8.9000000000000004 },
+ { 1.9828824261062853e+24, 20, -8.8000000000000007 },
+ { 1.5184989558235974e+24, 20, -8.6999999999999993 },
+ { 1.1578391431515818e+24, 20, -8.5999999999999996 },
+ { 8.7886740525023878e+23, 20, -8.5000000000000000 },
+ { 6.6398733801206072e+23, 20, -8.4000000000000004 },
+ { 4.9919656538201190e+23, 20, -8.3000000000000007 },
+ { 3.7339306542317994e+23, 20, -8.1999999999999993 },
+ { 2.7780752653950559e+23, 20, -8.0999999999999996 },
+ { 2.0554027373991249e+23, 20, -8.0000000000000000 },
+ { 1.5118471231121695e+23, 20, -7.9000000000000004 },
+ { 1.1052214218386250e+23, 20, -7.7999999999999998 },
+ { 8.0275268594719504e+22, 20, -7.7000000000000002 },
+ { 5.7909832934009042e+22, 20, -7.5999999999999996 },
+ { 4.1475563998692745e+22, 20, -7.5000000000000000 },
+ { 2.9479149729249250e+22, 20, -7.4000000000000004 },
+ { 2.0783192485964573e+22, 20, -7.2999999999999998 },
+ { 1.4526171451238503e+22, 20, -7.2000000000000002 },
+ { 1.0059323685871305e+22, 20, -7.0999999999999996 },
+ { 6.8970965604502329e+21, 20, -7.0000000000000000 },
+ { 4.6784410379528280e+21, 20, -6.9000000000000004 },
+ { 3.1367268160419670e+21, 20, -6.7999999999999998 },
+ { 2.0764831558419748e+21, 20, -6.7000000000000002 },
+ { 1.3555174744148132e+21, 20, -6.5999999999999996 },
+ { 8.7124954970091579e+20, 20, -6.5000000000000000 },
+ { 5.5033278133788108e+20, 20, -6.4000000000000004 },
+ { 3.4082412197533739e+20, 20, -6.2999999999999998 },
+ { 2.0631845648712185e+20, 20, -6.2000000000000002 },
+ { 1.2158762212269028e+20, 20, -6.0999999999999996 },
+ { 6.9364200641629315e+19, 20, -6.0000000000000000 },
+ { 3.7990093270095905e+19, 20, -5.9000000000000004 },
+ { 1.9713403927925858e+19, 20, -5.7999999999999998 },
+ { 9.4673798488533340e+18, 20, -5.7000000000000002 },
+ { 4.0046403628787825e+18, 20, -5.5999999999999996 },
+ { 1.2907686705724293e+18, 20, -5.5000000000000000 },
+ { 85277679782823936., 20, -5.4000000000000004 },
+ { -3.4359547179069376e+17, 20, -5.2999999999999998 },
+ { -4.0970873501577555e+17, 20, -5.2000000000000002 },
+ { -3.3419585613348250e+17, 20, -5.0999999999999996 },
+ { -2.2571776716382720e+17, 20, -5.0000000000000000 },
+ { -1.3051120203565566e+17, 20, -4.9000000000000004 },
+ { -62555669197021992., 20, -4.7999999999999998 },
+ { -20974173561010048., 20, -4.7000000000000002 },
+ { 519073301695656.00, 20, -4.5999999999999996 },
+ { 8939556693761121.0, 20, -4.5000000000000000 },
+ { 10070625675125180., 20, -4.4000000000000004 },
+ { 7940371996960715.0, 20, -4.2999999999999998 },
+ { 4973623686173568.0, 20, -4.2000000000000002 },
+ { 2389023282480410.0, 20, -4.0999999999999996 },
+ { 619678016654336.00, 20, -4.0000000000000000 },
+ { -339773491011946.00, 20, -3.9000000000000004 },
+ { -687467334428204.38, 20, -3.7999999999999998 },
+ { -663019129550482.75, 20, -3.7000000000000002 },
+ { -469585152350670.25, 20, -3.5999999999999996 },
+ { -245659781875039.00, 20, -3.5000000000000000 },
+ { -66042773886778.938, 20, -3.4000000000000004 },
+ { 43442261337436.312, 20, -3.2999999999999998 },
+ { 87626632986465.375, 20, -3.2000000000000002 },
+ { 85786202388511.375, 20, -3.0999999999999996 },
+ { 59990281399296.000, 20, -3.0000000000000000 },
+ { 28343496696718.070, 20, -2.9000000000000004 },
+ { 2296898915036.0859, 20, -2.7999999999999998 },
+ { -13249381789941.502, 20, -2.7000000000000002 },
+ { -18328180426561.059, 20, -2.5999999999999996 },
+ { -15799429886575.000, 20, -2.5000000000000000 },
+ { -9442592050214.3027, 20, -2.4000000000000004 },
+ { -2602375356373.2393, 20, -2.2999999999999998 },
+ { 2521759315047.8428, 20, -2.2000000000000002 },
+ { 5027779307352.6660, 20, -2.0999999999999996 },
+ { 5080118660096.0000, 20, -2.0000000000000000 },
+ { 3490463276000.5425, 20, -1.9000000000000004 },
+ { 1277254793997.1128, 20, -1.8000000000000007 },
+ { -682119355279.28784, 20, -1.6999999999999993 },
+ { -1851544254412.3203, 20, -1.5999999999999996 },
+ { -2085387081039.0000, 20, -1.5000000000000000 },
+ { -1559402933581.5054, 20, -1.4000000000000004 },
+ { -634265763221.87231, 20, -1.3000000000000007 },
+ { 295481874887.33429, 20, -1.1999999999999993 },
+ { 924603483429.34241, 20, -1.0999999999999996 },
+ { 1107214478336.0000, 20, -1.0000000000000000 },
+ { 867235623835.12463, 20, -0.90000000000000036 },
+ { 358848462745.15466, 20, -0.80000000000000071 },
+ { -202944086511.71936, 20, -0.69999999999999929 },
+ { -617730863561.32617, 20, -0.59999999999999964 },
+ { -759627879679.00000, 20, -0.50000000000000000 },
+ { -607451728035.03271, 20, -0.40000000000000036 },
+ { -240424854484.42111, 20, -0.30000000000000071 },
+ { 195759209122.61337, 20, -0.19999999999999929 },
+ { 540334019322.52014, 20, -0.099999999999999645 },
+ { 670442572800.00000, 20, 0.0000000000000000 },
+ { 540334019322.52014, 20, 0.099999999999999645 },
+ { 195759209122.61337, 20, 0.19999999999999929 },
+ { -240424854484.42111, 20, 0.30000000000000071 },
+ { -607451728035.03271, 20, 0.40000000000000036 },
+ { -759627879679.00000, 20, 0.50000000000000000 },
+ { -617730863561.32617, 20, 0.59999999999999964 },
+ { -202944086511.71936, 20, 0.69999999999999929 },
+ { 358848462745.15466, 20, 0.80000000000000071 },
+ { 867235623835.12463, 20, 0.90000000000000036 },
+ { 1107214478336.0000, 20, 1.0000000000000000 },
+ { 924603483429.34241, 20, 1.0999999999999996 },
+ { 295481874887.33429, 20, 1.1999999999999993 },
+ { -634265763221.87231, 20, 1.3000000000000007 },
+ { -1559402933581.5054, 20, 1.4000000000000004 },
+ { -2085387081039.0000, 20, 1.5000000000000000 },
+ { -1851544254412.3203, 20, 1.5999999999999996 },
+ { -682119355279.28784, 20, 1.6999999999999993 },
+ { 1277254793997.1128, 20, 1.8000000000000007 },
+ { 3490463276000.5425, 20, 1.9000000000000004 },
+ { 5080118660096.0000, 20, 2.0000000000000000 },
+ { 5027779307352.6660, 20, 2.0999999999999996 },
+ { 2521759315047.8770, 20, 2.1999999999999993 },
+ { -2602375356373.2969, 20, 2.3000000000000007 },
+ { -9442592050214.3027, 20, 2.4000000000000004 },
+ { -15799429886575.000, 20, 2.5000000000000000 },
+ { -18328180426561.059, 20, 2.5999999999999996 },
+ { -13249381789941.586, 20, 2.6999999999999993 },
+ { 2296898915036.2812, 20, 2.8000000000000007 },
+ { 28343496696718.070, 20, 2.9000000000000004 },
+ { 59990281399296.000, 20, 3.0000000000000000 },
+ { 85786202388511.375, 20, 3.0999999999999996 },
+ { 87626632986465.438, 20, 3.1999999999999993 },
+ { 43442261337435.672, 20, 3.3000000000000007 },
+ { -66042773886778.938, 20, 3.4000000000000004 },
+ { -245659781875039.00, 20, 3.5000000000000000 },
+ { -469585152350670.25, 20, 3.5999999999999996 },
+ { -663019129550482.25, 20, 3.6999999999999993 },
+ { -687467334428203.38, 20, 3.8000000000000007 },
+ { -339773491011946.00, 20, 3.9000000000000004 },
+ { 619678016654336.00, 20, 4.0000000000000000 },
+ { 2389023282480410.0, 20, 4.0999999999999996 },
+ { 4973623686173539.0, 20, 4.1999999999999993 },
+ { 7940371996960741.0, 20, 4.3000000000000007 },
+ { 10070625675125180., 20, 4.4000000000000004 },
+ { 8939556693761121.0, 20, 4.5000000000000000 },
+ { 519073301695656.00, 20, 4.5999999999999996 },
+ { -20974173561009776., 20, 4.6999999999999993 },
+ { -62555669197022528., 20, 4.8000000000000007 },
+ { -1.3051120203565566e+17, 20, 4.9000000000000004 },
+ { -2.2571776716382720e+17, 20, 5.0000000000000000 },
+ { -3.3419585613348250e+17, 20, 5.0999999999999996 },
+ { -4.0970873501577562e+17, 20, 5.1999999999999993 },
+ { -3.4359547179069216e+17, 20, 5.3000000000000007 },
+ { 85277679782823936., 20, 5.4000000000000004 },
+ { 1.2907686705724293e+18, 20, 5.5000000000000000 },
+ { 4.0046403628787825e+18, 20, 5.5999999999999996 },
+ { 9.4673798488532767e+18, 20, 5.6999999999999993 },
+ { 1.9713403927925973e+19, 20, 5.8000000000000007 },
+ { 3.7990093270095905e+19, 20, 5.9000000000000004 },
+ { 6.9364200641629315e+19, 20, 6.0000000000000000 },
+ { 1.2158762212269156e+20, 20, 6.1000000000000014 },
+ { 2.0631845648712086e+20, 20, 6.1999999999999993 },
+ { 3.4082412197533902e+20, 20, 6.3000000000000007 },
+ { 5.5033278133787696e+20, 20, 6.3999999999999986 },
+ { 8.7124954970091579e+20, 20, 6.5000000000000000 },
+ { 1.3555174744148243e+21, 20, 6.6000000000000014 },
+ { 2.0764831558419680e+21, 20, 6.6999999999999993 },
+ { 3.1367268160419775e+21, 20, 6.8000000000000007 },
+ { 4.6784410379527966e+21, 20, 6.8999999999999986 },
+ { 6.8970965604502329e+21, 20, 7.0000000000000000 },
+ { 1.0059323685871368e+22, 20, 7.1000000000000014 },
+ { 1.4526171451238465e+22, 20, 7.1999999999999993 },
+ { 2.0783192485964666e+22, 20, 7.3000000000000007 },
+ { 2.9479149729249048e+22, 20, 7.3999999999999986 },
+ { 4.1475563998692745e+22, 20, 7.5000000000000000 },
+ { 5.7909832934009378e+22, 20, 7.6000000000000014 },
+ { 8.0275268594719286e+22, 20, 7.6999999999999993 },
+ { 1.1052214218386286e+23, 20, 7.8000000000000007 },
+ { 1.5118471231121604e+23, 20, 7.8999999999999986 },
+ { 2.0554027373991249e+23, 20, 8.0000000000000000 },
+ { 2.7780752653950703e+23, 20, 8.1000000000000014 },
+ { 3.7339306542317994e+23, 20, 8.1999999999999993 },
+ { 4.9919656538201190e+23, 20, 8.3000000000000007 },
+ { 6.6398733801205790e+23, 20, 8.3999999999999986 },
+ { 8.7886740525023878e+23, 20, 8.5000000000000000 },
+ { 1.1578391431515869e+24, 20, 8.6000000000000014 },
+ { 1.5184989558235974e+24, 20, 8.6999999999999993 },
+ { 1.9828824261062853e+24, 20, 8.8000000000000007 },
+ { 2.5784910430831355e+24, 20, 8.8999999999999986 },
+ { 3.3395360269524137e+24, 20, 9.0000000000000000 },
+ { 4.3084410724036123e+24, 20, 9.1000000000000014 },
+ { 5.5376531405202033e+24, 20, 9.1999999999999993 },
+ { 7.0918188910312152e+24, 20, 9.3000000000000007 },
+ { 9.0503941245991197e+24, 20, 9.3999999999999986 },
+ { 1.1510764882450827e+25, 20, 9.5000000000000000 },
+ { 1.4591971834545491e+25, 20, 9.6000000000000014 },
+ { 1.8439144509496016e+25, 20, 9.6999999999999993 },
+ { 2.3228769039548404e+25, 20, 9.8000000000000007 },
+ { 2.9174932703098731e+25, 20, 9.8999999999999986 },
+ { 3.6536710970888030e+25, 20, 10.000000000000000 },
+};
+const double toler006 = 2.5000000000000020e-13;
+
+// Test data for n=50.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hermite<double>
+data007[201] =
+{
+ { 1.3516643049819314e+61, 50, -10.000000000000000 },
+ { 5.8466703062266110e+60, 50, -9.9000000000000004 },
+ { 2.4344814863741168e+60, 50, -9.8000000000000007 },
+ { 9.6739828066585787e+59, 50, -9.6999999999999993 },
+ { 3.6194312967780128e+59, 50, -9.5999999999999996 },
+ { 1.2454022521696361e+59, 50, -9.5000000000000000 },
+ { 3.7546881918013145e+58, 50, -9.4000000000000004 },
+ { 8.6500158470917270e+57, 50, -9.3000000000000007 },
+ { 5.3163209769527426e+56, 50, -9.1999999999999993 },
+ { -9.7863165370930473e+56, 50, -9.0999999999999996 },
+ { -8.0563930902368911e+56, 50, -9.0000000000000000 },
+ { -4.3145937406321933e+56, 50, -8.9000000000000004 },
+ { -1.8210771577645630e+56, 50, -8.8000000000000007 },
+ { -6.0082225302289557e+55, 50, -8.6999999999999993 },
+ { -1.2392013720948442e+55, 50, -8.5999999999999996 },
+ { 1.5935887905806307e+54, 50, -8.5000000000000000 },
+ { 3.4325365049909381e+54, 50, -8.4000000000000004 },
+ { 2.2368641272300899e+54, 50, -8.3000000000000007 },
+ { 1.0009712198862341e+54, 50, -8.1999999999999993 },
+ { 3.0699480272357337e+53, 50, -8.0999999999999996 },
+ { 2.9492797132685063e+52, 50, -8.0000000000000000 },
+ { -3.9982544106300062e+52, 50, -7.9000000000000004 },
+ { -3.5678031330023779e+52, 50, -7.7999999999999998 },
+ { -1.8076371748762468e+52, 50, -7.7000000000000002 },
+ { -5.7887622198708925e+51, 50, -7.5999999999999996 },
+ { -3.5808467693113330e+50, 50, -7.5000000000000000 },
+ { 1.0219511166806405e+51, 50, -7.4000000000000004 },
+ { 8.4241263694549560e+50, 50, -7.2999999999999998 },
+ { 3.9143899315095369e+50, 50, -7.2000000000000002 },
+ { 9.3178966245756654e+49, 50, -7.0999999999999996 },
+ { -2.4714855983436561e+49, 50, -7.0000000000000000 },
+ { -4.1428217272044600e+49, 50, -6.9000000000000004 },
+ { -2.4864980414057334e+49, 50, -6.7999999999999998 },
+ { -8.0684355476447979e+48, 50, -6.7000000000000002 },
+ { 4.2529238530179841e+47, 50, -6.5999999999999996 },
+ { 2.4709663739849681e+48, 50, -6.5000000000000000 },
+ { 1.7500305481204125e+48, 50, -6.4000000000000004 },
+ { 6.3834558285146007e+47, 50, -6.2999999999999998 },
+ { -1.1477672402381055e+46, 50, -6.2000000000000002 },
+ { -1.9304630401841983e+47, 50, -6.0999999999999996 },
+ { -1.4355266959903589e+47, 50, -6.0000000000000000 },
+ { -5.1482200905566146e+46, 50, -5.9000000000000004 },
+ { 4.6577356827463283e+45, 50, -5.7999999999999998 },
+ { 1.9676012349652066e+46, 50, -5.7000000000000002 },
+ { 1.3630554018675846e+46, 50, -5.5999999999999996 },
+ { 4.0920495328093750e+45, 50, -5.5000000000000000 },
+ { -1.3680638882145392e+45, 50, -5.4000000000000004 },
+ { -2.4465265559935436e+45, 50, -5.2999999999999998 },
+ { -1.4270495629649456e+45, 50, -5.2000000000000002 },
+ { -2.4845518743338381e+44, 50, -5.0999999999999996 },
+ { 3.1953926721271990e+44, 50, -5.0000000000000000 },
+ { 3.4169399444879600e+44, 50, -4.9000000000000004 },
+ { 1.4896819114978755e+44, 50, -4.7999999999999998 },
+ { -1.3078430866968493e+43, 50, -4.7000000000000002 },
+ { -6.8449168639700716e+43, 50, -4.5999999999999996 },
+ { -4.9181639709997461e+43, 50, -4.5000000000000000 },
+ { -1.1434943490345182e+43, 50, -4.4000000000000004 },
+ { 1.1214652543461432e+43, 50, -4.2999999999999998 },
+ { 1.3843548994480608e+43, 50, -4.2000000000000002 },
+ { 6.3349790205303262e+42, 50, -4.0999999999999996 },
+ { -9.5599640670553907e+41, 50, -4.0000000000000000 },
+ { -3.6202558158287927e+42, 50, -3.9000000000000004 },
+ { -2.5206461734624493e+42, 50, -3.7999999999999998 },
+ { -3.7818051510732439e+41, 50, -3.7000000000000002 },
+ { 8.8921371165335050e+41, 50, -3.5999999999999996 },
+ { 9.2055485763852770e+41, 50, -3.5000000000000000 },
+ { 3.2535765707283020e+41, 50, -3.4000000000000004 },
+ { -1.9358941418244578e+41, 50, -3.2999999999999998 },
+ { -3.3076282847915670e+41, 50, -3.2000000000000002 },
+ { -1.7764977066639160e+41, 50, -3.0999999999999996 },
+ { 2.6751882008697154e+40, 50, -3.0000000000000000 },
+ { 1.2025382369996052e+41, 50, -2.9000000000000004 },
+ { 8.8383035103557973e+40, 50, -2.7999999999999998 },
+ { 7.7733606479641769e+39, 50, -2.7000000000000002 },
+ { -4.4696811758713757e+40, 50, -2.5999999999999996 },
+ { -4.3715062488963453e+40, 50, -2.5000000000000000 },
+ { -1.1390080390575289e+40, 50, -2.4000000000000004 },
+ { 1.6938519751181342e+40, 50, -2.2999999999999998 },
+ { 2.2284509952956210e+40, 50, -2.2000000000000002 },
+ { 9.0967994280570531e+39, 50, -2.0999999999999996 },
+ { -6.4126677997472978e+39, 50, -2.0000000000000000 },
+ { -1.1926839454034341e+40, 50, -1.9000000000000004 },
+ { -6.5436654274699114e+39, 50, -1.8000000000000007 },
+ { 2.2779499542550411e+39, 50, -1.6999999999999993 },
+ { 6.7720530889699639e+39, 50, -1.5999999999999996 },
+ { 4.6884851188034300e+39, 50, -1.5000000000000000 },
+ { -5.9005001052557463e+38, 50, -1.4000000000000004 },
+ { -4.1028320210430589e+39, 50, -1.3000000000000007 },
+ { -3.4780049977083965e+39, 50, -1.1999999999999993 },
+ { -1.3484918476373692e+38, 50, -1.0999999999999996 },
+ { 2.6586815431645456e+39, 50, -1.0000000000000000 },
+ { 2.7225429473661429e+39, 50, -0.90000000000000036 },
+ { 4.7785441024951729e+38, 50, -0.80000000000000071 },
+ { -1.8416784378790159e+39, 50, -0.69999999999999929 },
+ { -2.2725918816693132e+39, 50, -0.59999999999999964 },
+ { -6.7948375014926916e+38, 50, -0.50000000000000000 },
+ { 1.3581645858905750e+39, 50, -0.40000000000000036 },
+ { 2.0349661043040497e+39, 50, -0.30000000000000071 },
+ { 8.5049248815817037e+38, 50, -0.19999999999999929 },
+ { -1.0564542132990048e+39, 50, -0.099999999999999645 },
+ { -1.9607814681608194e+39, 50, 0.0000000000000000 },
+ { -1.0564542132990048e+39, 50, 0.099999999999999645 },
+ { 8.5049248815817037e+38, 50, 0.19999999999999929 },
+ { 2.0349661043040497e+39, 50, 0.30000000000000071 },
+ { 1.3581645858905750e+39, 50, 0.40000000000000036 },
+ { -6.7948375014926916e+38, 50, 0.50000000000000000 },
+ { -2.2725918816693132e+39, 50, 0.59999999999999964 },
+ { -1.8416784378790159e+39, 50, 0.69999999999999929 },
+ { 4.7785441024951729e+38, 50, 0.80000000000000071 },
+ { 2.7225429473661429e+39, 50, 0.90000000000000036 },
+ { 2.6586815431645456e+39, 50, 1.0000000000000000 },
+ { -1.3484918476373692e+38, 50, 1.0999999999999996 },
+ { -3.4780049977083965e+39, 50, 1.1999999999999993 },
+ { -4.1028320210430589e+39, 50, 1.3000000000000007 },
+ { -5.9005001052557463e+38, 50, 1.4000000000000004 },
+ { 4.6884851188034300e+39, 50, 1.5000000000000000 },
+ { 6.7720530889699639e+39, 50, 1.5999999999999996 },
+ { 2.2779499542550411e+39, 50, 1.6999999999999993 },
+ { -6.5436654274699114e+39, 50, 1.8000000000000007 },
+ { -1.1926839454034341e+40, 50, 1.9000000000000004 },
+ { -6.4126677997472978e+39, 50, 2.0000000000000000 },
+ { 9.0967994280570531e+39, 50, 2.0999999999999996 },
+ { 2.2284509952956162e+40, 50, 2.1999999999999993 },
+ { 1.6938519751181172e+40, 50, 2.3000000000000007 },
+ { -1.1390080390575289e+40, 50, 2.4000000000000004 },
+ { -4.3715062488963453e+40, 50, 2.5000000000000000 },
+ { -4.4696811758713757e+40, 50, 2.5999999999999996 },
+ { 7.7733606479635628e+39, 50, 2.6999999999999993 },
+ { 8.8383035103558611e+40, 50, 2.8000000000000007 },
+ { 1.2025382369996052e+41, 50, 2.9000000000000004 },
+ { 2.6751882008697154e+40, 50, 3.0000000000000000 },
+ { -1.7764977066639160e+41, 50, 3.0999999999999996 },
+ { -3.3076282847915616e+41, 50, 3.1999999999999993 },
+ { -1.9358941418244260e+41, 50, 3.3000000000000007 },
+ { 3.2535765707283020e+41, 50, 3.4000000000000004 },
+ { 9.2055485763852770e+41, 50, 3.5000000000000000 },
+ { 8.8921371165335050e+41, 50, 3.5999999999999996 },
+ { -3.7818051510730675e+41, 50, 3.6999999999999993 },
+ { -2.5206461734624660e+42, 50, 3.8000000000000007 },
+ { -3.6202558158287927e+42, 50, 3.9000000000000004 },
+ { -9.5599640670553907e+41, 50, 4.0000000000000000 },
+ { 6.3349790205303262e+42, 50, 4.0999999999999996 },
+ { 1.3843548994480566e+43, 50, 4.1999999999999993 },
+ { 1.1214652543461340e+43, 50, 4.3000000000000007 },
+ { -1.1434943490345182e+43, 50, 4.4000000000000004 },
+ { -4.9181639709997461e+43, 50, 4.5000000000000000 },
+ { -6.8449168639700716e+43, 50, 4.5999999999999996 },
+ { -1.3078430866969463e+43, 50, 4.6999999999999993 },
+ { 1.4896819114978953e+44, 50, 4.8000000000000007 },
+ { 3.4169399444879600e+44, 50, 4.9000000000000004 },
+ { 3.1953926721271990e+44, 50, 5.0000000000000000 },
+ { -2.4845518743338381e+44, 50, 5.0999999999999996 },
+ { -1.4270495629649337e+45, 50, 5.1999999999999993 },
+ { -2.4465265559935458e+45, 50, 5.3000000000000007 },
+ { -1.3680638882145392e+45, 50, 5.4000000000000004 },
+ { 4.0920495328093750e+45, 50, 5.5000000000000000 },
+ { 1.3630554018675846e+46, 50, 5.5999999999999996 },
+ { 1.9676012349652081e+46, 50, 5.6999999999999993 },
+ { 4.6577356827460393e+45, 50, 5.8000000000000007 },
+ { -5.1482200905566146e+46, 50, 5.9000000000000004 },
+ { -1.4355266959903589e+47, 50, 6.0000000000000000 },
+ { -1.9304630401841966e+47, 50, 6.1000000000000014 },
+ { -1.1477672402384868e+46, 50, 6.1999999999999993 },
+ { 6.3834558285146981e+47, 50, 6.3000000000000007 },
+ { 1.7500305481203924e+48, 50, 6.3999999999999986 },
+ { 2.4709663739849681e+48, 50, 6.5000000000000000 },
+ { 4.2529238530171793e+47, 50, 6.6000000000000014 },
+ { -8.0684355476446876e+48, 50, 6.6999999999999993 },
+ { -2.4864980414057495e+49, 50, 6.8000000000000007 },
+ { -4.1428217272044496e+49, 50, 6.8999999999999986 },
+ { -2.4714855983436561e+49, 50, 7.0000000000000000 },
+ { 9.3178966245760310e+49, 50, 7.1000000000000014 },
+ { 3.9143899315095070e+50, 50, 7.1999999999999993 },
+ { 8.4241263694549925e+50, 50, 7.3000000000000007 },
+ { 1.0219511166806458e+51, 50, 7.3999999999999986 },
+ { -3.5808467693113330e+50, 50, 7.5000000000000000 },
+ { -5.7887622198710268e+51, 50, 7.6000000000000014 },
+ { -1.8076371748762319e+52, 50, 7.6999999999999993 },
+ { -3.5678031330023971e+52, 50, 7.8000000000000007 },
+ { -3.9982544106300530e+52, 50, 7.8999999999999986 },
+ { 2.9492797132685063e+52, 50, 8.0000000000000000 },
+ { 3.0699480272358086e+53, 50, 8.1000000000000014 },
+ { 1.0009712198862341e+54, 50, 8.1999999999999993 },
+ { 2.2368641272300899e+54, 50, 8.3000000000000007 },
+ { 3.4325365049909340e+54, 50, 8.3999999999999986 },
+ { 1.5935887905806307e+54, 50, 8.5000000000000000 },
+ { -1.2392013720948937e+55, 50, 8.6000000000000014 },
+ { -6.0082225302289557e+55, 50, 8.6999999999999993 },
+ { -1.8210771577645630e+56, 50, 8.8000000000000007 },
+ { -4.3145937406321376e+56, 50, 8.8999999999999986 },
+ { -8.0563930902368911e+56, 50, 9.0000000000000000 },
+ { -9.7863165370930194e+56, 50, 9.1000000000000014 },
+ { 5.3163209769527426e+56, 50, 9.1999999999999993 },
+ { 8.6500158470917270e+57, 50, 9.3000000000000007 },
+ { 3.7546881918012164e+58, 50, 9.3999999999999986 },
+ { 1.2454022521696361e+59, 50, 9.5000000000000000 },
+ { 3.6194312967780793e+59, 50, 9.6000000000000014 },
+ { 9.6739828066585787e+59, 50, 9.6999999999999993 },
+ { 2.4344814863741168e+60, 50, 9.8000000000000007 },
+ { 5.8466703062265247e+60, 50, 9.8999999999999986 },
+ { 1.3516643049819314e+61, 50, 10.000000000000000 },
+};
+const double toler007 = 2.5000000000000020e-13;
+
+// Test data for n=100.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_hermite<double>
+data008[201] =
+{
+ { -1.8738689223256612e+115, 100, -10.000000000000000 },
+ { -4.4232904120311186e+114, 100, -9.9000000000000004 },
+ { 8.3761676654305186e+113, 100, -9.8000000000000007 },
+ { 9.4857435427570856e+113, 100, -9.6999999999999993 },
+ { 2.4904626130429828e+113, 100, -9.5999999999999996 },
+ { -4.2265051766934789e+112, 100, -9.5000000000000000 },
+ { -5.3374224541142079e+112, 100, -9.4000000000000004 },
+ { -1.3977488190034162e+112, 100, -9.3000000000000007 },
+ { 2.9686037583393142e+111, 100, -9.1999999999999993 },
+ { 3.3341330166544008e+111, 100, -9.0999999999999996 },
+ { 7.7294136683043515e+110, 100, -9.0000000000000000 },
+ { -2.6071876743328352e+110, 100, -8.9000000000000004 },
+ { -2.2669773300293168e+110, 100, -8.8000000000000007 },
+ { -3.8930624477368766e+109, 100, -8.6999999999999993 },
+ { 2.5386102824684956e+109, 100, -8.5999999999999996 },
+ { 1.6203702280499544e+109, 100, -8.5000000000000000 },
+ { 1.2481735250539652e+108, 100, -8.4000000000000004 },
+ { -2.5611278359589723e+108, 100, -8.3000000000000007 },
+ { -1.1534178973583771e+108, 100, -8.1999999999999993 },
+ { 8.4932594446954126e+106, 100, -8.0999999999999996 },
+ { 2.5761505535443451e+107, 100, -8.0000000000000000 },
+ { 7.3445622927437730e+106, 100, -7.9000000000000004 },
+ { -2.7252309851017323e+106, 100, -7.7999999999999998 },
+ { -2.4850432648124068e+106, 100, -7.7000000000000002 },
+ { -2.7486638813238851e+105, 100, -7.5999999999999996 },
+ { 4.4772364475394960e+105, 100, -7.5000000000000000 },
+ { 2.1375121759800508e+105, 100, -7.4000000000000004 },
+ { -2.9237691057265876e+104, 100, -7.2999999999999998 },
+ { -5.9348804074874781e+104, 100, -7.2000000000000002 },
+ { -1.2947583568692734e+104, 100, -7.0999999999999996 },
+ { 1.0002273523275075e+104, 100, -7.0000000000000000 },
+ { 6.4900499886057735e+103, 100, -6.9000000000000004 },
+ { -3.7817730019124298e+102, 100, -6.7999999999999998 },
+ { -1.7849709684883137e+103, 100, -6.7000000000000002 },
+ { -4.8039047085580619e+102, 100, -6.5999999999999996 },
+ { 3.2072472002047670e+102, 100, -6.5000000000000000 },
+ { 2.3341289432999226e+102, 100, -6.4000000000000004 },
+ { -1.4587350659146165e+101, 100, -6.2999999999999998 },
+ { -7.0672139150705532e+101, 100, -6.2000000000000002 },
+ { -1.8039133351601998e+101, 100, -6.0999999999999996 },
+ { 1.5170693933260738e+101, 100, -6.0000000000000000 },
+ { 1.0141407690966954e+101, 100, -5.9000000000000004 },
+ { -1.5140717605507886e+100, 100, -5.7999999999999998 },
+ { -3.6379102593330533e+100, 100, -5.7000000000000002 },
+ { -6.2933057672779134e+99, 100, -5.5999999999999996 },
+ { 9.9309186425970402e+99, 100, -5.5000000000000000 },
+ { 5.0935670879056567e+99, 100, -5.4000000000000004 },
+ { -1.8337906983006129e+99, 100, -5.2999999999999998 },
+ { -2.3096466887887402e+99, 100, -5.2000000000000002 },
+ { -4.0259235416602546e+97, 100, -5.0999999999999996 },
+ { 8.1931937130591466e+98, 100, -5.0000000000000000 },
+ { 2.5601172475776894e+98, 100, -4.9000000000000004 },
+ { -2.3193021196802698e+98, 100, -4.7999999999999998 },
+ { -1.6545238014142802e+98, 100, -4.7000000000000002 },
+ { 4.2440218943299170e+97, 100, -4.5999999999999996 },
+ { 7.8073853756187101e+97, 100, -4.5000000000000000 },
+ { 5.2136163919277588e+96, 100, -4.4000000000000004 },
+ { -3.0837503404959950e+97, 100, -4.2999999999999998 },
+ { -1.0988290456447777e+97, 100, -4.2000000000000002 },
+ { 1.0173847230741884e+97, 100, -4.0999999999999996 },
+ { 7.7070682747643550e+96, 100, -4.0000000000000000 },
+ { -2.3947326745293331e+96, 100, -3.9000000000000004 },
+ { -4.1993887070961596e+96, 100, -3.7999999999999998 },
+ { -5.5521768050542138e+94, 100, -3.7000000000000002 },
+ { 1.9852724296241180e+96, 100, -3.5999999999999996 },
+ { 5.7841213444838915e+95, 100, -3.5000000000000000 },
+ { -8.2433116644948570e+95, 100, -3.4000000000000004 },
+ { -5.2035951331058195e+95, 100, -3.2999999999999998 },
+ { 2.8212012454566057e+95, 100, -3.2000000000000002 },
+ { 3.5161870090563867e+95, 100, -3.0999999999999996 },
+ { -5.5084542871196523e+94, 100, -3.0000000000000000 },
+ { -2.0784160746797610e+95, 100, -2.9000000000000004 },
+ { -2.6058116248679496e+94, 100, -2.7999999999999998 },
+ { 1.1147132226581844e+95, 100, -2.7000000000000002 },
+ { 4.5607706742532875e+94, 100, -2.5999999999999996 },
+ { -5.3758761713337664e+94, 100, -2.5000000000000000 },
+ { -4.2303228932575769e+94, 100, -2.4000000000000004 },
+ { 2.1691501564685499e+94, 100, -2.2999999999999998 },
+ { 3.2602488340116974e+94, 100, -2.2000000000000002 },
+ { -5.0527155039787607e+93, 100, -2.0999999999999996 },
+ { -2.2785574311661325e+94, 100, -2.0000000000000000 },
+ { -2.8549527653152903e+93, 100, -1.9000000000000004 },
+ { 1.4787573463714363e+94, 100, -1.8000000000000007 },
+ { 6.0554070654771248e+93, 100, -1.6999999999999993 },
+ { -8.8496828346970978e+93, 100, -1.5999999999999996 },
+ { -6.8402151897169509e+93, 100, -1.5000000000000000 },
+ { 4.6555468819923166e+93, 100, -1.4000000000000004 },
+ { 6.4625437128323579e+93, 100, -1.3000000000000007 },
+ { -1.7820042440391653e+93, 100, -1.1999999999999993 },
+ { -5.5814393347235886e+93, 100, -1.0999999999999996 },
+ { -1.4487067293379347e+92, 100, -1.0000000000000000 },
+ { 4.5268398678911204e+93, 100, -0.90000000000000036 },
+ { 1.4120762149478435e+93, 100, -0.80000000000000071 },
+ { -3.4510765981144258e+93, 100, -0.69999999999999929 },
+ { -2.2242581581553176e+93, 100, -0.59999999999999964 },
+ { 2.4129827902061037e+93, 100, -0.50000000000000000 },
+ { 2.7195429139752497e+93, 100, -0.40000000000000036 },
+ { -1.4235309630836904e+93, 100, -0.30000000000000071 },
+ { -2.9850618739468043e+93, 100, -0.19999999999999929 },
+ { 4.7017027479251074e+92, 100, -0.099999999999999645 },
+ { 3.0685187562549660e+93, 100, 0.0000000000000000 },
+ { 4.7017027479251074e+92, 100, 0.099999999999999645 },
+ { -2.9850618739468043e+93, 100, 0.19999999999999929 },
+ { -1.4235309630836904e+93, 100, 0.30000000000000071 },
+ { 2.7195429139752497e+93, 100, 0.40000000000000036 },
+ { 2.4129827902061037e+93, 100, 0.50000000000000000 },
+ { -2.2242581581553176e+93, 100, 0.59999999999999964 },
+ { -3.4510765981144258e+93, 100, 0.69999999999999929 },
+ { 1.4120762149478435e+93, 100, 0.80000000000000071 },
+ { 4.5268398678911204e+93, 100, 0.90000000000000036 },
+ { -1.4487067293379347e+92, 100, 1.0000000000000000 },
+ { -5.5814393347235886e+93, 100, 1.0999999999999996 },
+ { -1.7820042440391653e+93, 100, 1.1999999999999993 },
+ { 6.4625437128323579e+93, 100, 1.3000000000000007 },
+ { 4.6555468819923166e+93, 100, 1.4000000000000004 },
+ { -6.8402151897169509e+93, 100, 1.5000000000000000 },
+ { -8.8496828346970978e+93, 100, 1.5999999999999996 },
+ { 6.0554070654771248e+93, 100, 1.6999999999999993 },
+ { 1.4787573463714363e+94, 100, 1.8000000000000007 },
+ { -2.8549527653152903e+93, 100, 1.9000000000000004 },
+ { -2.2785574311661325e+94, 100, 2.0000000000000000 },
+ { -5.0527155039787607e+93, 100, 2.0999999999999996 },
+ { 3.2602488340116774e+94, 100, 2.1999999999999993 },
+ { 2.1691501564685076e+94, 100, 2.3000000000000007 },
+ { -4.2303228932575769e+94, 100, 2.4000000000000004 },
+ { -5.3758761713337664e+94, 100, 2.5000000000000000 },
+ { 4.5607706742532875e+94, 100, 2.5999999999999996 },
+ { 1.1147132226581881e+95, 100, 2.6999999999999993 },
+ { -2.6058116248681564e+94, 100, 2.8000000000000007 },
+ { -2.0784160746797610e+95, 100, 2.9000000000000004 },
+ { -5.5084542871196523e+94, 100, 3.0000000000000000 },
+ { 3.5161870090563867e+95, 100, 3.0999999999999996 },
+ { 2.8212012454566478e+95, 100, 3.1999999999999993 },
+ { -5.2035951331058918e+95, 100, 3.3000000000000007 },
+ { -8.2433116644948570e+95, 100, 3.4000000000000004 },
+ { 5.7841213444838915e+95, 100, 3.5000000000000000 },
+ { 1.9852724296241180e+96, 100, 3.5999999999999996 },
+ { -5.5521768050503009e+94, 100, 3.6999999999999993 },
+ { -4.1993887070961795e+96, 100, 3.8000000000000007 },
+ { -2.3947326745293331e+96, 100, 3.9000000000000004 },
+ { 7.7070682747643550e+96, 100, 4.0000000000000000 },
+ { 1.0173847230741884e+97, 100, 4.0999999999999996 },
+ { -1.0988290456447506e+97, 100, 4.1999999999999993 },
+ { -3.0837503404959957e+97, 100, 4.3000000000000007 },
+ { 5.2136163919277588e+96, 100, 4.4000000000000004 },
+ { 7.8073853756187101e+97, 100, 4.5000000000000000 },
+ { 4.2440218943299170e+97, 100, 4.5999999999999996 },
+ { -1.6545238014142650e+98, 100, 4.6999999999999993 },
+ { -2.3193021196802549e+98, 100, 4.8000000000000007 },
+ { 2.5601172475776894e+98, 100, 4.9000000000000004 },
+ { 8.1931937130591466e+98, 100, 5.0000000000000000 },
+ { -4.0259235416602546e+97, 100, 5.0999999999999996 },
+ { -2.3096466887887237e+99, 100, 5.1999999999999993 },
+ { -1.8337906983005823e+99, 100, 5.3000000000000007 },
+ { 5.0935670879056567e+99, 100, 5.4000000000000004 },
+ { 9.9309186425970402e+99, 100, 5.5000000000000000 },
+ { -6.2933057672779134e+99, 100, 5.5999999999999996 },
+ { -3.6379102593330386e+100, 100, 5.6999999999999993 },
+ { -1.5140717605507249e+100, 100, 5.8000000000000007 },
+ { 1.0141407690966954e+101, 100, 5.9000000000000004 },
+ { 1.5170693933260738e+101, 100, 6.0000000000000000 },
+ { -1.8039133351602961e+101, 100, 6.1000000000000014 },
+ { -7.0672139150705246e+101, 100, 6.1999999999999993 },
+ { -1.4587350659144549e+101, 100, 6.3000000000000007 },
+ { 2.3341289432998748e+102, 100, 6.3999999999999986 },
+ { 3.2072472002047670e+102, 100, 6.5000000000000000 },
+ { -4.8039047085582927e+102, 100, 6.6000000000000014 },
+ { -1.7849709684883083e+103, 100, 6.6999999999999993 },
+ { -3.7817730019120996e+102, 100, 6.8000000000000007 },
+ { 6.4900499886056430e+103, 100, 6.8999999999999986 },
+ { 1.0002273523275075e+104, 100, 7.0000000000000000 },
+ { -1.2947583568693485e+104, 100, 7.1000000000000014 },
+ { -5.9348804074874565e+104, 100, 7.1999999999999993 },
+ { -2.9237691057264679e+104, 100, 7.3000000000000007 },
+ { 2.1375121759799924e+105, 100, 7.3999999999999986 },
+ { 4.4772364475394960e+105, 100, 7.5000000000000000 },
+ { -2.7486638813241244e+105, 100, 7.6000000000000014 },
+ { -2.4850432648123868e+106, 100, 7.6999999999999993 },
+ { -2.7252309851017070e+106, 100, 7.8000000000000007 },
+ { 7.3445622927434568e+106, 100, 7.8999999999999986 },
+ { 2.5761505535443451e+107, 100, 8.0000000000000000 },
+ { 8.4932594446944218e+106, 100, 8.1000000000000014 },
+ { -1.1534178973583771e+108, 100, 8.1999999999999993 },
+ { -2.5611278359589723e+108, 100, 8.3000000000000007 },
+ { 1.2481735250538004e+108, 100, 8.3999999999999986 },
+ { 1.6203702280499544e+109, 100, 8.5000000000000000 },
+ { 2.5386102824684747e+109, 100, 8.6000000000000014 },
+ { -3.8930624477368766e+109, 100, 8.6999999999999993 },
+ { -2.2669773300293168e+110, 100, 8.8000000000000007 },
+ { -2.6071876743328939e+110, 100, 8.8999999999999986 },
+ { 7.7294136683043515e+110, 100, 9.0000000000000000 },
+ { 3.3341330166544429e+111, 100, 9.1000000000000014 },
+ { 2.9686037583393142e+111, 100, 9.1999999999999993 },
+ { -1.3977488190034162e+112, 100, 9.3000000000000007 },
+ { -5.3374224541141370e+112, 100, 9.3999999999999986 },
+ { -4.2265051766934789e+112, 100, 9.5000000000000000 },
+ { 2.4904626130430740e+113, 100, 9.6000000000000014 },
+ { 9.4857435427570856e+113, 100, 9.6999999999999993 },
+ { 8.3761676654305186e+113, 100, 9.8000000000000007 },
+ { -4.4232904120309469e+114, 100, 9.8999999999999986 },
+ { -1.8738689223256612e+115, 100, 10.000000000000000 },
+};
+const double toler008 = 2.5000000000000020e-13;
+
+template<typename Tp, unsigned int Num>
+ void
+ test(const testcase_hermite<Tp> (&data)[Num], Tp toler)
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = Num;
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::hermite(data[i].n, data[i].x);
+ const Tp f0 = data[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < toler);
+ }
+
+int
+main()
+{
+ test(data001, toler001);
+ test(data002, toler002);
+ test(data003, toler003);
+ test(data004, toler004);
+ test(data005, toler005);
+ test(data006, toler006);
+ test(data007, toler007);
+ test(data008, toler008);
+ return 0;
+}
Index: testsuite/special_functions/15_hermite/compile.cc
===================================================================
--- testsuite/special_functions/15_hermite/compile.cc (revision 0)
+++ testsuite/special_functions/15_hermite/compile.cc (working copy)
@@ -0,0 +1,42 @@
+// { dg-do compile }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.15 hermite
+
+#include <cmath>
+
+void
+test01()
+{
+ float xf = 2.5F;
+ double xd = 2.5;
+ long double xl = 2.5L;
+
+ unsigned int n = 5;
+
+ std::hermite(n, xf);
+ std::hermitef(n, xf);
+ std::hermite(n, xd);
+ std::hermite(n, xl);
+ std::hermitel(n, xl);
+
+ return;
+}
+
Index: testsuite/special_functions/15_hermite/compile_2.cc
===================================================================
--- testsuite/special_functions/15_hermite/compile_2.cc (revision 0)
+++ testsuite/special_functions/15_hermite/compile_2.cc (working copy)
@@ -0,0 +1,42 @@
+// { dg-do compile { xfail *-*-* } }
+// { dg-excess-errors "" }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.15 hermite
+
+#include <math.h>
+
+void
+test01()
+{
+ float xf = 2.5F;
+ double xd = 2.5;
+ long double xl = 2.5L;
+ unsigned int n = 5;
+
+ hermite(n, xf);
+ hermitef(n, xf);
+ hermite(n, xd);
+ hermite(n, xl);
+ hermitel(n, xl);
+
+ return;
+}
+
Index: testsuite/special_functions/16_laguerre/check_nan.cc
===================================================================
--- testsuite/special_functions/16_laguerre/check_nan.cc (revision 0)
+++ testsuite/special_functions/16_laguerre/check_nan.cc (working copy)
@@ -0,0 +1,58 @@
+// { dg-require-c-std "" }
+// { dg-add-options ieee }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.16 laguerre
+
+#include <cmath>
+#include <testsuite_hooks.h>
+
+void
+test01()
+{
+ float xf = std::numeric_limits<float>::quiet_NaN();
+ double xd = std::numeric_limits<double>::quiet_NaN();
+ long double xl = std::numeric_limits<long double>::quiet_NaN();
+
+ unsigned int n = 2;
+
+ float a = std::laguerre(n, xf);
+ float b = std::laguerref(n, xf);
+ double c = std::laguerre(n, xd);
+ long double d = std::laguerre(n, xl);
+ long double e = std::laguerrel(n, xl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+int
+main()
+{
+ test01();
+ return 0;
+}
+
Index: testsuite/special_functions/16_laguerre/check_value.cc
===================================================================
--- testsuite/special_functions/16_laguerre/check_value.cc (revision 0)
+++ testsuite/special_functions/16_laguerre/check_value.cc (working copy)
@@ -0,0 +1,319 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+//
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// laguerre
+// Compare against values generated by the GNU Scientific Library.
+// The GSL can be found on the web: http://www.gnu.org/software/gsl/
+#include <limits>
+#include <cmath>
+#if defined(__TEST_DEBUG)
+# include <iostream>
+# define VERIFY(A) \
+ if (!(A)) \
+ { \
+ std::cout << "line " << __LINE__ \
+ << " max_abs_frac = " << max_abs_frac \
+ << std::endl; \
+ }
+#else
+# include <testsuite_hooks.h>
+#endif
+#include <specfun_testcase.h>
+
+
+// Test data for n=0.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_laguerre<double>
+data001[21] =
+{
+ { 1.0000000000000000, 0, 0.0000000000000000 },
+ { 1.0000000000000000, 0, 5.0000000000000000 },
+ { 1.0000000000000000, 0, 10.000000000000000 },
+ { 1.0000000000000000, 0, 15.000000000000000 },
+ { 1.0000000000000000, 0, 20.000000000000000 },
+ { 1.0000000000000000, 0, 25.000000000000000 },
+ { 1.0000000000000000, 0, 30.000000000000000 },
+ { 1.0000000000000000, 0, 35.000000000000000 },
+ { 1.0000000000000000, 0, 40.000000000000000 },
+ { 1.0000000000000000, 0, 45.000000000000000 },
+ { 1.0000000000000000, 0, 50.000000000000000 },
+ { 1.0000000000000000, 0, 55.000000000000000 },
+ { 1.0000000000000000, 0, 60.000000000000000 },
+ { 1.0000000000000000, 0, 65.000000000000000 },
+ { 1.0000000000000000, 0, 70.000000000000000 },
+ { 1.0000000000000000, 0, 75.000000000000000 },
+ { 1.0000000000000000, 0, 80.000000000000000 },
+ { 1.0000000000000000, 0, 85.000000000000000 },
+ { 1.0000000000000000, 0, 90.000000000000000 },
+ { 1.0000000000000000, 0, 95.000000000000000 },
+ { 1.0000000000000000, 0, 100.00000000000000 },
+};
+const double toler001 = 2.5000000000000020e-13;
+
+// Test data for n=1.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_laguerre<double>
+data002[21] =
+{
+ { 1.0000000000000000, 1, 0.0000000000000000 },
+ { -4.0000000000000000, 1, 5.0000000000000000 },
+ { -9.0000000000000000, 1, 10.000000000000000 },
+ { -14.000000000000000, 1, 15.000000000000000 },
+ { -19.000000000000000, 1, 20.000000000000000 },
+ { -24.000000000000000, 1, 25.000000000000000 },
+ { -29.000000000000000, 1, 30.000000000000000 },
+ { -34.000000000000000, 1, 35.000000000000000 },
+ { -39.000000000000000, 1, 40.000000000000000 },
+ { -44.000000000000000, 1, 45.000000000000000 },
+ { -49.000000000000000, 1, 50.000000000000000 },
+ { -54.000000000000000, 1, 55.000000000000000 },
+ { -59.000000000000000, 1, 60.000000000000000 },
+ { -64.000000000000000, 1, 65.000000000000000 },
+ { -69.000000000000000, 1, 70.000000000000000 },
+ { -74.000000000000000, 1, 75.000000000000000 },
+ { -79.000000000000000, 1, 80.000000000000000 },
+ { -84.000000000000000, 1, 85.000000000000000 },
+ { -89.000000000000000, 1, 90.000000000000000 },
+ { -94.000000000000000, 1, 95.000000000000000 },
+ { -99.000000000000000, 1, 100.00000000000000 },
+};
+const double toler002 = 2.5000000000000020e-13;
+
+// Test data for n=2.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_laguerre<double>
+data003[21] =
+{
+ { 1.0000000000000000, 2, 0.0000000000000000 },
+ { 3.5000000000000000, 2, 5.0000000000000000 },
+ { 31.000000000000000, 2, 10.000000000000000 },
+ { 83.500000000000000, 2, 15.000000000000000 },
+ { 161.00000000000000, 2, 20.000000000000000 },
+ { 263.50000000000000, 2, 25.000000000000000 },
+ { 391.00000000000000, 2, 30.000000000000000 },
+ { 543.50000000000000, 2, 35.000000000000000 },
+ { 721.00000000000000, 2, 40.000000000000000 },
+ { 923.50000000000000, 2, 45.000000000000000 },
+ { 1151.0000000000000, 2, 50.000000000000000 },
+ { 1403.5000000000000, 2, 55.000000000000000 },
+ { 1681.0000000000000, 2, 60.000000000000000 },
+ { 1983.5000000000000, 2, 65.000000000000000 },
+ { 2311.0000000000000, 2, 70.000000000000000 },
+ { 2663.5000000000000, 2, 75.000000000000000 },
+ { 3041.0000000000000, 2, 80.000000000000000 },
+ { 3443.5000000000000, 2, 85.000000000000000 },
+ { 3871.0000000000000, 2, 90.000000000000000 },
+ { 4323.5000000000000, 2, 95.000000000000000 },
+ { 4801.0000000000000, 2, 100.00000000000000 },
+};
+const double toler003 = 2.5000000000000020e-13;
+
+// Test data for n=5.
+// max(|f - f_GSL|): 7.4505805969238281e-09
+// max(|f - f_GSL| / |f_GSL|): 1.9501553136894460e-16
+const testcase_laguerre<double>
+data004[21] =
+{
+ { 1.0000000000000000, 5, 0.0000000000000000 },
+ { -3.1666666666666665, 5, 5.0000000000000000 },
+ { 34.333333333333329, 5, 10.000000000000000 },
+ { -355.25000000000000, 5, 15.000000000000000 },
+ { -4765.6666666666670, 5, 20.000000000000000 },
+ { -23040.666666666664, 5, 25.000000000000000 },
+ { -74399.000000000000, 5, 30.000000000000000 },
+ { -190559.41666666663, 5, 35.000000000000000 },
+ { -418865.66666666663, 5, 40.000000000000000 },
+ { -825411.50000000000, 5, 45.000000000000000 },
+ { -1498165.6666666665, 5, 50.000000000000000 },
+ { -2550096.9166666670, 5, 55.000000000000000 },
+ { -4122299.0000000000, 5, 60.000000000000000 },
+ { -6387115.6666666670, 5, 65.000000000000000 },
+ { -9551265.6666666679, 5, 70.000000000000000 },
+ { -13858967.750000000, 5, 75.000000000000000 },
+ { -19595065.666666664, 5, 80.000000000000000 },
+ { -27088153.166666668, 5, 85.000000000000000 },
+ { -36713699.000000000, 5, 90.000000000000000 },
+ { -48897171.916666657, 5, 95.000000000000000 },
+ { -64117165.666666664, 5, 100.00000000000000 },
+};
+const double toler004 = 2.5000000000000020e-13;
+
+// Test data for n=10.
+// max(|f - f_GSL|): 0.0029296875000000000
+// max(|f - f_GSL| / |f_GSL|): 6.1315986390500118e-15
+const testcase_laguerre<double>
+data005[21] =
+{
+ { 1.0000000000000000, 10, 0.0000000000000000 },
+ { 1.7562761794532631, 10, 5.0000000000000000 },
+ { 27.984126984126977, 10, 10.000000000000000 },
+ { -237.51841517857147, 10, 15.000000000000000 },
+ { 3227.8077601410932, 10, 20.000000000000000 },
+ { -45786.199797453693, 10, 25.000000000000000 },
+ { 15129.571428571455, 10, 30.000000000000000 },
+ { 7764800.8179494590, 10, 35.000000000000000 },
+ { 79724066.608465582, 10, 40.000000000000000 },
+ { 469865425.65122765, 10, 45.000000000000000 },
+ { 2037190065.3738980, 10, 50.000000000000000 },
+ { 7187828002.9825764, 10, 55.000000000000000 },
+ { 21804200401.000000, 10, 60.000000000000000 },
+ { 58854343015.616211, 10, 65.000000000000000 },
+ { 144688291819.51855, 10, 70.000000000000000 },
+ { 329425241736.70038, 10, 75.000000000000000 },
+ { 703324772760.08276, 10, 80.000000000000000 },
+ { 1421627560118.6157, 10, 85.000000000000000 },
+ { 2741055412243.8569, 10, 90.000000000000000 },
+ { 5071986977681.8652, 10, 95.000000000000000 },
+ { 9051283795429.5723, 10, 100.00000000000000 },
+};
+const double toler005 = 5.0000000000000039e-13;
+
+// Test data for n=20.
+// max(|f - f_GSL|): 2048.0000000000000
+// max(|f - f_GSL| / |f_GSL|): 7.1189246999774008e-15
+const testcase_laguerre<double>
+data006[21] =
+{
+ { 1.0000000000000000, 20, 0.0000000000000000 },
+ { 2.0202257444769134, 20, 5.0000000000000000 },
+ { -11.961333867812119, 20, 10.000000000000000 },
+ { -50.151037960139455, 20, 15.000000000000000 },
+ { 2829.4728613531743, 20, 20.000000000000000 },
+ { -11583.947899113540, 20, 25.000000000000000 },
+ { -18439.424502520938, 20, 30.000000000000000 },
+ { -38838.223606979285, 20, 35.000000000000000 },
+ { 24799805.877530713, 20, 40.000000000000000 },
+ { -673953823.59913278, 20, 45.000000000000000 },
+ { 7551960453.7672548, 20, 50.000000000000000 },
+ { 31286508510.614746, 20, 55.000000000000000 },
+ { -1379223608444.9155, 20, 60.000000000000000 },
+ { -6692517968212.9717, 20, 65.000000000000000 },
+ { 165423821874449.94, 20, 70.000000000000000 },
+ { 3082390018008546.5, 20, 75.000000000000000 },
+ { 29500368536981676., 20, 80.000000000000000 },
+ { 2.0353526354974186e+17, 20, 85.000000000000000 },
+ { 1.1292309514432901e+18, 20, 90.000000000000000 },
+ { 5.3239262855563100e+18, 20, 95.000000000000000 },
+ { 2.2061882785931735e+19, 20, 100.00000000000000 },
+};
+const double toler006 = 5.0000000000000039e-13;
+
+// Test data for n=50.
+// max(|f - f_GSL|): 196608.00000000000
+// max(|f - f_GSL| / |f_GSL|): 4.2910775919271532e-15
+const testcase_laguerre<double>
+data007[21] =
+{
+ { 1.0000000000000000, 50, 0.0000000000000000 },
+ { 1.4735258819430543, 50, 5.0000000000000000 },
+ { 17.534183446338233, 50, 10.000000000000000 },
+ { -195.62436619077380, 50, 15.000000000000000 },
+ { 980.26961889791028, 50, 20.000000000000000 },
+ { 24812.277673870878, 50, 25.000000000000000 },
+ { 293000.50735962362, 50, 30.000000000000000 },
+ { 2316195.5013375278, 50, 35.000000000000000 },
+ { -14896937.968694873, 50, 40.000000000000000 },
+ { -502066598.00813466, 50, 45.000000000000000 },
+ { 2513677852.6916871, 50, 50.000000000000000 },
+ { 45129675503.538910, 50, 55.000000000000000 },
+ { -883876565337.99219, 50, 60.000000000000000 },
+ { 9361319947203.8418, 50, 65.000000000000000 },
+ { -80967880733583.234, 50, 70.000000000000000 },
+ { 717391079438942.62, 50, 75.000000000000000 },
+ { -8217471769564841.0, 50, 80.000000000000000 },
+ { 1.2595276229009978e+17, 50, 85.000000000000000 },
+ { -2.1140031308048891e+18, 50, 90.000000000000000 },
+ { 3.2438187475835134e+19, 50, 95.000000000000000 },
+ { -3.9710103487094692e+20, 50, 100.00000000000000 },
+};
+const double toler007 = 2.5000000000000020e-13;
+
+// Test data for n=100.
+// max(|f - f_GSL|): 98304.000000000000
+// max(|f - f_GSL| / |f_GSL|): 3.8776197831393928e-15
+const testcase_laguerre<double>
+data008[21] =
+{
+ { 1.0000000000000000, 100, 0.0000000000000000 },
+ { 1.4555271625328801, 100, 5.0000000000000000 },
+ { 13.277662844303450, 100, 10.000000000000000 },
+ { 91.737038454342454, 100, 15.000000000000000 },
+ { 1854.0367283243388, 100, 20.000000000000000 },
+ { -11281.698886837261, 100, 25.000000000000000 },
+ { 170141.86987046551, 100, 30.000000000000000 },
+ { -2950092.7025822806, 100, 35.000000000000000 },
+ { -7272442.3156006960, 100, 40.000000000000000 },
+ { 295697471.90876162, 100, 45.000000000000000 },
+ { 4847420871.2690506, 100, 50.000000000000000 },
+ { 59406998102.392288, 100, 55.000000000000000 },
+ { 693492765740.29688, 100, 60.000000000000000 },
+ { 6606192010150.3154, 100, 65.000000000000000 },
+ { 17125518672239.770, 100, 70.000000000000000 },
+ { -870493767065150.12, 100, 75.000000000000000 },
+ { -13763178176383768., 100, 80.000000000000000 },
+ { 30667078414479584., 100, 85.000000000000000 },
+ { 2.1307220490380173e+18, 100, 90.000000000000000 },
+ { -7.2706523009007821e+18, 100, 95.000000000000000 },
+ { -2.6292260693068916e+20, 100, 100.00000000000000 },
+};
+const double toler008 = 2.5000000000000020e-13;
+
+template<typename Tp, unsigned int Num>
+ void
+ test(const testcase_laguerre<Tp> (&data)[Num], Tp toler)
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = Num;
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::laguerre(data[i].n, data[i].x);
+ const Tp f0 = data[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < toler);
+ }
+
+int
+main()
+{
+ test(data001, toler001);
+ test(data002, toler002);
+ test(data003, toler003);
+ test(data004, toler004);
+ test(data005, toler005);
+ test(data006, toler006);
+ test(data007, toler007);
+ test(data008, toler008);
+ return 0;
+}
Index: testsuite/special_functions/16_laguerre/compile.cc
===================================================================
--- testsuite/special_functions/16_laguerre/compile.cc (revision 0)
+++ testsuite/special_functions/16_laguerre/compile.cc (working copy)
@@ -0,0 +1,42 @@
+// { dg-do compile }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.16 laguerre
+
+#include <cmath>
+
+void
+test01()
+{
+ float xf = 0.5F;
+ double xd = 0.5;
+ long double xl = 0.5L;
+
+ unsigned int n = 2;
+
+ std::laguerre(n, xf);
+ std::laguerref(n, xf);
+ std::laguerre(n, xd);
+ std::laguerre(n, xl);
+ std::laguerrel(n, xl);
+
+ return;
+}
+
Index: testsuite/special_functions/16_laguerre/compile_2.cc
===================================================================
--- testsuite/special_functions/16_laguerre/compile_2.cc (revision 0)
+++ testsuite/special_functions/16_laguerre/compile_2.cc (working copy)
@@ -0,0 +1,42 @@
+// { dg-do compile { xfail *-*-* } }
+// { dg-excess-errors "" }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.16 laguerre
+
+#include <math.h>
+
+void
+test01()
+{
+ float xf = 0.5F;
+ double xd = 0.5;
+ long double xl = 0.5L;
+ unsigned int n = 2;
+
+ laguerre(n, xf);
+ laguerref(n, xf);
+ laguerre(n, xd);
+ laguerre(n, xl);
+ laguerrel(n, xl);
+
+ return;
+}
+
Index: testsuite/special_functions/17_legendre/check_nan.cc
===================================================================
--- testsuite/special_functions/17_legendre/check_nan.cc (revision 0)
+++ testsuite/special_functions/17_legendre/check_nan.cc (working copy)
@@ -0,0 +1,59 @@
+// { dg-require-c-std "" }
+// { dg-add-options ieee }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.17 legendre
+
+#include <cmath>
+#include <testsuite_hooks.h>
+
+void
+test01()
+{
+
+ float xf = std::numeric_limits<float>::quiet_NaN();
+ double xd = std::numeric_limits<double>::quiet_NaN();
+ long double xl = std::numeric_limits<long double>::quiet_NaN();
+
+ unsigned int l = 2;
+
+ float a = std::legendre(l, xf);
+ float b = std::legendref(l, xf);
+ double c = std::legendre(l, xd);
+ long double d = std::legendre(l, xl);
+ long double e = std::legendrel(l, xl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+int
+main()
+{
+ test01();
+ return 0;
+}
+
Index: testsuite/special_functions/17_legendre/check_value.cc
===================================================================
--- testsuite/special_functions/17_legendre/check_value.cc (revision 0)
+++ testsuite/special_functions/17_legendre/check_value.cc (working copy)
@@ -0,0 +1,319 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+//
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// legendre
+// Compare against values generated by the GNU Scientific Library.
+// The GSL can be found on the web: http://www.gnu.org/software/gsl/
+#include <limits>
+#include <cmath>
+#if defined(__TEST_DEBUG)
+# include <iostream>
+# define VERIFY(A) \
+ if (!(A)) \
+ { \
+ std::cout << "line " << __LINE__ \
+ << " max_abs_frac = " << max_abs_frac \
+ << std::endl; \
+ }
+#else
+# include <testsuite_hooks.h>
+#endif
+#include <specfun_testcase.h>
+
+
+// Test data for l=0.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_legendre<double>
+data001[21] =
+{
+ { 1.0000000000000000, 0, -1.0000000000000000 },
+ { 1.0000000000000000, 0, -0.90000000000000002 },
+ { 1.0000000000000000, 0, -0.80000000000000004 },
+ { 1.0000000000000000, 0, -0.69999999999999996 },
+ { 1.0000000000000000, 0, -0.59999999999999998 },
+ { 1.0000000000000000, 0, -0.50000000000000000 },
+ { 1.0000000000000000, 0, -0.40000000000000002 },
+ { 1.0000000000000000, 0, -0.30000000000000004 },
+ { 1.0000000000000000, 0, -0.19999999999999996 },
+ { 1.0000000000000000, 0, -0.099999999999999978 },
+ { 1.0000000000000000, 0, 0.0000000000000000 },
+ { 1.0000000000000000, 0, 0.10000000000000009 },
+ { 1.0000000000000000, 0, 0.19999999999999996 },
+ { 1.0000000000000000, 0, 0.30000000000000004 },
+ { 1.0000000000000000, 0, 0.39999999999999991 },
+ { 1.0000000000000000, 0, 0.50000000000000000 },
+ { 1.0000000000000000, 0, 0.60000000000000009 },
+ { 1.0000000000000000, 0, 0.69999999999999996 },
+ { 1.0000000000000000, 0, 0.80000000000000004 },
+ { 1.0000000000000000, 0, 0.89999999999999991 },
+ { 1.0000000000000000, 0, 1.0000000000000000 },
+};
+const double toler001 = 2.5000000000000020e-13;
+
+// Test data for l=1.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_legendre<double>
+data002[21] =
+{
+ { -1.0000000000000000, 1, -1.0000000000000000 },
+ { -0.90000000000000002, 1, -0.90000000000000002 },
+ { -0.80000000000000004, 1, -0.80000000000000004 },
+ { -0.69999999999999996, 1, -0.69999999999999996 },
+ { -0.59999999999999998, 1, -0.59999999999999998 },
+ { -0.50000000000000000, 1, -0.50000000000000000 },
+ { -0.40000000000000002, 1, -0.40000000000000002 },
+ { -0.30000000000000004, 1, -0.30000000000000004 },
+ { -0.19999999999999996, 1, -0.19999999999999996 },
+ { -0.099999999999999978, 1, -0.099999999999999978 },
+ { 0.0000000000000000, 1, 0.0000000000000000 },
+ { 0.10000000000000009, 1, 0.10000000000000009 },
+ { 0.19999999999999996, 1, 0.19999999999999996 },
+ { 0.30000000000000004, 1, 0.30000000000000004 },
+ { 0.39999999999999991, 1, 0.39999999999999991 },
+ { 0.50000000000000000, 1, 0.50000000000000000 },
+ { 0.60000000000000009, 1, 0.60000000000000009 },
+ { 0.69999999999999996, 1, 0.69999999999999996 },
+ { 0.80000000000000004, 1, 0.80000000000000004 },
+ { 0.89999999999999991, 1, 0.89999999999999991 },
+ { 1.0000000000000000, 1, 1.0000000000000000 },
+};
+const double toler002 = 2.5000000000000020e-13;
+
+// Test data for l=2.
+// max(|f - f_GSL|): 1.1102230246251565e-16
+// max(|f - f_GSL| / |f_GSL|): 1.3877787807814482e-15
+const testcase_legendre<double>
+data003[21] =
+{
+ { 1.0000000000000000, 2, -1.0000000000000000 },
+ { 0.71500000000000008, 2, -0.90000000000000002 },
+ { 0.46000000000000019, 2, -0.80000000000000004 },
+ { 0.23499999999999988, 2, -0.69999999999999996 },
+ { 0.039999999999999925, 2, -0.59999999999999998 },
+ { -0.12500000000000000, 2, -0.50000000000000000 },
+ { -0.25999999999999995, 2, -0.40000000000000002 },
+ { -0.36499999999999999, 2, -0.30000000000000004 },
+ { -0.44000000000000006, 2, -0.19999999999999996 },
+ { -0.48499999999999999, 2, -0.099999999999999978 },
+ { -0.50000000000000000, 2, 0.0000000000000000 },
+ { -0.48499999999999999, 2, 0.10000000000000009 },
+ { -0.44000000000000006, 2, 0.19999999999999996 },
+ { -0.36499999999999999, 2, 0.30000000000000004 },
+ { -0.26000000000000012, 2, 0.39999999999999991 },
+ { -0.12500000000000000, 2, 0.50000000000000000 },
+ { 0.040000000000000147, 2, 0.60000000000000009 },
+ { 0.23499999999999988, 2, 0.69999999999999996 },
+ { 0.46000000000000019, 2, 0.80000000000000004 },
+ { 0.71499999999999986, 2, 0.89999999999999991 },
+ { 1.0000000000000000, 2, 1.0000000000000000 },
+};
+const double toler003 = 2.5000000000000020e-13;
+
+// Test data for l=5.
+// max(|f - f_GSL|): 2.0122792321330962e-16
+// max(|f - f_GSL| / |f_GSL|): 4.8911475274404243e-15
+const testcase_legendre<double>
+data004[21] =
+{
+ { -1.0000000000000000, 5, -1.0000000000000000 },
+ { 0.041141250000000087, 5, -0.90000000000000002 },
+ { 0.39951999999999993, 5, -0.80000000000000004 },
+ { 0.36519874999999991, 5, -0.69999999999999996 },
+ { 0.15263999999999994, 5, -0.59999999999999998 },
+ { -0.089843750000000000, 5, -0.50000000000000000 },
+ { -0.27063999999999994, 5, -0.40000000000000002 },
+ { -0.34538625000000001, 5, -0.30000000000000004 },
+ { -0.30751999999999996, 5, -0.19999999999999996 },
+ { -0.17882874999999995, 5, -0.099999999999999978 },
+ { 0.0000000000000000, 5, 0.0000000000000000 },
+ { 0.17882875000000015, 5, 0.10000000000000009 },
+ { 0.30751999999999996, 5, 0.19999999999999996 },
+ { 0.34538625000000001, 5, 0.30000000000000004 },
+ { 0.27064000000000010, 5, 0.39999999999999991 },
+ { 0.089843750000000000, 5, 0.50000000000000000 },
+ { -0.15264000000000016, 5, 0.60000000000000009 },
+ { -0.36519874999999991, 5, 0.69999999999999996 },
+ { -0.39951999999999993, 5, 0.80000000000000004 },
+ { -0.041141250000000261, 5, 0.89999999999999991 },
+ { 1.0000000000000000, 5, 1.0000000000000000 },
+};
+const double toler004 = 2.5000000000000020e-13;
+
+// Test data for l=10.
+// max(|f - f_GSL|): 2.7755575615628914e-16
+// max(|f - f_GSL| / |f_GSL|): 1.0547610802636413e-15
+const testcase_legendre<double>
+data005[21] =
+{
+ { 1.0000000000000000, 10, -1.0000000000000000 },
+ { -0.26314561785585960, 10, -0.90000000000000002 },
+ { 0.30052979560000004, 10, -0.80000000000000004 },
+ { 0.085805795531640333, 10, -0.69999999999999996 },
+ { -0.24366274560000001, 10, -0.59999999999999998 },
+ { -0.18822860717773438, 10, -0.50000000000000000 },
+ { 0.096839064399999925, 10, -0.40000000000000002 },
+ { 0.25147634951601561, 10, -0.30000000000000004 },
+ { 0.12907202559999983, 10, -0.19999999999999996 },
+ { -0.12212499738710943, 10, -0.099999999999999978 },
+ { -0.24609375000000000, 10, 0.0000000000000000 },
+ { -0.12212499738710922, 10, 0.10000000000000009 },
+ { 0.12907202559999983, 10, 0.19999999999999996 },
+ { 0.25147634951601561, 10, 0.30000000000000004 },
+ { 0.096839064400000258, 10, 0.39999999999999991 },
+ { -0.18822860717773438, 10, 0.50000000000000000 },
+ { -0.24366274559999984, 10, 0.60000000000000009 },
+ { 0.085805795531640333, 10, 0.69999999999999996 },
+ { 0.30052979560000004, 10, 0.80000000000000004 },
+ { -0.26314561785585899, 10, 0.89999999999999991 },
+ { 1.0000000000000000, 10, 1.0000000000000000 },
+};
+const double toler005 = 2.5000000000000020e-13;
+
+// Test data for l=20.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 2.2307336678138069e-15
+const testcase_legendre<double>
+data006[21] =
+{
+ { 1.0000000000000000, 20, -1.0000000000000000 },
+ { -0.14930823530984835, 20, -0.90000000000000002 },
+ { 0.22420460541741347, 20, -0.80000000000000004 },
+ { -0.20457394463834172, 20, -0.69999999999999996 },
+ { 0.15916752910098109, 20, -0.59999999999999998 },
+ { -0.048358381067373557, 20, -0.50000000000000000 },
+ { -0.10159261558628156, 20, -0.40000000000000002 },
+ { 0.18028715947998042, 20, -0.30000000000000004 },
+ { -0.098042194344594796, 20, -0.19999999999999996 },
+ { -0.082077130944527663, 20, -0.099999999999999978 },
+ { 0.17619705200195312, 20, 0.0000000000000000 },
+ { -0.082077130944528023, 20, 0.10000000000000009 },
+ { -0.098042194344594796, 20, 0.19999999999999996 },
+ { 0.18028715947998042, 20, 0.30000000000000004 },
+ { -0.10159261558628112, 20, 0.39999999999999991 },
+ { -0.048358381067373557, 20, 0.50000000000000000 },
+ { 0.15916752910098075, 20, 0.60000000000000009 },
+ { -0.20457394463834172, 20, 0.69999999999999996 },
+ { 0.22420460541741347, 20, 0.80000000000000004 },
+ { -0.14930823530984924, 20, 0.89999999999999991 },
+ { 1.0000000000000000, 20, 1.0000000000000000 },
+};
+const double toler006 = 2.5000000000000020e-13;
+
+// Test data for l=50.
+// max(|f - f_GSL|): 3.6082248300317588e-16
+// max(|f - f_GSL| / |f_GSL|): 2.1700196856209138e-15
+const testcase_legendre<double>
+data007[21] =
+{
+ { 1.0000000000000000, 50, -1.0000000000000000 },
+ { -0.17003765994383671, 50, -0.90000000000000002 },
+ { 0.13879737345093113, 50, -0.80000000000000004 },
+ { -0.014572731645892852, 50, -0.69999999999999996 },
+ { -0.058860798844002096, 50, -0.59999999999999998 },
+ { -0.031059099239609811, 50, -0.50000000000000000 },
+ { 0.041569033381825375, 50, -0.40000000000000002 },
+ { 0.10911051574714797, 50, -0.30000000000000004 },
+ { 0.083432272204197494, 50, -0.19999999999999996 },
+ { -0.038205812661313600, 50, -0.099999999999999978 },
+ { -0.11227517265921705, 50, 0.0000000000000000 },
+ { -0.038205812661314155, 50, 0.10000000000000009 },
+ { 0.083432272204197494, 50, 0.19999999999999996 },
+ { 0.10911051574714797, 50, 0.30000000000000004 },
+ { 0.041569033381824674, 50, 0.39999999999999991 },
+ { -0.031059099239609811, 50, 0.50000000000000000 },
+ { -0.058860798844001430, 50, 0.60000000000000009 },
+ { -0.014572731645892852, 50, 0.69999999999999996 },
+ { 0.13879737345093113, 50, 0.80000000000000004 },
+ { -0.17003765994383657, 50, 0.89999999999999991 },
+ { 1.0000000000000000, 50, 1.0000000000000000 },
+};
+const double toler007 = 2.5000000000000020e-13;
+
+// Test data for l=100.
+// max(|f - f_GSL|): 3.4694469519536142e-16
+// max(|f - f_GSL| / |f_GSL|): 6.8214063779431592e-15
+const testcase_legendre<double>
+data008[21] =
+{
+ { 1.0000000000000000, 100, -1.0000000000000000 },
+ { 0.10226582055871893, 100, -0.90000000000000002 },
+ { 0.050861167913584228, 100, -0.80000000000000004 },
+ { -0.077132507199778641, 100, -0.69999999999999996 },
+ { -0.023747023905133141, 100, -0.59999999999999998 },
+ { -0.060518025961861198, 100, -0.50000000000000000 },
+ { -0.072258202125684470, 100, -0.40000000000000002 },
+ { 0.057127392202801566, 100, -0.30000000000000004 },
+ { 0.014681835355659706, 100, -0.19999999999999996 },
+ { -0.063895098434750205, 100, -0.099999999999999978 },
+ { 0.079589237387178727, 100, 0.0000000000000000 },
+ { -0.063895098434749761, 100, 0.10000000000000009 },
+ { 0.014681835355659706, 100, 0.19999999999999996 },
+ { 0.057127392202801566, 100, 0.30000000000000004 },
+ { -0.072258202125685025, 100, 0.39999999999999991 },
+ { -0.060518025961861198, 100, 0.50000000000000000 },
+ { -0.023747023905134217, 100, 0.60000000000000009 },
+ { -0.077132507199778641, 100, 0.69999999999999996 },
+ { 0.050861167913584228, 100, 0.80000000000000004 },
+ { 0.10226582055871711, 100, 0.89999999999999991 },
+ { 1.0000000000000000, 100, 1.0000000000000000 },
+};
+const double toler008 = 5.0000000000000039e-13;
+
+template<typename Tp, unsigned int Num>
+ void
+ test(const testcase_legendre<Tp> (&data)[Num], Tp toler)
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = Num;
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::legendre(data[i].l, data[i].x);
+ const Tp f0 = data[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < toler);
+ }
+
+int
+main()
+{
+ test(data001, toler001);
+ test(data002, toler002);
+ test(data003, toler003);
+ test(data004, toler004);
+ test(data005, toler005);
+ test(data006, toler006);
+ test(data007, toler007);
+ test(data008, toler008);
+ return 0;
+}
Index: testsuite/special_functions/17_legendre/compile.cc
===================================================================
--- testsuite/special_functions/17_legendre/compile.cc (revision 0)
+++ testsuite/special_functions/17_legendre/compile.cc (working copy)
@@ -0,0 +1,42 @@
+// { dg-do compile }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.17 legendre
+
+#include <cmath>
+
+void
+test01()
+{
+ float xf = 0.5F;
+ double xd = 0.5;
+ long double xl = 0.5L;
+
+ unsigned int l = 2;
+
+ std::legendre(l, xf);
+ std::legendref(l, xf);
+ std::legendre(l, xd);
+ std::legendre(l, xl);
+ std::legendrel(l, xl);
+
+ return;
+}
+
Index: testsuite/special_functions/17_legendre/compile_2.cc
===================================================================
--- testsuite/special_functions/17_legendre/compile_2.cc (revision 0)
+++ testsuite/special_functions/17_legendre/compile_2.cc (working copy)
@@ -0,0 +1,42 @@
+// { dg-do compile { xfail *-*-* } }
+// { dg-excess-errors "" }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.17 legendre
+
+#include <math.h>
+
+void
+test01()
+{
+ float xf = 0.5F;
+ double xd = 0.5;
+ long double xl = 0.5L;
+ unsigned int l = 2;
+
+ legendre(l, xf);
+ legendref(l, xf);
+ legendre(l, xd);
+ legendre(l, xl);
+ legendrel(l, xl);
+
+ return;
+}
+
Index: testsuite/special_functions/18_riemann_zeta/check_nan.cc
===================================================================
--- testsuite/special_functions/18_riemann_zeta/check_nan.cc (revision 0)
+++ testsuite/special_functions/18_riemann_zeta/check_nan.cc (working copy)
@@ -0,0 +1,56 @@
+// { dg-require-c-std "" }
+// { dg-add-options ieee }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.18 riemann_zeta
+
+#include <cmath>
+#include <testsuite_hooks.h>
+
+void
+test01()
+{
+ float xf = std::numeric_limits<float>::quiet_NaN();
+ double xd = std::numeric_limits<double>::quiet_NaN();
+ long double xl = std::numeric_limits<long double>::quiet_NaN();
+
+ float a = std::riemann_zeta(xf);
+ float b = std::riemann_zetaf(xf);
+ double c = std::riemann_zeta(xd);
+ long double d = std::riemann_zeta(xl);
+ long double e = std::riemann_zetal(xl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+int
+main()
+{
+ test01();
+ return 0;
+}
+
Index: testsuite/special_functions/18_riemann_zeta/check_value.cc
===================================================================
--- testsuite/special_functions/18_riemann_zeta/check_value.cc (revision 0)
+++ testsuite/special_functions/18_riemann_zeta/check_value.cc (working copy)
@@ -0,0 +1,307 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+//
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// riemann_zeta
+
+// This can take long on simulators, timing out the test.
+// { dg-options "-DMAX_ITERATIONS=5" { target simulator } }
+
+#ifndef MAX_ITERATIONS
+#define MAX_ITERATIONS (sizeof(data001) / sizeof(testcase_riemann_zeta<double>))
+#endif
+
+// Compare against values generated by the GNU Scientific Library.
+// The GSL can be found on the web: http://www.gnu.org/software/gsl/
+#include <limits>
+#include <cmath>
+#if defined(__TEST_DEBUG)
+# include <iostream>
+# define VERIFY(A) \
+ if (!(A)) \
+ { \
+ std::cout << "line " << __LINE__ \
+ << " max_abs_frac = " << max_abs_frac \
+ << std::endl; \
+ }
+#else
+# include <testsuite_hooks.h>
+#endif
+#include <specfun_testcase.h>
+
+// Test data.
+// max(|f - f_GSL|): 8.8817841970012523e-16
+// max(|f - f_GSL| / |f_GSL|): 3.7349082148991403e-15
+const testcase_riemann_zeta<double>
+data001[55] =
+{
+ { 0.0000000000000000, -10.000000000000000 },
+ { -0.0033669820451019579, -9.8000000000000007 },
+ { -0.0058129517767319039, -9.5999999999999996 },
+ { -0.0072908732290557004, -9.4000000000000004 },
+ { -0.0078420910654484442, -9.1999999999999993 },
+ { -0.0075757575757575803, -9.0000000000000000 },
+ { -0.0066476555677551898, -8.8000000000000007 },
+ { -0.0052400095350859429, -8.5999999999999996 },
+ { -0.0035434308017674959, -8.4000000000000004 },
+ { -0.0017417330388368585, -8.1999999999999993 },
+ { 0.0000000000000000, -8.0000000000000000 },
+ { 0.0015440036789213961, -7.7999999999999998 },
+ { 0.0027852131086497423, -7.5999999999999996 },
+ { 0.0036537321227995880, -7.4000000000000004 },
+ { 0.0041147930817053468, -7.2000000000000002 },
+ { 0.0041666666666666683, -7.0000000000000000 },
+ { 0.0038369975032738366, -6.7999999999999998 },
+ { 0.0031780270571782981, -6.5999999999999996 },
+ { 0.0022611282027338573, -6.4000000000000004 },
+ { 0.0011710237049390511, -6.2000000000000002 },
+ { 0.0000000000000000, -6.0000000000000000 },
+ { -0.0011576366649881879, -5.7999999999999998 },
+ { -0.0022106784318564345, -5.5999999999999996 },
+ { -0.0030755853460586891, -5.4000000000000004 },
+ { -0.0036804380477934787, -5.2000000000000002 },
+ { -0.0039682539682539698, -5.0000000000000000 },
+ { -0.0038996891301999797, -4.7999999999999998 },
+ { -0.0034551830834302711, -4.5999999999999996 },
+ { -0.0026366345018725115, -4.4000000000000004 },
+ { -0.0014687209305056974, -4.2000000000000002 },
+ { 0.0000000000000000, -4.0000000000000000 },
+ { 0.0016960463875825202, -3.7999999999999998 },
+ { 0.0035198355903356747, -3.5999999999999996 },
+ { 0.0053441503206513421, -3.4000000000000004 },
+ { 0.0070119720770910540, -3.2000000000000002 },
+ { 0.0083333333333333350, -3.0000000000000000 },
+ { 0.0090807294856852811, -2.7999999999999998 },
+ { 0.0089824623788396681, -2.5999999999999996 },
+ { 0.0077130239874243630, -2.4000000000000004 },
+ { 0.0048792123593036068, -2.2000000000000002 },
+ { 0.0000000000000000, -2.0000000000000000 },
+ { -0.0075229347765968010, -1.8000000000000007 },
+ { -0.018448986678963775, -1.5999999999999996 },
+ { -0.033764987694047593, -1.4000000000000004 },
+ { -0.054788441243880631, -1.1999999999999993 },
+ { -0.083333333333333398, -1.0000000000000000 },
+ { -0.12198707766977103, -0.80000000000000071 },
+ { -0.17459571193801401, -0.59999999999999964 },
+ { -0.24716546083171492, -0.40000000000000036 },
+ { -0.34966628059831484, -0.19999999999999929 },
+ { -0.49999999999999994, 0.0000000000000000 },
+ { -0.73392092489633953, 0.19999999999999929 },
+ { -1.1347977838669825, 0.40000000000000036 },
+ { -1.9526614482239983, 0.59999999999999964 },
+ { -4.4375384158955677, 0.80000000000000071 },
+};
+const double toler001 = 2.5000000000000020e-13;
+// riemann_zeta
+
+// This can take long on simulators, timing out the test.
+// { dg-options "-DMAX_ITERATIONS=5" { target simulator } }
+
+#ifndef MAX_ITERATIONS
+#define MAX_ITERATIONS (sizeof(data001) / sizeof(testcase_riemann_zeta<double>))
+#endif
+
+
+// Test data.
+// max(|f - f_GSL|): 2.6645352591003757e-15
+// max(|f - f_GSL| / |f_GSL|): 1.1657079722157521e-15
+const testcase_riemann_zeta<double>
+data002[145] =
+{
+ { 5.5915824411777502, 1.2000000000000000 },
+ { 3.1055472779775792, 1.3999999999999999 },
+ { 2.2857656656801324, 1.6000000000000001 },
+ { 1.8822296181028220, 1.8000000000000000 },
+ { 1.6449340668482275, 2.0000000000000000 },
+ { 1.4905432565068937, 2.2000000000000002 },
+ { 1.3833428588407359, 2.3999999999999999 },
+ { 1.3054778090727803, 2.6000000000000001 },
+ { 1.2470314223172541, 2.7999999999999998 },
+ { 1.2020569031595945, 3.0000000000000000 },
+ { 1.1667733709844674, 3.2000000000000002 },
+ { 1.1386637757280420, 3.3999999999999999 },
+ { 1.1159890791233376, 3.6000000000000001 },
+ { 1.0975105764590047, 3.7999999999999998 },
+ { 1.0823232337111381, 4.0000000000000000 },
+ { 1.0697514772338095, 4.2000000000000002 },
+ { 1.0592817259798355, 4.4000000000000004 },
+ { 1.0505173825665735, 4.5999999999999996 },
+ { 1.0431480133351789, 4.7999999999999998 },
+ { 1.0369277551433700, 5.0000000000000000 },
+ { 1.0316598766779168, 5.2000000000000002 },
+ { 1.0271855389203537, 5.4000000000000004 },
+ { 1.0233754792270300, 5.5999999999999996 },
+ { 1.0201237683883446, 5.7999999999999998 },
+ { 1.0173430619844492, 6.0000000000000000 },
+ { 1.0149609451852233, 6.2000000000000002 },
+ { 1.0129170887121841, 6.4000000000000004 },
+ { 1.0111610141542708, 6.5999999999999996 },
+ { 1.0096503223447120, 6.7999999999999998 },
+ { 1.0083492773819229, 7.0000000000000000 },
+ { 1.0072276664807169, 7.2000000000000002 },
+ { 1.0062598756930512, 7.4000000000000004 },
+ { 1.0054241359879634, 7.5999999999999996 },
+ { 1.0047019048164696, 7.7999999999999998 },
+ { 1.0040773561979444, 8.0000000000000000 },
+ { 1.0035369583062013, 8.1999999999999993 },
+ { 1.0030691220374448, 8.4000000000000004 },
+ { 1.0026639074861505, 8.5999999999999996 },
+ { 1.0023127779098220, 8.8000000000000007 },
+ { 1.0020083928260823, 9.0000000000000000 },
+ { 1.0017444334995897, 9.1999999999999993 },
+ { 1.0015154553480514, 9.4000000000000004 },
+ { 1.0013167628052648, 9.5999999999999996 },
+ { 1.0011443029840295, 9.8000000000000007 },
+ { 1.0009945751278182, 10.000000000000000 },
+ { 1.0008645533615086, 10.199999999999999 },
+ { 1.0007516206744649, 10.400000000000000 },
+ { 1.0006535124140847, 10.600000000000000 },
+ { 1.0005682678503411, 10.800000000000001 },
+ { 1.0004941886041194, 11.000000000000000 },
+ { 1.0004298029239944, 11.199999999999999 },
+ { 1.0003738349551168, 11.400000000000000 },
+ { 1.0003251782761946, 11.600000000000000 },
+ { 1.0002828730909989, 11.800000000000001 },
+ { 1.0002460865533080, 12.000000000000000 },
+ { 1.0002140957818750, 12.199999999999999 },
+ { 1.0001862731874056, 12.400000000000000 },
+ { 1.0001620737887460, 12.600000000000000 },
+ { 1.0001410242422089, 12.800000000000001 },
+ { 1.0001227133475783, 13.000000000000000 },
+ { 1.0001067838280169, 13.199999999999999 },
+ { 1.0000929252097515, 13.400000000000000 },
+ { 1.0000808676518718, 13.600000000000000 },
+ { 1.0000703765974504, 13.800000000000001 },
+ { 1.0000612481350588, 14.000000000000000 },
+ { 1.0000533049750668, 14.199999999999999 },
+ { 1.0000463929582293, 14.400000000000000 },
+ { 1.0000403780253397, 14.600000000000000 },
+ { 1.0000351435864272, 14.800000000000001 },
+ { 1.0000305882363070, 15.000000000000000 },
+ { 1.0000266237704787, 15.199999999999999 },
+ { 1.0000231734615617, 15.400000000000000 },
+ { 1.0000201705617975, 15.600000000000000 },
+ { 1.0000175570017611, 15.800000000000001 },
+ { 1.0000152822594086, 16.000000000000000 },
+ { 1.0000133023770337, 16.199999999999999 },
+ { 1.0000115791066830, 16.399999999999999 },
+ { 1.0000100791671644, 16.600000000000001 },
+ { 1.0000087735980010, 16.800000000000001 },
+ { 1.0000076371976379, 17.000000000000000 },
+ { 1.0000066480348633, 17.199999999999999 },
+ { 1.0000057870238734, 17.399999999999999 },
+ { 1.0000050375546607, 17.600000000000001 },
+ { 1.0000043851715013, 17.800000000000001 },
+ { 1.0000038172932648, 18.000000000000000 },
+ { 1.0000033229700953, 18.199999999999999 },
+ { 1.0000028926717153, 18.399999999999999 },
+ { 1.0000025181032419, 18.600000000000001 },
+ { 1.0000021920449287, 18.800000000000001 },
+ { 1.0000019082127167, 19.000000000000000 },
+ { 1.0000016611368951, 19.199999999999999 },
+ { 1.0000014460565094, 19.399999999999999 },
+ { 1.0000012588274738, 19.600000000000001 },
+ { 1.0000010958426055, 19.800000000000001 },
+ { 1.0000009539620338, 20.000000000000000 },
+ { 1.0000008304526344, 20.199999999999999 },
+ { 1.0000007229353187, 20.399999999999999 },
+ { 1.0000006293391575, 20.600000000000001 },
+ { 1.0000005478614529, 20.800000000000001 },
+ { 1.0000004769329869, 21.000000000000000 },
+ { 1.0000004151877719, 21.199999999999999 },
+ { 1.0000003614367254, 21.399999999999999 },
+ { 1.0000003146447527, 21.600000000000001 },
+ { 1.0000002739108020, 21.800000000000001 },
+ { 1.0000002384505029, 22.000000000000000 },
+ { 1.0000002075810521, 22.199999999999999 },
+ { 1.0000001807080625, 22.399999999999999 },
+ { 1.0000001573141093, 22.600000000000001 },
+ { 1.0000001369487659, 22.800000000000001 },
+ { 1.0000001192199262, 23.000000000000000 },
+ { 1.0000001037862520, 23.199999999999999 },
+ { 1.0000000903506006, 23.399999999999999 },
+ { 1.0000000786543011, 23.600000000000001 },
+ { 1.0000000684721728, 23.800000000000001 },
+ { 1.0000000596081891, 24.000000000000000 },
+ { 1.0000000518917020, 24.199999999999999 },
+ { 1.0000000451741575, 24.399999999999999 },
+ { 1.0000000393262332, 24.600000000000001 },
+ { 1.0000000342353501, 24.800000000000001 },
+ { 1.0000000298035037, 25.000000000000000 },
+ { 1.0000000259453767, 25.199999999999999 },
+ { 1.0000000225866978, 25.399999999999999 },
+ { 1.0000000196628109, 25.600000000000001 },
+ { 1.0000000171174297, 25.800000000000001 },
+ { 1.0000000149015549, 26.000000000000000 },
+ { 1.0000000129725304, 26.199999999999999 },
+ { 1.0000000112932221, 26.399999999999999 },
+ { 1.0000000098313035, 26.600000000000001 },
+ { 1.0000000085586331, 26.800000000000001 },
+ { 1.0000000074507118, 27.000000000000000 },
+ { 1.0000000064862125, 27.199999999999999 },
+ { 1.0000000056465688, 27.399999999999999 },
+ { 1.0000000049156179, 27.600000000000001 },
+ { 1.0000000042792894, 27.800000000000001 },
+ { 1.0000000037253340, 28.000000000000000 },
+ { 1.0000000032430887, 28.199999999999999 },
+ { 1.0000000028232703, 28.399999999999999 },
+ { 1.0000000024577977, 28.600000000000001 },
+ { 1.0000000021396356, 28.800000000000001 },
+ { 1.0000000018626598, 29.000000000000000 },
+ { 1.0000000016215385, 29.199999999999999 },
+ { 1.0000000014116306, 29.399999999999999 },
+ { 1.0000000012288952, 29.600000000000001 },
+ { 1.0000000010698147, 29.800000000000001 },
+ { 1.0000000009313275, 30.000000000000000 },
+};
+const double toler002 = 2.5000000000000020e-13;
+
+template<typename Tp, unsigned int Num>
+ void
+ test(const testcase_riemann_zeta<Tp> (&data)[Num], Tp toler)
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = MAX_ITERATIONS;
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::riemann_zeta(data[i].s);
+ const Tp f0 = data[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < toler);
+ }
+
+int
+main()
+{
+ test(data001, toler001);
+ test(data002, toler002);
+ return 0;
+}
Index: testsuite/special_functions/18_riemann_zeta/compile.cc
===================================================================
--- testsuite/special_functions/18_riemann_zeta/compile.cc (revision 0)
+++ testsuite/special_functions/18_riemann_zeta/compile.cc (working copy)
@@ -0,0 +1,40 @@
+// { dg-do compile }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.18 riemann_zeta
+
+#include <cmath>
+
+void
+test01()
+{
+ float xf = 0.5F;
+ double xd = 0.5;
+ long double xl = 0.5L;
+
+ std::riemann_zeta(xf);
+ std::riemann_zetaf(xf);
+ std::riemann_zeta(xd);
+ std::riemann_zeta(xl);
+ std::riemann_zetal(xl);
+
+ return;
+}
+
Index: testsuite/special_functions/18_riemann_zeta/compile_2.cc
===================================================================
--- testsuite/special_functions/18_riemann_zeta/compile_2.cc (revision 0)
+++ testsuite/special_functions/18_riemann_zeta/compile_2.cc (working copy)
@@ -0,0 +1,41 @@
+// { dg-do compile { xfail *-*-* } }
+// { dg-excess-errors "" }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.18 riemann_zeta
+
+#include <math.h>
+
+void
+test01()
+{
+ float xf = 0.5F;
+ double xd = 0.5;
+ long double xl = 0.5L;
+
+ riemann_zeta(xf);
+ riemann_zetaf(xf);
+ riemann_zeta(xd);
+ riemann_zeta(xl);
+ riemann_zetal(xl);
+
+ return;
+}
+
Index: testsuite/special_functions/19_sph_bessel/check_nan.cc
===================================================================
--- testsuite/special_functions/19_sph_bessel/check_nan.cc (revision 0)
+++ testsuite/special_functions/19_sph_bessel/check_nan.cc (working copy)
@@ -0,0 +1,58 @@
+// { dg-require-c-std "" }
+// { dg-add-options ieee }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.19 sph_bessel
+
+#include <cmath>
+#include <testsuite_hooks.h>
+
+void
+test01()
+{
+ float xf = std::numeric_limits<float>::quiet_NaN();
+ double xd = std::numeric_limits<double>::quiet_NaN();
+ long double xl = std::numeric_limits<long double>::quiet_NaN();
+
+ unsigned int n = 0;
+
+ float a = std::sph_bessel(n, xf);
+ float b = std::sph_besself(n, xf);
+ double c = std::sph_bessel(n, xd);
+ long double d = std::sph_bessel(n, xl);
+ long double e = std::sph_bessell(n, xl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+int
+main()
+{
+ test01();
+ return 0;
+}
+
Index: testsuite/special_functions/19_sph_bessel/check_value.cc
===================================================================
--- testsuite/special_functions/19_sph_bessel/check_value.cc (revision 0)
+++ testsuite/special_functions/19_sph_bessel/check_value.cc (working copy)
@@ -0,0 +1,506 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+//
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// sph_bessel
+// Compare against values generated by the GNU Scientific Library.
+// The GSL can be found on the web: http://www.gnu.org/software/gsl/
+#include <limits>
+#include <cmath>
+#if defined(__TEST_DEBUG)
+# include <iostream>
+# define VERIFY(A) \
+ if (!(A)) \
+ { \
+ std::cout << "line " << __LINE__ \
+ << " max_abs_frac = " << max_abs_frac \
+ << std::endl; \
+ }
+#else
+# include <testsuite_hooks.h>
+#endif
+#include <specfun_testcase.h>
+
+
+// Test data for n=0.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 2.0843271082049370e-15
+const testcase_sph_bessel<double>
+data001[21] =
+{
+ { 1.0000000000000000, 0, 0.0000000000000000 },
+ { 0.98961583701809175, 0, 0.25000000000000000 },
+ { 0.95885107720840601, 0, 0.50000000000000000 },
+ { 0.90885168003111216, 0, 0.75000000000000000 },
+ { 0.84147098480789650, 0, 1.0000000000000000 },
+ { 0.75918769548446896, 0, 1.2500000000000000 },
+ { 0.66499665773603633, 0, 1.5000000000000000 },
+ { 0.56227768392796396, 0, 1.7500000000000000 },
+ { 0.45464871341284085, 0, 2.0000000000000000 },
+ { 0.34581030972796500, 0, 2.2500000000000000 },
+ { 0.23938885764158263, 0, 2.5000000000000000 },
+ { 0.13878581529175696, 0, 2.7500000000000000 },
+ { 0.047040002686622402, 0, 3.0000000000000000 },
+ { -0.033290810624648733, 0, 3.2500000000000000 },
+ { -0.10022377933989138, 0, 3.5000000000000000 },
+ { -0.15241635166462500, 0, 3.7500000000000000 },
+ { -0.18920062382698205, 0, 4.0000000000000000 },
+ { -0.21058573134790201, 0, 4.2500000000000000 },
+ { -0.21722891503668823, 0, 4.5000000000000000 },
+ { -0.21037742925797431, 0, 4.7500000000000000 },
+ { -0.19178485493262770, 0, 5.0000000000000000 },
+};
+const double toler001 = 2.5000000000000020e-13;
+
+// Test data for n=1.
+// max(|f - f_GSL|): 3.1918911957973251e-16
+// max(|f - f_GSL| / |f_GSL|): 2.8516043985912409e-14
+const testcase_sph_bessel<double>
+data002[21] =
+{
+ { 0.0000000000000000, 1, 0.0000000000000000 },
+ { 0.082813661229788060, 1, 0.25000000000000000 },
+ { 0.16253703063606650, 1, 0.50000000000000000 },
+ { 0.23621708154305501, 1, 0.75000000000000000 },
+ { 0.30116867893975674, 1, 1.0000000000000000 },
+ { 0.35509226647136022, 1, 1.2500000000000000 },
+ { 0.39617297071222229, 1, 1.5000000000000000 },
+ { 0.42315642261568914, 1, 1.7500000000000000 },
+ { 0.43539777497999166, 1, 2.0000000000000000 },
+ { 0.43288174775586852, 1, 2.2500000000000000 },
+ { 0.41621298927540656, 1, 2.5000000000000000 },
+ { 0.38657752506335291, 1, 2.7500000000000000 },
+ { 0.34567749976235596, 1, 3.0000000000000000 },
+ { 0.29564272783258383, 1, 3.2500000000000000 },
+ { 0.23892368798597285, 1, 3.5000000000000000 },
+ { 0.17817146817998289, 1, 3.7500000000000000 },
+ { 0.11611074925915747, 1, 4.0000000000000000 },
+ { 0.055412178486091958, 1, 4.2500000000000000 },
+ { -0.0014295812457574522, 1, 4.5000000000000000 },
+ { -0.052206227820200179, 1, 4.7500000000000000 },
+ { -0.095089408079170795, 1, 5.0000000000000000 },
+};
+const double toler002 = 2.5000000000000015e-12;
+
+// Test data for n=2.
+// max(|f - f_GSL|): 8.3266726846886741e-17
+// max(|f - f_GSL| / |f_GSL|): 6.5384527054443100e-16
+const testcase_sph_bessel<double>
+data003[21] =
+{
+ { 0.0000000000000000, 2, 0.0000000000000000 },
+ { 0.0041480977393611252, 2, 0.25000000000000000 },
+ { 0.016371106607993412, 2, 0.50000000000000000 },
+ { 0.036016646141108236, 2, 0.75000000000000000 },
+ { 0.062035052011373860, 2, 1.0000000000000000 },
+ { 0.093033744046795624, 2, 1.2500000000000000 },
+ { 0.12734928368840817, 2, 1.5000000000000000 },
+ { 0.16313332627036031, 2, 1.7500000000000000 },
+ { 0.19844794905714661, 2, 2.0000000000000000 },
+ { 0.23136535394652627, 2, 2.2500000000000000 },
+ { 0.26006672948890525, 2, 2.5000000000000000 },
+ { 0.28293512114099162, 2, 2.7500000000000000 },
+ { 0.29863749707573356, 2, 3.0000000000000000 },
+ { 0.30619179016241843, 2, 3.2500000000000000 },
+ { 0.30501551189929671, 2, 3.5000000000000000 },
+ { 0.29495352620861132, 2, 3.7500000000000000 },
+ { 0.27628368577135015, 2, 4.0000000000000000 },
+ { 0.24970021027926106, 2, 4.2500000000000000 },
+ { 0.21627586087284995, 2, 4.5000000000000000 },
+ { 0.17740507484521628, 2, 4.7500000000000000 },
+ { 0.13473121008512520, 2, 5.0000000000000000 },
+};
+const double toler003 = 2.5000000000000020e-13;
+
+// Test data for n=5.
+// max(|f - f_GSL|): 9.7144514654701197e-17
+// max(|f - f_GSL| / |f_GSL|): 2.7459190669103549e-15
+const testcase_sph_bessel<double>
+data004[21] =
+{
+ { 0.0000000000000000, 5, 0.0000000000000000 },
+ { 9.3719811237268220e-08, 5, 0.25000000000000000 },
+ { 2.9774668754574453e-06, 5, 0.50000000000000000 },
+ { 2.2339447678335762e-05, 5, 0.75000000000000000 },
+ { 9.2561158611258144e-05, 5, 1.0000000000000000 },
+ { 0.00027638888920123806, 5, 1.2500000000000000 },
+ { 0.00066962059628932456, 5, 1.5000000000000000 },
+ { 0.0014021729022572799, 5, 1.7500000000000000 },
+ { 0.0026351697702441169, 5, 2.0000000000000000 },
+ { 0.0045540034750567553, 5, 2.2500000000000000 },
+ { 0.0073576387377689359, 5, 2.5000000000000000 },
+ { 0.011244740276407145, 5, 2.7500000000000000 },
+ { 0.016397480955999105, 5, 3.0000000000000000 },
+ { 0.022964112474845508, 5, 3.2500000000000000 },
+ { 0.031041536537391189, 5, 3.5000000000000000 },
+ { 0.040659189440948935, 5, 3.7500000000000000 },
+ { 0.051765539757363456, 5, 4.0000000000000000 },
+ { 0.064218395773425613, 5, 4.2500000000000000 },
+ { 0.077780030832892866, 5, 4.5000000000000000 },
+ { 0.092117870593729223, 5, 4.7500000000000000 },
+ { 0.10681116145650453, 5, 5.0000000000000000 },
+};
+const double toler004 = 2.5000000000000020e-13;
+
+// Test data for n=10.
+// max(|f - f_GSL|): 8.6736173798840355e-19
+// max(|f - f_GSL| / |f_GSL|): 6.7232224139500876e-15
+const testcase_sph_bessel<double>
+data005[21] =
+{
+ { 0.0000000000000000, 10, 0.0000000000000000 },
+ { 6.9267427453708468e-17, 10, 0.25000000000000000 },
+ { 7.0641239636618740e-14, 10, 0.50000000000000000 },
+ { 4.0459307474109287e-12, 10, 0.75000000000000000 },
+ { 7.1165526400473096e-11, 10, 1.0000000000000000 },
+ { 6.5470739530199939e-10, 10, 1.2500000000000000 },
+ { 3.9934406994836296e-09, 10, 1.5000000000000000 },
+ { 1.8327719460735247e-08, 10, 1.7500000000000000 },
+ { 6.8253008649747220e-08, 10, 2.0000000000000000 },
+ { 2.1653870546846626e-07, 10, 2.2500000000000000 },
+ { 6.0504362296385381e-07, 10, 2.5000000000000000 },
+ { 1.5246485352158441e-06, 10, 2.7500000000000000 },
+ { 3.5260038931752543e-06, 10, 3.0000000000000000 },
+ { 7.5839040020531456e-06, 10, 3.2500000000000000 },
+ { 1.5327786999397106e-05, 10, 3.5000000000000000 },
+ { 2.9348811002317661e-05, 10, 3.7500000000000000 },
+ { 5.3589865768632612e-05, 10, 4.0000000000000000 },
+ { 9.3818602410477989e-05, 10, 4.2500000000000000 },
+ { 0.00015817516371455801, 10, 4.5000000000000000 },
+ { 0.00025777607369970674, 10, 4.7500000000000000 },
+ { 0.00040734424424946052, 10, 5.0000000000000000 },
+};
+const double toler005 = 5.0000000000000039e-13;
+
+// Test data for n=20.
+// max(|f - f_GSL|): 4.9275407583725281e-26
+// max(|f - f_GSL| / |f_GSL|): 2.4002866288153026e-14
+const testcase_sph_bessel<double>
+data006[21] =
+{
+ { 0.0000000000000000, 20, 0.0000000000000000 },
+ { 6.9307487073399339e-38, 20, 0.25000000000000000 },
+ { 7.2515880810153944e-32, 20, 0.50000000000000000 },
+ { 2.4025911398834722e-28, 20, 0.75000000000000000 },
+ { 7.5377957222368705e-26, 20, 1.0000000000000000 },
+ { 6.4953439243593413e-24, 20, 1.2500000000000000 },
+ { 2.4703120390884050e-22, 20, 1.5000000000000000 },
+ { 5.3404627138297197e-21, 20, 1.7500000000000000 },
+ { 7.6326411008876072e-20, 20, 2.0000000000000000 },
+ { 7.9496335952781075e-19, 20, 2.2500000000000000 },
+ { 6.4488532759578977e-18, 20, 2.5000000000000000 },
+ { 4.2725223040880135e-17, 20, 2.7500000000000000 },
+ { 2.3942249272752627e-16, 20, 3.0000000000000000 },
+ { 1.1654033741499860e-15, 20, 3.2500000000000000 },
+ { 5.0303402625237510e-15, 20, 3.5000000000000000 },
+ { 1.9572475798118559e-14, 20, 3.7500000000000000 },
+ { 6.9559880644906101e-14, 20, 4.0000000000000000 },
+ { 2.2825949745670935e-13, 20, 4.2500000000000000 },
+ { 6.9781823021792824e-13, 20, 4.5000000000000000 },
+ { 2.0024157388665026e-12, 20, 4.7500000000000000 },
+ { 5.4277267607932098e-12, 20, 5.0000000000000000 },
+};
+const double toler006 = 2.5000000000000015e-12;
+// sph_bessel
+
+// Test data for n=0.
+// max(|f - f_GSL|): 1.0694570229397016e-15
+// max(|f - f_GSL| / |f_GSL|): 3.7496052611150890e-13
+const testcase_sph_bessel<double>
+data007[21] =
+{
+ { 1.0000000000000000, 0, 0.0000000000000000 },
+ { -0.19178485493262770, 0, 5.0000000000000000 },
+ { -0.054402111088936979, 0, 10.000000000000000 },
+ { 0.043352522677141118, 0, 15.000000000000000 },
+ { 0.045647262536381385, 0, 20.000000000000000 },
+ { -0.0052940700039109216, 0, 25.000000000000000 },
+ { -0.032934387469762058, 0, 30.000000000000000 },
+ { -0.012233790557032886, 0, 35.000000000000000 },
+ { 0.018627829011983722, 0, 40.000000000000000 },
+ { 0.018908967211869299, 0, 45.000000000000000 },
+ { -0.0052474970740785751, 0, 50.000000000000000 },
+ { -0.018177366788338544, 0, 55.000000000000000 },
+ { -0.0050801770183702783, 0, 60.000000000000000 },
+ { 0.012720441222924667, 0, 65.000000000000000 },
+ { 0.011055581165112701, 0, 70.000000000000000 },
+ { -0.0051704218054590724, 0, 75.000000000000000 },
+ { -0.012423608174042190, 0, 80.000000000000000 },
+ { -0.0020714778817480834, 0, 85.000000000000000 },
+ { 0.0099332962622284207, 0, 90.000000000000000 },
+ { 0.0071922285761696946, 0, 95.000000000000000 },
+ { -0.0050636564110975880, 0, 100.00000000000000 },
+};
+const double toler007 = 2.5000000000000014e-11;
+
+// Test data for n=1.
+// max(|f - f_GSL|): 1.0044048925905713e-15
+// max(|f - f_GSL| / |f_GSL|): 6.5465850130521528e-13
+const testcase_sph_bessel<double>
+data008[21] =
+{
+ { 0.0000000000000000, 1, 0.0000000000000000 },
+ { -0.095089408079170795, 1, 5.0000000000000000 },
+ { 0.078466941798751549, 1, 10.000000000000000 },
+ { 0.053536029035730827, 1, 15.000000000000000 },
+ { -0.018121739963850528, 1, 20.000000000000000 },
+ { -0.039859875274695380, 1, 25.000000000000000 },
+ { -0.0062395279119115375, 1, 30.000000000000000 },
+ { 0.025470240415270681, 1, 35.000000000000000 },
+ { 0.017139147266606140, 1, 40.000000000000000 },
+ { -0.011253622702352454, 1, 45.000000000000000 },
+ { -0.019404270511323839, 1, 50.000000000000000 },
+ { -0.00073280223727807778, 1, 55.000000000000000 },
+ { 0.015788880056613101, 1, 60.000000000000000 },
+ { 0.0088488352686322581, 1, 65.000000000000000 },
+ { -0.0088894803131598157, 1, 70.000000000000000 },
+ { -0.012358955887069445, 1, 75.000000000000000 },
+ { 0.0012245454458125673, 1, 80.000000000000000 },
+ { 0.011556531358968161, 1, 85.000000000000000 },
+ { 0.0050889656932377614, 1, 90.000000000000000 },
+ { -0.0076103298149331573, 1, 95.000000000000000 },
+ { -0.0086738252869878150, 1, 100.00000000000000 },
+};
+const double toler008 = 5.0000000000000028e-11;
+
+// Test data for n=2.
+// max(|f - f_GSL|): 1.0772632785815972e-15
+// max(|f - f_GSL| / |f_GSL|): 3.4761702917932150e-13
+const testcase_sph_bessel<double>
+data009[21] =
+{
+ { 0.0000000000000000, 2, 0.0000000000000000 },
+ { 0.13473121008512520, 2, 5.0000000000000000 },
+ { 0.077942193628562445, 2, 10.000000000000000 },
+ { -0.032645316869994966, 2, 15.000000000000000 },
+ { -0.048365523530958965, 2, 20.000000000000000 },
+ { 0.00051088497094747614, 2, 25.000000000000000 },
+ { 0.032310434678570907, 2, 30.000000000000000 },
+ { 0.014416954021198941, 2, 35.000000000000000 },
+ { -0.017342392966988262, 2, 40.000000000000000 },
+ { -0.019659208725359461, 2, 45.000000000000000 },
+ { 0.0040832408433991458, 2, 50.000000000000000 },
+ { 0.018137395757214285, 2, 55.000000000000000 },
+ { 0.0058696210212009327, 2, 60.000000000000000 },
+ { -0.012312033441295490, 2, 65.000000000000000 },
+ { -0.011436558892819550, 2, 70.000000000000000 },
+ { 0.0046760635699762939, 2, 75.000000000000000 },
+ { 0.012469528628260161, 2, 80.000000000000000 },
+ { 0.0024793554591234306, 2, 85.000000000000000 },
+ { -0.0097636640724538277, 2, 90.000000000000000 },
+ { -0.0074325547808517939, 2, 95.000000000000000 },
+ { 0.0048034416524879537, 2, 100.00000000000000 },
+};
+const double toler009 = 2.5000000000000014e-11;
+
+// Test data for n=5.
+// max(|f - f_GSL|): 9.4455693266937146e-16
+// max(|f - f_GSL| / |f_GSL|): 8.4346477099300519e-13
+const testcase_sph_bessel<double>
+data010[21] =
+{
+ { 0.0000000000000000, 5, 0.0000000000000000 },
+ { 0.10681116145650453, 5, 5.0000000000000000 },
+ { -0.055534511621452155, 5, 10.000000000000000 },
+ { 0.065968007076521951, 5, 15.000000000000000 },
+ { 0.016683908063095682, 5, 20.000000000000000 },
+ { -0.036117795989722382, 5, 25.000000000000000 },
+ { -0.020504008736827489, 5, 30.000000000000000 },
+ { 0.018499481206814560, 5, 35.000000000000000 },
+ { 0.022448773791044995, 5, 40.000000000000000 },
+ { -0.0048552694845020138, 5, 45.000000000000000 },
+ { -0.020048300563664877, 5, 50.000000000000000 },
+ { -0.0052999924455565742, 5, 55.000000000000000 },
+ { 0.014151556281331407, 5, 60.000000000000000 },
+ { 0.011354588594416778, 5, 65.000000000000000 },
+ { -0.0064983781785323573, 5, 70.000000000000000 },
+ { -0.013089909320064257, 5, 75.000000000000000 },
+ { -0.00096200450071302446, 5, 80.000000000000000 },
+ { 0.011048668899130202, 5, 85.000000000000000 },
+ { 0.0065639581708136037, 5, 90.000000000000000 },
+ { -0.0064646119368202771, 5, 95.000000000000000 },
+ { -0.0092901489349075713, 5, 100.00000000000000 },
+};
+const double toler010 = 5.0000000000000028e-11;
+
+// Test data for n=10.
+// max(|f - f_GSL|): 1.1999949645069563e-15
+// max(|f - f_GSL| / |f_GSL|): 2.9533832871668437e-12
+const testcase_sph_bessel<double>
+data011[21] =
+{
+ { 0.0000000000000000, 10, 0.0000000000000000 },
+ { 0.00040734424424946052, 10, 5.0000000000000000 },
+ { 0.064605154492564265, 10, 10.000000000000000 },
+ { 0.0018969790010883577, 10, 15.000000000000000 },
+ { 0.039686698644626366, 10, 20.000000000000000 },
+ { -0.036253285601128581, 10, 25.000000000000000 },
+ { -0.014529646403897799, 10, 30.000000000000000 },
+ { 0.026281264603993857, 10, 35.000000000000000 },
+ { 0.013124803182748323, 10, 40.000000000000000 },
+ { -0.017600831383728983, 10, 45.000000000000000 },
+ { -0.015039221463465955, 10, 50.000000000000000 },
+ { 0.0095256289349167390, 10, 55.000000000000000 },
+ { 0.015822719394008339, 10, 60.000000000000000 },
+ { -0.0019391391708249754, 10, 65.000000000000000 },
+ { -0.014293389028395012, 10, 70.000000000000000 },
+ { -0.0044210285031696227, 10, 75.000000000000000 },
+ { 0.010516146958338813, 10, 80.000000000000000 },
+ { 0.0086736275131325726, 10, 85.000000000000000 },
+ { -0.0052905066357239322, 10, 90.000000000000000 },
+ { -0.010258326955210768, 10, 95.000000000000000 },
+ { -0.00019565785971342414, 10, 100.00000000000000 },
+};
+const double toler011 = 2.5000000000000017e-10;
+
+// Test data for n=20.
+// max(|f - f_GSL|): 8.5521867365656590e-16
+// max(|f - f_GSL| / |f_GSL|): 2.3231623379380350e-13
+const testcase_sph_bessel<double>
+data012[21] =
+{
+ { 0.0000000000000000, 20, 0.0000000000000000 },
+ { 5.4277267607932098e-12, 20, 5.0000000000000000 },
+ { 2.3083719613194670e-06, 20, 10.000000000000000 },
+ { 0.0015467058510412498, 20, 15.000000000000000 },
+ { 0.038324851639805160, 20, 20.000000000000000 },
+ { 0.028500071484154645, 20, 25.000000000000000 },
+ { -0.014711593353429081, 20, 30.000000000000000 },
+ { -0.010797653070264229, 20, 35.000000000000000 },
+ { 0.026535391837540293, 20, 40.000000000000000 },
+ { -0.011582959134716393, 20, 45.000000000000000 },
+ { -0.015785029898269291, 20, 50.000000000000000 },
+ { 0.013885519185862741, 20, 55.000000000000000 },
+ { 0.011112458964023273, 20, 60.000000000000000 },
+ { -0.011938384963927568, 20, 65.000000000000000 },
+ { -0.010117695207156904, 20, 70.000000000000000 },
+ { 0.0089871214102383232, 20, 75.000000000000000 },
+ { 0.010400578884991936, 20, 80.000000000000000 },
+ { -0.0055359020656326700, 20, 85.000000000000000 },
+ { -0.010639343320787521, 20, 90.000000000000000 },
+ { 0.0018051661455979529, 20, 95.000000000000000 },
+ { 0.010107671283873054, 20, 100.00000000000000 },
+};
+const double toler012 = 2.5000000000000014e-11;
+
+// Test data for n=50.
+// max(|f - f_GSL|): 9.7377618121785581e-16
+// max(|f - f_GSL| / |f_GSL|): 2.0735742618499052e-12
+const testcase_sph_bessel<double>
+data013[21] =
+{
+ { 0.0000000000000000, 50, 0.0000000000000000 },
+ { 2.8574793504401511e-46, 50, 5.0000000000000000 },
+ { 2.2306960232186471e-31, 50, 10.000000000000000 },
+ { 7.6804716640080804e-23, 50, 15.000000000000000 },
+ { 5.6500807918725220e-17, 50, 20.000000000000000 },
+ { 1.2540416973758975e-12, 50, 25.000000000000000 },
+ { 2.6901637185735326e-09, 50, 30.000000000000000 },
+ { 1.0167148174422245e-06, 50, 35.000000000000000 },
+ { 9.3949174038179069e-05, 50, 40.000000000000000 },
+ { 0.0024888927213794561, 50, 45.000000000000000 },
+ { 0.018829107369282647, 50, 50.000000000000000 },
+ { 0.026373198438145489, 50, 55.000000000000000 },
+ { -0.021230978268739001, 50, 60.000000000000000 },
+ { 0.016539881802291313, 50, 65.000000000000000 },
+ { -0.015985416061436664, 50, 70.000000000000000 },
+ { 0.015462548984405590, 50, 75.000000000000000 },
+ { -0.010638570118081819, 50, 80.000000000000000 },
+ { 0.00046961239784540793, 50, 85.000000000000000 },
+ { 0.0096065882189920251, 50, 90.000000000000000 },
+ { -0.010613873910261154, 50, 95.000000000000000 },
+ { 0.00057971408822774927, 50, 100.00000000000000 },
+};
+const double toler013 = 2.5000000000000017e-10;
+
+// Test data for n=100.
+// max(|f - f_GSL|): 3.1225022567582528e-17
+// max(|f - f_GSL| / |f_GSL|): 8.7701893132122237e-14
+const testcase_sph_bessel<double>
+data014[21] =
+{
+ { 0.0000000000000000, 100, 0.0000000000000000 },
+ { 5.5356503033889938e-120, 100, 5.0000000000000000 },
+ { 5.8320401820058771e-90, 100, 10.000000000000000 },
+ { 1.7406387750766626e-72, 100, 15.000000000000000 },
+ { 3.5152711125317012e-60, 100, 20.000000000000000 },
+ { 9.8455459353815965e-51, 100, 25.000000000000000 },
+ { 4.0888596744301583e-43, 100, 30.000000000000000 },
+ { 8.8975854911133939e-37, 100, 35.000000000000000 },
+ { 2.1513492547733828e-31, 100, 40.000000000000000 },
+ { 9.3673586994539108e-27, 100, 45.000000000000000 },
+ { 1.0190122629310471e-22, 100, 50.000000000000000 },
+ { 3.4887804977690388e-19, 100, 55.000000000000000 },
+ { 4.4442883425555593e-16, 100, 60.000000000000000 },
+ { 2.3832619568710723e-13, 100, 65.000000000000000 },
+ { 5.8948384175607987e-11, 100, 70.000000000000000 },
+ { 7.1884446357022277e-09, 100, 75.000000000000000 },
+ { 4.5247964400095002e-07, 100, 80.000000000000000 },
+ { 1.5096093228779032e-05, 100, 85.000000000000000 },
+ { 0.00026825172647807507, 100, 90.000000000000000 },
+ { 0.0024744308520581117, 100, 95.000000000000000 },
+ { 0.010880477011438350, 100, 100.00000000000000 },
+};
+const double toler014 = 5.0000000000000029e-12;
+
+template<typename Tp, unsigned int Num>
+ void
+ test(const testcase_sph_bessel<Tp> (&data)[Num], Tp toler)
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = Num;
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::sph_bessel(data[i].n, data[i].x);
+ const Tp f0 = data[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < toler);
+ }
+
+int
+main()
+{
+ test(data001, toler001);
+ test(data002, toler002);
+ test(data003, toler003);
+ test(data004, toler004);
+ test(data005, toler005);
+ test(data006, toler006);
+ test(data007, toler007);
+ test(data008, toler008);
+ test(data009, toler009);
+ test(data010, toler010);
+ test(data011, toler011);
+ test(data012, toler012);
+ test(data013, toler013);
+ test(data014, toler014);
+ return 0;
+}
Index: testsuite/special_functions/19_sph_bessel/compile.cc
===================================================================
--- testsuite/special_functions/19_sph_bessel/compile.cc (revision 0)
+++ testsuite/special_functions/19_sph_bessel/compile.cc (working copy)
@@ -0,0 +1,41 @@
+// { dg-do compile }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.19 sph_bessel
+
+#include <cmath>
+
+void
+test01()
+{
+ float xf = 0.5F;
+ double xd = 0.5;
+ long double xl = 0.5L;
+ unsigned int n = 0;
+
+ std::sph_bessel(n, xf);
+ std::sph_besself(n, xf);
+ std::sph_bessel(n, xd);
+ std::sph_bessel(n, xl);
+ std::sph_bessell(n, xl);
+
+ return;
+}
+
Index: testsuite/special_functions/19_sph_bessel/compile_2.cc
===================================================================
--- testsuite/special_functions/19_sph_bessel/compile_2.cc (revision 0)
+++ testsuite/special_functions/19_sph_bessel/compile_2.cc (working copy)
@@ -0,0 +1,42 @@
+// { dg-do compile { xfail *-*-* } }
+// { dg-excess-errors "" }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.19 sph_bessel
+
+#include <math.h>
+
+void
+test01()
+{
+ float xf = 0.5F;
+ double xd = 0.5;
+ long double xl = 0.5L;
+ unsigned int n = 0;
+
+ sph_bessel(n, xf);
+ sph_besself(n, xf);
+ sph_bessel(n, xd);
+ sph_bessel(n, xl);
+ sph_bessell(n, xl);
+
+ return;
+}
+
Index: testsuite/special_functions/20_sph_legendre/check_nan.cc
===================================================================
--- testsuite/special_functions/20_sph_legendre/check_nan.cc (revision 0)
+++ testsuite/special_functions/20_sph_legendre/check_nan.cc (working copy)
@@ -0,0 +1,58 @@
+// { dg-require-c-std "" }
+// { dg-add-options ieee }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.20 sph_legendre
+
+#include <cmath>
+#include <testsuite_hooks.h>
+
+void
+test01()
+{
+
+ float thetaf = std::numeric_limits<float>::quiet_NaN();
+ double thetad = std::numeric_limits<double>::quiet_NaN();
+ long double thetal = std::numeric_limits<long double>::quiet_NaN();
+ unsigned int l = 2, m = 1;
+
+ float a = std::sph_legendre(l, m, thetaf);
+ float b = std::sph_legendref(l, m, thetaf);
+ double c = std::sph_legendre(l, m, thetad);
+ long double d = std::sph_legendre(l, m, thetal);
+ long double e = std::sph_legendrel(l, m, thetal);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+int
+main()
+{
+ test01();
+ return 0;
+}
+
Index: testsuite/special_functions/20_sph_legendre/check_value.cc
===================================================================
--- testsuite/special_functions/20_sph_legendre/check_value.cc (revision 0)
+++ testsuite/special_functions/20_sph_legendre/check_value.cc (working copy)
@@ -0,0 +1,1944 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+//
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// sph_legendre
+// Compare against values generated by the GNU Scientific Library.
+// The GSL can be found on the web: http://www.gnu.org/software/gsl/
+#include <limits>
+#include <cmath>
+#if defined(__TEST_DEBUG)
+# include <iostream>
+# define VERIFY(A) \
+ if (!(A)) \
+ { \
+ std::cout << "line " << __LINE__ \
+ << " max_abs_frac = " << max_abs_frac \
+ << std::endl; \
+ }
+#else
+# include <testsuite_hooks.h>
+#endif
+#include <specfun_testcase.h>
+
+
+// Test data for l=0, m=0.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_sph_legendre<double>
+data001[21] =
+{
+ { 0.28209479177387814, 0, 0,
+ 0.0000000000000000 },
+ { 0.28209479177387814, 0, 0,
+ 0.15707963267948966 },
+ { 0.28209479177387814, 0, 0,
+ 0.31415926535897931 },
+ { 0.28209479177387814, 0, 0,
+ 0.47123889803846897 },
+ { 0.28209479177387814, 0, 0,
+ 0.62831853071795862 },
+ { 0.28209479177387814, 0, 0,
+ 0.78539816339744828 },
+ { 0.28209479177387814, 0, 0,
+ 0.94247779607693793 },
+ { 0.28209479177387814, 0, 0,
+ 1.0995574287564276 },
+ { 0.28209479177387814, 0, 0,
+ 1.2566370614359172 },
+ { 0.28209479177387814, 0, 0,
+ 1.4137166941154069 },
+ { 0.28209479177387814, 0, 0,
+ 1.5707963267948966 },
+ { 0.28209479177387814, 0, 0,
+ 1.7278759594743860 },
+ { 0.28209479177387814, 0, 0,
+ 1.8849555921538759 },
+ { 0.28209479177387814, 0, 0,
+ 2.0420352248333655 },
+ { 0.28209479177387814, 0, 0,
+ 2.1991148575128552 },
+ { 0.28209479177387814, 0, 0,
+ 2.3561944901923448 },
+ { 0.28209479177387814, 0, 0,
+ 2.5132741228718345 },
+ { 0.28209479177387814, 0, 0,
+ 2.6703537555513241 },
+ { 0.28209479177387814, 0, 0,
+ 2.8274333882308138 },
+ { 0.28209479177387814, 0, 0,
+ 2.9845130209103035 },
+ { 0.28209479177387814, 0, 0,
+ 3.1415926535897931 },
+};
+const double toler001 = 2.5000000000000020e-13;
+
+// Test data for l=1, m=0.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+const testcase_sph_legendre<double>
+data002[21] =
+{
+ { 0.48860251190291992, 1, 0,
+ 0.0000000000000000 },
+ { 0.48258700419201100, 1, 0,
+ 0.15707963267948966 },
+ { 0.46468860282345231, 1, 0,
+ 0.31415926535897931 },
+ { 0.43534802584032634, 1, 0,
+ 0.47123889803846897 },
+ { 0.39528773562374975, 1, 0,
+ 0.62831853071795862 },
+ { 0.34549414947133550, 1, 0,
+ 0.78539816339744828 },
+ { 0.28719335072959390, 1, 0,
+ 0.94247779607693793 },
+ { 0.22182089855280449, 1, 0,
+ 1.0995574287564276 },
+ { 0.15098647967228981, 1, 0,
+ 1.2566370614359172 },
+ { 0.076434272566846345, 1, 0,
+ 1.4137166941154069 },
+ { 2.9918275112863369e-17, 1, 0,
+ 1.5707963267948966 },
+ { -0.076434272566846179, 1, 0,
+ 1.7278759594743860 },
+ { -0.15098647967228976, 1, 0,
+ 1.8849555921538759 },
+ { -0.22182089855280443, 1, 0,
+ 2.0420352248333655 },
+ { -0.28719335072959384, 1, 0,
+ 2.1991148575128552 },
+ { -0.34549414947133544, 1, 0,
+ 2.3561944901923448 },
+ { -0.39528773562374969, 1, 0,
+ 2.5132741228718345 },
+ { -0.43534802584032628, 1, 0,
+ 2.6703537555513241 },
+ { -0.46468860282345231, 1, 0,
+ 2.8274333882308138 },
+ { -0.48258700419201095, 1, 0,
+ 2.9845130209103035 },
+ { -0.48860251190291992, 1, 0,
+ 3.1415926535897931 },
+};
+const double toler002 = 2.5000000000000020e-13;
+
+// Test data for l=1, m=1.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 7.7031500691196945e-16
+const testcase_sph_legendre<double>
+data003[21] =
+{
+ { 0.0000000000000000, 1, 1,
+ 0.0000000000000000 },
+ { -0.054047192447077917, 1, 1,
+ 0.15707963267948966 },
+ { -0.10676356364376104, 1, 1,
+ 0.31415926535897931 },
+ { -0.15685106157558129, 1, 1,
+ 0.47123889803846897 },
+ { -0.20307636581258243, 1, 1,
+ 0.62831853071795862 },
+ { -0.24430125595146007, 1, 1,
+ 0.78539816339744828 },
+ { -0.27951063837942880, 1, 1,
+ 0.94247779607693793 },
+ { -0.30783754124787122, 1, 1,
+ 1.0995574287564276 },
+ { -0.32858446219656556, 1, 1,
+ 1.2566370614359172 },
+ { -0.34124054317667202, 1, 1,
+ 1.4137166941154069 },
+ { -0.34549414947133567, 1, 1,
+ 1.5707963267948966 },
+ { -0.34124054317667202, 1, 1,
+ 1.7278759594743860 },
+ { -0.32858446219656556, 1, 1,
+ 1.8849555921538759 },
+ { -0.30783754124787127, 1, 1,
+ 2.0420352248333655 },
+ { -0.27951063837942880, 1, 1,
+ 2.1991148575128552 },
+ { -0.24430125595146013, 1, 1,
+ 2.3561944901923448 },
+ { -0.20307636581258248, 1, 1,
+ 2.5132741228718345 },
+ { -0.15685106157558140, 1, 1,
+ 2.6703537555513241 },
+ { -0.10676356364376104, 1, 1,
+ 2.8274333882308138 },
+ { -0.054047192447078167, 1, 1,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 1, 1,
+ 3.1415926535897931 },
+};
+const double toler003 = 2.5000000000000020e-13;
+
+// Test data for l=2, m=0.
+// max(|f - f_GSL|): 5.5511151231257827e-17
+// max(|f - f_GSL| / |f_GSL|): 3.0159263334953002e-15
+const testcase_sph_legendre<double>
+data004[21] =
+{
+ { 0.63078313050504009, 2, 0,
+ 0.0000000000000000 },
+ { 0.60762858760316607, 2, 0,
+ 0.15707963267948966 },
+ { 0.54043148688396569, 2, 0,
+ 0.31415926535897931 },
+ { 0.43576954875556589, 2, 0,
+ 0.47123889803846897 },
+ { 0.30388781294457579, 2, 0,
+ 0.62831853071795862 },
+ { 0.15769578262626011, 2, 0,
+ 0.78539816339744828 },
+ { 0.011503752307944235, 2, 0,
+ 0.94247779607693793 },
+ { -0.12037798350304570, 2, 0,
+ 1.0995574287564276 },
+ { -0.22503992163144576, 2, 0,
+ 1.2566370614359172 },
+ { -0.29223702235064597, 2, 0,
+ 1.4137166941154069 },
+ { -0.31539156525252005, 2, 0,
+ 1.5707963267948966 },
+ { -0.29223702235064608, 2, 0,
+ 1.7278759594743860 },
+ { -0.22503992163144584, 2, 0,
+ 1.8849555921538759 },
+ { -0.12037798350304584, 2, 0,
+ 2.0420352248333655 },
+ { 0.011503752307944164, 2, 0,
+ 2.1991148575128552 },
+ { 0.15769578262625994, 2, 0,
+ 2.3561944901923448 },
+ { 0.30388781294457567, 2, 0,
+ 2.5132741228718345 },
+ { 0.43576954875556562, 2, 0,
+ 2.6703537555513241 },
+ { 0.54043148688396569, 2, 0,
+ 2.8274333882308138 },
+ { 0.60762858760316585, 2, 0,
+ 2.9845130209103035 },
+ { 0.63078313050504009, 2, 0,
+ 3.1415926535897931 },
+};
+const double toler004 = 2.5000000000000020e-13;
+
+// Test data for l=2, m=1.
+// max(|f - f_GSL|): 2.2204460492503131e-16
+// max(|f - f_GSL| / |f_GSL|): 8.1384221730905279e-16
+const testcase_sph_legendre<double>
+data005[21] =
+{
+ { 0.0000000000000000, 2, 1,
+ 0.0000000000000000 },
+ { -0.11936529291378727, 2, 1,
+ 0.15707963267948966 },
+ { -0.22704627929027449, 2, 1,
+ 0.31415926535897931 },
+ { -0.31250239392538215, 2, 1,
+ 0.47123889803846897 },
+ { -0.36736859691086526, 2, 1,
+ 0.62831853071795862 },
+ { -0.38627420202318979, 2, 1,
+ 0.78539816339744828 },
+ { -0.36736859691086526, 2, 1,
+ 0.94247779607693793 },
+ { -0.31250239392538226, 2, 1,
+ 1.0995574287564276 },
+ { -0.22704627929027438, 2, 1,
+ 1.2566370614359172 },
+ { -0.11936529291378740, 2, 1,
+ 1.4137166941154069 },
+ { -4.7304946510089748e-17, 2, 1,
+ 1.5707963267948966 },
+ { 0.11936529291378714, 2, 1,
+ 1.7278759594743860 },
+ { 0.22704627929027429, 2, 1,
+ 1.8849555921538759 },
+ { 0.31250239392538220, 2, 1,
+ 2.0420352248333655 },
+ { 0.36736859691086521, 2, 1,
+ 2.1991148575128552 },
+ { 0.38627420202318979, 2, 1,
+ 2.3561944901923448 },
+ { 0.36736859691086526, 2, 1,
+ 2.5132741228718345 },
+ { 0.31250239392538232, 2, 1,
+ 2.6703537555513241 },
+ { 0.22704627929027449, 2, 1,
+ 2.8274333882308138 },
+ { 0.11936529291378781, 2, 1,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 2, 1,
+ 3.1415926535897931 },
+};
+const double toler005 = 2.5000000000000020e-13;
+
+// Test data for l=2, m=2.
+// max(|f - f_GSL|): 1.6653345369377348e-16
+// max(|f - f_GSL| / |f_GSL|): 6.2393366429561032e-16
+const testcase_sph_legendre<double>
+data006[21] =
+{
+ { 0.0000000000000000, 2, 2,
+ 0.0000000000000000 },
+ { 0.0094528025561622549, 2, 2,
+ 0.15707963267948966 },
+ { 0.036885904048903795, 2, 2,
+ 0.31415926535897931 },
+ { 0.079613961366457681, 2, 2,
+ 0.47123889803846897 },
+ { 0.13345445455470123, 2, 2,
+ 0.62831853071795862 },
+ { 0.19313710101159484, 2, 2,
+ 0.78539816339744828 },
+ { 0.25281974746848851, 2, 2,
+ 0.94247779607693793 },
+ { 0.30666024065673209, 2, 2,
+ 1.0995574287564276 },
+ { 0.34938829797428600, 2, 2,
+ 1.2566370614359172 },
+ { 0.37682139946702747, 2, 2,
+ 1.4137166941154069 },
+ { 0.38627420202318979, 2, 2,
+ 1.5707963267948966 },
+ { 0.37682139946702753, 2, 2,
+ 1.7278759594743860 },
+ { 0.34938829797428606, 2, 2,
+ 1.8849555921538759 },
+ { 0.30666024065673209, 2, 2,
+ 2.0420352248333655 },
+ { 0.25281974746848856, 2, 2,
+ 2.1991148575128552 },
+ { 0.19313710101159492, 2, 2,
+ 2.3561944901923448 },
+ { 0.13345445455470126, 2, 2,
+ 2.5132741228718345 },
+ { 0.079613961366457764, 2, 2,
+ 2.6703537555513241 },
+ { 0.036885904048903795, 2, 2,
+ 2.8274333882308138 },
+ { 0.0094528025561623433, 2, 2,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 2, 2,
+ 3.1415926535897931 },
+};
+const double toler006 = 2.5000000000000020e-13;
+
+// Test data for l=5, m=0.
+// max(|f - f_GSL|): 1.0547118733938987e-15
+// max(|f - f_GSL| / |f_GSL|): 2.9385557676213648e-15
+const testcase_sph_legendre<double>
+data007[21] =
+{
+ { 0.93560257962738880, 5, 0,
+ 0.0000000000000000 },
+ { 0.77014422942079963, 5, 0,
+ 0.15707963267948966 },
+ { 0.35892185032365165, 5, 0,
+ 0.31415926535897931 },
+ { -0.090214932090594294, 5, 0,
+ 0.47123889803846897 },
+ { -0.36214460396518883, 5, 0,
+ 0.62831853071795862 },
+ { -0.35145955579226906, 5, 0,
+ 0.78539816339744828 },
+ { -0.11441703594725168, 5, 0,
+ 0.94247779607693793 },
+ { 0.17248966720808107, 5, 0,
+ 1.0995574287564276 },
+ { 0.32128384287200523, 5, 0,
+ 1.2566370614359172 },
+ { 0.24377632246714948, 5, 0,
+ 1.4137166941154069 },
+ { 1.0741712853887702e-16, 5, 0,
+ 1.5707963267948966 },
+ { -0.24377632246714911, 5, 0,
+ 1.7278759594743860 },
+ { -0.32128384287200534, 5, 0,
+ 1.8849555921538759 },
+ { -0.17248966720808132, 5, 0,
+ 2.0420352248333655 },
+ { 0.11441703594725151, 5, 0,
+ 2.1991148575128552 },
+ { 0.35145955579226895, 5, 0,
+ 2.3561944901923448 },
+ { 0.36214460396518905, 5, 0,
+ 2.5132741228718345 },
+ { 0.090214932090594752, 5, 0,
+ 2.6703537555513241 },
+ { -0.35892185032365165, 5, 0,
+ 2.8274333882308138 },
+ { -0.77014422942079852, 5, 0,
+ 2.9845130209103035 },
+ { -0.93560257962738880, 5, 0,
+ 3.1415926535897931 },
+};
+const double toler007 = 2.5000000000000020e-13;
+
+// Test data for l=5, m=1.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 1.4161260272615034e-15
+const testcase_sph_legendre<double>
+data008[21] =
+{
+ { 0.0000000000000000, 5, 1,
+ 0.0000000000000000 },
+ { -0.36712373713318258, 5, 1,
+ 0.15707963267948966 },
+ { -0.54610329010534753, 5, 1,
+ 0.31415926535897931 },
+ { -0.45381991493631763, 5, 1,
+ 0.47123889803846897 },
+ { -0.15679720635769961, 5, 1,
+ 0.62831853071795862 },
+ { 0.16985499419838601, 5, 1,
+ 0.78539816339744828 },
+ { 0.34468004499725180, 5, 1,
+ 0.94247779607693793 },
+ { 0.28349471119605985, 5, 1,
+ 1.0995574287564276 },
+ { 0.044286619339675815, 5, 1,
+ 1.2566370614359172 },
+ { -0.21193784177193470, 5, 1,
+ 1.4137166941154069 },
+ { -0.32028164857621527, 5, 1,
+ 1.5707963267948966 },
+ { -0.21193784177193514, 5, 1,
+ 1.7278759594743860 },
+ { 0.044286619339675592, 5, 1,
+ 1.8849555921538759 },
+ { 0.28349471119605968, 5, 1,
+ 2.0420352248333655 },
+ { 0.34468004499725174, 5, 1,
+ 2.1991148575128552 },
+ { 0.16985499419838640, 5, 1,
+ 2.3561944901923448 },
+ { -0.15679720635769906, 5, 1,
+ 2.5132741228718345 },
+ { -0.45381991493631768, 5, 1,
+ 2.6703537555513241 },
+ { -0.54610329010534753, 5, 1,
+ 2.8274333882308138 },
+ { -0.36712373713318402, 5, 1,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 5, 1,
+ 3.1415926535897931 },
+};
+const double toler008 = 2.5000000000000020e-13;
+
+// Test data for l=5, m=2.
+// max(|f - f_GSL|): 1.6653345369377348e-16
+// max(|f - f_GSL| / |f_GSL|): 3.0636916515712721e-15
+const testcase_sph_legendre<double>
+data009[21] =
+{
+ { 0.0000000000000000, 5, 2,
+ 0.0000000000000000 },
+ { 0.078919441745546146, 5, 2,
+ 0.15707963267948966 },
+ { 0.26373799140437987, 5, 2,
+ 0.31415926535897931 },
+ { 0.43002359842080096, 5, 2,
+ 0.47123889803846897 },
+ { 0.45642486439050983, 5, 2,
+ 0.62831853071795862 },
+ { 0.29959604906083293, 5, 2,
+ 0.78539816339744828 },
+ { 0.023781239849532215, 5, 2,
+ 0.94247779607693793 },
+ { -0.23313989334673826, 5, 2,
+ 1.0995574287564276 },
+ { -0.33799912776303714, 5, 2,
+ 1.2566370614359172 },
+ { -0.23964508489529743, 5, 2,
+ 1.4137166941154069 },
+ { -1.0377480524338170e-16, 5, 2,
+ 1.5707963267948966 },
+ { 0.23964508489529704, 5, 2,
+ 1.7278759594743860 },
+ { 0.33799912776303714, 5, 2,
+ 1.8849555921538759 },
+ { 0.23313989334673843, 5, 2,
+ 2.0420352248333655 },
+ { -0.023781239849531916, 5, 2,
+ 2.1991148575128552 },
+ { -0.29959604906083276, 5, 2,
+ 2.3561944901923448 },
+ { -0.45642486439050983, 5, 2,
+ 2.5132741228718345 },
+ { -0.43002359842080118, 5, 2,
+ 2.6703537555513241 },
+ { -0.26373799140437987, 5, 2,
+ 2.8274333882308138 },
+ { -0.078919441745546867, 5, 2,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 5, 2,
+ 3.1415926535897931 },
+};
+const double toler009 = 2.5000000000000020e-13;
+
+// Test data for l=5, m=5.
+// max(|f - f_GSL|): 1.1102230246251565e-16
+// max(|f - f_GSL| / |f_GSL|): 4.2617219728402347e-16
+const testcase_sph_legendre<double>
+data010[21] =
+{
+ { 0.0000000000000000, 5, 5,
+ 0.0000000000000000 },
+ { -4.3481439097909148e-05, 5, 5,
+ 0.15707963267948966 },
+ { -0.0013078367086431812, 5, 5,
+ 0.31415926535897931 },
+ { -0.0089510818191922761, 5, 5,
+ 0.47123889803846897 },
+ { -0.032563803777573896, 5, 5,
+ 0.62831853071795862 },
+ { -0.082047757105021241, 5, 5,
+ 0.78539816339744828 },
+ { -0.16085328164143814, 5, 5,
+ 0.94247779607693793 },
+ { -0.26064303436645381, 5, 5,
+ 1.0995574287564276 },
+ { -0.36113811790820571, 5, 5,
+ 1.2566370614359172 },
+ { -0.43625592459446139, 5, 5,
+ 1.4137166941154069 },
+ { -0.46413220344085809, 5, 5,
+ 1.5707963267948966 },
+ { -0.43625592459446155, 5, 5,
+ 1.7278759594743860 },
+ { -0.36113811790820577, 5, 5,
+ 1.8849555921538759 },
+ { -0.26064303436645386, 5, 5,
+ 2.0420352248333655 },
+ { -0.16085328164143822, 5, 5,
+ 2.1991148575128552 },
+ { -0.082047757105021310, 5, 5,
+ 2.3561944901923448 },
+ { -0.032563803777573910, 5, 5,
+ 2.5132741228718345 },
+ { -0.0089510818191923004, 5, 5,
+ 2.6703537555513241 },
+ { -0.0013078367086431812, 5, 5,
+ 2.8274333882308138 },
+ { -4.3481439097910151e-05, 5, 5,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 5, 5,
+ 3.1415926535897931 },
+};
+const double toler010 = 2.5000000000000020e-13;
+
+// Test data for l=10, m=0.
+// max(|f - f_GSL|): 9.9920072216264089e-16
+// max(|f - f_GSL| / |f_GSL|): 2.2266594990531305e-15
+const testcase_sph_legendre<double>
+data011[21] =
+{
+ { 1.2927207364566027, 10, 0,
+ 0.0000000000000000 },
+ { 0.55288895150522555, 10, 0,
+ 0.15707963267948966 },
+ { -0.44874428379711545, 10, 0,
+ 0.31415926535897931 },
+ { -0.25532095827149687, 10, 0,
+ 0.47123889803846897 },
+ { 0.36625249688013961, 10, 0,
+ 0.62831853071795862 },
+ { 0.14880806329084206, 10, 0,
+ 0.78539816339744828 },
+ { -0.33533356797848757, 10, 0,
+ 0.94247779607693793 },
+ { -0.080639967662335665, 10, 0,
+ 1.0995574287564276 },
+ { 0.32197986450174521, 10, 0,
+ 1.2566370614359172 },
+ { 0.025713542103667848, 10, 0,
+ 1.4137166941154069 },
+ { -0.31813049373736707, 10, 0,
+ 1.5707963267948966 },
+ { 0.025713542103666699, 10, 0,
+ 1.7278759594743860 },
+ { 0.32197986450174543, 10, 0,
+ 1.8849555921538759 },
+ { -0.080639967662335096, 10, 0,
+ 2.0420352248333655 },
+ { -0.33533356797848757, 10, 0,
+ 2.1991148575128552 },
+ { 0.14880806329084156, 10, 0,
+ 2.3561944901923448 },
+ { 0.36625249688013994, 10, 0,
+ 2.5132741228718345 },
+ { -0.25532095827149576, 10, 0,
+ 2.6703537555513241 },
+ { -0.44874428379711545, 10, 0,
+ 2.8274333882308138 },
+ { 0.55288895150522011, 10, 0,
+ 2.9845130209103035 },
+ { 1.2927207364566027, 10, 0,
+ 3.1415926535897931 },
+};
+const double toler011 = 2.5000000000000020e-13;
+
+// Test data for l=10, m=1.
+// max(|f - f_GSL|): 1.4432899320127035e-15
+// max(|f - f_GSL| / |f_GSL|): 4.9708436073954521e-15
+const testcase_sph_legendre<double>
+data012[21] =
+{
+ { 0.0000000000000000, 10, 1,
+ 0.0000000000000000 },
+ { -0.74373723919063894, 10, 1,
+ 0.15707963267948966 },
+ { -0.29035110456209601, 10, 1,
+ 0.31415926535897931 },
+ { 0.42219282075271530, 10, 1,
+ 0.47123889803846897 },
+ { 0.17109256898931269, 10, 1,
+ 0.62831853071795862 },
+ { -0.35583574648544281, 10, 1,
+ 0.78539816339744828 },
+ { -0.10089212303543979, 10, 1,
+ 0.94247779607693793 },
+ { 0.32997652649321085, 10, 1,
+ 1.0995574287564276 },
+ { 0.047416376890032939, 10, 1,
+ 1.2566370614359172 },
+ { -0.31999356750295660, 10, 1,
+ 1.4137166941154069 },
+ { -2.0430664782290766e-16, 10, 1,
+ 1.5707963267948966 },
+ { 0.31999356750295660, 10, 1,
+ 1.7278759594743860 },
+ { -0.047416376890032544, 10, 1,
+ 1.8849555921538759 },
+ { -0.32997652649321091, 10, 1,
+ 2.0420352248333655 },
+ { 0.10089212303543935, 10, 1,
+ 2.1991148575128552 },
+ { 0.35583574648544292, 10, 1,
+ 2.3561944901923448 },
+ { -0.17109256898931161, 10, 1,
+ 2.5132741228718345 },
+ { -0.42219282075271569, 10, 1,
+ 2.6703537555513241 },
+ { 0.29035110456209601, 10, 1,
+ 2.8274333882308138 },
+ { 0.74373723919064050, 10, 1,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 10, 1,
+ 3.1415926535897931 },
+};
+const double toler012 = 2.5000000000000020e-13;
+
+// Test data for l=10, m=2.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 3.3968188217108871e-15
+const testcase_sph_legendre<double>
+data013[21] =
+{
+ { 0.0000000000000000, 10, 2,
+ 0.0000000000000000 },
+ { 0.34571695599980246, 10, 2,
+ 0.15707963267948966 },
+ { 0.62485535978198059, 10, 2,
+ 0.31415926535897931 },
+ { 0.098210039644716252, 10, 2,
+ 0.47123889803846897 },
+ { -0.41494799233049684, 10, 2,
+ 0.62831853071795862 },
+ { -0.081698973831472732, 10, 2,
+ 0.78539816339744828 },
+ { 0.35253132222271277, 10, 2,
+ 0.94247779607693793 },
+ { 0.049026298555980979, 10, 2,
+ 1.0995574287564276 },
+ { -0.32791246874130792, 10, 2,
+ 1.2566370614359172 },
+ { -0.016196782433946885, 10, 2,
+ 1.4137166941154069 },
+ { 0.32106263400438328, 10, 2,
+ 1.5707963267948966 },
+ { -0.016196782433945761, 10, 2,
+ 1.7278759594743860 },
+ { -0.32791246874130803, 10, 2,
+ 1.8849555921538759 },
+ { 0.049026298555980424, 10, 2,
+ 2.0420352248333655 },
+ { 0.35253132222271266, 10, 2,
+ 2.1991148575128552 },
+ { -0.081698973831472121, 10, 2,
+ 2.3561944901923448 },
+ { -0.41494799233049695, 10, 2,
+ 2.5132741228718345 },
+ { 0.098210039644715197, 10, 2,
+ 2.6703537555513241 },
+ { 0.62485535978198059, 10, 2,
+ 2.8274333882308138 },
+ { 0.34571695599980545, 10, 2,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 10, 2,
+ 3.1415926535897931 },
+};
+const double toler013 = 2.5000000000000020e-13;
+
+// Test data for l=10, m=5.
+// max(|f - f_GSL|): 3.6082248300317588e-16
+// max(|f - f_GSL| / |f_GSL|): 1.6350423942234514e-15
+const testcase_sph_legendre<double>
+data014[21] =
+{
+ { 0.0000000000000000, 10, 5,
+ 0.0000000000000000 },
+ { -0.0030300124052750196, 10, 5,
+ 0.15707963267948966 },
+ { -0.070348585248056802, 10, 5,
+ 0.31415926535897931 },
+ { -0.30055029290703639, 10, 5,
+ 0.47123889803846897 },
+ { -0.49987818144009155, 10, 5,
+ 0.62831853071795862 },
+ { -0.28108771757150108, 10, 5,
+ 0.78539816339744828 },
+ { 0.22068081187249292, 10, 5,
+ 0.94247779607693793 },
+ { 0.33689502212592121, 10, 5,
+ 1.0995574287564276 },
+ { -0.086095515520764110, 10, 5,
+ 1.2566370614359172 },
+ { -0.33935827318511558, 10, 5,
+ 1.4137166941154069 },
+ { -1.9213014340664578e-16, 10, 5,
+ 1.5707963267948966 },
+ { 0.33935827318511552, 10, 5,
+ 1.7278759594743860 },
+ { 0.086095515520764512, 10, 5,
+ 1.8849555921538759 },
+ { -0.33689502212592087, 10, 5,
+ 2.0420352248333655 },
+ { -0.22068081187249344, 10, 5,
+ 2.1991148575128552 },
+ { 0.28108771757150064, 10, 5,
+ 2.3561944901923448 },
+ { 0.49987818144009138, 10, 5,
+ 2.5132741228718345 },
+ { 0.30055029290703672, 10, 5,
+ 2.6703537555513241 },
+ { 0.070348585248056802, 10, 5,
+ 2.8274333882308138 },
+ { 0.0030300124052750873, 10, 5,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 10, 5,
+ 3.1415926535897931 },
+};
+const double toler014 = 2.5000000000000020e-13;
+
+// Test data for l=10, m=10.
+// max(|f - f_GSL|): 9.9920072216264089e-16
+// max(|f - f_GSL| / |f_GSL|): 1.9163828344752537e-15
+const testcase_sph_legendre<double>
+data015[21] =
+{
+ { 0.0000000000000000, 10, 10,
+ 0.0000000000000000 },
+ { 4.7624282733343473e-09, 10, 10,
+ 0.15707963267948966 },
+ { 4.3085156534549772e-06, 10, 10,
+ 0.31415926535897931 },
+ { 0.00020182347649472387, 10, 10,
+ 0.47123889803846897 },
+ { 0.0026711045506511684, 10, 10,
+ 0.62831853071795862 },
+ { 0.016957196623256909, 10, 10,
+ 0.78539816339744828 },
+ { 0.065174916004990341, 10, 10,
+ 0.94247779607693793 },
+ { 0.17112476903017845, 10, 10,
+ 1.0995574287564276 },
+ { 0.32852414199733554, 10, 10,
+ 1.2566370614359172 },
+ { 0.47940582314838287, 10, 10,
+ 1.4137166941154069 },
+ { 0.54263029194422152, 10, 10,
+ 1.5707963267948966 },
+ { 0.47940582314838309, 10, 10,
+ 1.7278759594743860 },
+ { 0.32852414199733571, 10, 10,
+ 1.8849555921538759 },
+ { 0.17112476903017856, 10, 10,
+ 2.0420352248333655 },
+ { 0.065174916004990410, 10, 10,
+ 2.1991148575128552 },
+ { 0.016957196623256943, 10, 10,
+ 2.3561944901923448 },
+ { 0.0026711045506511706, 10, 10,
+ 2.5132741228718345 },
+ { 0.00020182347649472493, 10, 10,
+ 2.6703537555513241 },
+ { 4.3085156534549772e-06, 10, 10,
+ 2.8274333882308138 },
+ { 4.7624282733345673e-09, 10, 10,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 10, 10,
+ 3.1415926535897931 },
+};
+const double toler015 = 2.5000000000000020e-13;
+
+// Test data for l=20, m=0.
+// max(|f - f_GSL|): 1.2212453270876722e-15
+// max(|f - f_GSL| / |f_GSL|): 2.1900476331757668e-15
+const testcase_sph_legendre<double>
+data016[21] =
+{
+ { 1.8062879984608917, 20, 0,
+ 0.0000000000000000 },
+ { -0.58906549291415933, 20, 0,
+ 0.15707963267948966 },
+ { 0.45624611402342408, 20, 0,
+ 0.31415926535897931 },
+ { -0.39955402700466724, 20, 0,
+ 0.47123889803846897 },
+ { 0.36818552901640772, 20, 0,
+ 0.62831853071795862 },
+ { -0.34873131330857743, 20, 0,
+ 0.78539816339744828 },
+ { 0.33600882829186507, 20, 0,
+ 0.94247779607693793 },
+ { -0.32759286308122931, 20, 0,
+ 1.0995574287564276 },
+ { 0.32222458068091325, 20, 0,
+ 1.2566370614359172 },
+ { -0.31922731037135965, 20, 0,
+ 1.4137166941154069 },
+ { 0.31826262039531755, 20, 0,
+ 1.5707963267948966 },
+ { -0.31922731037135987, 20, 0,
+ 1.7278759594743860 },
+ { 0.32222458068091342, 20, 0,
+ 1.8849555921538759 },
+ { -0.32759286308122942, 20, 0,
+ 2.0420352248333655 },
+ { 0.33600882829186518, 20, 0,
+ 2.1991148575128552 },
+ { -0.34873131330857782, 20, 0,
+ 2.3561944901923448 },
+ { 0.36818552901640805, 20, 0,
+ 2.5132741228718345 },
+ { -0.39955402700466824, 20, 0,
+ 2.6703537555513241 },
+ { 0.45624611402342408, 20, 0,
+ 2.8274333882308138 },
+ { -0.58906549291416732, 20, 0,
+ 2.9845130209103035 },
+ { 1.8062879984608917, 20, 0,
+ 3.1415926535897931 },
+};
+const double toler016 = 2.5000000000000020e-13;
+
+// Test data for l=20, m=1.
+// max(|f - f_GSL|): 2.8310687127941492e-15
+// max(|f - f_GSL| / |f_GSL|): 9.0837292708194213e-15
+const testcase_sph_legendre<double>
+data017[21] =
+{
+ { 0.0000000000000000, 20, 1,
+ 0.0000000000000000 },
+ { -0.45905213045060256, 20, 1,
+ 0.15707963267948966 },
+ { 0.31166370423309253, 20, 1,
+ 0.31415926535897931 },
+ { -0.23278757741246778, 20, 1,
+ 0.47123889803846897 },
+ { 0.17937240823504172, 20, 1,
+ 0.62831853071795862 },
+ { -0.13857299972299839, 20, 1,
+ 0.78539816339744828 },
+ { 0.10495324841927722, 20, 1,
+ 0.94247779607693793 },
+ { -0.075707774352163665, 20, 1,
+ 1.0995574287564276 },
+ { 0.049168697683476224, 20, 1,
+ 1.2566370614359172 },
+ { -0.024216050551253303, 20, 1,
+ 1.4137166941154069 },
+ { 3.9938443510694349e-16, 20, 1,
+ 1.5707963267948966 },
+ { 0.024216050551250919, 20, 1,
+ 1.7278759594743860 },
+ { -0.049168697683475482, 20, 1,
+ 1.8849555921538759 },
+ { 0.075707774352163068, 20, 1,
+ 2.0420352248333655 },
+ { -0.10495324841927638, 20, 1,
+ 2.1991148575128552 },
+ { 0.13857299972299741, 20, 1,
+ 2.3561944901923448 },
+ { -0.17937240823503983, 20, 1,
+ 2.5132741228718345 },
+ { 0.23278757741246703, 20, 1,
+ 2.6703537555513241 },
+ { -0.31166370423309253, 20, 1,
+ 2.8274333882308138 },
+ { 0.45905213045059046, 20, 1,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 20, 1,
+ 3.1415926535897931 },
+};
+const double toler017 = 5.0000000000000039e-13;
+
+// Test data for l=20, m=2.
+// max(|f - f_GSL|): 2.3314683517128287e-15
+// max(|f - f_GSL| / |f_GSL|): 2.6675898738403374e-15
+const testcase_sph_legendre<double>
+data018[21] =
+{
+ { 0.0000000000000000, 20, 2,
+ 0.0000000000000000 },
+ { 0.87399805141574394, 20, 2,
+ 0.15707963267948966 },
+ { -0.55116854080895061, 20, 2,
+ 0.31415926535897931 },
+ { 0.44520137308557572, 20, 2,
+ 0.47123889803846897 },
+ { -0.39321637877908228, 20, 2,
+ 0.62831853071795862 },
+ { 0.36312025711350937, 20, 2,
+ 0.78539816339744828 },
+ { -0.34427103004873116, 20, 2,
+ 0.94247779607693793 },
+ { 0.33214917638387642, 20, 2,
+ 1.0995574287564276 },
+ { -0.32455734448839091, 20, 2,
+ 1.2566370614359172 },
+ { 0.32036529628513238, 20, 2,
+ 1.4137166941154069 },
+ { -0.31902310563819986, 20, 2,
+ 1.5707963267948966 },
+ { 0.32036529628513266, 20, 2,
+ 1.7278759594743860 },
+ { -0.32455734448839102, 20, 2,
+ 1.8849555921538759 },
+ { 0.33214917638387659, 20, 2,
+ 2.0420352248333655 },
+ { -0.34427103004873105, 20, 2,
+ 2.1991148575128552 },
+ { 0.36312025711350981, 20, 2,
+ 2.3561944901923448 },
+ { -0.39321637877908278, 20, 2,
+ 2.5132741228718345 },
+ { 0.44520137308557650, 20, 2,
+ 2.6703537555513241 },
+ { -0.55116854080895061, 20, 2,
+ 2.8274333882308138 },
+ { 0.87399805141574527, 20, 2,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 20, 2,
+ 3.1415926535897931 },
+};
+const double toler018 = 2.5000000000000020e-13;
+
+// Test data for l=20, m=5.
+// max(|f - f_GSL|): 3.5388358909926865e-16
+// max(|f - f_GSL| / |f_GSL|): 1.2458491381272207e-14
+const testcase_sph_legendre<double>
+data019[21] =
+{
+ { 0.0000000000000000, 20, 5,
+ 0.0000000000000000 },
+ { -0.10024848623504863, 20, 5,
+ 0.15707963267948966 },
+ { -0.68115361075940484, 20, 5,
+ 0.31415926535897931 },
+ { 0.31774532551156298, 20, 5,
+ 0.47123889803846897 },
+ { -0.16011868165390544, 20, 5,
+ 0.62831853071795862 },
+ { 0.085844143304115578, 20, 5,
+ 0.78539816339744828 },
+ { -0.047467540840864568, 20, 5,
+ 0.94247779607693793 },
+ { 0.026283575189471796, 20, 5,
+ 1.0995574287564276 },
+ { -0.013891104052597688, 20, 5,
+ 1.2566370614359172 },
+ { 0.0059873308239496957, 20, 5,
+ 1.4137166941154069 },
+ { 3.9355286582083095e-16, 20, 5,
+ 1.5707963267948966 },
+ { -0.0059873308239519014, 20, 5,
+ 1.7278759594743860 },
+ { 0.013891104052598547, 20, 5,
+ 1.8849555921538759 },
+ { -0.026283575189472864, 20, 5,
+ 2.0420352248333655 },
+ { 0.047467540840865928, 20, 5,
+ 2.1991148575128552 },
+ { -0.085844143304117007, 20, 5,
+ 2.3561944901923448 },
+ { 0.16011868165390658, 20, 5,
+ 2.5132741228718345 },
+ { -0.31774532551156381, 20, 5,
+ 2.6703537555513241 },
+ { 0.68115361075940484, 20, 5,
+ 2.8274333882308138 },
+ { 0.10024848623505046, 20, 5,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 20, 5,
+ 3.1415926535897931 },
+};
+const double toler019 = 1.0000000000000008e-12;
+
+// Test data for l=20, m=10.
+// max(|f - f_GSL|): 1.6653345369377348e-15
+// max(|f - f_GSL| / |f_GSL|): 2.0744116940226714e-14
+const testcase_sph_legendre<double>
+data020[21] =
+{
+ { 0.0000000000000000, 20, 10,
+ 0.0000000000000000 },
+ { 3.0595797603706485e-05, 20, 10,
+ 0.15707963267948966 },
+ { 0.015924453916397002, 20, 10,
+ 0.31415926535897931 },
+ { 0.26588079118745744, 20, 10,
+ 0.47123889803846897 },
+ { 0.54045081420686869, 20, 10,
+ 0.62831853071795862 },
+ { -0.28215279394285531, 20, 10,
+ 0.78539816339744828 },
+ { 0.0085297337582245884, 20, 10,
+ 0.94247779607693793 },
+ { 0.16930127953533738, 20, 10,
+ 1.0995574287564276 },
+ { -0.27215134048018325, 20, 10,
+ 1.2566370614359172 },
+ { 0.32456597088029526, 20, 10,
+ 1.4137166941154069 },
+ { -0.34057893241353715, 20, 10,
+ 1.5707963267948966 },
+ { 0.32456597088029449, 20, 10,
+ 1.7278759594743860 },
+ { -0.27215134048018291, 20, 10,
+ 1.8849555921538759 },
+ { 0.16930127953533675, 20, 10,
+ 2.0420352248333655 },
+ { 0.0085297337582257438, 20, 10,
+ 2.1991148575128552 },
+ { -0.28215279394285619, 20, 10,
+ 2.3561944901923448 },
+ { 0.54045081420686736, 20, 10,
+ 2.5132741228718345 },
+ { 0.26588079118745828, 20, 10,
+ 2.6703537555513241 },
+ { 0.015924453916397002, 20, 10,
+ 2.8274333882308138 },
+ { 3.0595797603707888e-05, 20, 10,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 20, 10,
+ 3.1415926535897931 },
+};
+const double toler020 = 2.5000000000000015e-12;
+
+// Test data for l=20, m=20.
+// max(|f - f_GSL|): 3.3306690738754696e-16
+// max(|f - f_GSL| / |f_GSL|): 8.6795105199201385e-16
+const testcase_sph_legendre<double>
+data021[21] =
+{
+ { 0.0000000000000000, 20, 20,
+ 0.0000000000000000 },
+ { 4.9264471419246231e-17, 20, 20,
+ 0.15707963267948966 },
+ { 4.0321091681531780e-11, 20, 20,
+ 0.31415926535897931 },
+ { 8.8474944184471664e-08, 20, 20,
+ 0.47123889803846897 },
+ { 1.5497395129387764e-05, 20, 20,
+ 0.62831853071795862 },
+ { 0.00062457564282984495, 20, 20,
+ 0.78539816339744828 },
+ { 0.0092265192458967568, 20, 20,
+ 0.94247779607693793 },
+ { 0.063606673236323297, 20, 20,
+ 1.0995574287564276 },
+ { 0.23442909509776316, 20, 20,
+ 1.2566370614359172 },
+ { 0.49921030481087009, 20, 20,
+ 1.4137166941154069 },
+ { 0.63956545825776223, 20, 20,
+ 1.5707963267948966 },
+ { 0.49921030481087064, 20, 20,
+ 1.7278759594743860 },
+ { 0.23442909509776336, 20, 20,
+ 1.8849555921538759 },
+ { 0.063606673236323380, 20, 20,
+ 2.0420352248333655 },
+ { 0.0092265192458967742, 20, 20,
+ 2.1991148575128552 },
+ { 0.00062457564282984766, 20, 20,
+ 2.3561944901923448 },
+ { 1.5497395129387791e-05, 20, 20,
+ 2.5132741228718345 },
+ { 8.8474944184472617e-08, 20, 20,
+ 2.6703537555513241 },
+ { 4.0321091681531780e-11, 20, 20,
+ 2.8274333882308138 },
+ { 4.9264471419250786e-17, 20, 20,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 20, 20,
+ 3.1415926535897931 },
+};
+const double toler021 = 2.5000000000000020e-13;
+
+// Test data for l=50, m=0.
+// max(|f - f_GSL|): 4.8849813083506888e-15
+// max(|f - f_GSL| / |f_GSL|): 9.2046020313085697e-15
+const testcase_sph_legendre<double>
+data022[21] =
+{
+ { 2.8350175706934717, 50, 0,
+ 0.0000000000000000 },
+ { 0.53157537495174900, 50, 0,
+ 0.15707963267948966 },
+ { -0.46056183476301255, 50, 0,
+ 0.31415926535897931 },
+ { -0.24876032079677909, 50, 0,
+ 0.47123889803846897 },
+ { 0.36926172901532522, 50, 0,
+ 0.62831853071795862 },
+ { 0.14571730283563575, 50, 0,
+ 0.78539816339744828 },
+ { -0.33636199170850806, 50, 0,
+ 0.94247779607693793 },
+ { -0.079132716267091507, 50, 0,
+ 1.0995574287564276 },
+ { 0.32232921941301451, 50, 0,
+ 1.2566370614359172 },
+ { 0.025253991969481544, 50, 0,
+ 1.4137166941154069 },
+ { -0.31830208724152359, 50, 0,
+ 1.5707963267948966 },
+ { 0.025253991969476332, 50, 0,
+ 1.7278759594743860 },
+ { 0.32232921941301479, 50, 0,
+ 1.8849555921538759 },
+ { -0.079132716267088510, 50, 0,
+ 2.0420352248333655 },
+ { -0.33636199170850883, 50, 0,
+ 2.1991148575128552 },
+ { 0.14571730283563347, 50, 0,
+ 2.3561944901923448 },
+ { 0.36926172901532667, 50, 0,
+ 2.5132741228718345 },
+ { -0.24876032079677354, 50, 0,
+ 2.6703537555513241 },
+ { -0.46056183476301255, 50, 0,
+ 2.8274333882308138 },
+ { 0.53157537495172758, 50, 0,
+ 2.9845130209103035 },
+ { 2.8350175706934717, 50, 0,
+ 3.1415926535897931 },
+};
+const double toler022 = 5.0000000000000039e-13;
+
+// Test data for l=50, m=1.
+// max(|f - f_GSL|): 4.2743586448068527e-15
+// max(|f - f_GSL| / |f_GSL|): 1.3104848798660735e-14
+const testcase_sph_legendre<double>
+data023[21] =
+{
+ { 0.0000000000000000, 50, 1,
+ 0.0000000000000000 },
+ { -0.63751752155226260, 50, 1,
+ 0.15707963267948966 },
+ { -0.32616619317604606, 50, 1,
+ 0.31415926535897931 },
+ { 0.40649930826162850, 50, 1,
+ 0.47123889803846897 },
+ { 0.18473991408344057, 50, 1,
+ 0.62831853071795862 },
+ { -0.35083930302013117, 50, 1,
+ 0.78539816339744828 },
+ { -0.10755382110947125, 50, 1,
+ 0.94247779607693793 },
+ { 0.32822568316499900, 50, 1,
+ 1.0995574287564276 },
+ { 0.050286056609797389, 50, 1,
+ 1.2566370614359172 },
+ { -0.31935368562159644, 50, 1,
+ 1.4137166941154069 },
+ { -9.8421602686195941e-16, 50, 1,
+ 1.5707963267948966 },
+ { 0.31935368562159716, 50, 1,
+ 1.7278759594743860 },
+ { -0.050286056609795446, 50, 1,
+ 1.8849555921538759 },
+ { -0.32822568316499912, 50, 1,
+ 2.0420352248333655 },
+ { 0.10755382110946902, 50, 1,
+ 2.1991148575128552 },
+ { 0.35083930302013205, 50, 1,
+ 2.3561944901923448 },
+ { -0.18473991408343635, 50, 1,
+ 2.5132741228718345 },
+ { -0.40649930826163011, 50, 1,
+ 2.6703537555513241 },
+ { 0.32616619317604606, 50, 1,
+ 2.8274333882308138 },
+ { 0.63751752155228247, 50, 1,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 50, 1,
+ 3.1415926535897931 },
+};
+const double toler023 = 1.0000000000000008e-12;
+
+// Test data for l=50, m=2.
+// max(|f - f_GSL|): 7.5495165674510645e-15
+// max(|f - f_GSL| / |f_GSL|): 2.0277903864891892e-14
+const testcase_sph_legendre<double>
+data024[21] =
+{
+ { 0.0000000000000000, 50, 2,
+ 0.0000000000000000 },
+ { -0.37230261163838724, 50, 2,
+ 0.15707963267948966 },
+ { 0.50051599680316194, 50, 2,
+ 0.31415926535897931 },
+ { 0.21724795180329495, 50, 2,
+ 0.47123889803846897 },
+ { -0.37948127307610924, 50, 2,
+ 0.62831853071795862 },
+ { -0.13187372121003396, 50, 2,
+ 0.78539816339744828 },
+ { 0.33959009162400228, 50, 2,
+ 0.94247779607693793 },
+ { 0.072537503112489563, 50, 2,
+ 1.0995574287564276 },
+ { -0.32310306941855266, 50, 2,
+ 1.2566370614359172 },
+ { -0.023259822816436588, 50, 2,
+ 1.4137166941154069 },
+ { 0.31842698506357275, 50, 2,
+ 1.5707963267948966 },
+ { -0.023259822816431196, 50, 2,
+ 1.7278759594743860 },
+ { -0.32310306941855316, 50, 2,
+ 1.8849555921538759 },
+ { 0.072537503112487453, 50, 2,
+ 2.0420352248333655 },
+ { 0.33959009162400267, 50, 2,
+ 2.1991148575128552 },
+ { -0.13187372121003124, 50, 2,
+ 2.3561944901923448 },
+ { -0.37948127307611107, 50, 2,
+ 2.5132741228718345 },
+ { 0.21724795180329090, 50, 2,
+ 2.6703537555513241 },
+ { 0.50051599680316194, 50, 2,
+ 2.8274333882308138 },
+ { -0.37230261163837081, 50, 2,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 50, 2,
+ 3.1415926535897931 },
+};
+const double toler024 = 2.5000000000000015e-12;
+
+// Test data for l=50, m=5.
+// max(|f - f_GSL|): 4.3021142204224816e-16
+// max(|f - f_GSL| / |f_GSL|): 8.9548506383410822e-15
+const testcase_sph_legendre<double>
+data025[21] =
+{
+ { 0.0000000000000000, 50, 5,
+ 0.0000000000000000 },
+ { -0.57750385903193124, 50, 5,
+ 0.15707963267948966 },
+ { 0.077360497065588632, 50, 5,
+ 0.31415926535897931 },
+ { 0.47707267400540226, 50, 5,
+ 0.47123889803846897 },
+ { 0.055370615126630517, 50, 5,
+ 0.62831853071795862 },
+ { -0.37629451847202833, 50, 5,
+ 0.78539816339744828 },
+ { -0.048042277801960784, 50, 5,
+ 0.94247779607693793 },
+ { 0.33619379362228718, 50, 5,
+ 1.0995574287564276 },
+ { 0.025265227185718764, 50, 5,
+ 1.2566370614359172 },
+ { -0.32083679430964535, 50, 5,
+ 1.4137166941154069 },
+ { -9.8189201019751884e-16, 50, 5,
+ 1.5707963267948966 },
+ { 0.32083679430964579, 50, 5,
+ 1.7278759594743860 },
+ { -0.025265227185716790, 50, 5,
+ 1.8849555921538759 },
+ { -0.33619379362228752, 50, 5,
+ 2.0420352248333655 },
+ { 0.048042277801958064, 50, 5,
+ 2.1991148575128552 },
+ { 0.37629451847202872, 50, 5,
+ 2.3561944901923448 },
+ { -0.055370615126626811, 50, 5,
+ 2.5132741228718345 },
+ { -0.47707267400540176, 50, 5,
+ 2.6703537555513241 },
+ { -0.077360497065588632, 50, 5,
+ 2.8274333882308138 },
+ { 0.57750385903191603, 50, 5,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 50, 5,
+ 3.1415926535897931 },
+};
+const double toler025 = 5.0000000000000039e-13;
+
+// Test data for l=50, m=10.
+// max(|f - f_GSL|): 1.3322676295501878e-15
+// max(|f - f_GSL| / |f_GSL|): 6.0812430149180488e-15
+const testcase_sph_legendre<double>
+data026[21] =
+{
+ { 0.0000000000000000, 50, 10,
+ 0.0000000000000000 },
+ { 0.15606941844800776, 50, 10,
+ 0.15707963267948966 },
+ { -0.53748868836814501, 50, 10,
+ 0.31415926535897931 },
+ { -0.49304919025183969, 50, 10,
+ 0.47123889803846897 },
+ { -0.26267582750428364, 50, 10,
+ 0.62831853071795862 },
+ { 0.22058983666314153, 50, 10,
+ 0.78539816339744828 },
+ { 0.32936725160671754, 50, 10,
+ 0.94247779607693793 },
+ { -0.092053311559447959, 50, 10,
+ 1.0995574287564276 },
+ { -0.32542913495935522, 50, 10,
+ 1.2566370614359172 },
+ { 0.025673223789103351, 50, 10,
+ 1.4137166941154069 },
+ { 0.32150019350255743, 50, 10,
+ 1.5707963267948966 },
+ { 0.025673223789108836, 50, 10,
+ 1.7278759594743860 },
+ { -0.32542913495935510, 50, 10,
+ 1.8849555921538759 },
+ { -0.092053311559449819, 50, 10,
+ 2.0420352248333655 },
+ { 0.32936725160671687, 50, 10,
+ 2.1991148575128552 },
+ { 0.22058983666314380, 50, 10,
+ 2.3561944901923448 },
+ { -0.26267582750427920, 50, 10,
+ 2.5132741228718345 },
+ { -0.49304919025184135, 50, 10,
+ 2.6703537555513241 },
+ { -0.53748868836814501, 50, 10,
+ 2.8274333882308138 },
+ { 0.15606941844801256, 50, 10,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 50, 10,
+ 3.1415926535897931 },
+};
+const double toler026 = 5.0000000000000039e-13;
+
+// Test data for l=50, m=20.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 6.0930911637998029e-15
+const testcase_sph_legendre<double>
+data027[21] =
+{
+ { 0.0000000000000000, 50, 20,
+ 0.0000000000000000 },
+ { 3.0409598712833246e-07, 50, 20,
+ 0.15707963267948966 },
+ { 0.030940518122882274, 50, 20,
+ 0.31415926535897931 },
+ { 0.64134588721659802, 50, 20,
+ 0.47123889803846897 },
+ { 0.29895244392136405, 50, 20,
+ 0.62831853071795862 },
+ { 0.25309324781873871, 50, 20,
+ 0.78539816339744828 },
+ { 0.34368634714931717, 50, 20,
+ 0.94247779607693793 },
+ { 0.33996764360663945, 50, 20,
+ 1.0995574287564276 },
+ { 0.12866267745104024, 50, 20,
+ 1.2566370614359172 },
+ { -0.18201114398922874, 50, 20,
+ 1.4137166941154069 },
+ { -0.33216683431510857, 50, 20,
+ 1.5707963267948966 },
+ { -0.18201114398923302, 50, 20,
+ 1.7278759594743860 },
+ { 0.12866267745103857, 50, 20,
+ 1.8849555921538759 },
+ { 0.33996764360663895, 50, 20,
+ 2.0420352248333655 },
+ { 0.34368634714931812, 50, 20,
+ 2.1991148575128552 },
+ { 0.25309324781874126, 50, 20,
+ 2.3561944901923448 },
+ { 0.29895244392136594, 50, 20,
+ 2.5132741228718345 },
+ { 0.64134588721659869, 50, 20,
+ 2.6703537555513241 },
+ { 0.030940518122882274, 50, 20,
+ 2.8274333882308138 },
+ { 3.0409598712835887e-07, 50, 20,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 50, 20,
+ 3.1415926535897931 },
+};
+const double toler027 = 5.0000000000000039e-13;
+
+// Test data for l=50, m=50.
+// max(|f - f_GSL|): 1.2323475573339238e-14
+// max(|f - f_GSL| / |f_GSL|): 1.6099735616249234e-14
+const testcase_sph_legendre<double>
+data028[21] =
+{
+ { 0.0000000000000000, 50, 50,
+ 0.0000000000000000 },
+ { 4.1649039898151844e-41, 50, 50,
+ 0.15707963267948966 },
+ { 2.5240684647724192e-26, 50, 50,
+ 0.31415926535897931 },
+ { 5.6927376423967334e-18, 50, 50,
+ 0.47123889803846897 },
+ { 2.3116239814797057e-12, 50, 50,
+ 0.62831853071795862 },
+ { 2.3835981241325056e-08, 50, 50,
+ 0.78539816339744828 },
+ { 1.9992410287270356e-05, 50, 50,
+ 0.94247779607693793 },
+ { 0.0024947505670829834, 50, 50,
+ 1.0995574287564276 },
+ { 0.065057774647971231, 50, 50,
+ 1.2566370614359172 },
+ { 0.43050607056732243, 50, 50,
+ 1.4137166941154069 },
+ { 0.79980281171531975, 50, 50,
+ 1.5707963267948966 },
+ { 0.43050607056732360, 50, 50,
+ 1.7278759594743860 },
+ { 0.065057774647971398, 50, 50,
+ 1.8849555921538759 },
+ { 0.0024947505670829899, 50, 50,
+ 2.0420352248333655 },
+ { 1.9992410287270427e-05, 50, 50,
+ 2.1991148575128552 },
+ { 2.3835981241325311e-08, 50, 50,
+ 2.3561944901923448 },
+ { 2.3116239814797222e-12, 50, 50,
+ 2.5132741228718345 },
+ { 5.6927376423968952e-18, 50, 50,
+ 2.6703537555513241 },
+ { 2.5240684647724192e-26, 50, 50,
+ 2.8274333882308138 },
+ { 4.1649039898161316e-41, 50, 50,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 50, 50,
+ 3.1415926535897931 },
+};
+const double toler028 = 1.0000000000000008e-12;
+
+// Test data for l=100, m=0.
+// max(|f - f_GSL|): 7.5495165674510645e-15
+// max(|f - f_GSL| / |f_GSL|): 1.2423065089723510e-14
+const testcase_sph_legendre<double>
+data029[21] =
+{
+ { 3.9993839251484076, 100, 0,
+ 0.0000000000000000 },
+ { -0.60770160285935426, 100, 0,
+ 0.15707963267948966 },
+ { 0.46193027883955923, 100, 0,
+ 0.31415926535897931 },
+ { -0.40218718869815234, 100, 0,
+ 0.47123889803846897 },
+ { 0.36960201406910725, 100, 0,
+ 0.62831853071795862 },
+ { -0.34953726547378389, 100, 0,
+ 0.78539816339744828 },
+ { 0.33646959352497829, 100, 0,
+ 0.94247779607693793 },
+ { -0.32784733067663224, 100, 0,
+ 1.0995574287564276 },
+ { 0.32235624474047969, 100, 0,
+ 1.2566370614359172 },
+ { -0.31929330706601350, 100, 0,
+ 1.4137166941154069 },
+ { 0.31830791662110325, 100, 0,
+ 1.5707963267948966 },
+ { -0.31929330706601405, 100, 0,
+ 1.7278759594743860 },
+ { 0.32235624474048036, 100, 0,
+ 1.8849555921538759 },
+ { -0.32784733067663357, 100, 0,
+ 2.0420352248333655 },
+ { 0.33646959352498013, 100, 0,
+ 2.1991148575128552 },
+ { -0.34953726547378589, 100, 0,
+ 2.3561944901923448 },
+ { 0.36960201406911097, 100, 0,
+ 2.5132741228718345 },
+ { -0.40218718869815723, 100, 0,
+ 2.6703537555513241 },
+ { 0.46193027883955923, 100, 0,
+ 2.8274333882308138 },
+ { -0.60770160285939456, 100, 0,
+ 2.9845130209103035 },
+ { 3.9993839251484076, 100, 0,
+ 3.1415926535897931 },
+};
+const double toler029 = 1.0000000000000008e-12;
+
+// Test data for l=100, m=1.
+// max(|f - f_GSL|): 4.1078251911130792e-15
+// max(|f - f_GSL| / |f_GSL|): 1.5162419336330716e-14
+const testcase_sph_legendre<double>
+data030[21] =
+{
+ { 0.0000000000000000, 100, 1,
+ 0.0000000000000000 },
+ { -0.50851949013719866, 100, 1,
+ 0.15707963267948966 },
+ { 0.33129641402221749, 100, 1,
+ 0.31415926535897931 },
+ { -0.24390405750942512, 100, 1,
+ 0.47123889803846897 },
+ { 0.18659755088414104, 100, 1,
+ 0.62831853071795862 },
+ { -0.14355908970517178, 100, 1,
+ 0.78539816339744828 },
+ { 0.10844906813251107, 100, 1,
+ 0.94247779607693793 },
+ { -0.078100088690857675, 100, 1,
+ 1.0995574287564276 },
+ { 0.050670002998302717, 100, 1,
+ 1.2566370614359172 },
+ { -0.024941251747138900, 100, 1,
+ 1.4137166941154069 },
+ { 1.9587949830851623e-15, 100, 1,
+ 1.5707963267948966 },
+ { 0.024941251747127875, 100, 1,
+ 1.7278759594743860 },
+ { -0.050670002998298824, 100, 1,
+ 1.8849555921538759 },
+ { 0.078100088690853664, 100, 1,
+ 2.0420352248333655 },
+ { -0.10844906813250622, 100, 1,
+ 2.1991148575128552 },
+ { 0.14355908970516626, 100, 1,
+ 2.3561944901923448 },
+ { -0.18659755088413388, 100, 1,
+ 2.5132741228718345 },
+ { 0.24390405750941679, 100, 1,
+ 2.6703537555513241 },
+ { -0.33129641402221749, 100, 1,
+ 2.8274333882308138 },
+ { 0.50851949013714159, 100, 1,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 100, 1,
+ 3.1415926535897931 },
+};
+const double toler030 = 1.0000000000000008e-12;
+
+// Test data for l=100, m=2.
+// max(|f - f_GSL|): 2.7755575615628914e-15
+// max(|f - f_GSL| / |f_GSL|): 5.7552022268705475e-15
+const testcase_sph_legendre<double>
+data031[21] =
+{
+ { 0.0000000000000000, 100, 2,
+ 0.0000000000000000 },
+ { 0.67166274297193962, 100, 2,
+ 0.15707963267948966 },
+ { -0.48226933687995360, 100, 2,
+ 0.31415926535897931 },
+ { 0.41175421895715525, 100, 2,
+ 0.47123889803846897 },
+ { -0.37475021787822438, 100, 2,
+ 0.62831853071795862 },
+ { 0.35242909383605225, 100, 2,
+ 0.78539816339744828 },
+ { -0.33807110409160063, 100, 2,
+ 0.94247779607693793 },
+ { 0.32867180390710077, 100, 2,
+ 1.0995574287564276 },
+ { -0.32271583790278502, 100, 2,
+ 1.2566370614359172 },
+ { 0.31940354677687444, 100, 2,
+ 1.4137166941154069 },
+ { -0.31833943693772526, 100, 2,
+ 1.5707963267948966 },
+ { 0.31940354677687555, 100, 2,
+ 1.7278759594743860 },
+ { -0.32271583790278552, 100, 2,
+ 1.8849555921538759 },
+ { 0.32867180390710193, 100, 2,
+ 2.0420352248333655 },
+ { -0.33807110409160157, 100, 2,
+ 2.1991148575128552 },
+ { 0.35242909383605503, 100, 2,
+ 2.3561944901923448 },
+ { -0.37475021787822776, 100, 2,
+ 2.5132741228718345 },
+ { 0.41175421895716052, 100, 2,
+ 2.6703537555513241 },
+ { -0.48226933687995360, 100, 2,
+ 2.8274333882308138 },
+ { 0.67166274297196660, 100, 2,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 100, 2,
+ 3.1415926535897931 },
+};
+const double toler031 = 5.0000000000000039e-13;
+
+// Test data for l=100, m=5.
+// max(|f - f_GSL|): 5.9674487573602164e-16
+// max(|f - f_GSL| / |f_GSL|): 8.4413588189215985e-15
+const testcase_sph_legendre<double>
+data032[21] =
+{
+ { 0.0000000000000000, 100, 5,
+ 0.0000000000000000 },
+ { 0.062564361105902272, 100, 5,
+ 0.15707963267948966 },
+ { 0.14179554455879767, 100, 5,
+ 0.31415926535897931 },
+ { -0.14356866942905960, 100, 5,
+ 0.47123889803846897 },
+ { 0.12355483388448550, 100, 5,
+ 0.62831853071795862 },
+ { -0.10090029999681642, 100, 5,
+ 0.78539816339744828 },
+ { 0.078905134460230675, 100, 5,
+ 0.94247779607693793 },
+ { -0.058040182398185071, 100, 5,
+ 1.0995574287564276 },
+ { 0.038142759389482424, 100, 5,
+ 1.2566370614359172 },
+ { -0.018906264170660478, 100, 5,
+ 1.4137166941154069 },
+ { 1.9576303042914544e-15, 100, 5,
+ 1.5707963267948966 },
+ { 0.018906264170649455, 100, 5,
+ 1.7278759594743860 },
+ { -0.038142759389478365, 100, 5,
+ 1.8849555921538759 },
+ { 0.058040182398180429, 100, 5,
+ 2.0420352248333655 },
+ { -0.078905134460225707, 100, 5,
+ 2.1991148575128552 },
+ { 0.10090029999681013, 100, 5,
+ 2.3561944901923448 },
+ { -0.12355483388447824, 100, 5,
+ 2.5132741228718345 },
+ { 0.14356866942904906, 100, 5,
+ 2.6703537555513241 },
+ { -0.14179554455879767, 100, 5,
+ 2.8274333882308138 },
+ { -0.062564361105954577, 100, 5,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 100, 5,
+ 3.1415926535897931 },
+};
+const double toler032 = 5.0000000000000039e-13;
+
+// Test data for l=100, m=10.
+// max(|f - f_GSL|): 1.7763568394002505e-15
+// max(|f - f_GSL| / |f_GSL|): 4.0853922061744651e-15
+const testcase_sph_legendre<double>
+data033[21] =
+{
+ { 0.0000000000000000, 100, 10,
+ 0.0000000000000000 },
+ { -0.75366545187996004, 100, 10,
+ 0.15707963267948966 },
+ { -0.35914570017276798, 100, 10,
+ 0.31415926535897931 },
+ { 0.43480692911578295, 100, 10,
+ 0.47123889803846897 },
+ { -0.40862111080315755, 100, 10,
+ 0.62831853071795862 },
+ { 0.37832688692909411, 100, 10,
+ 0.78539816339744828 },
+ { -0.35484056194773445, 100, 10,
+ 0.94247779607693793 },
+ { 0.33821981171196341, 100, 10,
+ 1.0995574287564276 },
+ { -0.32729120767830594, 100, 10,
+ 1.2566370614359172 },
+ { 0.32110336937091438, 100, 10,
+ 1.4137166941154069 },
+ { -0.31910064020036194, 100, 10,
+ 1.5707963267948966 },
+ { 0.32110336937091460, 100, 10,
+ 1.7278759594743860 },
+ { -0.32729120767830605, 100, 10,
+ 1.8849555921538759 },
+ { 0.33821981171196341, 100, 10,
+ 2.0420352248333655 },
+ { -0.35484056194773461, 100, 10,
+ 2.1991148575128552 },
+ { 0.37832688692909372, 100, 10,
+ 2.3561944901923448 },
+ { -0.40862111080315500, 100, 10,
+ 2.5132741228718345 },
+ { 0.43480692911577751, 100, 10,
+ 2.6703537555513241 },
+ { -0.35914570017276798, 100, 10,
+ 2.8274333882308138 },
+ { -0.75366545187997991, 100, 10,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 100, 10,
+ 3.1415926535897931 },
+};
+const double toler033 = 2.5000000000000020e-13;
+
+// Test data for l=100, m=20.
+// max(|f - f_GSL|): 9.7144514654701197e-16
+// max(|f - f_GSL| / |f_GSL|): 2.8802569343392205e-14
+const testcase_sph_legendre<double>
+data034[21] =
+{
+ { 0.0000000000000000, 100, 20,
+ 0.0000000000000000 },
+ { 0.053569660841553700, 100, 20,
+ 0.15707963267948966 },
+ { 0.57154926874732348, 100, 20,
+ 0.31415926535897931 },
+ { 0.47536909969585633, 100, 20,
+ 0.47123889803846897 },
+ { -0.28882554564109075, 100, 20,
+ 0.62831853071795862 },
+ { 0.020116179014043743, 100, 20,
+ 0.78539816339744828 },
+ { 0.14752195931706563, 100, 20,
+ 0.94247779607693793 },
+ { -0.24069428588868366, 100, 20,
+ 1.0995574287564276 },
+ { 0.29031796025014306, 100, 20,
+ 1.2566370614359172 },
+ { -0.31437256851143458, 100, 20,
+ 1.4137166941154069 },
+ { 0.32153954851141792, 100, 20,
+ 1.5707963267948966 },
+ { -0.31437256851143169, 100, 20,
+ 1.7278759594743860 },
+ { 0.29031796025014139, 100, 20,
+ 1.8849555921538759 },
+ { -0.24069428588868083, 100, 20,
+ 2.0420352248333655 },
+ { 0.14752195931706186, 100, 20,
+ 2.1991148575128552 },
+ { 0.020116179014049562, 100, 20,
+ 2.3561944901923448 },
+ { -0.28882554564109575, 100, 20,
+ 2.5132741228718345 },
+ { 0.47536909969585545, 100, 20,
+ 2.6703537555513241 },
+ { 0.57154926874732348, 100, 20,
+ 2.8274333882308138 },
+ { 0.053569660841557079, 100, 20,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 100, 20,
+ 3.1415926535897931 },
+};
+const double toler034 = 2.5000000000000015e-12;
+
+// Test data for l=100, m=50.
+// max(|f - f_GSL|): 8.3266726846886741e-15
+// max(|f - f_GSL| / |f_GSL|): 1.8981734972089879e-14
+const testcase_sph_legendre<double>
+data035[21] =
+{
+ { 0.0000000000000000, 100, 50,
+ 0.0000000000000000 },
+ { 3.3047910392590615e-21, 100, 50,
+ 0.15707963267948966 },
+ { 1.0592655372554981e-07, 100, 50,
+ 0.31415926535897931 },
+ { 0.080418744223952773, 100, 50,
+ 0.47123889803846897 },
+ { -0.56450600580393095, 100, 50,
+ 0.62831853071795862 },
+ { 0.33338739844742110, 100, 50,
+ 0.78539816339744828 },
+ { 0.39741714816514706, 100, 50,
+ 0.94247779607693793 },
+ { 0.35223993750972243, 100, 50,
+ 1.0995574287564276 },
+ { 0.17885891940721577, 100, 50,
+ 1.2566370614359172 },
+ { -0.15341660126461967, 100, 50,
+ 1.4137166941154069 },
+ { -0.34175924303503102, 100, 50,
+ 1.5707963267948966 },
+ { -0.15341660126462869, 100, 50,
+ 1.7278759594743860 },
+ { 0.17885891940721302, 100, 50,
+ 1.8849555921538759 },
+ { 0.35223993750972105, 100, 50,
+ 2.0420352248333655 },
+ { 0.39741714816514595, 100, 50,
+ 2.1991148575128552 },
+ { 0.33338739844741666, 100, 50,
+ 2.3561944901923448 },
+ { -0.56450600580392973, 100, 50,
+ 2.5132741228718345 },
+ { 0.080418744223953911, 100, 50,
+ 2.6703537555513241 },
+ { 1.0592655372554981e-07, 100, 50,
+ 2.8274333882308138 },
+ { 3.3047910392597822e-21, 100, 50,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 100, 50,
+ 3.1415926535897931 },
+};
+const double toler035 = 1.0000000000000008e-12;
+
+// Test data for l=100, m=100.
+// max(|f - f_GSL|): 2.3314683517128287e-14
+// max(|f - f_GSL| / |f_GSL|): 2.6593512237122742e-14
+const testcase_sph_legendre<double>
+data036[21] =
+{
+ { 0.0000000000000000, 100, 100,
+ 0.0000000000000000 },
+ { 2.5744136608862186e-81, 100, 100,
+ 0.15707963267948966 },
+ { 9.4551974868956498e-52, 100, 100,
+ 0.31415926535897931 },
+ { 4.8096190703397596e-35, 100, 100,
+ 0.47123889803846897 },
+ { 7.9305393636342891e-24, 100, 100,
+ 0.62831853071795862 },
+ { 8.4320740610944858e-16, 100, 100,
+ 0.78539816339744828 },
+ { 5.9319660146027522e-10, 100, 100,
+ 0.94247779607693793 },
+ { 9.2368225946797243e-06, 100, 100,
+ 1.0995574287564276 },
+ { 0.0062815489742044095, 100, 100,
+ 1.2566370614359172 },
+ { 0.27505966018176986, 100, 100,
+ 1.4137166941154069 },
+ { 0.94936713998764621, 100, 100,
+ 1.5707963267948966 },
+ { 0.27505966018177130, 100, 100,
+ 1.7278759594743860 },
+ { 0.0062815489742044433, 100, 100,
+ 1.8849555921538759 },
+ { 9.2368225946797734e-06, 100, 100,
+ 2.0420352248333655 },
+ { 5.9319660146027946e-10, 100, 100,
+ 2.1991148575128552 },
+ { 8.4320740610946652e-16, 100, 100,
+ 2.3561944901923448 },
+ { 7.9305393636344023e-24, 100, 100,
+ 2.5132741228718345 },
+ { 4.8096190703400333e-35, 100, 100,
+ 2.6703537555513241 },
+ { 9.4551974868956498e-52, 100, 100,
+ 2.8274333882308138 },
+ { 2.5744136608873895e-81, 100, 100,
+ 2.9845130209103035 },
+ { 0.0000000000000000, 100, 100,
+ 3.1415926535897931 },
+};
+const double toler036 = 2.5000000000000015e-12;
+
+template<typename Tp, unsigned int Num>
+ void
+ test(const testcase_sph_legendre<Tp> (&data)[Num], Tp toler)
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = Num;
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::sph_legendre(data[i].l, data[i].m,
+ data[i].theta);
+ const Tp f0 = data[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < toler);
+ }
+
+int
+main()
+{
+ test(data001, toler001);
+ test(data002, toler002);
+ test(data003, toler003);
+ test(data004, toler004);
+ test(data005, toler005);
+ test(data006, toler006);
+ test(data007, toler007);
+ test(data008, toler008);
+ test(data009, toler009);
+ test(data010, toler010);
+ test(data011, toler011);
+ test(data012, toler012);
+ test(data013, toler013);
+ test(data014, toler014);
+ test(data015, toler015);
+ test(data016, toler016);
+ test(data017, toler017);
+ test(data018, toler018);
+ test(data019, toler019);
+ test(data020, toler020);
+ test(data021, toler021);
+ test(data022, toler022);
+ test(data023, toler023);
+ test(data024, toler024);
+ test(data025, toler025);
+ test(data026, toler026);
+ test(data027, toler027);
+ test(data028, toler028);
+ test(data029, toler029);
+ test(data030, toler030);
+ test(data031, toler031);
+ test(data032, toler032);
+ test(data033, toler033);
+ test(data034, toler034);
+ test(data035, toler035);
+ test(data036, toler036);
+ return 0;
+}
Index: testsuite/special_functions/20_sph_legendre/compile.cc
===================================================================
--- testsuite/special_functions/20_sph_legendre/compile.cc (revision 0)
+++ testsuite/special_functions/20_sph_legendre/compile.cc (working copy)
@@ -0,0 +1,41 @@
+// { dg-do compile }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.20 sph_legendre
+
+#include <cmath>
+
+void
+test01()
+{
+ float thetaf = 0.5F;
+ double thetad = 0.5;
+ long double thetal = 0.5L;
+ unsigned int l = 2, m = 1;
+
+ std::sph_legendre(l, m, thetaf);
+ std::sph_legendref(l, m, thetaf);
+ std::sph_legendre(l, m, thetad);
+ std::sph_legendre(l, m, thetal);
+ std::sph_legendrel(l, m, thetal);
+
+ return;
+}
+
Index: testsuite/special_functions/20_sph_legendre/compile_2.cc
===================================================================
--- testsuite/special_functions/20_sph_legendre/compile_2.cc (revision 0)
+++ testsuite/special_functions/20_sph_legendre/compile_2.cc (working copy)
@@ -0,0 +1,42 @@
+// { dg-do compile { xfail *-*-* } }
+// { dg-excess-errors "" }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.20 sph_legendre
+
+#include <math.h>
+
+void
+test01()
+{
+ float thetaf = 0.5F;
+ double thetad = 0.5;
+ long double thetal = 0.5L;
+ unsigned int l = 2, m = 1;
+
+ sph_legendre(l, m, thetaf);
+ sph_legendref(l, m, thetaf);
+ sph_legendre(l, m, thetad);
+ sph_legendre(l, m, thetal);
+ sph_legendrel(l, m, thetal);
+
+ return;
+}
+
Index: testsuite/special_functions/21_sph_neumann/check_nan.cc
===================================================================
--- testsuite/special_functions/21_sph_neumann/check_nan.cc (revision 0)
+++ testsuite/special_functions/21_sph_neumann/check_nan.cc (working copy)
@@ -0,0 +1,58 @@
+// { dg-require-c-std "" }
+// { dg-add-options ieee }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.21 sph_neumann
+
+#include <cmath>
+#include <testsuite_hooks.h>
+
+void
+test01()
+{
+ float xf = std::numeric_limits<float>::quiet_NaN();
+ double xd = std::numeric_limits<double>::quiet_NaN();
+ long double xl = std::numeric_limits<long double>::quiet_NaN();
+
+ unsigned int n = 0;
+
+ float a = std::sph_neumann(n, xf);
+ float b = std::sph_neumannf(n, xf);
+ double c = std::sph_neumann(n, xd);
+ long double d = std::sph_neumann(n, xl);
+ long double e = std::sph_neumannl(n, xl);
+
+ bool test [[gnu::unused]] = true;
+ VERIFY(std::isnan(a));
+ VERIFY(std::isnan(b));
+ VERIFY(std::isnan(c));
+ VERIFY(std::isnan(d));
+ VERIFY(std::isnan(e));
+
+ return;
+}
+
+int
+main()
+{
+ test01();
+ return 0;
+}
+
Index: testsuite/special_functions/21_sph_neumann/check_value.cc
===================================================================
--- testsuite/special_functions/21_sph_neumann/check_value.cc (revision 0)
+++ testsuite/special_functions/21_sph_neumann/check_value.cc (working copy)
@@ -0,0 +1,552 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+//
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// sph_neumann
+// Compare against values generated by the GNU Scientific Library.
+// The GSL can be found on the web: http://www.gnu.org/software/gsl/
+#include <limits>
+#include <cmath>
+#if defined(__TEST_DEBUG)
+# include <iostream>
+# define VERIFY(A) \
+ if (!(A)) \
+ { \
+ std::cout << "line " << __LINE__ \
+ << " max_abs_frac = " << max_abs_frac \
+ << std::endl; \
+ }
+#else
+# include <testsuite_hooks.h>
+#endif
+#include <specfun_testcase.h>
+
+
+// Test data for n=0.
+// max(|f - f_GSL|): 4.4408920985006262e-16
+// max(|f - f_GSL| / |f_GSL|): 4.8209634107822837e-15
+const testcase_sph_neumann<double>
+data001[20] =
+{
+ { -3.8756496868425789, 0, 0.25000000000000000 },
+ { -1.7551651237807455, 0, 0.50000000000000000 },
+ { -0.97558515849842786, 0, 0.75000000000000000 },
+ { -0.54030230586813977, 0, 1.0000000000000000 },
+ { -0.25225788991621495, 0, 1.2500000000000000 },
+ { -0.047158134445135273, 0, 1.5000000000000000 },
+ { 0.10185488894256690, 0, 1.7500000000000000 },
+ { 0.20807341827357120, 0, 2.0000000000000000 },
+ { 0.27918827676566177, 0, 2.2500000000000000 },
+ { 0.32045744621877348, 0, 2.5000000000000000 },
+ { 0.33610995586635040, 0, 2.7500000000000000 },
+ { 0.32999749886681512, 0, 3.0000000000000000 },
+ { 0.30588605417862963, 0, 3.2500000000000000 },
+ { 0.26755905351165610, 0, 3.5000000000000000 },
+ { 0.21881582862388288, 0, 3.7500000000000000 },
+ { 0.16341090521590299, 0, 4.0000000000000000 },
+ { 0.10496176233265714, 0, 4.2500000000000000 },
+ { 0.046843510984617719, 0, 4.5000000000000000 },
+ { -0.0079162427132582220, 0, 4.7500000000000000 },
+ { -0.056732437092645263, 0, 5.0000000000000000 },
+};
+const double toler001 = 2.5000000000000020e-13;
+
+// Test data for n=1.
+// max(|f - f_GSL|): 3.5527136788005009e-15
+// max(|f - f_GSL| / |f_GSL|): 3.7472288263398607e-15
+const testcase_sph_neumann<double>
+data002[20] =
+{
+ { -16.492214584388407, 1, 0.25000000000000000 },
+ { -4.4691813247698970, 1, 0.50000000000000000 },
+ { -2.2096318913623492, 1, 0.75000000000000000 },
+ { -1.3817732906760363, 1, 1.0000000000000000 },
+ { -0.96099400741744090, 1, 1.2500000000000000 },
+ { -0.69643541403279308, 1, 1.5000000000000000 },
+ { -0.50407489024649721, 1, 1.7500000000000000 },
+ { -0.35061200427605527, 1, 2.0000000000000000 },
+ { -0.22172663116544869, 1, 2.2500000000000000 },
+ { -0.11120587915407318, 1, 2.5000000000000000 },
+ { -0.016564013158538646, 1, 2.7500000000000000 },
+ { 0.062959163602315973, 1, 3.0000000000000000 },
+ { 0.12740959652576553, 1, 3.2500000000000000 },
+ { 0.17666922320036457, 1, 3.5000000000000000 },
+ { 0.21076723929766045, 1, 3.7500000000000000 },
+ { 0.23005335013095779, 1, 4.0000000000000000 },
+ { 0.23528261660264485, 1, 4.2500000000000000 },
+ { 0.22763858414438104, 1, 4.5000000000000000 },
+ { 0.20871085184465679, 1, 4.7500000000000000 },
+ { 0.18043836751409864, 1, 5.0000000000000000 },
+};
+const double toler002 = 2.5000000000000020e-13;
+
+// Test data for n=2.
+// max(|f - f_GSL|): 5.6843418860808015e-14
+// max(|f - f_GSL| / |f_GSL|): 2.4702749396271158e-15
+const testcase_sph_neumann<double>
+data003[20] =
+{
+ { -194.03092532581832, 2, 0.25000000000000000 },
+ { -25.059922824838637, 2, 0.50000000000000000 },
+ { -7.8629424069509692, 2, 0.75000000000000000 },
+ { -3.6050175661599688, 2, 1.0000000000000000 },
+ { -2.0541277278856431, 2, 1.2500000000000000 },
+ { -1.3457126936204509, 2, 1.5000000000000000 },
+ { -0.96598327222227631, 2, 1.7500000000000000 },
+ { -0.73399142468765399, 2, 2.0000000000000000 },
+ { -0.57482378498626008, 2, 2.2500000000000000 },
+ { -0.45390450120366133, 2, 2.5000000000000000 },
+ { -0.35417978840293796, 2, 2.7500000000000000 },
+ { -0.26703833526449916, 2, 3.0000000000000000 },
+ { -0.18827719584715374, 2, 3.2500000000000000 },
+ { -0.11612829076848646, 2, 3.5000000000000000 },
+ { -0.050202037185754500, 2, 3.7500000000000000 },
+ { 0.0091291073823153435, 2, 4.0000000000000000 },
+ { 0.061120084680974532, 2, 4.2500000000000000 },
+ { 0.10491554511163632, 2, 4.5000000000000000 },
+ { 0.13973362282567303, 2, 4.7500000000000000 },
+ { 0.16499545760110443, 2, 5.0000000000000000 },
+};
+const double toler003 = 2.5000000000000020e-13;
+
+// Test data for n=5.
+// max(|f - f_GSL|): 4.6566128730773926e-10
+// max(|f - f_GSL| / |f_GSL|): 6.3451511503162099e-16
+const testcase_sph_neumann<double>
+data004[20] =
+{
+ { -3884190.0626637731, 5, 0.25000000000000000 },
+ { -61327.563166980639, 5, 0.50000000000000000 },
+ { -5478.9529323190836, 5, 0.75000000000000000 },
+ { -999.44034339223640, 5, 1.0000000000000000 },
+ { -270.49720502942358, 5, 1.2500000000000000 },
+ { -94.236110085232468, 5, 1.5000000000000000 },
+ { -39.182827786584333, 5, 1.7500000000000000 },
+ { -18.591445311190984, 5, 2.0000000000000000 },
+ { -9.7821420203182274, 5, 2.2500000000000000 },
+ { -5.5991001548063233, 5, 2.5000000000000000 },
+ { -3.4400655233636823, 5, 2.7500000000000000 },
+ { -2.2470233284653904, 5, 3.0000000000000000 },
+ { -1.5491439945779160, 5, 3.2500000000000000 },
+ { -1.1205896325654248, 5, 3.5000000000000000 },
+ { -0.84592255605194844, 5, 3.7500000000000000 },
+ { -0.66280126645045878, 5, 4.0000000000000000 },
+ { -0.53589374436038528, 5, 4.2500000000000000 },
+ { -0.44430324229090551, 5, 4.5000000000000000 },
+ { -0.37520157232899892, 5, 4.7500000000000000 },
+ { -0.32046504674973919, 5, 5.0000000000000000 },
+};
+const double toler004 = 2.5000000000000020e-13;
+
+// Test data for n=10.
+// max(|f - f_GSL|): 0.50000000000000000
+// max(|f - f_GSL| / |f_GSL|): 1.2712694703401436e-15
+const testcase_sph_neumann<double>
+data005[20] =
+{
+ { -2750653598174213.5, 10, 0.25000000000000000 },
+ { -1349739281107.0554, 10, 0.50000000000000000 },
+ { -15733380424.953760, 10, 0.75000000000000000 },
+ { -672215008.25620842, 10, 1.0000000000000000 },
+ { -58607405.988679446, 10, 1.2500000000000000 },
+ { -8032728.8148234813, 10, 1.5000000000000000 },
+ { -1505955.5720640516, 10, 1.7500000000000000 },
+ { -355414.72008543846, 10, 2.0000000000000000 },
+ { -100086.80374425423, 10, 2.2500000000000000 },
+ { -32423.794085334419, 10, 2.5000000000000000 },
+ { -11772.863161809979, 10, 2.7500000000000000 },
+ { -4699.8591888113924, 10, 3.0000000000000000 },
+ { -2033.0183273853759, 10, 3.2500000000000000 },
+ { -942.19075028425493, 10, 3.5000000000000000 },
+ { -463.65206971202474, 10, 3.7500000000000000 },
+ { -240.53552987988931, 10, 4.0000000000000000 },
+ { -130.78478404631085, 10, 4.2500000000000000 },
+ { -74.170665501737531, 10, 4.5000000000000000 },
+ { -43.698249898184983, 10, 4.7500000000000000 },
+ { -26.656114405718711, 10, 5.0000000000000000 },
+};
+const double toler005 = 2.5000000000000020e-13;
+
+// Test data for n=20.
+// max(|f - f_GSL|): 2.9514790517935283e+20
+// max(|f - f_GSL| / |f_GSL|): 1.9896573344672978e-15
+const testcase_sph_neumann<double>
+data006[20] =
+{
+ { -1.4077591402542251e+36, 20, 0.25000000000000000 },
+ { -6.7288761838234712e+29, 20, 0.50000000000000000 },
+ { -1.3544611382105945e+26, 20, 0.75000000000000000 },
+ { -3.2395922185789833e+23, 20, 1.0000000000000000 },
+ { -3.0096416715953060e+21, 20, 1.2500000000000000 },
+ { -6.5999646851668173e+19, 20, 1.5000000000000000 },
+ { -2.6193364753070735e+18, 20, 1.7500000000000000 },
+ { -1.6054364928152224e+17, 20, 2.0000000000000000 },
+ { -13719071872797762., 20, 2.2500000000000000 },
+ { -1524247248298953.8, 20, 2.5000000000000000 },
+ { -209484650509384.06, 20, 2.7500000000000000 },
+ { -34327545666696.488, 20, 3.0000000000000000 },
+ { -6522260876203.3174, 20, 3.2500000000000000 },
+ { -1406018871897.2307, 20, 3.5000000000000000 },
+ { -338025193731.78882, 20, 3.7500000000000000 },
+ { -89381690326.018677, 20, 4.0000000000000000 },
+ { -25701805899.474934, 20, 4.2500000000000000 },
+ { -7961859734.2407761, 20, 4.5000000000000000 },
+ { -2636237230.0850010, 20, 4.7500000000000000 },
+ { -926795140.30575466, 20, 5.0000000000000000 },
+};
+const double toler006 = 2.5000000000000020e-13;
+
+// Test data for n=50.
+// max(|f - f_GSL|): 2.0859248397665138e+93
+// max(|f - f_GSL| / |f_GSL|): 7.3237119407125301e-14
+const testcase_sph_neumann<double>
+data007[20] =
+{
+ { -1.3823742808004061e+109, 50, 0.25000000000000000 },
+ { -6.1447912922121694e+93, 50, 0.50000000000000000 },
+ { -6.4348494908900529e+84, 50, 0.75000000000000000 },
+ { -2.7391922846297569e+78, 50, 1.0000000000000000 },
+ { -3.1365037573299931e+73, 50, 1.2500000000000000 },
+ { -2.8821098528635756e+69, 50, 1.5000000000000000 },
+ { -1.1148255024189452e+66, 50, 1.7500000000000000 },
+ { -1.2350219443670970e+63, 50, 2.0000000000000000 },
+ { -3.0565226939717125e+60, 50, 2.2500000000000000 },
+ { -1.4262702131152733e+58, 50, 2.5000000000000000 },
+ { -1.1118745474840939e+56, 50, 2.7500000000000000 },
+ { -1.3243260716629126e+54, 50, 3.0000000000000000 },
+ { -2.2519472094129334e+52, 50, 3.2500000000000000 },
+ { -5.1861507201100364e+50, 50, 3.5000000000000000 },
+ { -1.5513212909461383e+49, 50, 3.7500000000000000 },
+ { -5.8276471407899822e+47, 50, 4.0000000000000000 },
+ { -2.6745414086542661e+46, 50, 4.2500000000000000 },
+ { -1.4657308996352322e+45, 50, 4.5000000000000000 },
+ { -9.4102674366685358e+43, 50, 4.7500000000000000 },
+ { -6.9641091882698388e+42, 50, 5.0000000000000000 },
+};
+const double toler007 = 5.0000000000000029e-12;
+
+// Test data for n=100.
+// max(|f - f_GSL|): 2.4840289476811343e+232
+// max(|f - f_GSL| / |f_GSL|): 9.0555289224453335e-14
+const testcase_sph_neumann<double>
+data008[20] =
+{
+ { -4.2856109460516407e+247, 100, 0.25000000000000000 },
+ { -1.6911720011753781e+217, 100, 0.50000000000000000 },
+ { -2.7753107402139484e+199, 100, 0.75000000000000000 },
+ { -6.6830794632586774e+186, 100, 1.0000000000000000 },
+ { -1.0906342369729277e+177, 100, 1.2500000000000000 },
+ { -1.0993184254131119e+169, 100, 1.5000000000000000 },
+ { -1.9071480498141315e+162, 100, 1.7500000000000000 },
+ { -2.6559558301924957e+156, 100, 2.0000000000000000 },
+ { -1.8154136926485787e+151, 100, 2.2500000000000000 },
+ { -4.3527631662111383e+146, 100, 2.5000000000000000 },
+ { -2.8809537014100589e+142, 100, 2.7500000000000000 },
+ { -4.4102229953033134e+138, 100, 3.0000000000000000 },
+ { -1.3651904154045514e+135, 100, 3.2500000000000000 },
+ { -7.6980749101080730e+131, 100, 3.5000000000000000 },
+ { -7.2790553499254927e+128, 100, 3.7500000000000000 },
+ { -1.0796647795893970e+126, 100, 4.0000000000000000 },
+ { -2.3785795774445298e+123, 100, 4.2500000000000000 },
+ { -7.4391596631955861e+120, 100, 4.5000000000000000 },
+ { -3.1802258278279400e+118, 100, 4.7500000000000000 },
+ { -1.7997139826259740e+116, 100, 5.0000000000000000 },
+};
+const double toler008 = 5.0000000000000029e-12;
+// sph_neumann
+
+// Test data for n=0.
+// max(|f - f_GSL|): 1.0165479569224090e-15
+// max(|f - f_GSL| / |f_GSL|): 5.9073915926662418e-13
+const testcase_sph_neumann<double>
+data009[20] =
+{
+ { -0.056732437092645263, 0, 5.0000000000000000 },
+ { 0.083907152907645249, 0, 10.000000000000000 },
+ { 0.050645860857254747, 0, 15.000000000000000 },
+ { -0.020404103090669597, 0, 20.000000000000000 },
+ { -0.039648112474538942, 0, 25.000000000000000 },
+ { -0.0051417149962528020, 0, 30.000000000000000 },
+ { 0.025819777288328762, 0, 35.000000000000000 },
+ { 0.016673451541306544, 0, 40.000000000000000 },
+ { -0.011673821973727327, 0, 45.000000000000000 },
+ { -0.019299320569842265, 0, 50.000000000000000 },
+ { -0.00040230465930828606, 0, 55.000000000000000 },
+ { 0.015873549673585938, 0, 60.000000000000000 },
+ { 0.0086531361728949541, 0, 65.000000000000000 },
+ { -0.0090474171869471404, 0, 70.000000000000000 },
+ { -0.012290016929663325, 0, 75.000000000000000 },
+ { 0.0013798405479880944, 0, 80.000000000000000 },
+ { 0.011580901686988727, 0, 85.000000000000000 },
+ { 0.0049785957347685574, 0, 90.000000000000000 },
+ { -0.0076860374841559963, 0, 95.000000000000000 },
+ { -0.0086231887228768404, 0, 100.00000000000000 },
+};
+const double toler009 = 5.0000000000000028e-11;
+
+// Test data for n=1.
+// max(|f - f_GSL|): 1.0529771499179219e-15
+// max(|f - f_GSL| / |f_GSL|): 3.5182047773188613e-13
+const testcase_sph_neumann<double>
+data010[20] =
+{
+ { 0.18043836751409864, 1, 5.0000000000000000 },
+ { 0.062792826379701502, 1, 10.000000000000000 },
+ { -0.039976131953324147, 1, 15.000000000000000 },
+ { -0.046667467690914864, 1, 20.000000000000000 },
+ { 0.0037081455049293634, 1, 25.000000000000000 },
+ { 0.032762996969886965, 1, 30.000000000000000 },
+ { 0.012971498479556563, 1, 35.000000000000000 },
+ { -0.018210992723451058, 1, 40.000000000000000 },
+ { -0.019168385477952129, 1, 45.000000000000000 },
+ { 0.0048615106626817301, 1, 50.000000000000000 },
+ { 0.018170052158169303, 1, 55.000000000000000 },
+ { 0.0053447361795967109, 1, 60.000000000000000 },
+ { -0.012587316051033977, 1, 65.000000000000000 },
+ { -0.011184829982069090, 1, 70.000000000000000 },
+ { 0.0050065549130635621, 1, 75.000000000000000 },
+ { 0.012440856180892041, 1, 80.000000000000000 },
+ { 0.0022077237839479508, 1, 85.000000000000000 },
+ { -0.0098779785318421041, 1, 90.000000000000000 },
+ { -0.0072731342338976518, 1, 95.000000000000000 },
+ { 0.0049774245238688201, 1, 100.00000000000000 },
+};
+const double toler010 = 2.5000000000000014e-11;
+
+// Test data for n=2.
+// max(|f - f_GSL|): 9.7144514654701197e-16
+// max(|f - f_GSL| / |f_GSL|): 8.9389761338979581e-13
+const testcase_sph_neumann<double>
+data011[20] =
+{
+ { 0.16499545760110443, 2, 5.0000000000000000 },
+ { -0.065069304993734783, 2, 10.000000000000000 },
+ { -0.058641087247919575, 2, 15.000000000000000 },
+ { 0.013403982937032370, 2, 20.000000000000000 },
+ { 0.040093089935130458, 2, 25.000000000000000 },
+ { 0.0084180146932414986, 2, 30.000000000000000 },
+ { -0.024707934561509628, 2, 35.000000000000000 },
+ { -0.018039275995565374, 2, 40.000000000000000 },
+ { 0.010395929608530518, 2, 45.000000000000000 },
+ { 0.019591011209603170, 2, 50.000000000000000 },
+ { 0.0013933984133902479, 2, 55.000000000000000 },
+ { -0.015606312864606101, 2, 60.000000000000000 },
+ { -0.0092340892214042153, 2, 65.000000000000000 },
+ { 0.0085680673305727519, 2, 70.000000000000000 },
+ { 0.012490279126185866, 2, 75.000000000000000 },
+ { -0.00091330844120464274, 2, 80.000000000000000 },
+ { -0.011502982024025860, 2, 85.000000000000000 },
+ { -0.0053078616858299611, 2, 90.000000000000000 },
+ { 0.0074563595609802797, 2, 95.000000000000000 },
+ { 0.0087725114585929052, 2, 100.00000000000000 },
+};
+const double toler011 = 5.0000000000000028e-11;
+
+// Test data for n=5.
+// max(|f - f_GSL|): 1.1327744298128550e-15
+// max(|f - f_GSL| / |f_GSL|): 6.2024335299315527e-13
+const testcase_sph_neumann<double>
+data012[20] =
+{
+ { -0.32046504674973919, 5, 5.0000000000000000 },
+ { 0.093833541678691818, 5, 10.000000000000000 },
+ { 0.020475698281859061, 5, 15.000000000000000 },
+ { -0.048172347757372780, 5, 20.000000000000000 },
+ { -0.018309489232548347, 5, 25.000000000000000 },
+ { 0.026639390496569996, 5, 30.000000000000000 },
+ { 0.022006038985576210, 5, 35.000000000000000 },
+ { -0.011268975348057965, 5, 40.000000000000000 },
+ { -0.021770388372274858, 5, 45.000000000000000 },
+ { -0.00069711319645853701, 5, 50.000000000000000 },
+ { 0.017439589450220901, 5, 55.000000000000000 },
+ { 0.0088699170919343089, 5, 60.000000000000000 },
+ { -0.010421334444951861, 5, 65.000000000000000 },
+ { -0.012746769858008553, 5, 70.000000000000000 },
+ { 0.0026282888028967737, 5, 75.000000000000000 },
+ { 0.012477658581324189, 5, 80.000000000000000 },
+ { 0.0040771816818182642, 5, 85.000000000000000 },
+ { -0.0089777759570579818, 5, 90.000000000000000 },
+ { -0.0083184557896676149, 5, 95.000000000000000 },
+ { 0.0037206784862748965, 5, 100.00000000000000 },
+};
+const double toler012 = 5.0000000000000028e-11;
+
+// Test data for n=10.
+// max(|f - f_GSL|): 1.0658141036401503e-14
+// max(|f - f_GSL| / |f_GSL|): 7.3655649039219020e-13
+const testcase_sph_neumann<double>
+data013[20] =
+{
+ { -26.656114405718711, 10, 5.0000000000000000 },
+ { -0.17245367208805784, 10, 10.000000000000000 },
+ { 0.078461689849642580, 10, 15.000000000000000 },
+ { -0.036843410496289961, 10, 20.000000000000000 },
+ { -0.021158339301097475, 10, 25.000000000000000 },
+ { 0.031219591064754939, 10, 30.000000000000000 },
+ { 0.012840593422414807, 10, 35.000000000000000 },
+ { -0.021803068636888072, 10, 40.000000000000000 },
+ { -0.014071636804469044, 10, 45.000000000000000 },
+ { 0.013524687511158758, 10, 50.000000000000000 },
+ { 0.015684932653180595, 10, 55.000000000000000 },
+ { -0.0056356895567262122, 10, 60.000000000000000 },
+ { -0.015364490270315362, 10, 65.000000000000000 },
+ { -0.0014525575672261295, 10, 70.000000000000000 },
+ { 0.012648951699549433, 10, 75.000000000000000 },
+ { 0.0068571608061120367, 10, 80.000000000000000 },
+ { -0.0080151152941401460, 10, 85.000000000000000 },
+ { -0.0098139742219019149, 10, 90.000000000000000 },
+ { 0.0025002854072314951, 10, 95.000000000000000 },
+ { 0.010025777373636155, 10, 100.00000000000000 },
+};
+const double toler013 = 5.0000000000000028e-11;
+
+// Test data for n=20.
+// max(|f - f_GSL|): 1.0728836059570312e-06
+// max(|f - f_GSL| / |f_GSL|): 1.0496253232407487e-11
+const testcase_sph_neumann<double>
+data014[20] =
+{
+ { -926795140.30575466, 20, 5.0000000000000000 },
+ { -1211.2106053526036, 20, 10.000000000000000 },
+ { -1.5559965765652175, 20, 15.000000000000000 },
+ { -0.093401132250914398, 20, 20.000000000000000 },
+ { 0.044031985675276462, 20, 25.000000000000000 },
+ { -0.036078033606613907, 20, 30.000000000000000 },
+ { 0.029828405631319645, 20, 35.000000000000000 },
+ { -0.0048414810986760759, 20, 40.000000000000000 },
+ { -0.020504694681516944, 20, 45.000000000000000 },
+ { 0.013759531302541216, 20, 50.000000000000000 },
+ { 0.012783038861734196, 20, 55.000000000000000 },
+ { -0.013117009421906418, 20, 60.000000000000000 },
+ { -0.010338106075674407, 20, 65.000000000000000 },
+ { 0.010538610814111244, 20, 70.000000000000000 },
+ { 0.010200029094273744, 20, 75.000000000000000 },
+ { -0.0073123450945617122, 20, 80.000000000000000 },
+ { -0.010581510354950906, 20, 85.000000000000000 },
+ { 0.0036866374015298723, 20, 90.000000000000000 },
+ { 0.010498384318338270, 20, 95.000000000000000 },
+ { 5.6317293788334978e-05, 20, 100.00000000000000 },
+};
+const double toler014 = 1.0000000000000007e-09;
+
+// Test data for n=50.
+// max(|f - f_GSL|): 5.1003129618557667e+29
+// max(|f - f_GSL| / |f_GSL|): 4.9443320929884463e-13
+const testcase_sph_neumann<double>
+data015[20] =
+{
+ { -6.9641091882698388e+42, 50, 5.0000000000000000 },
+ { -4.5282272723512023e+27, 50, 10.000000000000000 },
+ { -9.0004902645887037e+18, 50, 15.000000000000000 },
+ { -9542541667002.5117, 50, 20.000000000000000 },
+ { -363518140.71026671, 50, 25.000000000000000 },
+ { -152551.57233157745, 50, 30.000000000000000 },
+ { -386.26599186208625, 50, 35.000000000000000 },
+ { -4.3290507947291035, 50, 40.000000000000000 },
+ { -0.19968460851503758, 50, 45.000000000000000 },
+ { -0.041900001504607758, 50, 50.000000000000000 },
+ { 0.010696040672421902, 50, 55.000000000000000 },
+ { 0.0078198768555267188, 50, 60.000000000000000 },
+ { -0.010088474938191242, 50, 65.000000000000000 },
+ { 0.0062423671279824801, 50, 70.000000000000000 },
+ { 0.0011284242794941733, 50, 75.000000000000000 },
+ { -0.0093934266037485562, 50, 80.000000000000000 },
+ { 0.013108079602843424, 50, 85.000000000000000 },
+ { -0.0075396607225722626, 50, 90.000000000000000 },
+ { -0.0042605703552836558, 50, 95.000000000000000 },
+ { 0.010747822973682470, 50, 100.00000000000000 },
+};
+const double toler015 = 2.5000000000000014e-11;
+
+// Test data for n=100.
+// max(|f - f_GSL|): 3.0796490204944808e+102
+// max(|f - f_GSL| / |f_GSL|): 4.6209003006798690e-14
+const testcase_sph_neumann<double>
+data016[20] =
+{
+ { -1.7997139826259740e+116, 100, 5.0000000000000000 },
+ { -8.5732263093296268e+85, 100, 10.000000000000000 },
+ { -1.9270658593711677e+68, 100, 15.000000000000000 },
+ { -7.2208893582952385e+55, 100, 20.000000000000000 },
+ { -2.0868752613007946e+46, 100, 25.000000000000000 },
+ { -4.2496124023612646e+38, 100, 30.000000000000000 },
+ { -1.7042898348910271e+32, 100, 35.000000000000000 },
+ { -6.3021565260724554e+26, 100, 40.000000000000000 },
+ { -1.3199917400494367e+22, 100, 45.000000000000000 },
+ { -1.1256928913265988e+18, 100, 50.000000000000000 },
+ { -309801083340343.25, 100, 55.000000000000000 },
+ { -232585620046.64737, 100, 60.000000000000000 },
+ { -421135935.93756074, 100, 65.000000000000000 },
+ { -1680637.4531202621, 100, 70.000000000000000 },
+ { -13868.302591128844, 100, 75.000000000000000 },
+ { -227.24385709173322, 100, 80.000000000000000 },
+ { -7.2807038787138731, 100, 85.000000000000000 },
+ { -0.46648154448250878, 100, 90.000000000000000 },
+ { -0.067270772720654556, 100, 95.000000000000000 },
+ { -0.022983850491562267, 100, 100.00000000000000 },
+};
+const double toler016 = 2.5000000000000015e-12;
+
+template<typename Tp, unsigned int Num>
+ void
+ test(const testcase_sph_neumann<Tp> (&data)[Num], Tp toler)
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = Num;
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::sph_neumann(data[i].n, data[i].x);
+ const Tp f0 = data[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < toler);
+ }
+
+int
+main()
+{
+ test(data001, toler001);
+ test(data002, toler002);
+ test(data003, toler003);
+ test(data004, toler004);
+ test(data005, toler005);
+ test(data006, toler006);
+ test(data007, toler007);
+ test(data008, toler008);
+ test(data009, toler009);
+ test(data010, toler010);
+ test(data011, toler011);
+ test(data012, toler012);
+ test(data013, toler013);
+ test(data014, toler014);
+ test(data015, toler015);
+ test(data016, toler016);
+ return 0;
+}
Index: testsuite/special_functions/21_sph_neumann/compile.cc
===================================================================
--- testsuite/special_functions/21_sph_neumann/compile.cc (revision 0)
+++ testsuite/special_functions/21_sph_neumann/compile.cc (working copy)
@@ -0,0 +1,41 @@
+// { dg-do compile }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.21 sph_neumann
+
+#include <cmath>
+
+void
+test01()
+{
+ float xf = 0.5F;
+ double xd = 0.5;
+ long double xl = 0.5L;
+ unsigned int n = 0;
+
+ std::sph_neumann(n, xf);
+ std::sph_neumannf(n, xf);
+ std::sph_neumann(n, xd);
+ std::sph_neumann(n, xl);
+ std::sph_neumannl(n, xl);
+
+ return;
+}
+
Index: testsuite/special_functions/21_sph_neumann/compile_2.cc
===================================================================
--- testsuite/special_functions/21_sph_neumann/compile_2.cc (revision 0)
+++ testsuite/special_functions/21_sph_neumann/compile_2.cc (working copy)
@@ -0,0 +1,42 @@
+// { dg-do compile { xfail *-*-* } }
+// { dg-excess-errors "" }
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// 8.1.21 sph_neumann
+
+#include <math.h>
+
+void
+test01()
+{
+ float xf = 0.5F;
+ double xd = 0.5;
+ long double xl = 0.5L;
+ unsigned int n = 0;
+
+ sph_neumann(n, xf);
+ sph_neumannf(n, xf);
+ sph_neumann(n, xd);
+ sph_neumann(n, xl);
+ sph_neumannl(n, xl);
+
+ return;
+}
+
Index: testsuite/tr1/5_numerical_facilities/special_functions/08_cyl_bessel_i/check_value.cc
===================================================================
--- testsuite/tr1/5_numerical_facilities/special_functions/08_cyl_bessel_i/check_value.cc (revision 232104)
+++ testsuite/tr1/5_numerical_facilities/special_functions/08_cyl_bessel_i/check_value.cc (working copy)
@@ -42,7 +42,494 @@
// Test data for nu=0.0000000000000000.
testcase_cyl_bessel_i<double> data001[] = {
{ 1.0000000000000000, 0.0000000000000000, 0.0000000000000000 },
+ { 1.0156861412236078, 0.0000000000000000, 0.25000000000000000 },
+ { 1.0634833707413236, 0.0000000000000000, 0.50000000000000000 },
+ { 1.1456467780440014, 0.0000000000000000, 0.75000000000000000 },
+ { 1.2660658777520082, 0.0000000000000000, 1.0000000000000000 },
+ { 1.4304687177218294, 0.0000000000000000, 1.2500000000000000 },
+ { 1.6467231897728904, 0.0000000000000000, 1.5000000000000000 },
+ { 1.9252521538585023, 0.0000000000000000, 1.7500000000000000 },
+ { 2.2795853023360668, 0.0000000000000000, 2.0000000000000000 },
+ { 2.7270783071907951, 0.0000000000000000, 2.2500000000000000 },
+ { 3.2898391440501231, 0.0000000000000000, 2.5000000000000000 },
+ { 3.9959131072376550, 0.0000000000000000, 2.7500000000000000 },
+ { 4.8807925858650245, 0.0000000000000000, 3.0000000000000000 },
+ { 5.9893359979395138, 0.0000000000000000, 3.2500000000000000 },
+ { 7.3782034322254750, 0.0000000000000000, 3.5000000000000000 },
+ { 9.1189458608445655, 0.0000000000000000, 3.7500000000000000 },
+ { 11.301921952136325, 0.0000000000000000, 4.0000000000000000 },
+ { 14.041263683000595, 0.0000000000000000, 4.2500000000000000 },
+ { 17.481171855609272, 0.0000000000000000, 4.5000000000000000 },
+ { 21.803898740902120, 0.0000000000000000, 4.7500000000000000 },
{ 27.239871823604439, 0.0000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=0.0000000000000000.
+template<typename Tp>
+ void
+ test001()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data001)
+ / sizeof(testcase_cyl_bessel_i<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_i(Tp(data001[i].nu), Tp(data001[i].x));
+ const Tp f0 = data001[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=0.33333333333333331.
+testcase_cyl_bessel_i<double> data002[] = {
+ { 0.0000000000000000, 0.33333333333333331, 0.0000000000000000 },
+ { 0.56650686557808660, 0.33333333333333331, 0.25000000000000000 },
+ { 0.73897315642511863, 0.33333333333333331, 0.50000000000000000 },
+ { 0.89532320365836804, 0.33333333333333331, 0.75000000000000000 },
+ { 1.0646313978895285, 0.33333333333333331, 1.0000000000000000 },
+ { 1.2623776732605250, 0.33333333333333331, 1.2500000000000000 },
+ { 1.5014290000224382, 0.33333333333333331, 1.5000000000000000 },
+ { 1.7951195525946044, 0.33333333333333331, 1.7500000000000000 },
+ { 2.1587825813728614, 0.33333333333333331, 2.0000000000000000 },
+ { 2.6109134564811405, 0.33333333333333331, 2.2500000000000000 },
+ { 3.1743242297241938, 0.33333333333333331, 2.5000000000000000 },
+ { 3.8774551722182107, 0.33333333333333331, 2.7500000000000000 },
+ { 4.7559569371646946, 0.33333333333333331, 3.0000000000000000 },
+ { 5.8546499652731825, 0.33333333333333331, 3.2500000000000000 },
+ { 7.2299798619171147, 0.33333333333333331, 3.5000000000000000 },
+ { 8.9531114355506318, 0.33333333333333331, 3.7500000000000000 },
+ { 11.113838389991479, 0.33333333333333331, 4.0000000000000000 },
+ { 13.825531136529117, 0.33333333333333331, 4.2500000000000000 },
+ { 17.231403968478318, 0.33333333333333331, 4.5000000000000000 },
+ { 21.512458099556554, 0.33333333333333331, 4.7500000000000000 },
+ { 26.897553069268362, 0.33333333333333331, 5.0000000000000000 },
+};
+
+// Test function for nu=0.33333333333333331.
+template<typename Tp>
+ void
+ test002()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data002)
+ / sizeof(testcase_cyl_bessel_i<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_i(Tp(data002[i].nu), Tp(data002[i].x));
+ const Tp f0 = data002[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=0.50000000000000000.
+testcase_cyl_bessel_i<double> data003[] = {
+ { 0.0000000000000000, 0.50000000000000000, 0.0000000000000000 },
+ { 0.40311093489975897, 0.50000000000000000, 0.25000000000000000 },
+ { 0.58799308679041573, 0.50000000000000000, 0.50000000000000000 },
+ { 0.75761498638991298, 0.50000000000000000, 0.75000000000000000 },
+ { 0.93767488824548695, 0.50000000000000000, 1.0000000000000000 },
+ { 1.1432089853159872, 0.50000000000000000, 1.2500000000000000 },
+ { 1.3871617204034761, 0.50000000000000000, 1.5000000000000000 },
+ { 1.6830217804556815, 0.50000000000000000, 1.7500000000000000 },
+ { 2.0462368630890526, 0.50000000000000000, 2.0000000000000000 },
+ { 2.4953405089360041, 0.50000000000000000, 2.2500000000000000 },
+ { 3.0530935381967175, 0.50000000000000000, 2.5000000000000000 },
+ { 3.7477882494879449, 0.50000000000000000, 2.7500000000000000 },
+ { 4.6148229034075969, 0.50000000000000000, 3.0000000000000000 },
+ { 5.6986505325335495, 0.50000000000000000, 3.2500000000000000 },
+ { 7.0552194086911877, 0.50000000000000000, 3.5000000000000000 },
+ { 8.7550467841188944, 0.50000000000000000, 3.7500000000000000 },
+ { 10.887101798588422, 0.50000000000000000, 4.0000000000000000 },
+ { 13.563718712579764, 0.50000000000000000, 4.2500000000000000 },
+ { 16.926820080158183, 0.50000000000000000, 4.5000000000000000 },
+ { 21.155804306570005, 0.50000000000000000, 4.7500000000000000 },
+ { 26.477547497559065, 0.50000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=0.50000000000000000.
+template<typename Tp>
+ void
+ test003()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data003)
+ / sizeof(testcase_cyl_bessel_i<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_i(Tp(data003[i].nu), Tp(data003[i].x));
+ const Tp f0 = data003[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=0.66666666666666663.
+testcase_cyl_bessel_i<double> data004[] = {
+ { 0.0000000000000000, 0.66666666666666663, 0.0000000000000000 },
+ { 0.27953690613200438, 0.66666666666666663, 0.25000000000000000 },
+ { 0.45628323113556879, 0.66666666666666663, 0.50000000000000000 },
+ { 0.62594569838182612, 0.66666666666666663, 0.75000000000000000 },
+ { 0.80752128860612948, 0.66666666666666663, 1.0000000000000000 },
+ { 1.0139484513577168, 0.66666666666666663, 1.2500000000000000 },
+ { 1.2572918396962991, 0.66666666666666663, 1.5000000000000000 },
+ { 1.5505806938325577, 0.66666666666666663, 1.7500000000000000 },
+ { 1.9089492968236206, 0.66666666666666663, 2.0000000000000000 },
+ { 2.3506463490300331, 0.66666666666666663, 2.2500000000000000 },
+ { 2.8981161894224892, 0.66666666666666663, 2.5000000000000000 },
+ { 3.5792654911068720, 0.66666666666666663, 2.7500000000000000 },
+ { 4.4290087213549505, 0.66666666666666663, 3.0000000000000000 },
+ { 5.4911895720097688, 0.66666666666666663, 3.2500000000000000 },
+ { 6.8209918044137305, 0.66666666666666663, 3.5000000000000000 },
+ { 8.4879784249619767, 0.66666666666666663, 3.7500000000000000 },
+ { 10.579932774013002, 0.66666666666666663, 4.0000000000000000 },
+ { 13.207720355482458, 0.66666666666666663, 4.2500000000000000 },
+ { 16.511448404200543, 0.66666666666666663, 4.5000000000000000 },
+ { 20.668274532832392, 0.66666666666666663, 4.7500000000000000 },
+ { 25.902310583215122, 0.66666666666666663, 5.0000000000000000 },
+};
+
+// Test function for nu=0.66666666666666663.
+template<typename Tp>
+ void
+ test004()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data004)
+ / sizeof(testcase_cyl_bessel_i<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_i(Tp(data004[i].nu), Tp(data004[i].x));
+ const Tp f0 = data004[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=1.0000000000000000.
+testcase_cyl_bessel_i<double> data005[] = {
+ { 0.0000000000000000, 1.0000000000000000, 0.0000000000000000 },
+ { 0.12597910894546793, 1.0000000000000000, 0.25000000000000000 },
+ { 0.25789430539089631, 1.0000000000000000, 0.50000000000000000 },
+ { 0.40199246158092228, 1.0000000000000000, 0.75000000000000000 },
+ { 0.56515910399248503, 1.0000000000000000, 1.0000000000000000 },
+ { 0.75528141834074725, 1.0000000000000000, 1.2500000000000000 },
+ { 0.98166642857790720, 1.0000000000000000, 1.5000000000000000 },
+ { 1.2555375122401731, 1.0000000000000000, 1.7500000000000000 },
+ { 1.5906368546373291, 1.0000000000000000, 2.0000000000000000 },
+ { 2.0039674569295931, 1.0000000000000000, 2.2500000000000000 },
+ { 2.5167162452886984, 1.0000000000000000, 2.5000000000000000 },
+ { 3.1554101386190028, 1.0000000000000000, 2.7500000000000000 },
+ { 3.9533702174026097, 1.0000000000000000, 3.0000000000000000 },
+ { 4.9525461659085490, 1.0000000000000000, 3.2500000000000000 },
+ { 6.2058349222583642, 1.0000000000000000, 3.5000000000000000 },
+ { 7.7800152298244161, 1.0000000000000000, 3.7500000000000000 },
+ { 9.7594651537044488, 1.0000000000000000, 4.0000000000000000 },
+ { 12.250874667409304, 1.0000000000000000, 4.2500000000000000 },
+ { 15.389222753735924, 1.0000000000000000, 4.5000000000000000 },
+ { 19.345361447520226, 1.0000000000000000, 4.7500000000000000 },
+ { 24.335642142450524, 1.0000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=1.0000000000000000.
+template<typename Tp>
+ void
+ test005()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data005)
+ / sizeof(testcase_cyl_bessel_i<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_i(Tp(data005[i].nu), Tp(data005[i].x));
+ const Tp f0 = data005[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=2.0000000000000000.
+testcase_cyl_bessel_i<double> data006[] = {
+ { 0.0000000000000000, 2.0000000000000000, 0.0000000000000000 },
+ { 0.0078532696598645167, 2.0000000000000000, 0.25000000000000000 },
+ { 0.031906149177738249, 2.0000000000000000, 0.50000000000000000 },
+ { 0.073666880494875436, 2.0000000000000000, 0.75000000000000000 },
+ { 0.13574766976703831, 2.0000000000000000, 1.0000000000000000 },
+ { 0.22201844837663415, 2.0000000000000000, 1.2500000000000000 },
+ { 0.33783461833568068, 2.0000000000000000, 1.5000000000000000 },
+ { 0.49035213986973319, 2.0000000000000000, 1.7500000000000000 },
+ { 0.68894844769873831, 2.0000000000000000, 2.0000000000000000 },
+ { 0.94577390103115722, 2.0000000000000000, 2.2500000000000000 },
+ { 1.2764661478191643, 2.0000000000000000, 2.5000000000000000 },
+ { 1.7010693700601991, 2.0000000000000000, 2.7500000000000000 },
+ { 2.2452124409299512, 2.0000000000000000, 3.0000000000000000 },
+ { 2.9416152804573357, 2.0000000000000000, 3.2500000000000000 },
+ { 3.8320120480778415, 2.0000000000000000, 3.5000000000000000 },
+ { 4.9696044049382113, 2.0000000000000000, 3.7500000000000000 },
+ { 6.4221893752841046, 2.0000000000000000, 4.0000000000000000 },
+ { 8.2761461924550552, 2.0000000000000000, 4.2500000000000000 },
+ { 10.641517298393307, 2.0000000000000000, 4.5000000000000000 },
+ { 13.658483394577813, 2.0000000000000000, 4.7500000000000000 },
+ { 17.505614966624233, 2.0000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=2.0000000000000000.
+template<typename Tp>
+ void
+ test006()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data006)
+ / sizeof(testcase_cyl_bessel_i<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_i(Tp(data006[i].nu), Tp(data006[i].x));
+ const Tp f0 = data006[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=5.0000000000000000.
+testcase_cyl_bessel_i<double> data007[] = {
+ { 0.0000000000000000, 5.0000000000000000, 0.0000000000000000 },
+ { 2.5497616449882785e-07, 5.0000000000000000, 0.25000000000000000 },
+ { 8.2231713131092646e-06, 5.0000000000000000, 0.50000000000000000 },
+ { 6.3261122739811725e-05, 5.0000000000000000, 0.75000000000000000 },
+ { 0.00027146315595697195, 5.0000000000000000, 1.0000000000000000 },
+ { 0.00084793613616686856, 5.0000000000000000, 1.2500000000000000 },
+ { 0.0021705595690975554, 5.0000000000000000, 1.5000000000000000 },
+ { 0.0048504513371845394, 5.0000000000000000, 1.7500000000000000 },
+ { 0.0098256793231317023, 5.0000000000000000, 2.0000000000000000 },
+ { 0.018486577941045829, 5.0000000000000000, 2.2500000000000000 },
+ { 0.032843475172023219, 5.0000000000000000, 2.5000000000000000 },
+ { 0.055750882754221943, 5.0000000000000000, 2.7500000000000000 },
+ { 0.091206477661513338, 5.0000000000000000, 3.0000000000000000 },
+ { 0.14474880546308083, 5.0000000000000000, 3.2500000000000000 },
+ { 0.22398495470190780, 5.0000000000000000, 3.5000000000000000 },
+ { 0.33928899170999866, 5.0000000000000000, 3.7500000000000000 },
+ { 0.50472436311316626, 5.0000000000000000, 4.0000000000000000 },
+ { 0.73925961816682961, 5.0000000000000000, 4.2500000000000000 },
+ { 1.0683677743764699, 5.0000000000000000, 4.5000000000000000 },
+ { 1.5261268693599621, 5.0000000000000000, 4.7500000000000000 },
+ { 2.1579745473225476, 5.0000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=5.0000000000000000.
+template<typename Tp>
+ void
+ test007()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data007)
+ / sizeof(testcase_cyl_bessel_i<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_i(Tp(data007[i].nu), Tp(data007[i].x));
+ const Tp f0 = data007[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=10.000000000000000.
+testcase_cyl_bessel_i<double> data008[] = {
+ { 0.0000000000000000, 10.000000000000000, 0.0000000000000000 },
+ { 2.5701232848571186e-16, 10.000000000000000, 0.25000000000000000 },
+ { 2.6430419258812784e-13, 10.000000000000000, 0.50000000000000000 },
+ { 1.5349659676120412e-11, 10.000000000000000, 0.75000000000000000 },
+ { 2.7529480398368732e-10, 10.000000000000000, 1.0000000000000000 },
+ { 2.5967897782035928e-09, 10.000000000000000, 1.2500000000000000 },
+ { 1.6330924437799743e-08, 10.000000000000000, 1.5000000000000000 },
+ { 7.7706676834614093e-08, 10.000000000000000, 1.7500000000000000 },
+ { 3.0169638793506839e-07, 10.000000000000000, 2.0000000000000000 },
+ { 1.0034459057774481e-06, 10.000000000000000, 2.2500000000000000 },
+ { 2.9557436109680578e-06, 10.000000000000000, 2.5000000000000000 },
+ { 7.8955603774082724e-06, 10.000000000000000, 2.7500000000000000 },
+ { 1.9464393470612970e-05, 10.000000000000000, 3.0000000000000000 },
+ { 4.4875369479742435e-05, 10.000000000000000, 3.2500000000000000 },
+ { 9.7760848514528916e-05, 10.000000000000000, 3.5000000000000000 },
+ { 0.00020289011210063493, 10.000000000000000, 3.7500000000000000 },
+ { 0.00040378896132693047, 10.000000000000000, 4.0000000000000000 },
+ { 0.00077478519551669892, 10.000000000000000, 4.2500000000000000 },
+ { 0.0014397060684919682, 10.000000000000000, 4.5000000000000000 },
+ { 0.0026004486016189452, 10.000000000000000, 4.7500000000000000 },
+ { 0.0045800444191760525, 10.000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=10.000000000000000.
+template<typename Tp>
+ void
+ test008()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data008)
+ / sizeof(testcase_cyl_bessel_i<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_i(Tp(data008[i].nu), Tp(data008[i].x));
+ const Tp f0 = data008[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=20.000000000000000.
+testcase_cyl_bessel_i<double> data009[] = {
+ { 0.0000000000000000, 20.000000000000000, 0.0000000000000000 },
+ { 3.5677858077910353e-37, 20.000000000000000, 0.25000000000000000 },
+ { 3.7494538480790194e-31, 20.000000000000000, 0.50000000000000000 },
+ { 1.2514356342425337e-27, 20.000000000000000, 0.75000000000000000 },
+ { 3.9668359858190197e-25, 20.000000000000000, 1.0000000000000000 },
+ { 3.4637832909868234e-23, 20.000000000000000, 1.2500000000000000 },
+ { 1.3388331839683472e-21, 20.000000000000000, 1.5000000000000000 },
+ { 2.9502376732679751e-20, 20.000000000000000, 1.7500000000000000 },
+ { 4.3105605761095479e-19, 20.000000000000000, 2.0000000000000000 },
+ { 4.6032451406433059e-18, 20.000000000000000, 2.2500000000000000 },
+ { 3.8400317244170310e-17, 20.000000000000000, 2.5000000000000000 },
+ { 2.6239115263043263e-16, 20.000000000000000, 2.7500000000000000 },
+ { 1.5209660019426689e-15, 20.000000000000000, 3.0000000000000000 },
+ { 7.6806450728249953e-15, 20.000000000000000, 3.2500000000000000 },
+ { 3.4495528847222945e-14, 20.000000000000000, 3.5000000000000000 },
+ { 1.4006589294850672e-13, 20.000000000000000, 3.7500000000000000 },
+ { 5.2100734221993044e-13, 20.000000000000000, 4.0000000000000000 },
+ { 1.7946903269488168e-12, 20.000000000000000, 4.2500000000000000 },
+ { 5.7763830562279683e-12, 20.000000000000000, 4.5000000000000000 },
+ { 1.7502433074548735e-11, 20.000000000000000, 4.7500000000000000 },
+ { 5.0242393579718066e-11, 20.000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=20.000000000000000.
+template<typename Tp>
+ void
+ test009()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data009)
+ / sizeof(testcase_cyl_bessel_i<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_i(Tp(data009[i].nu), Tp(data009[i].x));
+ const Tp f0 = data009[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+// cyl_bessel_i
+
+// Test data for nu=0.0000000000000000.
+testcase_cyl_bessel_i<double> data010[] = {
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000 },
+ { 27.239871823604439, 0.0000000000000000, 5.0000000000000000 },
{ 2815.7166284662558, 0.0000000000000000, 10.000000000000000 },
{ 339649.37329791381, 0.0000000000000000, 15.000000000000000 },
{ 43558282.559553474, 0.0000000000000000, 20.000000000000000 },
@@ -50,60 +537,62 @@
{ 781672297823.97925, 0.0000000000000000, 30.000000000000000 },
{ 107338818494514.42, 0.0000000000000000, 35.000000000000000 },
{ 14894774793419918., 0.0000000000000000, 40.000000000000000 },
- { 2.0834140751773158e+18, 0.0000000000000000, 45.000000000000000 },
- { 2.9325537838493463e+20, 0.0000000000000000, 50.000000000000000 },
+ { 2.0834140751773164e+18, 0.0000000000000000, 45.000000000000000 },
+ { 2.9325537838493457e+20, 0.0000000000000000, 50.000000000000000 },
{ 4.1487895607332160e+22, 0.0000000000000000, 55.000000000000000 },
{ 5.8940770556098216e+24, 0.0000000000000000, 60.000000000000000 },
- { 8.4030398456255610e+26, 0.0000000000000000, 65.000000000000000 },
- { 1.2015889579125422e+29, 0.0000000000000000, 70.000000000000000 },
- { 1.7226390780357971e+31, 0.0000000000000000, 75.000000000000000 },
- { 2.4751784043341670e+33, 0.0000000000000000, 80.000000000000000 },
- { 3.5634776304081418e+35, 0.0000000000000000, 85.000000000000000 },
+ { 8.4030398456255596e+26, 0.0000000000000000, 65.000000000000000 },
+ { 1.2015889579125424e+29, 0.0000000000000000, 70.000000000000000 },
+ { 1.7226390780357976e+31, 0.0000000000000000, 75.000000000000000 },
+ { 2.4751784043341661e+33, 0.0000000000000000, 80.000000000000000 },
+ { 3.5634776304081403e+35, 0.0000000000000000, 85.000000000000000 },
{ 5.1392383455086475e+37, 0.0000000000000000, 90.000000000000000 },
- { 7.4233258618752096e+39, 0.0000000000000000, 95.000000000000000 },
+ { 7.4233258618752072e+39, 0.0000000000000000, 95.000000000000000 },
{ 1.0737517071310986e+42, 0.0000000000000000, 100.00000000000000 },
};
// Test function for nu=0.0000000000000000.
-template <typename Tp>
-void test001()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data001)
- / sizeof(testcase_cyl_bessel_i<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_i(Tp(data001[i].nu), Tp(data001[i].x));
- const Tp f0 = data001[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000015e-12));
-}
+template<typename Tp>
+ void
+ test010()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data010)
+ / sizeof(testcase_cyl_bessel_i<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_i(Tp(data010[i].nu), Tp(data010[i].x));
+ const Tp f0 = data010[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000015e-12));
+ }
// Test data for nu=0.33333333333333331.
-testcase_cyl_bessel_i<double> data002[] = {
+testcase_cyl_bessel_i<double> data011[] = {
{ 0.0000000000000000, 0.33333333333333331, 0.0000000000000000 },
{ 26.897553069268362, 0.33333333333333331, 5.0000000000000000 },
{ 2799.2396097056790, 0.33333333333333331, 10.000000000000000 },
- { 338348.63146593655, 0.33333333333333331, 15.000000000000000 },
- { 43434263.927938439, 0.33333333333333331, 20.000000000000000 },
+ { 338348.63146593666, 0.33333333333333331, 15.000000000000000 },
+ { 43434263.927938424, 0.33333333333333331, 20.000000000000000 },
{ 5761474759.6213636, 0.33333333333333331, 25.000000000000000 },
- { 780201111830.30225, 0.33333333333333331, 30.000000000000000 },
- { 107166066959051.92, 0.33333333333333331, 35.000000000000000 },
- { 14873836574083760., 0.33333333333333331, 40.000000000000000 },
+ { 780201111830.30237, 0.33333333333333331, 30.000000000000000 },
+ { 107166066959051.91, 0.33333333333333331, 35.000000000000000 },
+ { 14873836574083764., 0.33333333333333331, 40.000000000000000 },
{ 2.0808143020217085e+18, 0.33333333333333331, 45.000000000000000 },
- { 2.9292639365644229e+20, 0.33333333333333331, 50.000000000000000 },
+ { 2.9292639365644226e+20, 0.33333333333333331, 50.000000000000000 },
{ 4.1445621624120489e+22, 0.33333333333333331, 55.000000000000000 },
{ 5.8885758374365916e+24, 0.33333333333333331, 60.000000000000000 },
{ 8.3958047021083955e+26, 0.33333333333333331, 65.000000000000000 },
@@ -111,40 +600,42 @@
{ 1.7213548977150022e+31, 0.33333333333333331, 75.000000000000000 },
{ 2.4734492458444449e+33, 0.33333333333333331, 80.000000000000000 },
{ 3.5611354547857122e+35, 0.33333333333333331, 85.000000000000000 },
- { 5.1360491295551829e+37, 0.33333333333333331, 90.000000000000000 },
+ { 5.1360491295551848e+37, 0.33333333333333331, 90.000000000000000 },
{ 7.4189629097600431e+39, 0.33333333333333331, 95.000000000000000 },
{ 1.0731523308358370e+42, 0.33333333333333331, 100.00000000000000 },
};
// Test function for nu=0.33333333333333331.
-template <typename Tp>
-void test002()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data002)
- / sizeof(testcase_cyl_bessel_i<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_i(Tp(data002[i].nu), Tp(data002[i].x));
- const Tp f0 = data002[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(1.0000000000000008e-12));
-}
+template<typename Tp>
+ void
+ test011()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data011)
+ / sizeof(testcase_cyl_bessel_i<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_i(Tp(data011[i].nu), Tp(data011[i].x));
+ const Tp f0 = data011[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(1.0000000000000008e-12));
+ }
// Test data for nu=0.50000000000000000.
-testcase_cyl_bessel_i<double> data003[] = {
+testcase_cyl_bessel_i<double> data012[] = {
{ 0.0000000000000000, 0.50000000000000000, 0.0000000000000000 },
{ 26.477547497559065, 0.50000000000000000, 5.0000000000000000 },
{ 2778.7846038745711, 0.50000000000000000, 10.000000000000000 },
@@ -155,164 +646,170 @@
{ 106950522408567.66, 0.50000000000000000, 35.000000000000000 },
{ 14847705549021962., 0.50000000000000000, 40.000000000000000 },
{ 2.0775691824625661e+18, 0.50000000000000000, 45.000000000000000 },
- { 2.9251568529912988e+20, 0.50000000000000000, 50.000000000000000 },
+ { 2.9251568529912984e+20, 0.50000000000000000, 50.000000000000000 },
{ 4.1392840094781220e+22, 0.50000000000000000, 55.000000000000000 },
{ 5.8817065760751945e+24, 0.50000000000000000, 60.000000000000000 },
- { 8.3867695787277231e+26, 0.50000000000000000, 65.000000000000000 },
+ { 8.3867695787277258e+26, 0.50000000000000000, 65.000000000000000 },
{ 1.1994296461653203e+29, 0.50000000000000000, 70.000000000000000 },
- { 1.7197510246063332e+31, 0.50000000000000000, 75.000000000000000 },
+ { 1.7197510246063334e+31, 0.50000000000000000, 75.000000000000000 },
{ 2.4712895036230794e+33, 0.50000000000000000, 80.000000000000000 },
{ 3.5582099086757769e+35, 0.50000000000000000, 85.000000000000000 },
- { 5.1320654031231090e+37, 0.50000000000000000, 90.000000000000000 },
- { 7.4135128383495227e+39, 0.50000000000000000, 95.000000000000000 },
+ { 5.1320654031231128e+37, 0.50000000000000000, 90.000000000000000 },
+ { 7.4135128383495239e+39, 0.50000000000000000, 95.000000000000000 },
{ 1.0724035825423179e+42, 0.50000000000000000, 100.00000000000000 },
};
// Test function for nu=0.50000000000000000.
-template <typename Tp>
-void test003()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data003)
- / sizeof(testcase_cyl_bessel_i<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_i(Tp(data003[i].nu), Tp(data003[i].x));
- const Tp f0 = data003[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(1.0000000000000008e-12));
-}
+template<typename Tp>
+ void
+ test012()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data012)
+ / sizeof(testcase_cyl_bessel_i<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_i(Tp(data012[i].nu), Tp(data012[i].x));
+ const Tp f0 = data012[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(1.0000000000000008e-12));
+ }
// Test data for nu=0.66666666666666663.
-testcase_cyl_bessel_i<double> data004[] = {
+testcase_cyl_bessel_i<double> data013[] = {
{ 0.0000000000000000, 0.66666666666666663, 0.0000000000000000 },
{ 25.902310583215122, 0.66666666666666663, 5.0000000000000000 },
{ 2750.4090423459315, 0.66666666666666663, 10.000000000000000 },
- { 334476.98138574383, 0.66666666666666663, 15.000000000000000 },
+ { 334476.98138574377, 0.66666666666666663, 15.000000000000000 },
{ 43064361.686912313, 0.66666666666666663, 20.000000000000000 },
{ 5722397441.9603882, 0.66666666666666663, 25.000000000000000 },
{ 775804343498.02661, 0.66666666666666663, 30.000000000000000 },
- { 106649495512800.89, 0.66666666666666663, 35.000000000000000 },
+ { 106649495512800.88, 0.66666666666666663, 35.000000000000000 },
{ 14811199896983756., 0.66666666666666663, 40.000000000000000 },
{ 2.0730345814356961e+18, 0.66666666666666663, 45.000000000000000 },
{ 2.9194166755257467e+20, 0.66666666666666663, 50.000000000000000 },
- { 4.1319059569935366e+22, 0.66666666666666663, 55.000000000000000 },
+ { 4.1319059569935374e+22, 0.66666666666666663, 55.000000000000000 },
{ 5.8721031476386222e+24, 0.66666666666666663, 60.000000000000000 },
- { 8.3741368248217830e+26, 0.66666666666666663, 65.000000000000000 },
+ { 8.3741368248217844e+26, 0.66666666666666663, 65.000000000000000 },
{ 1.1977528777008688e+29, 0.66666666666666663, 70.000000000000000 },
{ 1.7175081240014333e+31, 0.66666666666666663, 75.000000000000000 },
{ 2.4682690458513916e+33, 0.66666666666666663, 80.000000000000000 },
{ 3.5541181975850724e+35, 0.66666666666666663, 85.000000000000000 },
- { 5.1264933963228864e+37, 0.66666666666666663, 90.000000000000000 },
+ { 5.1264933963228892e+37, 0.66666666666666663, 90.000000000000000 },
{ 7.4058894880134064e+39, 0.66666666666666663, 95.000000000000000 },
{ 1.0713562154788124e+42, 0.66666666666666663, 100.00000000000000 },
};
// Test function for nu=0.66666666666666663.
-template <typename Tp>
-void test004()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data004)
- / sizeof(testcase_cyl_bessel_i<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_i(Tp(data004[i].nu), Tp(data004[i].x));
- const Tp f0 = data004[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(5.0000000000000039e-13));
-}
+template<typename Tp>
+ void
+ test013()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data013)
+ / sizeof(testcase_cyl_bessel_i<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_i(Tp(data013[i].nu), Tp(data013[i].x));
+ const Tp f0 = data013[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(5.0000000000000039e-13));
+ }
// Test data for nu=1.0000000000000000.
-testcase_cyl_bessel_i<double> data005[] = {
+testcase_cyl_bessel_i<double> data014[] = {
{ 0.0000000000000000, 1.0000000000000000, 0.0000000000000000 },
{ 24.335642142450524, 1.0000000000000000, 5.0000000000000000 },
{ 2670.9883037012560, 1.0000000000000000, 10.000000000000000 },
{ 328124.92197020649, 1.0000000000000000, 15.000000000000000 },
- { 42454973.385127775, 1.0000000000000000, 20.000000000000000 },
+ { 42454973.385127783, 1.0000000000000000, 20.000000000000000 },
{ 5657865129.8787022, 1.0000000000000000, 25.000000000000000 },
{ 768532038938.95667, 1.0000000000000000, 30.000000000000000 },
{ 105794126051896.17, 1.0000000000000000, 35.000000000000000 },
{ 14707396163259354., 1.0000000000000000, 40.000000000000000 },
- { 2.0601334620815775e+18, 1.0000000000000000, 45.000000000000000 },
- { 2.9030785901035635e+20, 1.0000000000000000, 50.000000000000000 },
+ { 2.0601334620815780e+18, 1.0000000000000000, 45.000000000000000 },
+ { 2.9030785901035638e+20, 1.0000000000000000, 50.000000000000000 },
{ 4.1108986452992812e+22, 1.0000000000000000, 55.000000000000000 },
{ 5.8447515883904527e+24, 1.0000000000000000, 60.000000000000000 },
{ 8.3381485471501302e+26, 1.0000000000000000, 65.000000000000000 },
{ 1.1929750788892366e+29, 1.0000000000000000, 70.000000000000000 },
- { 1.7111160152965384e+31, 1.0000000000000000, 75.000000000000000 },
+ { 1.7111160152965382e+31, 1.0000000000000000, 75.000000000000000 },
{ 2.4596595795675343e+33, 1.0000000000000000, 80.000000000000000 },
{ 3.5424536064404024e+35, 1.0000000000000000, 85.000000000000000 },
{ 5.1106068152566129e+37, 1.0000000000000000, 90.000000000000000 },
- { 7.3841518091360157e+39, 1.0000000000000000, 95.000000000000000 },
+ { 7.3841518091360182e+39, 1.0000000000000000, 95.000000000000000 },
{ 1.0683693903381569e+42, 1.0000000000000000, 100.00000000000000 },
};
// Test function for nu=1.0000000000000000.
-template <typename Tp>
-void test005()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data005)
- / sizeof(testcase_cyl_bessel_i<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_i(Tp(data005[i].nu), Tp(data005[i].x));
- const Tp f0 = data005[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(5.0000000000000039e-13));
-}
+template<typename Tp>
+ void
+ test014()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data014)
+ / sizeof(testcase_cyl_bessel_i<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_i(Tp(data014[i].nu), Tp(data014[i].x));
+ const Tp f0 = data014[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(5.0000000000000039e-13));
+ }
// Test data for nu=2.0000000000000000.
-testcase_cyl_bessel_i<double> data006[] = {
+testcase_cyl_bessel_i<double> data015[] = {
{ 0.0000000000000000, 2.0000000000000000, 0.0000000000000000 },
{ 17.505614966624233, 2.0000000000000000, 5.0000000000000000 },
{ 2281.5189677260046, 2.0000000000000000, 10.000000000000000 },
- { 295899.38370188634, 2.0000000000000000, 15.000000000000000 },
+ { 295899.38370188628, 2.0000000000000000, 15.000000000000000 },
{ 39312785.221040756, 2.0000000000000000, 20.000000000000000 },
- { 5321931396.0760136, 2.0000000000000000, 25.000000000000000 },
+ { 5321931396.0760155, 2.0000000000000000, 25.000000000000000 },
{ 730436828561.38013, 2.0000000000000000, 30.000000000000000 },
{ 101293439862977.19, 2.0000000000000000, 35.000000000000000 },
- { 14159404985256920., 2.0000000000000000, 40.000000000000000 },
+ { 14159404985256922., 2.0000000000000000, 40.000000000000000 },
{ 1.9918525879736883e+18, 2.0000000000000000, 45.000000000000000 },
{ 2.8164306402451938e+20, 2.0000000000000000, 50.000000000000000 },
- { 3.9993023372677515e+22, 2.0000000000000000, 55.000000000000000 },
+ { 3.9993023372677540e+22, 2.0000000000000000, 55.000000000000000 },
{ 5.6992520026634433e+24, 2.0000000000000000, 60.000000000000000 },
{ 8.1464814287900378e+26, 2.0000000000000000, 65.000000000000000 },
{ 1.1675039556585663e+29, 2.0000000000000000, 70.000000000000000 },
@@ -320,91 +817,95 @@
{ 2.4136869148449879e+33, 2.0000000000000000, 80.000000000000000 },
{ 3.4801257808448186e+35, 2.0000000000000000, 85.000000000000000 },
{ 5.0256693051696307e+37, 2.0000000000000000, 90.000000000000000 },
- { 7.2678700343145842e+39, 2.0000000000000000, 95.000000000000000 },
+ { 7.2678700343145818e+39, 2.0000000000000000, 95.000000000000000 },
{ 1.0523843193243042e+42, 2.0000000000000000, 100.00000000000000 },
};
// Test function for nu=2.0000000000000000.
-template <typename Tp>
-void test006()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data006)
- / sizeof(testcase_cyl_bessel_i<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_i(Tp(data006[i].nu), Tp(data006[i].x));
- const Tp f0 = data006[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(5.0000000000000039e-13));
-}
+template<typename Tp>
+ void
+ test015()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data015)
+ / sizeof(testcase_cyl_bessel_i<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_i(Tp(data015[i].nu), Tp(data015[i].x));
+ const Tp f0 = data015[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(5.0000000000000039e-13));
+ }
// Test data for nu=5.0000000000000000.
-testcase_cyl_bessel_i<double> data007[] = {
+testcase_cyl_bessel_i<double> data016[] = {
{ 0.0000000000000000, 5.0000000000000000, 0.0000000000000000 },
{ 2.1579745473225476, 5.0000000000000000, 5.0000000000000000 },
{ 777.18828640326012, 5.0000000000000000, 10.000000000000000 },
- { 144572.01120063406, 5.0000000000000000, 15.000000000000000 },
+ { 144572.01120063409, 5.0000000000000000, 15.000000000000000 },
{ 23018392.213413671, 5.0000000000000000, 20.000000000000000 },
{ 3472466208.7419176, 5.0000000000000000, 25.000000000000000 },
{ 512151465476.93494, 5.0000000000000000, 30.000000000000000 },
- { 74756743552251.531, 5.0000000000000000, 35.000000000000000 },
- { 10858318337624276., 5.0000000000000000, 40.000000000000000 },
- { 1.5736087399245906e+18, 5.0000000000000000, 45.000000000000000 },
- { 2.2785483079112829e+20, 5.0000000000000000, 50.000000000000000 },
+ { 74756743552251.547, 5.0000000000000000, 35.000000000000000 },
+ { 10858318337624280., 5.0000000000000000, 40.000000000000000 },
+ { 1.5736087399245911e+18, 5.0000000000000000, 45.000000000000000 },
+ { 2.2785483079112825e+20, 5.0000000000000000, 50.000000000000000 },
{ 3.2989391052963687e+22, 5.0000000000000000, 55.000000000000000 },
- { 4.7777652072561742e+24, 5.0000000000000000, 60.000000000000000 },
- { 6.9232165147172671e+26, 5.0000000000000000, 65.000000000000000 },
- { 1.0038643002095153e+29, 5.0000000000000000, 70.000000000000000 },
- { 1.4566328222327068e+31, 5.0000000000000000, 75.000000000000000 },
- { 2.1151488565944838e+33, 5.0000000000000000, 80.000000000000000 },
- { 3.0735883450768236e+35, 5.0000000000000000, 85.000000000000000 },
+ { 4.7777652072561732e+24, 5.0000000000000000, 60.000000000000000 },
+ { 6.9232165147172657e+26, 5.0000000000000000, 65.000000000000000 },
+ { 1.0038643002095155e+29, 5.0000000000000000, 70.000000000000000 },
+ { 1.4566328222327073e+31, 5.0000000000000000, 75.000000000000000 },
+ { 2.1151488565944835e+33, 5.0000000000000000, 80.000000000000000 },
+ { 3.0735883450768239e+35, 5.0000000000000000, 85.000000000000000 },
{ 4.4694790189230327e+37, 5.0000000000000000, 90.000000000000000 },
- { 6.5037505570430971e+39, 5.0000000000000000, 95.000000000000000 },
+ { 6.5037505570430995e+39, 5.0000000000000000, 95.000000000000000 },
{ 9.4700938730355882e+41, 5.0000000000000000, 100.00000000000000 },
};
// Test function for nu=5.0000000000000000.
-template <typename Tp>
-void test007()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data007)
- / sizeof(testcase_cyl_bessel_i<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_i(Tp(data007[i].nu), Tp(data007[i].x));
- const Tp f0 = data007[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
-}
+template<typename Tp>
+ void
+ test016()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data016)
+ / sizeof(testcase_cyl_bessel_i<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_i(Tp(data016[i].nu), Tp(data016[i].x));
+ const Tp f0 = data016[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
// Test data for nu=10.000000000000000.
-testcase_cyl_bessel_i<double> data008[] = {
+testcase_cyl_bessel_i<double> data017[] = {
{ 0.0000000000000000, 10.000000000000000, 0.0000000000000000 },
{ 0.0045800444191760525, 10.000000000000000, 5.0000000000000000 },
{ 21.891706163723381, 10.000000000000000, 10.000000000000000 },
@@ -411,10 +912,10 @@
{ 12267.475049806462, 10.000000000000000, 15.000000000000000 },
{ 3540200.2090195213, 10.000000000000000, 20.000000000000000 },
{ 771298871.17072666, 10.000000000000000, 25.000000000000000 },
- { 145831809975.96713, 10.000000000000000, 30.000000000000000 },
- { 25449470018534.785, 10.000000000000000, 35.000000000000000 },
+ { 145831809975.96710, 10.000000000000000, 30.000000000000000 },
+ { 25449470018534.777, 10.000000000000000, 35.000000000000000 },
{ 4228469210516757.5, 10.000000000000000, 40.000000000000000 },
- { 6.8049404557505152e+17, 10.000000000000000, 45.000000000000000 },
+ { 6.8049404557505165e+17, 10.000000000000000, 45.000000000000000 },
{ 1.0715971594776370e+20, 10.000000000000000, 50.000000000000000 },
{ 1.6618215752886714e+22, 10.000000000000000, 55.000000000000000 },
{ 2.5486246072566784e+24, 10.000000000000000, 60.000000000000000 },
@@ -422,145 +923,151 @@
{ 5.8592538145409686e+28, 10.000000000000000, 70.000000000000000 },
{ 8.8135370711317444e+30, 10.000000000000000, 75.000000000000000 },
{ 1.3207418268325279e+33, 10.000000000000000, 80.000000000000000 },
- { 1.9732791360862186e+35, 10.000000000000000, 85.000000000000000 },
+ { 1.9732791360862190e+35, 10.000000000000000, 85.000000000000000 },
{ 2.9411893748384672e+37, 10.000000000000000, 90.000000000000000 },
- { 4.3754494922439990e+39, 10.000000000000000, 95.000000000000000 },
+ { 4.3754494922439984e+39, 10.000000000000000, 95.000000000000000 },
{ 6.4989755247201446e+41, 10.000000000000000, 100.00000000000000 },
};
// Test function for nu=10.000000000000000.
-template <typename Tp>
-void test008()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data008)
- / sizeof(testcase_cyl_bessel_i<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_i(Tp(data008[i].nu), Tp(data008[i].x));
- const Tp f0 = data008[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
-}
+template<typename Tp>
+ void
+ test017()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data017)
+ / sizeof(testcase_cyl_bessel_i<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_i(Tp(data017[i].nu), Tp(data017[i].x));
+ const Tp f0 = data017[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
// Test data for nu=20.000000000000000.
-testcase_cyl_bessel_i<double> data009[] = {
+testcase_cyl_bessel_i<double> data018[] = {
{ 0.0000000000000000, 20.000000000000000, 0.0000000000000000 },
{ 5.0242393579718066e-11, 20.000000000000000, 5.0000000000000000 },
{ 0.00012507997356449481, 20.000000000000000, 10.000000000000000 },
- { 1.6470152535015834, 20.000000000000000, 15.000000000000000 },
+ { 1.6470152535015836, 20.000000000000000, 15.000000000000000 },
{ 3188.7503288536154, 20.000000000000000, 20.000000000000000 },
{ 2449840.5422952301, 20.000000000000000, 25.000000000000000 },
{ 1126985104.4483771, 20.000000000000000, 30.000000000000000 },
- { 379617876611.88586, 20.000000000000000, 35.000000000000000 },
+ { 379617876611.88580, 20.000000000000000, 35.000000000000000 },
{ 104459633129479.89, 20.000000000000000, 40.000000000000000 },
- { 25039579987216504., 20.000000000000000, 45.000000000000000 },
- { 5.4420084027529964e+18, 20.000000000000000, 50.000000000000000 },
- { 1.1007498584335492e+21, 20.000000000000000, 55.000000000000000 },
+ { 25039579987216524., 20.000000000000000, 45.000000000000000 },
+ { 5.4420084027529984e+18, 20.000000000000000, 50.000000000000000 },
+ { 1.1007498584335495e+21, 20.000000000000000, 55.000000000000000 },
{ 2.1091734863057236e+23, 20.000000000000000, 60.000000000000000 },
{ 3.8763618091286899e+25, 20.000000000000000, 65.000000000000000 },
- { 6.8946130527930859e+27, 20.000000000000000, 70.000000000000000 },
+ { 6.8946130527930870e+27, 20.000000000000000, 70.000000000000000 },
{ 1.1946319948836447e+30, 20.000000000000000, 75.000000000000000 },
- { 2.0265314377577580e+32, 20.000000000000000, 80.000000000000000 },
- { 3.3784665214179971e+34, 20.000000000000000, 85.000000000000000 },
- { 5.5516089411796670e+36, 20.000000000000000, 90.000000000000000 },
+ { 2.0265314377577587e+32, 20.000000000000000, 80.000000000000000 },
+ { 3.3784665214179985e+34, 20.000000000000000, 85.000000000000000 },
+ { 5.5516089411796646e+36, 20.000000000000000, 90.000000000000000 },
{ 9.0129310795305151e+38, 20.000000000000000, 95.000000000000000 },
{ 1.4483461256427176e+41, 20.000000000000000, 100.00000000000000 },
};
// Test function for nu=20.000000000000000.
-template <typename Tp>
-void test009()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data009)
- / sizeof(testcase_cyl_bessel_i<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_i(Tp(data009[i].nu), Tp(data009[i].x));
- const Tp f0 = data009[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
-}
+template<typename Tp>
+ void
+ test018()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data018)
+ / sizeof(testcase_cyl_bessel_i<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_i(Tp(data018[i].nu), Tp(data018[i].x));
+ const Tp f0 = data018[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
// Test data for nu=50.000000000000000.
-testcase_cyl_bessel_i<double> data010[] = {
+testcase_cyl_bessel_i<double> data019[] = {
{ 0.0000000000000000, 50.000000000000000, 0.0000000000000000 },
{ 2.9314696468108517e-45, 50.000000000000000, 5.0000000000000000 },
{ 4.7568945607268442e-30, 50.000000000000000, 10.000000000000000 },
{ 5.5468372730667069e-21, 50.000000000000000, 15.000000000000000 },
{ 2.2551205757604056e-14, 50.000000000000000, 20.000000000000000 },
- { 4.5344251866130282e-09, 50.000000000000000, 25.000000000000000 },
- { 0.00014590106916468937, 50.000000000000000, 30.000000000000000 },
- { 1.3965549457254878, 50.000000000000000, 35.000000000000000 },
- { 5726.8656631289878, 50.000000000000000, 40.000000000000000 },
- { 12672593.113027776, 50.000000000000000, 45.000000000000000 },
- { 17650802430.016705, 50.000000000000000, 50.000000000000000 },
+ { 4.5344251866130257e-09, 50.000000000000000, 25.000000000000000 },
+ { 0.00014590106916468940, 50.000000000000000, 30.000000000000000 },
+ { 1.3965549457254882, 50.000000000000000, 35.000000000000000 },
+ { 5726.8656631289896, 50.000000000000000, 40.000000000000000 },
+ { 12672593.113027781, 50.000000000000000, 45.000000000000000 },
+ { 17650802430.016712, 50.000000000000000, 50.000000000000000 },
{ 17220231607789.926, 50.000000000000000, 55.000000000000000 },
- { 12704607933652172., 50.000000000000000, 60.000000000000000 },
- { 7.4989491942193766e+18, 50.000000000000000, 65.000000000000000 },
- { 3.6944034898904901e+21, 50.000000000000000, 70.000000000000000 },
- { 1.5691634774370194e+24, 50.000000000000000, 75.000000000000000 },
+ { 12704607933652176., 50.000000000000000, 60.000000000000000 },
+ { 7.4989491942193725e+18, 50.000000000000000, 65.000000000000000 },
+ { 3.6944034898904922e+21, 50.000000000000000, 70.000000000000000 },
+ { 1.5691634774370186e+24, 50.000000000000000, 75.000000000000000 },
{ 5.8927749458163587e+26, 50.000000000000000, 80.000000000000000 },
{ 1.9958849054749339e+29, 50.000000000000000, 85.000000000000000 },
- { 6.1946050361781518e+31, 50.000000000000000, 90.000000000000000 },
- { 1.7845429728697110e+34, 50.000000000000000, 95.000000000000000 },
- { 4.8219580855940813e+36, 50.000000000000000, 100.00000000000000 },
+ { 6.1946050361781500e+31, 50.000000000000000, 90.000000000000000 },
+ { 1.7845429728697119e+34, 50.000000000000000, 95.000000000000000 },
+ { 4.8219580855940819e+36, 50.000000000000000, 100.00000000000000 },
};
// Test function for nu=50.000000000000000.
-template <typename Tp>
-void test010()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data010)
- / sizeof(testcase_cyl_bessel_i<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_i(Tp(data010[i].nu), Tp(data010[i].x));
- const Tp f0 = data010[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(5.0000000000000029e-12));
-}
+template<typename Tp>
+ void
+ test019()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data019)
+ / sizeof(testcase_cyl_bessel_i<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_i(Tp(data019[i].nu), Tp(data019[i].x));
+ const Tp f0 = data019[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(5.0000000000000029e-12));
+ }
// Test data for nu=100.00000000000000.
-testcase_cyl_bessel_i<double> data011[] = {
+testcase_cyl_bessel_i<double> data020[] = {
{ 0.0000000000000000, 100.00000000000000, 0.0000000000000000 },
{ 7.0935514885313123e-119, 100.00000000000000, 5.0000000000000000 },
{ 1.0823442017492018e-88, 100.00000000000000, 10.000000000000000 },
@@ -568,50 +1075,53 @@
{ 2.8703193216428771e-58, 100.00000000000000, 20.000000000000000 },
{ 2.4426896913122370e-48, 100.00000000000000, 25.000000000000000 },
{ 3.9476420053334271e-40, 100.00000000000000, 30.000000000000000 },
- { 4.2836596180818801e-33, 100.00000000000000, 35.000000000000000 },
+ { 4.2836596180818780e-33, 100.00000000000000, 35.000000000000000 },
{ 6.6249380222596129e-27, 100.00000000000000, 40.000000000000000 },
- { 2.3702587262788881e-21, 100.00000000000000, 45.000000000000000 },
- { 2.7278879470966907e-16, 100.00000000000000, 50.000000000000000 },
- { 1.2763258878228088e-11, 100.00000000000000, 55.000000000000000 },
- { 2.8832770906491951e-07, 100.00000000000000, 60.000000000000000 },
- { 0.0035805902717061240, 100.00000000000000, 65.000000000000000 },
- { 27.017219102595398, 100.00000000000000, 70.000000000000000 },
+ { 2.3702587262788900e-21, 100.00000000000000, 45.000000000000000 },
+ { 2.7278879470966917e-16, 100.00000000000000, 50.000000000000000 },
+ { 1.2763258878228082e-11, 100.00000000000000, 55.000000000000000 },
+ { 2.8832770906491972e-07, 100.00000000000000, 60.000000000000000 },
+ { 0.0035805902717061227, 100.00000000000000, 65.000000000000000 },
+ { 27.017219102595387, 100.00000000000000, 70.000000000000000 },
{ 134001.44891209516, 100.00000000000000, 75.000000000000000 },
- { 465194832.85061038, 100.00000000000000, 80.000000000000000 },
- { 1189280653119.4819, 100.00000000000000, 85.000000000000000 },
- { 2334119331258731.0, 100.00000000000000, 90.000000000000000 },
- { 3.6399223078502380e+18, 100.00000000000000, 95.000000000000000 },
- { 4.6415349416161989e+21, 100.00000000000000, 100.00000000000000 },
+ { 465194832.85060996, 100.00000000000000, 80.000000000000000 },
+ { 1189280653119.4814, 100.00000000000000, 85.000000000000000 },
+ { 2334119331258728.0, 100.00000000000000, 90.000000000000000 },
+ { 3.6399223078502436e+18, 100.00000000000000, 95.000000000000000 },
+ { 4.6415349416162005e+21, 100.00000000000000, 100.00000000000000 },
};
// Test function for nu=100.00000000000000.
-template <typename Tp>
-void test011()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data011)
- / sizeof(testcase_cyl_bessel_i<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_i(Tp(data011[i].nu), Tp(data011[i].x));
- const Tp f0 = data011[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
-}
+template<typename Tp>
+ void
+ test020()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data020)
+ / sizeof(testcase_cyl_bessel_i<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_i(Tp(data020[i].nu), Tp(data020[i].x));
+ const Tp f0 = data020[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
+ }
-int main(int, char**)
+int
+main()
{
test001<double>();
test002<double>();
@@ -624,5 +1134,14 @@
test009<double>();
test010<double>();
test011<double>();
+ test012<double>();
+ test013<double>();
+ test014<double>();
+ test015<double>();
+ test016<double>();
+ test017<double>();
+ test018<double>();
+ test019<double>();
+ test020<double>();
return 0;
}
Index: testsuite/tr1/5_numerical_facilities/special_functions/09_cyl_bessel_j/check_value.cc
===================================================================
--- testsuite/tr1/5_numerical_facilities/special_functions/09_cyl_bessel_j/check_value.cc (revision 232104)
+++ testsuite/tr1/5_numerical_facilities/special_functions/09_cyl_bessel_j/check_value.cc (working copy)
@@ -42,525 +42,1032 @@
// Test data for nu=0.0000000000000000.
testcase_cyl_bessel_j<double> data001[] = {
{ 1.0000000000000000, 0.0000000000000000, 0.0000000000000000 },
+ { 0.98443592929585266, 0.0000000000000000, 0.25000000000000000 },
+ { 0.93846980724081297, 0.0000000000000000, 0.50000000000000000 },
+ { 0.86424227516664853, 0.0000000000000000, 0.75000000000000000 },
+ { 0.76519768655796661, 0.0000000000000000, 1.0000000000000000 },
+ { 0.64590608527128535, 0.0000000000000000, 1.2500000000000000 },
+ { 0.51182767173591814, 0.0000000000000000, 1.5000000000000000 },
+ { 0.36903253018515075, 0.0000000000000000, 1.7500000000000000 },
+ { 0.22389077914123562, 0.0000000000000000, 2.0000000000000000 },
+ { 0.082749851288734022, 0.0000000000000000, 2.2500000000000000 },
+ { -0.048383776468197998, 0.0000000000000000, 2.5000000000000000 },
+ { -0.16414142780851368, 0.0000000000000000, 2.7500000000000000 },
+ { -0.26005195490193334, 0.0000000000000000, 3.0000000000000000 },
+ { -0.33275080217061132, 0.0000000000000000, 3.2500000000000000 },
+ { -0.38012773998726335, 0.0000000000000000, 3.5000000000000000 },
+ { -0.40140605493617426, 0.0000000000000000, 3.7500000000000000 },
+ { -0.39714980986384740, 0.0000000000000000, 4.0000000000000000 },
+ { -0.36919977029989554, 0.0000000000000000, 4.2500000000000000 },
+ { -0.32054250898512149, 0.0000000000000000, 4.5000000000000000 },
+ { -0.25512082749137405, 0.0000000000000000, 4.7500000000000000 },
{ -0.17759677131433835, 0.0000000000000000, 5.0000000000000000 },
- { -0.24593576445134832, 0.0000000000000000, 10.000000000000000 },
- { -0.014224472826780788, 0.0000000000000000, 15.000000000000000 },
+};
+
+// Test function for nu=0.0000000000000000.
+template<typename Tp>
+ void
+ test001()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data001)
+ / sizeof(testcase_cyl_bessel_j<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_j(Tp(data001[i].nu), Tp(data001[i].x));
+ const Tp f0 = data001[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=0.33333333333333331.
+testcase_cyl_bessel_j<double> data002[] = {
+ { 0.0000000000000000, 0.33333333333333331, 0.0000000000000000 },
+ { 0.55338359549647709, 0.33333333333333331, 0.25000000000000000 },
+ { 0.67283082949794537, 0.33333333333333331, 0.50000000000000000 },
+ { 0.72490863199379008, 0.33333333333333331, 0.75000000000000000 },
+ { 0.73087640216944760, 0.33333333333333331, 1.0000000000000000 },
+ { 0.69953374433894455, 0.33333333333333331, 1.2500000000000000 },
+ { 0.63713263706489176, 0.33333333333333331, 1.5000000000000000 },
+ { 0.54956352730788460, 0.33333333333333331, 1.7500000000000000 },
+ { 0.44293981814857586, 0.33333333333333331, 2.0000000000000000 },
+ { 0.32366988946292502, 0.33333333333333331, 2.2500000000000000 },
+ { 0.19832093341860796, 0.33333333333333331, 2.5000000000000000 },
+ { 0.073389637874297489, 0.33333333333333331, 2.7500000000000000 },
+ { -0.044963820940233351, 0.33333333333333331, 3.0000000000000000 },
+ { -0.15118395956666372, 0.33333333333333331, 3.2500000000000000 },
+ { -0.24056593952693625, 0.33333333333333331, 3.5000000000000000 },
+ { -0.30946094681921288, 0.33333333333333331, 3.7500000000000000 },
+ { -0.35542737345457609, 0.33333333333333331, 4.0000000000000000 },
+ { -0.37731852825457068, 0.33333333333333331, 4.2500000000000000 },
+ { -0.37530189159358079, 0.33333333333333331, 4.5000000000000000 },
+ { -0.35080916720916927, 0.33333333333333331, 4.7500000000000000 },
+ { -0.30642046380026405, 0.33333333333333331, 5.0000000000000000 },
+};
+
+// Test function for nu=0.33333333333333331.
+template<typename Tp>
+ void
+ test002()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data002)
+ / sizeof(testcase_cyl_bessel_j<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_j(Tp(data002[i].nu), Tp(data002[i].x));
+ const Tp f0 = data002[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=0.50000000000000000.
+testcase_cyl_bessel_j<double> data003[] = {
+ { 0.0000000000000000, 0.50000000000000000, 0.0000000000000000 },
+ { 0.39479959874136972, 0.50000000000000000, 0.25000000000000000 },
+ { 0.54097378993452760, 0.50000000000000000, 0.50000000000000000 },
+ { 0.62800587637588623, 0.50000000000000000, 0.75000000000000000 },
+ { 0.67139670714180244, 0.50000000000000000, 1.0000000000000000 },
+ { 0.67724253810014312, 0.50000000000000000, 1.2500000000000000 },
+ { 0.64983807475374655, 0.50000000000000000, 1.5000000000000000 },
+ { 0.59348525447147382, 0.50000000000000000, 1.7500000000000000 },
+ { 0.51301613656182721, 0.50000000000000000, 2.0000000000000000 },
+ { 0.41387506064759982, 0.50000000000000000, 2.2500000000000000 },
+ { 0.30200490606236535, 0.50000000000000000, 2.5000000000000000 },
+ { 0.18363332138431521, 0.50000000000000000, 2.7500000000000000 },
+ { 0.065008182877375753, 0.50000000000000000, 3.0000000000000000 },
+ { -0.047885729975898544, 0.50000000000000000, 3.2500000000000000 },
+ { -0.14960456964952620, 0.50000000000000000, 3.5000000000000000 },
+ { -0.23549801845815513, 0.50000000000000000, 3.7500000000000000 },
+ { -0.30192051329163944, 0.50000000000000000, 4.0000000000000000 },
+ { -0.34638850218952444, 0.50000000000000000, 4.2500000000000000 },
+ { -0.36767487332724025, 0.50000000000000000, 4.5000000000000000 },
+ { -0.36583563802350400, 0.50000000000000000, 4.7500000000000000 },
+ { -0.34216798479816180, 0.50000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=0.50000000000000000.
+template<typename Tp>
+ void
+ test003()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data003)
+ / sizeof(testcase_cyl_bessel_j<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_j(Tp(data003[i].nu), Tp(data003[i].x));
+ const Tp f0 = data003[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=0.66666666666666663.
+testcase_cyl_bessel_j<double> data004[] = {
+ { 0.0000000000000000, 0.66666666666666663, 0.0000000000000000 },
+ { 0.27434438998865135, 0.66666666666666663, 0.25000000000000000 },
+ { 0.42331075068448321, 0.66666666666666663, 0.50000000000000000 },
+ { 0.52870551548162792, 0.66666666666666663, 0.75000000000000000 },
+ { 0.59794997367362801, 0.66666666666666663, 1.0000000000000000 },
+ { 0.63338726889075891, 0.66666666666666663, 1.2500000000000000 },
+ { 0.63673234502877385, 0.66666666666666663, 1.5000000000000000 },
+ { 0.61022230460131899, 0.66666666666666663, 1.7500000000000000 },
+ { 0.55696967691913712, 0.66666666666666663, 2.0000000000000000 },
+ { 0.48101276749106114, 0.66666666666666663, 2.2500000000000000 },
+ { 0.38721242477084306, 0.66666666666666663, 2.5000000000000000 },
+ { 0.28105724771080542, 0.66666666666666663, 2.7500000000000000 },
+ { 0.16841218049067044, 0.66666666666666663, 3.0000000000000000 },
+ { 0.055235893475364915, 0.66666666666666663, 3.2500000000000000 },
+ { -0.052711584404031925, 0.66666666666666663, 3.5000000000000000 },
+ { -0.15015178042293029, 0.66666666666666663, 3.7500000000000000 },
+ { -0.23254408502670390, 0.66666666666666663, 4.0000000000000000 },
+ { -0.29630067002972543, 0.66666666666666663, 4.2500000000000000 },
+ { -0.33894810189777724, 0.66666666666666663, 4.5000000000000000 },
+ { -0.35922706960321099, 0.66666666666666663, 4.7500000000000000 },
+ { -0.35712533549168868, 0.66666666666666663, 5.0000000000000000 },
+};
+
+// Test function for nu=0.66666666666666663.
+template<typename Tp>
+ void
+ test004()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data004)
+ / sizeof(testcase_cyl_bessel_j<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_j(Tp(data004[i].nu), Tp(data004[i].x));
+ const Tp f0 = data004[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=1.0000000000000000.
+testcase_cyl_bessel_j<double> data005[] = {
+ { 0.0000000000000000, 1.0000000000000000, 0.0000000000000000 },
+ { 0.12402597732272694, 1.0000000000000000, 0.25000000000000000 },
+ { 0.24226845767487390, 1.0000000000000000, 0.50000000000000000 },
+ { 0.34924360217486222, 1.0000000000000000, 0.75000000000000000 },
+ { 0.44005058574493355, 1.0000000000000000, 1.0000000000000000 },
+ { 0.51062326031988059, 1.0000000000000000, 1.2500000000000000 },
+ { 0.55793650791009952, 1.0000000000000000, 1.5000000000000000 },
+ { 0.58015619763899240, 1.0000000000000000, 1.7500000000000000 },
+ { 0.57672480775687363, 1.0000000000000000, 2.0000000000000000 },
+ { 0.54837835664696011, 1.0000000000000000, 2.2500000000000000 },
+ { 0.49709410246427416, 1.0000000000000000, 2.5000000000000000 },
+ { 0.42597230295790256, 1.0000000000000000, 2.7500000000000000 },
+ { 0.33905895852593648, 1.0000000000000000, 3.0000000000000000 },
+ { 0.24111968801520400, 1.0000000000000000, 3.2500000000000000 },
+ { 0.13737752736232706, 1.0000000000000000, 3.5000000000000000 },
+ { 0.033229349129679724, 1.0000000000000000, 3.7500000000000000 },
+ { -0.066043328023549230, 1.0000000000000000, 4.0000000000000000 },
+ { -0.15555319297834286, 1.0000000000000000, 4.2500000000000000 },
+ { -0.23106043192337070, 1.0000000000000000, 4.5000000000000000 },
+ { -0.28918679864711044, 1.0000000000000000, 4.7500000000000000 },
+ { -0.32757913759146529, 1.0000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=1.0000000000000000.
+template<typename Tp>
+ void
+ test005()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data005)
+ / sizeof(testcase_cyl_bessel_j<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_j(Tp(data005[i].nu), Tp(data005[i].x));
+ const Tp f0 = data005[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=2.0000000000000000.
+testcase_cyl_bessel_j<double> data006[] = {
+ { 0.0000000000000000, 2.0000000000000000, 0.0000000000000000 },
+ { 0.0077718892859626760, 2.0000000000000000, 0.25000000000000000 },
+ { 0.030604023458682638, 2.0000000000000000, 0.50000000000000000 },
+ { 0.067073997299650551, 2.0000000000000000, 0.75000000000000000 },
+ { 0.11490348493190047, 2.0000000000000000, 1.0000000000000000 },
+ { 0.17109113124052350, 2.0000000000000000, 1.2500000000000000 },
+ { 0.23208767214421472, 2.0000000000000000, 1.5000000000000000 },
+ { 0.29400312425941216, 2.0000000000000000, 1.7500000000000000 },
+ { 0.35283402861563773, 2.0000000000000000, 2.0000000000000000 },
+ { 0.40469757684189717, 2.0000000000000000, 2.2500000000000000 },
+ { 0.44605905843961718, 2.0000000000000000, 2.5000000000000000 },
+ { 0.47393946632335160, 2.0000000000000000, 2.7500000000000000 },
+ { 0.48609126058589119, 2.0000000000000000, 3.0000000000000000 },
+ { 0.48113214864150627, 2.0000000000000000, 3.2500000000000000 },
+ { 0.45862918419430765, 2.0000000000000000, 3.5000000000000000 },
+ { 0.41912837447200352, 2.0000000000000000, 3.7500000000000000 },
+ { 0.36412814585207293, 2.0000000000000000, 4.0000000000000000 },
+ { 0.29599826772185189, 2.0000000000000000, 4.2500000000000000 },
+ { 0.21784898368584549, 2.0000000000000000, 4.5000000000000000 },
+ { 0.13335796490311685, 2.0000000000000000, 4.7500000000000000 },
+ { 0.046565116277751971, 2.0000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=2.0000000000000000.
+template<typename Tp>
+ void
+ test006()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data006)
+ / sizeof(testcase_cyl_bessel_j<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_j(Tp(data006[i].nu), Tp(data006[i].x));
+ const Tp f0 = data006[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=5.0000000000000000.
+testcase_cyl_bessel_j<double> data007[] = {
+ { 0.0000000000000000, 5.0000000000000000, 0.0000000000000000 },
+ { 2.5365161587472413e-07, 5.0000000000000000, 0.25000000000000000 },
+ { 8.0536272413574753e-06, 5.0000000000000000, 0.50000000000000000 },
+ { 6.0364166510576438e-05, 5.0000000000000000, 0.75000000000000000 },
+ { 0.00024975773021123450, 5.0000000000000000, 1.0000000000000000 },
+ { 0.00074440885254749821, 5.0000000000000000, 1.2500000000000000 },
+ { 0.0017994217673606111, 5.0000000000000000, 1.5000000000000000 },
+ { 0.0037577257273157133, 5.0000000000000000, 1.7500000000000000 },
+ { 0.0070396297558716842, 5.0000000000000000, 2.0000000000000000 },
+ { 0.012121078633445751, 5.0000000000000000, 2.2500000000000000 },
+ { 0.019501625134503223, 5.0000000000000000, 2.5000000000000000 },
+ { 0.029664058320006174, 5.0000000000000000, 2.7500000000000000 },
+ { 0.043028434877047578, 5.0000000000000000, 3.0000000000000000 },
+ { 0.059903888098560426, 5.0000000000000000, 3.2500000000000000 },
+ { 0.080441986647991792, 5.0000000000000000, 3.5000000000000000 },
+ { 0.10459554742314070, 5.0000000000000000, 3.7500000000000000 },
+ { 0.13208665604709827, 5.0000000000000000, 4.0000000000000000 },
+ { 0.16238721643623680, 5.0000000000000000, 4.2500000000000000 },
+ { 0.19471465863871368, 5.0000000000000000, 4.5000000000000000 },
+ { 0.22804452118769436, 5.0000000000000000, 4.7500000000000000 },
+ { 0.26114054612017007, 5.0000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=5.0000000000000000.
+template<typename Tp>
+ void
+ test007()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data007)
+ / sizeof(testcase_cyl_bessel_j<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_j(Tp(data007[i].nu), Tp(data007[i].x));
+ const Tp f0 = data007[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=10.000000000000000.
+testcase_cyl_bessel_j<double> data008[] = {
+ { 0.0000000000000000, 10.000000000000000, 0.0000000000000000 },
+ { 2.5628321598050096e-16, 10.000000000000000, 0.25000000000000000 },
+ { 2.6131773608228023e-13, 10.000000000000000, 0.50000000000000000 },
+ { 1.4962171311759677e-11, 10.000000000000000, 0.75000000000000000 },
+ { 2.6306151236874524e-10, 10.000000000000000, 1.0000000000000000 },
+ { 2.4187548221114514e-09, 10.000000000000000, 1.2500000000000000 },
+ { 1.4743269078039996e-08, 10.000000000000000, 1.5000000000000000 },
+ { 6.7608502849897560e-08, 10.000000000000000, 1.7500000000000000 },
+ { 2.5153862827167358e-07, 10.000000000000000, 2.0000000000000000 },
+ { 7.9717051583730038e-07, 10.000000000000000, 2.2500000000000000 },
+ { 2.2247284173983839e-06, 10.000000000000000, 2.5000000000000000 },
+ { 5.5985475639210430e-06, 10.000000000000000, 2.7500000000000000 },
+ { 1.2928351645715880e-05, 10.000000000000000, 3.0000000000000000 },
+ { 2.7761691354244538e-05, 10.000000000000000, 3.2500000000000000 },
+ { 5.6009495875078844e-05, 10.000000000000000, 3.5000000000000000 },
+ { 0.00010703761729231951, 10.000000000000000, 3.7500000000000000 },
+ { 0.00019504055466003446, 10.000000000000000, 4.0000000000000000 },
+ { 0.00034068888474064193, 10.000000000000000, 4.2500000000000000 },
+ { 0.00057300977667164505, 10.000000000000000, 4.5000000000000000 },
+ { 0.00093142172588886810, 10.000000000000000, 4.7500000000000000 },
+ { 0.0014678026473104744, 10.000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=10.000000000000000.
+template<typename Tp>
+ void
+ test008()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data008)
+ / sizeof(testcase_cyl_bessel_j<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_j(Tp(data008[i].nu), Tp(data008[i].x));
+ const Tp f0 = data008[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=20.000000000000000.
+testcase_cyl_bessel_j<double> data009[] = {
+ { 0.0000000000000000, 20.000000000000000, 0.0000000000000000 },
+ { 3.5624805510586969e-37, 20.000000000000000, 0.25000000000000000 },
+ { 3.7272019617047132e-31, 20.000000000000000, 0.50000000000000000 },
+ { 1.2347870693633488e-27, 20.000000000000000, 0.75000000000000000 },
+ { 3.8735030085246562e-25, 20.000000000000000, 1.0000000000000000 },
+ { 3.3372897667043766e-23, 20.000000000000000, 1.2500000000000000 },
+ { 1.2689972189332558e-21, 20.000000000000000, 1.5000000000000000 },
+ { 2.7427715944032989e-20, 20.000000000000000, 1.7500000000000000 },
+ { 3.9189728050907524e-19, 20.000000000000000, 2.0000000000000000 },
+ { 4.0805232551365158e-18, 20.000000000000000, 2.2500000000000000 },
+ { 3.3090793836587786e-17, 20.000000000000000, 2.5000000000000000 },
+ { 2.1915404680645990e-16, 20.000000000000000, 2.7500000000000000 },
+ { 1.2275946737992981e-15, 20.000000000000000, 3.0000000000000000 },
+ { 5.9727663938305382e-15, 20.000000000000000, 3.2500000000000000 },
+ { 2.5768553102807590e-14, 20.000000000000000, 3.5000000000000000 },
+ { 1.0021112208287217e-13, 20.000000000000000, 3.7500000000000000 },
+ { 3.5595116285938516e-13, 20.000000000000000, 4.0000000000000000 },
+ { 1.1673622958555074e-12, 20.000000000000000, 4.2500000000000000 },
+ { 3.5665470983611762e-12, 20.000000000000000, 4.5000000000000000 },
+ { 1.0227564044880958e-11, 20.000000000000000, 4.7500000000000000 },
+ { 2.7703300521289426e-11, 20.000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=20.000000000000000.
+template<typename Tp>
+ void
+ test009()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data009)
+ / sizeof(testcase_cyl_bessel_j<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_j(Tp(data009[i].nu), Tp(data009[i].x));
+ const Tp f0 = data009[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+// cyl_bessel_j
+
+// Test data for nu=0.0000000000000000.
+testcase_cyl_bessel_j<double> data010[] = {
+ { 1.0000000000000000, 0.0000000000000000, 0.0000000000000000 },
+ { -0.17759677131433835, 0.0000000000000000, 5.0000000000000000 },
+ { -0.24593576445134835, 0.0000000000000000, 10.000000000000000 },
+ { -0.014224472826780771, 0.0000000000000000, 15.000000000000000 },
{ 0.16702466434058319, 0.0000000000000000, 20.000000000000000 },
- { 0.096266783275958140, 0.0000000000000000, 25.000000000000000 },
- { -0.086367983581040184, 0.0000000000000000, 30.000000000000000 },
+ { 0.096266783275958154, 0.0000000000000000, 25.000000000000000 },
+ { -0.086367983581040142, 0.0000000000000000, 30.000000000000000 },
{ -0.12684568275631256, 0.0000000000000000, 35.000000000000000 },
- { 0.0073668905842372914, 0.0000000000000000, 40.000000000000000 },
- { 0.11581867067325630, 0.0000000000000000, 45.000000000000000 },
+ { 0.0073668905842374085, 0.0000000000000000, 40.000000000000000 },
+ { 0.11581867067325631, 0.0000000000000000, 45.000000000000000 },
{ 0.055812327669251746, 0.0000000000000000, 50.000000000000000 },
{ -0.074548302648236808, 0.0000000000000000, 55.000000000000000 },
- { -0.091471804089061873, 0.0000000000000000, 60.000000000000000 },
- { 0.018687343227677920, 0.0000000000000000, 65.000000000000000 },
- { 0.094908726483013517, 0.0000000000000000, 70.000000000000000 },
- { 0.034643913805097029, 0.0000000000000000, 75.000000000000000 },
- { -0.069742165512210061, 0.0000000000000000, 80.000000000000000 },
- { -0.070940394796273301, 0.0000000000000000, 85.000000000000000 },
- { 0.026630016699969568, 0.0000000000000000, 90.000000000000000 },
- { 0.081811967783384149, 0.0000000000000000, 95.000000000000000 },
- { 0.019985850304223264, 0.0000000000000000, 100.00000000000000 },
+ { -0.091471804089061859, 0.0000000000000000, 60.000000000000000 },
+ { 0.018687343227677979, 0.0000000000000000, 65.000000000000000 },
+ { 0.094908726483013545, 0.0000000000000000, 70.000000000000000 },
+ { 0.034643913805097008, 0.0000000000000000, 75.000000000000000 },
+ { -0.069742165512210033, 0.0000000000000000, 80.000000000000000 },
+ { -0.070940394796273273, 0.0000000000000000, 85.000000000000000 },
+ { 0.026630016699969526, 0.0000000000000000, 90.000000000000000 },
+ { 0.081811967783384135, 0.0000000000000000, 95.000000000000000 },
+ { 0.019985850304223170, 0.0000000000000000, 100.00000000000000 },
};
// Test function for nu=0.0000000000000000.
-template <typename Tp>
-void test001()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data001)
- / sizeof(testcase_cyl_bessel_j<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_j(Tp(data001[i].nu), Tp(data001[i].x));
- const Tp f0 = data001[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
-}
+template<typename Tp>
+ void
+ test010()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data010)
+ / sizeof(testcase_cyl_bessel_j<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_j(Tp(data010[i].nu), Tp(data010[i].x));
+ const Tp f0 = data010[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
+ }
// Test data for nu=0.33333333333333331.
-testcase_cyl_bessel_j<double> data002[] = {
+testcase_cyl_bessel_j<double> data011[] = {
{ 0.0000000000000000, 0.33333333333333331, 0.0000000000000000 },
{ -0.30642046380026405, 0.33333333333333331, 5.0000000000000000 },
- { -0.18614516704869569, 0.33333333333333331, 10.000000000000000 },
- { 0.089740004221152581, 0.33333333333333331, 15.000000000000000 },
- { 0.17606058001293898, 0.33333333333333331, 20.000000000000000 },
- { 0.020097162141383202, 0.33333333333333331, 25.000000000000000 },
- { -0.13334053387426156, 0.33333333333333331, 30.000000000000000 },
- { -0.087118009397765442, 0.33333333333333331, 35.000000000000000 },
- { 0.069202942818858165, 0.33333333333333331, 40.000000000000000 },
+ { -0.18614516704869571, 0.33333333333333331, 10.000000000000000 },
+ { 0.089740004221152650, 0.33333333333333331, 15.000000000000000 },
+ { 0.17606058001293901, 0.33333333333333331, 20.000000000000000 },
+ { 0.020097162141383233, 0.33333333333333331, 25.000000000000000 },
+ { -0.13334053387426159, 0.33333333333333331, 30.000000000000000 },
+ { -0.087118009397765497, 0.33333333333333331, 35.000000000000000 },
+ { 0.069202942818858179, 0.33333333333333331, 40.000000000000000 },
{ 0.11387616964518317, 0.33333333333333331, 45.000000000000000 },
- { -0.00057226680771807741, 0.33333333333333331, 50.000000000000000 },
- { -0.10331600929280821, 0.33333333333333331, 55.000000000000000 },
- { -0.055618147270528023, 0.33333333333333331, 60.000000000000000 },
- { 0.064711954014113920, 0.33333333333333331, 65.000000000000000 },
- { 0.086879926462481619, 0.33333333333333331, 70.000000000000000 },
- { -0.012614484229891070, 0.33333333333333331, 75.000000000000000 },
+ { -0.00057226680771808045, 0.33333333333333331, 50.000000000000000 },
+ { -0.10331600929280822, 0.33333333333333331, 55.000000000000000 },
+ { -0.055618147270528003, 0.33333333333333331, 60.000000000000000 },
+ { 0.064711954014113948, 0.33333333333333331, 65.000000000000000 },
+ { 0.086879926462481605, 0.33333333333333331, 70.000000000000000 },
+ { -0.012614484229891068, 0.33333333333333331, 75.000000000000000 },
{ -0.088199784400034537, 0.33333333333333331, 80.000000000000000 },
- { -0.036703611076564557, 0.33333333333333331, 85.000000000000000 },
- { 0.062916286828779533, 0.33333333333333331, 90.000000000000000 },
- { 0.069465244416806071, 0.33333333333333331, 95.000000000000000 },
- { -0.021271244853702295, 0.33333333333333331, 100.00000000000000 },
+ { -0.036703611076564523, 0.33333333333333331, 85.000000000000000 },
+ { 0.062916286828779547, 0.33333333333333331, 90.000000000000000 },
+ { 0.069465244416806030, 0.33333333333333331, 95.000000000000000 },
+ { -0.021271244853702364, 0.33333333333333331, 100.00000000000000 },
};
// Test function for nu=0.33333333333333331.
-template <typename Tp>
-void test002()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data002)
- / sizeof(testcase_cyl_bessel_j<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_j(Tp(data002[i].nu), Tp(data002[i].x));
- const Tp f0 = data002[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000017e-10));
-}
+template<typename Tp>
+ void
+ test011()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data011)
+ / sizeof(testcase_cyl_bessel_j<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_j(Tp(data011[i].nu), Tp(data011[i].x));
+ const Tp f0 = data011[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000017e-10));
+ }
// Test data for nu=0.50000000000000000.
-testcase_cyl_bessel_j<double> data003[] = {
+testcase_cyl_bessel_j<double> data012[] = {
{ 0.0000000000000000, 0.50000000000000000, 0.0000000000000000 },
{ -0.34216798479816180, 0.50000000000000000, 5.0000000000000000 },
{ -0.13726373575505049, 0.50000000000000000, 10.000000000000000 },
- { 0.13396768882243942, 0.50000000000000000, 15.000000000000000 },
- { 0.16288076385502981, 0.50000000000000000, 20.000000000000000 },
- { -0.021120283599650416, 0.50000000000000000, 25.000000000000000 },
+ { 0.13396768882243937, 0.50000000000000000, 15.000000000000000 },
+ { 0.16288076385502984, 0.50000000000000000, 20.000000000000000 },
+ { -0.021120283599650493, 0.50000000000000000, 25.000000000000000 },
{ -0.14392965337039987, 0.50000000000000000, 30.000000000000000 },
- { -0.057747757589458860, 0.50000000000000000, 35.000000000000000 },
- { 0.094000962389533579, 0.50000000000000000, 40.000000000000000 },
- { 0.10120783324271412, 0.50000000000000000, 45.000000000000000 },
- { -0.029605831888924662, 0.50000000000000000, 50.000000000000000 },
+ { -0.057747757589458777, 0.50000000000000000, 35.000000000000000 },
+ { 0.094000962389533649, 0.50000000000000000, 40.000000000000000 },
+ { 0.10120783324271411, 0.50000000000000000, 45.000000000000000 },
+ { -0.029605831888924641, 0.50000000000000000, 50.000000000000000 },
{ -0.10756039213265806, 0.50000000000000000, 55.000000000000000 },
- { -0.031397461182520445, 0.50000000000000000, 60.000000000000000 },
- { 0.081827430775628568, 0.50000000000000000, 65.000000000000000 },
- { 0.073802429539054637, 0.50000000000000000, 70.000000000000000 },
- { -0.035727009681702594, 0.50000000000000000, 75.000000000000000 },
- { -0.088661035811765446, 0.50000000000000000, 80.000000000000000 },
- { -0.015238065106312407, 0.50000000000000000, 85.000000000000000 },
+ { -0.031397461182520438, 0.50000000000000000, 60.000000000000000 },
+ { 0.081827430775628554, 0.50000000000000000, 65.000000000000000 },
+ { 0.073802429539054554, 0.50000000000000000, 70.000000000000000 },
+ { -0.035727009681702615, 0.50000000000000000, 75.000000000000000 },
+ { -0.088661035811765460, 0.50000000000000000, 80.000000000000000 },
+ { -0.015238065106312516, 0.50000000000000000, 85.000000000000000 },
{ 0.075189068550269425, 0.50000000000000000, 90.000000000000000 },
- { 0.055932643481494140, 0.50000000000000000, 95.000000000000000 },
- { -0.040402132716252113, 0.50000000000000000, 100.00000000000000 },
+ { 0.055932643481494133, 0.50000000000000000, 95.000000000000000 },
+ { -0.040402132716252127, 0.50000000000000000, 100.00000000000000 },
};
// Test function for nu=0.50000000000000000.
-template <typename Tp>
-void test003()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data003)
- / sizeof(testcase_cyl_bessel_j<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_j(Tp(data003[i].nu), Tp(data003[i].x));
- const Tp f0 = data003[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
-}
+template<typename Tp>
+ void
+ test012()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data012)
+ / sizeof(testcase_cyl_bessel_j<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_j(Tp(data012[i].nu), Tp(data012[i].x));
+ const Tp f0 = data012[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
+ }
// Test data for nu=0.66666666666666663.
-testcase_cyl_bessel_j<double> data004[] = {
+testcase_cyl_bessel_j<double> data013[] = {
{ 0.0000000000000000, 0.66666666666666663, 0.0000000000000000 },
- { -0.35712533549168879, 0.66666666666666663, 5.0000000000000000 },
- { -0.080149603304315822, 0.66666666666666663, 10.000000000000000 },
- { 0.16918875175798076, 0.66666666666666663, 15.000000000000000 },
- { 0.13904826122116526, 0.66666666666666663, 20.000000000000000 },
- { -0.060770629698497579, 0.66666666666666663, 25.000000000000000 },
- { -0.14489851974205059, 0.66666666666666663, 30.000000000000000 },
- { -0.024604880159644467, 0.66666666666666663, 35.000000000000000 },
- { 0.11243936464912015, 0.66666666666666663, 40.000000000000000 },
- { 0.081776275512525379, 0.66666666666666663, 45.000000000000000 },
- { -0.056589908749367770, 0.66666666666666663, 50.000000000000000 },
- { -0.10455814523765933, 0.66666666666666663, 55.000000000000000 },
- { -0.0051030148548608109, 0.66666666666666663, 60.000000000000000 },
- { 0.093398227061639250, 0.66666666666666663, 65.000000000000000 },
- { 0.055763883611864899, 0.66666666666666663, 70.000000000000000 },
- { -0.056395322915757343, 0.66666666666666663, 75.000000000000000 },
+ { -0.35712533549168868, 0.66666666666666663, 5.0000000000000000 },
+ { -0.080149603304315808, 0.66666666666666663, 10.000000000000000 },
+ { 0.16918875175798079, 0.66666666666666663, 15.000000000000000 },
+ { 0.13904826122116531, 0.66666666666666663, 20.000000000000000 },
+ { -0.060770629698497600, 0.66666666666666663, 25.000000000000000 },
+ { -0.14489851974205062, 0.66666666666666663, 30.000000000000000 },
+ { -0.024604880159644394, 0.66666666666666663, 35.000000000000000 },
+ { 0.11243936464912010, 0.66666666666666663, 40.000000000000000 },
+ { 0.081776275512525309, 0.66666666666666663, 45.000000000000000 },
+ { -0.056589908749367777, 0.66666666666666663, 50.000000000000000 },
+ { -0.10455814523765931, 0.66666666666666663, 55.000000000000000 },
+ { -0.0051030148548608456, 0.66666666666666663, 60.000000000000000 },
+ { 0.093398227061639236, 0.66666666666666663, 65.000000000000000 },
+ { 0.055763883611864913, 0.66666666666666663, 70.000000000000000 },
+ { -0.056395322915757364, 0.66666666666666663, 75.000000000000000 },
{ -0.083131347805783087, 0.66666666666666663, 80.000000000000000 },
- { 0.0072315397874096309, 0.66666666666666663, 85.000000000000000 },
- { 0.082362798520905264, 0.66666666666666663, 90.000000000000000 },
+ { 0.0072315397874096648, 0.66666666666666663, 85.000000000000000 },
+ { 0.082362798520905250, 0.66666666666666663, 90.000000000000000 },
{ 0.038630504403446168, 0.66666666666666663, 95.000000000000000 },
- { -0.056778819380529706, 0.66666666666666663, 100.00000000000000 },
+ { -0.056778819380529734, 0.66666666666666663, 100.00000000000000 },
};
// Test function for nu=0.66666666666666663.
-template <typename Tp>
-void test004()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data004)
- / sizeof(testcase_cyl_bessel_j<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_j(Tp(data004[i].nu), Tp(data004[i].x));
- const Tp f0 = data004[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(1.0000000000000006e-10));
-}
+template<typename Tp>
+ void
+ test013()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data013)
+ / sizeof(testcase_cyl_bessel_j<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_j(Tp(data013[i].nu), Tp(data013[i].x));
+ const Tp f0 = data013[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(1.0000000000000006e-10));
+ }
// Test data for nu=1.0000000000000000.
-testcase_cyl_bessel_j<double> data005[] = {
+testcase_cyl_bessel_j<double> data014[] = {
{ 0.0000000000000000, 1.0000000000000000, 0.0000000000000000 },
- { -0.32757913759146523, 1.0000000000000000, 5.0000000000000000 },
- { 0.043472746168861369, 1.0000000000000000, 10.000000000000000 },
- { 0.20510403861352278, 1.0000000000000000, 15.000000000000000 },
- { 0.066833124175850092, 1.0000000000000000, 20.000000000000000 },
- { -0.12535024958028987, 1.0000000000000000, 25.000000000000000 },
- { -0.11875106261662292, 1.0000000000000000, 30.000000000000000 },
- { 0.043990942179625556, 1.0000000000000000, 35.000000000000000 },
- { 0.12603831803758497, 1.0000000000000000, 40.000000000000000 },
- { 0.028348854376424548, 1.0000000000000000, 45.000000000000000 },
- { -0.097511828125175157, 1.0000000000000000, 50.000000000000000 },
- { -0.078250038308684655, 1.0000000000000000, 55.000000000000000 },
- { 0.046598383758166398, 1.0000000000000000, 60.000000000000000 },
+ { -0.32757913759146529, 1.0000000000000000, 5.0000000000000000 },
+ { 0.043472746168861459, 1.0000000000000000, 10.000000000000000 },
+ { 0.20510403861352280, 1.0000000000000000, 15.000000000000000 },
+ { 0.066833124175850078, 1.0000000000000000, 20.000000000000000 },
+ { -0.12535024958028990, 1.0000000000000000, 25.000000000000000 },
+ { -0.11875106261662294, 1.0000000000000000, 30.000000000000000 },
+ { 0.043990942179625646, 1.0000000000000000, 35.000000000000000 },
+ { 0.12603831803758500, 1.0000000000000000, 40.000000000000000 },
+ { 0.028348854376424561, 1.0000000000000000, 45.000000000000000 },
+ { -0.097511828125175129, 1.0000000000000000, 50.000000000000000 },
+ { -0.078250038308684711, 1.0000000000000000, 55.000000000000000 },
+ { 0.046598383758166370, 1.0000000000000000, 60.000000000000000 },
{ 0.097330172226126929, 1.0000000000000000, 65.000000000000000 },
- { 0.0099877887848384625, 1.0000000000000000, 70.000000000000000 },
- { -0.085139995044829109, 1.0000000000000000, 75.000000000000000 },
- { -0.056057296675712610, 1.0000000000000000, 80.000000000000000 },
- { 0.049151460334891116, 1.0000000000000000, 85.000000000000000 },
- { 0.079925646708868064, 1.0000000000000000, 90.000000000000000 },
- { -0.0023925612997268684, 1.0000000000000000, 95.000000000000000 },
- { -0.077145352014112142, 1.0000000000000000, 100.00000000000000 },
+ { 0.0099877887848385128, 1.0000000000000000, 70.000000000000000 },
+ { -0.085139995044829081, 1.0000000000000000, 75.000000000000000 },
+ { -0.056057296675712555, 1.0000000000000000, 80.000000000000000 },
+ { 0.049151460334891130, 1.0000000000000000, 85.000000000000000 },
+ { 0.079925646708868092, 1.0000000000000000, 90.000000000000000 },
+ { -0.0023925612997269283, 1.0000000000000000, 95.000000000000000 },
+ { -0.077145352014112129, 1.0000000000000000, 100.00000000000000 },
};
// Test function for nu=1.0000000000000000.
-template <typename Tp>
-void test005()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data005)
- / sizeof(testcase_cyl_bessel_j<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_j(Tp(data005[i].nu), Tp(data005[i].x));
- const Tp f0 = data005[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(1.0000000000000006e-10));
-}
+template<typename Tp>
+ void
+ test014()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data014)
+ / sizeof(testcase_cyl_bessel_j<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_j(Tp(data014[i].nu), Tp(data014[i].x));
+ const Tp f0 = data014[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(1.0000000000000006e-10));
+ }
// Test data for nu=2.0000000000000000.
-testcase_cyl_bessel_j<double> data006[] = {
+testcase_cyl_bessel_j<double> data015[] = {
{ 0.0000000000000000, 2.0000000000000000, 0.0000000000000000 },
{ 0.046565116277751971, 2.0000000000000000, 5.0000000000000000 },
- { 0.25463031368512062, 2.0000000000000000, 10.000000000000000 },
- { 0.041571677975250479, 2.0000000000000000, 15.000000000000000 },
- { -0.16034135192299817, 2.0000000000000000, 20.000000000000000 },
+ { 0.25463031368512068, 2.0000000000000000, 10.000000000000000 },
+ { 0.041571677975250486, 2.0000000000000000, 15.000000000000000 },
+ { -0.16034135192299820, 2.0000000000000000, 20.000000000000000 },
{ -0.10629480324238134, 2.0000000000000000, 25.000000000000000 },
- { 0.078451246073265340, 2.0000000000000000, 30.000000000000000 },
- { 0.12935945088086262, 2.0000000000000000, 35.000000000000000 },
- { -0.0010649746823580893, 2.0000000000000000, 40.000000000000000 },
+ { 0.078451246073265299, 2.0000000000000000, 30.000000000000000 },
+ { 0.12935945088086259, 2.0000000000000000, 35.000000000000000 },
+ { -0.0010649746823579794, 2.0000000000000000, 40.000000000000000 },
{ -0.11455872158985966, 2.0000000000000000, 45.000000000000000 },
- { -0.059712800794258801, 2.0000000000000000, 50.000000000000000 },
- { 0.071702846709739212, 2.0000000000000000, 55.000000000000000 },
- { 0.093025083547667448, 2.0000000000000000, 60.000000000000000 },
- { -0.015692568697643280, 2.0000000000000000, 65.000000000000000 },
- { -0.094623361089160987, 2.0000000000000000, 70.000000000000000 },
- { -0.036914313672959186, 2.0000000000000000, 75.000000000000000 },
- { 0.068340733095317227, 2.0000000000000000, 80.000000000000000 },
- { 0.072096899745329499, 2.0000000000000000, 85.000000000000000 },
- { -0.024853891217550262, 2.0000000000000000, 90.000000000000000 },
- { -0.081862337494957346, 2.0000000000000000, 95.000000000000000 },
- { -0.021528757344505392, 2.0000000000000000, 100.00000000000000 },
+ { -0.059712800794258863, 2.0000000000000000, 50.000000000000000 },
+ { 0.071702846709739240, 2.0000000000000000, 55.000000000000000 },
+ { 0.093025083547667420, 2.0000000000000000, 60.000000000000000 },
+ { -0.015692568697643128, 2.0000000000000000, 65.000000000000000 },
+ { -0.094623361089161029, 2.0000000000000000, 70.000000000000000 },
+ { -0.036914313672959179, 2.0000000000000000, 75.000000000000000 },
+ { 0.068340733095317172, 2.0000000000000000, 80.000000000000000 },
+ { 0.072096899745329540, 2.0000000000000000, 85.000000000000000 },
+ { -0.024853891217550248, 2.0000000000000000, 90.000000000000000 },
+ { -0.081862337494957332, 2.0000000000000000, 95.000000000000000 },
+ { -0.021528757344505364, 2.0000000000000000, 100.00000000000000 },
};
// Test function for nu=2.0000000000000000.
-template <typename Tp>
-void test006()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data006)
- / sizeof(testcase_cyl_bessel_j<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_j(Tp(data006[i].nu), Tp(data006[i].x));
- const Tp f0 = data006[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(1.0000000000000006e-10));
-}
+template<typename Tp>
+ void
+ test015()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data015)
+ / sizeof(testcase_cyl_bessel_j<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_j(Tp(data015[i].nu), Tp(data015[i].x));
+ const Tp f0 = data015[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000017e-10));
+ }
// Test data for nu=5.0000000000000000.
-testcase_cyl_bessel_j<double> data007[] = {
+testcase_cyl_bessel_j<double> data016[] = {
{ 0.0000000000000000, 5.0000000000000000, 0.0000000000000000 },
{ 0.26114054612017007, 5.0000000000000000, 5.0000000000000000 },
- { -0.23406152818679365, 5.0000000000000000, 10.000000000000000 },
+ { -0.23406152818679371, 5.0000000000000000, 10.000000000000000 },
{ 0.13045613456502966, 5.0000000000000000, 15.000000000000000 },
- { 0.15116976798239504, 5.0000000000000000, 20.000000000000000 },
- { -0.066007995398423044, 5.0000000000000000, 25.000000000000000 },
+ { 0.15116976798239498, 5.0000000000000000, 20.000000000000000 },
+ { -0.066007995398422933, 5.0000000000000000, 25.000000000000000 },
{ -0.14324029551207709, 5.0000000000000000, 30.000000000000000 },
- { -0.0015053072953907080, 5.0000000000000000, 35.000000000000000 },
- { 0.12257346597711774, 5.0000000000000000, 40.000000000000000 },
- { 0.057984499200954144, 5.0000000000000000, 45.000000000000000 },
- { -0.081400247696569658, 5.0000000000000000, 50.000000000000000 },
- { -0.092569895786432710, 5.0000000000000000, 55.000000000000000 },
- { 0.027454744228344184, 5.0000000000000000, 60.000000000000000 },
- { 0.099110527701539039, 5.0000000000000000, 65.000000000000000 },
- { 0.026058129823895274, 5.0000000000000000, 70.000000000000000 },
+ { -0.0015053072953907251, 5.0000000000000000, 35.000000000000000 },
+ { 0.12257346597711777, 5.0000000000000000, 40.000000000000000 },
+ { 0.057984499200954109, 5.0000000000000000, 45.000000000000000 },
+ { -0.081400247696569616, 5.0000000000000000, 50.000000000000000 },
+ { -0.092569895786432765, 5.0000000000000000, 55.000000000000000 },
+ { 0.027454744228344204, 5.0000000000000000, 60.000000000000000 },
+ { 0.099110527701539025, 5.0000000000000000, 65.000000000000000 },
+ { 0.026058129823895364, 5.0000000000000000, 70.000000000000000 },
{ -0.078523977013751398, 5.0000000000000000, 75.000000000000000 },
- { -0.065862349140031654, 5.0000000000000000, 80.000000000000000 },
- { 0.038669072284680923, 5.0000000000000000, 85.000000000000000 },
- { 0.082759319528415129, 5.0000000000000000, 90.000000000000000 },
- { 0.0079423372702472905, 5.0000000000000000, 95.000000000000000 },
- { -0.074195736964513911, 5.0000000000000000, 100.00000000000000 },
+ { -0.065862349140031584, 5.0000000000000000, 80.000000000000000 },
+ { 0.038669072284680979, 5.0000000000000000, 85.000000000000000 },
+ { 0.082759319528415157, 5.0000000000000000, 90.000000000000000 },
+ { 0.0079423372702472871, 5.0000000000000000, 95.000000000000000 },
+ { -0.074195736964513898, 5.0000000000000000, 100.00000000000000 },
};
// Test function for nu=5.0000000000000000.
-template <typename Tp>
-void test007()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data007)
- / sizeof(testcase_cyl_bessel_j<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_j(Tp(data007[i].nu), Tp(data007[i].x));
- const Tp f0 = data007[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(5.0000000000000028e-11));
-}
+template<typename Tp>
+ void
+ test016()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data016)
+ / sizeof(testcase_cyl_bessel_j<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_j(Tp(data016[i].nu), Tp(data016[i].x));
+ const Tp f0 = data016[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(5.0000000000000028e-11));
+ }
// Test data for nu=10.000000000000000.
-testcase_cyl_bessel_j<double> data008[] = {
+testcase_cyl_bessel_j<double> data017[] = {
{ 0.0000000000000000, 10.000000000000000, 0.0000000000000000 },
{ 0.0014678026473104744, 10.000000000000000, 5.0000000000000000 },
{ 0.20748610663335865, 10.000000000000000, 10.000000000000000 },
- { -0.090071811047659045, 10.000000000000000, 15.000000000000000 },
+ { -0.090071811047659087, 10.000000000000000, 15.000000000000000 },
{ 0.18648255802394512, 10.000000000000000, 20.000000000000000 },
- { -0.075179843948523270, 10.000000000000000, 25.000000000000000 },
+ { -0.075179843948523312, 10.000000000000000, 25.000000000000000 },
{ -0.12987689399858882, 10.000000000000000, 30.000000000000000 },
- { 0.063546391343962852, 10.000000000000000, 35.000000000000000 },
- { 0.11938336278226093, 10.000000000000000, 40.000000000000000 },
- { -0.026971402475010734, 10.000000000000000, 45.000000000000000 },
+ { 0.063546391343962866, 10.000000000000000, 35.000000000000000 },
+ { 0.11938336278226094, 10.000000000000000, 40.000000000000000 },
+ { -0.026971402475010831, 10.000000000000000, 45.000000000000000 },
{ -0.11384784914946940, 10.000000000000000, 50.000000000000000 },
- { -0.015773790303746010, 10.000000000000000, 55.000000000000000 },
- { 0.097177143328071106, 10.000000000000000, 60.000000000000000 },
- { 0.054617389951112157, 10.000000000000000, 65.000000000000000 },
- { -0.065870338561951874, 10.000000000000000, 70.000000000000000 },
+ { -0.015773790303746080, 10.000000000000000, 55.000000000000000 },
+ { 0.097177143328071064, 10.000000000000000, 60.000000000000000 },
+ { 0.054617389951112129, 10.000000000000000, 65.000000000000000 },
+ { -0.065870338561952013, 10.000000000000000, 70.000000000000000 },
{ -0.080417867891894437, 10.000000000000000, 75.000000000000000 },
- { 0.024043850978184754, 10.000000000000000, 80.000000000000000 },
+ { 0.024043850978184747, 10.000000000000000, 80.000000000000000 },
{ 0.086824832700067869, 10.000000000000000, 85.000000000000000 },
- { 0.019554748856312278, 10.000000000000000, 90.000000000000000 },
+ { 0.019554748856312299, 10.000000000000000, 90.000000000000000 },
{ -0.072341598669443757, 10.000000000000000, 95.000000000000000 },
- { -0.054732176935472103, 10.000000000000000, 100.00000000000000 },
+ { -0.054732176935472096, 10.000000000000000, 100.00000000000000 },
};
// Test function for nu=10.000000000000000.
-template <typename Tp>
-void test008()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data008)
- / sizeof(testcase_cyl_bessel_j<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_j(Tp(data008[i].nu), Tp(data008[i].x));
- const Tp f0 = data008[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
-}
+template<typename Tp>
+ void
+ test017()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data017)
+ / sizeof(testcase_cyl_bessel_j<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_j(Tp(data017[i].nu), Tp(data017[i].x));
+ const Tp f0 = data017[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
+ }
// Test data for nu=20.000000000000000.
-testcase_cyl_bessel_j<double> data009[] = {
+testcase_cyl_bessel_j<double> data018[] = {
{ 0.0000000000000000, 20.000000000000000, 0.0000000000000000 },
{ 2.7703300521289426e-11, 20.000000000000000, 5.0000000000000000 },
{ 1.1513369247813403e-05, 20.000000000000000, 10.000000000000000 },
- { 0.0073602340792234882, 20.000000000000000, 15.000000000000000 },
- { 0.16474777377532657, 20.000000000000000, 20.000000000000000 },
- { 0.051994049228303287, 20.000000000000000, 25.000000000000000 },
- { 0.0048310199934041105, 20.000000000000000, 30.000000000000000 },
+ { 0.0073602340792234934, 20.000000000000000, 15.000000000000000 },
+ { 0.16474777377532665, 20.000000000000000, 20.000000000000000 },
+ { 0.051994049228303307, 20.000000000000000, 25.000000000000000 },
+ { 0.0048310199934040923, 20.000000000000000, 30.000000000000000 },
{ -0.10927417397178038, 20.000000000000000, 35.000000000000000 },
- { 0.12779393355084886, 20.000000000000000, 40.000000000000000 },
- { 0.0047633437900312841, 20.000000000000000, 45.000000000000000 },
+ { 0.12779393355084889, 20.000000000000000, 40.000000000000000 },
+ { 0.0047633437900313621, 20.000000000000000, 45.000000000000000 },
{ -0.11670435275957974, 20.000000000000000, 50.000000000000000 },
- { 0.025389204574566695, 20.000000000000000, 55.000000000000000 },
- { 0.10266020557876331, 20.000000000000000, 60.000000000000000 },
- { -0.023138582263434168, 20.000000000000000, 65.000000000000000 },
- { -0.096058573489952323, 20.000000000000000, 70.000000000000000 },
+ { 0.025389204574566639, 20.000000000000000, 55.000000000000000 },
+ { 0.10266020557876326, 20.000000000000000, 60.000000000000000 },
+ { -0.023138582263434154, 20.000000000000000, 65.000000000000000 },
+ { -0.096058573489952365, 20.000000000000000, 70.000000000000000 },
{ 0.0068961047221522270, 20.000000000000000, 75.000000000000000 },
{ 0.090565405489918357, 20.000000000000000, 80.000000000000000 },
- { 0.015985497599497155, 20.000000000000000, 85.000000000000000 },
- { -0.080345344044422506, 20.000000000000000, 90.000000000000000 },
+ { 0.015985497599497172, 20.000000000000000, 85.000000000000000 },
+ { -0.080345344044422534, 20.000000000000000, 90.000000000000000 },
{ -0.040253075701614051, 20.000000000000000, 95.000000000000000 },
- { 0.062217458498338679, 20.000000000000000, 100.00000000000000 },
+ { 0.062217458498338672, 20.000000000000000, 100.00000000000000 },
};
// Test function for nu=20.000000000000000.
-template <typename Tp>
-void test009()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data009)
- / sizeof(testcase_cyl_bessel_j<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_j(Tp(data009[i].nu), Tp(data009[i].x));
- const Tp f0 = data009[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(1.0000000000000006e-10));
-}
+template<typename Tp>
+ void
+ test018()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data018)
+ / sizeof(testcase_cyl_bessel_j<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_j(Tp(data018[i].nu), Tp(data018[i].x));
+ const Tp f0 = data018[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(1.0000000000000006e-10));
+ }
// Test data for nu=50.000000000000000.
-testcase_cyl_bessel_j<double> data010[] = {
+testcase_cyl_bessel_j<double> data019[] = {
{ 0.0000000000000000, 50.000000000000000, 0.0000000000000000 },
{ 2.2942476159525415e-45, 50.000000000000000, 5.0000000000000000 },
{ 1.7845136078715964e-30, 50.000000000000000, 10.000000000000000 },
{ 6.1060519495338733e-22, 50.000000000000000, 15.000000000000000 },
{ 4.4510392847006872e-16, 50.000000000000000, 20.000000000000000 },
- { 9.7561594280229727e-12, 50.000000000000000, 25.000000000000000 },
- { 2.0581656631564181e-08, 50.000000000000000, 30.000000000000000 },
- { 7.6069951699272926e-06, 50.000000000000000, 35.000000000000000 },
- { 0.00068185243531768255, 50.000000000000000, 40.000000000000000 },
- { 0.017284343240791228, 50.000000000000000, 45.000000000000000 },
- { 0.12140902189761522, 50.000000000000000, 50.000000000000000 },
- { 0.13594720957176004, 50.000000000000000, 55.000000000000000 },
+ { 9.7561594280229808e-12, 50.000000000000000, 25.000000000000000 },
+ { 2.0581656631564172e-08, 50.000000000000000, 30.000000000000000 },
+ { 7.6069951699272960e-06, 50.000000000000000, 35.000000000000000 },
+ { 0.00068185243531768309, 50.000000000000000, 40.000000000000000 },
+ { 0.017284343240791214, 50.000000000000000, 45.000000000000000 },
+ { 0.12140902189761507, 50.000000000000000, 50.000000000000000 },
+ { 0.13594720957176012, 50.000000000000000, 55.000000000000000 },
{ -0.13798273148535209, 50.000000000000000, 60.000000000000000 },
- { 0.12116217746619408, 50.000000000000000, 65.000000000000000 },
- { -0.11394866738787141, 50.000000000000000, 70.000000000000000 },
- { 0.094076799581573417, 50.000000000000000, 75.000000000000000 },
- { -0.039457764590251236, 50.000000000000000, 80.000000000000000 },
- { -0.040412060734136369, 50.000000000000000, 85.000000000000000 },
- { 0.090802099838032252, 50.000000000000000, 90.000000000000000 },
- { -0.055979156267280269, 50.000000000000000, 95.000000000000000 },
- { -0.038698339728525460, 50.000000000000000, 100.00000000000000 },
+ { 0.12116217746619409, 50.000000000000000, 65.000000000000000 },
+ { -0.11394866738787145, 50.000000000000000, 70.000000000000000 },
+ { 0.094076799581573348, 50.000000000000000, 75.000000000000000 },
+ { -0.039457764590251347, 50.000000000000000, 80.000000000000000 },
+ { -0.040412060734136383, 50.000000000000000, 85.000000000000000 },
+ { 0.090802099838032266, 50.000000000000000, 90.000000000000000 },
+ { -0.055979156267280165, 50.000000000000000, 95.000000000000000 },
+ { -0.038698339728525440, 50.000000000000000, 100.00000000000000 },
};
// Test function for nu=50.000000000000000.
-template <typename Tp>
-void test010()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data010)
- / sizeof(testcase_cyl_bessel_j<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_j(Tp(data010[i].nu), Tp(data010[i].x));
- const Tp f0 = data010[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(1.0000000000000006e-11));
-}
+template<typename Tp>
+ void
+ test019()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data019)
+ / sizeof(testcase_cyl_bessel_j<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_j(Tp(data019[i].nu), Tp(data019[i].x));
+ const Tp f0 = data019[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(1.0000000000000006e-11));
+ }
// Test data for nu=100.00000000000000.
-testcase_cyl_bessel_j<double> data011[] = {
+testcase_cyl_bessel_j<double> data020[] = {
{ 0.0000000000000000, 100.00000000000000, 0.0000000000000000 },
{ 6.2677893955418763e-119, 100.00000000000000, 5.0000000000000000 },
{ 6.5973160641553816e-89, 100.00000000000000, 10.000000000000000 },
@@ -578,40 +1085,43 @@
{ 6.1982452141641260e-10, 100.00000000000000, 70.000000000000000 },
{ 7.4479005905904457e-08, 100.00000000000000, 75.000000000000000 },
{ 4.6065530648234948e-06, 100.00000000000000, 80.000000000000000 },
- { 0.00015043869999501605, 100.00000000000000, 85.000000000000000 },
+ { 0.00015043869999501765, 100.00000000000000, 85.000000000000000 },
{ 0.0026021305819963472, 100.00000000000000, 90.000000000000000 },
- { 0.023150768009428162, 100.00000000000000, 95.000000000000000 },
+ { 0.023150768009428030, 100.00000000000000, 95.000000000000000 },
{ 0.096366673295861571, 100.00000000000000, 100.00000000000000 },
};
// Test function for nu=100.00000000000000.
-template <typename Tp>
-void test011()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data011)
- / sizeof(testcase_cyl_bessel_j<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_j(Tp(data011[i].nu), Tp(data011[i].x));
- const Tp f0 = data011[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(1.0000000000000006e-11));
-}
+template<typename Tp>
+ void
+ test020()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data020)
+ / sizeof(testcase_cyl_bessel_j<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_j(Tp(data020[i].nu), Tp(data020[i].x));
+ const Tp f0 = data020[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(1.0000000000000006e-11));
+ }
-int main(int, char**)
+int
+main()
{
test001<double>();
test002<double>();
@@ -624,5 +1134,14 @@
test009<double>();
test010<double>();
test011<double>();
+ test012<double>();
+ test013<double>();
+ test014<double>();
+ test015<double>();
+ test016<double>();
+ test017<double>();
+ test018<double>();
+ test019<double>();
+ test020<double>();
return 0;
}
Index: testsuite/tr1/5_numerical_facilities/special_functions/10_cyl_bessel_k/check_value.cc
===================================================================
--- testsuite/tr1/5_numerical_facilities/special_functions/10_cyl_bessel_k/check_value.cc (revision 232104)
+++ testsuite/tr1/5_numerical_facilities/special_functions/10_cyl_bessel_k/check_value.cc (working copy)
@@ -41,7 +41,591 @@
// Test data for nu=0.0000000000000000.
testcase_cyl_bessel_k<double> data001[] = {
+ { 1.5415067512483025, 0.0000000000000000, 0.25000000000000000 },
+ { 0.92441907122766565, 0.0000000000000000, 0.50000000000000000 },
+ { 0.61058242211646430, 0.0000000000000000, 0.75000000000000000 },
+ { 0.42102443824070829, 0.0000000000000000, 1.0000000000000000 },
+ { 0.29760308908410588, 0.0000000000000000, 1.2500000000000000 },
+ { 0.21380556264752565, 0.0000000000000000, 1.5000000000000000 },
+ { 0.15537981238660362, 0.0000000000000000, 1.7500000000000000 },
+ { 0.11389387274953360, 0.0000000000000000, 2.0000000000000000 },
+ { 0.084043111974658191, 0.0000000000000000, 2.2500000000000000 },
+ { 0.062347553200366168, 0.0000000000000000, 2.5000000000000000 },
+ { 0.046454901308760774, 0.0000000000000000, 2.7500000000000000 },
+ { 0.034739504386279256, 0.0000000000000000, 3.0000000000000000 },
+ { 0.026058755255154966, 0.0000000000000000, 3.2500000000000000 },
+ { 0.019598897170368501, 0.0000000000000000, 3.5000000000000000 },
+ { 0.014774250877128706, 0.0000000000000000, 3.7500000000000000 },
+ { 0.011159676085853026, 0.0000000000000000, 4.0000000000000000 },
+ { 0.0084443877245429649, 0.0000000000000000, 4.2500000000000000 },
+ { 0.0063998572432339747, 0.0000000000000000, 4.5000000000000000 },
+ { 0.0048572045578879524, 0.0000000000000000, 4.7500000000000000 },
{ 0.0036910983340425947, 0.0000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=0.0000000000000000.
+template<typename Tp>
+ void
+ test001()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data001)
+ / sizeof(testcase_cyl_bessel_k<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_k(Tp(data001[i].nu), Tp(data001[i].x));
+ const Tp f0 = data001[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=0.33333333333333331.
+testcase_cyl_bessel_k<double> data002[] = {
+ { 1.7144912564234518, 0.33333333333333331, 0.25000000000000000 },
+ { 0.98903107424672421, 0.33333333333333331, 0.50000000000000000 },
+ { 0.64216899667282989, 0.33333333333333331, 0.75000000000000000 },
+ { 0.43843063344153432, 0.33333333333333331, 1.0000000000000000 },
+ { 0.30788192414945043, 0.33333333333333331, 1.2500000000000000 },
+ { 0.22015769026776688, 0.33333333333333331, 1.5000000000000000 },
+ { 0.15943413057311245, 0.33333333333333331, 1.7500000000000000 },
+ { 0.11654496129616534, 0.33333333333333331, 2.0000000000000000 },
+ { 0.085809609306439674, 0.33333333333333331, 2.2500000000000000 },
+ { 0.063542537454733386, 0.33333333333333331, 2.5000000000000000 },
+ { 0.047273354184795509, 0.33333333333333331, 2.7500000000000000 },
+ { 0.035305904902162587, 0.33333333333333331, 3.0000000000000000 },
+ { 0.026454186892773169, 0.33333333333333331, 3.2500000000000000 },
+ { 0.019877061407943805, 0.33333333333333331, 3.5000000000000000 },
+ { 0.014971213514760214, 0.33333333333333331, 3.7500000000000000 },
+ { 0.011299947573672165, 0.33333333333333331, 4.0000000000000000 },
+ { 0.0085447959546110473, 0.33333333333333331, 4.2500000000000000 },
+ { 0.0064720581217078237, 0.33333333333333331, 4.5000000000000000 },
+ { 0.0049093342803275264, 0.33333333333333331, 4.7500000000000000 },
+ { 0.0037288750960535887, 0.33333333333333331, 5.0000000000000000 },
+};
+
+// Test function for nu=0.33333333333333331.
+template<typename Tp>
+ void
+ test002()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data002)
+ / sizeof(testcase_cyl_bessel_k<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_k(Tp(data002[i].nu), Tp(data002[i].x));
+ const Tp f0 = data002[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=0.50000000000000000.
+testcase_cyl_bessel_k<double> data003[] = {
+ { 1.9521640631515476, 0.50000000000000000, 0.25000000000000000 },
+ { 1.0750476034999195, 0.50000000000000000, 0.50000000000000000 },
+ { 0.68361006034952421, 0.50000000000000000, 0.75000000000000000 },
+ { 0.46106850444789454, 0.50000000000000000, 1.0000000000000000 },
+ { 0.32117137397144746, 0.50000000000000000, 1.2500000000000000 },
+ { 0.22833505222826550, 0.50000000000000000, 1.5000000000000000 },
+ { 0.16463628997380864, 0.50000000000000000, 1.7500000000000000 },
+ { 0.11993777196806145, 0.50000000000000000, 2.0000000000000000 },
+ { 0.088065558803650454, 0.50000000000000000, 2.2500000000000000 },
+ { 0.065065943154009986, 0.50000000000000000, 2.5000000000000000 },
+ { 0.048315198301417825, 0.50000000000000000, 2.7500000000000000 },
+ { 0.036025985131764589, 0.50000000000000000, 3.0000000000000000 },
+ { 0.026956356532443351, 0.50000000000000000, 3.2500000000000000 },
+ { 0.020229969578139294, 0.50000000000000000, 3.5000000000000000 },
+ { 0.015220888252975564, 0.50000000000000000, 3.7500000000000000 },
+ { 0.011477624576608052, 0.50000000000000000, 4.0000000000000000 },
+ { 0.0086718932956978342, 0.50000000000000000, 4.2500000000000000 },
+ { 0.0065633945646345407, 0.50000000000000000, 4.5000000000000000 },
+ { 0.0049752435421262292, 0.50000000000000000, 4.7500000000000000 },
+ { 0.0037766133746428825, 0.50000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=0.50000000000000000.
+template<typename Tp>
+ void
+ test003()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data003)
+ / sizeof(testcase_cyl_bessel_k<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_k(Tp(data003[i].nu), Tp(data003[i].x));
+ const Tp f0 = data003[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=0.66666666666666663.
+testcase_cyl_bessel_k<double> data004[] = {
+ { 2.3289060745544101, 0.66666666666666663, 0.25000000000000000 },
+ { 1.2059304647203353, 0.66666666666666663, 0.50000000000000000 },
+ { 0.74547232976647215, 0.66666666666666663, 0.75000000000000000 },
+ { 0.49447506210420827, 0.66666666666666663, 1.0000000000000000 },
+ { 0.34062994813514252, 0.66666666666666663, 1.2500000000000000 },
+ { 0.24024045240315581, 0.66666666666666663, 1.5000000000000000 },
+ { 0.17217716908452310, 0.66666666666666663, 1.7500000000000000 },
+ { 0.12483892748812841, 0.66666666666666663, 2.0000000000000000 },
+ { 0.091315296079621050, 0.66666666666666663, 2.2500000000000000 },
+ { 0.067255322171623361, 0.66666666666666663, 2.5000000000000000 },
+ { 0.049809546542402224, 0.66666666666666663, 2.7500000000000000 },
+ { 0.037057074495188531, 0.66666666666666663, 3.0000000000000000 },
+ { 0.027674365504886729, 0.66666666666666663, 3.2500000000000000 },
+ { 0.020733915836010912, 0.66666666666666663, 3.5000000000000000 },
+ { 0.015577015510251332, 0.66666666666666663, 3.7500000000000000 },
+ { 0.011730801456525336, 0.66666666666666663, 4.0000000000000000 },
+ { 0.0088528343204658851, 0.66666666666666663, 4.2500000000000000 },
+ { 0.0066933190915775560, 0.66666666666666663, 4.5000000000000000 },
+ { 0.0050689292106255480, 0.66666666666666663, 4.7500000000000000 },
+ { 0.0038444246344968226, 0.66666666666666663, 5.0000000000000000 },
+};
+
+// Test function for nu=0.66666666666666663.
+template<typename Tp>
+ void
+ test004()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data004)
+ / sizeof(testcase_cyl_bessel_k<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_k(Tp(data004[i].nu), Tp(data004[i].x));
+ const Tp f0 = data004[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=1.0000000000000000.
+testcase_cyl_bessel_k<double> data005[] = {
+ { 3.7470259744407115, 1.0000000000000000, 0.25000000000000000 },
+ { 1.6564411200033007, 1.0000000000000000, 0.50000000000000000 },
+ { 0.94958046696214016, 1.0000000000000000, 0.75000000000000000 },
+ { 0.60190723019723458, 1.0000000000000000, 1.0000000000000000 },
+ { 0.40212407978419540, 1.0000000000000000, 1.2500000000000000 },
+ { 0.27738780045684375, 1.0000000000000000, 1.5000000000000000 },
+ { 0.19547745347439310, 1.0000000000000000, 1.7500000000000000 },
+ { 0.13986588181652262, 1.0000000000000000, 2.0000000000000000 },
+ { 0.10121630256832535, 1.0000000000000000, 2.2500000000000000 },
+ { 0.073890816347747038, 1.0000000000000000, 2.5000000000000000 },
+ { 0.054318522758919859, 1.0000000000000000, 2.7500000000000000 },
+ { 0.040156431128194198, 1.0000000000000000, 3.0000000000000000 },
+ { 0.029825529796040143, 1.0000000000000000, 3.2500000000000000 },
+ { 0.022239392925923845, 1.0000000000000000, 3.5000000000000000 },
+ { 0.016638191754688912, 1.0000000000000000, 3.7500000000000000 },
+ { 0.012483498887268435, 1.0000000000000000, 4.0000000000000000 },
+ { 0.0093896806560432589, 1.0000000000000000, 4.2500000000000000 },
+ { 0.0070780949089680901, 1.0000000000000000, 4.5000000000000000 },
+ { 0.0053459218178228390, 1.0000000000000000, 4.7500000000000000 },
+ { 0.0040446134454521655, 1.0000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=1.0000000000000000.
+template<typename Tp>
+ void
+ test005()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data005)
+ / sizeof(testcase_cyl_bessel_k<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_k(Tp(data005[i].nu), Tp(data005[i].x));
+ const Tp f0 = data005[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=2.0000000000000000.
+testcase_cyl_bessel_k<double> data006[] = {
+ { 31.517714546773998, 2.0000000000000000, 0.25000000000000000 },
+ { 7.5501835512408695, 2.0000000000000000, 0.50000000000000000 },
+ { 3.1427970006821715, 2.0000000000000000, 0.75000000000000000 },
+ { 1.6248388986351774, 2.0000000000000000, 1.0000000000000000 },
+ { 0.94100161673881855, 2.0000000000000000, 1.2500000000000000 },
+ { 0.58365596325665070, 2.0000000000000000, 1.5000000000000000 },
+ { 0.37878261635733856, 2.0000000000000000, 1.7500000000000000 },
+ { 0.25375975456605621, 2.0000000000000000, 2.0000000000000000 },
+ { 0.17401315870205850, 2.0000000000000000, 2.2500000000000000 },
+ { 0.12146020627856381, 2.0000000000000000, 2.5000000000000000 },
+ { 0.085959281497066137, 2.0000000000000000, 2.7500000000000000 },
+ { 0.061510458471742059, 2.0000000000000000, 3.0000000000000000 },
+ { 0.044412927437333515, 2.0000000000000000, 3.2500000000000000 },
+ { 0.032307121699467839, 2.0000000000000000, 3.5000000000000000 },
+ { 0.023647953146296127, 2.0000000000000000, 3.7500000000000000 },
+ { 0.017401425529487244, 2.0000000000000000, 4.0000000000000000 },
+ { 0.012863060974445674, 2.0000000000000000, 4.2500000000000000 },
+ { 0.0095456772027753475, 2.0000000000000000, 4.5000000000000000 },
+ { 0.0071081190074975690, 2.0000000000000000, 4.7500000000000000 },
+ { 0.0053089437122234608, 2.0000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=2.0000000000000000.
+template<typename Tp>
+ void
+ test006()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data006)
+ / sizeof(testcase_cyl_bessel_k<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_k(Tp(data006[i].nu), Tp(data006[i].x));
+ const Tp f0 = data006[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=5.0000000000000000.
+testcase_cyl_bessel_k<double> data007[] = {
+ { 391683.98962334893, 5.0000000000000000, 0.25000000000000000 },
+ { 12097.979476096394, 5.0000000000000000, 0.50000000000000000 },
+ { 1562.5870339691098, 5.0000000000000000, 0.75000000000000000 },
+ { 360.96058960124066, 5.0000000000000000, 1.0000000000000000 },
+ { 114.29321426334016, 5.0000000000000000, 1.2500000000000000 },
+ { 44.067781159301056, 5.0000000000000000, 1.5000000000000000 },
+ { 19.426568687730292, 5.0000000000000000, 1.7500000000000000 },
+ { 9.4310491005964820, 5.0000000000000000, 2.0000000000000000 },
+ { 4.9221270549918685, 5.0000000000000000, 2.2500000000000000 },
+ { 2.7168842907865423, 5.0000000000000000, 2.5000000000000000 },
+ { 1.5677685890536335, 5.0000000000000000, 2.7500000000000000 },
+ { 0.93777360238680818, 5.0000000000000000, 3.0000000000000000 },
+ { 0.57775534736785106, 5.0000000000000000, 3.2500000000000000 },
+ { 0.36482440208451983, 5.0000000000000000, 3.5000000000000000 },
+ { 0.23520290620082257, 5.0000000000000000, 3.7500000000000000 },
+ { 0.15434254872599723, 5.0000000000000000, 4.0000000000000000 },
+ { 0.10283347176876455, 5.0000000000000000, 4.2500000000000000 },
+ { 0.069423643150881773, 5.0000000000000000, 4.5000000000000000 },
+ { 0.047410616917942211, 5.0000000000000000, 4.7500000000000000 },
+ { 0.032706273712031865, 5.0000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=5.0000000000000000.
+template<typename Tp>
+ void
+ test007()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data007)
+ / sizeof(testcase_cyl_bessel_k<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_k(Tp(data007[i].nu), Tp(data007[i].x));
+ const Tp f0 = data007[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=10.000000000000000.
+testcase_cyl_bessel_k<double> data008[] = {
+ { 194481817927839.88, 10.000000000000000, 0.25000000000000000 },
+ { 188937569319.90030, 10.000000000000000, 0.50000000000000000 },
+ { 3248187687.8018155, 10.000000000000000, 0.75000000000000000 },
+ { 180713289.90102941, 10.000000000000000, 1.0000000000000000 },
+ { 19104425.945252180, 10.000000000000000, 1.2500000000000000 },
+ { 3027483.5236822353, 10.000000000000000, 1.5000000000000000 },
+ { 633724.71555087867, 10.000000000000000, 1.7500000000000000 },
+ { 162482.40397955943, 10.000000000000000, 2.0000000000000000 },
+ { 48602.446087749791, 10.000000000000000, 2.2500000000000000 },
+ { 16406.916416341937, 10.000000000000000, 2.5000000000000000 },
+ { 6104.1720745909606, 10.000000000000000, 2.7500000000000000 },
+ { 2459.6204220569480, 10.000000000000000, 3.0000000000000000 },
+ { 1059.2358443703381, 10.000000000000000, 3.2500000000000000 },
+ { 482.53582096664758, 10.000000000000000, 3.5000000000000000 },
+ { 230.64249314993776, 10.000000000000000, 3.7500000000000000 },
+ { 114.91408364049620, 10.000000000000000, 4.0000000000000000 },
+ { 59.361613632706479, 10.000000000000000, 4.2500000000000000 },
+ { 31.652958759229868, 10.000000000000000, 4.5000000000000000 },
+ { 17.357723966417399, 10.000000000000000, 4.7500000000000000 },
+ { 9.7585628291778121, 10.000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=10.000000000000000.
+template<typename Tp>
+ void
+ test008()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data008)
+ / sizeof(testcase_cyl_bessel_k<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_k(Tp(data008[i].nu), Tp(data008[i].x));
+ const Tp f0 = data008[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=20.000000000000000.
+testcase_cyl_bessel_k<double> data009[] = {
+ { 7.0065983661641184e+34, 20.000000000000000, 0.25000000000000000 },
+ { 6.6655498744171593e+28, 20.000000000000000, 0.50000000000000000 },
+ { 1.9962989615380379e+25, 20.000000000000000, 0.75000000000000000 },
+ { 6.2943693604245335e+22, 20.000000000000000, 1.0000000000000000 },
+ { 7.2034511920074182e+20, 20.000000000000000, 1.2500000000000000 },
+ { 1.8620549984645546e+19, 20.000000000000000, 1.5000000000000000 },
+ { 8.4415605303952486e+17, 20.000000000000000, 1.7500000000000000 },
+ { 57708568527002520., 20.000000000000000, 2.0000000000000000 },
+ { 5396824209986879.0, 20.000000000000000, 2.2500000000000000 },
+ { 645996884063683.62, 20.000000000000000, 2.5000000000000000 },
+ { 94387401970996.328, 20.000000000000000, 2.7500000000000000 },
+ { 16254643952204.371, 20.000000000000000, 3.0000000000000000 },
+ { 3212694836166.4053, 20.000000000000000, 3.2500000000000000 },
+ { 713857897923.74072, 20.000000000000000, 3.5000000000000000 },
+ { 175423421958.35925, 20.000000000000000, 3.7500000000000000 },
+ { 47050078926.298080, 20.000000000000000, 4.0000000000000000 },
+ { 13625066095.067503, 20.000000000000000, 4.2500000000000000 },
+ { 4222179870.6810656, 20.000000000000000, 4.5000000000000000 },
+ { 1389634112.7516634, 20.000000000000000, 4.7500000000000000 },
+ { 482700052.06214869, 20.000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=20.000000000000000.
+template<typename Tp>
+ void
+ test009()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data009)
+ / sizeof(testcase_cyl_bessel_k<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_k(Tp(data009[i].nu), Tp(data009[i].x));
+ const Tp f0 = data009[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=50.000000000000000.
+testcase_cyl_bessel_k<double> data010[] = {
+ { 4.3394604622138714e+107, 50.000000000000000, 0.25000000000000000 },
+ { 3.8505298918269003e+92, 50.000000000000000, 0.50000000000000000 },
+ { 6.0292756894842793e+83, 50.000000000000000, 0.75000000000000000 },
+ { 3.4068968541616991e+77, 50.000000000000000, 1.0000000000000000 },
+ { 4.8485527365039051e+72, 50.000000000000000, 1.2500000000000000 },
+ { 5.3091717574907920e+68, 50.000000000000000, 1.5000000000000000 },
+ { 2.3762245257445824e+65, 50.000000000000000, 1.7500000000000000 },
+ { 2.9799817396049268e+62, 50.000000000000000, 2.0000000000000000 },
+ { 8.2079431233488581e+59, 50.000000000000000, 2.2500000000000000 },
+ { 4.2046528212987503e+57, 50.000000000000000, 2.5000000000000000 },
+ { 3.5578676911884825e+55, 50.000000000000000, 2.7500000000000000 },
+ { 4.5559542293221535e+53, 50.000000000000000, 3.0000000000000000 },
+ { 8.2606735967628997e+51, 50.000000000000000, 3.2500000000000000 },
+ { 2.0139406747903812e+50, 50.000000000000000, 3.5000000000000000 },
+ { 6.3368727837484600e+48, 50.000000000000000, 3.7500000000000000 },
+ { 2.4897317389325753e+47, 50.000000000000000, 4.0000000000000000 },
+ { 1.1888958173039699e+46, 50.000000000000000, 4.2500000000000000 },
+ { 6.7472593648148542e+44, 50.000000000000000, 4.5000000000000000 },
+ { 4.4664266585930700e+43, 50.000000000000000, 4.7500000000000000 },
+ { 3.3943222434301628e+42, 50.000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=50.000000000000000.
+template<typename Tp>
+ void
+ test010()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data010)
+ / sizeof(testcase_cyl_bessel_k<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_k(Tp(data010[i].nu), Tp(data010[i].x));
+ const Tp f0 = data010[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=100.00000000000000.
+testcase_cyl_bessel_k<double> data011[] = {
+ { 9.5039428115809898e+245, 100.00000000000000, 0.25000000000000000 },
+ { 7.4937399313533112e+215, 100.00000000000000, 0.50000000000000000 },
+ { 1.8417471020730701e+198, 100.00000000000000, 0.75000000000000000 },
+ { 5.9003331836386410e+185, 100.00000000000000, 1.0000000000000000 },
+ { 1.2002130935576950e+176, 100.00000000000000, 1.2500000000000000 },
+ { 1.4467044226487075e+168, 100.00000000000000, 1.5000000000000000 },
+ { 2.9161498411497642e+161, 100.00000000000000, 1.7500000000000000 },
+ { 4.6194159776013925e+155, 100.00000000000000, 2.0000000000000000 },
+ { 3.5332121583541727e+150, 100.00000000000000, 2.2500000000000000 },
+ { 9.3566097231039940e+145, 100.00000000000000, 2.5000000000000000 },
+ { 6.7672283615134532e+141, 100.00000000000000, 2.7500000000000000 },
+ { 1.1219630864949494e+138, 100.00000000000000, 3.0000000000000000 },
+ { 3.7329723699990903e+134, 100.00000000000000, 3.2500000000000000 },
+ { 2.2476893883855163e+131, 100.00000000000000, 3.5000000000000000 },
+ { 2.2564559319883196e+128, 100.00000000000000, 3.7500000000000000 },
+ { 3.5353340499626455e+125, 100.00000000000000, 4.0000000000000000 },
+ { 8.1898439213010234e+122, 100.00000000000000, 4.2500000000000000 },
+ { 2.6823744110726800e+120, 100.00000000000000, 4.5000000000000000 },
+ { 1.1963963615212274e+118, 100.00000000000000, 4.7500000000000000 },
+ { 7.0398601930616815e+115, 100.00000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=100.00000000000000.
+template<typename Tp>
+ void
+ test011()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data011)
+ / sizeof(testcase_cyl_bessel_k<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_k(Tp(data011[i].nu), Tp(data011[i].x));
+ const Tp f0 = data011[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(5.0000000000000029e-12));
+ }
+// cyl_bessel_k
+
+// Test data for nu=0.0000000000000000.
+testcase_cyl_bessel_k<double> data012[] = {
+ { 0.0036910983340425947, 0.0000000000000000, 5.0000000000000000 },
{ 1.7780062316167650e-05, 0.0000000000000000, 10.000000000000000 },
{ 9.8195364823964333e-08, 0.0000000000000000, 15.000000000000000 },
{ 5.7412378153365238e-10, 0.0000000000000000, 20.000000000000000 },
@@ -49,7 +633,7 @@
{ 2.1324774964630566e-14, 0.0000000000000000, 30.000000000000000 },
{ 1.3310351491429464e-16, 0.0000000000000000, 35.000000000000000 },
{ 8.3928611000995700e-19, 0.0000000000000000, 40.000000000000000 },
- { 5.3334561226187255e-21, 0.0000000000000000, 45.000000000000000 },
+ { 5.3334561226187247e-21, 0.0000000000000000, 45.000000000000000 },
{ 3.4101677497894956e-23, 0.0000000000000000, 50.000000000000000 },
{ 2.1913102183534147e-25, 0.0000000000000000, 55.000000000000000 },
{ 1.4138978405591074e-27, 0.0000000000000000, 60.000000000000000 },
@@ -64,34 +648,36 @@
};
// Test function for nu=0.0000000000000000.
-template <typename Tp>
-void test001()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data001)
- / sizeof(testcase_cyl_bessel_k<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_k(Tp(data001[i].nu), Tp(data001[i].x));
- const Tp f0 = data001[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
-}
+template<typename Tp>
+ void
+ test012()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data012)
+ / sizeof(testcase_cyl_bessel_k<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_k(Tp(data012[i].nu), Tp(data012[i].x));
+ const Tp f0 = data012[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
// Test data for nu=0.33333333333333331.
-testcase_cyl_bessel_k<double> data002[] = {
+testcase_cyl_bessel_k<double> data013[] = {
{ 0.0037288750960535887, 0.33333333333333331, 5.0000000000000000 },
{ 1.7874608271055339e-05, 0.33333333333333331, 10.000000000000000 },
{ 9.8548341568798317e-08, 0.33333333333333331, 15.000000000000000 },
@@ -109,40 +695,42 @@
{ 3.8729660011055947e-34, 0.33333333333333331, 75.000000000000000 },
{ 2.5268631828013877e-36, 0.33333333333333331, 80.000000000000000 },
{ 1.6518353676138867e-38, 0.33333333333333331, 85.000000000000000 },
- { 1.0816880942511496e-40, 0.33333333333333331, 90.000000000000000 },
+ { 1.0816880942511494e-40, 0.33333333333333331, 90.000000000000000 },
{ 7.0942508599231512e-43, 0.33333333333333331, 95.000000000000000 },
{ 4.6592031570213454e-45, 0.33333333333333331, 100.00000000000000 },
};
// Test function for nu=0.33333333333333331.
-template <typename Tp>
-void test002()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data002)
- / sizeof(testcase_cyl_bessel_k<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_k(Tp(data002[i].nu), Tp(data002[i].x));
- const Tp f0 = data002[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
-}
+template<typename Tp>
+ void
+ test013()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data013)
+ / sizeof(testcase_cyl_bessel_k<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_k(Tp(data013[i].nu), Tp(data013[i].x));
+ const Tp f0 = data013[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
// Test data for nu=0.50000000000000000.
-testcase_cyl_bessel_k<double> data003[] = {
+testcase_cyl_bessel_k<double> data014[] = {
{ 0.0037766133746428825, 0.50000000000000000, 5.0000000000000000 },
{ 1.7993478093705181e-05, 0.50000000000000000, 10.000000000000000 },
{ 9.8991312032877236e-08, 0.50000000000000000, 15.000000000000000 },
@@ -166,34 +754,36 @@
};
// Test function for nu=0.50000000000000000.
-template <typename Tp>
-void test003()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data003)
- / sizeof(testcase_cyl_bessel_k<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_k(Tp(data003[i].nu), Tp(data003[i].x));
- const Tp f0 = data003[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
-}
+template<typename Tp>
+ void
+ test014()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data014)
+ / sizeof(testcase_cyl_bessel_k<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_k(Tp(data014[i].nu), Tp(data014[i].x));
+ const Tp f0 = data014[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
// Test data for nu=0.66666666666666663.
-testcase_cyl_bessel_k<double> data004[] = {
+testcase_cyl_bessel_k<double> data015[] = {
{ 0.0038444246344968226, 0.66666666666666663, 5.0000000000000000 },
{ 1.8161187569530204e-05, 0.66666666666666663, 10.000000000000000 },
{ 9.9614751542305571e-08, 0.66666666666666663, 15.000000000000000 },
@@ -211,40 +801,42 @@
{ 3.8815254026478500e-34, 0.66666666666666663, 75.000000000000000 },
{ 2.5321003991943851e-36, 0.66666666666666663, 80.000000000000000 },
{ 1.6550585670593067e-38, 0.66666666666666663, 85.000000000000000 },
- { 1.0836820479428609e-40, 0.66666666666666663, 90.000000000000000 },
+ { 1.0836820479428605e-40, 0.66666666666666663, 90.000000000000000 },
{ 7.1066428916285356e-43, 0.66666666666666663, 95.000000000000000 },
{ 4.6669364587280465e-45, 0.66666666666666663, 100.00000000000000 },
};
// Test function for nu=0.66666666666666663.
-template <typename Tp>
-void test004()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data004)
- / sizeof(testcase_cyl_bessel_k<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_k(Tp(data004[i].nu), Tp(data004[i].x));
- const Tp f0 = data004[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
-}
+template<typename Tp>
+ void
+ test015()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data015)
+ / sizeof(testcase_cyl_bessel_k<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_k(Tp(data015[i].nu), Tp(data015[i].x));
+ const Tp f0 = data015[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
// Test data for nu=1.0000000000000000.
-testcase_cyl_bessel_k<double> data005[] = {
+testcase_cyl_bessel_k<double> data016[] = {
{ 0.0040446134454521655, 1.0000000000000000, 5.0000000000000000 },
{ 1.8648773453825582e-05, 1.0000000000000000, 10.000000000000000 },
{ 1.0141729369762091e-07, 1.0000000000000000, 15.000000000000000 },
@@ -253,7 +845,7 @@
{ 2.1677320018915498e-14, 1.0000000000000000, 30.000000000000000 },
{ 1.3499178340011053e-16, 1.0000000000000000, 35.000000000000000 },
{ 8.4971319548610435e-19, 1.0000000000000000, 40.000000000000000 },
- { 5.3923945937225050e-21, 1.0000000000000000, 45.000000000000000 },
+ { 5.3923945937225035e-21, 1.0000000000000000, 45.000000000000000 },
{ 3.4441022267175555e-23, 1.0000000000000000, 50.000000000000000 },
{ 2.2111422716117463e-25, 1.0000000000000000, 55.000000000000000 },
{ 1.4256320265171041e-27, 1.0000000000000000, 60.000000000000000 },
@@ -268,34 +860,36 @@
};
// Test function for nu=1.0000000000000000.
-template <typename Tp>
-void test005()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data005)
- / sizeof(testcase_cyl_bessel_k<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_k(Tp(data005[i].nu), Tp(data005[i].x));
- const Tp f0 = data005[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
-}
+template<typename Tp>
+ void
+ test016()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data016)
+ / sizeof(testcase_cyl_bessel_k<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_k(Tp(data016[i].nu), Tp(data016[i].x));
+ const Tp f0 = data016[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
// Test data for nu=2.0000000000000000.
-testcase_cyl_bessel_k<double> data006[] = {
+testcase_cyl_bessel_k<double> data017[] = {
{ 0.0053089437122234608, 2.0000000000000000, 5.0000000000000000 },
{ 2.1509817006932767e-05, 2.0000000000000000, 10.000000000000000 },
{ 1.1171767065031378e-07, 2.0000000000000000, 15.000000000000000 },
@@ -304,7 +898,7 @@
{ 2.2769929632558265e-14, 2.0000000000000000, 30.000000000000000 },
{ 1.4081733110858665e-16, 2.0000000000000000, 35.000000000000000 },
{ 8.8177176978426223e-19, 2.0000000000000000, 40.000000000000000 },
- { 5.5731181045619477e-21, 2.0000000000000000, 45.000000000000000 },
+ { 5.5731181045619470e-21, 2.0000000000000000, 45.000000000000000 },
{ 3.5479318388581979e-23, 2.0000000000000000, 50.000000000000000 },
{ 2.2717153918665688e-25, 2.0000000000000000, 55.000000000000000 },
{ 1.4614189081096777e-27, 2.0000000000000000, 60.000000000000000 },
@@ -312,7 +906,7 @@
{ 6.1157177279757537e-32, 2.0000000000000000, 70.000000000000000 },
{ 3.9740059241667034e-34, 2.0000000000000000, 75.000000000000000 },
{ 2.5886411706935015e-36, 2.0000000000000000, 80.000000000000000 },
- { 1.6898316402103145e-38, 2.0000000000000000, 85.000000000000000 },
+ { 1.6898316402103142e-38, 2.0000000000000000, 85.000000000000000 },
{ 1.1051801100484218e-40, 2.0000000000000000, 90.000000000000000 },
{ 7.2401743221736176e-43, 2.0000000000000000, 95.000000000000000 },
{ 4.7502253038886413e-45, 2.0000000000000000, 100.00000000000000 },
@@ -319,36 +913,38 @@
};
// Test function for nu=2.0000000000000000.
-template <typename Tp>
-void test006()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data006)
- / sizeof(testcase_cyl_bessel_k<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_k(Tp(data006[i].nu), Tp(data006[i].x));
- const Tp f0 = data006[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
-}
+template<typename Tp>
+ void
+ test017()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data017)
+ / sizeof(testcase_cyl_bessel_k<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_k(Tp(data017[i].nu), Tp(data017[i].x));
+ const Tp f0 = data017[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
// Test data for nu=5.0000000000000000.
-testcase_cyl_bessel_k<double> data007[] = {
+testcase_cyl_bessel_k<double> data018[] = {
{ 0.032706273712031865, 5.0000000000000000, 5.0000000000000000 },
- { 5.7541849985312275e-05, 5.0000000000000000, 10.000000000000000 },
+ { 5.7541849985312288e-05, 5.0000000000000000, 10.000000000000000 },
{ 2.1878261369258224e-07, 5.0000000000000000, 15.000000000000000 },
{ 1.0538660139974233e-09, 5.0000000000000000, 20.000000000000000 },
{ 5.6485921365284157e-12, 5.0000000000000000, 25.000000000000000 },
@@ -355,7 +951,7 @@
{ 3.2103335105890266e-14, 5.0000000000000000, 30.000000000000000 },
{ 1.8919208406439644e-16, 5.0000000000000000, 35.000000000000000 },
{ 1.1423814375953188e-18, 5.0000000000000000, 40.000000000000000 },
- { 7.0181216822204116e-21, 5.0000000000000000, 45.000000000000000 },
+ { 7.0181216822204101e-21, 5.0000000000000000, 45.000000000000000 },
{ 4.3671822541009859e-23, 5.0000000000000000, 50.000000000000000 },
{ 2.7444967640357869e-25, 5.0000000000000000, 55.000000000000000 },
{ 1.7382232741886986e-27, 5.0000000000000000, 60.000000000000000 },
@@ -370,43 +966,45 @@
};
// Test function for nu=5.0000000000000000.
-template <typename Tp>
-void test007()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data007)
- / sizeof(testcase_cyl_bessel_k<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_k(Tp(data007[i].nu), Tp(data007[i].x));
- const Tp f0 = data007[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
-}
+template<typename Tp>
+ void
+ test018()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data018)
+ / sizeof(testcase_cyl_bessel_k<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_k(Tp(data018[i].nu), Tp(data018[i].x));
+ const Tp f0 = data018[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
// Test data for nu=10.000000000000000.
-testcase_cyl_bessel_k<double> data008[] = {
+testcase_cyl_bessel_k<double> data019[] = {
{ 9.7585628291778121, 10.000000000000000, 5.0000000000000000 },
{ 0.0016142553003906700, 10.000000000000000, 10.000000000000000 },
- { 2.2605303776606440e-06, 10.000000000000000, 15.000000000000000 },
- { 6.3162145283215787e-09, 10.000000000000000, 20.000000000000000 },
- { 2.4076769602801230e-11, 10.000000000000000, 25.000000000000000 },
+ { 2.2605303776606435e-06, 10.000000000000000, 15.000000000000000 },
+ { 6.3162145283215804e-09, 10.000000000000000, 20.000000000000000 },
+ { 2.4076769602801233e-11, 10.000000000000000, 25.000000000000000 },
{ 1.0842816942222975e-13, 10.000000000000000, 30.000000000000000 },
{ 5.3976770429777191e-16, 10.000000000000000, 35.000000000000000 },
{ 2.8680293113671932e-18, 10.000000000000000, 40.000000000000000 },
- { 1.5939871900169603e-20, 10.000000000000000, 45.000000000000000 },
+ { 1.5939871900169600e-20, 10.000000000000000, 45.000000000000000 },
{ 9.1509882099879962e-23, 10.000000000000000, 50.000000000000000 },
{ 5.3823846249592858e-25, 10.000000000000000, 55.000000000000000 },
{ 3.2253408700563144e-27, 10.000000000000000, 60.000000000000000 },
@@ -414,7 +1012,7 @@
{ 1.2068471495933484e-31, 10.000000000000000, 70.000000000000000 },
{ 7.4979152649449644e-34, 10.000000000000000, 75.000000000000000 },
{ 4.6957285830490538e-36, 10.000000000000000, 80.000000000000000 },
- { 2.9606323347034084e-38, 10.000000000000000, 85.000000000000000 },
+ { 2.9606323347034079e-38, 10.000000000000000, 85.000000000000000 },
{ 1.8773542561131613e-40, 10.000000000000000, 90.000000000000000 },
{ 1.1962899527846350e-42, 10.000000000000000, 95.000000000000000 },
{ 7.6554279773881018e-45, 10.000000000000000, 100.00000000000000 },
@@ -421,186 +1019,195 @@
};
// Test function for nu=10.000000000000000.
-template <typename Tp>
-void test008()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data008)
- / sizeof(testcase_cyl_bessel_k<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_k(Tp(data008[i].nu), Tp(data008[i].x));
- const Tp f0 = data008[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
-}
+template<typename Tp>
+ void
+ test019()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data019)
+ / sizeof(testcase_cyl_bessel_k<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_k(Tp(data019[i].nu), Tp(data019[i].x));
+ const Tp f0 = data019[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
// Test data for nu=20.000000000000000.
-testcase_cyl_bessel_k<double> data009[] = {
+testcase_cyl_bessel_k<double> data020[] = {
{ 482700052.06214869, 20.000000000000000, 5.0000000000000000 },
- { 178.74427820770549, 20.000000000000000, 10.000000000000000 },
- { 0.012141257729731146, 20.000000000000000, 15.000000000000000 },
+ { 178.74427820770546, 20.000000000000000, 10.000000000000000 },
+ { 0.012141257729731143, 20.000000000000000, 15.000000000000000 },
{ 5.5431116361258155e-06, 20.000000000000000, 20.000000000000000 },
- { 6.3744029330352105e-09, 20.000000000000000, 25.000000000000000 },
+ { 6.3744029330352113e-09, 20.000000000000000, 25.000000000000000 },
{ 1.2304516475442478e-11, 20.000000000000000, 30.000000000000000 },
- { 3.2673136479809012e-14, 20.000000000000000, 35.000000000000000 },
+ { 3.2673136479809018e-14, 20.000000000000000, 35.000000000000000 },
{ 1.0703023799997383e-16, 20.000000000000000, 40.000000000000000 },
- { 4.0549953175660486e-19, 20.000000000000000, 45.000000000000000 },
- { 1.7061483797220352e-21, 20.000000000000000, 50.000000000000000 },
+ { 4.0549953175660457e-19, 20.000000000000000, 45.000000000000000 },
+ { 1.7061483797220349e-21, 20.000000000000000, 50.000000000000000 },
{ 7.7617008115659413e-24, 20.000000000000000, 55.000000000000000 },
- { 3.7482954006874725e-26, 20.000000000000000, 60.000000000000000 },
- { 1.8966880763956578e-28, 20.000000000000000, 65.000000000000000 },
- { 9.9615763479998882e-31, 20.000000000000000, 70.000000000000000 },
+ { 3.7482954006874720e-26, 20.000000000000000, 60.000000000000000 },
+ { 1.8966880763956576e-28, 20.000000000000000, 65.000000000000000 },
+ { 9.9615763479998864e-31, 20.000000000000000, 70.000000000000000 },
{ 5.3921623063091066e-33, 20.000000000000000, 75.000000000000000 },
{ 2.9920407657642272e-35, 20.000000000000000, 80.000000000000000 },
- { 1.6948662723618263e-37, 20.000000000000000, 85.000000000000000 },
- { 9.7689149642963025e-40, 20.000000000000000, 90.000000000000000 },
+ { 1.6948662723618255e-37, 20.000000000000000, 85.000000000000000 },
+ { 9.7689149642963042e-40, 20.000000000000000, 90.000000000000000 },
{ 5.7143603019220823e-42, 20.000000000000000, 95.000000000000000 },
{ 3.3852054148901700e-44, 20.000000000000000, 100.00000000000000 },
};
// Test function for nu=20.000000000000000.
-template <typename Tp>
-void test009()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data009)
- / sizeof(testcase_cyl_bessel_k<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_k(Tp(data009[i].nu), Tp(data009[i].x));
- const Tp f0 = data009[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
-}
+template<typename Tp>
+ void
+ test020()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data020)
+ / sizeof(testcase_cyl_bessel_k<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_k(Tp(data020[i].nu), Tp(data020[i].x));
+ const Tp f0 = data020[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
// Test data for nu=50.000000000000000.
-testcase_cyl_bessel_k<double> data010[] = {
+testcase_cyl_bessel_k<double> data021[] = {
{ 3.3943222434301628e+42, 50.000000000000000, 5.0000000000000000 },
- { 2.0613737753892579e+27, 50.000000000000000, 10.000000000000000 },
- { 1.7267736974519191e+18, 50.000000000000000, 15.000000000000000 },
- { 411711209122.01794, 50.000000000000000, 20.000000000000000 },
- { 1972478.7419813862, 50.000000000000000, 25.000000000000000 },
+ { 2.0613737753892557e+27, 50.000000000000000, 10.000000000000000 },
+ { 1.7267736974519188e+18, 50.000000000000000, 15.000000000000000 },
+ { 411711209122.01788, 50.000000000000000, 20.000000000000000 },
+ { 1972478.7419813874, 50.000000000000000, 25.000000000000000 },
{ 58.770686258007267, 50.000000000000000, 30.000000000000000 },
- { 0.0058659391182535195, 50.000000000000000, 35.000000000000000 },
- { 1.3634854128794103e-06, 50.000000000000000, 40.000000000000000 },
- { 5.8652396362160840e-10, 50.000000000000000, 45.000000000000000 },
- { 4.0060134766400903e-13, 50.000000000000000, 50.000000000000000 },
+ { 0.0058659391182535178, 50.000000000000000, 35.000000000000000 },
+ { 1.3634854128794101e-06, 50.000000000000000, 40.000000000000000 },
+ { 5.8652396362160819e-10, 50.000000000000000, 45.000000000000000 },
+ { 4.0060134766400893e-13, 50.000000000000000, 50.000000000000000 },
{ 3.9062324485711016e-16, 50.000000000000000, 55.000000000000000 },
- { 5.0389298085176520e-19, 50.000000000000000, 60.000000000000000 },
- { 8.1305344250110396e-22, 50.000000000000000, 65.000000000000000 },
- { 1.5732816234949002e-24, 50.000000000000000, 70.000000000000000 },
- { 3.5349854993874397e-27, 50.000000000000000, 75.000000000000000 },
+ { 5.0389298085176510e-19, 50.000000000000000, 60.000000000000000 },
+ { 8.1305344250110424e-22, 50.000000000000000, 65.000000000000000 },
+ { 1.5732816234948991e-24, 50.000000000000000, 70.000000000000000 },
+ { 3.5349854993874412e-27, 50.000000000000000, 75.000000000000000 },
{ 8.9940101003189485e-30, 50.000000000000000, 80.000000000000000 },
{ 2.5403205503080723e-32, 50.000000000000000, 85.000000000000000 },
- { 7.8397596486715711e-35, 50.000000000000000, 90.000000000000000 },
- { 2.6098900651329550e-37, 50.000000000000000, 95.000000000000000 },
- { 9.2745226536133274e-40, 50.000000000000000, 100.00000000000000 },
+ { 7.8397596486715721e-35, 50.000000000000000, 90.000000000000000 },
+ { 2.6098900651329542e-37, 50.000000000000000, 95.000000000000000 },
+ { 9.2745226536133258e-40, 50.000000000000000, 100.00000000000000 },
};
// Test function for nu=50.000000000000000.
-template <typename Tp>
-void test010()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data010)
- / sizeof(testcase_cyl_bessel_k<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_k(Tp(data010[i].nu), Tp(data010[i].x));
- const Tp f0 = data010[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
-}
+template<typename Tp>
+ void
+ test021()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data021)
+ / sizeof(testcase_cyl_bessel_k<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_k(Tp(data021[i].nu), Tp(data021[i].x));
+ const Tp f0 = data021[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
// Test data for nu=100.00000000000000.
-testcase_cyl_bessel_k<double> data011[] = {
- { 7.0398601930616797e+115, 100.00000000000000, 5.0000000000000000 },
- { 4.5966740842695286e+85, 100.00000000000000, 10.000000000000000 },
- { 8.2565552242653898e+67, 100.00000000000000, 15.000000000000000 },
- { 1.7081356456876038e+55, 100.00000000000000, 20.000000000000000 },
- { 1.9858028128780595e+45, 100.00000000000000, 25.000000000000000 },
+testcase_cyl_bessel_k<double> data022[] = {
+ { 7.0398601930616815e+115, 100.00000000000000, 5.0000000000000000 },
+ { 4.5966740842695238e+85, 100.00000000000000, 10.000000000000000 },
+ { 8.2565552242653946e+67, 100.00000000000000, 15.000000000000000 },
+ { 1.7081356456876041e+55, 100.00000000000000, 20.000000000000000 },
+ { 1.9858028128780610e+45, 100.00000000000000, 25.000000000000000 },
{ 1.2131584253026677e+37, 100.00000000000000, 30.000000000000000 },
- { 1.1016916354696684e+30, 100.00000000000000, 35.000000000000000 },
+ { 1.1016916354696688e+30, 100.00000000000000, 35.000000000000000 },
{ 7.0074023297775712e+23, 100.00000000000000, 40.000000000000000 },
- { 1.9236643958470909e+18, 100.00000000000000, 45.000000000000000 },
- { 16394035276269.254, 100.00000000000000, 50.000000000000000 },
- { 343254952.89495456, 100.00000000000000, 55.000000000000000 },
- { 14870.012754946305, 100.00000000000000, 60.000000000000000 },
- { 1.1708099078572209, 100.00000000000000, 65.000000000000000 },
- { 0.00015161193930722305, 100.00000000000000, 70.000000000000000 },
- { 2.9850234381623436e-08, 100.00000000000000, 75.000000000000000 },
- { 8.3928710724649065e-12, 100.00000000000000, 80.000000000000000 },
- { 3.2033435630927728e-15, 100.00000000000000, 85.000000000000000 },
- { 1.5922281431788077e-18, 100.00000000000000, 90.000000000000000 },
- { 9.9589454577674300e-22, 100.00000000000000, 95.000000000000000 },
- { 7.6171296304940858e-25, 100.00000000000000, 100.00000000000000 },
+ { 1.9236643958470894e+18, 100.00000000000000, 45.000000000000000 },
+ { 16394035276269.250, 100.00000000000000, 50.000000000000000 },
+ { 343254952.89495474, 100.00000000000000, 55.000000000000000 },
+ { 14870.012754946298, 100.00000000000000, 60.000000000000000 },
+ { 1.1708099078572216, 100.00000000000000, 65.000000000000000 },
+ { 0.00015161193930722313, 100.00000000000000, 70.000000000000000 },
+ { 2.9850234381623443e-08, 100.00000000000000, 75.000000000000000 },
+ { 8.3928710724649129e-12, 100.00000000000000, 80.000000000000000 },
+ { 3.2033435630927732e-15, 100.00000000000000, 85.000000000000000 },
+ { 1.5922281431788096e-18, 100.00000000000000, 90.000000000000000 },
+ { 9.9589454577674131e-22, 100.00000000000000, 95.000000000000000 },
+ { 7.6171296304940840e-25, 100.00000000000000, 100.00000000000000 },
};
// Test function for nu=100.00000000000000.
-template <typename Tp>
-void test011()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data011)
- / sizeof(testcase_cyl_bessel_k<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_bessel_k(Tp(data011[i].nu), Tp(data011[i].x));
- const Tp f0 = data011[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(5.0000000000000039e-13));
-}
+template<typename Tp>
+ void
+ test022()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data022)
+ / sizeof(testcase_cyl_bessel_k<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_bessel_k(Tp(data022[i].nu), Tp(data022[i].x));
+ const Tp f0 = data022[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
-int main(int, char**)
+int
+main()
{
test001<double>();
test002<double>();
@@ -613,5 +1220,16 @@
test009<double>();
test010<double>();
test011<double>();
+ test012<double>();
+ test013<double>();
+ test014<double>();
+ test015<double>();
+ test016<double>();
+ test017<double>();
+ test018<double>();
+ test019<double>();
+ test020<double>();
+ test021<double>();
+ test022<double>();
return 0;
}
Index: testsuite/tr1/5_numerical_facilities/special_functions/11_cyl_neumann/check_value.cc
===================================================================
--- testsuite/tr1/5_numerical_facilities/special_functions/11_cyl_neumann/check_value.cc (revision 232104)
+++ testsuite/tr1/5_numerical_facilities/special_functions/11_cyl_neumann/check_value.cc (working copy)
@@ -41,566 +41,1159 @@
// Test data for nu=0.0000000000000000.
testcase_cyl_neumann<double> data001[] = {
- { -0.30851762524903376, 0.0000000000000000, 5.0000000000000000 },
- { 0.055671167283599395, 0.0000000000000000, 10.000000000000000 },
- { 0.20546429603891825, 0.0000000000000000, 15.000000000000000 },
- { 0.062640596809383955, 0.0000000000000000, 20.000000000000000 },
- { -0.12724943226800620, 0.0000000000000000, 25.000000000000000 },
- { -0.11729573168666411, 0.0000000000000000, 30.000000000000000 },
- { 0.045797987195155640, 0.0000000000000000, 35.000000000000000 },
- { 0.12593641705826095, 0.0000000000000000, 40.000000000000000 },
- { 0.027060469763313322, 0.0000000000000000, 45.000000000000000 },
- { -0.098064995470077104, 0.0000000000000000, 50.000000000000000 },
- { -0.077569178730412622, 0.0000000000000000, 55.000000000000000 },
- { 0.047358952209449412, 0.0000000000000000, 60.000000000000000 },
- { 0.097183557740181933, 0.0000000000000000, 65.000000000000000 },
- { 0.0093096664589410131, 0.0000000000000000, 70.000000000000000 },
- { -0.085369047647775642, 0.0000000000000000, 75.000000000000000 },
- { -0.055620339089769981, 0.0000000000000000, 80.000000000000000 },
- { 0.049567884951494258, 0.0000000000000000, 85.000000000000000 },
- { 0.079776475854877765, 0.0000000000000000, 90.000000000000000 },
- { -0.0028230995861232323, 0.0000000000000000, 95.000000000000000 },
- { -0.077244313365083112, 0.0000000000000000, 100.00000000000000 },
+ { -0.93157302493005878, 0.0000000000000000, 0.25000000000000000 },
+ { -0.44451873350670656, 0.0000000000000000, 0.50000000000000000 },
+ { -0.13717276938577236, 0.0000000000000000, 0.75000000000000000 },
+ { 0.088256964215676942, 0.0000000000000000, 1.0000000000000000 },
+ { 0.25821685159454072, 0.0000000000000000, 1.2500000000000000 },
+ { 0.38244892379775886, 0.0000000000000000, 1.5000000000000000 },
+ { 0.46549262864690610, 0.0000000000000000, 1.7500000000000000 },
+ { 0.51037567264974493, 0.0000000000000000, 2.0000000000000000 },
+ { 0.52006476245727862, 0.0000000000000000, 2.2500000000000000 },
+ { 0.49807035961523194, 0.0000000000000000, 2.5000000000000000 },
+ { 0.44865872156913222, 0.0000000000000000, 2.7500000000000000 },
+ { 0.37685001001279045, 0.0000000000000000, 3.0000000000000000 },
+ { 0.28828690267308710, 0.0000000000000000, 3.2500000000000000 },
+ { 0.18902194392082688, 0.0000000000000000, 3.5000000000000000 },
+ { 0.085256756977362638, 0.0000000000000000, 3.7500000000000000 },
+ { -0.016940739325064763, 0.0000000000000000, 4.0000000000000000 },
+ { -0.11191885116160770, 0.0000000000000000, 4.2500000000000000 },
+ { -0.19470500862950454, 0.0000000000000000, 4.5000000000000000 },
+ { -0.26123250323497549, 0.0000000000000000, 4.7500000000000000 },
+ { -0.30851762524903359, 0.0000000000000000, 5.0000000000000000 },
};
// Test function for nu=0.0000000000000000.
-template <typename Tp>
-void test001()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data001)
- / sizeof(testcase_cyl_neumann<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_neumann(Tp(data001[i].nu), Tp(data001[i].x));
- const Tp f0 = data001[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(1.0000000000000006e-10));
-}
+template<typename Tp>
+ void
+ test001()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data001)
+ / sizeof(testcase_cyl_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_neumann(Tp(data001[i].nu), Tp(data001[i].x));
+ const Tp f0 = data001[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
// Test data for nu=0.33333333333333331.
testcase_cyl_neumann<double> data002[] = {
- { -0.18192321129343830, 0.33333333333333331, 5.0000000000000000 },
- { 0.17020111788268769, 0.33333333333333331, 10.000000000000000 },
- { 0.18540507541540799, 0.33333333333333331, 15.000000000000000 },
- { -0.028777707635715091, 0.33333333333333331, 20.000000000000000 },
- { -0.15829741864944166, 0.33333333333333331, 25.000000000000000 },
- { -0.058645772316705216, 0.33333333333333331, 30.000000000000000 },
- { 0.10294930308870620, 0.33333333333333331, 35.000000000000000 },
- { 0.10547870367098920, 0.33333333333333331, 40.000000000000000 },
- { -0.034334228816010864, 0.33333333333333331, 45.000000000000000 },
- { -0.11283489933031278, 0.33333333333333331, 50.000000000000000 },
- { -0.030007358986895123, 0.33333333333333331, 55.000000000000000 },
- { 0.086699173295718093, 0.33333333333333331, 60.000000000000000 },
- { 0.074875579668878672, 0.33333333333333331, 65.000000000000000 },
- { -0.039323246374552645, 0.33333333333333331, 70.000000000000000 },
- { -0.091263539574475222, 0.33333333333333331, 75.000000000000000 },
- { -0.013358849535984282, 0.33333333333333331, 80.000000000000000 },
- { 0.078373575537830184, 0.33333333333333331, 85.000000000000000 },
- { 0.055812482883955974, 0.33333333333333331, 90.000000000000000 },
- { -0.043310380106990579, 0.33333333333333331, 95.000000000000000 },
- { -0.076900504962136587, 0.33333333333333331, 100.00000000000000 },
+ { -1.3461842332051077, 0.33333333333333331, 0.25000000000000000 },
+ { -0.84062782604337771, 0.33333333333333331, 0.50000000000000000 },
+ { -0.52488281484097077, 0.33333333333333331, 0.75000000000000000 },
+ { -0.27880164127599205, 0.33333333333333331, 1.0000000000000000 },
+ { -0.074321349727836453, 0.33333333333333331, 1.2500000000000000 },
+ { 0.096610087766627981, 0.33333333333333331, 1.5000000000000000 },
+ { 0.23582564494922068, 0.33333333333333331, 1.7500000000000000 },
+ { 0.34319996626034494, 0.33333333333333331, 2.0000000000000000 },
+ { 0.41835668452349323, 0.33333333333333331, 2.2500000000000000 },
+ { 0.46145947419129157, 0.33333333333333331, 2.5000000000000000 },
+ { 0.47358926135786023, 0.33333333333333331, 2.7500000000000000 },
+ { 0.45689303457230640, 0.33333333333333331, 3.0000000000000000 },
+ { 0.41458485697347386, 0.33333333333333331, 3.2500000000000000 },
+ { 0.35084133277859947, 0.33333333333333331, 3.5000000000000000 },
+ { 0.27061914527820891, 0.33333333333333331, 3.7500000000000000 },
+ { 0.17941676634394862, 0.33333333333333331, 4.0000000000000000 },
+ { 0.083000434191526043, 0.33333333333333331, 4.2500000000000000 },
+ { -0.012886361627105348, 0.33333333333333331, 4.5000000000000000 },
+ { -0.10281143123935124, 0.33333333333333331, 4.7500000000000000 },
+ { -0.18192321129343850, 0.33333333333333331, 5.0000000000000000 },
};
// Test function for nu=0.33333333333333331.
-template <typename Tp>
-void test002()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data002)
- / sizeof(testcase_cyl_neumann<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_neumann(Tp(data002[i].nu), Tp(data002[i].x));
- const Tp f0 = data002[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
-}
+template<typename Tp>
+ void
+ test002()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data002)
+ / sizeof(testcase_cyl_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_neumann(Tp(data002[i].nu), Tp(data002[i].x));
+ const Tp f0 = data002[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(1.0000000000000008e-12));
+ }
// Test data for nu=0.50000000000000000.
testcase_cyl_neumann<double> data003[] = {
- { -0.10121770918510843, 0.50000000000000000, 5.0000000000000000 },
- { 0.21170886633139813, 0.50000000000000000, 10.000000000000000 },
- { 0.15650551590730860, 0.50000000000000000, 15.000000000000000 },
- { -0.072806904785061841, 0.50000000000000000, 20.000000000000000 },
+ { -1.5461605241060765, 0.50000000000000000, 0.25000000000000000 },
+ { -0.99024588024340454, 0.50000000000000000, 0.50000000000000000 },
+ { -0.67411792914454460, 0.50000000000000000, 0.75000000000000000 },
+ { -0.43109886801837594, 0.50000000000000000, 1.0000000000000000 },
+ { -0.22502969244466481, 0.50000000000000000, 1.2500000000000000 },
+ { -0.046083165893097265, 0.50000000000000000, 1.5000000000000000 },
+ { 0.10750804524368722, 0.50000000000000000, 1.7500000000000000 },
+ { 0.23478571040624849, 0.50000000000000000, 2.0000000000000000 },
+ { 0.33414002338271825, 0.50000000000000000, 2.2500000000000000 },
+ { 0.40427830223905686, 0.50000000000000000, 2.5000000000000000 },
+ { 0.44472115119490507, 0.50000000000000000, 2.7500000000000000 },
+ { 0.45604882079463316, 0.50000000000000000, 3.0000000000000000 },
+ { 0.43998859501924370, 0.50000000000000000, 3.2500000000000000 },
+ { 0.39938682536304909, 0.50000000000000000, 3.5000000000000000 },
+ { 0.33809163836693340, 0.50000000000000000, 3.7500000000000000 },
+ { 0.26076607667717877, 0.50000000000000000, 4.0000000000000000 },
+ { 0.17264962544644955, 0.50000000000000000, 4.2500000000000000 },
+ { 0.079285862862978548, 0.50000000000000000, 4.5000000000000000 },
+ { -0.013765943019498003, 0.50000000000000000, 4.7500000000000000 },
+ { -0.10121770918510846, 0.50000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=0.50000000000000000.
+template<typename Tp>
+ void
+ test003()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data003)
+ / sizeof(testcase_cyl_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_neumann(Tp(data003[i].nu), Tp(data003[i].x));
+ const Tp f0 = data003[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(5.0000000000000039e-13));
+ }
+
+// Test data for nu=0.66666666666666663.
+testcase_cyl_neumann<double> data004[] = {
+ { -1.8021638417426857, 0.66666666666666663, 0.25000000000000000 },
+ { -1.1316060101031435, 0.66666666666666663, 0.50000000000000000 },
+ { -0.80251156358450737, 0.66666666666666663, 0.75000000000000000 },
+ { -0.56270321497463327, 0.66666666666666663, 1.0000000000000000 },
+ { -0.36007453643432208, 0.66666666666666663, 1.2500000000000000 },
+ { -0.18017937469615020, 0.66666666666666663, 1.5000000000000000 },
+ { -0.019885608758103752, 0.66666666666666663, 1.7500000000000000 },
+ { 0.11989345361903521, 0.66666666666666663, 2.0000000000000000 },
+ { 0.23690889836358039, 0.66666666666666663, 2.2500000000000000 },
+ { 0.32882045742954535, 0.66666666666666663, 2.5000000000000000 },
+ { 0.39385133784531856, 0.66666666666666663, 2.7500000000000000 },
+ { 0.43115101690935642, 0.66666666666666663, 3.0000000000000000 },
+ { 0.44098127351445843, 0.66666666666666663, 3.2500000000000000 },
+ { 0.42477631413456485, 0.66666666666666663, 3.5000000000000000 },
+ { 0.38510384155620386, 0.66666666666666663, 3.7500000000000000 },
+ { 0.32554526794354366, 0.66666666666666663, 4.0000000000000000 },
+ { 0.25051080073878446, 0.66666666666666663, 4.2500000000000000 },
+ { 0.16500507211842136, 0.66666666666666663, 4.5000000000000000 },
+ { 0.074359649728861360, 0.66666666666666663, 4.7500000000000000 },
+ { -0.016050662643389627, 0.66666666666666663, 5.0000000000000000 },
+};
+
+// Test function for nu=0.66666666666666663.
+template<typename Tp>
+ void
+ test004()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data004)
+ / sizeof(testcase_cyl_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_neumann(Tp(data004[i].nu), Tp(data004[i].x));
+ const Tp f0 = data004[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(5.0000000000000039e-13));
+ }
+
+// Test data for nu=1.0000000000000000.
+testcase_cyl_neumann<double> data005[] = {
+ { -0.10703243154093699, 1.0000000000000000, 2.0000000000000000 },
+ { 0.027192057738017056, 1.0000000000000000, 2.2500000000000000 },
+ { 0.14591813796678599, 1.0000000000000000, 2.5000000000000000 },
+ { 0.24601900149738354, 1.0000000000000000, 2.7500000000000000 },
+ { 0.32467442479180003, 1.0000000000000000, 3.0000000000000000 },
+ { 0.37977777371708382, 1.0000000000000000, 3.2500000000000000 },
+ { 0.41018841788751170, 1.0000000000000000, 3.5000000000000000 },
+ { 0.41586877934522715, 1.0000000000000000, 3.7500000000000000 },
+ { 0.39792571055709991, 1.0000000000000000, 4.0000000000000000 },
+ { 0.35856889308385076, 1.0000000000000000, 4.2500000000000000 },
+ { 0.30099732306965449, 1.0000000000000000, 4.5000000000000000 },
+ { 0.22922559673872217, 1.0000000000000000, 4.7500000000000000 },
+ { 0.14786314339122700, 1.0000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=1.0000000000000000.
+template<typename Tp>
+ void
+ test005()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data005)
+ / sizeof(testcase_cyl_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_neumann(Tp(data005[i].nu), Tp(data005[i].x));
+ const Tp f0 = data005[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000015e-12));
+ }
+
+// Test data for nu=2.0000000000000000.
+testcase_cyl_neumann<double> data006[] = {
+ { -20.701268809592200, 2.0000000000000000, 0.25000000000000000 },
+ { -5.4413708371742668, 2.0000000000000000, 0.50000000000000000 },
+ { -2.6297460326656559, 2.0000000000000000, 0.75000000000000000 },
+ { -1.6506826068162548, 2.0000000000000000, 1.0000000000000000 },
+ { -1.1931993101785539, 2.0000000000000000, 1.2500000000000000 },
+ { -0.93219375976297369, 2.0000000000000000, 1.5000000000000000 },
+ { -0.75574746972832973, 2.0000000000000000, 1.7500000000000000 },
+ { -0.61740810419068193, 2.0000000000000000, 2.0000000000000000 },
+ { -0.49589404446793012, 2.0000000000000000, 2.2500000000000000 },
+ { -0.38133584924180314, 2.0000000000000000, 2.5000000000000000 },
+ { -0.26973581138921693, 2.0000000000000000, 2.7500000000000000 },
+ { -0.16040039348492377, 2.0000000000000000, 3.0000000000000000 },
+ { -0.054577503462573951, 2.0000000000000000, 3.2500000000000000 },
+ { 0.045371437729179787, 2.0000000000000000, 3.5000000000000000 },
+ { 0.13653992534009185, 2.0000000000000000, 3.7500000000000000 },
+ { 0.21590359460361472, 2.0000000000000000, 4.0000000000000000 },
+ { 0.28065715378930217, 2.0000000000000000, 4.2500000000000000 },
+ { 0.32848159666046206, 2.0000000000000000, 4.5000000000000000 },
+ { 0.35774854396706901, 2.0000000000000000, 4.7500000000000000 },
+ { 0.36766288260552438, 2.0000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=2.0000000000000000.
+template<typename Tp>
+ void
+ test006()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data006)
+ / sizeof(testcase_cyl_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_neumann(Tp(data006[i].nu), Tp(data006[i].x));
+ const Tp f0 = data006[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(1.0000000000000008e-12));
+ }
+
+// Test data for nu=5.0000000000000000.
+testcase_cyl_neumann<double> data007[] = {
+ { -9.9359891284819675, 5.0000000000000000, 2.0000000000000000 },
+ { -5.9446343848076424, 5.0000000000000000, 2.2500000000000000 },
+ { -3.8301760007407522, 5.0000000000000000, 2.5000000000000000 },
+ { -2.6287042009459087, 5.0000000000000000, 2.7500000000000000 },
+ { -1.9059459538286738, 5.0000000000000000, 3.0000000000000000 },
+ { -1.4498157389142654, 5.0000000000000000, 3.2500000000000000 },
+ { -1.1494603169763686, 5.0000000000000000, 3.5000000000000000 },
+ { -0.94343105151431672, 5.0000000000000000, 3.7500000000000000 },
+ { -0.79585142111419982, 5.0000000000000000, 4.0000000000000000 },
+ { -0.68479288173907016, 5.0000000000000000, 4.2500000000000000 },
+ { -0.59631936513587558, 5.0000000000000000, 4.5000000000000000 },
+ { -0.52130838331747587, 5.0000000000000000, 4.7500000000000000 },
+ { -0.45369482249110193, 5.0000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=5.0000000000000000.
+template<typename Tp>
+ void
+ test007()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data007)
+ / sizeof(testcase_cyl_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_neumann(Tp(data007[i].nu), Tp(data007[i].x));
+ const Tp f0 = data007[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=10.000000000000000.
+testcase_cyl_neumann<double> data008[] = {
+ { -124241617095379.48, 10.000000000000000, 0.25000000000000000 },
+ { -121963623349.56966, 10.000000000000000, 0.50000000000000000 },
+ { -2133501638.9057348, 10.000000000000000, 0.75000000000000000 },
+ { -121618014.27868921, 10.000000000000000, 1.0000000000000000 },
+ { -13265210.158452792, 10.000000000000000, 1.2500000000000000 },
+ { -2183993.0260864049, 10.000000000000000, 1.5000000000000000 },
+ { -478274.82386541169, 10.000000000000000, 1.7500000000000000 },
+ { -129184.54220803917, 10.000000000000000, 2.0000000000000000 },
+ { -40993.254794381690, 10.000000000000000, 2.2500000000000000 },
+ { -14782.847716021070, 10.000000000000000, 2.5000000000000000 },
+ { -5916.5330998776262, 10.000000000000000, 2.7500000000000000 },
+ { -2582.6071294842995, 10.000000000000000, 3.0000000000000000 },
+ { -1213.3423564023892, 10.000000000000000, 3.2500000000000000 },
+ { -607.27437834125760, 10.000000000000000, 3.5000000000000000 },
+ { -321.17461059752202, 10.000000000000000, 3.7500000000000000 },
+ { -178.33055590796428, 10.000000000000000, 4.0000000000000000 },
+ { -103.40496587570090, 10.000000000000000, 4.2500000000000000 },
+ { -62.345024619781434, 10.000000000000000, 4.5000000000000000 },
+ { -38.944510430296937, 10.000000000000000, 4.7500000000000000 },
+ { -25.129110095610095, 10.000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=10.000000000000000.
+template<typename Tp>
+ void
+ test008()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data008)
+ / sizeof(testcase_cyl_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_neumann(Tp(data008[i].nu), Tp(data008[i].x));
+ const Tp f0 = data008[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=20.000000000000000.
+testcase_cyl_neumann<double> data009[] = {
+ { -4.4678815064152581e+34, 20.000000000000000, 0.25000000000000000 },
+ { -4.2714301215659088e+28, 20.000000000000000, 0.50000000000000000 },
+ { -1.2898357375834223e+25, 20.000000000000000, 0.75000000000000000 },
+ { -4.1139703148355065e+22, 20.000000000000000, 1.0000000000000000 },
+ { -4.7783533372148580e+20, 20.000000000000000, 1.2500000000000000 },
+ { -1.2577301772964241e+19, 20.000000000000000, 1.5000000000000000 },
+ { -5.8251041176649626e+17, 20.000000000000000, 1.7500000000000000 },
+ { -40816513889983640., 20.000000000000000, 2.0000000000000000 },
+ { -3925339868516418.5, 20.000000000000000, 2.2500000000000000 },
+ { -484776559582090.25, 20.000000000000000, 2.5000000000000000 },
+ { -73320655044814.469, 20.000000000000000, 2.7500000000000000 },
+ { -13113540041757.449, 20.000000000000000, 3.0000000000000000 },
+ { -2700669268882.7139, 20.000000000000000, 3.2500000000000000 },
+ { -627339518240.21240, 20.000000000000000, 3.5000000000000000 },
+ { -161695236802.71753, 20.000000000000000, 3.7500000000000000 },
+ { -45637199262.220100, 20.000000000000000, 4.0000000000000000 },
+ { -13953299213.925377, 20.000000000000000, 4.2500000000000000 },
+ { -4580215756.5691023, 20.000000000000000, 4.5000000000000000 },
+ { -1602110715.5159132, 20.000000000000000, 4.7500000000000000 },
+ { -593396529.69143200, 20.000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=20.000000000000000.
+template<typename Tp>
+ void
+ test009()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data009)
+ / sizeof(testcase_cyl_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_neumann(Tp(data009[i].nu), Tp(data009[i].x));
+ const Tp f0 = data009[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=50.000000000000000.
+testcase_cyl_neumann<double> data010[] = {
+ { -2.7643487471155969e+107, 50.000000000000000, 0.25000000000000000 },
+ { -2.4575848224461092e+92, 50.000000000000000, 0.50000000000000000 },
+ { -3.8604508467683829e+83, 50.000000000000000, 0.75000000000000000 },
+ { -2.1911428126053411e+77, 50.000000000000000, 1.0000000000000000 },
+ { -3.1362926828833165e+72, 50.000000000000000, 1.2500000000000000 },
+ { -3.4584216846550566e+68, 50.000000000000000, 1.5000000000000000 },
+ { -1.5607714080312795e+65, 50.000000000000000, 1.7500000000000000 },
+ { -1.9761505765184128e+62, 50.000000000000000, 2.0000000000000000 },
+ { -5.5023640499231188e+59, 50.000000000000000, 2.2500000000000000 },
+ { -2.8530384545826849e+57, 50.000000000000000, 2.5000000000000000 },
+ { -2.4467169322684809e+55, 50.000000000000000, 2.7500000000000000 },
+ { -3.1793891461005181e+53, 50.000000000000000, 3.0000000000000000 },
+ { -5.8573901231568658e+51, 50.000000000000000, 3.2500000000000000 },
+ { -1.4528262197760965e+50, 50.000000000000000, 3.5000000000000000 },
+ { -4.6566569870478635e+48, 50.000000000000000, 3.7500000000000000 },
+ { -1.8661134361400254e+47, 50.000000000000000, 4.0000000000000000 },
+ { -9.1005883612255402e+45, 50.000000000000000, 4.2500000000000000 },
+ { -5.2813777542386141e+44, 50.000000000000000, 4.5000000000000000 },
+ { -3.5795477722116469e+43, 50.000000000000000, 4.7500000000000000 },
+ { -2.7888370175838930e+42, 50.000000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=50.000000000000000.
+template<typename Tp>
+ void
+ test010()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data010)
+ / sizeof(testcase_cyl_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_neumann(Tp(data010[i].nu), Tp(data010[i].x));
+ const Tp f0 = data010[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for nu=100.00000000000000.
+testcase_cyl_neumann<double> data011[] = {
+ { -6.0523080585856754e+245, 100.00000000000000, 0.25000000000000000 },
+ { -4.7766903780412668e+215, 100.00000000000000, 0.50000000000000000 },
+ { -1.1758283017660654e+198, 100.00000000000000, 0.75000000000000000 },
+ { -3.7752878101091316e+185, 100.00000000000000, 1.0000000000000000 },
+ { -7.7013290730008304e+175, 100.00000000000000, 1.2500000000000000 },
+ { -9.3152624794288802e+167, 100.00000000000000, 1.5000000000000000 },
+ { -1.8854163374247264e+161, 100.00000000000000, 1.7500000000000000 },
+ { -3.0008260488569689e+155, 100.00000000000000, 2.0000000000000000 },
+ { -2.3075650873777408e+150, 100.00000000000000, 2.2500000000000000 },
+ { -6.1476258561369381e+145, 100.00000000000000, 2.5000000000000000 },
+ { -4.4758816234829593e+141, 100.00000000000000, 2.7500000000000000 },
+ { -7.4747961023547846e+137, 100.00000000000000, 3.0000000000000000 },
+ { -2.5067022766900123e+134, 100.00000000000000, 3.2500000000000000 },
+ { -1.5222488313431896e+131, 100.00000000000000, 3.5000000000000000 },
+ { -1.5422392812241397e+128, 100.00000000000000, 3.7500000000000000 },
+ { -2.4400857387551062e+125, 100.00000000000000, 4.0000000000000000 },
+ { -5.7118153392422278e+122, 100.00000000000000, 4.2500000000000000 },
+ { -1.8915420905194465e+120, 100.00000000000000, 4.5000000000000000 },
+ { -8.5357945104770158e+117, 100.00000000000000, 4.7500000000000000 },
+ { -5.0848639160196196e+115, 100.00000000000000, 5.0000000000000000 },
+};
+
+// Test function for nu=100.00000000000000.
+template<typename Tp>
+ void
+ test011()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data011)
+ / sizeof(testcase_cyl_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_neumann(Tp(data011[i].nu), Tp(data011[i].x));
+ const Tp f0 = data011[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
+ }
+// cyl_neumann
+
+// Test data for nu=0.0000000000000000.
+testcase_cyl_neumann<double> data012[] = {
+ { -0.30851762524903359, 0.0000000000000000, 5.0000000000000000 },
+ { 0.055671167283599457, 0.0000000000000000, 10.000000000000000 },
+ { 0.20546429603891822, 0.0000000000000000, 15.000000000000000 },
+ { 0.062640596809384053, 0.0000000000000000, 20.000000000000000 },
+ { -0.12724943226800617, 0.0000000000000000, 25.000000000000000 },
+ { -0.11729573168666413, 0.0000000000000000, 30.000000000000000 },
+ { 0.045797987195155689, 0.0000000000000000, 35.000000000000000 },
+ { 0.12593641705826092, 0.0000000000000000, 40.000000000000000 },
+ { 0.027060469763313333, 0.0000000000000000, 45.000000000000000 },
+ { -0.098064995470077118, 0.0000000000000000, 50.000000000000000 },
+ { -0.077569178730412594, 0.0000000000000000, 55.000000000000000 },
+ { 0.047358952209449426, 0.0000000000000000, 60.000000000000000 },
+ { 0.097183557740181920, 0.0000000000000000, 65.000000000000000 },
+ { 0.0093096664589409992, 0.0000000000000000, 70.000000000000000 },
+ { -0.085369047647775656, 0.0000000000000000, 75.000000000000000 },
+ { -0.055620339089770016, 0.0000000000000000, 80.000000000000000 },
+ { 0.049567884951494251, 0.0000000000000000, 85.000000000000000 },
+ { 0.079776475854877751, 0.0000000000000000, 90.000000000000000 },
+ { -0.0028230995861232107, 0.0000000000000000, 95.000000000000000 },
+ { -0.077244313365083153, 0.0000000000000000, 100.00000000000000 },
+};
+
+// Test function for nu=0.0000000000000000.
+template<typename Tp>
+ void
+ test012()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data012)
+ / sizeof(testcase_cyl_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_neumann(Tp(data012[i].nu), Tp(data012[i].x));
+ const Tp f0 = data012[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(1.0000000000000006e-10));
+ }
+
+// Test data for nu=0.33333333333333331.
+testcase_cyl_neumann<double> data013[] = {
+ { -0.18192321129343850, 0.33333333333333331, 5.0000000000000000 },
+ { 0.17020111788268760, 0.33333333333333331, 10.000000000000000 },
+ { 0.18540507541540796, 0.33333333333333331, 15.000000000000000 },
+ { -0.028777707635715043, 0.33333333333333331, 20.000000000000000 },
+ { -0.15829741864944163, 0.33333333333333331, 25.000000000000000 },
+ { -0.058645772316705209, 0.33333333333333331, 30.000000000000000 },
+ { 0.10294930308870617, 0.33333333333333331, 35.000000000000000 },
+ { 0.10547870367098922, 0.33333333333333331, 40.000000000000000 },
+ { -0.034334228816010816, 0.33333333333333331, 45.000000000000000 },
+ { -0.11283489933031279, 0.33333333333333331, 50.000000000000000 },
+ { -0.030007358986895105, 0.33333333333333331, 55.000000000000000 },
+ { 0.086699173295718121, 0.33333333333333331, 60.000000000000000 },
+ { 0.074875579668878658, 0.33333333333333331, 65.000000000000000 },
+ { -0.039323246374552680, 0.33333333333333331, 70.000000000000000 },
+ { -0.091263539574475236, 0.33333333333333331, 75.000000000000000 },
+ { -0.013358849535984318, 0.33333333333333331, 80.000000000000000 },
+ { 0.078373575537830198, 0.33333333333333331, 85.000000000000000 },
+ { 0.055812482883955940, 0.33333333333333331, 90.000000000000000 },
+ { -0.043310380106990683, 0.33333333333333331, 95.000000000000000 },
+ { -0.076900504962136559, 0.33333333333333331, 100.00000000000000 },
+};
+
+// Test function for nu=0.33333333333333331.
+template<typename Tp>
+ void
+ test013()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data013)
+ / sizeof(testcase_cyl_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_neumann(Tp(data013[i].nu), Tp(data013[i].x));
+ const Tp f0 = data013[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
+ }
+
+// Test data for nu=0.50000000000000000.
+testcase_cyl_neumann<double> data014[] = {
+ { -0.10121770918510846, 0.50000000000000000, 5.0000000000000000 },
+ { 0.21170886633139810, 0.50000000000000000, 10.000000000000000 },
+ { 0.15650551590730855, 0.50000000000000000, 15.000000000000000 },
+ { -0.072806904785061938, 0.50000000000000000, 20.000000000000000 },
{ -0.15817308404205055, 0.50000000000000000, 25.000000000000000 },
- { -0.022470290598831121, 0.50000000000000000, 30.000000000000000 },
- { 0.12187835265849536, 0.50000000000000000, 35.000000000000000 },
- { 0.084138655676395432, 0.50000000000000000, 40.000000000000000 },
- { -0.062482641933003132, 0.50000000000000000, 45.000000000000000 },
- { -0.10888475635053953, 0.50000000000000000, 50.000000000000000 },
- { -0.0023805454010948804, 0.50000000000000000, 55.000000000000000 },
- { 0.098104683735037904, 0.50000000000000000, 60.000000000000000 },
+ { -0.022470290598831138, 0.50000000000000000, 30.000000000000000 },
+ { 0.12187835265849535, 0.50000000000000000, 35.000000000000000 },
+ { 0.084138655676395377, 0.50000000000000000, 40.000000000000000 },
+ { -0.062482641933003201, 0.50000000000000000, 45.000000000000000 },
+ { -0.10888475635053954, 0.50000000000000000, 50.000000000000000 },
+ { -0.0023805454010949376, 0.50000000000000000, 55.000000000000000 },
+ { 0.098104683735037918, 0.50000000000000000, 60.000000000000000 },
{ 0.055663470218594434, 0.50000000000000000, 65.000000000000000 },
- { -0.060396767883824809, 0.50000000000000000, 70.000000000000000 },
+ { -0.060396767883824871, 0.50000000000000000, 70.000000000000000 },
{ -0.084922578922046868, 0.50000000000000000, 75.000000000000000 },
- { 0.0098472271924441215, 0.50000000000000000, 80.000000000000000 },
- { 0.085190643574343639, 0.50000000000000000, 85.000000000000000 },
- { 0.037684970437156261, 0.50000000000000000, 90.000000000000000 },
- { -0.059772904856097479, 0.50000000000000000, 95.000000000000000 },
- { -0.068803091468728053, 0.50000000000000000, 100.00000000000000 },
+ { 0.0098472271924441284, 0.50000000000000000, 80.000000000000000 },
+ { 0.085190643574343625, 0.50000000000000000, 85.000000000000000 },
+ { 0.037684970437156268, 0.50000000000000000, 90.000000000000000 },
+ { -0.059772904856097500, 0.50000000000000000, 95.000000000000000 },
+ { -0.068803091468728109, 0.50000000000000000, 100.00000000000000 },
};
// Test function for nu=0.50000000000000000.
-template <typename Tp>
-void test003()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data003)
- / sizeof(testcase_cyl_neumann<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_neumann(Tp(data003[i].nu), Tp(data003[i].x));
- const Tp f0 = data003[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(5.0000000000000028e-11));
-}
+template<typename Tp>
+ void
+ test014()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data014)
+ / sizeof(testcase_cyl_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_neumann(Tp(data014[i].nu), Tp(data014[i].x));
+ const Tp f0 = data014[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(5.0000000000000028e-11));
+ }
// Test data for nu=0.66666666666666663.
-testcase_cyl_neumann<double> data004[] = {
- { -0.016050662643389616, 0.66666666666666663, 5.0000000000000000 },
- { 0.23937232657540730, 0.66666666666666663, 10.000000000000000 },
- { 0.11762106604241242, 0.66666666666666663, 15.000000000000000 },
- { -0.11182254014899563, 0.66666666666666663, 20.000000000000000 },
+testcase_cyl_neumann<double> data015[] = {
+ { -0.016050662643389627, 0.66666666666666663, 5.0000000000000000 },
+ { 0.23937232657540733, 0.66666666666666663, 10.000000000000000 },
+ { 0.11762106604241235, 0.66666666666666663, 15.000000000000000 },
+ { -0.11182254014899558, 0.66666666666666663, 20.000000000000000 },
{ -0.14756582982938804, 0.66666666666666663, 25.000000000000000 },
- { 0.015078692908077665, 0.66666666666666663, 30.000000000000000 },
- { 0.13260911815705798, 0.66666666666666663, 35.000000000000000 },
- { 0.057217565989652795, 0.66666666666666663, 40.000000000000000 },
- { -0.086373755152382048, 0.66666666666666663, 45.000000000000000 },
- { -0.097624139208051630, 0.66666666666666663, 50.000000000000000 },
- { 0.025354902147023434, 0.66666666666666663, 55.000000000000000 },
- { 0.10288136476351209, 0.66666666666666663, 60.000000000000000 },
+ { 0.015078692908077713, 0.66666666666666663, 30.000000000000000 },
+ { 0.13260911815705795, 0.66666666666666663, 35.000000000000000 },
+ { 0.057217565989652698, 0.66666666666666663, 40.000000000000000 },
+ { -0.086373755152382006, 0.66666666666666663, 45.000000000000000 },
+ { -0.097624139208051616, 0.66666666666666663, 50.000000000000000 },
+ { 0.025354902147023392, 0.66666666666666663, 55.000000000000000 },
+ { 0.10288136476351206, 0.66666666666666663, 60.000000000000000 },
{ 0.032728379560128203, 0.66666666666666663, 65.000000000000000 },
- { -0.077363672735747777, 0.66666666666666663, 70.000000000000000 },
- { -0.072855870458293975, 0.66666666666666663, 75.000000000000000 },
- { 0.032358106046953494, 0.66666666666666663, 80.000000000000000 },
+ { -0.077363672735747818, 0.66666666666666663, 70.000000000000000 },
+ { -0.072855870458293961, 0.66666666666666663, 75.000000000000000 },
+ { 0.032358106046953543, 0.66666666666666663, 80.000000000000000 },
{ 0.086240651537394228, 0.66666666666666663, 85.000000000000000 },
- { 0.017029601697285159, 0.66666666666666663, 90.000000000000000 },
- { -0.072173520560584709, 0.66666666666666663, 95.000000000000000 },
- { -0.056057339204073985, 0.66666666666666663, 100.00000000000000 },
+ { 0.017029601697285190, 0.66666666666666663, 90.000000000000000 },
+ { -0.072173520560584681, 0.66666666666666663, 95.000000000000000 },
+ { -0.056057339204073887, 0.66666666666666663, 100.00000000000000 },
};
// Test function for nu=0.66666666666666663.
-template <typename Tp>
-void test004()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data004)
- / sizeof(testcase_cyl_neumann<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_neumann(Tp(data004[i].nu), Tp(data004[i].x));
- const Tp f0 = data004[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
-}
+template<typename Tp>
+ void
+ test015()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data015)
+ / sizeof(testcase_cyl_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_neumann(Tp(data015[i].nu), Tp(data015[i].x));
+ const Tp f0 = data015[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
+ }
// Test data for nu=1.0000000000000000.
-testcase_cyl_neumann<double> data005[] = {
- { 0.14786314339122689, 1.0000000000000000, 5.0000000000000000 },
- { 0.24901542420695388, 1.0000000000000000, 10.000000000000000 },
- { 0.021073628036873546, 1.0000000000000000, 15.000000000000000 },
- { -0.16551161436252118, 1.0000000000000000, 20.000000000000000 },
- { -0.098829964783237384, 1.0000000000000000, 25.000000000000000 },
- { 0.084425570661747149, 1.0000000000000000, 30.000000000000000 },
- { 0.12751273354559012, 1.0000000000000000, 35.000000000000000 },
- { -0.0057935058215496330, 1.0000000000000000, 40.000000000000000 },
+testcase_cyl_neumann<double> data016[] = {
+ { 0.14786314339122700, 1.0000000000000000, 5.0000000000000000 },
+ { 0.24901542420695386, 1.0000000000000000, 10.000000000000000 },
+ { 0.021073628036873522, 1.0000000000000000, 15.000000000000000 },
+ { -0.16551161436252115, 1.0000000000000000, 20.000000000000000 },
+ { -0.098829964783237412, 1.0000000000000000, 25.000000000000000 },
+ { 0.084425570661747135, 1.0000000000000000, 30.000000000000000 },
+ { 0.12751273354559009, 1.0000000000000000, 35.000000000000000 },
+ { -0.0057935058215497536, 1.0000000000000000, 40.000000000000000 },
{ -0.11552517964639945, 1.0000000000000000, 45.000000000000000 },
- { -0.056795668562014713, 1.0000000000000000, 50.000000000000000 },
- { 0.073846265432577940, 1.0000000000000000, 55.000000000000000 },
- { 0.091869609369866906, 1.0000000000000000, 60.000000000000000 },
- { -0.017940374275377303, 1.0000000000000000, 65.000000000000000 },
- { -0.094844652625716244, 1.0000000000000000, 70.000000000000000 },
- { -0.035213785160580456, 1.0000000000000000, 75.000000000000000 },
- { 0.069395913784588051, 1.0000000000000000, 80.000000000000000 },
- { 0.071233187582749782, 1.0000000000000000, 85.000000000000000 },
- { -0.026187238607768282, 1.0000000000000000, 90.000000000000000 },
- { -0.081827958724501229, 1.0000000000000000, 95.000000000000000 },
- { -0.020372312002759942, 1.0000000000000000, 100.00000000000000 },
+ { -0.056795668562014692, 1.0000000000000000, 50.000000000000000 },
+ { 0.073846265432577926, 1.0000000000000000, 55.000000000000000 },
+ { 0.091869609369866892, 1.0000000000000000, 60.000000000000000 },
+ { -0.017940374275377362, 1.0000000000000000, 65.000000000000000 },
+ { -0.094844652625716230, 1.0000000000000000, 70.000000000000000 },
+ { -0.035213785160580421, 1.0000000000000000, 75.000000000000000 },
+ { 0.069395913784588037, 1.0000000000000000, 80.000000000000000 },
+ { 0.071233187582749768, 1.0000000000000000, 85.000000000000000 },
+ { -0.026187238607768244, 1.0000000000000000, 90.000000000000000 },
+ { -0.081827958724501215, 1.0000000000000000, 95.000000000000000 },
+ { -0.020372312002759834, 1.0000000000000000, 100.00000000000000 },
};
// Test function for nu=1.0000000000000000.
-template <typename Tp>
-void test005()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data005)
- / sizeof(testcase_cyl_neumann<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_neumann(Tp(data005[i].nu), Tp(data005[i].x));
- const Tp f0 = data005[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
-}
+template<typename Tp>
+ void
+ test016()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data016)
+ / sizeof(testcase_cyl_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_neumann(Tp(data016[i].nu), Tp(data016[i].x));
+ const Tp f0 = data016[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
+ }
// Test data for nu=2.0000000000000000.
-testcase_cyl_neumann<double> data006[] = {
- { 0.36766288260552449, 2.0000000000000000, 5.0000000000000000 },
- { -0.0058680824422086154, 2.0000000000000000, 10.000000000000000 },
- { -0.20265447896733510, 2.0000000000000000, 15.000000000000000 },
- { -0.079191758245636068, 2.0000000000000000, 20.000000000000000 },
- { 0.11934303508534720, 2.0000000000000000, 25.000000000000000 },
- { 0.12292410306411393, 2.0000000000000000, 30.000000000000000 },
- { -0.038511545278264774, 2.0000000000000000, 35.000000000000000 },
- { -0.12622609234933843, 2.0000000000000000, 40.000000000000000 },
- { -0.032194922192042189, 2.0000000000000000, 45.000000000000000 },
- { 0.095793168727596509, 2.0000000000000000, 50.000000000000000 },
- { 0.080254497473415454, 2.0000000000000000, 55.000000000000000 },
- { -0.044296631897120513, 2.0000000000000000, 60.000000000000000 },
+testcase_cyl_neumann<double> data017[] = {
+ { 0.36766288260552438, 2.0000000000000000, 5.0000000000000000 },
+ { -0.0058680824422086830, 2.0000000000000000, 10.000000000000000 },
+ { -0.20265447896733507, 2.0000000000000000, 15.000000000000000 },
+ { -0.079191758245636165, 2.0000000000000000, 20.000000000000000 },
+ { 0.11934303508534717, 2.0000000000000000, 25.000000000000000 },
+ { 0.12292410306411394, 2.0000000000000000, 30.000000000000000 },
+ { -0.038511545278264829, 2.0000000000000000, 35.000000000000000 },
+ { -0.12622609234933840, 2.0000000000000000, 40.000000000000000 },
+ { -0.032194922192042195, 2.0000000000000000, 45.000000000000000 },
+ { 0.095793168727596537, 2.0000000000000000, 50.000000000000000 },
+ { 0.080254497473415426, 2.0000000000000000, 55.000000000000000 },
+ { -0.044296631897120527, 2.0000000000000000, 60.000000000000000 },
{ -0.097735569256347382, 2.0000000000000000, 65.000000000000000 },
- { -0.012019513676818619, 2.0000000000000000, 70.000000000000000 },
- { 0.084430013376826832, 2.0000000000000000, 75.000000000000000 },
- { 0.057355236934384685, 2.0000000000000000, 80.000000000000000 },
- { -0.047891809949547205, 2.0000000000000000, 85.000000000000000 },
- { -0.080358414490605948, 2.0000000000000000, 90.000000000000000 },
- { 0.0011004057182389959, 2.0000000000000000, 95.000000000000000 },
- { 0.076836867125027908, 2.0000000000000000, 100.00000000000000 },
+ { -0.012019513676818605, 2.0000000000000000, 70.000000000000000 },
+ { 0.084430013376826846, 2.0000000000000000, 75.000000000000000 },
+ { 0.057355236934384719, 2.0000000000000000, 80.000000000000000 },
+ { -0.047891809949547198, 2.0000000000000000, 85.000000000000000 },
+ { -0.080358414490605934, 2.0000000000000000, 90.000000000000000 },
+ { 0.0011004057182389746, 2.0000000000000000, 95.000000000000000 },
+ { 0.076836867125027963, 2.0000000000000000, 100.00000000000000 },
};
// Test function for nu=2.0000000000000000.
-template <typename Tp>
-void test006()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data006)
- / sizeof(testcase_cyl_neumann<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_neumann(Tp(data006[i].nu), Tp(data006[i].x));
- const Tp f0 = data006[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000017e-10));
-}
+template<typename Tp>
+ void
+ test017()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data017)
+ / sizeof(testcase_cyl_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_neumann(Tp(data017[i].nu), Tp(data017[i].x));
+ const Tp f0 = data017[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000017e-10));
+ }
// Test data for nu=5.0000000000000000.
-testcase_cyl_neumann<double> data007[] = {
- { -0.45369482249110188, 5.0000000000000000, 5.0000000000000000 },
- { 0.13540304768936232, 5.0000000000000000, 10.000000000000000 },
- { 0.16717271575940021, 5.0000000000000000, 15.000000000000000 },
- { -0.10003576788953225, 5.0000000000000000, 20.000000000000000 },
+testcase_cyl_neumann<double> data018[] = {
+ { -0.45369482249110193, 5.0000000000000000, 5.0000000000000000 },
+ { 0.13540304768936234, 5.0000000000000000, 10.000000000000000 },
+ { 0.16717271575940015, 5.0000000000000000, 15.000000000000000 },
+ { -0.10003576788953220, 5.0000000000000000, 20.000000000000000 },
{ -0.14705799311372267, 5.0000000000000000, 25.000000000000000 },
- { 0.031627359289264322, 5.0000000000000000, 30.000000000000000 },
- { 0.13554781474770031, 5.0000000000000000, 35.000000000000000 },
- { 0.031869448780850372, 5.0000000000000000, 40.000000000000000 },
+ { 0.031627359289264301, 5.0000000000000000, 30.000000000000000 },
+ { 0.13554781474770028, 5.0000000000000000, 35.000000000000000 },
+ { 0.031869448780850247, 5.0000000000000000, 40.000000000000000 },
{ -0.10426932700176872, 5.0000000000000000, 45.000000000000000 },
- { -0.078548413913081608, 5.0000000000000000, 50.000000000000000 },
- { 0.055257033062858382, 5.0000000000000000, 55.000000000000000 },
- { 0.099464632840450901, 5.0000000000000000, 60.000000000000000 },
- { 0.00023860469499600970, 5.0000000000000000, 65.000000000000000 },
- { -0.091861802216406066, 5.0000000000000000, 70.000000000000000 },
- { -0.048383671296970077, 5.0000000000000000, 75.000000000000000 },
- { 0.060293667104896330, 5.0000000000000000, 80.000000000000000 },
- { 0.077506166682734010, 5.0000000000000000, 85.000000000000000 },
- { -0.015338764062239803, 5.0000000000000000, 90.000000000000000 },
- { -0.081531504045514375, 5.0000000000000000, 95.000000000000000 },
- { -0.029480196281662041, 5.0000000000000000, 100.00000000000000 },
+ { -0.078548413913081594, 5.0000000000000000, 50.000000000000000 },
+ { 0.055257033062858375, 5.0000000000000000, 55.000000000000000 },
+ { 0.099464632840450887, 5.0000000000000000, 60.000000000000000 },
+ { 0.00023860469499595305, 5.0000000000000000, 65.000000000000000 },
+ { -0.091861802216406052, 5.0000000000000000, 70.000000000000000 },
+ { -0.048383671296970042, 5.0000000000000000, 75.000000000000000 },
+ { 0.060293667104896316, 5.0000000000000000, 80.000000000000000 },
+ { 0.077506166682733996, 5.0000000000000000, 85.000000000000000 },
+ { -0.015338764062239767, 5.0000000000000000, 90.000000000000000 },
+ { -0.081531504045514361, 5.0000000000000000, 95.000000000000000 },
+ { -0.029480196281661937, 5.0000000000000000, 100.00000000000000 },
};
// Test function for nu=5.0000000000000000.
-template <typename Tp>
-void test007()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data007)
- / sizeof(testcase_cyl_neumann<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_neumann(Tp(data007[i].nu), Tp(data007[i].x));
- const Tp f0 = data007[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000013e-09));
-}
+template<typename Tp>
+ void
+ test018()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data018)
+ / sizeof(testcase_cyl_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_neumann(Tp(data018[i].nu), Tp(data018[i].x));
+ const Tp f0 = data018[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000013e-09));
+ }
// Test data for nu=10.000000000000000.
-testcase_cyl_neumann<double> data008[] = {
- { -25.129110095610098, 10.000000000000000, 5.0000000000000000 },
+testcase_cyl_neumann<double> data019[] = {
+ { -25.129110095610095, 10.000000000000000, 5.0000000000000000 },
{ -0.35981415218340279, 10.000000000000000, 10.000000000000000 },
- { 0.21997141360195582, 10.000000000000000, 15.000000000000000 },
- { -0.043894653515658202, 10.000000000000000, 20.000000000000000 },
+ { 0.21997141360195577, 10.000000000000000, 15.000000000000000 },
+ { -0.043894653515658105, 10.000000000000000, 20.000000000000000 },
{ -0.14871839049980651, 10.000000000000000, 25.000000000000000 },
{ 0.075056702122397012, 10.000000000000000, 30.000000000000000 },
- { 0.12222473135000553, 10.000000000000000, 35.000000000000000 },
- { -0.046723877232677867, 10.000000000000000, 40.000000000000000 },
- { -0.11739339009322178, 10.000000000000000, 45.000000000000000 },
- { 0.0057238971820535740, 10.000000000000000, 50.000000000000000 },
- { 0.10733910125831635, 10.000000000000000, 55.000000000000000 },
- { 0.036290350559545506, 10.000000000000000, 60.000000000000000 },
- { -0.083239127691715639, 10.000000000000000, 65.000000000000000 },
- { -0.069639384138314872, 10.000000000000000, 70.000000000000000 },
- { 0.045798335061325038, 10.000000000000000, 75.000000000000000 },
- { 0.086269195064844428, 10.000000000000000, 80.000000000000000 },
- { -0.0018234674126248629, 10.000000000000000, 85.000000000000000 },
- { -0.082067762371231298, 10.000000000000000, 90.000000000000000 },
- { -0.038798074754578075, 10.000000000000000, 95.000000000000000 },
- { 0.058331574236414815, 10.000000000000000, 100.00000000000000 },
+ { 0.12222473135000546, 10.000000000000000, 35.000000000000000 },
+ { -0.046723877232677985, 10.000000000000000, 40.000000000000000 },
+ { -0.11739339009322181, 10.000000000000000, 45.000000000000000 },
+ { 0.0057238971820535930, 10.000000000000000, 50.000000000000000 },
+ { 0.10733910125831631, 10.000000000000000, 55.000000000000000 },
+ { 0.036290350559545478, 10.000000000000000, 60.000000000000000 },
+ { -0.083239127691715667, 10.000000000000000, 65.000000000000000 },
+ { -0.069639384138314858, 10.000000000000000, 70.000000000000000 },
+ { 0.045798335061325066, 10.000000000000000, 75.000000000000000 },
+ { 0.086269195064844456, 10.000000000000000, 80.000000000000000 },
+ { -0.0018234674126248740, 10.000000000000000, 85.000000000000000 },
+ { -0.082067762371231284, 10.000000000000000, 90.000000000000000 },
+ { -0.038798074754578089, 10.000000000000000, 95.000000000000000 },
+ { 0.058331574236414913, 10.000000000000000, 100.00000000000000 },
};
// Test function for nu=10.000000000000000.
-template <typename Tp>
-void test008()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data008)
- / sizeof(testcase_cyl_neumann<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_neumann(Tp(data008[i].nu), Tp(data008[i].x));
- const Tp f0 = data008[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000017e-10));
-}
+template<typename Tp>
+ void
+ test019()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data019)
+ / sizeof(testcase_cyl_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_neumann(Tp(data019[i].nu), Tp(data019[i].x));
+ const Tp f0 = data019[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000017e-10));
+ }
// Test data for nu=20.000000000000000.
-testcase_cyl_neumann<double> data009[] = {
- { -593396529.69143212, 20.000000000000000, 5.0000000000000000 },
- { -1597.4838482696264, 20.000000000000000, 10.000000000000000 },
- { -3.3087330924737630, 20.000000000000000, 15.000000000000000 },
+testcase_cyl_neumann<double> data020[] = {
+ { -593396529.69143200, 20.000000000000000, 5.0000000000000000 },
+ { -1597.4838482696259, 20.000000000000000, 10.000000000000000 },
+ { -3.3087330924737621, 20.000000000000000, 15.000000000000000 },
{ -0.28548945860020319, 20.000000000000000, 20.000000000000000 },
{ 0.19804074776289243, 20.000000000000000, 25.000000000000000 },
- { -0.16848153948742675, 20.000000000000000, 30.000000000000000 },
+ { -0.16848153948742683, 20.000000000000000, 30.000000000000000 },
{ 0.10102784152594022, 20.000000000000000, 35.000000000000000 },
- { 0.045161820565805928, 20.000000000000000, 40.000000000000000 },
+ { 0.045161820565805755, 20.000000000000000, 40.000000000000000 },
{ -0.12556489308015448, 20.000000000000000, 45.000000000000000 },
- { 0.016442633948115841, 20.000000000000000, 50.000000000000000 },
- { 0.10853448778255187, 20.000000000000000, 55.000000000000000 },
- { -0.026721408520664677, 20.000000000000000, 60.000000000000000 },
- { -0.098780425256324203, 20.000000000000000, 65.000000000000000 },
- { 0.016201957786018205, 20.000000000000000, 70.000000000000000 },
- { 0.093591198265063735, 20.000000000000000, 75.000000000000000 },
- { 0.0040484400737295740, 20.000000000000000, 80.000000000000000 },
- { -0.086314929459920503, 20.000000000000000, 85.000000000000000 },
- { -0.028274110097231495, 20.000000000000000, 90.000000000000000 },
- { 0.072349520791638755, 20.000000000000000, 95.000000000000000 },
- { 0.051247973076188565, 20.000000000000000, 100.00000000000000 },
+ { 0.016442633948115834, 20.000000000000000, 50.000000000000000 },
+ { 0.10853448778255181, 20.000000000000000, 55.000000000000000 },
+ { -0.026721408520664701, 20.000000000000000, 60.000000000000000 },
+ { -0.098780425256324175, 20.000000000000000, 65.000000000000000 },
+ { 0.016201957786018233, 20.000000000000000, 70.000000000000000 },
+ { 0.093591198265063721, 20.000000000000000, 75.000000000000000 },
+ { 0.0040484400737296200, 20.000000000000000, 80.000000000000000 },
+ { -0.086314929459920531, 20.000000000000000, 85.000000000000000 },
+ { -0.028274110097231530, 20.000000000000000, 90.000000000000000 },
+ { 0.072349520791638741, 20.000000000000000, 95.000000000000000 },
+ { 0.051247973076188474, 20.000000000000000, 100.00000000000000 },
};
// Test function for nu=20.000000000000000.
-template <typename Tp>
-void test009()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data009)
- / sizeof(testcase_cyl_neumann<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_neumann(Tp(data009[i].nu), Tp(data009[i].x));
- const Tp f0 = data009[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(1.0000000000000006e-10));
-}
+template<typename Tp>
+ void
+ test020()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data020)
+ / sizeof(testcase_cyl_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_neumann(Tp(data020[i].nu), Tp(data020[i].x));
+ const Tp f0 = data020[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(1.0000000000000006e-10));
+ }
// Test data for nu=50.000000000000000.
-testcase_cyl_neumann<double> data010[] = {
- { -2.7888370175838943e+42, 50.000000000000000, 5.0000000000000000 },
+testcase_cyl_neumann<double> data021[] = {
+ { -2.7888370175838930e+42, 50.000000000000000, 5.0000000000000000 },
{ -3.6410665018007421e+27, 50.000000000000000, 10.000000000000000 },
- { -1.0929732912175405e+19, 50.000000000000000, 15.000000000000000 },
- { -15606426801663.732, 50.000000000000000, 20.000000000000000 },
- { -753573251.44662631, 50.000000000000000, 25.000000000000000 },
- { -386759.32602734747, 50.000000000000000, 30.000000000000000 },
- { -1172.8690492895341, 50.000000000000000, 35.000000000000000 },
- { -15.615608873419953, 50.000000000000000, 40.000000000000000 },
- { -0.87058346204176951, 50.000000000000000, 45.000000000000000 },
- { -0.21031655464397736, 50.000000000000000, 50.000000000000000 },
- { 0.093048240412999375, 50.000000000000000, 55.000000000000000 },
- { 0.0086417699626745066, 50.000000000000000, 60.000000000000000 },
- { -0.025019788459221974, 50.000000000000000, 65.000000000000000 },
- { -0.0014815155191908913, 50.000000000000000, 70.000000000000000 },
- { 0.050335774732164155, 50.000000000000000, 75.000000000000000 },
- { -0.092924250967987204, 50.000000000000000, 80.000000000000000 },
- { 0.087332463030205670, 50.000000000000000, 85.000000000000000 },
- { -0.016164237701651891, 50.000000000000000, 90.000000000000000 },
- { -0.068897613820457920, 50.000000000000000, 95.000000000000000 },
- { 0.076505263944802962, 50.000000000000000, 100.00000000000000 },
+ { -1.0929732912175415e+19, 50.000000000000000, 15.000000000000000 },
+ { -15606426801663.734, 50.000000000000000, 20.000000000000000 },
+ { -753573251.44662738, 50.000000000000000, 25.000000000000000 },
+ { -386759.32602734759, 50.000000000000000, 30.000000000000000 },
+ { -1172.8690492895323, 50.000000000000000, 35.000000000000000 },
+ { -15.615608873419944, 50.000000000000000, 40.000000000000000 },
+ { -0.87058346204176895, 50.000000000000000, 45.000000000000000 },
+ { -0.21031655464397747, 50.000000000000000, 50.000000000000000 },
+ { 0.093048240412999389, 50.000000000000000, 55.000000000000000 },
+ { 0.0086417699626744754, 50.000000000000000, 60.000000000000000 },
+ { -0.025019788459222037, 50.000000000000000, 65.000000000000000 },
+ { -0.0014815155191909152, 50.000000000000000, 70.000000000000000 },
+ { 0.050335774732164121, 50.000000000000000, 75.000000000000000 },
+ { -0.092924250967987232, 50.000000000000000, 80.000000000000000 },
+ { 0.087332463030205698, 50.000000000000000, 85.000000000000000 },
+ { -0.016164237701651860, 50.000000000000000, 90.000000000000000 },
+ { -0.068897613820457934, 50.000000000000000, 95.000000000000000 },
+ { 0.076505263944803045, 50.000000000000000, 100.00000000000000 },
};
// Test function for nu=50.000000000000000.
-template <typename Tp>
-void test010()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data010)
- / sizeof(testcase_cyl_neumann<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_neumann(Tp(data010[i].nu), Tp(data010[i].x));
- const Tp f0 = data010[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000017e-10));
-}
+template<typename Tp>
+ void
+ test021()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data021)
+ / sizeof(testcase_cyl_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_neumann(Tp(data021[i].nu), Tp(data021[i].x));
+ const Tp f0 = data021[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000017e-10));
+ }
// Test data for nu=100.00000000000000.
-testcase_cyl_neumann<double> data011[] = {
+testcase_cyl_neumann<double> data022[] = {
{ -5.0848639160196196e+115, 100.00000000000000, 5.0000000000000000 },
- { -4.8491482711800245e+85, 100.00000000000000, 10.000000000000000 },
+ { -4.8491482711800252e+85, 100.00000000000000, 10.000000000000000 },
{ -1.6375955323195320e+68, 100.00000000000000, 15.000000000000000 },
- { -8.2002648144679137e+55, 100.00000000000000, 20.000000000000000 },
- { -2.9712216432562373e+46, 100.00000000000000, 25.000000000000000 },
- { -7.2875284708240766e+38, 100.00000000000000, 30.000000000000000 },
+ { -8.2002648144679126e+55, 100.00000000000000, 20.000000000000000 },
+ { -2.9712216432562368e+46, 100.00000000000000, 25.000000000000000 },
+ { -7.2875284708240751e+38, 100.00000000000000, 30.000000000000000 },
{ -3.4251079902108953e+32, 100.00000000000000, 35.000000000000000 },
- { -1.4552439438101799e+27, 100.00000000000000, 40.000000000000000 },
+ { -1.4552439438101802e+27, 100.00000000000000, 40.000000000000000 },
{ -3.4506612476220073e+22, 100.00000000000000, 45.000000000000000 },
- { -3.2938001882025948e+18, 100.00000000000000, 50.000000000000000 },
+ { -3.2938001882025953e+18, 100.00000000000000, 50.000000000000000 },
{ -1005686182055527.4, 100.00000000000000, 55.000000000000000 },
{ -831892881402.11377, 100.00000000000000, 60.000000000000000 },
{ -1650863778.0598330, 100.00000000000000, 65.000000000000000 },
- { -7192614.1976097804, 100.00000000000000, 70.000000000000000 },
- { -64639.072261231602, 100.00000000000000, 75.000000000000000 },
- { -1152.5905185698464, 100.00000000000000, 80.000000000000000 },
- { -40.250761402102000, 100.00000000000000, 85.000000000000000 },
+ { -7192614.1976097794, 100.00000000000000, 70.000000000000000 },
+ { -64639.072261231595, 100.00000000000000, 75.000000000000000 },
+ { -1152.5905185698466, 100.00000000000000, 80.000000000000000 },
+ { -40.250761402101560, 100.00000000000000, 85.000000000000000 },
{ -2.8307771387185459, 100.00000000000000, 90.000000000000000 },
- { -0.45762200495904559, 100.00000000000000, 95.000000000000000 },
- { -0.16692141141757649, 100.00000000000000, 100.00000000000000 },
+ { -0.45762200495904848, 100.00000000000000, 95.000000000000000 },
+ { -0.16692141141757652, 100.00000000000000, 100.00000000000000 },
};
// Test function for nu=100.00000000000000.
-template <typename Tp>
-void test011()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data011)
- / sizeof(testcase_cyl_neumann<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::cyl_neumann(Tp(data011[i].nu), Tp(data011[i].x));
- const Tp f0 = data011[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(1.0000000000000006e-11));
-}
+template<typename Tp>
+ void
+ test022()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data022)
+ / sizeof(testcase_cyl_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::cyl_neumann(Tp(data022[i].nu), Tp(data022[i].x));
+ const Tp f0 = data022[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(1.0000000000000006e-11));
+ }
-int main(int, char**)
+int
+main()
{
test001<double>();
test002<double>();
@@ -613,5 +1206,16 @@
test009<double>();
test010<double>();
test011<double>();
+ test012<double>();
+ test013<double>();
+ test014<double>();
+ test015<double>();
+ test016<double>();
+ test017<double>();
+ test018<double>();
+ test019<double>();
+ test020<double>();
+ test021<double>();
+ test022<double>();
return 0;
}
Index: testsuite/tr1/5_numerical_facilities/special_functions/16_hermite/check_value.cc
===================================================================
--- testsuite/tr1/5_numerical_facilities/special_functions/16_hermite/check_value.cc (revision 0)
+++ testsuite/tr1/5_numerical_facilities/special_functions/16_hermite/check_value.cc (working copy)
@@ -0,0 +1,1956 @@
+// { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
+//
+// Copyright (C) 2016 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// hermite
+// Compare against values generated by the GNU Scientific Library.
+// The GSL can be found on the web: http://www.gnu.org/software/gsl/
+#include <limits>
+#include <tr1/cmath>
+#if defined(__TEST_DEBUG)
+# include <iostream>
+# define VERIFY(A) \
+ if (!(A)) \
+ { \
+ std::cout << "line " << __LINE__ \
+ << " max_abs_frac = " << max_abs_frac \
+ << std::endl; \
+ }
+#else
+# include <testsuite_hooks.h>
+#endif
+#include <specfun_testcase.h>
+
+
+// Test data for n=0.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+testcase_hermite<double>
+data001[] =
+{
+ { 1.0000000000000000, 0, -10.000000000000000 },
+ { 1.0000000000000000, 0, -9.9000000000000004 },
+ { 1.0000000000000000, 0, -9.8000000000000007 },
+ { 1.0000000000000000, 0, -9.6999999999999993 },
+ { 1.0000000000000000, 0, -9.5999999999999996 },
+ { 1.0000000000000000, 0, -9.5000000000000000 },
+ { 1.0000000000000000, 0, -9.4000000000000004 },
+ { 1.0000000000000000, 0, -9.3000000000000007 },
+ { 1.0000000000000000, 0, -9.1999999999999993 },
+ { 1.0000000000000000, 0, -9.0999999999999996 },
+ { 1.0000000000000000, 0, -9.0000000000000000 },
+ { 1.0000000000000000, 0, -8.9000000000000004 },
+ { 1.0000000000000000, 0, -8.8000000000000007 },
+ { 1.0000000000000000, 0, -8.6999999999999993 },
+ { 1.0000000000000000, 0, -8.5999999999999996 },
+ { 1.0000000000000000, 0, -8.5000000000000000 },
+ { 1.0000000000000000, 0, -8.4000000000000004 },
+ { 1.0000000000000000, 0, -8.3000000000000007 },
+ { 1.0000000000000000, 0, -8.1999999999999993 },
+ { 1.0000000000000000, 0, -8.0999999999999996 },
+ { 1.0000000000000000, 0, -8.0000000000000000 },
+ { 1.0000000000000000, 0, -7.9000000000000004 },
+ { 1.0000000000000000, 0, -7.7999999999999998 },
+ { 1.0000000000000000, 0, -7.7000000000000002 },
+ { 1.0000000000000000, 0, -7.5999999999999996 },
+ { 1.0000000000000000, 0, -7.5000000000000000 },
+ { 1.0000000000000000, 0, -7.4000000000000004 },
+ { 1.0000000000000000, 0, -7.2999999999999998 },
+ { 1.0000000000000000, 0, -7.2000000000000002 },
+ { 1.0000000000000000, 0, -7.0999999999999996 },
+ { 1.0000000000000000, 0, -7.0000000000000000 },
+ { 1.0000000000000000, 0, -6.9000000000000004 },
+ { 1.0000000000000000, 0, -6.7999999999999998 },
+ { 1.0000000000000000, 0, -6.7000000000000002 },
+ { 1.0000000000000000, 0, -6.5999999999999996 },
+ { 1.0000000000000000, 0, -6.5000000000000000 },
+ { 1.0000000000000000, 0, -6.4000000000000004 },
+ { 1.0000000000000000, 0, -6.2999999999999998 },
+ { 1.0000000000000000, 0, -6.2000000000000002 },
+ { 1.0000000000000000, 0, -6.0999999999999996 },
+ { 1.0000000000000000, 0, -6.0000000000000000 },
+ { 1.0000000000000000, 0, -5.9000000000000004 },
+ { 1.0000000000000000, 0, -5.7999999999999998 },
+ { 1.0000000000000000, 0, -5.7000000000000002 },
+ { 1.0000000000000000, 0, -5.5999999999999996 },
+ { 1.0000000000000000, 0, -5.5000000000000000 },
+ { 1.0000000000000000, 0, -5.4000000000000004 },
+ { 1.0000000000000000, 0, -5.2999999999999998 },
+ { 1.0000000000000000, 0, -5.2000000000000002 },
+ { 1.0000000000000000, 0, -5.0999999999999996 },
+ { 1.0000000000000000, 0, -5.0000000000000000 },
+ { 1.0000000000000000, 0, -4.9000000000000004 },
+ { 1.0000000000000000, 0, -4.7999999999999998 },
+ { 1.0000000000000000, 0, -4.7000000000000002 },
+ { 1.0000000000000000, 0, -4.5999999999999996 },
+ { 1.0000000000000000, 0, -4.5000000000000000 },
+ { 1.0000000000000000, 0, -4.4000000000000004 },
+ { 1.0000000000000000, 0, -4.2999999999999998 },
+ { 1.0000000000000000, 0, -4.2000000000000002 },
+ { 1.0000000000000000, 0, -4.0999999999999996 },
+ { 1.0000000000000000, 0, -4.0000000000000000 },
+ { 1.0000000000000000, 0, -3.9000000000000004 },
+ { 1.0000000000000000, 0, -3.7999999999999998 },
+ { 1.0000000000000000, 0, -3.7000000000000002 },
+ { 1.0000000000000000, 0, -3.5999999999999996 },
+ { 1.0000000000000000, 0, -3.5000000000000000 },
+ { 1.0000000000000000, 0, -3.4000000000000004 },
+ { 1.0000000000000000, 0, -3.2999999999999998 },
+ { 1.0000000000000000, 0, -3.2000000000000002 },
+ { 1.0000000000000000, 0, -3.0999999999999996 },
+ { 1.0000000000000000, 0, -3.0000000000000000 },
+ { 1.0000000000000000, 0, -2.9000000000000004 },
+ { 1.0000000000000000, 0, -2.7999999999999998 },
+ { 1.0000000000000000, 0, -2.7000000000000002 },
+ { 1.0000000000000000, 0, -2.5999999999999996 },
+ { 1.0000000000000000, 0, -2.5000000000000000 },
+ { 1.0000000000000000, 0, -2.4000000000000004 },
+ { 1.0000000000000000, 0, -2.2999999999999998 },
+ { 1.0000000000000000, 0, -2.2000000000000002 },
+ { 1.0000000000000000, 0, -2.0999999999999996 },
+ { 1.0000000000000000, 0, -2.0000000000000000 },
+ { 1.0000000000000000, 0, -1.9000000000000004 },
+ { 1.0000000000000000, 0, -1.8000000000000007 },
+ { 1.0000000000000000, 0, -1.6999999999999993 },
+ { 1.0000000000000000, 0, -1.5999999999999996 },
+ { 1.0000000000000000, 0, -1.5000000000000000 },
+ { 1.0000000000000000, 0, -1.4000000000000004 },
+ { 1.0000000000000000, 0, -1.3000000000000007 },
+ { 1.0000000000000000, 0, -1.1999999999999993 },
+ { 1.0000000000000000, 0, -1.0999999999999996 },
+ { 1.0000000000000000, 0, -1.0000000000000000 },
+ { 1.0000000000000000, 0, -0.90000000000000036 },
+ { 1.0000000000000000, 0, -0.80000000000000071 },
+ { 1.0000000000000000, 0, -0.69999999999999929 },
+ { 1.0000000000000000, 0, -0.59999999999999964 },
+ { 1.0000000000000000, 0, -0.50000000000000000 },
+ { 1.0000000000000000, 0, -0.40000000000000036 },
+ { 1.0000000000000000, 0, -0.30000000000000071 },
+ { 1.0000000000000000, 0, -0.19999999999999929 },
+ { 1.0000000000000000, 0, -0.099999999999999645 },
+ { 1.0000000000000000, 0, 0.0000000000000000 },
+ { 1.0000000000000000, 0, 0.099999999999999645 },
+ { 1.0000000000000000, 0, 0.19999999999999929 },
+ { 1.0000000000000000, 0, 0.30000000000000071 },
+ { 1.0000000000000000, 0, 0.40000000000000036 },
+ { 1.0000000000000000, 0, 0.50000000000000000 },
+ { 1.0000000000000000, 0, 0.59999999999999964 },
+ { 1.0000000000000000, 0, 0.69999999999999929 },
+ { 1.0000000000000000, 0, 0.80000000000000071 },
+ { 1.0000000000000000, 0, 0.90000000000000036 },
+ { 1.0000000000000000, 0, 1.0000000000000000 },
+ { 1.0000000000000000, 0, 1.0999999999999996 },
+ { 1.0000000000000000, 0, 1.1999999999999993 },
+ { 1.0000000000000000, 0, 1.3000000000000007 },
+ { 1.0000000000000000, 0, 1.4000000000000004 },
+ { 1.0000000000000000, 0, 1.5000000000000000 },
+ { 1.0000000000000000, 0, 1.5999999999999996 },
+ { 1.0000000000000000, 0, 1.6999999999999993 },
+ { 1.0000000000000000, 0, 1.8000000000000007 },
+ { 1.0000000000000000, 0, 1.9000000000000004 },
+ { 1.0000000000000000, 0, 2.0000000000000000 },
+ { 1.0000000000000000, 0, 2.0999999999999996 },
+ { 1.0000000000000000, 0, 2.1999999999999993 },
+ { 1.0000000000000000, 0, 2.3000000000000007 },
+ { 1.0000000000000000, 0, 2.4000000000000004 },
+ { 1.0000000000000000, 0, 2.5000000000000000 },
+ { 1.0000000000000000, 0, 2.5999999999999996 },
+ { 1.0000000000000000, 0, 2.6999999999999993 },
+ { 1.0000000000000000, 0, 2.8000000000000007 },
+ { 1.0000000000000000, 0, 2.9000000000000004 },
+ { 1.0000000000000000, 0, 3.0000000000000000 },
+ { 1.0000000000000000, 0, 3.0999999999999996 },
+ { 1.0000000000000000, 0, 3.1999999999999993 },
+ { 1.0000000000000000, 0, 3.3000000000000007 },
+ { 1.0000000000000000, 0, 3.4000000000000004 },
+ { 1.0000000000000000, 0, 3.5000000000000000 },
+ { 1.0000000000000000, 0, 3.5999999999999996 },
+ { 1.0000000000000000, 0, 3.6999999999999993 },
+ { 1.0000000000000000, 0, 3.8000000000000007 },
+ { 1.0000000000000000, 0, 3.9000000000000004 },
+ { 1.0000000000000000, 0, 4.0000000000000000 },
+ { 1.0000000000000000, 0, 4.0999999999999996 },
+ { 1.0000000000000000, 0, 4.1999999999999993 },
+ { 1.0000000000000000, 0, 4.3000000000000007 },
+ { 1.0000000000000000, 0, 4.4000000000000004 },
+ { 1.0000000000000000, 0, 4.5000000000000000 },
+ { 1.0000000000000000, 0, 4.5999999999999996 },
+ { 1.0000000000000000, 0, 4.6999999999999993 },
+ { 1.0000000000000000, 0, 4.8000000000000007 },
+ { 1.0000000000000000, 0, 4.9000000000000004 },
+ { 1.0000000000000000, 0, 5.0000000000000000 },
+ { 1.0000000000000000, 0, 5.0999999999999996 },
+ { 1.0000000000000000, 0, 5.1999999999999993 },
+ { 1.0000000000000000, 0, 5.3000000000000007 },
+ { 1.0000000000000000, 0, 5.4000000000000004 },
+ { 1.0000000000000000, 0, 5.5000000000000000 },
+ { 1.0000000000000000, 0, 5.5999999999999996 },
+ { 1.0000000000000000, 0, 5.6999999999999993 },
+ { 1.0000000000000000, 0, 5.8000000000000007 },
+ { 1.0000000000000000, 0, 5.9000000000000004 },
+ { 1.0000000000000000, 0, 6.0000000000000000 },
+ { 1.0000000000000000, 0, 6.1000000000000014 },
+ { 1.0000000000000000, 0, 6.1999999999999993 },
+ { 1.0000000000000000, 0, 6.3000000000000007 },
+ { 1.0000000000000000, 0, 6.3999999999999986 },
+ { 1.0000000000000000, 0, 6.5000000000000000 },
+ { 1.0000000000000000, 0, 6.6000000000000014 },
+ { 1.0000000000000000, 0, 6.6999999999999993 },
+ { 1.0000000000000000, 0, 6.8000000000000007 },
+ { 1.0000000000000000, 0, 6.8999999999999986 },
+ { 1.0000000000000000, 0, 7.0000000000000000 },
+ { 1.0000000000000000, 0, 7.1000000000000014 },
+ { 1.0000000000000000, 0, 7.1999999999999993 },
+ { 1.0000000000000000, 0, 7.3000000000000007 },
+ { 1.0000000000000000, 0, 7.3999999999999986 },
+ { 1.0000000000000000, 0, 7.5000000000000000 },
+ { 1.0000000000000000, 0, 7.6000000000000014 },
+ { 1.0000000000000000, 0, 7.6999999999999993 },
+ { 1.0000000000000000, 0, 7.8000000000000007 },
+ { 1.0000000000000000, 0, 7.8999999999999986 },
+ { 1.0000000000000000, 0, 8.0000000000000000 },
+ { 1.0000000000000000, 0, 8.1000000000000014 },
+ { 1.0000000000000000, 0, 8.1999999999999993 },
+ { 1.0000000000000000, 0, 8.3000000000000007 },
+ { 1.0000000000000000, 0, 8.3999999999999986 },
+ { 1.0000000000000000, 0, 8.5000000000000000 },
+ { 1.0000000000000000, 0, 8.6000000000000014 },
+ { 1.0000000000000000, 0, 8.6999999999999993 },
+ { 1.0000000000000000, 0, 8.8000000000000007 },
+ { 1.0000000000000000, 0, 8.8999999999999986 },
+ { 1.0000000000000000, 0, 9.0000000000000000 },
+ { 1.0000000000000000, 0, 9.1000000000000014 },
+ { 1.0000000000000000, 0, 9.1999999999999993 },
+ { 1.0000000000000000, 0, 9.3000000000000007 },
+ { 1.0000000000000000, 0, 9.3999999999999986 },
+ { 1.0000000000000000, 0, 9.5000000000000000 },
+ { 1.0000000000000000, 0, 9.6000000000000014 },
+ { 1.0000000000000000, 0, 9.6999999999999993 },
+ { 1.0000000000000000, 0, 9.8000000000000007 },
+ { 1.0000000000000000, 0, 9.8999999999999986 },
+ { 1.0000000000000000, 0, 10.000000000000000 },
+};
+
+// Test function for n=0.
+template<typename Tp>
+ void
+ test001()
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data001)
+ / sizeof(testcase_hermite<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::hermite(Tp(data001[i].n), Tp(data001[i].x));
+ const Tp f0 = data001[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for n=1.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+testcase_hermite<double>
+data002[] =
+{
+ { -20.000000000000000, 1, -10.000000000000000 },
+ { -19.800000000000001, 1, -9.9000000000000004 },
+ { -19.600000000000001, 1, -9.8000000000000007 },
+ { -19.399999999999999, 1, -9.6999999999999993 },
+ { -19.199999999999999, 1, -9.5999999999999996 },
+ { -19.000000000000000, 1, -9.5000000000000000 },
+ { -18.800000000000001, 1, -9.4000000000000004 },
+ { -18.600000000000001, 1, -9.3000000000000007 },
+ { -18.399999999999999, 1, -9.1999999999999993 },
+ { -18.199999999999999, 1, -9.0999999999999996 },
+ { -18.000000000000000, 1, -9.0000000000000000 },
+ { -17.800000000000001, 1, -8.9000000000000004 },
+ { -17.600000000000001, 1, -8.8000000000000007 },
+ { -17.399999999999999, 1, -8.6999999999999993 },
+ { -17.199999999999999, 1, -8.5999999999999996 },
+ { -17.000000000000000, 1, -8.5000000000000000 },
+ { -16.800000000000001, 1, -8.4000000000000004 },
+ { -16.600000000000001, 1, -8.3000000000000007 },
+ { -16.399999999999999, 1, -8.1999999999999993 },
+ { -16.199999999999999, 1, -8.0999999999999996 },
+ { -16.000000000000000, 1, -8.0000000000000000 },
+ { -15.800000000000001, 1, -7.9000000000000004 },
+ { -15.600000000000000, 1, -7.7999999999999998 },
+ { -15.400000000000000, 1, -7.7000000000000002 },
+ { -15.199999999999999, 1, -7.5999999999999996 },
+ { -15.000000000000000, 1, -7.5000000000000000 },
+ { -14.800000000000001, 1, -7.4000000000000004 },
+ { -14.600000000000000, 1, -7.2999999999999998 },
+ { -14.400000000000000, 1, -7.2000000000000002 },
+ { -14.199999999999999, 1, -7.0999999999999996 },
+ { -14.000000000000000, 1, -7.0000000000000000 },
+ { -13.800000000000001, 1, -6.9000000000000004 },
+ { -13.600000000000000, 1, -6.7999999999999998 },
+ { -13.400000000000000, 1, -6.7000000000000002 },
+ { -13.199999999999999, 1, -6.5999999999999996 },
+ { -13.000000000000000, 1, -6.5000000000000000 },
+ { -12.800000000000001, 1, -6.4000000000000004 },
+ { -12.600000000000000, 1, -6.2999999999999998 },
+ { -12.400000000000000, 1, -6.2000000000000002 },
+ { -12.199999999999999, 1, -6.0999999999999996 },
+ { -12.000000000000000, 1, -6.0000000000000000 },
+ { -11.800000000000001, 1, -5.9000000000000004 },
+ { -11.600000000000000, 1, -5.7999999999999998 },
+ { -11.400000000000000, 1, -5.7000000000000002 },
+ { -11.199999999999999, 1, -5.5999999999999996 },
+ { -11.000000000000000, 1, -5.5000000000000000 },
+ { -10.800000000000001, 1, -5.4000000000000004 },
+ { -10.600000000000000, 1, -5.2999999999999998 },
+ { -10.400000000000000, 1, -5.2000000000000002 },
+ { -10.199999999999999, 1, -5.0999999999999996 },
+ { -10.000000000000000, 1, -5.0000000000000000 },
+ { -9.8000000000000007, 1, -4.9000000000000004 },
+ { -9.5999999999999996, 1, -4.7999999999999998 },
+ { -9.4000000000000004, 1, -4.7000000000000002 },
+ { -9.1999999999999993, 1, -4.5999999999999996 },
+ { -9.0000000000000000, 1, -4.5000000000000000 },
+ { -8.8000000000000007, 1, -4.4000000000000004 },
+ { -8.5999999999999996, 1, -4.2999999999999998 },
+ { -8.4000000000000004, 1, -4.2000000000000002 },
+ { -8.1999999999999993, 1, -4.0999999999999996 },
+ { -8.0000000000000000, 1, -4.0000000000000000 },
+ { -7.8000000000000007, 1, -3.9000000000000004 },
+ { -7.5999999999999996, 1, -3.7999999999999998 },
+ { -7.4000000000000004, 1, -3.7000000000000002 },
+ { -7.1999999999999993, 1, -3.5999999999999996 },
+ { -7.0000000000000000, 1, -3.5000000000000000 },
+ { -6.8000000000000007, 1, -3.4000000000000004 },
+ { -6.5999999999999996, 1, -3.2999999999999998 },
+ { -6.4000000000000004, 1, -3.2000000000000002 },
+ { -6.1999999999999993, 1, -3.0999999999999996 },
+ { -6.0000000000000000, 1, -3.0000000000000000 },
+ { -5.8000000000000007, 1, -2.9000000000000004 },
+ { -5.5999999999999996, 1, -2.7999999999999998 },
+ { -5.4000000000000004, 1, -2.7000000000000002 },
+ { -5.1999999999999993, 1, -2.5999999999999996 },
+ { -5.0000000000000000, 1, -2.5000000000000000 },
+ { -4.8000000000000007, 1, -2.4000000000000004 },
+ { -4.5999999999999996, 1, -2.2999999999999998 },
+ { -4.4000000000000004, 1, -2.2000000000000002 },
+ { -4.1999999999999993, 1, -2.0999999999999996 },
+ { -4.0000000000000000, 1, -2.0000000000000000 },
+ { -3.8000000000000007, 1, -1.9000000000000004 },
+ { -3.6000000000000014, 1, -1.8000000000000007 },
+ { -3.3999999999999986, 1, -1.6999999999999993 },
+ { -3.1999999999999993, 1, -1.5999999999999996 },
+ { -3.0000000000000000, 1, -1.5000000000000000 },
+ { -2.8000000000000007, 1, -1.4000000000000004 },
+ { -2.6000000000000014, 1, -1.3000000000000007 },
+ { -2.3999999999999986, 1, -1.1999999999999993 },
+ { -2.1999999999999993, 1, -1.0999999999999996 },
+ { -2.0000000000000000, 1, -1.0000000000000000 },
+ { -1.8000000000000007, 1, -0.90000000000000036 },
+ { -1.6000000000000014, 1, -0.80000000000000071 },
+ { -1.3999999999999986, 1, -0.69999999999999929 },
+ { -1.1999999999999993, 1, -0.59999999999999964 },
+ { -1.0000000000000000, 1, -0.50000000000000000 },
+ { -0.80000000000000071, 1, -0.40000000000000036 },
+ { -0.60000000000000142, 1, -0.30000000000000071 },
+ { -0.39999999999999858, 1, -0.19999999999999929 },
+ { -0.19999999999999929, 1, -0.099999999999999645 },
+ { 0.0000000000000000, 1, 0.0000000000000000 },
+ { 0.19999999999999929, 1, 0.099999999999999645 },
+ { 0.39999999999999858, 1, 0.19999999999999929 },
+ { 0.60000000000000142, 1, 0.30000000000000071 },
+ { 0.80000000000000071, 1, 0.40000000000000036 },
+ { 1.0000000000000000, 1, 0.50000000000000000 },
+ { 1.1999999999999993, 1, 0.59999999999999964 },
+ { 1.3999999999999986, 1, 0.69999999999999929 },
+ { 1.6000000000000014, 1, 0.80000000000000071 },
+ { 1.8000000000000007, 1, 0.90000000000000036 },
+ { 2.0000000000000000, 1, 1.0000000000000000 },
+ { 2.1999999999999993, 1, 1.0999999999999996 },
+ { 2.3999999999999986, 1, 1.1999999999999993 },
+ { 2.6000000000000014, 1, 1.3000000000000007 },
+ { 2.8000000000000007, 1, 1.4000000000000004 },
+ { 3.0000000000000000, 1, 1.5000000000000000 },
+ { 3.1999999999999993, 1, 1.5999999999999996 },
+ { 3.3999999999999986, 1, 1.6999999999999993 },
+ { 3.6000000000000014, 1, 1.8000000000000007 },
+ { 3.8000000000000007, 1, 1.9000000000000004 },
+ { 4.0000000000000000, 1, 2.0000000000000000 },
+ { 4.1999999999999993, 1, 2.0999999999999996 },
+ { 4.3999999999999986, 1, 2.1999999999999993 },
+ { 4.6000000000000014, 1, 2.3000000000000007 },
+ { 4.8000000000000007, 1, 2.4000000000000004 },
+ { 5.0000000000000000, 1, 2.5000000000000000 },
+ { 5.1999999999999993, 1, 2.5999999999999996 },
+ { 5.3999999999999986, 1, 2.6999999999999993 },
+ { 5.6000000000000014, 1, 2.8000000000000007 },
+ { 5.8000000000000007, 1, 2.9000000000000004 },
+ { 6.0000000000000000, 1, 3.0000000000000000 },
+ { 6.1999999999999993, 1, 3.0999999999999996 },
+ { 6.3999999999999986, 1, 3.1999999999999993 },
+ { 6.6000000000000014, 1, 3.3000000000000007 },
+ { 6.8000000000000007, 1, 3.4000000000000004 },
+ { 7.0000000000000000, 1, 3.5000000000000000 },
+ { 7.1999999999999993, 1, 3.5999999999999996 },
+ { 7.3999999999999986, 1, 3.6999999999999993 },
+ { 7.6000000000000014, 1, 3.8000000000000007 },
+ { 7.8000000000000007, 1, 3.9000000000000004 },
+ { 8.0000000000000000, 1, 4.0000000000000000 },
+ { 8.1999999999999993, 1, 4.0999999999999996 },
+ { 8.3999999999999986, 1, 4.1999999999999993 },
+ { 8.6000000000000014, 1, 4.3000000000000007 },
+ { 8.8000000000000007, 1, 4.4000000000000004 },
+ { 9.0000000000000000, 1, 4.5000000000000000 },
+ { 9.1999999999999993, 1, 4.5999999999999996 },
+ { 9.3999999999999986, 1, 4.6999999999999993 },
+ { 9.6000000000000014, 1, 4.8000000000000007 },
+ { 9.8000000000000007, 1, 4.9000000000000004 },
+ { 10.000000000000000, 1, 5.0000000000000000 },
+ { 10.199999999999999, 1, 5.0999999999999996 },
+ { 10.399999999999999, 1, 5.1999999999999993 },
+ { 10.600000000000001, 1, 5.3000000000000007 },
+ { 10.800000000000001, 1, 5.4000000000000004 },
+ { 11.000000000000000, 1, 5.5000000000000000 },
+ { 11.199999999999999, 1, 5.5999999999999996 },
+ { 11.399999999999999, 1, 5.6999999999999993 },
+ { 11.600000000000001, 1, 5.8000000000000007 },
+ { 11.800000000000001, 1, 5.9000000000000004 },
+ { 12.000000000000000, 1, 6.0000000000000000 },
+ { 12.200000000000003, 1, 6.1000000000000014 },
+ { 12.399999999999999, 1, 6.1999999999999993 },
+ { 12.600000000000001, 1, 6.3000000000000007 },
+ { 12.799999999999997, 1, 6.3999999999999986 },
+ { 13.000000000000000, 1, 6.5000000000000000 },
+ { 13.200000000000003, 1, 6.6000000000000014 },
+ { 13.399999999999999, 1, 6.6999999999999993 },
+ { 13.600000000000001, 1, 6.8000000000000007 },
+ { 13.799999999999997, 1, 6.8999999999999986 },
+ { 14.000000000000000, 1, 7.0000000000000000 },
+ { 14.200000000000003, 1, 7.1000000000000014 },
+ { 14.399999999999999, 1, 7.1999999999999993 },
+ { 14.600000000000001, 1, 7.3000000000000007 },
+ { 14.799999999999997, 1, 7.3999999999999986 },
+ { 15.000000000000000, 1, 7.5000000000000000 },
+ { 15.200000000000003, 1, 7.6000000000000014 },
+ { 15.399999999999999, 1, 7.6999999999999993 },
+ { 15.600000000000001, 1, 7.8000000000000007 },
+ { 15.799999999999997, 1, 7.8999999999999986 },
+ { 16.000000000000000, 1, 8.0000000000000000 },
+ { 16.200000000000003, 1, 8.1000000000000014 },
+ { 16.399999999999999, 1, 8.1999999999999993 },
+ { 16.600000000000001, 1, 8.3000000000000007 },
+ { 16.799999999999997, 1, 8.3999999999999986 },
+ { 17.000000000000000, 1, 8.5000000000000000 },
+ { 17.200000000000003, 1, 8.6000000000000014 },
+ { 17.399999999999999, 1, 8.6999999999999993 },
+ { 17.600000000000001, 1, 8.8000000000000007 },
+ { 17.799999999999997, 1, 8.8999999999999986 },
+ { 18.000000000000000, 1, 9.0000000000000000 },
+ { 18.200000000000003, 1, 9.1000000000000014 },
+ { 18.399999999999999, 1, 9.1999999999999993 },
+ { 18.600000000000001, 1, 9.3000000000000007 },
+ { 18.799999999999997, 1, 9.3999999999999986 },
+ { 19.000000000000000, 1, 9.5000000000000000 },
+ { 19.200000000000003, 1, 9.6000000000000014 },
+ { 19.399999999999999, 1, 9.6999999999999993 },
+ { 19.600000000000001, 1, 9.8000000000000007 },
+ { 19.799999999999997, 1, 9.8999999999999986 },
+ { 20.000000000000000, 1, 10.000000000000000 },
+};
+
+// Test function for n=1.
+template<typename Tp>
+ void
+ test002()
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data002)
+ / sizeof(testcase_hermite<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::hermite(Tp(data002[i].n), Tp(data002[i].x));
+ const Tp f0 = data002[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for n=2.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+testcase_hermite<double>
+data003[] =
+{
+ { 398.00000000000000, 2, -10.000000000000000 },
+ { 390.04000000000002, 2, -9.9000000000000004 },
+ { 382.16000000000008, 2, -9.8000000000000007 },
+ { 374.35999999999996, 2, -9.6999999999999993 },
+ { 366.63999999999999, 2, -9.5999999999999996 },
+ { 359.00000000000000, 2, -9.5000000000000000 },
+ { 351.44000000000005, 2, -9.4000000000000004 },
+ { 343.96000000000004, 2, -9.3000000000000007 },
+ { 336.55999999999995, 2, -9.1999999999999993 },
+ { 329.23999999999995, 2, -9.0999999999999996 },
+ { 322.00000000000000, 2, -9.0000000000000000 },
+ { 314.84000000000003, 2, -8.9000000000000004 },
+ { 307.76000000000005, 2, -8.8000000000000007 },
+ { 300.75999999999993, 2, -8.6999999999999993 },
+ { 293.83999999999997, 2, -8.5999999999999996 },
+ { 287.00000000000000, 2, -8.5000000000000000 },
+ { 280.24000000000001, 2, -8.4000000000000004 },
+ { 273.56000000000006, 2, -8.3000000000000007 },
+ { 266.95999999999998, 2, -8.1999999999999993 },
+ { 260.44000000000000, 2, -8.0999999999999996 },
+ { 254.00000000000000, 2, -8.0000000000000000 },
+ { 247.64000000000001, 2, -7.9000000000000004 },
+ { 241.35999999999999, 2, -7.7999999999999998 },
+ { 235.16000000000003, 2, -7.7000000000000002 },
+ { 229.03999999999999, 2, -7.5999999999999996 },
+ { 223.00000000000000, 2, -7.5000000000000000 },
+ { 217.04000000000002, 2, -7.4000000000000004 },
+ { 211.16000000000000, 2, -7.2999999999999998 },
+ { 205.36000000000001, 2, -7.2000000000000002 },
+ { 199.63999999999999, 2, -7.0999999999999996 },
+ { 194.00000000000000, 2, -7.0000000000000000 },
+ { 188.44000000000003, 2, -6.9000000000000004 },
+ { 182.95999999999998, 2, -6.7999999999999998 },
+ { 177.56000000000000, 2, -6.7000000000000002 },
+ { 172.23999999999998, 2, -6.5999999999999996 },
+ { 167.00000000000000, 2, -6.5000000000000000 },
+ { 161.84000000000003, 2, -6.4000000000000004 },
+ { 156.75999999999999, 2, -6.2999999999999998 },
+ { 151.76000000000002, 2, -6.2000000000000002 },
+ { 146.83999999999997, 2, -6.0999999999999996 },
+ { 142.00000000000000, 2, -6.0000000000000000 },
+ { 137.24000000000001, 2, -5.9000000000000004 },
+ { 132.56000000000000, 2, -5.7999999999999998 },
+ { 127.96000000000001, 2, -5.7000000000000002 },
+ { 123.43999999999998, 2, -5.5999999999999996 },
+ { 119.00000000000000, 2, -5.5000000000000000 },
+ { 114.64000000000001, 2, -5.4000000000000004 },
+ { 110.36000000000000, 2, -5.2999999999999998 },
+ { 106.16000000000001, 2, -5.2000000000000002 },
+ { 102.03999999999999, 2, -5.0999999999999996 },
+ { 98.000000000000000, 2, -5.0000000000000000 },
+ { 94.040000000000020, 2, -4.9000000000000004 },
+ { 90.159999999999997, 2, -4.7999999999999998 },
+ { 86.360000000000014, 2, -4.7000000000000002 },
+ { 82.639999999999986, 2, -4.5999999999999996 },
+ { 79.000000000000000, 2, -4.5000000000000000 },
+ { 75.440000000000012, 2, -4.4000000000000004 },
+ { 71.959999999999994, 2, -4.2999999999999998 },
+ { 68.560000000000002, 2, -4.2000000000000002 },
+ { 65.239999999999995, 2, -4.0999999999999996 },
+ { 62.000000000000000, 2, -4.0000000000000000 },
+ { 58.840000000000011, 2, -3.9000000000000004 },
+ { 55.759999999999998, 2, -3.7999999999999998 },
+ { 52.760000000000005, 2, -3.7000000000000002 },
+ { 49.839999999999989, 2, -3.5999999999999996 },
+ { 47.000000000000000, 2, -3.5000000000000000 },
+ { 44.240000000000009, 2, -3.4000000000000004 },
+ { 41.559999999999995, 2, -3.2999999999999998 },
+ { 38.960000000000008, 2, -3.2000000000000002 },
+ { 36.439999999999991, 2, -3.0999999999999996 },
+ { 34.000000000000000, 2, -3.0000000000000000 },
+ { 31.640000000000008, 2, -2.9000000000000004 },
+ { 29.359999999999996, 2, -2.7999999999999998 },
+ { 27.160000000000004, 2, -2.7000000000000002 },
+ { 25.039999999999992, 2, -2.5999999999999996 },
+ { 23.000000000000000, 2, -2.5000000000000000 },
+ { 21.040000000000006, 2, -2.4000000000000004 },
+ { 19.159999999999997, 2, -2.2999999999999998 },
+ { 17.360000000000003, 2, -2.2000000000000002 },
+ { 15.639999999999993, 2, -2.0999999999999996 },
+ { 14.000000000000000, 2, -2.0000000000000000 },
+ { 12.440000000000005, 2, -1.9000000000000004 },
+ { 10.960000000000010, 2, -1.8000000000000007 },
+ { 9.5599999999999898, 2, -1.6999999999999993 },
+ { 8.2399999999999949, 2, -1.5999999999999996 },
+ { 7.0000000000000000, 2, -1.5000000000000000 },
+ { 5.8400000000000043, 2, -1.4000000000000004 },
+ { 4.7600000000000078, 2, -1.3000000000000007 },
+ { 3.7599999999999936, 2, -1.1999999999999993 },
+ { 2.8399999999999972, 2, -1.0999999999999996 },
+ { 2.0000000000000000, 2, -1.0000000000000000 },
+ { 1.2400000000000024, 2, -0.90000000000000036 },
+ { 0.56000000000000449, 2, -0.80000000000000071 },
+ { -0.040000000000004032, 2, -0.69999999999999929 },
+ { -0.56000000000000161, 2, -0.59999999999999964 },
+ { -1.0000000000000000, 2, -0.50000000000000000 },
+ { -1.3599999999999990, 2, -0.40000000000000036 },
+ { -1.6399999999999983, 2, -0.30000000000000071 },
+ { -1.8400000000000012, 2, -0.19999999999999929 },
+ { -1.9600000000000002, 2, -0.099999999999999645 },
+ { -2.0000000000000000, 2, 0.0000000000000000 },
+ { -1.9600000000000002, 2, 0.099999999999999645 },
+ { -1.8400000000000012, 2, 0.19999999999999929 },
+ { -1.6399999999999983, 2, 0.30000000000000071 },
+ { -1.3599999999999990, 2, 0.40000000000000036 },
+ { -1.0000000000000000, 2, 0.50000000000000000 },
+ { -0.56000000000000161, 2, 0.59999999999999964 },
+ { -0.040000000000004032, 2, 0.69999999999999929 },
+ { 0.56000000000000449, 2, 0.80000000000000071 },
+ { 1.2400000000000024, 2, 0.90000000000000036 },
+ { 2.0000000000000000, 2, 1.0000000000000000 },
+ { 2.8399999999999972, 2, 1.0999999999999996 },
+ { 3.7599999999999936, 2, 1.1999999999999993 },
+ { 4.7600000000000078, 2, 1.3000000000000007 },
+ { 5.8400000000000043, 2, 1.4000000000000004 },
+ { 7.0000000000000000, 2, 1.5000000000000000 },
+ { 8.2399999999999949, 2, 1.5999999999999996 },
+ { 9.5599999999999898, 2, 1.6999999999999993 },
+ { 10.960000000000010, 2, 1.8000000000000007 },
+ { 12.440000000000005, 2, 1.9000000000000004 },
+ { 14.000000000000000, 2, 2.0000000000000000 },
+ { 15.639999999999993, 2, 2.0999999999999996 },
+ { 17.359999999999989, 2, 2.1999999999999993 },
+ { 19.160000000000014, 2, 2.3000000000000007 },
+ { 21.040000000000006, 2, 2.4000000000000004 },
+ { 23.000000000000000, 2, 2.5000000000000000 },
+ { 25.039999999999992, 2, 2.5999999999999996 },
+ { 27.159999999999986, 2, 2.6999999999999993 },
+ { 29.360000000000017, 2, 2.8000000000000007 },
+ { 31.640000000000008, 2, 2.9000000000000004 },
+ { 34.000000000000000, 2, 3.0000000000000000 },
+ { 36.439999999999991, 2, 3.0999999999999996 },
+ { 38.959999999999980, 2, 3.1999999999999993 },
+ { 41.560000000000016, 2, 3.3000000000000007 },
+ { 44.240000000000009, 2, 3.4000000000000004 },
+ { 47.000000000000000, 2, 3.5000000000000000 },
+ { 49.839999999999989, 2, 3.5999999999999996 },
+ { 52.759999999999977, 2, 3.6999999999999993 },
+ { 55.760000000000019, 2, 3.8000000000000007 },
+ { 58.840000000000011, 2, 3.9000000000000004 },
+ { 62.000000000000000, 2, 4.0000000000000000 },
+ { 65.239999999999995, 2, 4.0999999999999996 },
+ { 68.559999999999974, 2, 4.1999999999999993 },
+ { 71.960000000000022, 2, 4.3000000000000007 },
+ { 75.440000000000012, 2, 4.4000000000000004 },
+ { 79.000000000000000, 2, 4.5000000000000000 },
+ { 82.639999999999986, 2, 4.5999999999999996 },
+ { 86.359999999999971, 2, 4.6999999999999993 },
+ { 90.160000000000025, 2, 4.8000000000000007 },
+ { 94.040000000000020, 2, 4.9000000000000004 },
+ { 98.000000000000000, 2, 5.0000000000000000 },
+ { 102.03999999999999, 2, 5.0999999999999996 },
+ { 106.15999999999997, 2, 5.1999999999999993 },
+ { 110.36000000000003, 2, 5.3000000000000007 },
+ { 114.64000000000001, 2, 5.4000000000000004 },
+ { 119.00000000000000, 2, 5.5000000000000000 },
+ { 123.43999999999998, 2, 5.5999999999999996 },
+ { 127.95999999999998, 2, 5.6999999999999993 },
+ { 132.56000000000003, 2, 5.8000000000000007 },
+ { 137.24000000000001, 2, 5.9000000000000004 },
+ { 142.00000000000000, 2, 6.0000000000000000 },
+ { 146.84000000000006, 2, 6.1000000000000014 },
+ { 151.75999999999996, 2, 6.1999999999999993 },
+ { 156.76000000000005, 2, 6.3000000000000007 },
+ { 161.83999999999992, 2, 6.3999999999999986 },
+ { 167.00000000000000, 2, 6.5000000000000000 },
+ { 172.24000000000007, 2, 6.6000000000000014 },
+ { 177.55999999999997, 2, 6.6999999999999993 },
+ { 182.96000000000004, 2, 6.8000000000000007 },
+ { 188.43999999999991, 2, 6.8999999999999986 },
+ { 194.00000000000000, 2, 7.0000000000000000 },
+ { 199.64000000000007, 2, 7.1000000000000014 },
+ { 205.35999999999996, 2, 7.1999999999999993 },
+ { 211.16000000000005, 2, 7.3000000000000007 },
+ { 217.03999999999991, 2, 7.3999999999999986 },
+ { 223.00000000000000, 2, 7.5000000000000000 },
+ { 229.04000000000008, 2, 7.6000000000000014 },
+ { 235.15999999999997, 2, 7.6999999999999993 },
+ { 241.36000000000004, 2, 7.8000000000000007 },
+ { 247.63999999999990, 2, 7.8999999999999986 },
+ { 254.00000000000000, 2, 8.0000000000000000 },
+ { 260.44000000000011, 2, 8.1000000000000014 },
+ { 266.95999999999998, 2, 8.1999999999999993 },
+ { 273.56000000000006, 2, 8.3000000000000007 },
+ { 280.23999999999990, 2, 8.3999999999999986 },
+ { 287.00000000000000, 2, 8.5000000000000000 },
+ { 293.84000000000009, 2, 8.6000000000000014 },
+ { 300.75999999999993, 2, 8.6999999999999993 },
+ { 307.76000000000005, 2, 8.8000000000000007 },
+ { 314.83999999999992, 2, 8.8999999999999986 },
+ { 322.00000000000000, 2, 9.0000000000000000 },
+ { 329.24000000000012, 2, 9.1000000000000014 },
+ { 336.55999999999995, 2, 9.1999999999999993 },
+ { 343.96000000000004, 2, 9.3000000000000007 },
+ { 351.43999999999988, 2, 9.3999999999999986 },
+ { 359.00000000000000, 2, 9.5000000000000000 },
+ { 366.64000000000010, 2, 9.6000000000000014 },
+ { 374.35999999999996, 2, 9.6999999999999993 },
+ { 382.16000000000008, 2, 9.8000000000000007 },
+ { 390.03999999999991, 2, 9.8999999999999986 },
+ { 398.00000000000000, 2, 10.000000000000000 },
+};
+
+// Test function for n=2.
+template<typename Tp>
+ void
+ test003()
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data003)
+ / sizeof(testcase_hermite<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::hermite(Tp(data003[i].n), Tp(data003[i].x));
+ const Tp f0 = data003[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for n=5.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+testcase_hermite<double>
+data004[] =
+{
+ { -3041200.0000000000, 5, -10.000000000000000 },
+ { -2889108.3196800007, 5, -9.9000000000000004 },
+ { -2743131.8297600015, 5, -9.8000000000000007 },
+ { -2603085.2022399991, 5, -9.6999999999999993 },
+ { -2468786.8723199992, 5, -9.5999999999999996 },
+ { -2340059.0000000000, 5, -9.5000000000000000 },
+ { -2216727.4316800009, 5, -9.4000000000000004 },
+ { -2098621.6617600010, 5, -9.3000000000000007 },
+ { -1985574.7942399993, 5, -9.1999999999999993 },
+ { -1877423.5043199996, 5, -9.0999999999999996 },
+ { -1774008.0000000000, 5, -9.0000000000000000 },
+ { -1675171.9836800008, 5, -8.9000000000000004 },
+ { -1580762.6137600006, 5, -8.8000000000000007 },
+ { -1490630.4662399990, 5, -8.6999999999999993 },
+ { -1404629.4963199999, 5, -8.5999999999999996 },
+ { -1322617.0000000000, 5, -8.5000000000000000 },
+ { -1244453.5756800002, 5, -8.4000000000000004 },
+ { -1170003.0857600006, 5, -8.3000000000000007 },
+ { -1099132.6182399995, 5, -8.1999999999999993 },
+ { -1031712.4483199996, 5, -8.0999999999999996 },
+ { -967616.00000000000, 5, -8.0000000000000000 },
+ { -906719.80768000009, 5, -7.9000000000000004 },
+ { -848903.47775999992, 5, -7.7999999999999998 },
+ { -794049.65024000010, 5, -7.7000000000000002 },
+ { -742043.96031999995, 5, -7.5999999999999996 },
+ { -692775.00000000000, 5, -7.5000000000000000 },
+ { -646134.27968000027, 5, -7.4000000000000004 },
+ { -602016.18975999986, 5, -7.2999999999999998 },
+ { -560317.96224000002, 5, -7.2000000000000002 },
+ { -520939.63231999992, 5, -7.0999999999999996 },
+ { -483784.00000000000, 5, -7.0000000000000000 },
+ { -448756.59168000019, 5, -6.9000000000000004 },
+ { -415765.62176000001, 5, -6.7999999999999998 },
+ { -384721.95424000005, 5, -6.7000000000000002 },
+ { -355539.06431999995, 5, -6.5999999999999996 },
+ { -328133.00000000000, 5, -6.5000000000000000 },
+ { -302422.34368000011, 5, -6.4000000000000004 },
+ { -278328.17375999998, 5, -6.2999999999999998 },
+ { -255774.02624000004, 5, -6.2000000000000002 },
+ { -234685.85631999990, 5, -6.0999999999999996 },
+ { -214992.00000000000, 5, -6.0000000000000000 },
+ { -196623.13568000006, 5, -5.9000000000000004 },
+ { -179512.24575999999, 5, -5.7999999999999998 },
+ { -163594.57824000003, 5, -5.7000000000000002 },
+ { -148807.60831999997, 5, -5.5999999999999996 },
+ { -135091.00000000000, 5, -5.5000000000000000 },
+ { -122386.56768000004, 5, -5.4000000000000004 },
+ { -110638.23776000000, 5, -5.2999999999999998 },
+ { -99792.010240000047, 5, -5.2000000000000002 },
+ { -89795.920319999976, 5, -5.0999999999999996 },
+ { -80600.000000000000, 5, -5.0000000000000000 },
+ { -72156.239680000028, 5, -4.9000000000000004 },
+ { -64418.549759999994, 5, -4.7999999999999998 },
+ { -57342.722240000010, 5, -4.7000000000000002 },
+ { -50886.392319999970, 5, -4.5999999999999996 },
+ { -45009.000000000000, 5, -4.5000000000000000 },
+ { -39671.751680000008, 5, -4.4000000000000004 },
+ { -34837.581759999986, 5, -4.2999999999999998 },
+ { -30471.114240000010, 5, -4.2000000000000002 },
+ { -26538.624319999992, 5, -4.0999999999999996 },
+ { -23008.000000000000, 5, -4.0000000000000000 },
+ { -19848.703680000013, 5, -3.9000000000000004 },
+ { -17031.733759999996, 5, -3.7999999999999998 },
+ { -14529.586240000001, 5, -3.7000000000000002 },
+ { -12316.216319999992, 5, -3.5999999999999996 },
+ { -10367.000000000000, 5, -3.5000000000000000 },
+ { -8658.6956800000080, 5, -3.4000000000000004 },
+ { -7169.4057599999960, 5, -3.2999999999999998 },
+ { -5878.5382400000035, 5, -3.2000000000000002 },
+ { -4766.7683199999965, 5, -3.0999999999999996 },
+ { -3816.0000000000000, 5, -3.0000000000000000 },
+ { -3009.3276800000026, 5, -2.9000000000000004 },
+ { -2330.9977599999988, 5, -2.7999999999999998 },
+ { -1766.3702400000002, 5, -2.7000000000000002 },
+ { -1301.8803199999984, 5, -2.5999999999999996 },
+ { -925.00000000000000, 5, -2.5000000000000000 },
+ { -624.19968000000074, 5, -2.4000000000000004 },
+ { -388.90975999999978, 5, -2.2999999999999998 },
+ { -209.48224000000022, 5, -2.2000000000000002 },
+ { -77.152319999999520, 5, -2.0999999999999996 },
+ { 16.000000000000000, 5, -2.0000000000000000 },
+ { 77.088319999999840, 5, -1.9000000000000004 },
+ { 112.45823999999980, 5, -1.8000000000000007 },
+ { 127.72576000000002, 5, -1.6999999999999993 },
+ { 127.81567999999996, 5, -1.5999999999999996 },
+ { 117.00000000000000, 5, -1.5000000000000000 },
+ { 98.936320000000080, 5, -1.4000000000000004 },
+ { 76.706240000000179, 5, -1.3000000000000007 },
+ { 52.853759999999838, 5, -1.1999999999999993 },
+ { 29.423679999999933, 5, -1.0999999999999996 },
+ { 8.0000000000000000, 5, -1.0000000000000000 },
+ { -10.255679999999948, 5, -0.90000000000000036 },
+ { -24.565759999999916, 5, -0.80000000000000071 },
+ { -34.498240000000052, 5, -0.69999999999999929 },
+ { -39.928320000000006, 5, -0.59999999999999964 },
+ { -41.000000000000000, 5, -0.50000000000000000 },
+ { -38.087680000000020, 5, -0.40000000000000036 },
+ { -31.757760000000054, 5, -0.30000000000000071 },
+ { -22.730239999999931, 5, -0.19999999999999929 },
+ { -11.840319999999959, 5, -0.099999999999999645 },
+ { 0.0000000000000000, 5, 0.0000000000000000 },
+ { 11.840319999999959, 5, 0.099999999999999645 },
+ { 22.730239999999931, 5, 0.19999999999999929 },
+ { 31.757760000000054, 5, 0.30000000000000071 },
+ { 38.087680000000020, 5, 0.40000000000000036 },
+ { 41.000000000000000, 5, 0.50000000000000000 },
+ { 39.928320000000006, 5, 0.59999999999999964 },
+ { 34.498240000000052, 5, 0.69999999999999929 },
+ { 24.565759999999916, 5, 0.80000000000000071 },
+ { 10.255679999999948, 5, 0.90000000000000036 },
+ { -8.0000000000000000, 5, 1.0000000000000000 },
+ { -29.423679999999933, 5, 1.0999999999999996 },
+ { -52.853759999999838, 5, 1.1999999999999993 },
+ { -76.706240000000179, 5, 1.3000000000000007 },
+ { -98.936320000000080, 5, 1.4000000000000004 },
+ { -117.00000000000000, 5, 1.5000000000000000 },
+ { -127.81567999999996, 5, 1.5999999999999996 },
+ { -127.72576000000002, 5, 1.6999999999999993 },
+ { -112.45823999999980, 5, 1.8000000000000007 },
+ { -77.088319999999840, 5, 1.9000000000000004 },
+ { -16.000000000000000, 5, 2.0000000000000000 },
+ { 77.152319999999520, 5, 2.0999999999999996 },
+ { 209.48223999999891, 5, 2.1999999999999993 },
+ { 388.90976000000148, 5, 2.3000000000000007 },
+ { 624.19968000000074, 5, 2.4000000000000004 },
+ { 925.00000000000000, 5, 2.5000000000000000 },
+ { 1301.8803199999984, 5, 2.5999999999999996 },
+ { 1766.3702399999963, 5, 2.6999999999999993 },
+ { 2330.9977600000047, 5, 2.8000000000000007 },
+ { 3009.3276800000026, 5, 2.9000000000000004 },
+ { 3816.0000000000000, 5, 3.0000000000000000 },
+ { 4766.7683199999965, 5, 3.0999999999999996 },
+ { 5878.5382399999908, 5, 3.1999999999999993 },
+ { 7169.4057600000087, 5, 3.3000000000000007 },
+ { 8658.6956800000080, 5, 3.4000000000000004 },
+ { 10367.000000000000, 5, 3.5000000000000000 },
+ { 12316.216319999992, 5, 3.5999999999999996 },
+ { 14529.586239999979, 5, 3.6999999999999993 },
+ { 17031.733760000021, 5, 3.8000000000000007 },
+ { 19848.703680000013, 5, 3.9000000000000004 },
+ { 23008.000000000000, 5, 4.0000000000000000 },
+ { 26538.624319999992, 5, 4.0999999999999996 },
+ { 30471.114239999963, 5, 4.1999999999999993 },
+ { 34837.581760000037, 5, 4.3000000000000007 },
+ { 39671.751680000008, 5, 4.4000000000000004 },
+ { 45009.000000000000, 5, 4.5000000000000000 },
+ { 50886.392319999970, 5, 4.5999999999999996 },
+ { 57342.722239999952, 5, 4.6999999999999993 },
+ { 64418.549760000053, 5, 4.8000000000000007 },
+ { 72156.239680000028, 5, 4.9000000000000004 },
+ { 80600.000000000000, 5, 5.0000000000000000 },
+ { 89795.920319999976, 5, 5.0999999999999996 },
+ { 99792.010239999945, 5, 5.1999999999999993 },
+ { 110638.23776000006, 5, 5.3000000000000007 },
+ { 122386.56768000004, 5, 5.4000000000000004 },
+ { 135091.00000000000, 5, 5.5000000000000000 },
+ { 148807.60831999997, 5, 5.5999999999999996 },
+ { 163594.57823999992, 5, 5.6999999999999993 },
+ { 179512.24576000011, 5, 5.8000000000000007 },
+ { 196623.13568000006, 5, 5.9000000000000004 },
+ { 214992.00000000000, 5, 6.0000000000000000 },
+ { 234685.85632000031, 5, 6.1000000000000014 },
+ { 255774.02623999983, 5, 6.1999999999999993 },
+ { 278328.17376000021, 5, 6.3000000000000007 },
+ { 302422.34367999958, 5, 6.3999999999999986 },
+ { 328133.00000000000, 5, 6.5000000000000000 },
+ { 355539.06432000035, 5, 6.6000000000000014 },
+ { 384721.95423999976, 5, 6.6999999999999993 },
+ { 415765.62176000018, 5, 6.8000000000000007 },
+ { 448756.59167999960, 5, 6.8999999999999986 },
+ { 483784.00000000000, 5, 7.0000000000000000 },
+ { 520939.63232000044, 5, 7.1000000000000014 },
+ { 560317.96223999979, 5, 7.1999999999999993 },
+ { 602016.18976000033, 5, 7.3000000000000007 },
+ { 646134.27967999945, 5, 7.3999999999999986 },
+ { 692775.00000000000, 5, 7.5000000000000000 },
+ { 742043.96032000054, 5, 7.6000000000000014 },
+ { 794049.65023999964, 5, 7.6999999999999993 },
+ { 848903.47776000027, 5, 7.8000000000000007 },
+ { 906719.80767999915, 5, 7.8999999999999986 },
+ { 967616.00000000000, 5, 8.0000000000000000 },
+ { 1031712.4483200011, 5, 8.1000000000000014 },
+ { 1099132.6182399995, 5, 8.1999999999999993 },
+ { 1170003.0857600006, 5, 8.3000000000000007 },
+ { 1244453.5756799988, 5, 8.3999999999999986 },
+ { 1322617.0000000000, 5, 8.5000000000000000 },
+ { 1404629.4963200013, 5, 8.6000000000000014 },
+ { 1490630.4662399990, 5, 8.6999999999999993 },
+ { 1580762.6137600006, 5, 8.8000000000000007 },
+ { 1675171.9836799989, 5, 8.8999999999999986 },
+ { 1774008.0000000000, 5, 9.0000000000000000 },
+ { 1877423.5043200015, 5, 9.1000000000000014 },
+ { 1985574.7942399993, 5, 9.1999999999999993 },
+ { 2098621.6617600010, 5, 9.3000000000000007 },
+ { 2216727.4316799981, 5, 9.3999999999999986 },
+ { 2340059.0000000000, 5, 9.5000000000000000 },
+ { 2468786.8723200019, 5, 9.6000000000000014 },
+ { 2603085.2022399991, 5, 9.6999999999999993 },
+ { 2743131.8297600015, 5, 9.8000000000000007 },
+ { 2889108.3196799983, 5, 9.8999999999999986 },
+ { 3041200.0000000000, 5, 10.000000000000000 },
+};
+
+// Test function for n=5.
+template<typename Tp>
+ void
+ test004()
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data004)
+ / sizeof(testcase_hermite<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::hermite(Tp(data004[i].n), Tp(data004[i].x));
+ const Tp f0 = data004[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for n=10.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+testcase_hermite<double>
+data005[] =
+{
+ { 8093278209760.0000, 10, -10.000000000000000 },
+ { 7282867075495.3066, 10, -9.9000000000000004 },
+ { 6545846221520.6768, 10, -9.8000000000000007 },
+ { 5876279006180.6377, 10, -9.6999999999999993 },
+ { 5268651052510.4668, 10, -9.5999999999999996 },
+ { 4717844376391.0000, 10, -9.5000000000000000 },
+ { 4219112842239.1147, 10, -9.4000000000000004 },
+ { 3768058891466.0469, 10, -9.3000000000000007 },
+ { 3360611490639.0889, 10, -9.1999999999999993 },
+ { 2993005247949.7607, 10, -9.0999999999999996 },
+ { 2661760648224.0000, 10, -9.0000000000000000 },
+ { 2363665358307.8496, 10, -8.9000000000000004 },
+ { 2095756556225.3428, 10, -8.8000000000000007 },
+ { 1855304239034.7983, 10, -8.6999999999999993 },
+ { 1639795465805.4746, 10, -8.5999999999999996 },
+ { 1446919493599.0000, 10, -8.5000000000000000 },
+ { 1274553765769.7463, 10, -8.4000000000000004 },
+ { 1120750713295.2778, 10, -8.3000000000000007 },
+ { 983725331213.07190, 10, -8.1999999999999993 },
+ { 861843493572.90051, 10, -8.0999999999999996 },
+ { 753610971616.00000, 10, -8.0000000000000000 },
+ { 657663121163.02454, 10, -7.9000000000000004 },
+ { 572755206432.81335, 10, -7.7999999999999998 },
+ { 497753328723.87518, 10, -7.7000000000000002 },
+ { 431625929570.40063, 10, -7.5999999999999996 },
+ { 373435839135.00000, 10, -7.5000000000000000 },
+ { 322332841721.55731, 10, -7.4000000000000004 },
+ { 277546731384.01782, 10, -7.2999999999999998 },
+ { 238380831670.89990, 10, -7.2000000000000002 },
+ { 204205954581.24731, 10, -7.0999999999999996 },
+ { 174454774816.00000, 10, -7.0000000000000000 },
+ { 148616596389.67230, 10, -6.9000000000000004 },
+ { 126232489621.23923, 10, -6.7999999999999998 },
+ { 106890777450.54663, 10, -6.7000000000000002 },
+ { 90222850927.787979, 10, -6.5999999999999996 },
+ { 75899294599.000000, 10, -6.5000000000000000 },
+ { 63626303360.468109, 10, -6.4000000000000004 },
+ { 53142373179.806053, 10, -6.2999999999999998 },
+ { 44215248881.625534, 10, -6.2000000000000002 },
+ { 36639112971.527679, 10, -6.0999999999999996 },
+ { 30232000224.000000, 10, -6.0000000000000000 },
+ { 24833423488.050617, 10, -5.9000000000000004 },
+ { 20302196869.444584, 10, -5.7999999999999998 },
+ { 16514443130.579359, 10, -5.7000000000000002 },
+ { 13361772808.732477, 10, -5.5999999999999996 },
+ { 10749623191.000000, 10, -5.5000000000000000 },
+ { 8595745900.0898170, 10, -5.4000000000000004 },
+ { 6828832439.6160822, 10, -5.2999999999999998 },
+ { 5387267621.0259018, 10, -5.2000000000000002 },
+ { 4218001347.1524582, 10, -5.0999999999999996 },
+ { 3275529760.0000000, 10, -5.0000000000000000 },
+ { 2520977273.0966806, 10, -4.9000000000000004 },
+ { 1921271501.9744270, 10, -4.7999999999999998 },
+ { 1448403580.4203825, 10, -4.7000000000000002 },
+ { 1078766805.4651456, 10, -4.5999999999999996 },
+ { 792566991.00000000, 10, -4.5000000000000000 },
+ { 573298328.81993556, 10, -4.4000000000000004 },
+ { 407278957.14375639, 10, -4.2999999999999998 },
+ { 283240820.63788313, 10, -4.2000000000000002 },
+ { 191968773.03860721, 10, -4.0999999999999996 },
+ { 125984224.00000000, 10, -4.0000000000000000 },
+ { 79268966.162877649, 10, -3.9000000000000004 },
+ { 47025137.016035721, 10, -3.7999999999999998 },
+ { 25467573.275709353, 10, -3.7000000000000002 },
+ { 11645103.614666298, 10, -3.5999999999999996 },
+ { 3287599.0000000000, 10, -3.5000000000000000 },
+ { -1324140.9798373245, 10, -3.4000000000000004 },
+ { -3468342.2313268245, 10, -3.2999999999999998 },
+ { -4074495.5241857050, 10, -3.2000000000000002 },
+ { -3800107.4878923763, 10, -3.0999999999999996 },
+ { -3093984.0000000000, 10, -3.0000000000000000 },
+ { -2247873.5653938209, 10, -2.9000000000000004 },
+ { -1438117.1978829810, 10, -2.7999999999999998 },
+ { -758781.93281034287, 10, -2.7000000000000002 },
+ { -247597.05012469599, 10, -2.5999999999999996 },
+ { 94135.000000000000, 10, -2.5000000000000000 },
+ { 286617.47398410190, 10, -2.4000000000000004 },
+ { 360718.79745525768, 10, -2.2999999999999998 },
+ { 350419.82826741762, 10, -2.2000000000000002 },
+ { 287863.09027338214, 10, -2.0999999999999996 },
+ { 200416.00000000000, 10, -2.0000000000000000 },
+ { 109249.22783242268, 10, -1.9000000000000004 },
+ { 29012.094015898125, 10, -1.8000000000000007 },
+ { -31740.330680422732, 10, -1.6999999999999993 },
+ { -69648.597834137676, 10, -1.5999999999999996 },
+ { -85401.000000000000, 10, -1.5000000000000000 },
+ { -82507.675752857642, 10, -1.4000000000000004 },
+ { -66123.413033062563, 10, -1.3000000000000007 },
+ { -42007.465141862223, 10, -1.1999999999999993 },
+ { -15676.055823257526, 10, -1.0999999999999996 },
+ { 8224.0000000000000, 10, -1.0000000000000000 },
+ { 26314.366684262357, 10, -0.90000000000000036 },
+ { 36668.344916377559, 10, -0.80000000000000071 },
+ { 38802.826035097583, 10, -0.69999999999999929 },
+ { 33513.167890022363, 10, -0.59999999999999964 },
+ { 22591.000000000000, 10, -0.50000000000000000 },
+ { 8467.6907597824556, 10, -0.40000000000000036 },
+ { -6173.8524877822965, 10, -0.30000000000000071 },
+ { -18778.856957542470, 10, -0.19999999999999929 },
+ { -27256.158950297624, 10, -0.099999999999999645 },
+ { -30240.000000000000, 10, 0.0000000000000000 },
+ { -27256.158950297624, 10, 0.099999999999999645 },
+ { -18778.856957542470, 10, 0.19999999999999929 },
+ { -6173.8524877822965, 10, 0.30000000000000071 },
+ { 8467.6907597824556, 10, 0.40000000000000036 },
+ { 22591.000000000000, 10, 0.50000000000000000 },
+ { 33513.167890022363, 10, 0.59999999999999964 },
+ { 38802.826035097583, 10, 0.69999999999999929 },
+ { 36668.344916377559, 10, 0.80000000000000071 },
+ { 26314.366684262357, 10, 0.90000000000000036 },
+ { 8224.0000000000000, 10, 1.0000000000000000 },
+ { -15676.055823257526, 10, 1.0999999999999996 },
+ { -42007.465141862223, 10, 1.1999999999999993 },
+ { -66123.413033062563, 10, 1.3000000000000007 },
+ { -82507.675752857642, 10, 1.4000000000000004 },
+ { -85401.000000000000, 10, 1.5000000000000000 },
+ { -69648.597834137676, 10, 1.5999999999999996 },
+ { -31740.330680422732, 10, 1.6999999999999993 },
+ { 29012.094015898125, 10, 1.8000000000000007 },
+ { 109249.22783242268, 10, 1.9000000000000004 },
+ { 200416.00000000000, 10, 2.0000000000000000 },
+ { 287863.09027338214, 10, 2.0999999999999996 },
+ { 350419.82826741732, 10, 2.1999999999999993 },
+ { 360718.79745525745, 10, 2.3000000000000007 },
+ { 286617.47398410190, 10, 2.4000000000000004 },
+ { 94135.000000000000, 10, 2.5000000000000000 },
+ { -247597.05012469599, 10, 2.5999999999999996 },
+ { -758781.93281033845, 10, 2.6999999999999993 },
+ { -1438117.1978829878, 10, 2.8000000000000007 },
+ { -2247873.5653938209, 10, 2.9000000000000004 },
+ { -3093984.0000000000, 10, 3.0000000000000000 },
+ { -3800107.4878923763, 10, 3.0999999999999996 },
+ { -4074495.5241857003, 10, 3.1999999999999993 },
+ { -3468342.2313268133, 10, 3.3000000000000007 },
+ { -1324140.9798373245, 10, 3.4000000000000004 },
+ { 3287599.0000000000, 10, 3.5000000000000000 },
+ { 11645103.614666298, 10, 3.5999999999999996 },
+ { 25467573.275709212, 10, 3.6999999999999993 },
+ { 47025137.016035900, 10, 3.8000000000000007 },
+ { 79268966.162877649, 10, 3.9000000000000004 },
+ { 125984224.00000000, 10, 4.0000000000000000 },
+ { 191968773.03860721, 10, 4.0999999999999996 },
+ { 283240820.63788199, 10, 4.1999999999999993 },
+ { 407278957.14375770, 10, 4.3000000000000007 },
+ { 573298328.81993556, 10, 4.4000000000000004 },
+ { 792566991.00000000, 10, 4.5000000000000000 },
+ { 1078766805.4651456, 10, 4.5999999999999996 },
+ { 1448403580.4203794, 10, 4.6999999999999993 },
+ { 1921271501.9744320, 10, 4.8000000000000007 },
+ { 2520977273.0966806, 10, 4.9000000000000004 },
+ { 3275529760.0000000, 10, 5.0000000000000000 },
+ { 4218001347.1524582, 10, 5.0999999999999996 },
+ { 5387267621.0258913, 10, 5.1999999999999993 },
+ { 6828832439.6160927, 10, 5.3000000000000007 },
+ { 8595745900.0898170, 10, 5.4000000000000004 },
+ { 10749623191.000000, 10, 5.5000000000000000 },
+ { 13361772808.732477, 10, 5.5999999999999996 },
+ { 16514443130.579332, 10, 5.6999999999999993 },
+ { 20302196869.444618, 10, 5.8000000000000007 },
+ { 24833423488.050617, 10, 5.9000000000000004 },
+ { 30232000224.000000, 10, 6.0000000000000000 },
+ { 36639112971.527824, 10, 6.1000000000000014 },
+ { 44215248881.625443, 10, 6.1999999999999993 },
+ { 53142373179.806152, 10, 6.3000000000000007 },
+ { 63626303360.467911, 10, 6.3999999999999986 },
+ { 75899294599.000000, 10, 6.5000000000000000 },
+ { 90222850927.788208, 10, 6.6000000000000014 },
+ { 106890777450.54652, 10, 6.6999999999999993 },
+ { 126232489621.23946, 10, 6.8000000000000007 },
+ { 148616596389.67184, 10, 6.8999999999999986 },
+ { 174454774816.00000, 10, 7.0000000000000000 },
+ { 204205954581.24780, 10, 7.1000000000000014 },
+ { 238380831670.89960, 10, 7.1999999999999993 },
+ { 277546731384.01831, 10, 7.3000000000000007 },
+ { 322332841721.55646, 10, 7.3999999999999986 },
+ { 373435839135.00000, 10, 7.5000000000000000 },
+ { 431625929570.40161, 10, 7.6000000000000014 },
+ { 497753328723.87476, 10, 7.6999999999999993 },
+ { 572755206432.81396, 10, 7.8000000000000007 },
+ { 657663121163.02307, 10, 7.8999999999999986 },
+ { 753610971616.00000, 10, 8.0000000000000000 },
+ { 861843493572.90283, 10, 8.1000000000000014 },
+ { 983725331213.07190, 10, 8.1999999999999993 },
+ { 1120750713295.2778, 10, 8.3000000000000007 },
+ { 1274553765769.7439, 10, 8.3999999999999986 },
+ { 1446919493599.0000, 10, 8.5000000000000000 },
+ { 1639795465805.4785, 10, 8.6000000000000014 },
+ { 1855304239034.7983, 10, 8.6999999999999993 },
+ { 2095756556225.3428, 10, 8.8000000000000007 },
+ { 2363665358307.8442, 10, 8.8999999999999986 },
+ { 2661760648224.0000, 10, 9.0000000000000000 },
+ { 2993005247949.7671, 10, 9.1000000000000014 },
+ { 3360611490639.0889, 10, 9.1999999999999993 },
+ { 3768058891466.0469, 10, 9.3000000000000007 },
+ { 4219112842239.1055, 10, 9.3999999999999986 },
+ { 4717844376391.0000, 10, 9.5000000000000000 },
+ { 5268651052510.4785, 10, 9.6000000000000014 },
+ { 5876279006180.6377, 10, 9.6999999999999993 },
+ { 6545846221520.6768, 10, 9.8000000000000007 },
+ { 7282867075495.2949, 10, 9.8999999999999986 },
+ { 8093278209760.0000, 10, 10.000000000000000 },
+};
+
+// Test function for n=10.
+template<typename Tp>
+ void
+ test005()
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data005)
+ / sizeof(testcase_hermite<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::hermite(Tp(data005[i].n), Tp(data005[i].x));
+ const Tp f0 = data005[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for n=20.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+testcase_hermite<double>
+data006[] =
+{
+ { 3.6536710970888030e+25, 20, -10.000000000000000 },
+ { 2.9174932703098834e+25, 20, -9.9000000000000004 },
+ { 2.3228769039548404e+25, 20, -9.8000000000000007 },
+ { 1.8439144509496016e+25, 20, -9.6999999999999993 },
+ { 1.4591971834545420e+25, 20, -9.5999999999999996 },
+ { 1.1510764882450827e+25, 20, -9.5000000000000000 },
+ { 9.0503941245991605e+24, 20, -9.4000000000000004 },
+ { 7.0918188910312152e+24, 20, -9.3000000000000007 },
+ { 5.5376531405202033e+24, 20, -9.1999999999999993 },
+ { 4.3084410724035914e+24, 20, -9.0999999999999996 },
+ { 3.3395360269524137e+24, 20, -9.0000000000000000 },
+ { 2.5784910430831484e+24, 20, -8.9000000000000004 },
+ { 1.9828824261062853e+24, 20, -8.8000000000000007 },
+ { 1.5184989558235974e+24, 20, -8.6999999999999993 },
+ { 1.1578391431515818e+24, 20, -8.5999999999999996 },
+ { 8.7886740525023878e+23, 20, -8.5000000000000000 },
+ { 6.6398733801206072e+23, 20, -8.4000000000000004 },
+ { 4.9919656538201190e+23, 20, -8.3000000000000007 },
+ { 3.7339306542317994e+23, 20, -8.1999999999999993 },
+ { 2.7780752653950559e+23, 20, -8.0999999999999996 },
+ { 2.0554027373991249e+23, 20, -8.0000000000000000 },
+ { 1.5118471231121695e+23, 20, -7.9000000000000004 },
+ { 1.1052214218386250e+23, 20, -7.7999999999999998 },
+ { 8.0275268594719504e+22, 20, -7.7000000000000002 },
+ { 5.7909832934009042e+22, 20, -7.5999999999999996 },
+ { 4.1475563998692745e+22, 20, -7.5000000000000000 },
+ { 2.9479149729249250e+22, 20, -7.4000000000000004 },
+ { 2.0783192485964573e+22, 20, -7.2999999999999998 },
+ { 1.4526171451238503e+22, 20, -7.2000000000000002 },
+ { 1.0059323685871305e+22, 20, -7.0999999999999996 },
+ { 6.8970965604502329e+21, 20, -7.0000000000000000 },
+ { 4.6784410379528280e+21, 20, -6.9000000000000004 },
+ { 3.1367268160419670e+21, 20, -6.7999999999999998 },
+ { 2.0764831558419748e+21, 20, -6.7000000000000002 },
+ { 1.3555174744148132e+21, 20, -6.5999999999999996 },
+ { 8.7124954970091579e+20, 20, -6.5000000000000000 },
+ { 5.5033278133788108e+20, 20, -6.4000000000000004 },
+ { 3.4082412197533739e+20, 20, -6.2999999999999998 },
+ { 2.0631845648712185e+20, 20, -6.2000000000000002 },
+ { 1.2158762212269028e+20, 20, -6.0999999999999996 },
+ { 6.9364200641629315e+19, 20, -6.0000000000000000 },
+ { 3.7990093270095905e+19, 20, -5.9000000000000004 },
+ { 1.9713403927925858e+19, 20, -5.7999999999999998 },
+ { 9.4673798488533340e+18, 20, -5.7000000000000002 },
+ { 4.0046403628787825e+18, 20, -5.5999999999999996 },
+ { 1.2907686705724293e+18, 20, -5.5000000000000000 },
+ { 85277679782823936., 20, -5.4000000000000004 },
+ { -3.4359547179069376e+17, 20, -5.2999999999999998 },
+ { -4.0970873501577555e+17, 20, -5.2000000000000002 },
+ { -3.3419585613348250e+17, 20, -5.0999999999999996 },
+ { -2.2571776716382720e+17, 20, -5.0000000000000000 },
+ { -1.3051120203565566e+17, 20, -4.9000000000000004 },
+ { -62555669197021992., 20, -4.7999999999999998 },
+ { -20974173561010048., 20, -4.7000000000000002 },
+ { 519073301695656.00, 20, -4.5999999999999996 },
+ { 8939556693761121.0, 20, -4.5000000000000000 },
+ { 10070625675125180., 20, -4.4000000000000004 },
+ { 7940371996960715.0, 20, -4.2999999999999998 },
+ { 4973623686173568.0, 20, -4.2000000000000002 },
+ { 2389023282480410.0, 20, -4.0999999999999996 },
+ { 619678016654336.00, 20, -4.0000000000000000 },
+ { -339773491011946.00, 20, -3.9000000000000004 },
+ { -687467334428204.38, 20, -3.7999999999999998 },
+ { -663019129550482.75, 20, -3.7000000000000002 },
+ { -469585152350670.25, 20, -3.5999999999999996 },
+ { -245659781875039.00, 20, -3.5000000000000000 },
+ { -66042773886778.938, 20, -3.4000000000000004 },
+ { 43442261337436.312, 20, -3.2999999999999998 },
+ { 87626632986465.375, 20, -3.2000000000000002 },
+ { 85786202388511.375, 20, -3.0999999999999996 },
+ { 59990281399296.000, 20, -3.0000000000000000 },
+ { 28343496696718.070, 20, -2.9000000000000004 },
+ { 2296898915036.0859, 20, -2.7999999999999998 },
+ { -13249381789941.502, 20, -2.7000000000000002 },
+ { -18328180426561.059, 20, -2.5999999999999996 },
+ { -15799429886575.000, 20, -2.5000000000000000 },
+ { -9442592050214.3027, 20, -2.4000000000000004 },
+ { -2602375356373.2393, 20, -2.2999999999999998 },
+ { 2521759315047.8428, 20, -2.2000000000000002 },
+ { 5027779307352.6660, 20, -2.0999999999999996 },
+ { 5080118660096.0000, 20, -2.0000000000000000 },
+ { 3490463276000.5425, 20, -1.9000000000000004 },
+ { 1277254793997.1128, 20, -1.8000000000000007 },
+ { -682119355279.28784, 20, -1.6999999999999993 },
+ { -1851544254412.3203, 20, -1.5999999999999996 },
+ { -2085387081039.0000, 20, -1.5000000000000000 },
+ { -1559402933581.5054, 20, -1.4000000000000004 },
+ { -634265763221.87231, 20, -1.3000000000000007 },
+ { 295481874887.33429, 20, -1.1999999999999993 },
+ { 924603483429.34241, 20, -1.0999999999999996 },
+ { 1107214478336.0000, 20, -1.0000000000000000 },
+ { 867235623835.12463, 20, -0.90000000000000036 },
+ { 358848462745.15466, 20, -0.80000000000000071 },
+ { -202944086511.71936, 20, -0.69999999999999929 },
+ { -617730863561.32617, 20, -0.59999999999999964 },
+ { -759627879679.00000, 20, -0.50000000000000000 },
+ { -607451728035.03271, 20, -0.40000000000000036 },
+ { -240424854484.42111, 20, -0.30000000000000071 },
+ { 195759209122.61337, 20, -0.19999999999999929 },
+ { 540334019322.52014, 20, -0.099999999999999645 },
+ { 670442572800.00000, 20, 0.0000000000000000 },
+ { 540334019322.52014, 20, 0.099999999999999645 },
+ { 195759209122.61337, 20, 0.19999999999999929 },
+ { -240424854484.42111, 20, 0.30000000000000071 },
+ { -607451728035.03271, 20, 0.40000000000000036 },
+ { -759627879679.00000, 20, 0.50000000000000000 },
+ { -617730863561.32617, 20, 0.59999999999999964 },
+ { -202944086511.71936, 20, 0.69999999999999929 },
+ { 358848462745.15466, 20, 0.80000000000000071 },
+ { 867235623835.12463, 20, 0.90000000000000036 },
+ { 1107214478336.0000, 20, 1.0000000000000000 },
+ { 924603483429.34241, 20, 1.0999999999999996 },
+ { 295481874887.33429, 20, 1.1999999999999993 },
+ { -634265763221.87231, 20, 1.3000000000000007 },
+ { -1559402933581.5054, 20, 1.4000000000000004 },
+ { -2085387081039.0000, 20, 1.5000000000000000 },
+ { -1851544254412.3203, 20, 1.5999999999999996 },
+ { -682119355279.28784, 20, 1.6999999999999993 },
+ { 1277254793997.1128, 20, 1.8000000000000007 },
+ { 3490463276000.5425, 20, 1.9000000000000004 },
+ { 5080118660096.0000, 20, 2.0000000000000000 },
+ { 5027779307352.6660, 20, 2.0999999999999996 },
+ { 2521759315047.8770, 20, 2.1999999999999993 },
+ { -2602375356373.2969, 20, 2.3000000000000007 },
+ { -9442592050214.3027, 20, 2.4000000000000004 },
+ { -15799429886575.000, 20, 2.5000000000000000 },
+ { -18328180426561.059, 20, 2.5999999999999996 },
+ { -13249381789941.586, 20, 2.6999999999999993 },
+ { 2296898915036.2812, 20, 2.8000000000000007 },
+ { 28343496696718.070, 20, 2.9000000000000004 },
+ { 59990281399296.000, 20, 3.0000000000000000 },
+ { 85786202388511.375, 20, 3.0999999999999996 },
+ { 87626632986465.438, 20, 3.1999999999999993 },
+ { 43442261337435.672, 20, 3.3000000000000007 },
+ { -66042773886778.938, 20, 3.4000000000000004 },
+ { -245659781875039.00, 20, 3.5000000000000000 },
+ { -469585152350670.25, 20, 3.5999999999999996 },
+ { -663019129550482.25, 20, 3.6999999999999993 },
+ { -687467334428203.38, 20, 3.8000000000000007 },
+ { -339773491011946.00, 20, 3.9000000000000004 },
+ { 619678016654336.00, 20, 4.0000000000000000 },
+ { 2389023282480410.0, 20, 4.0999999999999996 },
+ { 4973623686173539.0, 20, 4.1999999999999993 },
+ { 7940371996960741.0, 20, 4.3000000000000007 },
+ { 10070625675125180., 20, 4.4000000000000004 },
+ { 8939556693761121.0, 20, 4.5000000000000000 },
+ { 519073301695656.00, 20, 4.5999999999999996 },
+ { -20974173561009776., 20, 4.6999999999999993 },
+ { -62555669197022528., 20, 4.8000000000000007 },
+ { -1.3051120203565566e+17, 20, 4.9000000000000004 },
+ { -2.2571776716382720e+17, 20, 5.0000000000000000 },
+ { -3.3419585613348250e+17, 20, 5.0999999999999996 },
+ { -4.0970873501577562e+17, 20, 5.1999999999999993 },
+ { -3.4359547179069216e+17, 20, 5.3000000000000007 },
+ { 85277679782823936., 20, 5.4000000000000004 },
+ { 1.2907686705724293e+18, 20, 5.5000000000000000 },
+ { 4.0046403628787825e+18, 20, 5.5999999999999996 },
+ { 9.4673798488532767e+18, 20, 5.6999999999999993 },
+ { 1.9713403927925973e+19, 20, 5.8000000000000007 },
+ { 3.7990093270095905e+19, 20, 5.9000000000000004 },
+ { 6.9364200641629315e+19, 20, 6.0000000000000000 },
+ { 1.2158762212269156e+20, 20, 6.1000000000000014 },
+ { 2.0631845648712086e+20, 20, 6.1999999999999993 },
+ { 3.4082412197533902e+20, 20, 6.3000000000000007 },
+ { 5.5033278133787696e+20, 20, 6.3999999999999986 },
+ { 8.7124954970091579e+20, 20, 6.5000000000000000 },
+ { 1.3555174744148243e+21, 20, 6.6000000000000014 },
+ { 2.0764831558419680e+21, 20, 6.6999999999999993 },
+ { 3.1367268160419775e+21, 20, 6.8000000000000007 },
+ { 4.6784410379527966e+21, 20, 6.8999999999999986 },
+ { 6.8970965604502329e+21, 20, 7.0000000000000000 },
+ { 1.0059323685871368e+22, 20, 7.1000000000000014 },
+ { 1.4526171451238465e+22, 20, 7.1999999999999993 },
+ { 2.0783192485964666e+22, 20, 7.3000000000000007 },
+ { 2.9479149729249048e+22, 20, 7.3999999999999986 },
+ { 4.1475563998692745e+22, 20, 7.5000000000000000 },
+ { 5.7909832934009378e+22, 20, 7.6000000000000014 },
+ { 8.0275268594719286e+22, 20, 7.6999999999999993 },
+ { 1.1052214218386286e+23, 20, 7.8000000000000007 },
+ { 1.5118471231121604e+23, 20, 7.8999999999999986 },
+ { 2.0554027373991249e+23, 20, 8.0000000000000000 },
+ { 2.7780752653950703e+23, 20, 8.1000000000000014 },
+ { 3.7339306542317994e+23, 20, 8.1999999999999993 },
+ { 4.9919656538201190e+23, 20, 8.3000000000000007 },
+ { 6.6398733801205790e+23, 20, 8.3999999999999986 },
+ { 8.7886740525023878e+23, 20, 8.5000000000000000 },
+ { 1.1578391431515869e+24, 20, 8.6000000000000014 },
+ { 1.5184989558235974e+24, 20, 8.6999999999999993 },
+ { 1.9828824261062853e+24, 20, 8.8000000000000007 },
+ { 2.5784910430831355e+24, 20, 8.8999999999999986 },
+ { 3.3395360269524137e+24, 20, 9.0000000000000000 },
+ { 4.3084410724036123e+24, 20, 9.1000000000000014 },
+ { 5.5376531405202033e+24, 20, 9.1999999999999993 },
+ { 7.0918188910312152e+24, 20, 9.3000000000000007 },
+ { 9.0503941245991197e+24, 20, 9.3999999999999986 },
+ { 1.1510764882450827e+25, 20, 9.5000000000000000 },
+ { 1.4591971834545491e+25, 20, 9.6000000000000014 },
+ { 1.8439144509496016e+25, 20, 9.6999999999999993 },
+ { 2.3228769039548404e+25, 20, 9.8000000000000007 },
+ { 2.9174932703098731e+25, 20, 9.8999999999999986 },
+ { 3.6536710970888030e+25, 20, 10.000000000000000 },
+};
+
+// Test function for n=20.
+template<typename Tp>
+ void
+ test006()
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data006)
+ / sizeof(testcase_hermite<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::hermite(Tp(data006[i].n), Tp(data006[i].x));
+ const Tp f0 = data006[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for n=50.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+testcase_hermite<double>
+data007[] =
+{
+ { 1.3516643049819314e+61, 50, -10.000000000000000 },
+ { 5.8466703062266110e+60, 50, -9.9000000000000004 },
+ { 2.4344814863741168e+60, 50, -9.8000000000000007 },
+ { 9.6739828066585787e+59, 50, -9.6999999999999993 },
+ { 3.6194312967780128e+59, 50, -9.5999999999999996 },
+ { 1.2454022521696361e+59, 50, -9.5000000000000000 },
+ { 3.7546881918013145e+58, 50, -9.4000000000000004 },
+ { 8.6500158470917270e+57, 50, -9.3000000000000007 },
+ { 5.3163209769527426e+56, 50, -9.1999999999999993 },
+ { -9.7863165370930473e+56, 50, -9.0999999999999996 },
+ { -8.0563930902368911e+56, 50, -9.0000000000000000 },
+ { -4.3145937406321933e+56, 50, -8.9000000000000004 },
+ { -1.8210771577645630e+56, 50, -8.8000000000000007 },
+ { -6.0082225302289557e+55, 50, -8.6999999999999993 },
+ { -1.2392013720948442e+55, 50, -8.5999999999999996 },
+ { 1.5935887905806307e+54, 50, -8.5000000000000000 },
+ { 3.4325365049909381e+54, 50, -8.4000000000000004 },
+ { 2.2368641272300899e+54, 50, -8.3000000000000007 },
+ { 1.0009712198862341e+54, 50, -8.1999999999999993 },
+ { 3.0699480272357337e+53, 50, -8.0999999999999996 },
+ { 2.9492797132685063e+52, 50, -8.0000000000000000 },
+ { -3.9982544106300062e+52, 50, -7.9000000000000004 },
+ { -3.5678031330023779e+52, 50, -7.7999999999999998 },
+ { -1.8076371748762468e+52, 50, -7.7000000000000002 },
+ { -5.7887622198708925e+51, 50, -7.5999999999999996 },
+ { -3.5808467693113330e+50, 50, -7.5000000000000000 },
+ { 1.0219511166806405e+51, 50, -7.4000000000000004 },
+ { 8.4241263694549560e+50, 50, -7.2999999999999998 },
+ { 3.9143899315095369e+50, 50, -7.2000000000000002 },
+ { 9.3178966245756654e+49, 50, -7.0999999999999996 },
+ { -2.4714855983436561e+49, 50, -7.0000000000000000 },
+ { -4.1428217272044600e+49, 50, -6.9000000000000004 },
+ { -2.4864980414057334e+49, 50, -6.7999999999999998 },
+ { -8.0684355476447979e+48, 50, -6.7000000000000002 },
+ { 4.2529238530179841e+47, 50, -6.5999999999999996 },
+ { 2.4709663739849681e+48, 50, -6.5000000000000000 },
+ { 1.7500305481204125e+48, 50, -6.4000000000000004 },
+ { 6.3834558285146007e+47, 50, -6.2999999999999998 },
+ { -1.1477672402381055e+46, 50, -6.2000000000000002 },
+ { -1.9304630401841983e+47, 50, -6.0999999999999996 },
+ { -1.4355266959903589e+47, 50, -6.0000000000000000 },
+ { -5.1482200905566146e+46, 50, -5.9000000000000004 },
+ { 4.6577356827463283e+45, 50, -5.7999999999999998 },
+ { 1.9676012349652066e+46, 50, -5.7000000000000002 },
+ { 1.3630554018675846e+46, 50, -5.5999999999999996 },
+ { 4.0920495328093750e+45, 50, -5.5000000000000000 },
+ { -1.3680638882145392e+45, 50, -5.4000000000000004 },
+ { -2.4465265559935436e+45, 50, -5.2999999999999998 },
+ { -1.4270495629649456e+45, 50, -5.2000000000000002 },
+ { -2.4845518743338381e+44, 50, -5.0999999999999996 },
+ { 3.1953926721271990e+44, 50, -5.0000000000000000 },
+ { 3.4169399444879600e+44, 50, -4.9000000000000004 },
+ { 1.4896819114978755e+44, 50, -4.7999999999999998 },
+ { -1.3078430866968493e+43, 50, -4.7000000000000002 },
+ { -6.8449168639700716e+43, 50, -4.5999999999999996 },
+ { -4.9181639709997461e+43, 50, -4.5000000000000000 },
+ { -1.1434943490345182e+43, 50, -4.4000000000000004 },
+ { 1.1214652543461432e+43, 50, -4.2999999999999998 },
+ { 1.3843548994480608e+43, 50, -4.2000000000000002 },
+ { 6.3349790205303262e+42, 50, -4.0999999999999996 },
+ { -9.5599640670553907e+41, 50, -4.0000000000000000 },
+ { -3.6202558158287927e+42, 50, -3.9000000000000004 },
+ { -2.5206461734624493e+42, 50, -3.7999999999999998 },
+ { -3.7818051510732439e+41, 50, -3.7000000000000002 },
+ { 8.8921371165335050e+41, 50, -3.5999999999999996 },
+ { 9.2055485763852770e+41, 50, -3.5000000000000000 },
+ { 3.2535765707283020e+41, 50, -3.4000000000000004 },
+ { -1.9358941418244578e+41, 50, -3.2999999999999998 },
+ { -3.3076282847915670e+41, 50, -3.2000000000000002 },
+ { -1.7764977066639160e+41, 50, -3.0999999999999996 },
+ { 2.6751882008697154e+40, 50, -3.0000000000000000 },
+ { 1.2025382369996052e+41, 50, -2.9000000000000004 },
+ { 8.8383035103557973e+40, 50, -2.7999999999999998 },
+ { 7.7733606479641769e+39, 50, -2.7000000000000002 },
+ { -4.4696811758713757e+40, 50, -2.5999999999999996 },
+ { -4.3715062488963453e+40, 50, -2.5000000000000000 },
+ { -1.1390080390575289e+40, 50, -2.4000000000000004 },
+ { 1.6938519751181342e+40, 50, -2.2999999999999998 },
+ { 2.2284509952956210e+40, 50, -2.2000000000000002 },
+ { 9.0967994280570531e+39, 50, -2.0999999999999996 },
+ { -6.4126677997472978e+39, 50, -2.0000000000000000 },
+ { -1.1926839454034341e+40, 50, -1.9000000000000004 },
+ { -6.5436654274699114e+39, 50, -1.8000000000000007 },
+ { 2.2779499542550411e+39, 50, -1.6999999999999993 },
+ { 6.7720530889699639e+39, 50, -1.5999999999999996 },
+ { 4.6884851188034300e+39, 50, -1.5000000000000000 },
+ { -5.9005001052557463e+38, 50, -1.4000000000000004 },
+ { -4.1028320210430589e+39, 50, -1.3000000000000007 },
+ { -3.4780049977083965e+39, 50, -1.1999999999999993 },
+ { -1.3484918476373692e+38, 50, -1.0999999999999996 },
+ { 2.6586815431645456e+39, 50, -1.0000000000000000 },
+ { 2.7225429473661429e+39, 50, -0.90000000000000036 },
+ { 4.7785441024951729e+38, 50, -0.80000000000000071 },
+ { -1.8416784378790159e+39, 50, -0.69999999999999929 },
+ { -2.2725918816693132e+39, 50, -0.59999999999999964 },
+ { -6.7948375014926916e+38, 50, -0.50000000000000000 },
+ { 1.3581645858905750e+39, 50, -0.40000000000000036 },
+ { 2.0349661043040497e+39, 50, -0.30000000000000071 },
+ { 8.5049248815817037e+38, 50, -0.19999999999999929 },
+ { -1.0564542132990048e+39, 50, -0.099999999999999645 },
+ { -1.9607814681608194e+39, 50, 0.0000000000000000 },
+ { -1.0564542132990048e+39, 50, 0.099999999999999645 },
+ { 8.5049248815817037e+38, 50, 0.19999999999999929 },
+ { 2.0349661043040497e+39, 50, 0.30000000000000071 },
+ { 1.3581645858905750e+39, 50, 0.40000000000000036 },
+ { -6.7948375014926916e+38, 50, 0.50000000000000000 },
+ { -2.2725918816693132e+39, 50, 0.59999999999999964 },
+ { -1.8416784378790159e+39, 50, 0.69999999999999929 },
+ { 4.7785441024951729e+38, 50, 0.80000000000000071 },
+ { 2.7225429473661429e+39, 50, 0.90000000000000036 },
+ { 2.6586815431645456e+39, 50, 1.0000000000000000 },
+ { -1.3484918476373692e+38, 50, 1.0999999999999996 },
+ { -3.4780049977083965e+39, 50, 1.1999999999999993 },
+ { -4.1028320210430589e+39, 50, 1.3000000000000007 },
+ { -5.9005001052557463e+38, 50, 1.4000000000000004 },
+ { 4.6884851188034300e+39, 50, 1.5000000000000000 },
+ { 6.7720530889699639e+39, 50, 1.5999999999999996 },
+ { 2.2779499542550411e+39, 50, 1.6999999999999993 },
+ { -6.5436654274699114e+39, 50, 1.8000000000000007 },
+ { -1.1926839454034341e+40, 50, 1.9000000000000004 },
+ { -6.4126677997472978e+39, 50, 2.0000000000000000 },
+ { 9.0967994280570531e+39, 50, 2.0999999999999996 },
+ { 2.2284509952956162e+40, 50, 2.1999999999999993 },
+ { 1.6938519751181172e+40, 50, 2.3000000000000007 },
+ { -1.1390080390575289e+40, 50, 2.4000000000000004 },
+ { -4.3715062488963453e+40, 50, 2.5000000000000000 },
+ { -4.4696811758713757e+40, 50, 2.5999999999999996 },
+ { 7.7733606479635628e+39, 50, 2.6999999999999993 },
+ { 8.8383035103558611e+40, 50, 2.8000000000000007 },
+ { 1.2025382369996052e+41, 50, 2.9000000000000004 },
+ { 2.6751882008697154e+40, 50, 3.0000000000000000 },
+ { -1.7764977066639160e+41, 50, 3.0999999999999996 },
+ { -3.3076282847915616e+41, 50, 3.1999999999999993 },
+ { -1.9358941418244260e+41, 50, 3.3000000000000007 },
+ { 3.2535765707283020e+41, 50, 3.4000000000000004 },
+ { 9.2055485763852770e+41, 50, 3.5000000000000000 },
+ { 8.8921371165335050e+41, 50, 3.5999999999999996 },
+ { -3.7818051510730675e+41, 50, 3.6999999999999993 },
+ { -2.5206461734624660e+42, 50, 3.8000000000000007 },
+ { -3.6202558158287927e+42, 50, 3.9000000000000004 },
+ { -9.5599640670553907e+41, 50, 4.0000000000000000 },
+ { 6.3349790205303262e+42, 50, 4.0999999999999996 },
+ { 1.3843548994480566e+43, 50, 4.1999999999999993 },
+ { 1.1214652543461340e+43, 50, 4.3000000000000007 },
+ { -1.1434943490345182e+43, 50, 4.4000000000000004 },
+ { -4.9181639709997461e+43, 50, 4.5000000000000000 },
+ { -6.8449168639700716e+43, 50, 4.5999999999999996 },
+ { -1.3078430866969463e+43, 50, 4.6999999999999993 },
+ { 1.4896819114978953e+44, 50, 4.8000000000000007 },
+ { 3.4169399444879600e+44, 50, 4.9000000000000004 },
+ { 3.1953926721271990e+44, 50, 5.0000000000000000 },
+ { -2.4845518743338381e+44, 50, 5.0999999999999996 },
+ { -1.4270495629649337e+45, 50, 5.1999999999999993 },
+ { -2.4465265559935458e+45, 50, 5.3000000000000007 },
+ { -1.3680638882145392e+45, 50, 5.4000000000000004 },
+ { 4.0920495328093750e+45, 50, 5.5000000000000000 },
+ { 1.3630554018675846e+46, 50, 5.5999999999999996 },
+ { 1.9676012349652081e+46, 50, 5.6999999999999993 },
+ { 4.6577356827460393e+45, 50, 5.8000000000000007 },
+ { -5.1482200905566146e+46, 50, 5.9000000000000004 },
+ { -1.4355266959903589e+47, 50, 6.0000000000000000 },
+ { -1.9304630401841966e+47, 50, 6.1000000000000014 },
+ { -1.1477672402384868e+46, 50, 6.1999999999999993 },
+ { 6.3834558285146981e+47, 50, 6.3000000000000007 },
+ { 1.7500305481203924e+48, 50, 6.3999999999999986 },
+ { 2.4709663739849681e+48, 50, 6.5000000000000000 },
+ { 4.2529238530171793e+47, 50, 6.6000000000000014 },
+ { -8.0684355476446876e+48, 50, 6.6999999999999993 },
+ { -2.4864980414057495e+49, 50, 6.8000000000000007 },
+ { -4.1428217272044496e+49, 50, 6.8999999999999986 },
+ { -2.4714855983436561e+49, 50, 7.0000000000000000 },
+ { 9.3178966245760310e+49, 50, 7.1000000000000014 },
+ { 3.9143899315095070e+50, 50, 7.1999999999999993 },
+ { 8.4241263694549925e+50, 50, 7.3000000000000007 },
+ { 1.0219511166806458e+51, 50, 7.3999999999999986 },
+ { -3.5808467693113330e+50, 50, 7.5000000000000000 },
+ { -5.7887622198710268e+51, 50, 7.6000000000000014 },
+ { -1.8076371748762319e+52, 50, 7.6999999999999993 },
+ { -3.5678031330023971e+52, 50, 7.8000000000000007 },
+ { -3.9982544106300530e+52, 50, 7.8999999999999986 },
+ { 2.9492797132685063e+52, 50, 8.0000000000000000 },
+ { 3.0699480272358086e+53, 50, 8.1000000000000014 },
+ { 1.0009712198862341e+54, 50, 8.1999999999999993 },
+ { 2.2368641272300899e+54, 50, 8.3000000000000007 },
+ { 3.4325365049909340e+54, 50, 8.3999999999999986 },
+ { 1.5935887905806307e+54, 50, 8.5000000000000000 },
+ { -1.2392013720948937e+55, 50, 8.6000000000000014 },
+ { -6.0082225302289557e+55, 50, 8.6999999999999993 },
+ { -1.8210771577645630e+56, 50, 8.8000000000000007 },
+ { -4.3145937406321376e+56, 50, 8.8999999999999986 },
+ { -8.0563930902368911e+56, 50, 9.0000000000000000 },
+ { -9.7863165370930194e+56, 50, 9.1000000000000014 },
+ { 5.3163209769527426e+56, 50, 9.1999999999999993 },
+ { 8.6500158470917270e+57, 50, 9.3000000000000007 },
+ { 3.7546881918012164e+58, 50, 9.3999999999999986 },
+ { 1.2454022521696361e+59, 50, 9.5000000000000000 },
+ { 3.6194312967780793e+59, 50, 9.6000000000000014 },
+ { 9.6739828066585787e+59, 50, 9.6999999999999993 },
+ { 2.4344814863741168e+60, 50, 9.8000000000000007 },
+ { 5.8466703062265247e+60, 50, 9.8999999999999986 },
+ { 1.3516643049819314e+61, 50, 10.000000000000000 },
+};
+
+// Test function for n=50.
+template<typename Tp>
+ void
+ test007()
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data007)
+ / sizeof(testcase_hermite<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::hermite(Tp(data007[i].n), Tp(data007[i].x));
+ const Tp f0 = data007[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for n=100.
+// max(|f - f_GSL|): 0.0000000000000000
+// max(|f - f_GSL| / |f_GSL|): 0.0000000000000000
+testcase_hermite<double>
+data008[] =
+{
+ { -1.8738689223256612e+115, 100, -10.000000000000000 },
+ { -4.4232904120311186e+114, 100, -9.9000000000000004 },
+ { 8.3761676654305186e+113, 100, -9.8000000000000007 },
+ { 9.4857435427570856e+113, 100, -9.6999999999999993 },
+ { 2.4904626130429828e+113, 100, -9.5999999999999996 },
+ { -4.2265051766934789e+112, 100, -9.5000000000000000 },
+ { -5.3374224541142079e+112, 100, -9.4000000000000004 },
+ { -1.3977488190034162e+112, 100, -9.3000000000000007 },
+ { 2.9686037583393142e+111, 100, -9.1999999999999993 },
+ { 3.3341330166544008e+111, 100, -9.0999999999999996 },
+ { 7.7294136683043515e+110, 100, -9.0000000000000000 },
+ { -2.6071876743328352e+110, 100, -8.9000000000000004 },
+ { -2.2669773300293168e+110, 100, -8.8000000000000007 },
+ { -3.8930624477368766e+109, 100, -8.6999999999999993 },
+ { 2.5386102824684956e+109, 100, -8.5999999999999996 },
+ { 1.6203702280499544e+109, 100, -8.5000000000000000 },
+ { 1.2481735250539652e+108, 100, -8.4000000000000004 },
+ { -2.5611278359589723e+108, 100, -8.3000000000000007 },
+ { -1.1534178973583771e+108, 100, -8.1999999999999993 },
+ { 8.4932594446954126e+106, 100, -8.0999999999999996 },
+ { 2.5761505535443451e+107, 100, -8.0000000000000000 },
+ { 7.3445622927437730e+106, 100, -7.9000000000000004 },
+ { -2.7252309851017323e+106, 100, -7.7999999999999998 },
+ { -2.4850432648124068e+106, 100, -7.7000000000000002 },
+ { -2.7486638813238851e+105, 100, -7.5999999999999996 },
+ { 4.4772364475394960e+105, 100, -7.5000000000000000 },
+ { 2.1375121759800508e+105, 100, -7.4000000000000004 },
+ { -2.9237691057265876e+104, 100, -7.2999999999999998 },
+ { -5.9348804074874781e+104, 100, -7.2000000000000002 },
+ { -1.2947583568692734e+104, 100, -7.0999999999999996 },
+ { 1.0002273523275075e+104, 100, -7.0000000000000000 },
+ { 6.4900499886057735e+103, 100, -6.9000000000000004 },
+ { -3.7817730019124298e+102, 100, -6.7999999999999998 },
+ { -1.7849709684883137e+103, 100, -6.7000000000000002 },
+ { -4.8039047085580619e+102, 100, -6.5999999999999996 },
+ { 3.2072472002047670e+102, 100, -6.5000000000000000 },
+ { 2.3341289432999226e+102, 100, -6.4000000000000004 },
+ { -1.4587350659146165e+101, 100, -6.2999999999999998 },
+ { -7.0672139150705532e+101, 100, -6.2000000000000002 },
+ { -1.8039133351601998e+101, 100, -6.0999999999999996 },
+ { 1.5170693933260738e+101, 100, -6.0000000000000000 },
+ { 1.0141407690966954e+101, 100, -5.9000000000000004 },
+ { -1.5140717605507886e+100, 100, -5.7999999999999998 },
+ { -3.6379102593330533e+100, 100, -5.7000000000000002 },
+ { -6.2933057672779134e+99, 100, -5.5999999999999996 },
+ { 9.9309186425970402e+99, 100, -5.5000000000000000 },
+ { 5.0935670879056567e+99, 100, -5.4000000000000004 },
+ { -1.8337906983006129e+99, 100, -5.2999999999999998 },
+ { -2.3096466887887402e+99, 100, -5.2000000000000002 },
+ { -4.0259235416602546e+97, 100, -5.0999999999999996 },
+ { 8.1931937130591466e+98, 100, -5.0000000000000000 },
+ { 2.5601172475776894e+98, 100, -4.9000000000000004 },
+ { -2.3193021196802698e+98, 100, -4.7999999999999998 },
+ { -1.6545238014142802e+98, 100, -4.7000000000000002 },
+ { 4.2440218943299170e+97, 100, -4.5999999999999996 },
+ { 7.8073853756187101e+97, 100, -4.5000000000000000 },
+ { 5.2136163919277588e+96, 100, -4.4000000000000004 },
+ { -3.0837503404959950e+97, 100, -4.2999999999999998 },
+ { -1.0988290456447777e+97, 100, -4.2000000000000002 },
+ { 1.0173847230741884e+97, 100, -4.0999999999999996 },
+ { 7.7070682747643550e+96, 100, -4.0000000000000000 },
+ { -2.3947326745293331e+96, 100, -3.9000000000000004 },
+ { -4.1993887070961596e+96, 100, -3.7999999999999998 },
+ { -5.5521768050542138e+94, 100, -3.7000000000000002 },
+ { 1.9852724296241180e+96, 100, -3.5999999999999996 },
+ { 5.7841213444838915e+95, 100, -3.5000000000000000 },
+ { -8.2433116644948570e+95, 100, -3.4000000000000004 },
+ { -5.2035951331058195e+95, 100, -3.2999999999999998 },
+ { 2.8212012454566057e+95, 100, -3.2000000000000002 },
+ { 3.5161870090563867e+95, 100, -3.0999999999999996 },
+ { -5.5084542871196523e+94, 100, -3.0000000000000000 },
+ { -2.0784160746797610e+95, 100, -2.9000000000000004 },
+ { -2.6058116248679496e+94, 100, -2.7999999999999998 },
+ { 1.1147132226581844e+95, 100, -2.7000000000000002 },
+ { 4.5607706742532875e+94, 100, -2.5999999999999996 },
+ { -5.3758761713337664e+94, 100, -2.5000000000000000 },
+ { -4.2303228932575769e+94, 100, -2.4000000000000004 },
+ { 2.1691501564685499e+94, 100, -2.2999999999999998 },
+ { 3.2602488340116974e+94, 100, -2.2000000000000002 },
+ { -5.0527155039787607e+93, 100, -2.0999999999999996 },
+ { -2.2785574311661325e+94, 100, -2.0000000000000000 },
+ { -2.8549527653152903e+93, 100, -1.9000000000000004 },
+ { 1.4787573463714363e+94, 100, -1.8000000000000007 },
+ { 6.0554070654771248e+93, 100, -1.6999999999999993 },
+ { -8.8496828346970978e+93, 100, -1.5999999999999996 },
+ { -6.8402151897169509e+93, 100, -1.5000000000000000 },
+ { 4.6555468819923166e+93, 100, -1.4000000000000004 },
+ { 6.4625437128323579e+93, 100, -1.3000000000000007 },
+ { -1.7820042440391653e+93, 100, -1.1999999999999993 },
+ { -5.5814393347235886e+93, 100, -1.0999999999999996 },
+ { -1.4487067293379347e+92, 100, -1.0000000000000000 },
+ { 4.5268398678911204e+93, 100, -0.90000000000000036 },
+ { 1.4120762149478435e+93, 100, -0.80000000000000071 },
+ { -3.4510765981144258e+93, 100, -0.69999999999999929 },
+ { -2.2242581581553176e+93, 100, -0.59999999999999964 },
+ { 2.4129827902061037e+93, 100, -0.50000000000000000 },
+ { 2.7195429139752497e+93, 100, -0.40000000000000036 },
+ { -1.4235309630836904e+93, 100, -0.30000000000000071 },
+ { -2.9850618739468043e+93, 100, -0.19999999999999929 },
+ { 4.7017027479251074e+92, 100, -0.099999999999999645 },
+ { 3.0685187562549660e+93, 100, 0.0000000000000000 },
+ { 4.7017027479251074e+92, 100, 0.099999999999999645 },
+ { -2.9850618739468043e+93, 100, 0.19999999999999929 },
+ { -1.4235309630836904e+93, 100, 0.30000000000000071 },
+ { 2.7195429139752497e+93, 100, 0.40000000000000036 },
+ { 2.4129827902061037e+93, 100, 0.50000000000000000 },
+ { -2.2242581581553176e+93, 100, 0.59999999999999964 },
+ { -3.4510765981144258e+93, 100, 0.69999999999999929 },
+ { 1.4120762149478435e+93, 100, 0.80000000000000071 },
+ { 4.5268398678911204e+93, 100, 0.90000000000000036 },
+ { -1.4487067293379347e+92, 100, 1.0000000000000000 },
+ { -5.5814393347235886e+93, 100, 1.0999999999999996 },
+ { -1.7820042440391653e+93, 100, 1.1999999999999993 },
+ { 6.4625437128323579e+93, 100, 1.3000000000000007 },
+ { 4.6555468819923166e+93, 100, 1.4000000000000004 },
+ { -6.8402151897169509e+93, 100, 1.5000000000000000 },
+ { -8.8496828346970978e+93, 100, 1.5999999999999996 },
+ { 6.0554070654771248e+93, 100, 1.6999999999999993 },
+ { 1.4787573463714363e+94, 100, 1.8000000000000007 },
+ { -2.8549527653152903e+93, 100, 1.9000000000000004 },
+ { -2.2785574311661325e+94, 100, 2.0000000000000000 },
+ { -5.0527155039787607e+93, 100, 2.0999999999999996 },
+ { 3.2602488340116774e+94, 100, 2.1999999999999993 },
+ { 2.1691501564685076e+94, 100, 2.3000000000000007 },
+ { -4.2303228932575769e+94, 100, 2.4000000000000004 },
+ { -5.3758761713337664e+94, 100, 2.5000000000000000 },
+ { 4.5607706742532875e+94, 100, 2.5999999999999996 },
+ { 1.1147132226581881e+95, 100, 2.6999999999999993 },
+ { -2.6058116248681564e+94, 100, 2.8000000000000007 },
+ { -2.0784160746797610e+95, 100, 2.9000000000000004 },
+ { -5.5084542871196523e+94, 100, 3.0000000000000000 },
+ { 3.5161870090563867e+95, 100, 3.0999999999999996 },
+ { 2.8212012454566478e+95, 100, 3.1999999999999993 },
+ { -5.2035951331058918e+95, 100, 3.3000000000000007 },
+ { -8.2433116644948570e+95, 100, 3.4000000000000004 },
+ { 5.7841213444838915e+95, 100, 3.5000000000000000 },
+ { 1.9852724296241180e+96, 100, 3.5999999999999996 },
+ { -5.5521768050503009e+94, 100, 3.6999999999999993 },
+ { -4.1993887070961795e+96, 100, 3.8000000000000007 },
+ { -2.3947326745293331e+96, 100, 3.9000000000000004 },
+ { 7.7070682747643550e+96, 100, 4.0000000000000000 },
+ { 1.0173847230741884e+97, 100, 4.0999999999999996 },
+ { -1.0988290456447506e+97, 100, 4.1999999999999993 },
+ { -3.0837503404959957e+97, 100, 4.3000000000000007 },
+ { 5.2136163919277588e+96, 100, 4.4000000000000004 },
+ { 7.8073853756187101e+97, 100, 4.5000000000000000 },
+ { 4.2440218943299170e+97, 100, 4.5999999999999996 },
+ { -1.6545238014142650e+98, 100, 4.6999999999999993 },
+ { -2.3193021196802549e+98, 100, 4.8000000000000007 },
+ { 2.5601172475776894e+98, 100, 4.9000000000000004 },
+ { 8.1931937130591466e+98, 100, 5.0000000000000000 },
+ { -4.0259235416602546e+97, 100, 5.0999999999999996 },
+ { -2.3096466887887237e+99, 100, 5.1999999999999993 },
+ { -1.8337906983005823e+99, 100, 5.3000000000000007 },
+ { 5.0935670879056567e+99, 100, 5.4000000000000004 },
+ { 9.9309186425970402e+99, 100, 5.5000000000000000 },
+ { -6.2933057672779134e+99, 100, 5.5999999999999996 },
+ { -3.6379102593330386e+100, 100, 5.6999999999999993 },
+ { -1.5140717605507249e+100, 100, 5.8000000000000007 },
+ { 1.0141407690966954e+101, 100, 5.9000000000000004 },
+ { 1.5170693933260738e+101, 100, 6.0000000000000000 },
+ { -1.8039133351602961e+101, 100, 6.1000000000000014 },
+ { -7.0672139150705246e+101, 100, 6.1999999999999993 },
+ { -1.4587350659144549e+101, 100, 6.3000000000000007 },
+ { 2.3341289432998748e+102, 100, 6.3999999999999986 },
+ { 3.2072472002047670e+102, 100, 6.5000000000000000 },
+ { -4.8039047085582927e+102, 100, 6.6000000000000014 },
+ { -1.7849709684883083e+103, 100, 6.6999999999999993 },
+ { -3.7817730019120996e+102, 100, 6.8000000000000007 },
+ { 6.4900499886056430e+103, 100, 6.8999999999999986 },
+ { 1.0002273523275075e+104, 100, 7.0000000000000000 },
+ { -1.2947583568693485e+104, 100, 7.1000000000000014 },
+ { -5.9348804074874565e+104, 100, 7.1999999999999993 },
+ { -2.9237691057264679e+104, 100, 7.3000000000000007 },
+ { 2.1375121759799924e+105, 100, 7.3999999999999986 },
+ { 4.4772364475394960e+105, 100, 7.5000000000000000 },
+ { -2.7486638813241244e+105, 100, 7.6000000000000014 },
+ { -2.4850432648123868e+106, 100, 7.6999999999999993 },
+ { -2.7252309851017070e+106, 100, 7.8000000000000007 },
+ { 7.3445622927434568e+106, 100, 7.8999999999999986 },
+ { 2.5761505535443451e+107, 100, 8.0000000000000000 },
+ { 8.4932594446944218e+106, 100, 8.1000000000000014 },
+ { -1.1534178973583771e+108, 100, 8.1999999999999993 },
+ { -2.5611278359589723e+108, 100, 8.3000000000000007 },
+ { 1.2481735250538004e+108, 100, 8.3999999999999986 },
+ { 1.6203702280499544e+109, 100, 8.5000000000000000 },
+ { 2.5386102824684747e+109, 100, 8.6000000000000014 },
+ { -3.8930624477368766e+109, 100, 8.6999999999999993 },
+ { -2.2669773300293168e+110, 100, 8.8000000000000007 },
+ { -2.6071876743328939e+110, 100, 8.8999999999999986 },
+ { 7.7294136683043515e+110, 100, 9.0000000000000000 },
+ { 3.3341330166544429e+111, 100, 9.1000000000000014 },
+ { 2.9686037583393142e+111, 100, 9.1999999999999993 },
+ { -1.3977488190034162e+112, 100, 9.3000000000000007 },
+ { -5.3374224541141370e+112, 100, 9.3999999999999986 },
+ { -4.2265051766934789e+112, 100, 9.5000000000000000 },
+ { 2.4904626130430740e+113, 100, 9.6000000000000014 },
+ { 9.4857435427570856e+113, 100, 9.6999999999999993 },
+ { 8.3761676654305186e+113, 100, 9.8000000000000007 },
+ { -4.4232904120309469e+114, 100, 9.8999999999999986 },
+ { -1.8738689223256612e+115, 100, 10.000000000000000 },
+};
+
+// Test function for n=100.
+template<typename Tp>
+ void
+ test008()
+ {
+ bool test __attribute__((unused)) = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data008)
+ / sizeof(testcase_hermite<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::hermite(Tp(data008[i].n), Tp(data008[i].x));
+ const Tp f0 = data008[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+int
+main()
+{
+ test001<double>();
+ test002<double>();
+ test003<double>();
+ test004<double>();
+ test005<double>();
+ test006<double>();
+ test007<double>();
+ test008<double>();
+ return 0;
+}
Index: testsuite/tr1/5_numerical_facilities/special_functions/21_sph_bessel/check_value.cc
===================================================================
--- testsuite/tr1/5_numerical_facilities/special_functions/21_sph_bessel/check_value.cc (revision 232104)
+++ testsuite/tr1/5_numerical_facilities/special_functions/21_sph_bessel/check_value.cc (working copy)
@@ -42,13 +42,338 @@
// Test data for n=0.
testcase_sph_bessel<double> data001[] = {
{ 1.0000000000000000, 0, 0.0000000000000000 },
+ { 0.98961583701809175, 0, 0.25000000000000000 },
+ { 0.95885107720840601, 0, 0.50000000000000000 },
+ { 0.90885168003111216, 0, 0.75000000000000000 },
+ { 0.84147098480789650, 0, 1.0000000000000000 },
+ { 0.75918769548446896, 0, 1.2500000000000000 },
+ { 0.66499665773603633, 0, 1.5000000000000000 },
+ { 0.56227768392796396, 0, 1.7500000000000000 },
+ { 0.45464871341284085, 0, 2.0000000000000000 },
+ { 0.34581030972796500, 0, 2.2500000000000000 },
+ { 0.23938885764158258, 0, 2.5000000000000000 },
+ { 0.13878581529175696, 0, 2.7500000000000000 },
+ { 0.047040002686622402, 0, 3.0000000000000000 },
+ { -0.033290810624648733, 0, 3.2500000000000000 },
+ { -0.10022377933989138, 0, 3.5000000000000000 },
+ { -0.15241635166462500, 0, 3.7500000000000000 },
+ { -0.18920062382698205, 0, 4.0000000000000000 },
+ { -0.21058573134790201, 0, 4.2500000000000000 },
+ { -0.21722891503668823, 0, 4.5000000000000000 },
+ { -0.21037742925797431, 0, 4.7500000000000000 },
{ -0.19178485493262770, 0, 5.0000000000000000 },
- { -0.054402111088936986, 0, 10.000000000000000 },
+};
+
+// Test function for n=0.
+template<typename Tp>
+ void
+ test001()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data001)
+ / sizeof(testcase_sph_bessel<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_bessel(Tp(data001[i].n), Tp(data001[i].x));
+ const Tp f0 = data001[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for n=1.
+testcase_sph_bessel<double> data002[] = {
+ { 0.0000000000000000, 1, 0.0000000000000000 },
+ { 0.082813661229788060, 1, 0.25000000000000000 },
+ { 0.16253703063606650, 1, 0.50000000000000000 },
+ { 0.23621708154305501, 1, 0.75000000000000000 },
+ { 0.30116867893975674, 1, 1.0000000000000000 },
+ { 0.35509226647136022, 1, 1.2500000000000000 },
+ { 0.39617297071222229, 1, 1.5000000000000000 },
+ { 0.42315642261568914, 1, 1.7500000000000000 },
+ { 0.43539777497999166, 1, 2.0000000000000000 },
+ { 0.43288174775586846, 1, 2.2500000000000000 },
+ { 0.41621298927540645, 1, 2.5000000000000000 },
+ { 0.38657752506335291, 1, 2.7500000000000000 },
+ { 0.34567749976235596, 1, 3.0000000000000000 },
+ { 0.29564272783258383, 1, 3.2500000000000000 },
+ { 0.23892368798597285, 1, 3.5000000000000000 },
+ { 0.17817146817998289, 1, 3.7500000000000000 },
+ { 0.11611074925915747, 1, 4.0000000000000000 },
+ { 0.055412178486091958, 1, 4.2500000000000000 },
+ { -0.0014295812457574459, 1, 4.5000000000000000 },
+ { -0.052206227820200179, 1, 4.7500000000000000 },
+ { -0.095089408079170795, 1, 5.0000000000000000 },
+};
+
+// Test function for n=1.
+template<typename Tp>
+ void
+ test002()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data002)
+ / sizeof(testcase_sph_bessel<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_bessel(Tp(data002[i].n), Tp(data002[i].x));
+ const Tp f0 = data002[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000015e-12));
+ }
+
+// Test data for n=2.
+testcase_sph_bessel<double> data003[] = {
+ { 0.0000000000000000, 2, 0.0000000000000000 },
+ { 0.0041480977393611252, 2, 0.25000000000000000 },
+ { 0.016371106607993412, 2, 0.50000000000000000 },
+ { 0.036016646141108236, 2, 0.75000000000000000 },
+ { 0.062035052011373860, 2, 1.0000000000000000 },
+ { 0.093033744046795624, 2, 1.2500000000000000 },
+ { 0.12734928368840817, 2, 1.5000000000000000 },
+ { 0.16313332627036031, 2, 1.7500000000000000 },
+ { 0.19844794905714661, 2, 2.0000000000000000 },
+ { 0.23136535394652627, 2, 2.2500000000000000 },
+ { 0.26006672948890525, 2, 2.5000000000000000 },
+ { 0.28293512114099162, 2, 2.7500000000000000 },
+ { 0.29863749707573356, 2, 3.0000000000000000 },
+ { 0.30619179016241843, 2, 3.2500000000000000 },
+ { 0.30501551189929671, 2, 3.5000000000000000 },
+ { 0.29495352620861132, 2, 3.7500000000000000 },
+ { 0.27628368577135015, 2, 4.0000000000000000 },
+ { 0.24970021027926106, 2, 4.2500000000000000 },
+ { 0.21627586087284995, 2, 4.5000000000000000 },
+ { 0.17740507484521628, 2, 4.7500000000000000 },
+ { 0.13473121008512520, 2, 5.0000000000000000 },
+};
+
+// Test function for n=2.
+template<typename Tp>
+ void
+ test003()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data003)
+ / sizeof(testcase_sph_bessel<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_bessel(Tp(data003[i].n), Tp(data003[i].x));
+ const Tp f0 = data003[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for n=5.
+testcase_sph_bessel<double> data004[] = {
+ { 0.0000000000000000, 5, 0.0000000000000000 },
+ { 9.3719811237268220e-08, 5, 0.25000000000000000 },
+ { 2.9774668754574453e-06, 5, 0.50000000000000000 },
+ { 2.2339447678335762e-05, 5, 0.75000000000000000 },
+ { 9.2561158611258144e-05, 5, 1.0000000000000000 },
+ { 0.00027638888920123806, 5, 1.2500000000000000 },
+ { 0.00066962059628932456, 5, 1.5000000000000000 },
+ { 0.0014021729022572799, 5, 1.7500000000000000 },
+ { 0.0026351697702441169, 5, 2.0000000000000000 },
+ { 0.0045540034750567553, 5, 2.2500000000000000 },
+ { 0.0073576387377689359, 5, 2.5000000000000000 },
+ { 0.011244740276407145, 5, 2.7500000000000000 },
+ { 0.016397480955999105, 5, 3.0000000000000000 },
+ { 0.022964112474845508, 5, 3.2500000000000000 },
+ { 0.031041536537391189, 5, 3.5000000000000000 },
+ { 0.040659189440948935, 5, 3.7500000000000000 },
+ { 0.051765539757363456, 5, 4.0000000000000000 },
+ { 0.064218395773425613, 5, 4.2500000000000000 },
+ { 0.077780030832892866, 5, 4.5000000000000000 },
+ { 0.092117870593729223, 5, 4.7500000000000000 },
+ { 0.10681116145650453, 5, 5.0000000000000000 },
+};
+
+// Test function for n=5.
+template<typename Tp>
+ void
+ test004()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data004)
+ / sizeof(testcase_sph_bessel<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_bessel(Tp(data004[i].n), Tp(data004[i].x));
+ const Tp f0 = data004[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for n=10.
+testcase_sph_bessel<double> data005[] = {
+ { 0.0000000000000000, 10, 0.0000000000000000 },
+ { 6.9267427453708468e-17, 10, 0.25000000000000000 },
+ { 7.0641239636618740e-14, 10, 0.50000000000000000 },
+ { 4.0459307474109287e-12, 10, 0.75000000000000000 },
+ { 7.1165526400473096e-11, 10, 1.0000000000000000 },
+ { 6.5470739530199939e-10, 10, 1.2500000000000000 },
+ { 3.9934406994836296e-09, 10, 1.5000000000000000 },
+ { 1.8327719460735247e-08, 10, 1.7500000000000000 },
+ { 6.8253008649747220e-08, 10, 2.0000000000000000 },
+ { 2.1653870546846626e-07, 10, 2.2500000000000000 },
+ { 6.0504362296385381e-07, 10, 2.5000000000000000 },
+ { 1.5246485352158441e-06, 10, 2.7500000000000000 },
+ { 3.5260038931752543e-06, 10, 3.0000000000000000 },
+ { 7.5839040020531456e-06, 10, 3.2500000000000000 },
+ { 1.5327786999397106e-05, 10, 3.5000000000000000 },
+ { 2.9348811002317661e-05, 10, 3.7500000000000000 },
+ { 5.3589865768632612e-05, 10, 4.0000000000000000 },
+ { 9.3818602410477989e-05, 10, 4.2500000000000000 },
+ { 0.00015817516371455801, 10, 4.5000000000000000 },
+ { 0.00025777607369970674, 10, 4.7500000000000000 },
+ { 0.00040734424424946052, 10, 5.0000000000000000 },
+};
+
+// Test function for n=10.
+template<typename Tp>
+ void
+ test005()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data005)
+ / sizeof(testcase_sph_bessel<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_bessel(Tp(data005[i].n), Tp(data005[i].x));
+ const Tp f0 = data005[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(5.0000000000000039e-13));
+ }
+
+// Test data for n=20.
+testcase_sph_bessel<double> data006[] = {
+ { 0.0000000000000000, 20, 0.0000000000000000 },
+ { 6.9307487073399339e-38, 20, 0.25000000000000000 },
+ { 7.2515880810153944e-32, 20, 0.50000000000000000 },
+ { 2.4025911398834722e-28, 20, 0.75000000000000000 },
+ { 7.5377957222368705e-26, 20, 1.0000000000000000 },
+ { 6.4953439243593413e-24, 20, 1.2500000000000000 },
+ { 2.4703120390884050e-22, 20, 1.5000000000000000 },
+ { 5.3404627138297197e-21, 20, 1.7500000000000000 },
+ { 7.6326411008876072e-20, 20, 2.0000000000000000 },
+ { 7.9496335952781075e-19, 20, 2.2500000000000000 },
+ { 6.4488532759578977e-18, 20, 2.5000000000000000 },
+ { 4.2725223040880135e-17, 20, 2.7500000000000000 },
+ { 2.3942249272752627e-16, 20, 3.0000000000000000 },
+ { 1.1654033741499860e-15, 20, 3.2500000000000000 },
+ { 5.0303402625237510e-15, 20, 3.5000000000000000 },
+ { 1.9572475798118559e-14, 20, 3.7500000000000000 },
+ { 6.9559880644906101e-14, 20, 4.0000000000000000 },
+ { 2.2825949745670935e-13, 20, 4.2500000000000000 },
+ { 6.9781823021792824e-13, 20, 4.5000000000000000 },
+ { 2.0024157388665026e-12, 20, 4.7500000000000000 },
+ { 5.4277267607932098e-12, 20, 5.0000000000000000 },
+};
+
+// Test function for n=20.
+template<typename Tp>
+ void
+ test006()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data006)
+ / sizeof(testcase_sph_bessel<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_bessel(Tp(data006[i].n), Tp(data006[i].x));
+ const Tp f0 = data006[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000015e-12));
+ }
+// sph_bessel
+
+// Test data for n=0.
+testcase_sph_bessel<double> data007[] = {
+ { 1.0000000000000000, 0, 0.0000000000000000 },
+ { -0.19178485493262770, 0, 5.0000000000000000 },
+ { -0.054402111088936979, 0, 10.000000000000000 },
{ 0.043352522677141132, 0, 15.000000000000000 },
{ 0.045647262536381385, 0, 20.000000000000000 },
{ -0.0052940700039109216, 0, 25.000000000000000 },
{ -0.032934387469762058, 0, 30.000000000000000 },
- { -0.012233790557032886, 0, 35.000000000000000 },
+ { -0.012233790557032885, 0, 35.000000000000000 },
{ 0.018627829011983722, 0, 40.000000000000000 },
{ 0.018908967211869299, 0, 45.000000000000000 },
{ -0.0052474970740785751, 0, 50.000000000000000 },
@@ -65,38 +390,40 @@
};
// Test function for n=0.
-template <typename Tp>
-void test001()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data001)
- / sizeof(testcase_sph_bessel<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::sph_bessel(Tp(data001[i].n), Tp(data001[i].x));
- const Tp f0 = data001[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
-}
+template<typename Tp>
+ void
+ test007()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data007)
+ / sizeof(testcase_sph_bessel<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_bessel(Tp(data007[i].n), Tp(data007[i].x));
+ const Tp f0 = data007[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
+ }
// Test data for n=1.
-testcase_sph_bessel<double> data002[] = {
+testcase_sph_bessel<double> data008[] = {
{ 0.0000000000000000, 1, 0.0000000000000000 },
{ -0.095089408079170795, 1, 5.0000000000000000 },
{ 0.078466941798751549, 1, 10.000000000000000 },
- { 0.053536029035730834, 1, 15.000000000000000 },
+ { 0.053536029035730827, 1, 15.000000000000000 },
{ -0.018121739963850528, 1, 20.000000000000000 },
{ -0.039859875274695380, 1, 25.000000000000000 },
{ -0.0062395279119115375, 1, 30.000000000000000 },
@@ -109,42 +436,44 @@
{ 0.0088488352686322581, 1, 65.000000000000000 },
{ -0.0088894803131598157, 1, 70.000000000000000 },
{ -0.012358955887069445, 1, 75.000000000000000 },
- { 0.0012245454458125673, 1, 80.000000000000000 },
+ { 0.0012245454458125670, 1, 80.000000000000000 },
{ 0.011556531358968161, 1, 85.000000000000000 },
- { 0.0050889656932377614, 1, 90.000000000000000 },
+ { 0.0050889656932377623, 1, 90.000000000000000 },
{ -0.0076103298149331573, 1, 95.000000000000000 },
- { -0.0086738252869878150, 1, 100.00000000000000 },
+ { -0.0086738252869878168, 1, 100.00000000000000 },
};
// Test function for n=1.
-template <typename Tp>
-void test002()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data002)
- / sizeof(testcase_sph_bessel<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::sph_bessel(Tp(data002[i].n), Tp(data002[i].x));
- const Tp f0 = data002[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(5.0000000000000028e-11));
-}
+template<typename Tp>
+ void
+ test008()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data008)
+ / sizeof(testcase_sph_bessel<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_bessel(Tp(data008[i].n), Tp(data008[i].x));
+ const Tp f0 = data008[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(5.0000000000000028e-11));
+ }
// Test data for n=2.
-testcase_sph_bessel<double> data003[] = {
+testcase_sph_bessel<double> data009[] = {
{ 0.0000000000000000, 2, 0.0000000000000000 },
{ 0.13473121008512520, 2, 5.0000000000000000 },
{ 0.077942193628562445, 2, 10.000000000000000 },
@@ -152,7 +481,7 @@
{ -0.048365523530958965, 2, 20.000000000000000 },
{ 0.00051088497094747614, 2, 25.000000000000000 },
{ 0.032310434678570907, 2, 30.000000000000000 },
- { 0.014416954021198945, 2, 35.000000000000000 },
+ { 0.014416954021198941, 2, 35.000000000000000 },
{ -0.017342392966988262, 2, 40.000000000000000 },
{ -0.019659208725359461, 2, 45.000000000000000 },
{ 0.0040832408433991458, 2, 50.000000000000000 },
@@ -169,293 +498,306 @@
};
// Test function for n=2.
-template <typename Tp>
-void test003()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data003)
- / sizeof(testcase_sph_bessel<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::sph_bessel(Tp(data003[i].n), Tp(data003[i].x));
- const Tp f0 = data003[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
-}
+template<typename Tp>
+ void
+ test009()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data009)
+ / sizeof(testcase_sph_bessel<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_bessel(Tp(data009[i].n), Tp(data009[i].x));
+ const Tp f0 = data009[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
+ }
// Test data for n=5.
-testcase_sph_bessel<double> data004[] = {
+testcase_sph_bessel<double> data010[] = {
{ 0.0000000000000000, 5, 0.0000000000000000 },
- { 0.10681116145650454, 5, 5.0000000000000000 },
- { -0.055534511621452197, 5, 10.000000000000000 },
- { 0.065968007076521964, 5, 15.000000000000000 },
- { 0.016683908063095686, 5, 20.000000000000000 },
- { -0.036117795989722368, 5, 25.000000000000000 },
- { -0.020504008736827509, 5, 30.000000000000000 },
- { 0.018499481206814564, 5, 35.000000000000000 },
- { 0.022448773791045016, 5, 40.000000000000000 },
- { -0.0048552694845020103, 5, 45.000000000000000 },
+ { 0.10681116145650453, 5, 5.0000000000000000 },
+ { -0.055534511621452155, 5, 10.000000000000000 },
+ { 0.065968007076521951, 5, 15.000000000000000 },
+ { 0.016683908063095682, 5, 20.000000000000000 },
+ { -0.036117795989722382, 5, 25.000000000000000 },
+ { -0.020504008736827489, 5, 30.000000000000000 },
+ { 0.018499481206814560, 5, 35.000000000000000 },
+ { 0.022448773791044995, 5, 40.000000000000000 },
+ { -0.0048552694845020138, 5, 45.000000000000000 },
{ -0.020048300563664877, 5, 50.000000000000000 },
- { -0.0052999924455565672, 5, 55.000000000000000 },
- { 0.014151556281331405, 5, 60.000000000000000 },
- { 0.011354588594416765, 5, 65.000000000000000 },
- { -0.0064983781785323642, 5, 70.000000000000000 },
- { -0.013089909320064264, 5, 75.000000000000000 },
- { -0.00096200450071301611, 5, 80.000000000000000 },
+ { -0.0052999924455565742, 5, 55.000000000000000 },
+ { 0.014151556281331407, 5, 60.000000000000000 },
+ { 0.011354588594416780, 5, 65.000000000000000 },
+ { -0.0064983781785323573, 5, 70.000000000000000 },
+ { -0.013089909320064257, 5, 75.000000000000000 },
+ { -0.00096200450071302446, 5, 80.000000000000000 },
{ 0.011048668899130202, 5, 85.000000000000000 },
- { 0.0065639581708135976, 5, 90.000000000000000 },
+ { 0.0065639581708136037, 5, 90.000000000000000 },
{ -0.0064646119368202771, 5, 95.000000000000000 },
- { -0.0092901489349075713, 5, 100.00000000000000 },
+ { -0.0092901489349075730, 5, 100.00000000000000 },
};
// Test function for n=5.
-template <typename Tp>
-void test004()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data004)
- / sizeof(testcase_sph_bessel<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::sph_bessel(Tp(data004[i].n), Tp(data004[i].x));
- const Tp f0 = data004[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(5.0000000000000028e-11));
-}
+template<typename Tp>
+ void
+ test010()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data010)
+ / sizeof(testcase_sph_bessel<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_bessel(Tp(data010[i].n), Tp(data010[i].x));
+ const Tp f0 = data010[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(5.0000000000000028e-11));
+ }
// Test data for n=10.
-testcase_sph_bessel<double> data005[] = {
+testcase_sph_bessel<double> data011[] = {
{ 0.0000000000000000, 10, 0.0000000000000000 },
{ 0.00040734424424946052, 10, 5.0000000000000000 },
- { 0.064605154492564279, 10, 10.000000000000000 },
- { 0.0018969790010883629, 10, 15.000000000000000 },
+ { 0.064605154492564265, 10, 10.000000000000000 },
+ { 0.0018969790010883577, 10, 15.000000000000000 },
{ 0.039686698644626366, 10, 20.000000000000000 },
- { -0.036253285601128567, 10, 25.000000000000000 },
- { -0.014529646403897820, 10, 30.000000000000000 },
- { 0.026281264603993850, 10, 35.000000000000000 },
- { 0.013124803182748307, 10, 40.000000000000000 },
- { -0.017600831383728963, 10, 45.000000000000000 },
- { -0.015039221463465962, 10, 50.000000000000000 },
- { 0.0095256289349167356, 10, 55.000000000000000 },
- { 0.015822719394008342, 10, 60.000000000000000 },
- { -0.0019391391708249812, 10, 65.000000000000000 },
- { -0.014293389028395010, 10, 70.000000000000000 },
- { -0.0044210285031696184, 10, 75.000000000000000 },
- { 0.010516146958338822, 10, 80.000000000000000 },
- { 0.0086736275131325761, 10, 85.000000000000000 },
- { -0.0052905066357239365, 10, 90.000000000000000 },
- { -0.010258326955210765, 10, 95.000000000000000 },
- { -0.00019565785971342893, 10, 100.00000000000000 },
+ { -0.036253285601128581, 10, 25.000000000000000 },
+ { -0.014529646403897799, 10, 30.000000000000000 },
+ { 0.026281264603993857, 10, 35.000000000000000 },
+ { 0.013124803182748323, 10, 40.000000000000000 },
+ { -0.017600831383728983, 10, 45.000000000000000 },
+ { -0.015039221463465955, 10, 50.000000000000000 },
+ { 0.0095256289349167390, 10, 55.000000000000000 },
+ { 0.015822719394008339, 10, 60.000000000000000 },
+ { -0.0019391391708249756, 10, 65.000000000000000 },
+ { -0.014293389028395012, 10, 70.000000000000000 },
+ { -0.0044210285031696227, 10, 75.000000000000000 },
+ { 0.010516146958338813, 10, 80.000000000000000 },
+ { 0.0086736275131325726, 10, 85.000000000000000 },
+ { -0.0052905066357239322, 10, 90.000000000000000 },
+ { -0.010258326955210768, 10, 95.000000000000000 },
+ { -0.00019565785971342419, 10, 100.00000000000000 },
};
// Test function for n=10.
-template <typename Tp>
-void test005()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data005)
- / sizeof(testcase_sph_bessel<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::sph_bessel(Tp(data005[i].n), Tp(data005[i].x));
- const Tp f0 = data005[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000017e-10));
-}
+template<typename Tp>
+ void
+ test011()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data011)
+ / sizeof(testcase_sph_bessel<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_bessel(Tp(data011[i].n), Tp(data011[i].x));
+ const Tp f0 = data011[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000017e-10));
+ }
// Test data for n=20.
-testcase_sph_bessel<double> data006[] = {
+testcase_sph_bessel<double> data012[] = {
{ 0.0000000000000000, 20, 0.0000000000000000 },
{ 5.4277267607932098e-12, 20, 5.0000000000000000 },
- { 2.3083719613194699e-06, 20, 10.000000000000000 },
- { 0.0015467058510412503, 20, 15.000000000000000 },
- { 0.038324851639805181, 20, 20.000000000000000 },
- { 0.028500071484154683, 20, 25.000000000000000 },
- { -0.014711593353429090, 20, 30.000000000000000 },
- { -0.010797653070264238, 20, 35.000000000000000 },
- { 0.026535391837540286, 20, 40.000000000000000 },
- { -0.011582959134716381, 20, 45.000000000000000 },
+ { 2.3083719613194670e-06, 20, 10.000000000000000 },
+ { 0.0015467058510412498, 20, 15.000000000000000 },
+ { 0.038324851639805160, 20, 20.000000000000000 },
+ { 0.028500071484154645, 20, 25.000000000000000 },
+ { -0.014711593353429081, 20, 30.000000000000000 },
+ { -0.010797653070264229, 20, 35.000000000000000 },
+ { 0.026535391837540293, 20, 40.000000000000000 },
+ { -0.011582959134716393, 20, 45.000000000000000 },
{ -0.015785029898269291, 20, 50.000000000000000 },
- { 0.013885519185862756, 20, 55.000000000000000 },
- { 0.011112458964023256, 20, 60.000000000000000 },
+ { 0.013885519185862741, 20, 55.000000000000000 },
+ { 0.011112458964023273, 20, 60.000000000000000 },
{ -0.011938384963927570, 20, 65.000000000000000 },
- { -0.010117695207156906, 20, 70.000000000000000 },
- { 0.0089871214102383128, 20, 75.000000000000000 },
+ { -0.010117695207156904, 20, 70.000000000000000 },
+ { 0.0089871214102383232, 20, 75.000000000000000 },
{ 0.010400578884991936, 20, 80.000000000000000 },
- { -0.0055359020656326630, 20, 85.000000000000000 },
- { -0.010639343320787519, 20, 90.000000000000000 },
- { 0.0018051661455979488, 20, 95.000000000000000 },
- { 0.010107671283873054, 20, 100.00000000000000 },
+ { -0.0055359020656326700, 20, 85.000000000000000 },
+ { -0.010639343320787521, 20, 90.000000000000000 },
+ { 0.0018051661455979529, 20, 95.000000000000000 },
+ { 0.010107671283873056, 20, 100.00000000000000 },
};
// Test function for n=20.
-template <typename Tp>
-void test006()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data006)
- / sizeof(testcase_sph_bessel<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::sph_bessel(Tp(data006[i].n), Tp(data006[i].x));
- const Tp f0 = data006[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
-}
+template<typename Tp>
+ void
+ test012()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data012)
+ / sizeof(testcase_sph_bessel<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_bessel(Tp(data012[i].n), Tp(data012[i].x));
+ const Tp f0 = data012[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
+ }
// Test data for n=50.
-testcase_sph_bessel<double> data007[] = {
+testcase_sph_bessel<double> data013[] = {
{ 0.0000000000000000, 50, 0.0000000000000000 },
{ 2.8574793504401511e-46, 50, 5.0000000000000000 },
{ 2.2306960232186471e-31, 50, 10.000000000000000 },
- { 7.6804716640080780e-23, 50, 15.000000000000000 },
- { 5.6500807918725294e-17, 50, 20.000000000000000 },
+ { 7.6804716640080804e-23, 50, 15.000000000000000 },
+ { 5.6500807918725220e-17, 50, 20.000000000000000 },
{ 1.2540416973758975e-12, 50, 25.000000000000000 },
- { 2.6901637185735330e-09, 50, 30.000000000000000 },
+ { 2.6901637185735326e-09, 50, 30.000000000000000 },
{ 1.0167148174422245e-06, 50, 35.000000000000000 },
- { 9.3949174038179191e-05, 50, 40.000000000000000 },
- { 0.0024888927213794552, 50, 45.000000000000000 },
- { 0.018829107369282640, 50, 50.000000000000000 },
- { 0.026373198438145548, 50, 55.000000000000000 },
- { -0.021230978268739008, 50, 60.000000000000000 },
- { 0.016539881802291316, 50, 65.000000000000000 },
- { -0.015985416061436657, 50, 70.000000000000000 },
- { 0.015462548984405593, 50, 75.000000000000000 },
- { -0.010638570118081834, 50, 80.000000000000000 },
- { 0.00046961239784540576, 50, 85.000000000000000 },
- { 0.0096065882189920234, 50, 90.000000000000000 },
- { -0.010613873910261147, 50, 95.000000000000000 },
- { 0.00057971408822773810, 50, 100.00000000000000 },
+ { 9.3949174038179069e-05, 50, 40.000000000000000 },
+ { 0.0024888927213794561, 50, 45.000000000000000 },
+ { 0.018829107369282647, 50, 50.000000000000000 },
+ { 0.026373198438145489, 50, 55.000000000000000 },
+ { -0.021230978268739001, 50, 60.000000000000000 },
+ { 0.016539881802291313, 50, 65.000000000000000 },
+ { -0.015985416061436664, 50, 70.000000000000000 },
+ { 0.015462548984405590, 50, 75.000000000000000 },
+ { -0.010638570118081819, 50, 80.000000000000000 },
+ { 0.00046961239784540793, 50, 85.000000000000000 },
+ { 0.0096065882189920251, 50, 90.000000000000000 },
+ { -0.010613873910261154, 50, 95.000000000000000 },
+ { 0.00057971408822774949, 50, 100.00000000000000 },
};
// Test function for n=50.
-template <typename Tp>
-void test007()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data007)
- / sizeof(testcase_sph_bessel<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::sph_bessel(Tp(data007[i].n), Tp(data007[i].x));
- const Tp f0 = data007[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000017e-10));
-}
+template<typename Tp>
+ void
+ test013()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data013)
+ / sizeof(testcase_sph_bessel<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_bessel(Tp(data013[i].n), Tp(data013[i].x));
+ const Tp f0 = data013[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000017e-10));
+ }
// Test data for n=100.
-testcase_sph_bessel<double> data008[] = {
+testcase_sph_bessel<double> data014[] = {
{ 0.0000000000000000, 100, 0.0000000000000000 },
{ 5.5356503033889938e-120, 100, 5.0000000000000000 },
{ 5.8320401820058771e-90, 100, 10.000000000000000 },
{ 1.7406387750766626e-72, 100, 15.000000000000000 },
- { 3.5152711125317001e-60, 100, 20.000000000000000 },
- { 9.8455459353816024e-51, 100, 25.000000000000000 },
- { 4.0888596744301567e-43, 100, 30.000000000000000 },
- { 8.8975854911134006e-37, 100, 35.000000000000000 },
- { 2.1513492547733837e-31, 100, 40.000000000000000 },
- { 9.3673586994539323e-27, 100, 45.000000000000000 },
- { 1.0190122629310465e-22, 100, 50.000000000000000 },
- { 3.4887804977690321e-19, 100, 55.000000000000000 },
- { 4.4442883425555691e-16, 100, 60.000000000000000 },
- { 2.3832619568710733e-13, 100, 65.000000000000000 },
- { 5.8948384175608103e-11, 100, 70.000000000000000 },
- { 7.1884446357022268e-09, 100, 75.000000000000000 },
- { 4.5247964400094991e-07, 100, 80.000000000000000 },
- { 1.5096093228779059e-05, 100, 85.000000000000000 },
+ { 3.5152711125317012e-60, 100, 20.000000000000000 },
+ { 9.8455459353815965e-51, 100, 25.000000000000000 },
+ { 4.0888596744301583e-43, 100, 30.000000000000000 },
+ { 8.8975854911133939e-37, 100, 35.000000000000000 },
+ { 2.1513492547733828e-31, 100, 40.000000000000000 },
+ { 9.3673586994539108e-27, 100, 45.000000000000000 },
+ { 1.0190122629310471e-22, 100, 50.000000000000000 },
+ { 3.4887804977690388e-19, 100, 55.000000000000000 },
+ { 4.4442883425555593e-16, 100, 60.000000000000000 },
+ { 2.3832619568710728e-13, 100, 65.000000000000000 },
+ { 5.8948384175607987e-11, 100, 70.000000000000000 },
+ { 7.1884446357022277e-09, 100, 75.000000000000000 },
+ { 4.5247964400095002e-07, 100, 80.000000000000000 },
+ { 1.5096093228779032e-05, 100, 85.000000000000000 },
{ 0.00026825172647807507, 100, 90.000000000000000 },
- { 0.0024744308520581030, 100, 95.000000000000000 },
- { 0.010880477011438327, 100, 100.00000000000000 },
+ { 0.0024744308520581117, 100, 95.000000000000000 },
+ { 0.010880477011438352, 100, 100.00000000000000 },
};
// Test function for n=100.
-template <typename Tp>
-void test008()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data008)
- / sizeof(testcase_sph_bessel<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::sph_bessel(Tp(data008[i].n), Tp(data008[i].x));
- const Tp f0 = data008[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(5.0000000000000029e-12));
-}
+template<typename Tp>
+ void
+ test014()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data014)
+ / sizeof(testcase_sph_bessel<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_bessel(Tp(data014[i].n), Tp(data014[i].x));
+ const Tp f0 = data014[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(5.0000000000000029e-12));
+ }
-int main(int, char**)
+int
+main()
{
test001<double>();
test002<double>();
@@ -465,5 +807,11 @@
test006<double>();
test007<double>();
test008<double>();
+ test009<double>();
+ test010<double>();
+ test011<double>();
+ test012<double>();
+ test013<double>();
+ test014<double>();
return 0;
}
Index: testsuite/tr1/5_numerical_facilities/special_functions/23_sph_neumann/check_value.cc
===================================================================
--- testsuite/tr1/5_numerical_facilities/special_functions/23_sph_neumann/check_value.cc (revision 232104)
+++ testsuite/tr1/5_numerical_facilities/special_functions/23_sph_neumann/check_value.cc (working copy)
@@ -41,9 +41,434 @@
// Test data for n=0.
testcase_sph_neumann<double> data001[] = {
+ { -3.8756496868425789, 0, 0.25000000000000000 },
+ { -1.7551651237807455, 0, 0.50000000000000000 },
+ { -0.97558515849842786, 0, 0.75000000000000000 },
+ { -0.54030230586813977, 0, 1.0000000000000000 },
+ { -0.25225788991621495, 0, 1.2500000000000000 },
+ { -0.047158134445135273, 0, 1.5000000000000000 },
+ { 0.10185488894256690, 0, 1.7500000000000000 },
+ { 0.20807341827357120, 0, 2.0000000000000000 },
+ { 0.27918827676566177, 0, 2.2500000000000000 },
+ { 0.32045744621877348, 0, 2.5000000000000000 },
+ { 0.33610995586635040, 0, 2.7500000000000000 },
+ { 0.32999749886681512, 0, 3.0000000000000000 },
+ { 0.30588605417862963, 0, 3.2500000000000000 },
+ { 0.26755905351165610, 0, 3.5000000000000000 },
+ { 0.21881582862388288, 0, 3.7500000000000000 },
+ { 0.16341090521590299, 0, 4.0000000000000000 },
+ { 0.10496176233265714, 0, 4.2500000000000000 },
+ { 0.046843510984617719, 0, 4.5000000000000000 },
+ { -0.0079162427132582220, 0, 4.7500000000000000 },
{ -0.056732437092645263, 0, 5.0000000000000000 },
+};
+
+// Test function for n=0.
+template<typename Tp>
+ void
+ test001()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data001)
+ / sizeof(testcase_sph_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_neumann(Tp(data001[i].n), Tp(data001[i].x));
+ const Tp f0 = data001[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for n=1.
+testcase_sph_neumann<double> data002[] = {
+ { -16.492214584388407, 1, 0.25000000000000000 },
+ { -4.4691813247698970, 1, 0.50000000000000000 },
+ { -2.2096318913623492, 1, 0.75000000000000000 },
+ { -1.3817732906760363, 1, 1.0000000000000000 },
+ { -0.96099400741744090, 1, 1.2500000000000000 },
+ { -0.69643541403279308, 1, 1.5000000000000000 },
+ { -0.50407489024649721, 1, 1.7500000000000000 },
+ { -0.35061200427605527, 1, 2.0000000000000000 },
+ { -0.22172663116544869, 1, 2.2500000000000000 },
+ { -0.11120587915407318, 1, 2.5000000000000000 },
+ { -0.016564013158538646, 1, 2.7500000000000000 },
+ { 0.062959163602315973, 1, 3.0000000000000000 },
+ { 0.12740959652576553, 1, 3.2500000000000000 },
+ { 0.17666922320036457, 1, 3.5000000000000000 },
+ { 0.21076723929766045, 1, 3.7500000000000000 },
+ { 0.23005335013095779, 1, 4.0000000000000000 },
+ { 0.23528261660264485, 1, 4.2500000000000000 },
+ { 0.22763858414438104, 1, 4.5000000000000000 },
+ { 0.20871085184465679, 1, 4.7500000000000000 },
+ { 0.18043836751409864, 1, 5.0000000000000000 },
+};
+
+// Test function for n=1.
+template<typename Tp>
+ void
+ test002()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data002)
+ / sizeof(testcase_sph_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_neumann(Tp(data002[i].n), Tp(data002[i].x));
+ const Tp f0 = data002[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for n=2.
+testcase_sph_neumann<double> data003[] = {
+ { -194.03092532581832, 2, 0.25000000000000000 },
+ { -25.059922824838637, 2, 0.50000000000000000 },
+ { -7.8629424069509692, 2, 0.75000000000000000 },
+ { -3.6050175661599688, 2, 1.0000000000000000 },
+ { -2.0541277278856431, 2, 1.2500000000000000 },
+ { -1.3457126936204509, 2, 1.5000000000000000 },
+ { -0.96598327222227631, 2, 1.7500000000000000 },
+ { -0.73399142468765399, 2, 2.0000000000000000 },
+ { -0.57482378498626008, 2, 2.2500000000000000 },
+ { -0.45390450120366133, 2, 2.5000000000000000 },
+ { -0.35417978840293796, 2, 2.7500000000000000 },
+ { -0.26703833526449916, 2, 3.0000000000000000 },
+ { -0.18827719584715374, 2, 3.2500000000000000 },
+ { -0.11612829076848646, 2, 3.5000000000000000 },
+ { -0.050202037185754500, 2, 3.7500000000000000 },
+ { 0.0091291073823153435, 2, 4.0000000000000000 },
+ { 0.061120084680974532, 2, 4.2500000000000000 },
+ { 0.10491554511163632, 2, 4.5000000000000000 },
+ { 0.13973362282567303, 2, 4.7500000000000000 },
+ { 0.16499545760110443, 2, 5.0000000000000000 },
+};
+
+// Test function for n=2.
+template<typename Tp>
+ void
+ test003()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data003)
+ / sizeof(testcase_sph_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_neumann(Tp(data003[i].n), Tp(data003[i].x));
+ const Tp f0 = data003[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for n=5.
+testcase_sph_neumann<double> data004[] = {
+ { -3884190.0626637731, 5, 0.25000000000000000 },
+ { -61327.563166980639, 5, 0.50000000000000000 },
+ { -5478.9529323190836, 5, 0.75000000000000000 },
+ { -999.44034339223640, 5, 1.0000000000000000 },
+ { -270.49720502942358, 5, 1.2500000000000000 },
+ { -94.236110085232468, 5, 1.5000000000000000 },
+ { -39.182827786584333, 5, 1.7500000000000000 },
+ { -18.591445311190984, 5, 2.0000000000000000 },
+ { -9.7821420203182274, 5, 2.2500000000000000 },
+ { -5.5991001548063233, 5, 2.5000000000000000 },
+ { -3.4400655233636823, 5, 2.7500000000000000 },
+ { -2.2470233284653904, 5, 3.0000000000000000 },
+ { -1.5491439945779160, 5, 3.2500000000000000 },
+ { -1.1205896325654248, 5, 3.5000000000000000 },
+ { -0.84592255605194844, 5, 3.7500000000000000 },
+ { -0.66280126645045878, 5, 4.0000000000000000 },
+ { -0.53589374436038528, 5, 4.2500000000000000 },
+ { -0.44430324229090551, 5, 4.5000000000000000 },
+ { -0.37520157232899892, 5, 4.7500000000000000 },
+ { -0.32046504674973919, 5, 5.0000000000000000 },
+};
+
+// Test function for n=5.
+template<typename Tp>
+ void
+ test004()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data004)
+ / sizeof(testcase_sph_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_neumann(Tp(data004[i].n), Tp(data004[i].x));
+ const Tp f0 = data004[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for n=10.
+testcase_sph_neumann<double> data005[] = {
+ { -2750653598174213.5, 10, 0.25000000000000000 },
+ { -1349739281107.0554, 10, 0.50000000000000000 },
+ { -15733380424.953760, 10, 0.75000000000000000 },
+ { -672215008.25620842, 10, 1.0000000000000000 },
+ { -58607405.988679446, 10, 1.2500000000000000 },
+ { -8032728.8148234813, 10, 1.5000000000000000 },
+ { -1505955.5720640516, 10, 1.7500000000000000 },
+ { -355414.72008543846, 10, 2.0000000000000000 },
+ { -100086.80374425423, 10, 2.2500000000000000 },
+ { -32423.794085334419, 10, 2.5000000000000000 },
+ { -11772.863161809979, 10, 2.7500000000000000 },
+ { -4699.8591888113924, 10, 3.0000000000000000 },
+ { -2033.0183273853759, 10, 3.2500000000000000 },
+ { -942.19075028425493, 10, 3.5000000000000000 },
+ { -463.65206971202474, 10, 3.7500000000000000 },
+ { -240.53552987988931, 10, 4.0000000000000000 },
+ { -130.78478404631085, 10, 4.2500000000000000 },
+ { -74.170665501737531, 10, 4.5000000000000000 },
+ { -43.698249898184983, 10, 4.7500000000000000 },
+ { -26.656114405718711, 10, 5.0000000000000000 },
+};
+
+// Test function for n=10.
+template<typename Tp>
+ void
+ test005()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data005)
+ / sizeof(testcase_sph_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_neumann(Tp(data005[i].n), Tp(data005[i].x));
+ const Tp f0 = data005[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for n=20.
+testcase_sph_neumann<double> data006[] = {
+ { -1.4077591402542251e+36, 20, 0.25000000000000000 },
+ { -6.7288761838234712e+29, 20, 0.50000000000000000 },
+ { -1.3544611382105945e+26, 20, 0.75000000000000000 },
+ { -3.2395922185789833e+23, 20, 1.0000000000000000 },
+ { -3.0096416715953060e+21, 20, 1.2500000000000000 },
+ { -6.5999646851668173e+19, 20, 1.5000000000000000 },
+ { -2.6193364753070735e+18, 20, 1.7500000000000000 },
+ { -1.6054364928152224e+17, 20, 2.0000000000000000 },
+ { -13719071872797762., 20, 2.2500000000000000 },
+ { -1524247248298953.8, 20, 2.5000000000000000 },
+ { -209484650509384.06, 20, 2.7500000000000000 },
+ { -34327545666696.488, 20, 3.0000000000000000 },
+ { -6522260876203.3174, 20, 3.2500000000000000 },
+ { -1406018871897.2307, 20, 3.5000000000000000 },
+ { -338025193731.78882, 20, 3.7500000000000000 },
+ { -89381690326.018677, 20, 4.0000000000000000 },
+ { -25701805899.474934, 20, 4.2500000000000000 },
+ { -7961859734.2407761, 20, 4.5000000000000000 },
+ { -2636237230.0850010, 20, 4.7500000000000000 },
+ { -926795140.30575466, 20, 5.0000000000000000 },
+};
+
+// Test function for n=20.
+template<typename Tp>
+ void
+ test006()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data006)
+ / sizeof(testcase_sph_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_neumann(Tp(data006[i].n), Tp(data006[i].x));
+ const Tp f0 = data006[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000020e-13));
+ }
+
+// Test data for n=50.
+testcase_sph_neumann<double> data007[] = {
+ { -1.3823742808004061e+109, 50, 0.25000000000000000 },
+ { -6.1447912922121694e+93, 50, 0.50000000000000000 },
+ { -6.4348494908900529e+84, 50, 0.75000000000000000 },
+ { -2.7391922846297569e+78, 50, 1.0000000000000000 },
+ { -3.1365037573299931e+73, 50, 1.2500000000000000 },
+ { -2.8821098528635756e+69, 50, 1.5000000000000000 },
+ { -1.1148255024189452e+66, 50, 1.7500000000000000 },
+ { -1.2350219443670970e+63, 50, 2.0000000000000000 },
+ { -3.0565226939717125e+60, 50, 2.2500000000000000 },
+ { -1.4262702131152733e+58, 50, 2.5000000000000000 },
+ { -1.1118745474840939e+56, 50, 2.7500000000000000 },
+ { -1.3243260716629126e+54, 50, 3.0000000000000000 },
+ { -2.2519472094129334e+52, 50, 3.2500000000000000 },
+ { -5.1861507201100364e+50, 50, 3.5000000000000000 },
+ { -1.5513212909461383e+49, 50, 3.7500000000000000 },
+ { -5.8276471407899822e+47, 50, 4.0000000000000000 },
+ { -2.6745414086542661e+46, 50, 4.2500000000000000 },
+ { -1.4657308996352322e+45, 50, 4.5000000000000000 },
+ { -9.4102674366685358e+43, 50, 4.7500000000000000 },
+ { -6.9641091882698388e+42, 50, 5.0000000000000000 },
+};
+
+// Test function for n=50.
+template<typename Tp>
+ void
+ test007()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data007)
+ / sizeof(testcase_sph_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_neumann(Tp(data007[i].n), Tp(data007[i].x));
+ const Tp f0 = data007[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(5.0000000000000029e-12));
+ }
+
+// Test data for n=100.
+testcase_sph_neumann<double> data008[] = {
+ { -4.2856109460516407e+247, 100, 0.25000000000000000 },
+ { -1.6911720011753781e+217, 100, 0.50000000000000000 },
+ { -2.7753107402139484e+199, 100, 0.75000000000000000 },
+ { -6.6830794632586774e+186, 100, 1.0000000000000000 },
+ { -1.0906342369729277e+177, 100, 1.2500000000000000 },
+ { -1.0993184254131119e+169, 100, 1.5000000000000000 },
+ { -1.9071480498141315e+162, 100, 1.7500000000000000 },
+ { -2.6559558301924957e+156, 100, 2.0000000000000000 },
+ { -1.8154136926485787e+151, 100, 2.2500000000000000 },
+ { -4.3527631662111383e+146, 100, 2.5000000000000000 },
+ { -2.8809537014100589e+142, 100, 2.7500000000000000 },
+ { -4.4102229953033134e+138, 100, 3.0000000000000000 },
+ { -1.3651904154045514e+135, 100, 3.2500000000000000 },
+ { -7.6980749101080730e+131, 100, 3.5000000000000000 },
+ { -7.2790553499254927e+128, 100, 3.7500000000000000 },
+ { -1.0796647795893970e+126, 100, 4.0000000000000000 },
+ { -2.3785795774445298e+123, 100, 4.2500000000000000 },
+ { -7.4391596631955861e+120, 100, 4.5000000000000000 },
+ { -3.1802258278279400e+118, 100, 4.7500000000000000 },
+ { -1.7997139826259740e+116, 100, 5.0000000000000000 },
+};
+
+// Test function for n=100.
+template<typename Tp>
+ void
+ test008()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data008)
+ / sizeof(testcase_sph_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_neumann(Tp(data008[i].n), Tp(data008[i].x));
+ const Tp f0 = data008[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(5.0000000000000029e-12));
+ }
+// sph_neumann
+
+// Test data for n=0.
+testcase_sph_neumann<double> data009[] = {
+ { -0.056732437092645263, 0, 5.0000000000000000 },
{ 0.083907152907645249, 0, 10.000000000000000 },
- { 0.050645860857254754, 0, 15.000000000000000 },
+ { 0.050645860857254747, 0, 15.000000000000000 },
{ -0.020404103090669597, 0, 20.000000000000000 },
{ -0.039648112474538942, 0, 25.000000000000000 },
{ -0.0051417149962528020, 0, 30.000000000000000 },
@@ -56,49 +481,51 @@
{ 0.0086531361728949541, 0, 65.000000000000000 },
{ -0.0090474171869471404, 0, 70.000000000000000 },
{ -0.012290016929663325, 0, 75.000000000000000 },
- { 0.0013798405479880946, 0, 80.000000000000000 },
+ { 0.0013798405479880944, 0, 80.000000000000000 },
{ 0.011580901686988727, 0, 85.000000000000000 },
{ 0.0049785957347685574, 0, 90.000000000000000 },
{ -0.0076860374841559963, 0, 95.000000000000000 },
- { -0.0086231887228768386, 0, 100.00000000000000 },
+ { -0.0086231887228768404, 0, 100.00000000000000 },
};
// Test function for n=0.
-template <typename Tp>
-void test001()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data001)
- / sizeof(testcase_sph_neumann<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::sph_neumann(Tp(data001[i].n), Tp(data001[i].x));
- const Tp f0 = data001[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(5.0000000000000028e-11));
-}
+template<typename Tp>
+ void
+ test009()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data009)
+ / sizeof(testcase_sph_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_neumann(Tp(data009[i].n), Tp(data009[i].x));
+ const Tp f0 = data009[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(5.0000000000000028e-11));
+ }
// Test data for n=1.
-testcase_sph_neumann<double> data002[] = {
+testcase_sph_neumann<double> data010[] = {
{ 0.18043836751409864, 1, 5.0000000000000000 },
- { 0.062792826379701516, 1, 10.000000000000000 },
+ { 0.062792826379701502, 1, 10.000000000000000 },
{ -0.039976131953324147, 1, 15.000000000000000 },
{ -0.046667467690914864, 1, 20.000000000000000 },
{ 0.0037081455049293634, 1, 25.000000000000000 },
{ 0.032762996969886965, 1, 30.000000000000000 },
- { 0.012971498479556564, 1, 35.000000000000000 },
+ { 0.012971498479556563, 1, 35.000000000000000 },
{ -0.018210992723451058, 1, 40.000000000000000 },
{ -0.019168385477952129, 1, 45.000000000000000 },
{ 0.0048615106626817301, 1, 50.000000000000000 },
@@ -115,85 +542,89 @@
};
// Test function for n=1.
-template <typename Tp>
-void test002()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data002)
- / sizeof(testcase_sph_neumann<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::sph_neumann(Tp(data002[i].n), Tp(data002[i].x));
- const Tp f0 = data002[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
-}
+template<typename Tp>
+ void
+ test010()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data010)
+ / sizeof(testcase_sph_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_neumann(Tp(data010[i].n), Tp(data010[i].x));
+ const Tp f0 = data010[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
+ }
// Test data for n=2.
-testcase_sph_neumann<double> data003[] = {
+testcase_sph_neumann<double> data011[] = {
{ 0.16499545760110443, 2, 5.0000000000000000 },
- { -0.065069304993734797, 2, 10.000000000000000 },
- { -0.058641087247919589, 2, 15.000000000000000 },
+ { -0.065069304993734783, 2, 10.000000000000000 },
+ { -0.058641087247919575, 2, 15.000000000000000 },
{ 0.013403982937032370, 2, 20.000000000000000 },
- { 0.040093089935130465, 2, 25.000000000000000 },
+ { 0.040093089935130458, 2, 25.000000000000000 },
{ 0.0084180146932414986, 2, 30.000000000000000 },
{ -0.024707934561509628, 2, 35.000000000000000 },
{ -0.018039275995565374, 2, 40.000000000000000 },
- { 0.010395929608530519, 2, 45.000000000000000 },
+ { 0.010395929608530518, 2, 45.000000000000000 },
{ 0.019591011209603170, 2, 50.000000000000000 },
{ 0.0013933984133902479, 2, 55.000000000000000 },
- { -0.015606312864606103, 2, 60.000000000000000 },
+ { -0.015606312864606101, 2, 60.000000000000000 },
{ -0.0092340892214042153, 2, 65.000000000000000 },
{ 0.0085680673305727519, 2, 70.000000000000000 },
{ 0.012490279126185866, 2, 75.000000000000000 },
- { -0.00091330844120464307, 2, 80.000000000000000 },
+ { -0.00091330844120464274, 2, 80.000000000000000 },
{ -0.011502982024025860, 2, 85.000000000000000 },
- { -0.0053078616858299602, 2, 90.000000000000000 },
- { 0.0074563595609802805, 2, 95.000000000000000 },
- { 0.0087725114585929034, 2, 100.00000000000000 },
+ { -0.0053078616858299611, 2, 90.000000000000000 },
+ { 0.0074563595609802797, 2, 95.000000000000000 },
+ { 0.0087725114585929052, 2, 100.00000000000000 },
};
// Test function for n=2.
-template <typename Tp>
-void test003()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data003)
- / sizeof(testcase_sph_neumann<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::sph_neumann(Tp(data003[i].n), Tp(data003[i].x));
- const Tp f0 = data003[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(5.0000000000000028e-11));
-}
+template<typename Tp>
+ void
+ test011()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data011)
+ / sizeof(testcase_sph_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_neumann(Tp(data011[i].n), Tp(data011[i].x));
+ const Tp f0 = data011[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(5.0000000000000028e-11));
+ }
// Test data for n=5.
-testcase_sph_neumann<double> data004[] = {
+testcase_sph_neumann<double> data012[] = {
{ -0.32046504674973919, 5, 5.0000000000000000 },
{ 0.093833541678691818, 5, 10.000000000000000 },
{ 0.020475698281859061, 5, 15.000000000000000 },
@@ -202,163 +633,169 @@
{ 0.026639390496569996, 5, 30.000000000000000 },
{ 0.022006038985576210, 5, 35.000000000000000 },
{ -0.011268975348057965, 5, 40.000000000000000 },
- { -0.021770388372274862, 5, 45.000000000000000 },
- { -0.00069711319645853712, 5, 50.000000000000000 },
- { 0.017439589450220897, 5, 55.000000000000000 },
+ { -0.021770388372274858, 5, 45.000000000000000 },
+ { -0.00069711319645853701, 5, 50.000000000000000 },
+ { 0.017439589450220901, 5, 55.000000000000000 },
{ 0.0088699170919343089, 5, 60.000000000000000 },
{ -0.010421334444951861, 5, 65.000000000000000 },
- { -0.012746769858008551, 5, 70.000000000000000 },
+ { -0.012746769858008553, 5, 70.000000000000000 },
{ 0.0026282888028967737, 5, 75.000000000000000 },
{ 0.012477658581324189, 5, 80.000000000000000 },
{ 0.0040771816818182642, 5, 85.000000000000000 },
- { -0.0089777759570579801, 5, 90.000000000000000 },
+ { -0.0089777759570579818, 5, 90.000000000000000 },
{ -0.0083184557896676149, 5, 95.000000000000000 },
{ 0.0037206784862748965, 5, 100.00000000000000 },
};
// Test function for n=5.
-template <typename Tp>
-void test004()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data004)
- / sizeof(testcase_sph_neumann<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::sph_neumann(Tp(data004[i].n), Tp(data004[i].x));
- const Tp f0 = data004[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(5.0000000000000028e-11));
-}
+template<typename Tp>
+ void
+ test012()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data012)
+ / sizeof(testcase_sph_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_neumann(Tp(data012[i].n), Tp(data012[i].x));
+ const Tp f0 = data012[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(5.0000000000000028e-11));
+ }
// Test data for n=10.
-testcase_sph_neumann<double> data005[] = {
- { -26.656114405718704, 10, 5.0000000000000000 },
+testcase_sph_neumann<double> data013[] = {
+ { -26.656114405718711, 10, 5.0000000000000000 },
{ -0.17245367208805784, 10, 10.000000000000000 },
{ 0.078461689849642580, 10, 15.000000000000000 },
{ -0.036843410496289961, 10, 20.000000000000000 },
- { -0.021158339301097472, 10, 25.000000000000000 },
- { 0.031219591064754935, 10, 30.000000000000000 },
- { 0.012840593422414804, 10, 35.000000000000000 },
+ { -0.021158339301097475, 10, 25.000000000000000 },
+ { 0.031219591064754939, 10, 30.000000000000000 },
+ { 0.012840593422414807, 10, 35.000000000000000 },
{ -0.021803068636888072, 10, 40.000000000000000 },
- { -0.014071636804469047, 10, 45.000000000000000 },
- { 0.013524687511158756, 10, 50.000000000000000 },
- { 0.015684932653180592, 10, 55.000000000000000 },
+ { -0.014071636804469044, 10, 45.000000000000000 },
+ { 0.013524687511158758, 10, 50.000000000000000 },
+ { 0.015684932653180595, 10, 55.000000000000000 },
{ -0.0056356895567262122, 10, 60.000000000000000 },
{ -0.015364490270315362, 10, 65.000000000000000 },
- { -0.0014525575672261291, 10, 70.000000000000000 },
+ { -0.0014525575672261295, 10, 70.000000000000000 },
{ 0.012648951699549433, 10, 75.000000000000000 },
- { 0.0068571608061120358, 10, 80.000000000000000 },
+ { 0.0068571608061120367, 10, 80.000000000000000 },
{ -0.0080151152941401460, 10, 85.000000000000000 },
- { -0.0098139742219019131, 10, 90.000000000000000 },
+ { -0.0098139742219019149, 10, 90.000000000000000 },
{ 0.0025002854072314951, 10, 95.000000000000000 },
- { 0.010025777373636153, 10, 100.00000000000000 },
+ { 0.010025777373636155, 10, 100.00000000000000 },
};
// Test function for n=10.
-template <typename Tp>
-void test005()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data005)
- / sizeof(testcase_sph_neumann<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::sph_neumann(Tp(data005[i].n), Tp(data005[i].x));
- const Tp f0 = data005[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(5.0000000000000028e-11));
-}
+template<typename Tp>
+ void
+ test013()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data013)
+ / sizeof(testcase_sph_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_neumann(Tp(data013[i].n), Tp(data013[i].x));
+ const Tp f0 = data013[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(5.0000000000000028e-11));
+ }
// Test data for n=20.
-testcase_sph_neumann<double> data006[] = {
- { -926795140.30575454, 20, 5.0000000000000000 },
- { -1211.2106053526034, 20, 10.000000000000000 },
- { -1.5559965765652188, 20, 15.000000000000000 },
- { -0.093401132250914426, 20, 20.000000000000000 },
- { 0.044031985675276435, 20, 25.000000000000000 },
+testcase_sph_neumann<double> data014[] = {
+ { -926795140.30575466, 20, 5.0000000000000000 },
+ { -1211.2106053526036, 20, 10.000000000000000 },
+ { -1.5559965765652175, 20, 15.000000000000000 },
+ { -0.093401132250914398, 20, 20.000000000000000 },
+ { 0.044031985675276462, 20, 25.000000000000000 },
{ -0.036078033606613907, 20, 30.000000000000000 },
- { 0.029828405631319641, 20, 35.000000000000000 },
- { -0.0048414810986760785, 20, 40.000000000000000 },
+ { 0.029828405631319645, 20, 35.000000000000000 },
+ { -0.0048414810986760759, 20, 40.000000000000000 },
{ -0.020504694681516944, 20, 45.000000000000000 },
- { 0.013759531302541211, 20, 50.000000000000000 },
+ { 0.013759531302541216, 20, 50.000000000000000 },
{ 0.012783038861734196, 20, 55.000000000000000 },
{ -0.013117009421906418, 20, 60.000000000000000 },
{ -0.010338106075674407, 20, 65.000000000000000 },
- { 0.010538610814111246, 20, 70.000000000000000 },
- { 0.010200029094273743, 20, 75.000000000000000 },
+ { 0.010538610814111244, 20, 70.000000000000000 },
+ { 0.010200029094273744, 20, 75.000000000000000 },
{ -0.0073123450945617122, 20, 80.000000000000000 },
{ -0.010581510354950906, 20, 85.000000000000000 },
- { 0.0036866374015298714, 20, 90.000000000000000 },
+ { 0.0036866374015298723, 20, 90.000000000000000 },
{ 0.010498384318338270, 20, 95.000000000000000 },
- { 5.6317293788333982e-05, 20, 100.00000000000000 },
+ { 5.6317293788334978e-05, 20, 100.00000000000000 },
};
// Test function for n=20.
-template <typename Tp>
-void test006()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data006)
- / sizeof(testcase_sph_neumann<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::sph_neumann(Tp(data006[i].n), Tp(data006[i].x));
- const Tp f0 = data006[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(1.0000000000000007e-09));
-}
+template<typename Tp>
+ void
+ test014()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data014)
+ / sizeof(testcase_sph_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_neumann(Tp(data014[i].n), Tp(data014[i].x));
+ const Tp f0 = data014[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(1.0000000000000007e-09));
+ }
// Test data for n=50.
-testcase_sph_neumann<double> data007[] = {
+testcase_sph_neumann<double> data015[] = {
{ -6.9641091882698388e+42, 50, 5.0000000000000000 },
{ -4.5282272723512023e+27, 50, 10.000000000000000 },
- { -9.0004902645887027e+18, 50, 15.000000000000000 },
- { -9542541667002.5098, 50, 20.000000000000000 },
- { -363518140.71026677, 50, 25.000000000000000 },
+ { -9.0004902645887037e+18, 50, 15.000000000000000 },
+ { -9542541667002.5117, 50, 20.000000000000000 },
+ { -363518140.71026671, 50, 25.000000000000000 },
{ -152551.57233157745, 50, 30.000000000000000 },
{ -386.26599186208625, 50, 35.000000000000000 },
{ -4.3290507947291035, 50, 40.000000000000000 },
- { -0.19968460851503764, 50, 45.000000000000000 },
+ { -0.19968460851503758, 50, 45.000000000000000 },
{ -0.041900001504607758, 50, 50.000000000000000 },
- { 0.010696040672421900, 50, 55.000000000000000 },
- { 0.0078198768555268507, 50, 60.000000000000000 },
+ { 0.010696040672421902, 50, 55.000000000000000 },
+ { 0.0078198768555267188, 50, 60.000000000000000 },
{ -0.010088474938191242, 50, 65.000000000000000 },
{ 0.0062423671279824801, 50, 70.000000000000000 },
{ 0.0011284242794941733, 50, 75.000000000000000 },
@@ -370,84 +807,89 @@
};
// Test function for n=50.
-template <typename Tp>
-void test007()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data007)
- / sizeof(testcase_sph_neumann<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::sph_neumann(Tp(data007[i].n), Tp(data007[i].x));
- const Tp f0 = data007[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
-}
+template<typename Tp>
+ void
+ test015()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data015)
+ / sizeof(testcase_sph_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_neumann(Tp(data015[i].n), Tp(data015[i].x));
+ const Tp f0 = data015[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000014e-11));
+ }
// Test data for n=100.
-testcase_sph_neumann<double> data008[] = {
- { -1.7997139826259744e+116, 100, 5.0000000000000000 },
- { -8.5732263093296254e+85, 100, 10.000000000000000 },
- { -1.9270658593711675e+68, 100, 15.000000000000000 },
- { -7.2208893582952363e+55, 100, 20.000000000000000 },
+testcase_sph_neumann<double> data016[] = {
+ { -1.7997139826259740e+116, 100, 5.0000000000000000 },
+ { -8.5732263093296268e+85, 100, 10.000000000000000 },
+ { -1.9270658593711677e+68, 100, 15.000000000000000 },
+ { -7.2208893582952385e+55, 100, 20.000000000000000 },
{ -2.0868752613007946e+46, 100, 25.000000000000000 },
{ -4.2496124023612646e+38, 100, 30.000000000000000 },
{ -1.7042898348910271e+32, 100, 35.000000000000000 },
{ -6.3021565260724554e+26, 100, 40.000000000000000 },
- { -1.3199917400494369e+22, 100, 45.000000000000000 },
- { -1.1256928913265985e+18, 100, 50.000000000000000 },
- { -309801083340341.00, 100, 55.000000000000000 },
+ { -1.3199917400494367e+22, 100, 45.000000000000000 },
+ { -1.1256928913265988e+18, 100, 50.000000000000000 },
+ { -309801083340343.25, 100, 55.000000000000000 },
{ -232585620046.64737, 100, 60.000000000000000 },
- { -421135935.93756086, 100, 65.000000000000000 },
- { -1680637.4531202619, 100, 70.000000000000000 },
- { -13868.302591128842, 100, 75.000000000000000 },
+ { -421135935.93756074, 100, 65.000000000000000 },
+ { -1680637.4531202621, 100, 70.000000000000000 },
+ { -13868.302591128844, 100, 75.000000000000000 },
{ -227.24385709173322, 100, 80.000000000000000 },
- { -7.2807038787139486, 100, 85.000000000000000 },
+ { -7.2807038787138731, 100, 85.000000000000000 },
{ -0.46648154448250878, 100, 90.000000000000000 },
- { -0.067270772720654542, 100, 95.000000000000000 },
+ { -0.067270772720654556, 100, 95.000000000000000 },
{ -0.022983850491562267, 100, 100.00000000000000 },
};
// Test function for n=100.
-template <typename Tp>
-void test008()
-{
- const Tp eps = std::numeric_limits<Tp>::epsilon();
- Tp max_abs_diff = -Tp(1);
- Tp max_abs_frac = -Tp(1);
- unsigned int num_datum = sizeof(data008)
- / sizeof(testcase_sph_neumann<double>);
- for (unsigned int i = 0; i < num_datum; ++i)
- {
- const Tp f = std::tr1::sph_neumann(Tp(data008[i].n), Tp(data008[i].x));
- const Tp f0 = data008[i].f0;
- const Tp diff = f - f0;
- if (std::abs(diff) > max_abs_diff)
- max_abs_diff = std::abs(diff);
- if (std::abs(f0) > Tp(10) * eps
- && std::abs(f) > Tp(10) * eps)
- {
- const Tp frac = diff / f0;
- if (std::abs(frac) > max_abs_frac)
- max_abs_frac = std::abs(frac);
- }
- }
- VERIFY(max_abs_frac < Tp(2.5000000000000015e-12));
-}
+template<typename Tp>
+ void
+ test016()
+ {
+ bool test [[gnu::unused]] = true;
+ const Tp eps = std::numeric_limits<Tp>::epsilon();
+ Tp max_abs_diff = -Tp(1);
+ Tp max_abs_frac = -Tp(1);
+ unsigned int num_datum = sizeof(data016)
+ / sizeof(testcase_sph_neumann<double>);
+ for (unsigned int i = 0; i < num_datum; ++i)
+ {
+ const Tp f = std::tr1::sph_neumann(Tp(data016[i].n), Tp(data016[i].x));
+ const Tp f0 = data016[i].f0;
+ const Tp diff = f - f0;
+ if (std::abs(diff) > max_abs_diff)
+ max_abs_diff = std::abs(diff);
+ if (std::abs(f0) > Tp(10) * eps
+ && std::abs(f) > Tp(10) * eps)
+ {
+ const Tp frac = diff / f0;
+ if (std::abs(frac) > max_abs_frac)
+ max_abs_frac = std::abs(frac);
+ }
+ }
+ VERIFY(max_abs_frac < Tp(2.5000000000000015e-12));
+ }
-int main(int, char**)
+int
+main()
{
test001<double>();
test002<double>();
@@ -457,5 +899,13 @@
test006<double>();
test007<double>();
test008<double>();
+ test009<double>();
+ test010<double>();
+ test011<double>();
+ test012<double>();
+ test013<double>();
+ test014<double>();
+ test015<double>();
+ test016<double>();
return 0;
}
Index: testsuite/util/specfun_testcase.h
===================================================================
--- testsuite/util/specfun_testcase.h (revision 0)
+++ testsuite/util/specfun_testcase.h (working copy)
@@ -0,0 +1,416 @@
+// Copyright (C) 2015 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library. This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 2, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3. If not see
+// <http://www.gnu.org/licenses/>.
+
+// testcase.h
+
+//
+// These are little PODs for special function inputs and
+// expexted results for the testsuite.
+//
+
+#ifndef _GLIBCXX_SPECFUN_TESTCASE_H
+#define _GLIBCXX_SPECFUN_TESTCASE_H
+
+// Associated Laguerre polynomials.
+template<typename _Tp>
+ struct testcase_assoc_laguerre
+ {
+ _Tp f0;
+ unsigned int n;
+ unsigned int m;
+ _Tp x;
+ _Tp f;
+ };
+
+// Associated Legendre functions.
+template<typename _Tp>
+ struct testcase_assoc_legendre
+ {
+ _Tp f0;
+ unsigned int l;
+ unsigned int m;
+ _Tp x;
+ _Tp f;
+ };
+
+// Beta function.
+template<typename _Tp>
+ struct testcase_beta
+ {
+ _Tp f0;
+ _Tp x;
+ _Tp y;
+ _Tp f;
+ };
+
+// Complete elliptic integrals of the first kind.
+template<typename _Tp>
+ struct testcase_comp_ellint_1
+ {
+ _Tp f0;
+ _Tp k;
+ _Tp f;
+ };
+
+// Complete elliptic integrals of the second kind.
+template<typename _Tp>
+ struct testcase_comp_ellint_2
+ {
+ _Tp f0;
+ _Tp k;
+ _Tp f;
+ };
+
+// Complete elliptic integrals of the third kind.
+template<typename _Tp>
+ struct testcase_comp_ellint_3
+ {
+ _Tp f0;
+ _Tp k;
+ _Tp nu;
+ _Tp f;
+ };
+
+// Confluent hypergeometric functions.
+template<typename _Tp>
+ struct testcase_conf_hyperg
+ {
+ _Tp f0;
+ _Tp a;
+ _Tp c;
+ _Tp x;
+ _Tp f;
+ };
+
+// Generic cylindrical Bessel functions.
+template<typename _Tp>
+ struct testcase_cyl_bessel
+ {
+ _Tp f0;
+ _Tp nu;
+ _Tp x;
+ _Tp f;
+ };
+
+// Regular modified cylindrical Bessel functions.
+template<typename _Tp>
+ struct testcase_cyl_bessel_i
+ {
+ _Tp f0;
+ _Tp nu;
+ _Tp x;
+ _Tp f;
+ };
+
+// Cylindrical Bessel functions (of the first kind).
+template<typename _Tp>
+ struct testcase_cyl_bessel_j
+ {
+ _Tp f0;
+ _Tp nu;
+ _Tp x;
+ _Tp f;
+ };
+
+// Irregular modified cylindrical Bessel functions.
+template<typename _Tp>
+ struct testcase_cyl_bessel_k
+ {
+ _Tp f0;
+ _Tp nu;
+ _Tp x;
+ _Tp f;
+ };
+
+// Cylindrical Neumann functions.
+template<typename _Tp>
+ struct testcase_cyl_neumann
+ {
+ _Tp f0;
+ _Tp nu;
+ _Tp x;
+ _Tp f;
+ };
+
+// Elliptic integrals of the first kind.
+template<typename _Tp>
+ struct testcase_ellint_1
+ {
+ _Tp f0;
+ _Tp k;
+ _Tp phi;
+ _Tp f;
+ };
+
+// Elliptic integrals of the second kind.
+template<typename _Tp>
+ struct testcase_ellint_2
+ {
+ _Tp f0;
+ _Tp k;
+ _Tp phi;
+ _Tp f;
+ };
+
+// Elliptic integrals of the third kind.
+template<typename _Tp>
+ struct testcase_ellint_3
+ {
+ _Tp f0;
+ _Tp k;
+ _Tp nu;
+ _Tp phi;
+ _Tp f;
+ };
+
+// Exponential integral.
+template<typename _Tp>
+ struct testcase_expint
+ {
+ _Tp f0;
+ _Tp x;
+ _Tp f;
+ };
+
+// Hermite polynomials
+template<typename _Tp>
+ struct testcase_hermite
+ {
+ _Tp f0;
+ unsigned int n;
+ _Tp x;
+ _Tp f;
+ };
+
+// Hypergeometric functions.
+template<typename _Tp>
+ struct testcase_hyperg
+ {
+ _Tp f0;
+ _Tp a;
+ _Tp b;
+ _Tp c;
+ _Tp x;
+ _Tp f;
+ };
+
+// Laguerre polynomials.
+template<typename _Tp>
+ struct testcase_laguerre
+ {
+ _Tp f0;
+ unsigned int n;
+ _Tp x;
+ _Tp f;
+ };
+
+// Legendre polynomials.
+template<typename _Tp>
+ struct testcase_legendre
+ {
+ _Tp f0;
+ unsigned int l;
+ _Tp x;
+ _Tp f;
+ };
+
+// Riemann zeta function.
+template<typename _Tp>
+ struct testcase_riemann_zeta
+ {
+ _Tp f0;
+ _Tp s;
+ _Tp f;
+ };
+
+// Hurwitz zeta function.
+template<typename _Tp>
+ struct testcase_hurwitz_zeta
+ {
+ _Tp f0;
+ _Tp s;
+ _Tp a;
+ _Tp f;
+ };
+
+// Spherical Bessel functions.
+template<typename _Tp>
+ struct testcase_sph_bessel
+ {
+ _Tp f0;
+ unsigned int n;
+ _Tp x;
+ _Tp f;
+ };
+
+// Regular modified spherical Bessel functions.
+template<typename _Tp>
+ struct testcase_sph_bessel_i
+ {
+ _Tp f0;
+ unsigned int n;
+ _Tp x;
+ _Tp f;
+ };
+
+// Irregular modified spherical Bessel functions.
+template<typename _Tp>
+ struct testcase_sph_bessel_k
+ {
+ _Tp f0;
+ unsigned int n;
+ _Tp x;
+ _Tp f;
+ };
+
+// Spherical Legendre functions.
+template<typename _Tp>
+ struct testcase_sph_legendre
+ {
+ _Tp f0;
+ unsigned int l;
+ unsigned int m;
+ _Tp theta;
+ _Tp f;
+ };
+
+// Spherical Neumann functions.
+template<typename _Tp>
+ struct testcase_sph_neumann
+ {
+ _Tp f0;
+ unsigned int n;
+ _Tp x;
+ _Tp f;
+ };
+
+// Airy Ai functions.
+template<typename _Tp>
+ struct testcase_airy_ai
+ {
+ _Tp f0;
+ _Tp x;
+ _Tp f;
+ };
+
+// Airy Bi functions.
+template<typename _Tp>
+ struct testcase_airy_bi
+ {
+ _Tp f0;
+ _Tp x;
+ _Tp f;
+ };
+
+// Upper incomplete gamma functions.
+template<typename _Tp>
+ struct testcase_gamma_u
+ {
+ _Tp f0;
+ _Tp n;
+ _Tp x;
+ _Tp f;
+ };
+
+// Lower incomplete gamma functions.
+template<typename _Tp>
+ struct testcase_gamma_l
+ {
+ _Tp f0;
+ _Tp n;
+ _Tp x;
+ _Tp f;
+ };
+
+// Dilogarithm functions.
+template<typename _Tp>
+ struct testcase_dilog
+ {
+ _Tp f0;
+ _Tp x;
+ _Tp f;
+ };
+
+// Digamma functions.
+template<typename _Tp>
+ struct testcase_gamma
+ {
+ _Tp f0;
+ _Tp x;
+ _Tp f;
+ };
+
+template<typename _Tp>
+ struct testcase_comp_ellint_rf
+ {
+ _Tp f0;
+ _Tp x;
+ _Tp y;
+ _Tp f;
+ };
+
+template<typename _Tp>
+ struct testcase_ellint_rf
+ {
+ _Tp f0;
+ _Tp x;
+ _Tp y;
+ _Tp z;
+ _Tp f;
+ };
+
+template<typename _Tp>
+ struct testcase_ellint_rj
+ {
+ _Tp f0;
+ _Tp x;
+ _Tp y;
+ _Tp z;
+ _Tp p;
+ _Tp f;
+ };
+
+template<typename _Tp>
+ struct testcase_ellint_rd
+ {
+ _Tp f0;
+ _Tp x;
+ _Tp y;
+ _Tp z;
+ _Tp f;
+ };
+
+template<typename _Tp>
+ struct testcase_comp_ellint_rg
+ {
+ _Tp f0;
+ _Tp x;
+ _Tp y;
+ _Tp f;
+ };
+
+template<typename _Tp>
+ struct testcase_ellint_rg
+ {
+ _Tp f0;
+ _Tp x;
+ _Tp y;
+ _Tp z;
+ _Tp f;
+ };
+
+#endif // _GLIBCXX_SPECFUN_TESTCASE_H
-------------- next part --------------
2016-01-08 Edward Smith-Rowland <3dw4rd@verizon.net>
Jonathan Wakely <jwakely@redhat.com>
Florian Goth <CaptainSifff@gmx.de>
* include/Makefile.am: Add new headers.
* include/Makefile.in: Regenerate.
* include/bits/specfun.h: New.
* include/c_global/cmath: Adjust for both tr1 and tr29124 maths.
* include/tr1/bessel_function.tcc: Ditto.
* include/tr1/beta_function.tcc: Ditto.
* include/tr1/cmath: Ditto.
* include/tr1/ell_integral.tcc: Ditto.
* include/tr1/exp_integral.tcc: Ditto.
* include/tr1/gamma.tcc: Ditto.
* include/tr1/hypergeometric.tcc: Ditto.
* include/tr1/legendre_function.tcc: Ditto.
* include/tr1/modified_bessel_func.tcc: Ditto.
* include/tr1/poly_hermite.tcc: Ditto.
* include/tr1/poly_laguerre.tcc: Ditto.
* include/tr1/riemann_zeta.tcc: Ditto.
* include/tr1/special_function_util.h: Ditto.
* testsuite/ext/special_functions/conf_hyperg: New.
* testsuite/ext/special_functions/conf_hyperg/check_nan.cc: New.
* testsuite/ext/special_functions/conf_hyperg/check_value.cc: New.
* testsuite/ext/special_functions/conf_hyperg/compile.cc: New.
* testsuite/ext/special_functions/hyperg: New.
* testsuite/ext/special_functions/hyperg/check_nan.cc: New.
* testsuite/ext/special_functions/hyperg/check_value.cc: New.
* testsuite/ext/special_functions/hyperg/compile.cc: New.
* testsuite/libstdc++-dg/conformance.exp: Add special_functions directory.
* testsuite/special_functions/01_assoc_laguerre/check_nan.cc: New.
* testsuite/special_functions/01_assoc_laguerre/check_value.cc: New.
* testsuite/special_functions/01_assoc_laguerre/compile.cc: New.
* testsuite/special_functions/01_assoc_laguerre/compile_2.cc: New.
* testsuite/special_functions/02_assoc_legendre/check_nan.cc: New.
* testsuite/special_functions/02_assoc_legendre/check_value.cc: New.
* testsuite/special_functions/02_assoc_legendre/compile.cc: New.
* testsuite/special_functions/02_assoc_legendre/compile_2.cc: New.
* testsuite/special_functions/03_beta/check_nan.cc: New.
* testsuite/special_functions/03_beta/check_value.cc: New.
* testsuite/special_functions/03_beta/compile.cc: New.
* testsuite/special_functions/03_beta/compile_2.cc: New.
* testsuite/special_functions/04_comp_ellint_1/check_nan.cc: New.
* testsuite/special_functions/04_comp_ellint_1/check_value.cc: New.
* testsuite/special_functions/04_comp_ellint_1/compile.cc: New.
* testsuite/special_functions/04_comp_ellint_1/compile_2.cc: New.
* testsuite/special_functions/05_comp_ellint_2/check_nan.cc: New.
* testsuite/special_functions/05_comp_ellint_2/check_value.cc: New.
* testsuite/special_functions/05_comp_ellint_2/compile.cc: New.
* testsuite/special_functions/05_comp_ellint_2/compile_2.cc: New.
* testsuite/special_functions/06_comp_ellint_3/check_nan.cc: New.
* testsuite/special_functions/06_comp_ellint_3/check_value.cc: New.
* testsuite/special_functions/06_comp_ellint_3/compile.cc: New.
* testsuite/special_functions/06_comp_ellint_3/compile_2.cc: New.
* testsuite/special_functions/07_cyl_bessel_i/check_nan.cc: New.
* testsuite/special_functions/07_cyl_bessel_i/check_value.cc: New.
* testsuite/special_functions/07_cyl_bessel_i/compile.cc: New.
* testsuite/special_functions/07_cyl_bessel_i/compile_2.cc: New.
* testsuite/special_functions/07_cyl_bessel_i/pr56216.cc: New.
* testsuite/special_functions/08_cyl_bessel_j/check_nan.cc: New.
* testsuite/special_functions/08_cyl_bessel_j/check_value.cc: New.
* testsuite/special_functions/08_cyl_bessel_j/compile.cc: New.
* testsuite/special_functions/08_cyl_bessel_j/compile_2.cc: New.
* testsuite/special_functions/09_cyl_bessel_k/check_nan.cc: New.
* testsuite/special_functions/09_cyl_bessel_k/check_value.cc: New.
* testsuite/special_functions/09_cyl_bessel_k/compile.cc: New.
* testsuite/special_functions/09_cyl_bessel_k/compile_2.cc: New.
* testsuite/special_functions/10_cyl_neumann/check_nan.cc: New.
* testsuite/special_functions/10_cyl_neumann/check_value.cc: New.
* testsuite/special_functions/10_cyl_neumann/compile.cc: New.
* testsuite/special_functions/10_cyl_neumann/compile_2.cc: New.
* testsuite/special_functions/11_ellint_1/check_nan.cc: New.
* testsuite/special_functions/11_ellint_1/check_value.cc: New.
* testsuite/special_functions/11_ellint_1/compile.cc: New.
* testsuite/special_functions/11_ellint_1/compile_2.cc: New.
* testsuite/special_functions/12_ellint_2/check_nan.cc: New.
* testsuite/special_functions/12_ellint_2/check_value.cc: New.
* testsuite/special_functions/12_ellint_2/compile.cc: New.
* testsuite/special_functions/12_ellint_2/compile_2.cc: New.
* testsuite/special_functions/13_ellint_3/check_nan.cc: New.
* testsuite/special_functions/13_ellint_3/check_value.cc: New.
* testsuite/special_functions/13_ellint_3/compile.cc: New.
* testsuite/special_functions/13_ellint_3/compile_2.cc: New.
* testsuite/special_functions/14_expint/check_nan.cc: New.
* testsuite/special_functions/14_expint/check_value.cc: New.
* testsuite/special_functions/14_expint/compile.cc: New.
* testsuite/special_functions/14_expint/compile_2.cc: New.
* testsuite/special_functions/15_hermite/check_nan.cc: New.
* testsuite/special_functions/15_hermite/check_value.cc: New.
* testsuite/special_functions/15_hermite/compile.cc: New.
* testsuite/special_functions/15_hermite/compile_2.cc: New.
* testsuite/special_functions/16_laguerre/check_nan.cc: New.
* testsuite/special_functions/16_laguerre/check_value.cc: New.
* testsuite/special_functions/16_laguerre/compile.cc: New.
* testsuite/special_functions/16_laguerre/compile_2.cc: New.
* testsuite/special_functions/17_legendre/check_nan.cc: New.
* testsuite/special_functions/17_legendre/check_value.cc: New.
* testsuite/special_functions/17_legendre/compile.cc: New.
* testsuite/special_functions/17_legendre/compile_2.cc: New.
* testsuite/special_functions/18_riemann_zeta/check_nan.cc: New.
* testsuite/special_functions/18_riemann_zeta/check_value.cc: New.
* testsuite/special_functions/18_riemann_zeta/compile.cc: New.
* testsuite/special_functions/18_riemann_zeta/compile_2.cc: New.
* testsuite/special_functions/19_sph_bessel/check_nan.cc: New.
* testsuite/special_functions/19_sph_bessel/check_value.cc: New.
* testsuite/special_functions/19_sph_bessel/compile.cc: New.
* testsuite/special_functions/19_sph_bessel/compile_2.cc: New.
* testsuite/special_functions/20_sph_legendre/check_nan.cc: New.
* testsuite/special_functions/20_sph_legendre/check_value.cc: New.
* testsuite/special_functions/20_sph_legendre/compile.cc: New.
* testsuite/special_functions/20_sph_legendre/compile_2.cc: New.
* testsuite/special_functions/21_sph_neumann/check_nan.cc: New.
* testsuite/special_functions/21_sph_neumann/check_value.cc: New.
* testsuite/special_functions/21_sph_neumann/compile.cc: New.
* testsuite/special_functions/21_sph_neumann/compile_2.cc: New.
* testsuite/util/specfun_testcase.h: New.
* testsuite/tr1/5_numerical_facilities/special_functions/08_cyl_bessel_i/check_value.cc: More testcases.
* testsuite/tr1/5_numerical_facilities/special_functions/09_cyl_bessel_j/check_value.cc: Ditto.
* testsuite/tr1/5_numerical_facilities/special_functions/10_cyl_bessel_k/check_value.cc: Ditto.
* testsuite/tr1/5_numerical_facilities/special_functions/11_cyl_neumann/check_value.cc: Ditto.
* testsuite/tr1/5_numerical_facilities/special_functions/21_sph_bessel/check_value.cc: Ditto.
* testsuite/tr1/5_numerical_facilities/special_functions/23_sph_neumann/check_value.cc: Ditto.
* testsuite/tr1/5_numerical_facilities/special_functions/16_hermite/check_value.cc: New.
More information about the Libstdc++
mailing list