__kernel_cosl
case 2: y = __kernel_cosl(pi*(0.5-y),zero); break;
case 6: y = -__kernel_cosl(pi*(y-1.5),zero); break;
return (__kernel_cosl(hi, lo));
case 2: y = __kernel_cosl(pi*(0.5-y),zero); break;
case 6: y = -__kernel_cosl(pi*(y-1.5),zero); break;
return (__kernel_cosl(hi, lo));
long double __kernel_cosl(long double, long double);
RETURNI(__kernel_cosl(z.e, 0));
hi = __kernel_cosl(hi, lo);
hi = - __kernel_cosl(hi, lo);
hi = __kernel_cosl(hi, lo);
hi = - __kernel_cosl(hi, lo);