source: trunk/libs/newlib/src/newlib/libm/complex/creal.c @ 452

Last change on this file since 452 was 444, checked in by satin@…, 6 years ago

add newlib,libalmos-mkh, restructure shared_syscalls.h and mini-libc
File size: 1.2 KB
Line 
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/*
12FUNCTION
13        <<creal>>, <<crealf>>, <<creall>>---real part
14
15INDEX
16        creal
17INDEX
18        crealf
19INDEX
20        creall
21
22SYNOPSIS
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       
29DESCRIPTION
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
38RETURNS
39        The creal* functions return the real part value.
40
41PORTABILITY
42        <<creal>>, <<crealf>> and <<creall>> are ISO C99
43
44QUICKREF
45        <<creal>>, <<crealf>> and <<creall>> are ISO C99
46
47*/
48
49
50#include <complex.h>
51#include "../common/fdlibm.h"
52
53double
54creal(double complex z)
55{
56        double_complex w = { .z = z };
57
58        return (REAL_PART(w));
59}
Note: See TracBrowser for help on using the repository browser.