301     real t155, t156, t157, t158, t159, t160, t161;  in hcth147_first()  local
485     t156 = 1.333333333333333*t108*(t81+t106)+1.333333333333333*  in hcth147_first()
517         4.0*t115*t75*t78*t84*t93+t75*t77*t78*t156*t93+.0197517897025652*  in hcth147_first()
519         t79*t80*t156*t87+t117+t116+t112+t104+t103+t102)+t88+t74+0.03109*  in hcth147_first()
590     real t155, t156, t157, t158, t159, t160, t161;  in hcth147_second()  local
797     t156 = 1/pow(t149,2.0);  in hcth147_second()
800     t159 = -0.00342*t57*t158*t58-0.052256*t155*t156*t157+  in hcth147_second()
818     t173 = 0.00912*t57*t158*t172+.2768746666666667*t155*t156*  in hcth147_second()
866     t203 = -0.00684*gradb*t158*t58-0.207656*t202*t156*t157+  in hcth147_second()
1092         t145*(-0.03344*t57*t158*t274-1.748675555555556*t155*t156*t273+  in hcth147_second()
1114         (0.01824*gradb*t158*t172+1.103850666666667*t202*t156*t171-  in hcth147_second()
1146         t57*t156*t157+.6289488000000002*t155*t153*t154-.1028099200000001*  in hcth147_second()
1221     real t155, t156, t157, t158, t159, t160, t161;  in hcth147_third()  local
1457     t156 = pow(gradb,4.0);  in hcth147_third()
1461     t160 = -0.00342*t58*t159*t59-0.052256*t156*t157*t158+  in hcth147_third()
1469     t166 = -0.0031968*t58*t165*t59+8.91536e-5*t156*t164*t158-  in hcth147_third()
1479     t174 = 0.00912*t58*t159*t173+.2768746666666667*t156*t157*  in hcth147_third()
1491     t182 = 0.0085248*t58*t165*t173-5.095850666666666e-4*t156*  in hcth147_third()
1721     t316 = -0.03344*t58*t159*t315-1.748675555555556*t156*  in hcth147_third()
1734     t324 = -0.0312576*t58*t165*t315+.0033183032888889*t156*  in hcth147_third()
1775         t156*t67*t314+1.732927488e-4*t156*t60*t65*t314-2.410034688e-6*  in hcth147_third()
1776         t156*t66*t63*t314+1.4848247808e-8*t156*t64*t138*t314-3.388760064e-11*  in hcth147_third()
1777         t156*t61*t295*t314;  in hcth147_third()
1816         .6289488000000002*t156*t154*t155-.1028099200000001*t153*t151*  in hcth147_third()
1820         t156*t163*t155+1.950580736e-7*t153*t162*t152-7.125188608e-10*  in hcth147_third()
2279         t21*t58*t48*t61*t295*t315-3.035492351999999e-4*t21*t156*t48*  in hcth147_third()
2280         t65*t314+1.05857851392e-5*t21*t156*t48*t60*t63*t314-1.36514101248e-7*  in hcth147_third()
2281         t21*t156*t48*t66*t138*t314+7.746637824e-10*t21*t156*t48*t64*  in hcth147_third()
2282         t295*t314-1.62660483072e-12*t21*t156*t48*t61*t440*t314)*t148+  in hcth147_third()
2386         12.80578607407407*t156*t157*t473-15.92635970370371*t153*t154*  in hcth147_third()
2390         t165*t474-.0246676385185185*t156*t164*t473+6.210558710518519e-4*  in hcth147_third()
2402         t156*t67*t473-0.0019062202368*t156*t60*t65*t473+2.6510381568e-5*  in hcth147_third()
2403         t156*t66*t63*t473-1.63330725888e-7*t156*t64*t138*t473+3.7276360704e-10*  in hcth147_third()
2404         t156*t61*t295*t473-3.035492351999999e-4*t153*t65*t472+1.05857851392e-5*  in hcth147_third()
2416         t61*t295*t315+2.276619264e-4*grada*t156*t22*t65*t314-7.939338854400001e-6*  in hcth147_third()
2417         grada*t156*t22*t60*t63*t314+1.02385575936e-7*grada*t156*t22*  in hcth147_third()
2418         t66*t138*t314-5.809978368e-10*grada*t156*t22*t64*t295*t314+  in hcth147_third()
2419         1.21995362304e-12*grada*t156*t22*t61*t440*t314)*t148;  in hcth147_third()
2462         t156*t154*t171+2.102957226666668*t153*t151*t170+.0778642773333332*  in hcth147_third()
2465         t165*t173-0.0064560128*t58*t164*t172+2.21656064e-4*t156*t163*  in hcth147_third()
2473         t58*t61*t295*t172-1.707464448e-4*t156*t65*t171+5.954504140800001e-6*  in hcth147_third()
2474         t156*t60*t63*t171-7.678918195200002e-8*t156*t66*t138*t171+  in hcth147_third()
2475         4.357483776e-10*t156*t64*t295*t171-9.1496521728e-13*t156*t61*  in hcth147_third()
2640     real t155, t156, t157, t158, t159, t160, t161;  in hcth147_fourth()  local
2919     t156 = pow(gradb,4.0);  in hcth147_fourth()
2923     t160 = -0.00342*t58*t159*t59-0.052256*t156*t157*t158+  in hcth147_fourth()
2931     t166 = -0.0031968*t58*t165*t59+8.91536e-5*t156*t164*t158-  in hcth147_fourth()
2941     t174 = 0.00912*t58*t159*t173+.2768746666666667*t156*t157*  in hcth147_fourth()
2953     t182 = 0.0085248*t58*t165*t173-5.095850666666666e-4*t156*  in hcth147_fourth()
3183     t316 = -0.03344*t58*t159*t315-1.748675555555556*t156*  in hcth147_fourth()
3196     t324 = -0.0312576*t58*t165*t315+.0033183032888889*t156*  in hcth147_fourth()
3237         t156*t67*t314+1.732927488e-4*t156*t60*t65*t314-2.410034688e-6*  in hcth147_fourth()
3238         t156*t66*t63*t314+1.4848247808e-8*t156*t64*t138*t314-3.388760064e-11*  in hcth147_fourth()
3239         t156*t61*t295*t314;  in hcth147_fourth()
3278         .6289488000000002*t156*t154*t155-.1028099200000001*t153*t151*  in hcth147_fourth()
3282         t156*t163*t155+1.950580736e-7*t153*t162*t152-7.125188608e-10*  in hcth147_fourth()
3665         t21*t58*t48*t61*t295*t315-3.035492351999999e-4*t21*t156*t48*  in hcth147_fourth()
3666         t65*t314+1.05857851392e-5*t21*t156*t48*t60*t63*t314-1.36514101248e-7*  in hcth147_fourth()
3667         t21*t156*t48*t66*t138*t314+7.746637824e-10*t21*t156*t48*t64*  in hcth147_fourth()
3668         t295*t314-1.62660483072e-12*t21*t156*t48*t61*t479*t314;  in hcth147_fourth()
3725         t156*t157*t534-15.92635970370371*t153*t154*t533+4.518359134814816*  in hcth147_fourth()
3737     t544 = 0.1458688*t58*t165*t535-.0246676385185185*t156*  in hcth147_fourth()
3811         t156*t67*t534-0.0019062202368*t156*t60*t65*t534+2.6510381568e-5*  in hcth147_fourth()
3812         t156*t66*t63*t534-1.63330725888e-7*t156*t64*t138*t534+3.7276360704e-10*  in hcth147_fourth()
3813         t156*t61*t295*t534-3.035492351999999e-4*t153*t65*t533+1.05857851392e-5*  in hcth147_fourth()
3820         grada*t58*t22*t61*t295*t315+2.276619264e-4*grada*t156*t22*  in hcth147_fourth()
3821         t65*t314-7.939338854400001e-6*grada*t156*t22*t60*t63*t314+  in hcth147_fourth()
3822         1.02385575936e-7*grada*t156*t22*t66*t138*t314-5.809978368e-10*  in hcth147_fourth()
3823         grada*t156*t22*t64*t295*t314+1.21995362304e-12*grada*t156*  in hcth147_fourth()
3861         t156*t154*t171+2.102957226666668*t153*t151*t170+.0778642773333332*  in hcth147_fourth()
3865         2.21656064e-4*t156*t163*t171-2.865038677333333e-6*t153*t162*  in hcth147_fourth()
3873         t156*t65*t171+5.954504140800001e-6*t156*t60*t63*t171-7.678918195200002e-8*  in hcth147_fourth()
3874         t156*t66*t138*t171+4.357483776e-10*t156*t64*t295*t171-9.1496521728e-13*  in hcth147_fourth()
3875         t156*t61*t479*t171;  in hcth147_fourth()
4940         t61*t479*t315+0.0011130138624*t21*t156*t215*t65*t314-3.881454551040001e-5*  in hcth147_fourth()
4941         t21*t156*t215*t60*t63*t314-2.13995618304e-5*t29*t156*t214*  in hcth147_fourth()
4942         t63*t314+5.005517045760001e-7*t21*t156*t215*t66*t138*t314+  in hcth147_fourth()
4943         7.027827277824001e-7*t29*t156*t214*t60*t138*t314-2.8404338688e-9*  in hcth147_fourth()
4944         t21*t156*t215*t64*t295*t314-8.559219179520002e-9*t29*t156*  in hcth147_fourth()
4945         t214*t66*t295*t314+5.96421771264e-12*t21*t156*t215*t61*t479*  in hcth147_fourth()
4946         t314+4.585908731904e-11*t29*t156*t214*t64*t479*t314-9.108987052032e-14*  in hcth147_fourth()
4947         t29*t156*t214*t61*t720*t314)*t148;  in hcth147_fourth()
5164         t295*t535+0.0033390415872*t21*t156*t48*t65*t534-1.164436365312e-4*  in hcth147_fourth()
5165         t21*t156*t48*t60*t63*t534+1.501655113728e-6*t21*t156*t48*t66*  in hcth147_fourth()
5166         t138*t534-8.521301606400001e-9*t21*t156*t48*t64*t295*t534+  in hcth147_fourth()
5167         1.789265313792e-11*t21*t156*t48*t61*t479*t534-2.13995618304e-5*  in hcth147_fourth()
5180         t61*t479*t315-6.070984703999999e-4*grada*t156*t48*t65*t314+  in hcth147_fourth()
5181         2.11715702784e-5*grada*t156*t48*t60*t63*t314+1.60496713728e-5*  in hcth147_fourth()
5182         t196*t156*t47*t63*t314-2.73028202496e-7*grada*t156*t48*t66*  in hcth147_fourth()
5183         t138*t314-5.270870458368e-7*t196*t156*t47*t60*t138*t314+1.5493275648e-9*  in hcth147_fourth()
5184         grada*t156*t48*t64*t295*t314+6.419414384640002e-9*t196*t156*  in hcth147_fourth()
5185         t47*t66*t295*t314-3.25320966144e-12*grada*t156*t48*t61*t479*  in hcth147_fourth()
5186         t314-3.439431548928e-11*t196*t156*t47*t64*t479*t314+6.831740289024e-14*  in hcth147_fourth()
5187         t196*t156*t47*t61*t720*t314)*t148+t574*t137;  in hcth147_fourth()
5235         t21*t58*t48*t61*t479*t172-1.20372535296e-5*t21*t156*t48*t63*  in hcth147_fourth()
5236         t171+3.953152843776e-7*t21*t156*t48*t60*t138*t171-4.814560788480001e-9*  in hcth147_fourth()
5237         t21*t156*t48*t66*t295*t171+2.579573661696e-11*t21*t156*t48*  in hcth147_fourth()
5238         t64*t479*t171-5.123805216768e-14*t21*t156*t48*t61*t720*t171)*  in hcth147_fourth()
5419         t58*t159*t774-106.6316555061728*t156*t157*t773+188.8494618864198*  in hcth147_fourth()
5424         t156*t164*t773-.0073578575366321*t153*t163*t772+1.121814042143605e-4*  in hcth147_fourth()
5445         t156*t67*t773+.0188504001194667*t156*t60*t65*t773-2.621582177280001e-4*  in hcth147_fourth()
5446         t156*t66*t63*t773+1.615159400448e-6*t156*t64*t138*t773-3.686217891840001e-9*  in hcth147_fourth()
5447         t156*t61*t295*t773+0.0066780831744*t153*t65*t772-2.328872730624e-4*  in hcth147_fourth()
5467         grada*t156*t22*t65*t534+8.73327273984e-5*grada*t156*t22*t60*  in hcth147_fourth()
5468         t63*t534-1.126241335296e-6*grada*t156*t22*t66*t138*t534+6.3909762048e-9*  in hcth147_fourth()
5469         grada*t156*t22*t64*t295*t534-1.341948985344e-11*grada*t156*  in hcth147_fourth()
5520         t21*t58*t31*t61*t479*t315+2.276619264e-4*t156*t22*t65*t314-  in hcth147_fourth()
5521         7.939338854400001e-6*t156*t22*t60*t63*t314-1.20372535296e-5*  in hcth147_fourth()
5522         t21*t156*t31*t63*t314+1.02385575936e-7*t156*t22*t66*t138*t314+  in hcth147_fourth()
5523         3.953152843776e-7*t21*t156*t31*t60*t138*t314-5.809978368e-10*  in hcth147_fourth()
5524         t156*t22*t64*t295*t314-4.814560788480001e-9*t21*t156*t31*t66*  in hcth147_fourth()
5525         t295*t314+1.21995362304e-12*t156*t22*t61*t479*t314+2.579573661696e-11*  in hcth147_fourth()
5526         t21*t156*t31*t64*t479*t314-5.123805216768e-14*t21*t156*t31*  in hcth147_fourth()
5545         t58*t157*t314+54.76308053333335*t156*t154*t313-33.6435748977778*  in hcth147_fourth()
5551         t58*t164*t314-.0021326328490667*t156*t163*t313+4.051844528355555e-5*  in hcth147_fourth()
5560         t58*t61*t295*t314+0.0026750276352*t156*t65*t313-9.32872315392e-5*  in hcth147_fourth()
5561         t156*t60*t63*t313+1.203030517248e-6*t156*t66*t138*t313-6.8267245824e-9*  in hcth147_fourth()
5562         t156*t64*t295*t313+1.433445507072e-11*t156*t61*t479*t313-1.20372535296e-5*  in hcth147_fourth()
5601         grada*t156*t22*t63*t171-2.964864632832001e-7*grada*t156*t22*  in hcth147_fourth()
5602         t60*t138*t171+3.610920591360001e-9*grada*t156*t22*t66*t295*  in hcth147_fourth()
5603         t171-1.934680246272e-11*grada*t156*t22*t64*t479*t171+3.842853912576e-14*  in hcth147_fourth()
5604         grada*t156*t22*t61*t720*t171)*t148+t591*t190;  in hcth147_fourth()
5680         t58*t154*t155-10.47236736000001*t156*t151*t152+2.097821184000003*  in hcth147_fourth()
5684         t156*t162*t152-1.398712762368e-7*t153*t181*t201+8.23999660032e-10*  in hcth147_fourth()
5691         t58*t61*t479*t155-6.770955110400001e-6*t156*t63*t152+2.223648474624e-7*  in hcth147_fourth()
5692         t156*t60*t138*t152-2.70819044352e-9*t156*t66*t295*t152+1.451010184704e-11*  in hcth147_fourth()
5693         t156*t64*t479*t152-2.882140434432e-14*t156*t61*t720*t152)*  in hcth147_fourth()