newlib/libm/complex/conj.c

   1 /* $NetBSD: conj.c,v 1.2 2010/09/15 16:11:29 christos Exp $ */
   2
   3 /*
   4  * Written by Matthias Drochner <drochner@NetBSD.org>.
   5  * Public domain.
   6  *
   7  * imported and modified include for newlib 2010/10/03
   8  * Marco Atzeri <marco_atzeri@yahoo.it>
   9  */
  10
  11 #include <complex.h>
  12 #include "../common/fdlibm.h"
  13
  14 double complex
  15 conj(double complex z)
  16 {
  17         double_complex w = { .z = z };
  18
  19         IMAG_PART(w) = -IMAG_PART(w);
  20
  21         return (w.z);
  22 }