Cross Reference: /src/lib/libm/complex/crealf.c

crealf.c revision 1.1

      1 /* $NetBSD: crealf.c,v 1.1 2007/08/20 16:01:36 drochner Exp $ */
      2 
      3 /*
      4  * Written by Matthias Drochner <drochner (at) NetBSD.org>.
      5  * Public domain.
      6  */
      7 
      8 #include <complex.h>
      9 
     10 float
     11 crealf(float complex z)
     12 {
     13 
     14 	return __real__ z;
     15 }
     16