1001   double t813, t814, t816, t817, t818, t819, t820, t823;  in func_pol()  local
1615   t814 = t340 * t340;  in func_pol()
1616   t816 = 0.1e1 / t25 / t814;  in func_pol()
1622   t824 = t814 * t103;  in func_pol()
1891   t1364 = t814 * t24;  in func_pol()
2004   t1633 = t814 * rho[0];  in func_pol()
2098   t1822 = 0.1e1 / t814;  in func_pol()
2172   t1996 = t814 * t118;  in func_pol()
2174   t2002 = t814 * t119;  in func_pol()
2179 …/ 0.3e1 * t2001 / t26 / t2002 * t2008 - 0.40960e5 / 0.3e1 * t2011 / t25 / t814 / t563 * t2018) / 0…  in func_pol()
2366   t3174 = t814 * t124;  in func_pol()
2367 …864e4 * t804 * t1351 + 0.2048e4 * t817 * t3137 + 0.5120e4 * t2001 / t25 / t814 / t340 * t2018 - 0.…  in func_pol()
2450 …1536e4 * t1361 * t3137 + 0.256e3 * t343 * t3732 - 0.1920e4 * t823 / t25 / t814 / t333 * t2018 + 0.…  in func_pol()