__kernel_tan
double __kernel_tan(double,double,int);
return __kernel_tan(x,z,1);
return __kernel_tan(y[0],y[1],1-((n&1)<<1)); /* 1 -- n even
t = - __kernel_tan(hi, lo, -1);
t = __kernel_tan(hi, lo, 1);