4 #include "base/cl_sysdep.h"
12 #include "cln/rational.h"
13 #include "cln/float.h"
17 CL_INLINE const cl_R CL_INLINE_DECL(sqrt) (const cl_RA& x)
20 if (sqrtp(x,&w)) // auf Quadrat testen
21 return w; // war Quadrat, w ist die Wurzel
23 // x in Float umwandeln, dann die Wurzel ziehen:
24 return sqrt(cl_float(x));