827   const double c455 = 1.0389725495604947;  in carsph_77()  local
1815                   + c455 * source[8] + c456 * source[10] + c456 * source[12]  in carsph_77()
1816                   + c455 * source[14] + c457 * source[107] - c458 * source[102]  in carsph_77()
1825                   + c455 * source[80] + c456 * source[82] + c456 * source[84]  in carsph_77()
1826                   + c455 * source[86] + c457 * source[179] - c458 * source[174]  in carsph_77()
2181                   - c440 * source[203] - c454 * source[205] + c455 * source[188]  in carsph_77()
2182                   + c456 * source[190] + c456 * source[192] + c455 * source[194]  in carsph_77()
2191                   - c440 * source[275] - c454 * source[277] + c455 * source[260]  in carsph_77()
2192                   + c456 * source[262] + c456 * source[264] + c455 * source[266];  in carsph_77()
5352                   + c455 * source[288] - c459 * source[290] + c463 * source[292]  in carsph_77()
5353                   + c455 * source[290] - c459 * source[292] + c463 * source[294]  in carsph_77()
5361                   + c455 * source[504] - c459 * source[506] + c463 * source[508]  in carsph_77()
5362                   + c455 * source[506] - c459 * source[508] + c463 * source[510];  in carsph_77()
5382                   + c463 * source[289] - c459 * source[291] + c455 * source[293]  in carsph_77()
5383                   + c463 * source[291] - c459 * source[293] + c455 * source[295]  in carsph_77()
5391                   + c463 * source[505] - c459 * source[507] + c455 * source[509]  in carsph_77()
5392                   + c463 * source[507] - c459 * source[509] + c455 * source[511];  in carsph_77()
6482   const double c455 = 1.0389725495604947;  in carsph_77()  local
7470                   + c455 * source[8] + c456 * source[10] + c456 * source[12]  in carsph_77()
7471                   + c455 * source[14] + c457 * source[107] - c458 * source[102]  in carsph_77()
7480                   + c455 * source[80] + c456 * source[82] + c456 * source[84]  in carsph_77()
7481                   + c455 * source[86] + c457 * source[179] - c458 * source[174]  in carsph_77()
7836                   - c440 * source[203] - c454 * source[205] + c455 * source[188]  in carsph_77()
7837                   + c456 * source[190] + c456 * source[192] + c455 * source[194]  in carsph_77()
7846                   - c440 * source[275] - c454 * source[277] + c455 * source[260]  in carsph_77()
7847                   + c456 * source[262] + c456 * source[264] + c455 * source[266];  in carsph_77()
11007                   + c455 * source[288] - c459 * source[290] + c463 * source[292]  in carsph_77()
11008                   + c455 * source[290] - c459 * source[292] + c463 * source[294]  in carsph_77()
11016                   + c455 * source[504] - c459 * source[506] + c463 * source[508]  in carsph_77()
11017                   + c455 * source[506] - c459 * source[508] + c463 * source[510];  in carsph_77()
11037                   + c463 * source[289] - c459 * source[291] + c455 * source[293]  in carsph_77()
11038                   + c463 * source[291] - c459 * source[293] + c455 * source[295]  in carsph_77()
11046                   + c463 * source[505] - c459 * source[507] + c455 * source[509]  in carsph_77()
11047                   + c463 * source[507] - c459 * source[509] + c455 * source[511];  in carsph_77()