complex.c

   1 #include <complex.h>
   2
   3 #define complex_wrap1(T, func) void func ## _wrap(T complex *a) { \
   4         *a = func(*a); \
   5 }
   6
   7 complex_wrap1(double, cacos)
   8 complex_wrap1(double, casin)
   9 complex_wrap1(double, catan)
  10 complex_wrap1(double, ccos)
  11 complex_wrap1(double, csin)
  12 complex_wrap1(double, ctan)
  13
  14 complex_wrap1(double, cacosh)
  15 complex_wrap1(double, casinh)
  16 complex_wrap1(double, catanh)
  17 complex_wrap1(double, ccosh)
  18 complex_wrap1(double, csinh)
  19 complex_wrap1(double, ctanh)
  20
  21 double cabs_wrap(const double complex *a)
  22 {
  23         return cabs(*a);
  24 }
  25
  26 complex_wrap1(double, cexp)
  27 complex_wrap1(double, clog)
  28
  29 complex_wrap1(double, csqrt)
  30
  31 void cpow_wrap(double complex *a, const double complex *b)
  32 {
  33         *a = cpow(*a, *b);
  34 }
  35
  36 complex_wrap1(double, cproj)
  37
  38 double carg_wrap(const double complex *a)
  39 {
  40         return carg(*a);
  41 }