276     double defabs, epmach, erlarg = 0.0, abseps, correc = 0.0, errbnd, resabs;  in rdqagie()  local
493     epmach = DBL_EPSILON;  in rdqagie()
508     if (*epsabs <= 0. && (*epsrel < fmax2(epmach * 50., 5e-29))) *ier = 6;  in rdqagie()
533     if (*abserr <= epmach * 100. * defabs && *abserr > errbnd) *ier = 2;  in rdqagie()
560     if (dres >= (1. - epmach * 50.) * defabs) {  in rdqagie()
619 	    (epmach * 100. + 1.) * (fabs(a2) + uflow * 1e3))  in rdqagie()
992     double abseps, area, area1, area2, area12, dres, epmach;  in rdqagse()  local
1208     epmach = DBL_EPSILON;  in rdqagse()
1221     if (*epsabs <= 0. && *epsrel < fmax2(epmach * 50., 5e-29)) {  in rdqagse()
1242     if (*abserr <= epmach * 100. * defabs && *abserr > errbnd)  in rdqagse()
1268     if (dres >= (1. - epmach * 50.) * defabs) {  in rdqagse()
1325 	    (epmach * 100. + 1.) * (fabs(a2) + uflow * 1e3)) {  in rdqagse()
1514     double tabsc1, tabsc2, fc, epmach;  in rdqk15i()  local
1629     epmach = DBL_EPSILON;  in rdqk15i()
1704     if (*resabs > uflow / (epmach * 50.)) {  in rdqk15i()
1705 	*abserr = fmax2(epmach * 50. * *resabs, *abserr);  in rdqk15i()
1715     double delta1, delta2, delta3, e0, e1, e1abs, e2, e3, epmach, epsinf;  in rdqelg()  local
1797     epmach = DBL_EPSILON;  in rdqelg()
1821 	tol2 = fmax2(fabs(e2), e1abs) * epmach;  in rdqelg()
1824 	tol3 = fmax2(e1abs, fabs(e0)) * epmach;  in rdqelg()
1838 	tol1 = fmax2(e1abs, fabs(e3)) * epmach;  in rdqelg()
1907     *abserr = fmax2(*abserr, epmach * 5. * fabs(*result));  in rdqelg()
1948     double fc, epmach, dhlgth;  in rdqk21()  local
2046     epmach = DBL_EPSILON;  in rdqk21()
2114     if (*resabs > uflow / (epmach * 50.)) {  in rdqk21()
2115 	*abserr = fmax2(epmach * 50. * *resabs, *abserr);  in rdqk21()