1003   REAL enow, fnow;  in fast_expansion_sum()  local
1006   fnow = f[0];  in fast_expansion_sum()
1008   if ((fnow > enow) == (fnow > -enow)) {  in fast_expansion_sum()
1012     Q = fnow;  in fast_expansion_sum()
1013     fnow = f[++findex];  in fast_expansion_sum()
1017     if ((fnow > enow) == (fnow > -enow)) {  in fast_expansion_sum()
1021       Fast_Two_Sum(fnow, Q, Qnew, h[0]);  in fast_expansion_sum()
1022       fnow = f[++findex];  in fast_expansion_sum()
1027       if ((fnow > enow) == (fnow > -enow)) {  in fast_expansion_sum()
1031         Two_Sum(Q, fnow, Qnew, h[hindex]);  in fast_expansion_sum()
1032         fnow = f[++findex];  in fast_expansion_sum()
1045     Two_Sum(Q, fnow, Qnew, h[hindex]);  in fast_expansion_sum()
1046     fnow = f[++findex];  in fast_expansion_sum()
1077   REAL enow, fnow;  in fast_expansion_sum_zeroelim()  local
1080   fnow = f[0];  in fast_expansion_sum_zeroelim()
1082   if ((fnow > enow) == (fnow > -enow)) {  in fast_expansion_sum_zeroelim()
1086     Q = fnow;  in fast_expansion_sum_zeroelim()
1087     fnow = f[++findex];  in fast_expansion_sum_zeroelim()
1091     if ((fnow > enow) == (fnow > -enow)) {  in fast_expansion_sum_zeroelim()
1095       Fast_Two_Sum(fnow, Q, Qnew, hh);  in fast_expansion_sum_zeroelim()
1096       fnow = f[++findex];  in fast_expansion_sum_zeroelim()
1103       if ((fnow > enow) == (fnow > -enow)) {  in fast_expansion_sum_zeroelim()
1107         Two_Sum(Q, fnow, Qnew, hh);  in fast_expansion_sum_zeroelim()
1108         fnow = f[++findex];  in fast_expansion_sum_zeroelim()
1125     Two_Sum(Q, fnow, Qnew, hh);  in fast_expansion_sum_zeroelim()
1126     fnow = f[++findex];  in fast_expansion_sum_zeroelim()
1158   REAL enow, fnow;  in linear_expansion_sum()  local
1162   fnow = f[0];  in linear_expansion_sum()
1164   if ((fnow > enow) == (fnow > -enow)) {  in linear_expansion_sum()
1168     g0 = fnow;  in linear_expansion_sum()
1169     fnow = f[++findex];  in linear_expansion_sum()
1172                           || ((fnow > enow) == (fnow > -enow)))) {  in linear_expansion_sum()
1176     Fast_Two_Sum(fnow, g0, Qnew, q);  in linear_expansion_sum()
1177     fnow = f[++findex];  in linear_expansion_sum()
1182                             || ((fnow > enow) == (fnow > -enow)))) {  in linear_expansion_sum()
1186       Fast_Two_Sum(fnow, q, R, h[hindex]);  in linear_expansion_sum()
1187       fnow = f[++findex];  in linear_expansion_sum()
1220   REAL enow, fnow;  in linear_expansion_sum_zeroelim()  local
1224   fnow = f[0];  in linear_expansion_sum_zeroelim()
1227   if ((fnow > enow) == (fnow > -enow)) {  in linear_expansion_sum_zeroelim()
1231     g0 = fnow;  in linear_expansion_sum_zeroelim()
1232     fnow = f[++findex];  in linear_expansion_sum_zeroelim()
1235                           || ((fnow > enow) == (fnow > -enow)))) {  in linear_expansion_sum_zeroelim()
1239     Fast_Two_Sum(fnow, g0, Qnew, q);  in linear_expansion_sum_zeroelim()
1240     fnow = f[++findex];  in linear_expansion_sum_zeroelim()
1245                             || ((fnow > enow) == (fnow > -enow)))) {  in linear_expansion_sum_zeroelim()
1249       Fast_Two_Sum(fnow, q, R, hh);  in linear_expansion_sum_zeroelim()
1250       fnow = f[++findex];  in linear_expansion_sum_zeroelim()