ulps/basic-complex.c

   1 #include "basic-complex.h"
   2
   3 /*******************************************************************************
   4  *      Basic arithmetic of complex numbers (double precision)
   5  ******************************************************************************/
   6 double complex
   7 cadd(double complex z, double complex w)
   8 {
   9         return (z+w);
  10 }
  11
  12 double complex
  13 csub(double complex z, double complex w)
  14 {
  15         return (z-w);
  16 }
  17
  18 double complex
  19 cmul(double complex z, double complex w)
  20 {
  21         return (z*w);
  22 }
  23
  24 double complex
  25 cdiv(double complex z, double complex w)
  26 {
  27         return (z/w);
  28 }
  29
  30 double complex
  31 cneg(double complex z)
  32 {
  33         return (-z);
  34 }
  35
  36 /*******************************************************************************
  37  *      Basic arithmetic of complex numbers (long double precision)
  38  ******************************************************************************/
  39 long double complex
  40 caddl(long double complex z, long double complex w)
  41 {
  42         return (z+w);
  43 }
  44
  45 long double complex
  46 csubl(long double complex z, long double complex w)
  47 {
  48         return (z-w);
  49 }
  50
  51 long double complex
  52 cmull(long double complex z, long double complex w)
  53 {
  54         return (z*w);
  55 }
  56
  57 long double complex
  58 cdivl(long double complex z, long double complex w)
  59 {
  60         return (z/w);
  61 }
  62
  63 long double complex
  64 cnegl(long double complex z)
  65 {
  66         return (-z);
  67 }