412   const double c797 = 65.110286170730163;  in carsph_77()  local
4855                   - c796 * source[548] - c797 * source[550] - c797 * source[552]  in carsph_77()
4862                   - c797 * source[694] - c797 * source[696] - c796 * source[698]  in carsph_77()
5259                   - c796 * source[584] - c797 * source[586] - c797 * source[588]  in carsph_77()
5266                   - c797 * source[730] - c797 * source[732] - c796 * source[734]  in carsph_77()
5607                   + c793 * source[388] - c797 * source[375] - c793 * source[377]  in carsph_77()
5608                   - c797 * source[379] + c803 * source[360] + c808 * source[362]  in carsph_77()
5610                   + c793 * source[458] + c793 * source[460] - c797 * source[447]  in carsph_77()
5611                   - c793 * source[449] - c797 * source[451] + c803 * source[432]  in carsph_77()
5641                   + c793 * source[389] - c797 * source[376] - c793 * source[378]  in carsph_77()
5642                   - c797 * source[380] + c803 * source[361] + c808 * source[363]  in carsph_77()
5644                   + c793 * source[459] + c793 * source[461] - c797 * source[448]  in carsph_77()
5645                   - c793 * source[450] - c797 * source[452] + c803 * source[433]  in carsph_77()
6067   const double c797 = 65.110286170730163;  in carsph_77()  local
10510                   - c796 * source[548] - c797 * source[550] - c797 * source[552]  in carsph_77()
10517                   - c797 * source[694] - c797 * source[696] - c796 * source[698]  in carsph_77()
10914                   - c796 * source[584] - c797 * source[586] - c797 * source[588]  in carsph_77()
10921                   - c797 * source[730] - c797 * source[732] - c796 * source[734]  in carsph_77()
11262                   + c793 * source[388] - c797 * source[375] - c793 * source[377]  in carsph_77()
11263                   - c797 * source[379] + c803 * source[360] + c808 * source[362]  in carsph_77()
11265                   + c793 * source[458] + c793 * source[460] - c797 * source[447]  in carsph_77()
11266                   - c793 * source[449] - c797 * source[451] + c803 * source[432]  in carsph_77()
11296                   + c793 * source[389] - c797 * source[376] - c793 * source[378]  in carsph_77()
11297                   - c797 * source[380] + c803 * source[361] + c808 * source[363]  in carsph_77()
11299                   + c793 * source[459] + c793 * source[461] - c797 * source[448]  in carsph_77()
11300                   - c793 * source[450] - c797 * source[452] + c803 * source[433]  in carsph_77()