*dk lsthdata
      block data lsthdata
      implicit real*8 (a-h,o-z)
*ca lsthpotc,lsthleps
      common / leps / de(3), beta(3), r0(3), delta(3), vbase
      common / potcom / c6,c8, rkw(87), ekw(87), wkw(87)
      data de, beta, r0, delta, vbase
     > / 3*4.74764d0, 3*1.04435d0, 3*1.4011d0, 4*0.0d0 /
      data c6,c8/ .66047118d-59,  .5896753d-74/
      data (rkw(i),i=1,44)/
     1  .21166680d-08,  .23812515d-08,  .26458350d-08,  .29104185d-08,
     2  .31750020d-08,  .34395855d-08,  .37041690d-08,  .39687525d-08,
     3  .42333360d-08,  .47625030d-08,  .52916700d-08,  .58208370d-08,
     4  .63500040d-08,  .68791710d-08,  .71437545d-08,  .73554213d-08,
     5  .74083380d-08,  .74136297d-08,  .74141588d-08,  .74612547d-08,
     6  .76729215d-08,  .79375050d-08,  .84666720d-08,  .89958390d-08,
     7 .95250060d-08,  .10054173d-07,  .10583340d-07,  .11112507d-07,
     8  .11641674d-07,  .12170841d-07,  .12700008d-07,  .13229175d-07,
     9  .13758342d-07,  .14287509d-07,  .14816676d-07,  .15345843d-07,
     9  .15875010d-07,  .16404177d-07,  .16933344d-07,  .17462511d-07,
     9  .17991678d-07,  .18520845d-07,  .19050012d-07,  .19579179d-07/
      data (rkw(i),i=45,87)/
     1  .20108346d-07,  .20637513d-07,  .21166680d-07,  .21695847d-07,
     2  .22225014d-07,  .22754181d-07,  .23283348d-07,  .23812515d-07,
     3  .24341682d-07,  .24870849d-07,  .25400016d-07,  .25929183d-07,
     4  .26458350d-07,  .26987517d-07,  .27516684d-07,  .28045851d-07,
     5  .28575018d-07,  .29104185d-07,  .29633352d-07,  .30162519d-07,
     6  .30691686d-07,  .31220853d-07,  .31750020d-07,  .32279187d-07,
     7  .32808354d-07,  .33337521d-07,  .33866688d-07,  .34395855d-07,
     8  .34925022d-07,  .35454189d-07,  .35983356d-07,  .36512523d-07,
     9  .37041690d-07,  .38100024d-07,  .39158358d-07,  .40216692d-07,
     9  .41275026d-07,  .42333360d-07,  .43656277d-07,  .44979195d-07,
     9  .47625030d-07,  .50270865d-07,  .52916700d-07/
      data (ekw(i),i=1,44)/
     1  .38355782d-10,  .28297040d-10,  .20637246d-10,  .14701904d-10,
     2  .10043069d-10,  .63492841d-11,  .33993629d-11,  .10316727d-11,
     3 -.87434721d-12, -.36464790d-11, -.54294007d-11, -.65418745d-11,
     4 -.71904983d-11, -.75136199d-11, -.75841062d-11, -.76054247d-11,
     5 -.76064144d-11, -.76064231d-11, -.76064231d-11, -.76057822d-11,
     6 -.75881650d-11, -.75357581d-11, -.73494368d-11, -.70825018d-11,
     7 -.67603262d-11, -.64020791d-11, -.60219903d-11, -.56307147d-11,
     8 -.52369150d-11, -.48466944d-11, -.44648008d-11, -.40948699d-11,
     9 -.37397225d-11, -.34012157d-11, -.30809408d-11, -.27798701d-11,
     9 -.24985746d-11, -.22372897d-11, -.19959718d-11, -.17743769d-11,
     9 -.15719817d-11, -.13881105d-11, -.12218784d-11, -.10723697d-11/
      data (ekw(i),i=45,87)/
     1 -.93861231d-12, -.81946400d-12, -.71362123d-12, -.62014234d-12,
     2 -.53785022d-12, -.46565062d-12, -.40240566d-12, -.34738295d-12,
     3 -.29951872d-12, -.25799337d-12, -.22200474d-12, -.19087272d-12,
     4 -.16403492d-12, -.14085484d-12, -.12093576d-12, -.10375887d-12,
     5 -.89036444d-13, -.76384837d-13, -.65525033d-13, -.56234691d-13,
     6 -.48256593d-13, -.41407636d-13, -.35530873d-13, -.30526033d-13,
     7 -.26288486d-13, -.22504339d-13, -.19470046d-13, -.16845557d-13,
     8 -.14508803d-13, -.12669045d-13, -.10750814d-13, -.93906135d-14,
     9 -.82353152d-14, -.62516898d-14, -.47345433d-14, -.37841469d-14,
     9 -.29732583d-14, -.23018774d-14, -.17612850d-14, -.13689195d-14,
     9 -.80652901d-15, -.52751357d-15, -.39672508d-15/
      data (wkw(i),i=1,44)/
     1  .47955853d+08,  .33383238d+08,  .24122353d+08,  .17928049d+08,
     2  .13573565d+08,  .10490948d+08,  .82183730d+07,  .65379276d+07,
     3  .51991523d+07,  .34159125d+07,  .23332144d+07,  .16170628d+07,
     4  .11375504d+07,  .80733801d+06,  .68676860d+06,  .59701325d+06,
     5  .58220055d+06,  .55824440d+06,  .57950581d+06,  .55530308d+06,
     6  .48691419d+06,  .40716760d+06,  .28151647d+06,  .19409292d+06,
     7  .12576620d+06,  .75753358d+05,  .39226713d+05,  .70412432d+04,
     8 -.13304725d+05, -.30515597d+05, -.43054465d+05, -.53595765d+05,
     9 -.59330838d+05, -.65643799d+05, -.68753151d+05, -.70834202d+05,
     9 -.71637937d+05, -.71386325d+05, -.70654894d+05, -.68601021d+05,
     9 -.66338213d+05, -.62964080d+05, -.59760288d+05, -.56332558d+05/
      data (wkw(i),i=45,87)/
     1 -.52415850d+05, -.47035830d+05, -.44541699d+05, -.39720725d+05,
     2 -.36276854d+05, -.31426288d+05, -.29891253d+05, -.25188332d+05,
     3 -.22741928d+05, -.19668552d+05, -.17220204d+05, -.15514319d+05,
     4 -.12735742d+05, -.11917426d+05, -.94685547d+04, -.89660376d+04,
     5 -.72596243d+04, -.63673240d+04, -.56644142d+04, -.46042174d+04,
     6 -.40364625d+04, -.34442724d+04, -.30178681d+04, -.31671433d+04,
     7 -.75450027d+03, -.35299574d+04, -.11929538d+04, -.47918458d+03,
     8 -.30556609d+04,  .20525819d+04, -.34732069d+04, -.11680244d+03,
     9 -.45006195d+03, -.34293366d+03, -.67703965d+03,  .15122975d+02,
     9 -.13076777d+03, -.23936742d+03, -.57485345d+02, -.38865755d+02,
     9 -.45225520d+02, -.23109707d+02,  .10620709d+02/
      end
c  ******end of lsth*****
