249   long double R, S, P, Q, s, y, z, r;  in erfl()  local
274       s = qq[0] + z * (qq[1]  in erfl()
276       y = r / s;  in erfl()
281       s = fabsl (x) - one;  in erfl()
282       P = pa[0] + s * (pa[1] + s * (pa[2]  in erfl()
283 	+ s * (pa[3] + s * (pa[4] + s * (pa[5] + s * (pa[6] + s * pa[7]))))));  in erfl()
284       Q = qa[0] + s * (qa[1] + s * (qa[2]  in erfl()
285 	+ s * (qa[3] + s * (qa[4] + s * (qa[5] + s * (qa[6] + s))))));  in erfl()
299   s = one / (x * x);  in erfl()
302       R = ra[0] + s * (ra[1] + s * (ra[2] + s * (ra[3] + s * (ra[4] +  in erfl()
303 	s * (ra[5] + s * (ra[6] + s * (ra[7] + s * ra[8])))))));  in erfl()
304       S = sa[0] + s * (sa[1] + s * (sa[2] + s * (sa[3] + s * (sa[4] +  in erfl()
305 	s * (sa[5] + s * (sa[6] + s * (sa[7] + s * (sa[8] + s))))))));  in erfl()
309       R = rb[0] + s * (rb[1] + s * (rb[2] + s * (rb[3] + s * (rb[4] +  in erfl()
310 	s * (rb[5] + s * (rb[6] + s * rb[7]))))));  in erfl()
311       S = sb[0] + s * (sb[1] + s * (sb[2] + s * (sb[3] + s * (sb[4] +  in erfl()
312 	s * (sb[5] + s * (sb[6] + s))))));  in erfl()
330   long double R, S, P, Q, s, y, z, r;  in erfcl()  local
349       s = qq[0] + z * (qq[1]  in erfcl()
351       y = r / s;  in erfcl()
365       s = fabsl (x) - one;  in erfcl()
366       P = pa[0] + s * (pa[1] + s * (pa[2]  in erfcl()
367 	+ s * (pa[3] + s * (pa[4] + s * (pa[5] + s * (pa[6] + s * pa[7]))))));  in erfcl()
368       Q = qa[0] + s * (qa[1] + s * (qa[2]  in erfcl()
369 	+ s * (qa[3] + s * (qa[4] + s * (qa[5] + s * (qa[6] + s))))));  in erfcl()
384       s = one / (x * x);  in erfcl()
387 	  R = ra[0] + s * (ra[1] + s * (ra[2] + s * (ra[3] + s * (ra[4] +  in erfcl()
388 	    s * (ra[5] + s * (ra[6] + s * (ra[7] + s * ra[8])))))));  in erfcl()
389 	  S = sa[0] + s * (sa[1] + s * (sa[2] + s * (sa[3] + s * (sa[4] +  in erfcl()
390 	    s * (sa[5] + s * (sa[6] + s * (sa[7] + s * (sa[8] + s))))))));  in erfcl()
394 	  R = rb[0] + s * (rb[1] + s * (rb[2] + s * (rb[3] + s * (rb[4] +  in erfcl()
395 	    s * (rb[5] + s * (rb[6] + s * rb[7]))))));  in erfcl()
396 	  S = sb[0] + s * (sb[1] + s * (sb[2] + s * (sb[3] + s * (sb[4] +  in erfcl()
397 	    s * (sb[5] + s * (sb[6] + s))))));  in erfcl()
404 	  R = rc[0] + s * (rc[1] + s * (rc[2] + s * (rc[3] +  in erfcl()
405 						    s * (rc[4] + s * rc[5]))));  in erfcl()
406 	  S = sc[0] + s * (sc[1] + s * (sc[2] + s * (sc[3] +  in erfcl()
407 						    s * (sc[4] + s))));  in erfcl()