OLD | NEW |
1 #include "libm.h" | 1 #include "libm.h" |
2 | 2 |
3 #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024 | 3 #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024 |
4 long double complex ctanl(long double complex z) | 4 long double complex ctanl(long double complex z) { |
5 { | 5 return ctan(z); |
6 » return ctan(z); | |
7 } | 6 } |
8 #else | 7 #else |
9 long double complex ctanl(long double complex z) | 8 long double complex ctanl(long double complex z) { |
10 { | 9 z = ctanhl(CMPLXL(-cimagl(z), creall(z))); |
11 » z = ctanhl(CMPLXL(-cimagl(z), creall(z))); | 10 return CMPLXL(cimagl(z), -creall(z)); |
12 » return CMPLXL(cimagl(z), -creall(z)); | |
13 } | 11 } |
14 #endif | 12 #endif |
OLD | NEW |