303     real t155, t156, t157, t158, t159, t160, t161;  in hcth120_first()  local
487     t156 = 1.333333333333333*t108*(t81+t106)+1.333333333333333*  in hcth120_first()
518         4.0*t115*t75*t78*t84*t93+t75*t77*t78*t156*t93+.0197517897025652*  in hcth120_first()
520         t79*t80*t156*t87+t117+t116+t112+t104+t103+t102)+t88+t74+0.03109*  in hcth120_first()
591     real t155, t156, t157, t158, t159, t160, t161;  in hcth120_second()  local
799     t156 = 1/pow(t149,2.0);  in hcth120_second()
802     t159 = -0.05214*t57*t158*t58+0.017316*t155*t156*t157-  in hcth120_second()
820     t173 = 0.13904*t57*t158*t172-0.12016*t155*t156*t171+0.1459904*  in hcth120_second()
868     t203 = -0.10428*gradb*t158*t58+0.09012*t202*t156*t157-  in hcth120_second()
1095         t156*t273-1.442084266666667*t152*t153*t272+1.025982151111111*  in hcth120_second()
1117         t172-.5362560000000001*t202*t156*t171+.9720704000000001*t201*  in hcth120_second()
1149         t57*t156*t157-.6195600000000002*t155*t153*t154+.4879702400000002*  in hcth120_second()
1224     real t155, t156, t157, t158, t159, t160, t161;  in hcth120_third()  local
1461     t156 = pow(gradb,4.0);  in hcth120_third()
1465     t160 = -0.05214*t58*t159*t59+0.017316*t156*t157*t158-  in hcth120_third()
1473     t166 = -0.0029888*t58*t165*t59+8.125279999999999e-5*t156*  in hcth120_third()
1483     t174 = 0.13904*t58*t159*t173-0.12016*t156*t157*t172+0.1459904*  in hcth120_third()
1496         t156*t164*t172+3.836433066666666e-6*t153*t163*t171-1.161168213333333e-8*  in hcth120_third()
1726         t156*t157*t314-1.442084266666667*t153*t154*t313+1.025982151111111*  in hcth120_third()
1739         t156*t164*t314-4.445277866666666e-5*t153*t163*t313+2.582354830222222e-7*  in hcth120_third()
1779         t156*t67*t314+1.344674304e-4*t156*t60*t65*t314-1.613025792e-6*  in hcth120_third()
1780         t156*t66*t63*t314+8.842604544e-9*t156*t64*t138*t314-1.878349824e-11*  in hcth120_third()
1781         t156*t61*t295*t314;  in hcth120_third()
1820         t156*t154*t155+.4879702400000002*t153*t151*t152-0.138765056*  in hcth120_third()
1823         1.99693696e-5*t156*t163*t155+1.300171264e-7*t153*t162*t152-  in hcth120_third()
2281         t21*t58*t48*t61*t295*t315-2.440820736e-4*t21*t156*t48*t65*  in hcth120_third()
2282         t314+7.5286204416e-6*t21*t156*t48*t60*t63*t314-8.698724352e-8*  in hcth120_third()
2283         t21*t156*t48*t66*t138*t314+4.5388283904e-10*t21*t156*t48*t64*  in hcth120_third()
2284         t295*t314-9.0160791552e-13*t21*t156*t48*t61*t440*t314)*t148+  in hcth120_third()
2388         6.396465777777778*t156*t157*t473+15.31168853333334*t153*t154*  in hcth120_third()
2392         t58*t165*t474-.0225424554666667*t156*t164*t473+5.091990148740739e-4*  in hcth120_third()
2404         t156*t67*t473-0.0014791417344*t156*t60*t65*t473+1.7743283712e-5*  in hcth120_third()
2405         t156*t66*t63*t473-9.726864998400001e-8*t156*t64*t138*t473+  in hcth120_third()
2406         2.0661848064e-10*t156*t61*t295*t473-2.440820736e-4*t153*t65*  in hcth120_third()
2418         t61*t295*t315+1.830615552e-4*grada*t156*t22*t65*t314-5.6464653312e-6*  in hcth120_third()
2419         grada*t156*t22*t60*t63*t314+6.524043264e-8*grada*t156*t22*  in hcth120_third()
2420         t66*t138*t314-3.4041212928e-10*grada*t156*t22*t64*t295*t314+  in hcth120_third()
2421         6.7620593664e-13*grada*t156*t22*t61*t440*t314)*t148;  in hcth120_third()
2463         (0.27808*t159*t173-1.72*t58*t157*t172+5.289356800000001*t156*  in hcth120_third()
2468         t156*t163*t171-2.025869175466667e-6*t153*t162*t170+1.041496364373334e-8*  in hcth120_third()
2475         t58*t61*t295*t172-1.372961664e-4*t156*t65*t171+4.2348489984e-6*  in hcth120_third()
2476         t156*t60*t63*t171-4.893032448e-8*t156*t66*t138*t171+2.5530909696e-10*  in hcth120_third()
2477         t156*t64*t295*t171-5.0715445248e-13*t156*t61*t440*t171)*t148-  in hcth120_third()
2644     real t155, t156, t157, t158, t159, t160, t161;  in hcth120_fourth()  local
2924     t156 = pow(gradb,4.0);  in hcth120_fourth()
2928     t160 = -0.05214*t58*t159*t59+0.017316*t156*t157*t158-  in hcth120_fourth()
2936     t166 = -0.0029888*t58*t165*t59+8.125279999999999e-5*t156*  in hcth120_fourth()
2946     t174 = 0.13904*t58*t159*t173-0.12016*t156*t157*t172+0.1459904*  in hcth120_fourth()
2959         t156*t164*t172+3.836433066666666e-6*t153*t163*t171-1.161168213333333e-8*  in hcth120_fourth()
3189         t156*t157*t314-1.442084266666667*t153*t154*t313+1.025982151111111*  in hcth120_fourth()
3202         t156*t164*t314-4.445277866666666e-5*t153*t163*t313+2.582354830222222e-7*  in hcth120_fourth()
3242         t156*t67*t314+1.344674304e-4*t156*t60*t65*t314-1.613025792e-6*  in hcth120_fourth()
3243         t156*t66*t63*t314+8.842604544e-9*t156*t64*t138*t314-1.878349824e-11*  in hcth120_fourth()
3244         t156*t61*t295*t314;  in hcth120_fourth()
3283         t156*t154*t155+.4879702400000002*t153*t151*t152-0.138765056*  in hcth120_fourth()
3286         1.99693696e-5*t156*t163*t155+1.300171264e-7*t153*t162*t152-  in hcth120_fourth()
3670         t21*t58*t48*t61*t295*t315-2.440820736e-4*t21*t156*t48*t65*  in hcth120_fourth()
3671         t314+7.5286204416e-6*t21*t156*t48*t60*t63*t314-8.698724352e-8*  in hcth120_fourth()
3672         t21*t156*t48*t66*t138*t314+4.5388283904e-10*t21*t156*t48*t64*  in hcth120_fourth()
3673         t295*t314-9.0160791552e-13*t21*t156*t48*t61*t479*t314;  in hcth120_fourth()
3731         t156*t157*t534+15.31168853333334*t153*t154*t533-15.30310874074074*  in hcth120_fourth()
3744         t156*t164*t534+5.091990148740739e-4*t153*t163*t533-4.693471702281481e-6*  in hcth120_fourth()
3817         t156*t67*t534-0.0014791417344*t156*t60*t65*t534+1.7743283712e-5*  in hcth120_fourth()
3818         t156*t66*t63*t534-9.726864998400001e-8*t156*t64*t138*t534+  in hcth120_fourth()
3819         2.0661848064e-10*t156*t61*t295*t534-2.440820736e-4*t153*t65*  in hcth120_fourth()
3827         grada*t156*t22*t65*t314-5.6464653312e-6*grada*t156*t22*t60*  in hcth120_fourth()
3828         t63*t314+6.524043264e-8*grada*t156*t22*t66*t138*t314-3.4041212928e-10*  in hcth120_fourth()
3829         grada*t156*t22*t64*t295*t314+6.7620593664e-13*grada*t156*t22*  in hcth120_fourth()
3867         t156*t154*t171-6.196311893333335*t153*t151*t170+2.891203925333334*  in hcth120_fourth()
3871         t58*t164*t172+1.831061162666666e-4*t156*t163*t171-2.025869175466667e-6*  in hcth120_fourth()
3879         t156*t65*t171+4.2348489984e-6*t156*t60*t63*t171-4.893032448e-8*  in hcth120_fourth()
3880         t156*t66*t138*t171+2.5530909696e-10*t156*t64*t295*t171-5.0715445248e-13*  in hcth120_fourth()
3881         t156*t61*t479*t171;  in hcth120_fourth()
4945         t21*t156*t215*t65*t314-2.76049416192e-5*t21*t156*t215*t60*  in hcth120_fourth()
4946         t63*t314-1.58961303552e-5*t29*t156*t214*t63*t314+3.1895322624e-7*  in hcth120_fourth()
4947         t21*t156*t215*t66*t138*t314+4.728818368512e-7*t29*t156*t214*  in hcth120_fourth()
4948         t60*t138*t314-1.66423707648e-9*t21*t156*t215*t64*t295*t314-  in hcth120_fourth()
4949         5.29502109696e-9*t29*t156*t214*t66*t295*t314+3.30589569024e-12*  in hcth120_fourth()
4950         t21*t156*t215*t61*t479*t314+2.659495182336e-11*t29*t156*t214*  in hcth120_fourth()
4951         t64*t479*t314-5.049004326912e-14*t29*t156*t214*t61*t720*t314)*  in hcth120_fourth()
5168         t295*t535+0.0026849028096*t21*t156*t48*t65*t534-8.28148248576e-5*  in hcth120_fourth()
5169         t21*t156*t48*t60*t63*t534+9.568596787199999e-7*t21*t156*t48*  in hcth120_fourth()
5170         t66*t138*t534-4.992711229439999e-9*t21*t156*t48*t64*t295*t534+  in hcth120_fourth()
5171         9.91768707072e-12*t21*t156*t48*t61*t479*t534-1.58961303552e-5*  in hcth120_fourth()
5184         4.881641471999999e-4*grada*t156*t48*t65*t314+1.50572408832e-5*  in hcth120_fourth()
5185         grada*t156*t48*t60*t63*t314+1.19220977664e-5*t196*t156*t47*  in hcth120_fourth()
5186         t63*t314-1.7397448704e-7*grada*t156*t48*t66*t138*t314-3.546613776384e-7*  in hcth120_fourth()
5187         t196*t156*t47*t60*t138*t314+9.0776567808e-10*grada*t156*t48*  in hcth120_fourth()
5188         t64*t295*t314+3.971265822719999e-9*t196*t156*t47*t66*t295*  in hcth120_fourth()
5189         t314-1.80321583104e-12*grada*t156*t48*t61*t479*t314-1.994621386752e-11*  in hcth120_fourth()
5190         t196*t156*t47*t64*t479*t314+3.786753245184e-14*t196*t156*t47*  in hcth120_fourth()
5239         t21*t58*t48*t61*t479*t172-8.9415733248e-6*t21*t156*t48*t63*  in hcth120_fourth()
5240         t171+2.659960332288e-7*t21*t156*t48*t60*t138*t171-2.97844936704e-9*  in hcth120_fourth()
5241         t21*t156*t48*t66*t295*t171+1.495966040064e-11*t21*t156*t48*  in hcth120_fourth()
5242         t64*t479*t171-2.840064933888e-14*t21*t156*t48*t61*t720*t171)*  in hcth120_fourth()
5422         t146*(-13.48173037037037*t58*t159*t774+54.57275022222223*t156*  in hcth120_fourth()
5427         t58*t165*t774+.1893084924839506*t156*t164*t773-0.006082094880237*  in hcth120_fourth()
5448         t156*t67*t773+0.0146270682624*t156*t60*t65*t773-1.75461361152e-4*  in hcth120_fourth()
5449         t156*t66*t63*t773+9.618788720640002e-7*t156*t64*t138*t773-  in hcth120_fourth()
5450         2.04322719744e-9*t156*t61*t295*t773+0.0053698056192*t153*t65*  in hcth120_fourth()
5470         grada*t58*t22*t61*t295*t535-0.0020136771072*grada*t156*t22*  in hcth120_fourth()
5471         t65*t534+6.21111186432e-5*grada*t156*t22*t60*t63*t534-7.1764475904e-7*  in hcth120_fourth()
5472         grada*t156*t22*t66*t138*t534+3.74453342208e-9*grada*t156*t22*  in hcth120_fourth()
5473         t64*t295*t534-7.43826530304e-12*grada*t156*t22*t61*t479*t534+  in hcth120_fourth()
5523         t156*t22*t65*t314-5.6464653312e-6*t156*t22*t60*t63*t314-8.9415733248e-6*  in hcth120_fourth()
5524         t21*t156*t31*t63*t314+6.524043264e-8*t156*t22*t66*t138*t314+  in hcth120_fourth()
5525         2.659960332288e-7*t21*t156*t31*t60*t138*t314-3.4041212928e-10*  in hcth120_fourth()
5526         t156*t22*t64*t295*t314-2.97844936704e-9*t21*t156*t31*t66*t295*  in hcth120_fourth()
5527         t314+6.7620593664e-13*t156*t22*t61*t479*t314+1.495966040064e-11*  in hcth120_fourth()
5528         t21*t156*t31*t64*t479*t314-2.840064933888e-14*t21*t156*t31*  in hcth120_fourth()
5548         49.43887786666667*t156*t154*t313+80.75327630222225*t153*t151*  in hcth120_fourth()
5554         t58*t164*t314-.0017738547996444*t156*t163*t313+2.949453610097778e-5*  in hcth120_fourth()
5563         t156*t65*t313-6.63459676416e-5*t156*t60*t63*t313+7.6657508352e-7*  in hcth120_fourth()
5564         t156*t66*t138*t313-3.99984251904e-9*t156*t64*t295*t313+7.94541975552e-12*  in hcth120_fourth()
5565         t156*t61*t479*t313-8.9415733248e-6*t153*t63*t312+2.659960332288e-7*  in hcth120_fourth()
5602         grada*t58*t22*t61*t479*t172+6.706179993600001e-6*grada*t156*  in hcth120_fourth()
5603         t22*t63*t171-1.994970249216e-7*grada*t156*t22*t60*t138*t171+  in hcth120_fourth()
5604         2.23383702528e-9*grada*t156*t22*t66*t295*t171-1.121974530048e-11*  in hcth120_fourth()
5605         grada*t156*t22*t64*t479*t171+2.130048700416e-14*grada*t156*  in hcth120_fourth()
5682         t58*t154*t155+21.62994432000001*t156*t151*t152-19.11017932800001*  in hcth120_fourth()
5686         t156*t162*t152-8.986737868800001e-8*t153*t181*t201+4.49222639616e-10*  in hcth120_fourth()
5693         t58*t61*t479*t155-5.029634995200001e-6*t156*t63*t152+1.496227686912e-7*  in hcth120_fourth()
5694         t156*t60*t138*t152-1.67537776896e-9*t156*t66*t295*t152+8.41480897536e-12*  in hcth120_fourth()
5695         t156*t64*t479*t152-1.597536525312e-14*t156*t61*t720*t152)*  in hcth120_fourth()