1 #include "f2c.h" 2 3 #undef abs 4 #include "math.h" 5 6 void c_exp(complex * r,complex * z)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 } 15