diff options
| author | torset | 2009-01-06 15:34:54 +0000 |
|---|---|---|
| committer | torset | 2009-01-06 15:34:54 +0000 |
| commit | 1e3fb075853b2455eecfe45e5f48d3b78f8eecbe (patch) | |
| tree | 53b352b71c31f49b86dd5034c94322d3f951cbad /src/elementaryFunctions/sqrt | |
| parent | cf49419df0782a016c11642d3c6ca804b769322a (diff) | |
| download | scilab2c-1e3fb075853b2455eecfe45e5f48d3b78f8eecbe.tar.gz scilab2c-1e3fb075853b2455eecfe45e5f48d3b78f8eecbe.tar.bz2 scilab2c-1e3fb075853b2455eecfe45e5f48d3b78f8eecbe.zip | |
fix bug in sqrt
Diffstat (limited to 'src/elementaryFunctions/sqrt')
| -rw-r--r-- | src/elementaryFunctions/sqrt/csqrts.c | 2 | ||||
| -rw-r--r-- | src/elementaryFunctions/sqrt/zsqrts.c | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/elementaryFunctions/sqrt/csqrts.c b/src/elementaryFunctions/sqrt/csqrts.c index da7000e8..f06d2dd1 100644 --- a/src/elementaryFunctions/sqrt/csqrts.c +++ b/src/elementaryFunctions/sqrt/csqrts.c @@ -66,7 +66,7 @@ floatComplex csqrts(floatComplex in) { else { RealOut = sabss(ImgIn) / Temp; - ImgOut = _sign(0.5f, ImgIn) * Temp; + ImgOut = (_sign(0.5f, ImgIn)) * Temp; } } else diff --git a/src/elementaryFunctions/sqrt/zsqrts.c b/src/elementaryFunctions/sqrt/zsqrts.c index 357a752e..bdfc7a49 100644 --- a/src/elementaryFunctions/sqrt/zsqrts.c +++ b/src/elementaryFunctions/sqrt/zsqrts.c @@ -9,7 +9,7 @@ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt * */ - +#include <stdio.h> #include <math.h> #include "sqrt.h" #include "lapack.h" @@ -66,7 +66,7 @@ doubleComplex zsqrts(doubleComplex in) { else { RealOut = dabss(ImgIn) / Temp; - ImgOut = _sign(0.5, ImgIn) * Temp; + ImgOut = (_sign(0.5, ImgIn)) * Temp; } } else |