
	if( sqrtm .lt. 14.142135623730951D0 .or.
     &      sqrtm .gt. 31.622776601683796D0 )
     &    Warning('Extrapolating tHm2 in MHiggs')
	if( TBeff .lt. 0.1D0 .or.
     &      TBeff .gt. 60.D0 )
     &    Warning('Extrapolating tHm2 in TBeff')
	if( TBeff.lt.6.D0 ) then

        tHm2 = enh*exp(-0.917538157961962D0 + 
     &      sqrtm*(9.172268925655592D0 - 
     &         sqrtm*(1.8867144957552524D0 + 
     &            TBeff*(0.699820899465259D0 - 
     &               TBeff*
     &                (0.11244220649347708D0 - 
     &                  TBeff*
     &                   (0.0037550112535321123D0 + 
     &                     TBeff*
     &                      (0.0004759874177423485D0 - 
     &                       TBeff*
     &                       (0.00002062065047605585D0 + 
     &                       1.0021997262964531D-8*TBeff))))) - 
     &            sqrtm*(0.20486905515323756D0 - 
     &               sqrtm*
     &                (0.013352846579996896D0 + 
     &                  TBeff*
     &                   (0.0015171968178600726D0 - 
     &                     TBeff*
     &                      (0.00016361258475631031D0 - 
     &                       TBeff*
     &                       (5.956269793430927D-6 + 
     &                       5.11070643789805D-8*TBeff))) - 
     &                  sqrtm*
     &                   (0.0005389128636923271D0 - 
     &                     sqrtm*
     &                      (0.000013232937402057681D0 - 
     &                       sqrtm*
     &                       (1.8158183548922527D-7 - 
     &                       1.0696733758139971D-9*sqrtm + 
     &                       1.769624639068143D-9*TBeff) + 
     &                       TBeff*
     &                       (3.6341843517729643D-7 - 
     &                       1.2628965250460713D-8*TBeff)) + 
     &                     TBeff*
     &                      (0.000031745440213092624D0 - 
     &                       TBeff*
     &                       (2.2979170339662227D-6 - 
     &                       5.4175920744803624D-8*TBeff)))) + 
     &               TBeff*
     &                (0.04259752502968642D0 - 
     &                  TBeff*
     &                   (0.005869058109578361D0 - 
     &                     TBeff*
     &                      (0.0002308840055981288D0 + 
     &                       TBeff*
     &                       (9.634850763819397D-6 - 
     &                       3.220089426666455D-7*TBeff)))))) + 
     &         TBeff*(6.211465857621178D0 - 
     &            TBeff*(1.0887176416069633D0 - 
     &               TBeff*
     &                (0.012448792498008263D0 + 
     &                  TBeff*
     &                   (0.013864711960395687D0 - 
     &                     TBeff*
     &                      (0.0017620265591802309D0 - 
     &                       TBeff*
     &                       (0.00017292730397329764D0 - 
     &                       8.67726769042104D-6*TBeff))))))) - 
     &      TBeff*(46.12221101837133D0 - 
     &         TBeff*(48.414887916519184D0 - 
     &            TBeff*(50.52250174734701D0 - 
     &               TBeff*
     &                (33.0550519204848D0 - 
     &                  TBeff*
     &                   (12.491415685229057D0 - 
     &                     TBeff*
     &                      (2.6701849367297994D0 - 
     &                       TBeff*
     &                       (0.29904602019233617D0 - 
     &                       0.013592483473096311D0*TBeff))))))))

	else if( TBeff.lt.20.D0 ) then

        tHm2 = enh*exp(-76.64164670271836D0 + 
     &      TBeff*(3.1848795146175495D0 - 
     &         TBeff*(0.24104895360936623D0 + 
     &            TBeff*(0.018999525974747022D0 - 
     &               TBeff*
     &                (0.007382659375498813D0 - 
     &                  TBeff*
     &                   (0.0005887602297857805D0 - 
     &                     TBeff*
     &                      (0.000015895696655262587D0 + 
     &                       TBeff*
     &                       (4.666609559088194D-8 - 
     &                       5.672565931089895D-9*TBeff))))))) + 
     &      sqrtm*(29.841855527193804D0 - 
     &         sqrtm*(4.52716262684254D0 - 
     &            sqrtm*(0.39763342911335947D0 - 
     &               sqrtm*
     &                (0.02179015169077424D0 - 
     &                  sqrtm*
     &                   (0.00075399866547829D0 - 
     &                     sqrtm*
     &                      (0.000016091853472430914D0 - 
     &                       TBeff*
     &                       (1.3767457204047907D-7 + 
     &                       9.31557290406065D-10*TBeff) - 
     &                       sqrtm*
     &                       (1.9371232472381384D-7 - 
     &                       1.0034577902106017D-9*sqrtm - 
     &                       1.0138544432780825D-9*TBeff)) - 
     &                     TBeff*
     &                      (8.321024775148167D-6 + 
     &                       TBeff*
     &                       (7.773054878764312D-8 + 
     &                       1.01497230251546D-9*TBeff))) - 
     &                  TBeff*
     &                   (0.0002673518325444207D0 + 
     &                     TBeff*
     &                      (5.425539277226197D-6 - 
     &                       TBeff*
     &                       (9.243326617880977D-8 - 
     &                       3.891352315728699D-9*TBeff)))) - 
     &               TBeff*
     &                (0.004803507184929512D0 + 
     &                  TBeff*
     &                   (0.0001918880725189236D0 - 
     &                     TBeff*
     &                      (3.0640694141176184D-6 + 
     &                       TBeff*
     &                       (8.879416852427267D-8 - 
     &                       7.030101061266571D-9*TBeff))))) - 
     &            TBeff*(0.07339802976139287D0 - 
     &               TBeff*
     &                (0.002361017681768231D0 - 
     &                  TBeff*
     &                   (0.0006275516644739511D0 - 
     &                     TBeff*
     &                      (0.000043461364895619684D0 - 
     &                       TBeff*
     &                       (1.2597097250074691D-6 - 
     &                       9.834961026693392D-9*TBeff)))))) - 
     &         TBeff*(1.0048366541695208D0 - 
     &            TBeff*(0.11735349416259645D0 - 
     &               TBeff*
     &                (0.012419508282356403D0 - 
     &                  TBeff*
     &                   (0.0003422550418997699D0 + 
     &                     TBeff*
     &                      (0.00002025004369868045D0 - 
     &                       TBeff*
     &                       (1.3878638325065716D-6 - 
     &                       2.1177092180357337D-8*TBeff))))))))

	else if( TBeff.lt.30.D0 ) then

        tHm2 = enh*exp(6.886833243878406D0 + 
     &      TBeff*(0.1121930836293182D0 + 
     &         TBeff*(0.0004999301381022347D0 - 
     &            TBeff*(0.000037177227096278916D0 + 
     &               TBeff*
     &                (1.0967420055375487D-6 - 
     &                  1.8357379927154715D-8*TBeff)))) - 
     &      sqrtm*(0.23640758726482566D0 + 
     &         TBeff*(0.0012736016551074536D0 - 
     &            TBeff*(0.00009325281609640142D0 + 
     &               TBeff*
     &                (3.293132674024578D-6 - 
     &                  1.8128318319155858D-8*TBeff))) - 
     &         sqrtm*(0.009614615500428253D0 - 
     &            TBeff*(0.00008506910600327516D0 + 
     &               TBeff*
     &                (7.737266069877101D-6 + 
     &                  5.220887532255432D-8*TBeff)) - 
     &            sqrtm*(0.0008807448279796713D0 - 
     &               TBeff*
     &                (8.394312825502645D-6 + 
     &                  1.6326438061488435D-7*TBeff) - 
     &               sqrtm*
     &                (0.000025161131153635714D0 - 
     &                  2.3629571655996672D-7*sqrtm - 
     &                  1.7533187085923295D-7*TBeff)))))

	else

        tHm2 = enh*exp(4.842779718721122D0 + 
     &      TBeff*(0.18823372881966371D0 - 
     &         TBeff*(0.0030765241262788283D0 - 
     &            TBeff*(0.000030362153263872024D0 - 
     &               1.305436645866125D-7*TBeff))) + 
     &      sqrtm*(0.12250047555728538D0 - 
     &         TBeff*(0.0009258022964968258D0 - 
     &            TBeff*(1.9480986250526376D-6 + 
     &               2.9482098475533836D-8*TBeff)) - 
     &         sqrtm*(0.023911325547487906D0 - 
     &            TBeff*(0.00003663139845460839D0 - 
     &               1.1159419087334985D-7*TBeff) - 
     &            sqrtm*(0.00059084374608931D0 - 
     &               5.45317323111836D-6*sqrtm - 
     &               3.9611653659114637D-7*TBeff))))

	endif

