xref: /netbsd-src/lib/libm/complex/creal.c (revision e2a86dd3c762a96a961865112d4d0ded4715375a) 
1*e2a86dd3Schristos /* $NetBSD: creal.c,v 1.2 2010/09/15 16:11:29 christos Exp $ */
29d8b5fa7Sdrochner 
39d8b5fa7Sdrochner /*
49d8b5fa7Sdrochner  * Written by Matthias Drochner <drochner@NetBSD.org>.
59d8b5fa7Sdrochner  * Public domain.
69d8b5fa7Sdrochner  */
79d8b5fa7Sdrochner 
89d8b5fa7Sdrochner #include <complex.h>
9*e2a86dd3Schristos #include "../src/math_private.h"
109d8b5fa7Sdrochner 
119d8b5fa7Sdrochner double
creal(double complex z)129d8b5fa7Sdrochner creal(double complex z)
139d8b5fa7Sdrochner {
14*e2a86dd3Schristos 	double_complex w = { .z = z };
159d8b5fa7Sdrochner 
16*e2a86dd3Schristos 	return (REAL_PART(w));
179d8b5fa7Sdrochner }
18