All pastes #487473 Raw Edit

Someone

public text v1 · immutable
·published 2007-05-14 14:14 UTC
rendered paste body
     &Ecc*(0.1000000000D85*Scc**12/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250867D15
     &*R-521255706.*(0.1000000000D11*R*
     &*2+0.2058900000D11
     &-0.1592250867D11*R)**(1.0D0/2.0D0))**6
     &-0.1000000000D43*Scc**6/
21438282.28/(0.4000000000D13*R**
     &2+0.2295840000D14+0.1111099765D14
     &*R-170146846.*(2500000000.*R**
     &2+514725     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250867D15
     &*R-521255706.*(0.1000000000D11*R*
     &*2+0.2058900000D11
     &-0.1592250867D11*R)**(1.0D0/2.0D0))**3)
     &+139440123.1/(0.1000000000D15*R**
     &2+0.5739600000D15+0.2725540651D15
     &*R-2869597295.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.2725540651D11*R)**(1.0D0/2.0D0))**
     &(1.0D0/2.0D0)+445791944.2/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2725540651D15
     &*R-2331043295.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.2725540651D11*R)**(1.0D0/2.0D0))**
     &(1.0D0/2.0D0)+Ecc*(0.1000000000D73*Scc**
     &12/(0.1000000000D13*R**
     &2+0.5739600000D13+0.2753039245D13
     &*R-143445810.*(400000000.*R**
     &2+823560000.-1101215698.*R)**
     &(1.0D0/2.0D0))**6-0.1000000000D37*Scc**6/
     &(0.1000000000D13*R**
     &2+0.5739600000D13+0.2753039245D13
     &*R-143445810.*(400000000.*R**
     &2+823560000.-1101215698.*R)**
     &(1.0D0/2.0D0))**3)-34175736.58/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250867D15
     &*R-521255706.*(0.1000000000D11*R*
     &*2+0.2058900000D11
     &-0.1592250867D11*R)**(1.0D0/2.0D0))**
     &(1.0D0/2.0D0)-109260288.4/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2800751465D15
     &*R-0.1279232119D11*(400000000.*R*
     &*2+823560000.-1120300586.*R)**
     &(1.0D0/2.0D0))**(1.0D0/2.0D0)+2677888.368/
     &(0.1000000000D13*R**
     &2+0.5739600000D13+0.2800751465D13
     &*R-41101411.*(400000000.*R**
     &2+823560000.-1120300586.*R)**
     &(1.0D0/2.0D0))**(1.0D0/2.0D0)+Ecc*
     &(0.4096000000D76*Scc**12/
     &(0.4000000000D13*R**
     &2+0.2295840000D14+0.1101215698D14
     &*R-276586341.*(400000000.*R**
     &2+823560000.-1101215698.*R)**
     &(1.0D0/2.0D0))**6-0.6400000000D38*Scc**6/
     &(0.4000000000D13*R**
     &2+0.2295840000D14+0.1101215698D14
     &*R-276586341.*(400000000.*R**
     &2+823560000.-1101215698.*R)**
     &(1.0D0/2.0D0))**3)+Ecc*(0.1000000000D85*
     &Scc**12/(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250867D15
     &*R-2867553933.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.1592250867D11*R)**(1.0D0/2.0D0))**6
     &-0.1000000000D43*Scc**6/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250867D15
     &*R-2867553933.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.1592250867D11*R)**(1.0D0/2.0D0))**3)+
     &Ecc*(0.2441406250D81*Scc**12/
     &(0.2500000000D14*R**
     &2+0.1434900000D15+0.6944373530D14
     &*R-1400222670.*(2500000000.*R**
     &2+5147250000.-6944373530.*R)**
     &(1.0D0/2.0D0))**6-0.1562500000D41*Scc**6/
     &(0.2500000000D14*R**
     &2+0.1434900000D15+0.6944373530D14
     &*R-1400222670.*(2500000000.*R**
     &2+5147250000.-6944373530.*R)**
     &(1.0D0/2.0D0))**3)+Ecc*(0.1000000000D73*
     &Scc**12/(0.1000000000D13*R**
     &2+0.5739600000D13+0.2753039245D13
     &*R-83461613.*(400000000.*R**
     &2+823560000.-1101215698.*R)**
     &(1.0D0/2.0D0))**6-0.1000000000D37*Scc**6/
     &(0.1000000000D13*R**
     &2+0.5739600000D13+0.2753039245D13
     &*R-83461613.*(400000000.*R**
     &2+823560000.-1101215698.*R)**
     &(1.0D0/2.0D0))**3)-16764304.28/
     &(0.2500000000D14*R**
     &2+0.1434900000D15+0.6944373530D14
     &*R-1400222670.*(2500000000.*R**
     &2+5147250000.-6944373530.*R)**
     &(1.0D0/2.0D0))**(1.0D0/2.0D0)-109013309.6/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2753039245D15
     &*R-6955218970.*(400000000.*R**
     &2+823560000.-1101215698.*R)**
     &(1.0D0/2.0D0))**(1.0D0/2.0D0)+Eoo*
     &(0.1000000000D85*Soo**12/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250868D15
     &*R-5731734078.*(2500000000.*R**
     &2+5147250000.-3980627170.*R)**
     &(1.0D0/2.0D0))**6-0.1000000000D43*Soo**6/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250868D15
     &*R-5731734078.*(2500000000.*R**
     &2+5147250000.-3980627170.*R)**
     &(1.0D0/2.0D0))**3)+1484740616./
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250868D15
     &*R-5731734078.*(2500000000.*R**
     &2+5147250000.-3980627170.*R)**
     &(1.0D0/2.0D0))**(1.0D0/2.0D0)+Ecc*
     &(0.5960464478D77*Scc**12/
     &(0.6250000000D13*R**
     &2+0.3587250000D14+0.1736093382D14
     &*R-269042185.*(2500000000.*R**
     &2+5147250000.-6944373530.*R)**
     &(1.0D0/2.0D0))**6-0.2441406250D39*Scc**6/
     &(0.6250000000D13*R**
     &2+0.3587250000D14+0.1736093382D14
     &*R-269042185.*(2500000000.*R**
     &2+5147250000.-6944373530.*R)**
     &(1.0D0/2.0D0))**3)-21389821.83/
     &(0.4000000000D13*R**
     &2+0.2295840000D14+0.1101215698D14
     &*R-276586341.*(400000000.*R**
     &2+823560000.-1101215698.*R)**
     &(1.0D0/2.0D0))**(1.0D0/2.0D0)+Ecc*
     &(0.4096000000D76*Scc**12/
     &(0.4000000000D13*R**
     &2+0.2295840000D14+0.1111099765D14
     &*R-170146846.*(2500000000.*R**
     &2+5147250000.-6944373530.*R)**
     &(1.0D0/2.0D0))**6-0.6400000000D38*Scc**6/
     &(0.4000000000D13*R**
     &2+0.2295840000D14+0.1111099765D14
     &*R-170146846.*(2500000000.*R**
     &2+5147250000.-6944373530.*R)**
     &(1.0D0/2.0D0))**3)+444784248.0/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2725540651D15
     &*R-1561744683.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.2725540651D11*R)**(1.0D0/2.0D0))**
     &(1.0D0/2.0D0)-254476066.9/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250867D15
     &*R-2773215898.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.1592250867D11*R)**(1.0D0/2.0D0))**
     &(1.0D0/2.0D0)-106949109.2/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2777749412D15
     &*R-2260700682.*(2500000000.*R**
     &2+5147250000.-6944373530.*R)**
     &(1.0D0/2.0D0))**(1.0D0/2.0D0)-34175736.58/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2800751465D15
     &*R-0.1387652467D11*(400000000.*R*
     &*2+823560000.-1120300586.*R)**
     &(1.0D0/2.0D0))**(1.0D0/2.0D0)+Ecc*
     &(0.1000000000D85*Scc**12/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2753039245D15
     &*R-8293722835.*(400000000.*R**
     &2+823560000.-1101215698.*R)**
     &(1.0D0/2.0D0))**6-0.1000000000D43*Scc**6/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2753039245D15
     &*R-8293722835.*(400000000.*R**
     &2+823560000.-1101215698.*R)**
     &(1.0D0/2.0D0))**3)-33528608.56/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250867D15
     &*R-2171540509.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.1592250867D11*R)**(1.0D0/2.0D0))**
     &(1.0D0/2.0D0)+Ecc*(0.1000000000D73*Scc**
     &12/(0.1000000000D13*R**
     &2+0.5739600000D13+0.2800751465D13
     &*R-41101411.*(400000000.*R**
     &2+823560000.-1120300586.*R)**
     &(1.0D0/2.0D0))**6-0.1000000000D37*Scc**6/
     &(0.1000000000D13*R**
     &2+0.5739600000D13+0.2800751465D13
     &*R-41101411.*(400000000.*R**
     &2+823560000.-1120300586.*R)**
     &(1.0D0/2.0D0))**3)+444784248.0/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2753039245D15
     &*R-8293722835.*(400000000.*R**
     &2+823560000.-1101215698.*R)**
     &(1.0D0/2.0D0))**(1.0D0/2.0D0)+(Ecc*Eoo)**(1.0D0/2.0D0)*
     &(0.2441406250D81*Scc**6*Soo**6/
     &(0.2500000000D14*R**
     &2+0.1434900000D15+0.7001878662D14
     &*R-3469226755.*(400000000.*R**
     &2+823560000.-1120300586.*R)**
     &(1.0D0/2.0D0))**6-0.1562500000D41*Scc**3*
     &Soo**3/(0.2500000000D14*R**
     &2+0.1434900000D15+0.7001878662D14
     &*R-3469226755.*(400000000.*R**
     &2+823560000.-1120300586.*R)**
     &(1.0D0/2.0D0))**3)+Ecc*(0.1000000000D85*
     &Scc**12/(0.1000000000D15*R**
     &2+0.5739600000D15+0.2725540651D15
     &*R-1561744683.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.2725540651D11*R)**(1.0D0/2.0D0))**6
     &-0.1000000000D43*Scc**6/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2725540651D15
     &*R-1561744683.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.2725540651D11*R)**(1.0D0/2.0D0))**3)
     &-405862184.9/(0.2500000000D14*R**
     &2+0.1434900000D15+0.6882598112D14
     &*R-3586135910.*(400000000.*R**
     &2+823560000.-1101215698.*R)**
     &(1.0D0/2.0D0))**(1.0D0/2.0D0)-405862184.9/
     &(0.2500000000D14*R**
     &2+0.1434900000D15+0.3980627170D14
     &*R-812055081.*(2500000000.*R**
     &2+5147250000.-3980627170.*R)**
     &(1.0D0/2.0D0))**(1.0D0/2.0D0)+195622667.1/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250868D15
     &*R-3409372594.*(2500000000.*R**
     &2+5147250000.-3980627170.*R)**
     &(1.0D0/2.0D0))**(1.0D0/2.0D0)+(Ecc*Eoo)**(1.0D0/2.0D0)*
     &(0.1000000000D85*Scc**6*Soo**6/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250868D15
     &*R-3409372594.*(2500000000.*R**
     &2+5147250000.-3980627170.*R)**
     &(1.0D0/2.0D0))**6-0.1000000000D43*Scc**3*
     &Soo**3/(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250868D15
     &*R-3409372594.*(2500000000.*R**
     &2+5147250000.-3980627170.*R)**
     &(1.0D0/2.0D0))**3)+99699167.80/
     &(0.2500000000D14*R**
     &2+0.1434900000D15+0.7001878662D14
     &*R-3469226755.*(400000000.*R**
     &2+823560000.-1120300586.*R)**
     &(1.0D0/2.0D0))**(1.0D0/2.0D0)+(Ecc*Eoo)**(1.0D0/2.0D0)*
     &(0.2441406250D81*Scc**6*Soo**6/
     &(0.2500000000D14*R**
     &2+0.1434900000D15+0.6882598112D14
     &*R-3586135910.*(400000000.*R**
     &2+823560000.-1101215698.*R)**
     &(1.0D0/2.0D0))**6-0.1562500000D41*Scc**3*
     &Soo**3/(0.2500000000D14*R**
     &2+0.1434900000D15+0.6882598112D14
     &*R-3586135910.*(400000000.*R**
     &2+823560000.-1101215698.*R)**
     &(1.0D0/2.0D0))**3)+Ecc*(0.1000000000D85*
     &Scc**12/(0.1000000000D15*R**
     &2+0.5739600000D15+0.2800751465D15
     &*R-0.1306160003D11*(400000000.*R*
     &*2+823560000.-1120300586.*R)**
     &(1.0D0/2.0D0))**6-0.1000000000D43*Scc**6/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2800751465D15
     &*R-0.1306160003D11*(400000000.*R*
     &*2+823560000.-1120300586.*R)**
     &(1.0D0/2.0D0))**3)+44377882.96/
     &(0.1000000000D13*R**
     &2+0.5739600000D13+0.2753039245D13
     &*R-83461613.*(400000000.*R**
     &2+823560000.-1101215698.*R)**
     &(1.0D0/2.0D0))**(1.0D0/2.0D0)+Ecc*
     &(0.1000000000D85*Scc**12/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2800751465D15
     &*R-0.1387652467D11*(400000000.*R*
     &*2+823560000.-1120300586.*R)**
     &(1.0D0/2.0D0))**6-0.1000000000D43*Scc**6/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2800751465D15
     &*R-0.1387652467D11*(400000000.*R*
     &*2+823560000.-1120300586.*R)**
     &(1.0D0/2.0D0))**3)+39879667.12/
     &(0.4000000000D13*R**
     &2+0.2295840000D14+0.6369003472D13
     &*R-109185134.*(2500000000.*R**
     &2+5147250000.-3980627170.*R)**
     &(1.0D0/2.0D0))**(1.0D0/2.0D0)-203390850.0/
     &(0.6250000000D13*R**
     &2+0.3587250000D14+0.1703462907D14
     &*R-179350090.*(0.1000000000D11*R*
     &*2+0.2058900000D11
     &-0.2725540651D11*R)**(1.0D0/2.0D0))**
     &(1.0D0/2.0D0)+(Ecc*Eoo)**(1.0D0/2.0D0)*
     &(0.5960464478D77*Scc**6*Soo**6/
     &(0.6250000000D13*R**
     &2+0.3587250000D14+0.1703462907D14
     &*R-179350090.*(0.1000000000D11*R*
     &*2+0.2058900000D11
     &-0.2725540651D11*R)**(1.0D0/2.0D0))**6
     &-0.2441406250D39*Scc**3*Soo**3/
     &(0.6250000000D13*R**
     &2+0.3587250000D14+0.1703462907D14
     &*R-179350090.*(0.1000000000D11*R*
     &*2+0.2058900000D11
     &-0.2725540651D11*R)**(1.0D0/2.0D0))**3)+
     &Ecc*(0.1000000000D85*Scc**12/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2777749412D15
     &*R-2260700682.*(2500000000.*R**
     &2+5147250000.-6944373530.*R)**
     &(1.0D0/2.0D0))**6-0.1000000000D43*Scc**6/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2777749412D15
     &*R-2260700682.*(2500000000.*R**
     &2+5147250000.-6944373530.*R)**
     &(1.0D0/2.0D0))**3)+(Ecc*Eoo)**(1.0D0/2.0D0)*
     &(0.2441406250D81*Scc**6*Soo**6/
     &(0.2500000000D14*R**
     &2+0.1434900000D15+0.3980627170D14
     &*R-812055081.*(2500000000.*R**
     &2+5147250000.-3980627170.*R)**
     &(1.0D0/2.0D0))**6-0.1562500000D41*Scc**3*
     &Soo**3/(0.2500000000D14*R**
     &2+0.1434900000D15+0.3980627170D14
     &*R-812055081.*(2500000000.*R**
     &2+5147250000.-3980627170.*R)**
     &(1.0D0/2.0D0))**3)+(Ecc*Eoo)**(1.0D0/2.0D0)*
     &(0.2441406250D81*Scc**6*Soo**6/
     &(0.2500000000D14*R**
     &2+0.1434900000D15+0.6944373530D14
     &*R-1400260967.*(2500000000.*R**
     &2+5147250000.-6944373530.*R)**
     &(1.0D0/2.0D0))**6-0.1562500000D41*Scc**3*
     &Soo**3/(0.2500000000D14*R**
     &2+0.1434900000D15+0.6944373530D14
     &*R-1400260967.*(2500000000.*R**
     &2+5147250000.-6944373530.*R)**
     &(1.0D0/2.0D0))**3)+97811333.54/
     &(0.2500000000D14*R**
     &2+0.1434900000D15+0.6944373530D14
     &*R-1400260967.*(2500000000.*R**
     &2+5147250000.-6944373530.*R)**
     &(1.0D0/2.0D0))**(1.0D0/2.0D0)+Ecc*
     &(0.1000000000D85*Scc**12/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2725540651D15
     &*R-2176477614.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.2725540651D11*R)**(1.0D0/2.0D0))**6
     &-0.1000000000D43*Scc**6/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2725540651D15
     &*R-2176477614.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.2725540651D11*R)**(1.0D0/2.0D0))**3)
     &-0000.-6944373530.*R)**
     &(1.0D0/2.0D0))**(1.0D0/2.0D0)+139440123.1/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250867D15
     &*R-2367939013.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.1592250867D11*R)**(1.0D0/2.0D0))**
     &(1.0D0/2.0D0)+(Ecc*Eoo)**(1.0D0/2.0D0)*
     &(0.1000000000D85*Scc**6*Soo**6/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250868D15
     &*R-3843146866.*(2500000000.*R**
     &2+5147250000.-3980627170.*R)**
     &(1.0D0/2.0D0))**6-0.1000000000D43*Scc**3*
     &Soo**3/(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250868D15
     &*R-3843146866.*(2500000000.*R**
     &2+5147250000.-3980627170.*R)**
     &(1.0D0/2.0D0))**3)-109260288.4/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2725540651D15
     &*R-1379726745.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.2725540651D11*R)**(1.0D0/2.0D0))**
     &(1.0D0/2.0D0)+Ecc*(0.1000000000D85*Scc**
     &12/(0.1000000000D15*R**
     &2+0.5739600000D15+0.2725540651D15
     &*R-2331043295.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.2725540651D11*R)**(1.0D0/2.0D0))**6
     &-0.1000000000D43*Scc**6/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2725540651D15
     &*R-2331043295.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.2725540651D11*R)**(1.0D0/2.0D0))**3)
     &+13912492.38/(0.1000000000D13*R**
     &2+0.5739600000D13+0.2753039245D13
     &*R-143445810.*(400000000.*R**
     &2+823560000.-1101215698.*R)**
     &(1.0D0/2.0D0))**(1.0D0/2.0D0)+Ecc*
     &(0.1000000000D85*Scc**12/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250867D15
     &*R-2171540509.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.1592250867D11*R)**(1.0D0/2.0D0))**6
     &-0.1000000000D43*Scc**6/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250867D15
     &*R-2171540509.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.1592250867D11*R)**(1.0D0/2.0D0))**3)+
     &(Ecc*Eoo)**(1.0D0/2.0D0)*
     &(0.1000000000D85*Scc**6*Soo**6/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250867D15
     &*R-2773215898.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.1592250867D11*R)**(1.0D0/2.0D0))**6
     &-0.1000000000D43*Scc**3*Soo**3/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250867D15
     &*R-2773215898.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.1592250867D11*R)**(1.0D0/2.0D0))**3)+
     &Ecc*(0.1000000000D85*Scc**12/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2777749412D15
     &*R-1675797342.*(2500000000.*R**
     &2+5147250000.-6944373530.*R)**
     &(1.0D0/2.0D0))**6-0.1000000000D43*Scc**6/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2777749412D15
     &*R-1675797342.*(2500000000.*R**
     &2+5147250000.-6944373530.*R)**
     &(1.0D0/2.0D0))**3)+Ecc*(0.1000000000D85*
     &Scc**12/(0.1000000000D15*R**
     &2+0.5739600000D15+0.2753039245D15
     &*R-6955218970.*(400000000.*R**
     &2+823560000.-1101215698.*R)**
     &(1.0D0/2.0D0))**6-0.1000000000D43*Scc**6/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2753039245D15
     &*R-6955218970.*(400000000.*R**
     &2+823560000.-1101215698.*R)**
     &(1.0D0/2.0D0))**3)+26271817.32/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2777749412D15
     &*R-1675797342.*(2500000000.*R**
     &2+5147250000.-6944373530.*R)**
     &(1.0D0/2.0D0))**(1.0D0/2.0D0)-813563399.9/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250868D15
     &*R-3843146866.*(2500000000.*R**
     &2+5147250000.-3980627170.*R)**
     &(1.0D0/2.0D0))**(1.0D0/2.0D0)+Ecc*
     &(0.1000000000D97*Scc**12/
     &(0.1000000000D17*R**
     &2+0.5739600000D17+0.1592250867D17
     &*R-0.8218842541D11*
     &(0.1000000000D11*R**
     &2+0.2058900000D11
     &-0.1592250867D11*R)**(1.0D0/2.0D0))**6
     &-0.1000000000D49*Scc**6/
     &(0.1000000000D17*R**
     &2+0.5739600000D17+0.1592250867D17
     &*R-0.8218842541D11*
     &(0.1000000000D11*R**
     &2+0.2058900000D11
     &-0.1592250867D11*R)**(1.0D0/2.0D0))**3)
     &+26271817.32/(0.1000000000D15*R**
     &2+0.5739600000D15+0.2800751465D15
     &*R-0.1306160003D11*(400000000.*R*
     &*2+823560000.-1120300586.*R)**
     &(1.0D0/2.0D0))**(1.0D0/2.0D0)+6443588.103/
     &(0.6250000000D13*R**
     &2+0.3587250000D14+0.1736093382D14
     &*R-269042185.*(2500000000.*R**
     &2+5147250000.-6944373530.*R)**
     &(1.0D0/2.0D0))**(1.0D0/2.0D0)-254476066.9/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250868D15
     &*R-5731770734.*(2500000000.*R**
     &2+5147250000.-3980627170.*R)**
     &(1.0D0/2.0D0))**(1.0D0/2.0D0)+1391249238./
     &(0.1000000000D17*R**
     &2+0.5739600000D17+0.1592250867D17
     &*R-0.8218842541D11*
     &(0.1000000000D11*R**
     &2+0.2058900000D11
     &-0.1592250867D11*R)**(1.0D0/2.0D0))**
     &(1.0D0/2.0D0)+Ecc*(0.1000000000D85*Scc**
     &12/(0.1000000000D15*R**
     &2+0.5739600000D15+0.2800751465D15
     &*R-4782239557.*(400000000.*R**
     &2+823560000.-1120300586.*R)**
     &(1.0D0/2.0D0))**6-0.1000000000D43*Scc**6/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2800751465D15
     &*R-4782239557.*(400000000.*R**
     &2+823560000.-1120300586.*R)**
     &(1.0D0/2.0D0))**3)-107191411.4/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2725540651D15
     &*R-2176477614.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.2725540651D11*R)**(1.0D0/2.0D0))**
     &(1.0D0/2.0D0)+Ecc*(0.1000000000D85*Scc**
     &12/(0.1000000000D15*R**
     &2+0.5739600000D15+0.2800751465D15
     &*R-0.1279232119D11*(400000000.*R*
     &*2+823560000.-1120300586.*R)**
     &(1.0D0/2.0D0))**6-0.1000000000D43*Scc**6/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2800751465D15
     &*R-0.1279232119D11*(400000000.*R*
     &*2+823560000.-1120300586.*R)**
     &(1.0D0/2.0D0))**3)+(Ecc*Eoo)**(1.0D0/2.0D0)*
     &(0.4096000000D76*Scc**6*Soo**6/
     &(0.4000000000D13*R**
     &2+0.2295840000D14+0.6369003472D13
     &*R-109185134.*(2500000000.*R**
     &2+5147250000.-3980627170.*R)**
     &(1.0D0/2.0D0))**6-0.6400000000D38*Scc**3*
     &Soo**3/(0.4000000000D13*R**
     &2+0.2295840000D14+0.6369003472D13
     &*R-109185134.*(2500000000.*R**
     &2+5147250000.-3980627170.*R)**
     &(1.0D0/2.0D0))**3)+Ecc*(0.1000000000D85*
     &Scc**12/(0.1000000000D15*R**
     &2+0.5739600000D15+0.2725540651D15
     &*R-1379726745.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.2725540651D11*R)**(1.0D0/2.0D0))**6
     &-0.1000000000D43*Scc**6/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2725540651D15
     &*R-1379726745.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.2725540651D11*R)**(1.0D0/2.0D0))**3)
     &-109013309.6/(0.1000000000D15*R**
     &2+0.5739600000D15+0.2800751465D15
     &*R-4782239557.*(400000000.*R**
     &2+823560000.-1120300586.*R)**
     &(1.0D0/2.0D0))**(1.0D0/2.0D0)+Ecc*
     &(0.1000000000D85*Scc**12/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250867D15
     &*R-2367939013.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.1592250867D11*R)**(1.0D0/2.0D0))**6
     &-0.1000000000D43*Scc**6/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250867D15
     &*R-2367939013.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.1592250867D11*R)**(1.0D0/2.0D0))**3)
     &+43615745.37/(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250867D15
     &*R-2867553933.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.1592250867D11*R)**(1.0D0/2.0D0))**
     &(1.0D0/2.0D0)+(Ecc*Eoo)**(1.0D0/2.0D0)*
     &(0.1000000000D85*Scc**6*Soo**6/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250868D15
     &*R-5731770734.*(2500000000.*R**
     &2+5147250000.-3980627170.*R)**
     &(1.0D0/2.0D0))**6-0.1000000000D43*Scc**3*
     &Soo**3/(0.1000000000D15*R**
     &2+0.5739600000D15+0.1592250868D15
     &*R-5731770734.*(2500000000.*R**
     &2+5147250000.-3980627170.*R)**
     &(1.0D0/2.0D0))**3)+Ecc*(0.1000000000D85*
     &Scc**12/(0.1000000000D15*R**
     &2+0.5739600000D15+0.2725540651D15
     &*R-2869597295.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.2725540651D11*R)**(1.0D0/2.0D0))**6
     &-0.1000000000D43*Scc**6/
     &(0.1000000000D15*R**
     &2+0.5739600000D15+0.2725540651D15
     &*R-2869597295.*(0.1000000000D11*
     &R**2+0.2058900000D11
     &-0.2725540651D11*R)**(1.0D0/2.0D0))**3)