ulps: Fix long lines
[mathlib.git] / ulps / basic-complex.c
1 #include "basic-complex.h"
2
3 /*******************************************************************************
4  *      Basic arithmetic of complex numbers (double precision)
5  ******************************************************************************/
6 double complex
7 cadd(double complex z, double complex w)
8 {
9         return (z+w);
10 }
11
12 double complex
13 csub(double complex z, double complex w)
14 {
15         return (z-w);
16 }
17
18 double complex
19 cmul(double complex z, double complex w)
20 {
21         return (z*w);
22 }
23
24 double complex
25 cdiv(double complex z, double complex w)
26 {
27         return (z/w);
28 }
29
30 double complex
31 cneg(double complex z)
32 {
33         return (-z);
34 }
35
36 /*******************************************************************************
37  *      Basic arithmetic of complex numbers (long double precision)
38  ******************************************************************************/
39 long double complex
40 caddl(long double complex z, long double complex w)
41 {
42         return (z+w);
43 }
44
45 long double complex
46 csubl(long double complex z, long double complex w)
47 {
48         return (z-w);
49 }
50
51 long double complex
52 cmull(long double complex z, long double complex w)
53 {
54         return (z*w);
55 }
56
57 long double complex
58 cdivl(long double complex z, long double complex w)
59 {
60         return (z/w);
61 }
62
63 long double complex
64 cnegl(long double complex z)
65 {
66         return (-z);
67 }