37   double t150, t151, t159, t164, t166, t167, t168, t171;  in func_unpol()  local
173   t171 = params->c1 * t47;  in func_unpol()
174   t172 = t171 * t49;  in func_unpol()
200 …t261 = t64 * (-t13 * t14 * t67 * t25 / 0.9e1 + t228 * t83 * t229 / 0.36e2 - t171 * t34 * t234 / 0.…  in func_unpol()
209 …t296 = t64 * (-t264 * t124 / 0.144e3 + t171 * sigma[0] * t268 / 0.288e3 + t33 * t123 * t41 / 0.144…  in func_unpol()
243 …7 * t317 * t79 - 0.38e2 / 0.81e2 * t172 * t323 * t175 + 0.2e1 / 0.243e3 * t171 * t329 * t333 - 0.2…  in func_unpol()
248   t394 = t171 * t173;  in func_unpol()
257 … 0.65e2 / 0.324e3 * t228 * t179 * t229 + 0.17e2 / 0.108e3 * t394 * t396 - t171 * t399 * t333 / 0.3…  in func_unpol()
270 …t480 = t264 * t80 / 0.27e2 - 0.5e1 / 0.108e3 * t171 * t90 * t441 + t171 * t444 * t333 / 0.864e3 - …  in func_unpol()
280 …t514 = t64 * (t171 * t268 / 0.96e2 - t171 * t486 * t333 / 0.2304e4 - t87 * t133 / 0.48e2 + t87 * t…  in func_unpol()
300 … / 0.729e3 * t172 * t542 * t175 - 0.196e3 / 0.729e3 * t171 * t548 * t333 + 0.16e2 / 0.2187e4 * t17…  in func_unpol()
306 …9 - 0.1025e4 / 0.486e3 * t171 * t322 * t396 + 0.89e2 / 0.972e3 * t171 * t328 * t106 * t331 * t49 *…  in func_unpol()
312 …8 + 0.167e3 / 0.324e3 * t394 * t441 - 0.25e2 / 0.864e3 * t171 * t685 * t331 * t34 * t109 + t171 * …  in func_unpol()
321 …t783 = -t171 * t234 / 0.12e2 + 0.7e1 / 0.864e3 * t171 * t740 * t742 * t744 - t171 * t748 * t558 / …  in func_unpol()
329 …v4sigma4[0] = 0.3e1 / 0.20e2 * t63 * t64 * (-t171 * t787 * t742 * t789 / 0.576e3 + t171 * t793 * t…  in func_unpol()
369   double t160, t161, t168, t171, t173, t174, t177, t187;  in func_ferr()  local
498   t171 = t45 * t31;  in func_ferr()
499   t173 = 0.1e1 / t8 / t171;  in func_ferr()
607   t528 = 0.1e1 / t171;  in func_ferr()
682   double t171, t172, t175, t177, t178, t179, t180, t181;  in func_pol()  local
910   t171 = t1 * t20;  in func_pol()
911   t172 = t169 * params->a * t171;  in func_pol()
948   t238 = t236 * params->a * t171;  in func_pol()
1023   t376 = t169 * t360 * t171;  in func_pol()
1096   t515 = t236 * t360 * t171;  in func_pol()
1218   t791 = t169 * t789 * t171;  in func_pol()
1366   t1111 = t236 * t789 * t171;  in func_pol()
1619   t1700 = 0.1e1 / t168 / t60 * t1653 * t171;  in func_pol()
1762   t2502 = 0.1e1 / t235 / t104 * t1653 * t171;  in func_pol()
1778 …56 * t780 * t1207 + 0.89e2 / 0.3888e4 * t356 * t786 * t169 * t789 * t56 * t171 - t356 * t2593 * t1…  in func_pol()
1847 …* t1101 * t1320 + 0.89e2 / 0.3888e4 * t356 * t1107 * t236 * t789 * t100 * t171 - t356 * t2859 * t2…  in func_pol()
1858 …t171 + t356 * t2945 * t1655 / 0.7776e4 + 0.19e2 / 0.162e3 * t38 * t40 * t351 * t49 - 0.205e3 / 0.6…  in func_pol()
1919 …t171 + t356 * t3057 * t2458 / 0.7776e4 + 0.19e2 / 0.162e3 * t38 * t40 * t492 * t96 - 0.205e3 / 0.6…  in func_pol()