__k_clog_r
extern double __k_clog_r __P((double, double, double *));
D_RE(ans) = __k_clog_r(ax, ay, &w);
t1 = __k_clog_r(x, y, &t2);