diff options
| author | Szabolcs Nagy <nsz@port70.net> | 2012-11-13 01:31:49 +0100 |
|---|---|---|
| committer | Szabolcs Nagy <nsz@port70.net> | 2012-11-13 01:31:49 +0100 |
| commit | cfbaba79a2dd380e580a247b8fd36af60c878e8f (patch) | |
| tree | a002987af1ea7652985973f8db98d2d4f8b6064a /src/complex/casinl.c | |
| parent | math: raise flags in logl.c on <= 0 arguments (diff) | |
| download | grovel-cfbaba79a2dd380e580a247b8fd36af60c878e8f.tar.gz grovel-cfbaba79a2dd380e580a247b8fd36af60c878e8f.tar.xz | |
complex: add C11 CMPLX macros and replace cpack with them
Diffstat (limited to 'src/complex/casinl.c')
| -rw-r--r-- | src/complex/casinl.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/complex/casinl.c b/src/complex/casinl.c index f9aa8ded..0916c60f 100644 --- a/src/complex/casinl.c +++ b/src/complex/casinl.c @@ -14,7 +14,7 @@ long double complex casinl(long double complex z) x = creall(z); y = cimagl(z); - w = cpackl(1.0 - (x - y)*(x + y), -2.0*x*y); - return clogl(cpackl(-y, x) + csqrtl(w)); + w = CMPLXL(1.0 - (x - y)*(x + y), -2.0*x*y); + return clogl(CMPLXL(-y, x) + csqrtl(w)); } #endif |