gonzui

t2ex

bsd_source/lib/libc/src_bsd/complex/s_ccos.c - 2.3KB - 97 lines

84: 
85:         _cchsh( cimag(z), &ch, &sh );
86:         w = cos(creal (z)) * ch - (sin (creal (z)) * sh) * I;