#ifdef DETAILED_DEBUG
	DPROD "tHm2 =", tHm2 ENDL
#endif


	if( sqrtm .lt. 14.142135623730951D0 .or.
     &      sqrtm .gt. 31.622776601683796D0 )
     &    Warning('Extrapolating tHm2lo in MHiggs')
	if( TBeff .lt. 0.1D0 .or.
     &      TBeff .gt. 60.D0 )
     &    Warning('Extrapolating tHm2lo in TBeff')
	if( TBeff.lt.6.D0 ) then

        tHm2lo = enh*exp(-40.47356000145405D0 + 
     &      sqrtm*(27.28752789578942D0 - 
     &         sqrtm*(5.334137880154072D0 + 
     &            TBeff*(0.6411778630316893D0 - 
     &               TBeff*
     &                (0.07488889302189189D0 - 
     &                  TBeff*
     &                   (0.005082227095375906D0 + 
     &                     TBeff*
     &                      (7.670029746313022D-6 - 
     &                       TBeff*
     &                       (0.000012592634032505775D0 - 
     &                       3.059148215331687D-8*TBeff))))) - 
     &            sqrtm*(0.563884226523517D0 - 
     &               sqrtm*
     &                (0.03592658405724391D0 - 
     &                  sqrtm*
     &                   (0.0014216505221388686D0 - 
     &                     sqrtm*
     &                      (0.00003428579145054847D0 - 
     &                       sqrtm*
     &                       (4.6242260229750703D-7 - 
     &                       2.677890100962267D-9*sqrtm + 
     &                       2.7275346994574463D-9*TBeff) + 
     &                       TBeff*
     &                       (5.019392903942601D-7 - 
     &                       9.277699727618683D-9*TBeff)) + 
     &                     TBeff*
     &                      (0.00003909943885496263D0 - 
     &                       TBeff*
     &                       (1.5261820560961768D-6 - 
     &                       2.860589480593327D-8*TBeff))) + 
     &                  TBeff*
     &                   (0.00167374834171779D0 - 
     &                     TBeff*
     &                      (0.00010482192355800037D0 - 
     &                       TBeff*
     &                       (4.1405415862390965D-6 - 
     &                       5.5531647105352344D-8*TBeff)))) + 
     &               TBeff*
     &                (0.04253570380797982D0 - 
     &                  TBeff*
     &                   (0.0037850343521789375D0 - 
     &                     TBeff*
     &                      (0.0002150708524165527D0 - 
     &                       TBeff*
     &                       (2.623302662342995D-6 + 
     &                       1.697561612853876D-7*TBeff)))))) + 
     &         TBeff*(5.29813890745464D0 - 
     &            TBeff*(0.7640241647812029D0 - 
     &               TBeff*
     &                (0.055617599525713525D0 + 
     &                  TBeff*
     &                   (0.0008949362626042851D0 - 
     &                     TBeff*
     &                      (0.00003508679583911775D0 + 
     &                       TBeff*
     &                       (0.00003953784172085744D0 - 
     &                       2.3497803146677892D-6*TBeff))))))) - 
     &      TBeff*(41.67636584851442D0 - 
     &         TBeff*(47.461388013139455D0 - 
     &            TBeff*(50.976450285509884D0 - 
     &               TBeff*
     &                (33.2198948559424D0 - 
     &                  TBeff*
     &                   (12.52219161778397D0 - 
     &                     TBeff*
     &                      (2.6728242523668557D0 - 
     &                       TBeff*
     &                       (0.29896356221583625D0 - 
     &                       0.013574123634218928D0*TBeff))))))))

	else if( TBeff.lt.20.D0 ) then

        tHm2lo = enh*exp(-288.78031956916317D0 - 
     &      TBeff*(15.356444912550986D0 - 
     &         TBeff*(0.5586256803577571D0 + 
     &            TBeff*(0.12114309776663724D0 - 
     &               TBeff*
     &                (0.013828377030675798D0 - 
     &                  TBeff*
     &                   (0.0005801783175028986D0 - 
     &                     TBeff*
     &                      (4.584004996019907D-6 + 
     &                       TBeff*
     &                       (3.3654343109548706D-7 - 
     &                       7.487268557916196D-9*TBeff))))))) + 
     &      sqrtm*(118.81810867543447D0 - 
     &         sqrtm*(20.269497817596093D0 + 
     &            TBeff*(0.4199991766614035D0 - 
     &               TBeff*
     &                (0.03395558082640941D0 - 
     &                  TBeff*
     &                   (0.0008895772349323797D0 - 
     &                     TBeff*
     &                      (0.000019371997925478378D0 - 
     &                       TBeff*
     &                       (1.2436655541840293D-7 - 
     &                       1.4916538976656726D-9*TBeff))))) - 
     &            sqrtm*(1.918393168996945D0 + 
     &               TBeff*
     &                (0.020360348351082823D0 - 
     &                  TBeff*
     &                   (0.0015724872638157943D0 - 
     &                     TBeff*
     &                      (0.000023763874179154147D0 - 
     &                       TBeff*
     &                       (4.25356724812874D-7 + 
     &                       3.214617665427258D-11*TBeff)))) - 
     &               sqrtm*
     &                (0.1106862363956235D0 + 
     &                  TBeff*
     &                   (0.0005118348682593977D0 - 
     &                     TBeff*
     &                      (0.000043731863585543915D0 - 
     &                       TBeff*
     &                       (2.710724295519363D-7 - 
     &                       4.417090866218953D-9*TBeff))) - 
     &                  sqrtm*
     &                   (0.00400115792109055D0 + 
     &                     TBeff*
     &                      (4.502743084237569D-6 - 
     &                       TBeff*
     &                       (6.976630845797083D-7 - 
     &                       4.0029712975934006D-10*TBeff)) - 
     &                     sqrtm*
     &                      (0.0000886881736937986D0 - 
     &                       sqrtm*
     &                       (1.1035791782989683D-6 - 
     &                       5.906659859255043D-9*sqrtm - 
     &                       1.1153946226394954D-9*TBeff) - 
     &                       TBeff*
     &                       (5.729445802739388D-8 + 
     &                       5.02895138445867D-9*TBeff)))))) + 
     &         TBeff*(4.236206773073812D0 - 
     &            TBeff*(0.32619240682682366D0 - 
     &               TBeff*
     &                (0.003372538902059879D0 + 
     &                  TBeff*
     &                   (0.0006150569387915959D0 - 
     &                     TBeff*
     &                      (0.00004541868346786909D0 - 
     &                       TBeff*
     &                       (1.2851091529895642D-6 - 
     &                       1.4939725187051336D-8*TBeff))))))))

	else if( TBeff.lt.30.D0 ) then

        tHm2lo = enh*exp(11.969504784599915D0 + 
     &      TBeff*(0.16886852597510604D0 - 
     &         TBeff*(0.0003214218213082172D0 + 
     &            TBeff*(0.00009207119932603947D0 + 
     &               TBeff*
     &                (1.7817009067530207D-6 - 
     &                  8.380721700915281D-8*TBeff)))) - 
     &      sqrtm*(1.511384046828855D0 + 
     &         TBeff*(0.011186117252387927D0 - 
     &            TBeff*(0.0004081705712686018D0 + 
     &               TBeff*
     &                (0.000013006912579213034D0 - 
     &                  4.04292759144556D-7*TBeff))) - 
     &         sqrtm*(0.12918750445907454D0 - 
     &            sqrtm*(0.00626514090258684D0 - 
     &               TBeff*
     &                (0.000020588926890298014D0 - 
     &                  1.0424617378075803D-7*TBeff) - 
     &               sqrtm*
     &                (0.0001381270039852056D0 - 
     &                  1.2034832756699059D-6*sqrtm - 
     &                  1.648778034241896D-7*TBeff)) + 
     &            TBeff*(0.0002937657014606692D0 - 
     &               TBeff*
     &                (0.000040293815266261925D0 - 
     &                  6.302122224104849D-7*TBeff)))))

	else

        tHm2lo = enh*exp(5.400141704301919D0 + 
     &      TBeff*(0.19726214745910792D0 - 
     &         TBeff*(0.0035253816193728956D0 - 
     &            TBeff*(0.00003810699645539018D0 - 
     &               1.7587722520615382D-7*TBeff))) - 
     &      sqrtm*(0.0479809114914781D0 + 
     &         TBeff*(0.00044093482673492225D0 + 
     &            TBeff*(3.3834519892119138D-6 - 
     &               4.546334019154768D-8*TBeff)) + 
     &         sqrtm*(0.012684306659866175D0 - 
     &            TBeff*(0.000026597002493022637D0 - 
     &               4.3854368611851154D-8*TBeff) - 
     &            sqrtm*(0.0002809131356522278D0 - 
     &               2.524092974561972D-6*sqrtm - 
     &               3.48029958364579D-7*TBeff))))

	endif

