libf2c/libF77/z_sqrt.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

#include "f2c.h"

#undef abs
#include "math.h"
extern double f__cabs (double, double);
void
z_sqrt (doublecomplex * r, doublecomplex * z)
{
  double mag, zi = z->i, zr = z->r;

  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;
    }
}