892   REAL enow, fnow;  in fast_expansion_sum()  local
895   fnow = f[0];  in fast_expansion_sum()
897   if ((fnow > enow) == (fnow > -enow)) {  in fast_expansion_sum()
901     Q = fnow;  in fast_expansion_sum()
902     fnow = f[++findex];  in fast_expansion_sum()
906     if ((fnow > enow) == (fnow > -enow)) {  in fast_expansion_sum()
910       Fast_Two_Sum(fnow, Q, Qnew, h[0]);  in fast_expansion_sum()
911       fnow = f[++findex];  in fast_expansion_sum()
916       if ((fnow > enow) == (fnow > -enow)) {  in fast_expansion_sum()
920         Two_Sum(Q, fnow, Qnew, h[hindex]);  in fast_expansion_sum()
921         fnow = f[++findex];  in fast_expansion_sum()
934     Two_Sum(Q, fnow, Qnew, h[hindex]);  in fast_expansion_sum()
935     fnow = f[++findex];  in fast_expansion_sum()
966   REAL enow, fnow;  in fast_expansion_sum_zeroelim()  local
969   fnow = f[0];  in fast_expansion_sum_zeroelim()
971   if ((fnow > enow) == (fnow > -enow)) {  in fast_expansion_sum_zeroelim()
975     Q = fnow;  in fast_expansion_sum_zeroelim()
976     fnow = f[++findex];  in fast_expansion_sum_zeroelim()
980     if ((fnow > enow) == (fnow > -enow)) {  in fast_expansion_sum_zeroelim()
984       Fast_Two_Sum(fnow, Q, Qnew, hh);  in fast_expansion_sum_zeroelim()
985       fnow = f[++findex];  in fast_expansion_sum_zeroelim()
992       if ((fnow > enow) == (fnow > -enow)) {  in fast_expansion_sum_zeroelim()
1003         Two_Sum(Q, fnow, Qnew, hh);  in fast_expansion_sum_zeroelim()
1011           fnow = f[findex];  in fast_expansion_sum_zeroelim()
1035     Two_Sum(Q, fnow, Qnew, hh);  in fast_expansion_sum_zeroelim()
1043       fnow = f[findex];  in fast_expansion_sum_zeroelim()
1075   REAL enow, fnow;  in linear_expansion_sum()  local
1079   fnow = f[0];  in linear_expansion_sum()
1081   if ((fnow > enow) == (fnow > -enow)) {  in linear_expansion_sum()
1085     g0 = fnow;  in linear_expansion_sum()
1086     fnow = f[++findex];  in linear_expansion_sum()
1089                           || ((fnow > enow) == (fnow > -enow)))) {  in linear_expansion_sum()
1093     Fast_Two_Sum(fnow, g0, Qnew, q);  in linear_expansion_sum()
1094     fnow = f[++findex];  in linear_expansion_sum()
1099                             || ((fnow > enow) == (fnow > -enow)))) {  in linear_expansion_sum()
1103       Fast_Two_Sum(fnow, q, R, h[hindex]);  in linear_expansion_sum()
1104       fnow = f[++findex];  in linear_expansion_sum()
1137   REAL enow, fnow;  in linear_expansion_sum_zeroelim()  local
1141   fnow = f[0];  in linear_expansion_sum_zeroelim()
1144   if ((fnow > enow) == (fnow > -enow)) {  in linear_expansion_sum_zeroelim()
1148     g0 = fnow;  in linear_expansion_sum_zeroelim()
1149     fnow = f[++findex];  in linear_expansion_sum_zeroelim()
1152                           || ((fnow > enow) == (fnow > -enow)))) {  in linear_expansion_sum_zeroelim()
1156     Fast_Two_Sum(fnow, g0, Qnew, q);  in linear_expansion_sum_zeroelim()
1157     fnow = f[++findex];  in linear_expansion_sum_zeroelim()
1162                             || ((fnow > enow) == (fnow > -enow)))) {  in linear_expansion_sum_zeroelim()
1166       Fast_Two_Sum(fnow, q, R, hh);  in linear_expansion_sum_zeroelim()
1167       fnow = f[++findex];  in linear_expansion_sum_zeroelim()