diff options
Diffstat (limited to 'lib/mlibc/options/ansi/generic/complex/cimag.c')
-rw-r--r-- | lib/mlibc/options/ansi/generic/complex/cimag.c | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/lib/mlibc/options/ansi/generic/complex/cimag.c b/lib/mlibc/options/ansi/generic/complex/cimag.c new file mode 100644 index 0000000..24619f0 --- /dev/null +++ b/lib/mlibc/options/ansi/generic/complex/cimag.c @@ -0,0 +1,54 @@ +/* $NetBSD: cimag.c,v 1.2 2010/09/15 16:11:29 christos Exp $ */ + +/* + * Written by Matthias Drochner <drochner@NetBSD.org>. + * Public domain. + * + * imported and modified include for newlib 2010/10/03 + * Marco Atzeri <marco_atzeri@yahoo.it> + */ + +/* +FUNCTION + <<cimag>>, <<cimagf>>---imaginary part + +INDEX + cimag +INDEX + cimagf + +ANSI_SYNOPSIS + #include <complex.h> + double cimag(double complex <[z]>); + float cimagf(float complex <[z]>); + + +DESCRIPTION + These functions compute the imaginary part of <[z]>. + + <<cimagf>> is identical to <<cimag>>, except that it performs + its calculations on <<floats complex>>. + +RETURNS + The cimag functions return the imaginary part value (as a real). + +PORTABILITY + <<cimag>> and <<cimagf>> are ISO C99 + +QUICKREF + <<cimag>> and <<cimagf>> are ISO C99 + +*/ + + +#include <complex.h> + +#include "fdlibm.h" + +double +cimag(double complex z) +{ + double_complex w = { .z = z }; + + return (IMAG_PART(w)); +} |