293 	double z,fw,f[20],fq[20],q[20];  in __kernel_rem_pio2()  local
310 	    for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j]; q[i] = fw;  in __kernel_rem_pio2()
317 	    fw    =  (double)((int32_t)(twon24* z));  in __kernel_rem_pio2()
318 	    iq[i] =  (int32_t)(z-two24*fw);  in __kernel_rem_pio2()
319 	    z     =  q[j-1]+fw;  in __kernel_rem_pio2()
369 		    for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j];  in __kernel_rem_pio2()
370 		    q[i] = fw;  in __kernel_rem_pio2()
384 		fw = (double)((int32_t)(twon24*z));  in __kernel_rem_pio2()
385 		iq[jz] = (int32_t)(z-two24*fw);  in __kernel_rem_pio2()
387 		iq[jz] = (int32_t) fw;  in __kernel_rem_pio2()
392 	fw = scalbn(one,q0);  in __kernel_rem_pio2()
394 	    q[i] = fw*(double)iq[i]; fw*=twon24;  in __kernel_rem_pio2()
399 	    for(fw=0.0,k=0;k<=jp&&k<=jz-i;k++) fw += PIo2[k]*q[i+k];  in __kernel_rem_pio2()
400 	    fq[jz-i] = fw;  in __kernel_rem_pio2()
406 		fw = 0.0;  in __kernel_rem_pio2()
407 		for (i=jz;i>=0;i--) fw += fq[i];  in __kernel_rem_pio2()
408 		y[0] = (ih==0)? fw: -fw;   in __kernel_rem_pio2()
412 		fw = 0.0;  in __kernel_rem_pio2()
413 		for (i=jz;i>=0;i--) fw += fq[i];   in __kernel_rem_pio2()
414 		STRICT_ASSIGN(double,fw,fw);  in __kernel_rem_pio2()
415 		y[0] = (ih==0)? fw: -fw;   in __kernel_rem_pio2()
416 		fw = fq[0]-fw;  in __kernel_rem_pio2()
417 		for (i=1;i<=jz;i++) fw += fq[i];  in __kernel_rem_pio2()
418 		y[1] = (ih==0)? fw: -fw;   in __kernel_rem_pio2()
422 		    fw      = fq[i-1]+fq[i];   in __kernel_rem_pio2()
423 		    fq[i]  += fq[i-1]-fw;  in __kernel_rem_pio2()
424 		    fq[i-1] = fw;  in __kernel_rem_pio2()
427 		    fw      = fq[i-1]+fq[i];   in __kernel_rem_pio2()
428 		    fq[i]  += fq[i-1]-fw;  in __kernel_rem_pio2()
429 		    fq[i-1] = fw;  in __kernel_rem_pio2()
431 		for (fw=0.0,i=jz;i>=2;i--) fw += fq[i];   in __kernel_rem_pio2()
433 		    y[0] =  fq[0]; y[1] =  fq[1]; y[2] =  fw;  in __kernel_rem_pio2()
435 		    y[0] = -fq[0]; y[1] = -fq[1]; y[2] = -fw;  in __kernel_rem_pio2()