157 static const double zero=  0.00000000000000000000e+00;  variable
167 	if(ix<0x3fd00000) return __kernel_sin(pi*x,zero,0);  in sin_pi()
181                 y = zero; n = 0;                 /* y must be even */  in sin_pi()
191 	    case 0:   y =  __kernel_sin(pi*y,zero,0); break;  in sin_pi()
193 	    case 2:   y =  __kernel_cos(pi*(0.5-y),zero); break;  in sin_pi()
195 	    case 4:   y =  __kernel_sin(pi*(one-y),zero,0); break;  in sin_pi()
197 	    case 6:   y = -__kernel_cos(pi*(y-1.5),zero); break;  in sin_pi()
198 	    default:  y =  __kernel_sin(pi*(y-2.0),zero,0); break;  in sin_pi()
216 	if((ix|lx)==0) return one/zero;  in __ieee754_lgamma_r()
225 		return one/zero;  in __ieee754_lgamma_r()
227 	    if(t==zero) return one/zero; /* -integer */  in __ieee754_lgamma_r()
229 	    if(t<zero) *signgamp = -1;  in __ieee754_lgamma_r()
243 	  	r = zero;  in __ieee754_lgamma_r()
271 	    t = zero;  in __ieee754_lgamma_r()