lib/libm/complex/creal.c

   1 /* $NetBSD: creal.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
   8 #include <complex.h>
   9 #include "../src/math_private.h"
  10
  11 double
  12 creal(double complex z)
  13 {
  14         double_complex w = { .z = z };
  15
  16         return (REAL_PART(w));
  17 }