diff options
Diffstat (limited to 'contrib/libf2c/libF77/c_sqrt.c')
| -rw-r--r-- | contrib/libf2c/libF77/c_sqrt.c | 47 |
1 files changed, 25 insertions, 22 deletions
diff --git a/contrib/libf2c/libF77/c_sqrt.c b/contrib/libf2c/libF77/c_sqrt.c index 8481ee4857e00..775977a87f7b3 100644 --- a/contrib/libf2c/libF77/c_sqrt.c +++ b/contrib/libf2c/libF77/c_sqrt.c @@ -3,33 +3,36 @@ #ifdef KR_headers extern double sqrt(), f__cabs(); -VOID c_sqrt(r, z) complex *r, *z; +VOID c_sqrt(resx, z) complex *resx, *z; #else #undef abs -#include "math.h" +#include <math.h> extern double f__cabs(double, double); -void c_sqrt(complex *r, complex *z) +void c_sqrt(complex *resx, complex *z) #endif { - double mag, t; - double zi = z->i, zr = z->r; +double mag, t; +complex res; - if( (mag = f__cabs(zr, zi)) == 0.) - r->r = r->i = 0.; - else if(zr > 0) - { - r->r = t = sqrt(0.5 * (mag + zr) ); - t = zi / t; - r->i = 0.5 * t; - } - else - { - t = sqrt(0.5 * (mag - zr) ); - if(zi < 0) - t = -t; - r->i = t; - t = zi / t; - r->r = 0.5 * t; - } +if( (mag = f__cabs(z->r, z->i)) == 0.) + res.r = res.i = 0.; +else if(z->r > 0) + { + res.r = t = sqrt(0.5 * (mag + z->r) ); + t = z->i / t; + res.i = 0.5 * t; } +else + { + t = sqrt(0.5 * (mag - z->r) ); + if(z->i < 0) + t = -t; + res.i = t; + t = z->i / t; + res.r = 0.5 * t; + } + +resx->r = res.r; +resx->i = res.i; +} |