今天我看了一下gcc-3.4.3-22.1.1的源代码，
真是受益匪浅，由于源代码里面的东西太多，
我只给出一些大家常用到的函数的源代码。
#include "f2c.h"

#undef abs
#include "math.h"
extern double f__cabs (double, double);

void  c_sqrt (complex * r, complex * z)
{
  double mag, t;
  double zi = z->i, zr = z->r;

  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-&gt;r = 0.5 * t;
    }
}

虽然不知道complex的结构，但大概可以知道sqrt的设计思路。