196 	long double ax,R,S,P,Q,s,y,z,r;  in erfl()  local
218 	    s = one+z*(qq1+z*(qq2+z*(qq3+z*(qq4+z*(qq5+z*(qq6+z*(qq7+  in erfl()
220 	    y = r/s;  in erfl()
224 	    s = ax-one;  in erfl()
225 	    P = pa0+s*(pa1+s*(pa2+s*(pa3+s*(pa4+s*(pa5+s*(pa6+s*(pa7+  in erfl()
226 		s*(pa8+s*(pa9+s*(pa10+s*pa11))))))))));  in erfl()
227 	    Q = one+s*(qa1+s*(qa2+s*(qa3+s*(qa4+s*(qa5+s*(qa6+s*(qa7+  in erfl()
228 		s*(qa8+s*(qa9+s*(qa10+s*(qa11+s*qa12)))))))))));  in erfl()
234 	s = one/(ax*ax);  in erfl()
236 	    R=ra0+s*(ra1+s*(ra2+s*(ra3+s*(ra4+s*(ra5+s*(ra6+s*(ra7+  in erfl()
237 		s*(ra8+s*(ra9+s*(ra10+s*(ra11+s*(ra12+s*(ra13+s*(ra14+  in erfl()
238 		s*(ra15+s*ra16)))))))))))))));  in erfl()
239 	    S=one+s*(sa1+s*(sa2+s*(sa3+s*(sa4+s*(sa5+s*(sa6+s*(sa7+  in erfl()
240 		s*(sa8+s*(sa9+s*(sa10+s*(sa11+s*(sa12+s*(sa13+s*(sa14+  in erfl()
241 		s*(sa15+s*sa16)))))))))))))));  in erfl()
243 	    R=rb0+s*(rb1+s*(rb2+s*(rb3+s*(rb4+s*(rb5+s*(rb6+s*(rb7+  in erfl()
244 		s*(rb8+s*(rb9+s*(rb10+s*(rb11+s*(rb12+s*(rb13+  in erfl()
245 		s*rb14)))))))))))));  in erfl()
246 	    S=one+s*(sb1+s*(sb2+s*(sb3+s*(sb4+s*(sb5+s*(sb6+s*(sb7+  in erfl()
247 		s*(sb8+s*(sb9+s*(sb10+s*(sb11+s*(sb12+s*(sb13+  in erfl()
248 		s*sb14)))))))))))));  in erfl()
258 	long double ax,R,S,P,Q,s,y,z,r;  in erfcl()  local
276 	    s = one+z*(qq1+z*(qq2+z*(qq3+z*(qq4+z*(qq5+z*(qq6+z*(qq7+  in erfcl()
278 	    y = r/s;  in erfcl()
288 	    s = ax-one;  in erfcl()
289 	    P = pa0+s*(pa1+s*(pa2+s*(pa3+s*(pa4+s*(pa5+s*(pa6+s*(pa7+  in erfcl()
290 		    s*(pa8+s*(pa9+s*(pa10+s*pa11))))))))));  in erfcl()
291 	    Q = one+s*(qa1+s*(qa2+s*(qa3+s*(qa4+s*(qa5+s*(qa6+s*(qa7+  in erfcl()
292 		    s*(qa8+s*(qa9+s*(qa10+s*(qa11+s*qa12)))))))))));  in erfcl()
301  	    s = one/(ax*ax);  in erfcl()
303 	        R=ra0+s*(ra1+s*(ra2+s*(ra3+s*(ra4+s*(ra5+s*(ra6+s*(ra7+  in erfcl()
304 		    s*(ra8+s*(ra9+s*(ra10+s*(ra11+s*(ra12+s*(ra13+s*(ra14+  in erfcl()
305 		    s*(ra15+s*ra16)))))))))))))));  in erfcl()
306 	        S=one+s*(sa1+s*(sa2+s*(sa3+s*(sa4+s*(sa5+s*(sa6+s*(sa7+  in erfcl()
307 		    s*(sa8+s*(sa9+s*(sa10+s*(sa11+s*(sa12+s*(sa13+s*(sa14+  in erfcl()
308 		    s*(sa15+s*sa16)))))))))))))));  in erfcl()
310 		R=rb0+s*(rb1+s*(rb2+s*(rb3+s*(rb4+s*(rb5+s*(rb6+s*(rb7+  in erfcl()
311 		    s*(rb8+s*(rb9+s*(rb10+s*(rb11+s*(rb12+s*(rb13+  in erfcl()
312 		    s*rb14)))))))))))));  in erfcl()
313 		S=one+s*(sb1+s*(sb2+s*(sb3+s*(sb4+s*(sb5+s*(sb6+s*(sb7+  in erfcl()
314 		    s*(sb8+s*(sb9+s*(sb10+s*(sb11+s*(sb12+s*(sb13+  in erfcl()
315 		    s*sb14)))))))))))));  in erfcl()
318 		R=rc0+s*(rc1+s*(rc2+s*(rc3+s*(rc4+s*(rc5+s*(rc6+s*(rc7+  in erfcl()
319 		    s*(rc8+s*rc9))))))));  in erfcl()
320 		S=one+s*(sc1+s*(sc2+s*(sc3+s*(sc4+s*(sc5+s*(sc6+s*(sc7+  in erfcl()
321 		    s*(sc8+s*sc9))))))));  in erfcl()