]> www.ginac.de Git - cln.git/blob - src/float/division/cl_F_trunc22.cc
b5faa9f8f98f0e544fd322411155b93c55ca2ad9
[cln.git] / src / float / division / cl_F_trunc22.cc
1 // truncate2().
2
3 // General includes.
4 #include "cl_sysdep.h"
5
6 // Specification.
7 #include "cl_float.h"
8
9
10 // Implementation.
11
12 #include "cl_F.h"
13
14 const cl_F_div_t truncate2 (const cl_F& x, const cl_F& y)
15 {
16 // Methode:
17 // (q,r) := truncate(x/y). Liefere q und x-y*q = y*r.
18         var cl_F_div_t q_r = truncate2(x/y);
19         var cl_I& q = q_r.quotient;
20         var cl_F& r = q_r.remainder;
21         return cl_F_div_t(q,y*r);
22 }