contrib/gcc-3.4/libf2c/libF77/c_exp.c

   1 #include "f2c.h"
   2
   3 #undef abs
   4 #include "math.h"
   5
   6 void
   7 c_exp (complex * r, complex * z)
   8 {
   9   double expx, zi = z->i;
  10
  11   expx = exp (z->r);
  12   r->r = expx * cos (zi);
  13   r->i = expx * sin (zi);
  14 }