Home | History | Annotate | Line # | Download | only in complex 
      1  1.2  christos /* $NetBSD: cimagf.c,v 1.2 2010/09/15 16:11:29 christos Exp $ */
      2  1.1  drochner 
      3  1.1  drochner /*
      4  1.1  drochner  * Written by Matthias Drochner <drochner (at) NetBSD.org>.
      5  1.1  drochner  * Public domain.
      6  1.1  drochner  */
      7  1.1  drochner 
      8  1.1  drochner #include <complex.h>
      9  1.2  christos #include "../src/math_private.h"
     10  1.1  drochner 
     11  1.1  drochner float
     12  1.1  drochner cimagf(float complex z)
     13  1.1  drochner {
     14  1.2  christos 	float_complex w = { .z = z };
     15  1.1  drochner 
     16  1.2  christos 	return (IMAG_PART(w));
     17  1.1  drochner }
     18