blob: 668de7e8ada85ae2f07c4dcae84f56490806413e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#if 0
# define TGSOURCE "complex/ctan.c"
#include "_tgmath.h"
#include <complex.h>
TYPE complex TGFN(ctan)(TYPE complex z)
{
return TGCMPLX(0.0, -TGFN(ctanh)(I * z));
}
/*d
The ctan functions compute the complex tangent of z.
d*/
/*r
The ctan functions return the complex tangent value.
r*/
/*
STDC(199901)
LINK(m)
*/
#endif
|
