2274 double betalambda1 = 6.0*la1Q*la1Q + 2.0*la3Q*la3Q + 2.0*la3Q*la4Q + la4Q*la4Q + la5Q*la5Q
2275 + 6.0*la1Q*Yb1Q*Yb1Q + 2.0*la1Q*Ytau1Q*Ytau1Q
2276 - 6.0*Yb1Q*Yb1Q*Yb1Q*Yb1Q - 2.0*Ytau1Q*Ytau1Q*Ytau1Q*Ytau1Q;
2277 double betalambda2 = 6.0*la2Q*la2Q + 2.0*la3Q*la3Q + 2.0*la3Q*la4Q + la4Q*la4Q + la5Q*la5Q
2278 + 6.0*la2Q*Yb2Q*Yb2Q + 2.0*la2Q*Ytau2Q*Ytau2Q + 6.0*la2Q*YtQ*YtQ
2279 - 6.0*Yb2Q*Yb2Q*Yb2Q*Yb2Q - 2.0*Ytau2Q*Ytau2Q*Ytau2Q*Ytau2Q - 6.0*YtQ*YtQ*YtQ*YtQ;
2280 double betalambda4 = la1Q*la4Q + la2Q*la4Q + 4.0*la3Q*la4Q + 2.0*la4Q*la4Q + 4.0*la5Q*la5Q
2281 + 3.0*la4Q*Yb1Q*Yb1Q + 3.0*la4Q*Yb2Q*Yb2Q + la4Q*Ytau1Q*Ytau1Q + la4Q*Ytau2Q*Ytau2Q + 3.0*la4Q*YtQ*YtQ
2282 - 2.0*Ytau1Q*Ytau1Q*Ytau2Q*Ytau2Q - 6.0*Yb1Q*Yb1Q*(Yb2Q*Yb2Q - YtQ*YtQ);
2284 double uniNLO6a = -la1Q/(16.0*M_PI);
2285 double uniNLO6b = 3.0*betalambda1/(256.0*M_PI*M_PI*M_PI);
2289 double uniNLO7a = -la2Q/(16.0*M_PI);
2290 double uniNLO7b = 3.0*betalambda2/(256.0*M_PI*M_PI*M_PI);
2292 gslpp::complex uniNLO7d = -la2Q/(512.0*M_PI*M_PI*M_PI) * (-WFRc1+2.0*WFRc2);
2294 double uniNLO8a = -la4Q/(16.0*M_PI);
2295 double uniNLO8b = 3.0*betalambda4/(256.0*M_PI*M_PI*M_PI);
2304 double a0LO = uniNLO6a+uniNLO7a-
sqrt((uniNLO6a-uniNLO7a)*(uniNLO6a-uniNLO7a)+4.0*uniNLO8a*uniNLO8a);
2305 if(fabs(a0LO)>Rpeps)
2307 Rp = ((uniA+uniB-
sqrt((uniA-uniB)*(uniA-uniB)+4.0*uniC*uniC))-a0LO).abs()/fabs(a0LO);