2006-04-25 Bruno Haible <bruno@clisp.org>

[cln.git] / src / float / transcendental / cl_F_sinh.cc

diff --git a/src/float/transcendental/cl_F_sinh.cc b/src/float/transcendental/cl_F_sinh.cc
index 25ae007784eedc4eee842757f6aa355b266f6567..b1f0bfcece3aeec95d0c658f0eff8e3273263b13 100644 (file)
--- a/src/float/transcendental/cl_F_sinh.cc
+++ b/src/float/transcendental/cl_F_sinh.cc
@@ -4,16 +4,18 @@
 #include "cl_sysdep.h"
 
 // Specification.
-#include "cl_float.h"
+#include "cln/float.h"
 
 
 // Implementation.
 
 #include "cl_F_tran.h"
 #include "cl_F.h"
-#include "cl_lfloat.h"
+#include "cln/lfloat.h"
 #include "cl_LF.h"
 
+namespace cln {
+
 const cl_F sinh (const cl_F& x)
 {
 // Methode:
@@ -31,11 +33,11 @@ const cl_F sinh (const cl_F& x)
                        if (TheLfloat(x)->len >= infty) {
                                var cl_LF xx = extend(x,TheLfloat(x)->len+1);
                                var cl_LF_cosh_sinh_t hyp = cl_coshsinh_ratseries(xx);
-                               return cl_float(hyp.sinh,x);
+                               return cln/float.hyp.sinh,x);
                        } else
                        #endif
                        if ((TheLfloat(x)->len >= 500)
-                           && (float_exponent(x) > (-(sintL)float_digits(x))>>1)) {
+                           && (float_exponent(x) > (-(sintC)float_digits(x))>>1)) {
                                // verwende exp(x), schneller als cl_coshsinh_ratseries
                                // (aber nur bei 0 > e > -d/2, denn wir müssen, um
                                // Auslöschung zu verhindern, |e| Bits dazunehmen)
@@ -75,3 +77,5 @@ const cl_F sinh (const cl_F& x)
 // 1000    59      61
 // 2500   297     247
 // ==> ratseries faster for N >= 1300.
+
+}  // namespace cln