expf
float expf(float);
extern float expf(float);
t = expf(x) * half;
F_RE(ans) = expf(x);
t = expf(x);
t = expf(x) * half;
F_IM(ans) = S * expf(-x); /* underflow */
F_IM(ans) = (S + S) * expf(-(x + x));