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/csin.c" #include "_tgmath.h" #include <complex.h> TYPE complex TGFN(csin)(TYPE complex z) { return TGCMPLX(0.0, -TGFN(csinh)(I * z)); } /*d The csin functions compute the complex sine of z. d*/ /*r The csin functions return the complex sine value. r*/ /* STDC(199901) LINK(m) */ #endif