* All Files have been modified for inclusion of namespace cln;

[cln.git] / src / complex / transcendental / cl_C_tan.cc

diff --git a/src/complex/transcendental/cl_C_tan.cc b/src/complex/transcendental/cl_C_tan.cc
index 412f3b41c74b4a865ac4ee6d8bdc6cb5b6b10aee..52aff8554ec6757e7ec4b721f98535ac3fb2ddbc 100644 (file)
--- a/src/complex/transcendental/cl_C_tan.cc
+++ b/src/complex/transcendental/cl_C_tan.cc
@@ -4,13 +4,15 @@
 #include "cl_sysdep.h"
 
 // Specification.
-#include "cl_complex.h"
+#include "cln/complex.h"
 
 
 // Implementation.
 
 #include "cl_C.h"
-#include "cl_real.h"
+#include "cln/real.h"
+
+namespace cln {
 
 const cl_N tan (const cl_N& x)
 {
@@ -20,15 +22,15 @@ const cl_N tan (const cl_N& x)
 //                (complex (* (cos a) (cosh b)) (- (* (sin a) (sinh b)))) )
        if (realp(x)) {
                DeclareType(cl_R,x);
-               var cl_cos_sin_t trig = cl_cos_sin(x);
+               var cos_sin_t trig = cos_sin(x);
                return trig.sin / trig.cos;
        } else {
                DeclareType(cl_C,x);
                // x=a+bi
                var const cl_R& a = realpart(x);
                var const cl_R& b = imagpart(x);
-               var cl_cosh_sinh_t hyp_b = cl_cosh_sinh(b); // cosh(b), sinh(b) errechnen
-               var cl_cos_sin_t trig_a = cl_cos_sin(a); // cos(a), sin(a) errechnen
+               var cosh_sinh_t hyp_b = cosh_sinh(b); // cosh(b), sinh(b) errechnen
+               var cos_sin_t trig_a = cos_sin(a); // cos(a), sin(a) errechnen
                return
                        complex_C(trig_a.sin * hyp_b.cosh, // sin(a)*cosh(b)
                                  trig_a.cos * hyp_b.sinh // cos(a)*sinh(b), nicht Fixnum 0
@@ -38,3 +40,5 @@ const cl_N tan (const cl_N& x)
                               );
        }
 }
+
+}  // namespace cln