]> www.ginac.de Git - cln.git/blobdiff - src/complex/elem/division/cl_C_FF_recip.cc
Use paths relative the `src' directory in the #include directives.
[cln.git] / src / complex / elem / division / cl_C_FF_recip.cc
index 0fe21cc10f2455baa29de8c8be8a1498565f377c..e01c65a3327d7fbad7998e94cfccbd821af313cf 100644 (file)
@@ -1,26 +1,28 @@
 // cl_C_recip().
 
 // General includes.
-#include "cl_sysdep.h"
+#include "base/cl_sysdep.h"
 
 // Specification.
-#include "cl_C.h"
+#include "complex/cl_C.h"
 
 
 // Implementation.
 
-#include "cl_ffloat.h"
-#include "cl_FF.h"
+#include "cln/ffloat.h"
+#include "float/ffloat/cl_FF.h"
+
+namespace cln {
 
 const cl_C_FF cl_C_recip (const cl_FF& a, const cl_FF& b)
 {
 //  a=0.0 -> liefere die Komponenten a=0.0 und -1/b.
 //  b=0.0 -> liefere die Komponenten 1/a und b=0.0.
 //  e:=max(exponent(a),exponent(b)).
-//  a':=a/2^e bzw. 0.0 bei Underflowmöglichkeit (beim Skalieren a':=a/2^e
+//  a':=a/2^e bzw. 0.0 bei Underflowmöglichkeit (beim Skalieren a':=a/2^e
 //      oder beim Quadrieren a'*a':  2*(e-exponent(a))>exp_mid-exp_low-1
 //      d.h. exponent(b)-exponent(a)>floor((exp_mid-exp_low-1)/2) ).
-//  b':=b/2^e bzw. 0.0 bei Underflowmöglichkeit (beim Skalieren b':=b/2^e
+//  b':=b/2^e bzw. 0.0 bei Underflowmöglichkeit (beim Skalieren b':=b/2^e
 //      oder beim Quadrieren b'*b':  2*(e-exponent(b))>exp_mid-exp_low-1
 //      d.h. exponent(a)-exponent(b)>floor((exp_mid-exp_low-1)/2) ).
 //  c':=a'*a'+b'*b',
@@ -53,3 +55,5 @@ const cl_C_FF cl_C_recip (const cl_FF& a, const cl_FF& b)
        // 2^(-e)*a'/c' + i * -2^(-e)*b'/c'
        return cl_C_FF(scale_float(na/nc,-e), scale_float(-(nb/nc),-e));
 }
+
+}  // namespace cln