lang/fortran/lib/libF77/z_exp.c

   1 #include "f2c.h"
   2
   3 VOID z_exp(r, z)
   4 doublecomplex *r, *z;
   5 {
   6 double expx;
   7 double exp(), cos(), sin();
   8
   9 expx = exp(z->r);
  10 r->r = expx * cos(z->i);
  11 r->i = expx * sin(z->i);
  12 }