428   const double c691 = 59.0625;  in carsph_77()  local
4043                   + c549 * source[1088] - c549 * source[1090] + c691 * source[1090]  in carsph_77()
4044                   - c691 * source[1092] + c549 * source[1092] - c549 * source[1094]  in carsph_77()
4047                   - c549 * source[1160] + c549 * source[1162] - c691 * source[1162]  in carsph_77()
4048                   + c691 * source[1164] - c549 * source[1164] + c549 * source[1166]  in carsph_77()
4073                   + c691 * source[390] - c691 * source[392] - c544 * source[381]  in carsph_77()
4077                   - c691 * source[462] + c691 * source[464] + c544 * source[453]  in carsph_77()
4090                   + c691 * source[1089] + c699 * source[1091] + c691 * source[1093]  in carsph_77()
4092                   - c691 * source[1161] - c699 * source[1163] - c691 * source[1165]  in carsph_77()
4101                   + c691 * source[319] - c544 * source[310] - c544 * source[312]  in carsph_77()
4103                   - c691 * source[391] + c544 * source[382] + c544 * source[384]  in carsph_77()
4109                   + c691 * source[463] - c544 * source[454] - c544 * source[456]  in carsph_77()
4111                   - c691 * source[535] + c544 * source[526] + c544 * source[528]  in carsph_77()
4379                   + c691 * source[1124] - c691 * source[1126] + c699 * source[1126]  in carsph_77()
4380                   - c699 * source[1128] + c691 * source[1128] - c691 * source[1130]  in carsph_77()
4389                   + c691 * source[354] - c691 * source[356] - c544 * source[345]  in carsph_77()
4397                   + c691 * source[498] - c691 * source[500] - c544 * source[489]  in carsph_77()
6083   const double c691 = 59.0625;  in carsph_77()  local
9698                   + c549 * source[1088] - c549 * source[1090] + c691 * source[1090]  in carsph_77()
9699                   - c691 * source[1092] + c549 * source[1092] - c549 * source[1094]  in carsph_77()
9702                   - c549 * source[1160] + c549 * source[1162] - c691 * source[1162]  in carsph_77()
9703                   + c691 * source[1164] - c549 * source[1164] + c549 * source[1166]  in carsph_77()
9728                   + c691 * source[390] - c691 * source[392] - c544 * source[381]  in carsph_77()
9732                   - c691 * source[462] + c691 * source[464] + c544 * source[453]  in carsph_77()
9745                   + c691 * source[1089] + c699 * source[1091] + c691 * source[1093]  in carsph_77()
9747                   - c691 * source[1161] - c699 * source[1163] - c691 * source[1165]  in carsph_77()
9756                   + c691 * source[319] - c544 * source[310] - c544 * source[312]  in carsph_77()
9758                   - c691 * source[391] + c544 * source[382] + c544 * source[384]  in carsph_77()
9764                   + c691 * source[463] - c544 * source[454] - c544 * source[456]  in carsph_77()
9766                   - c691 * source[535] + c544 * source[526] + c544 * source[528]  in carsph_77()
10034                   + c691 * source[1124] - c691 * source[1126] + c699 * source[1126]  in carsph_77()
10035                   - c699 * source[1128] + c691 * source[1128] - c691 * source[1130]  in carsph_77()
10044                   + c691 * source[354] - c691 * source[356] - c544 * source[345]  in carsph_77()
10052                   + c691 * source[498] - c691 * source[500] - c544 * source[489]  in carsph_77()