newlib/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  * imported and modified include for newlib 2010/10/03
   8  * Marco Atzeri <marco_atzeri@yahoo.it>
   9  */
  10
  11 /*
  12 FUNCTION
  13         <<creal>>, <<crealf>>, <<creall>>---real part
  14
  15 INDEX
  16         creal
  17 INDEX
  18         crealf
  19 INDEX
  20         creall
  21
  22 SYNOPSIS
  23        #include <complex.h>
  24        double creal(double complex <[z]>);
  25        float crealf(float complex <[z]>);
  26        double long creall(long double complex <[z]>);
  27
  28
  29 DESCRIPTION
  30         These functions compute the real part of <[z]>.
  31
  32         <<crealf>> is identical to <<creal>>, except that it performs
  33         its calculations on <<float complex>>.
  34
  35         <<creall>> is identical to <<creal>>, except that it performs
  36         its calculations on <<long double complex>>.
  37
  38 RETURNS
  39         The creal* functions return the real part value.
  40
  41 PORTABILITY
  42         <<creal>>, <<crealf>> and <<creall>> are ISO C99
  43
  44 QUICKREF
  45         <<creal>>, <<crealf>> and <<creall>> are ISO C99
  46
  47 */
  48
  49
  50 #include <complex.h>
  51 #include "../common/fdlibm.h"
  52
  53 double
  54 creal(double complex z)
  55 {
  56         double_complex w = { .z = z };
  57
  58         return (REAL_PART(w));
  59 }