#ifdef DETAILED_DEBUG
	DPROD "tHm2lo =", tHm2lo ENDL
#endif


	if( sqrtm .lt. 14.142135623730951D0 .or.
     &      sqrtm .gt. 31.622776601683796D0 )
     &    Warning('Extrapolating tHm2hi in MHiggs')
	if( TBeff .lt. 0.1D0 .or.
     &      TBeff .gt. 60.D0 )
     &    Warning('Extrapolating tHm2hi in TBeff')
	if( TBeff.lt.6.D0 ) then

        tHm2hi = enh*exp(135.05725593337945D0 - 
     &      sqrtm*(40.59530081615446D0 - 
     &         sqrtm*(5.955661293566604D0 - 
     &            TBeff*(0.7004235292075687D0 - 
     &               TBeff*
     &                (0.1325252727391184D0 - 
     &                  TBeff*
     &                   (0.0028610206708898868D0 + 
     &                     TBeff*
     &                      (0.0007475703559511478D0 - 
     &                       TBeff*
     &                       (0.00002524820567424836D0 + 
     &                       1.1874646664068196D-8*TBeff))))) - 
     &            sqrtm*(0.48931346463054803D0 - 
     &               sqrtm*
     &                (0.024418262724054188D0 - 
     &                  sqrtm*
     &                   (0.0007555651508759323D0 - 
     &                     sqrtm*
     &                      (0.000014074832382202998D0 - 
     &                       sqrtm*
     &                       (1.428393030730476D-7 - 
     &                       5.931789099351428D-10*sqrtm - 
     &                       9.898026067447228D-10*TBeff) - 
     &                       TBeff*
     &                       (2.458448086833175D-7 - 
     &                       1.4421869205420858D-8*TBeff)) - 
     &                     TBeff*
     &                      (0.000024845384547687567D0 - 
     &                       TBeff*
     &                       (2.7165996565450166D-6 - 
     &                       6.815943183377436D-8*TBeff))) - 
     &                  TBeff*
     &                   (0.0013233802091705616D0 - 
     &                     TBeff*
     &                      (0.00019553079477110575D0 - 
     &                       TBeff*
     &                       (6.897839972612614D-6 + 
     &                       1.1395476342743517D-7*TBeff)))) - 
     &               TBeff*
     &                (0.04023060164486967D0 - 
     &                  TBeff*
     &                   (0.006994772305876693D0 - 
     &                     TBeff*
     &                      (0.0002346998266150844D0 + 
     &                       TBeff*
     &                       (0.00001675703769114349D0 - 
     &                       4.0452543176400565D-7*TBeff)))))) - 
     &         TBeff*(6.484980568529343D0 - 
     &            TBeff*(1.2591813940132421D0 + 
     &               TBeff*
     &                (0.014067138102842146D0 - 
     &                  TBeff*
     &                   (0.021419154323628637D0 - 
     &                     TBeff*
     &                      (0.0027723817933190506D0 - 
     &                       TBeff*
     &                       (0.00029728722677519707D0 - 
     &                       0.000015083056044945217D0*TBeff)))))))-
     &        TBeff*(47.865145678794846D0 - 
     &         TBeff*(48.88985870629192D0 - 
     &            TBeff*(50.24901192778839D0 - 
     &               TBeff*
     &                (32.95693322795615D0 - 
     &                  TBeff*
     &                   (12.472660727633553D0 - 
     &                     TBeff*
     &                      (2.6684723233347434D0 - 
     &                       TBeff*
     &                       (0.29907471565751187D0 - 
     &                       0.013602276429613296D0*TBeff))))))))

	else if( TBeff.lt.20.D0 ) then

        tHm2hi = enh*exp(155.8886894020047D0 + 
     &      TBeff*(15.238767584443176D0 - 
     &         TBeff*(0.7885674295048051D0 + 
     &            TBeff*(0.09128511583431564D0 - 
     &               TBeff*
     &                (0.01891595884242624D0 - 
     &                  TBeff*
     &                   (0.001222491490835979D0 - 
     &                     TBeff*
     &                      (0.00002636750176634532D0 + 
     &                       TBeff*
     &                       (2.869459377091071D-7 - 
     &                       1.329875218534182D-8*TBeff))))))) - 
     &      sqrtm*(59.71859652221527D0 - 
     &         sqrtm*(10.220121047234096D0 - 
     &            sqrtm*(0.947772004850007D0 - 
     &               sqrtm*
     &                (0.05304059876237295D0 - 
     &                  sqrtm*
     &                   (0.0018562058278486198D0 - 
     &                     sqrtm*
     &                      (0.00003975325364506041D0 - 
     &                       sqrtm*
     &                       (4.768538496642475D-7 - 
     &                       2.4593616094522207D-9*sqrtm + 
     &                       1.2129018622641909D-9*TBeff) + 
     &                       TBeff*
     &                       (2.286645395103619D-7 - 
     &                       1.5321654016443113D-9*TBeff)) + 
     &                     TBeff*
     &                      (0.000018973209691027806D0 - 
     &                       TBeff*
     &                       (2.942976016949683D-7 - 
     &                       1.87062984869402D-9*TBeff))) + 
     &                  TBeff*
     &                   (0.0008471946210905126D0 - 
     &                     TBeff*
     &                      (0.000017649443152991784D0 - 
     &                       TBeff*
     &                       (2.2457423359543963D-8 + 
     &                       3.443533812129942D-9*TBeff)))) + 
     &               TBeff*
     &                (0.022445013918428874D0 - 
     &                  TBeff*
     &                   (0.0006444679761276988D0 - 
     &                     TBeff*
     &                      (9.902888979996971D-6 - 
     &                       TBeff*
     &                       (4.0406549568726295D-7 - 
     &                       1.1142353922292832D-8*TBeff))))) + 
     &            TBeff*(0.40297588711694465D0 - 
     &               TBeff*
     &                (0.02419631994453238D0 - 
     &                  TBeff*
     &                   (0.0015293413781648675D0 - 
     &                     TBeff*
     &                      (0.00007984007882098191D0 - 
     &                       TBeff*
     &                       (2.0409648933154398D-6 - 
     &                       1.6075323481904808D-8*TBeff)))))) + 
     &         TBeff*(4.389749327964285D0 - 
     &            TBeff*(0.38399586539905173D0 - 
     &               TBeff*
     &                (0.0219927607843658D0 - 
     &                  TBeff*
     &                   (0.00020021213014616887D0 + 
     &                     TBeff*
     &                      (0.00005735591543704211D0 - 
     &                       TBeff*
     &                       (2.8955585146449808D-6 - 
     &                       4.145078380068524D-8*TBeff))))))))

	else if( TBeff.lt.30.D0 ) then

        tHm2hi = enh*exp(1.41299706462602D0 + 
     &      TBeff*(0.049463878300839446D0 + 
     &         TBeff*(0.0013099612832956514D0 + 
     &            TBeff*(0.000020414392245484534D0 - 
     &               TBeff*
     &                (3.3531509217711856D-7 + 
     &                  4.7975077942132505D-8*TBeff)))) + 
     &      sqrtm*(1.1219181075350941D0 + 
     &         TBeff*(0.009711992181684925D0 - 
     &            TBeff*(0.00022669246661985098D0 + 
     &               TBeff*
     &                (6.983562869893177D-6 - 
     &                  3.678038497673209D-7*TBeff))) - 
     &         sqrtm*(0.1175854647592604D0 - 
     &            sqrtm*(0.0048322823757748715D0 - 
     &               sqrtm*
     &                (0.00009411969719822339D0 - 
     &                  7.69571423616127D-7*sqrtm + 
     &                  1.8283103213280967D-7*TBeff) - 
     &               TBeff*
     &                (2.597536691172291D-6 - 
     &                  3.9960293090743137D-7*TBeff)) + 
     &            TBeff*(0.0005318012713752217D0 - 
     &               TBeff*
     &                (0.00002595290549825488D0 - 
     &                  7.2084252395954D-7*TBeff)))))

	else

        tHm2hi = enh*exp(4.0512429005539765D0 + 
     &      TBeff*(0.1823904681196008D0 - 
     &         TBeff*(0.0027852100551775615D0 - 
     &            TBeff*(0.000025349860729813284D0 - 
     &               1.0134925254823866D-7*TBeff))) + 
     &      sqrtm*(0.32856853455148816D0 - 
     &         TBeff*(0.0012439150184910784D0 - 
     &            TBeff*(5.361016290252301D-6 + 
     &               2.0060821053185307D-8*TBeff)) - 
     &         sqrtm*(0.0383142481219867D0 - 
     &            TBeff*(0.000043360749983686955D0 - 
     &               1.57255781540448D-7*TBeff) - 
     &            sqrtm*(0.0010192200881869431D0 - 
     &               9.9769274418914D-6*sqrtm - 
     &               4.2808327888291574D-7*TBeff))))

	endif

#ifdef DETAILED_DEBUG
	DPROD "tHm2hi =", tHm2hi ENDL
#endif

