From 2de2aeb7deefc341569fb70e6fe193aa9db7c2cf Mon Sep 17 00:00:00 2001
From: jzmaddock <john@johnmaddock.co.uk>
Date: Mon, 20 Jul 2020 09:27:54 +0100
Subject: [PATCH] Disabled long double: fix atanh calls in ellint_3.hpp.

---
 include/boost/math/special_functions/ellint_3.hpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/include/boost/math/special_functions/ellint_3.hpp b/include/boost/math/special_functions/ellint_3.hpp
index 44c76afdf..6d03b9e7e 100644
--- a/include/boost/math/special_functions/ellint_3.hpp
+++ b/include/boost/math/special_functions/ellint_3.hpp
@@ -212,7 +212,7 @@ T ellint_pi_imp(T v, T phi, T k, T vc, const Policy& pol)
    if(k == 1)
    {
       // See http://functions.wolfram.com/08.06.03.0013.01
-      result = sqrt(v) * atanh(sqrt(v) * sin(phi)) - log(1 / cos(phi) + tan(phi));
+      result = sqrt(v) * atanh(sqrt(v) * sin(phi), pol) - log(1 / cos(phi) + tan(phi));
       result /= v - 1;
       return result;
    }