diff options
Diffstat (limited to 'contrib/libf2c/libF77/z_sqrt.c')
| -rw-r--r-- | contrib/libf2c/libF77/z_sqrt.c | 40 |
1 files changed, 22 insertions, 18 deletions
diff --git a/contrib/libf2c/libF77/z_sqrt.c b/contrib/libf2c/libF77/z_sqrt.c index c04e8f0a1a72..f5db56519911 100644 --- a/contrib/libf2c/libF77/z_sqrt.c +++ b/contrib/libf2c/libF77/z_sqrt.c @@ -2,28 +2,32 @@ #ifdef KR_headers double sqrt(), f__cabs(); -VOID z_sqrt(r, z) doublecomplex *r, *z; +VOID z_sqrt(resx, z) doublecomplex *resx, *z; #else #undef abs -#include "math.h" +#include <math.h> extern double f__cabs(double, double); -void z_sqrt(doublecomplex *r, doublecomplex *z) +void z_sqrt(doublecomplex *resx, doublecomplex *z) #endif { - double mag, zi = z->i, zr = z->r; +double mag; +doublecomplex res; - if( (mag = f__cabs(zr, zi)) == 0.) - r->r = r->i = 0.; - else if(zr > 0) - { - r->r = sqrt(0.5 * (mag + zr) ); - r->i = zi / r->r / 2; - } - else - { - r->i = sqrt(0.5 * (mag - zr) ); - if(zi < 0) - r->i = - r->i; - r->r = zi / r->i / 2; - } +if( (mag = f__cabs(z->r, z->i)) == 0.) + res.r = res.i = 0.; +else if(z->r > 0) + { + res.r = sqrt(0.5 * (mag + z->r) ); + res.i = z->i / res.r / 2; } +else + { + res.i = sqrt(0.5 * (mag - z->r) ); + if(z->i < 0) + res.i = - res.i; + res.r = z->i / res.i / 2; + } + +resx->r = res.r; +resx->i = res.i; +} |