coshl
long double coshl(long double);
extern long double coshl(long double);
extern long double coshl(long double);
extern long double coshl(long double);
LD_RE(ans) = C * coshl(x);
LD_IM(ans) = S * coshl(x);