C  6 AUG 91 - MWS - NEW MODULE FOR 6TH ROW HUZINAGA
C
C  NOTE: WE THANK GOD MARIUSZ KLOBUKOWSKI HAD THIS DATA ON BACKUP TAPE!
C
C*MODULE BASHZ2  *DECK HSIX
      SUBROUTINE HSIX(E,C,NUCZ)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      DIMENSION E(45),C(45)
C
C     HUZINAGA SIXTH ROW MAIN GROUP ELEMENTS
C
      IF(NUCZ.EQ.55) GO TO 100
      IF(NUCZ.EQ.56) GO TO 200
C
      IF(NUCZ.LE.70) THEN
         CALL HLANTH(E,C,NUCZ)
         RETURN
      END IF
C
      IF(NUCZ.LE.80) THEN
         CALL HTMTHR(E,C,NUCZ)
         RETURN
      END IF
C
      IHOP=NUCZ-80+2
      GO TO (100,200,300,400,500,600,700,800), IHOP
C
C     CESIUM
C
  100 CONTINUE
      E(1)= 1.5525866D+04
      E(2)= 2.3490055D+03
      E(3)= 5.1623555D+02
      C(1)= 6.07242D-02
      C(2)= 3.658416D-01
      C(3)= 6.92047D-01
      E(4)= 6.8750505D+02
      E(5)= 6.7191157D+01
      E(6)= 2.7992003D+01
      C(4)=-1.102127D-01
      C(5)= 7.272034D-01
      C(6)= 3.401429D-01
      E(7)= 1.0242833D+03
      E(8)= 2.3964889D+02
      E(9)= 7.1255548D+01
      C(7)= 7.91852D-02
      C(8)= 4.199333D-01
      C(9)= 6.432514D-01
      E(10)= 6.0168188D+01
      E(11)= 1.0868694D+01
      E(12)= 4.7407047D+00
      C(10)=-2.753151D-01
      C(11)= 8.901281D-01
      C(12)= 2.648633D-01
      E(13)= 1.3945864D+02
      E(14)= 2.581081D+01
      E(15)= 1.0139452D+01
      C(13)=-3.31228D-02
      C(14)= 3.891083D-01
      C(15)= 6.790325D-01
      E(16)= 1.4405139D+02
      E(17)= 4.0505146D+01
      E(18)= 1.3086244D+01
      C(16)= 1.118302D-01
      C(17)= 4.768349D-01
      C(18)= 5.954174D-01
      E(19)= 9.8871626D+00
      E(20)= 2.3693425D+00
      E(21)= 1.1416761D+00
      C(19)=-3.688268D-01
      C(20)= 8.325824D-01
      C(21)= 3.887891D-01
      E(22)= 4.3242445D+00
      E(23)= 1.9364152D+00
      E(24)= 8.145053D-01
      C(22)= 3.816688D-01
      C(23)= 5.769763D-01
      C(24)= 1.154047D-01
      E(25)= 7.3715777D+00
      E(26)= 2.7248237D+00
      E(27)= 1.0266781D+00
      C(25)= 2.537255D-01
      C(26)= 5.78886D-01
      C(27)= 3.325981D-01
      E(28)= 1.7690784D+00
      E(29)= 3.8362031D-01
      E(30)= 1.7130634D-01
      C(28)=-3.409418D-01
      C(29)= 7.000971D-01
      C(30)= 4.934524D-01
      E(31)= 5.9458425D-01
      E(32)= 2.7499182D-01
      E(33)= 1.115529D-01
      C(31)= 3.199069D-01
      C(32)= 5.531867D-01
      C(33)= 2.160885D-01
      E(34)= 2.1184878D-01
      E(35)= 4.032421D-02
      E(36)= 1.705814D-02
      C(34)=-2.750217D-01
      C(35)= 1.93604D-01
      C(36)= 9.141935D-01
      RETURN
C
C     BARIUM
C
  200 CONTINUE
      E(1)= 1.6098886D+04
      E(2)= 2.436296D+03
      E(3)= 5.3562078D+02
      C(1)= 6.07199D-02
      C(2)= 3.657475D-01
      C(3)= 6.920963D-01
      E(4)= 7.1309716D+02
      E(5)= 6.9806392D+01
      E(6)= 2.9031078D+01
      C(4)=-1.103332D-01
      C(5)= 7.275923D-01
      C(6)= 3.399361D-01
      E(7)= 1.0653684D+03
      E(8)= 2.4949087D+02
      E(9)= 7.4311477D+01
      C(7)= 7.90271D-02
      C(8)= 4.191952D-01
      C(9)= 6.43758D-01
      E(10)= 6.2480417D+01
      E(11)= 1.1412912D+01
      E(12)= 4.9805876D+00
      C(10)=-2.773775D-01
      C(11)= 8.867966D-01
      C(12)= 2.701325D-01
      E(13)= 1.4706367D+02
      E(14)= 2.679279D+01
      E(15)= 1.0604816D+01
      C(13)=-3.33375D-02
      C(14)= 3.922373D-01
      C(15)= 6.75227D-01
      E(16)= 1.5169168D+02
      E(17)= 4.2753274D+01
      E(18)= 1.3850108D+01
      C(16)= 1.105491D-01
      C(17)= 4.750537D-01
      C(18)= 5.972132D-01
      E(19)= 1.0265539D+01
      E(20)= 2.5292321D+00
      E(21)= 1.2273505D+00
      C(19)=-3.77872D-01
      C(20)= 8.405296D-01
      C(21)= 3.887798D-01
      E(22)= 4.433544D+00
      E(23)= 1.9758409D+00
      E(24)= 8.1191629D-01
      C(22)= 4.153937D-01
      C(23)= 5.642885D-01
      C(24)= 9.2372D-02
      E(25)= 7.7435537D+00
      E(26)= 2.8709772D+00
      E(27)= 1.0976557D+00
      C(25)= 2.643998D-01
      C(26)= 5.858296D-01
      C(27)= 3.112276D-01
      E(28)= 1.9672783D+00
      E(29)= 4.1058204D-01
      E(30)= 1.8712746D-01
      C(28)=-3.632895D-01
      C(29)= 8.040338D-01
      C(30)= 3.967839D-01
      E(31)= 6.1380042D-01
      E(32)= 2.7282586D-01
      E(33)= 1.1006559D-01
      C(31)= 4.303242D-01
      C(32)= 5.355877D-01
      C(33)= 1.136744D-01
      E(34)= 2.1270737D-01
      E(35)= 4.180388D-02
      E(36)= 1.768408D-02
      C(34)=-2.013774D-01
      C(35)= 7.154536D-01
      C(36)= 4.176434D-01
      RETURN
C
C     THALLIUM
C
  300 CONTINUE
      E(1)= 3.4131365D+04
      E(2)= 5.1723898D+03
      E(3)= 1.1401778D+03
      C(1)= 6.0001D-02
      C(2)= 3.626063D-01
      C(3)= 6.949969D-01
      E(4)= 1.5117882D+03
      E(5)= 1.5097546D+02
      E(6)= 6.4320792D+01
      C(4)=-1.127989D-01
      C(5)= 7.369186D-01
      C(6)= 3.301527D-01
      E(7)= 2.3775987D+03
      E(8)= 5.6119485D+02
      E(9)= 1.697312D+02
      C(7)= 7.53926D-02
      C(8)= 4.099688D-01
      C(9)= 6.518046D-01
      E(10)= 1.4010346D+02
      E(11)= 2.7595196D+01
      E(12)= 1.1845526D+01
      C(10)=-2.971921D-01
      C(11)= 9.065841D-01
      C(12)= 2.669625D-01
      E(13)= 3.1631847D+02
      E(14)= 6.4888544D+01
      E(15)= 2.673353D+01
      C(13)=-3.74019D-02
      C(14)= 3.911708D-01
      C(15)= 6.743423D-01
      E(16)= 3.8360621D+02
      E(17)= 1.110916D+02
      E(18)= 3.7869799D+01
      C(16)= 1.021961D-01
      C(17)= 4.68311D-01
      C(18)= 5.976181D-01
      E(19)= 2.6902991D+01
      E(20)= 6.6871496D+00
      E(21)= 3.3176591D+00
      C(19)=-3.793081D-01
      C(20)= 8.769824D-01
      C(21)= 3.550289D-01
      E(22)= 1.2328211D+01
      E(23)= 5.5114323D+00
      E(24)= 2.2169643D+00
      C(22)= 4.360675D-01
      C(23)= 5.574551D-01
      C(24)= 7.5431D-02
      E(25)= 2.2556467D+01
      E(26)= 9.0361081D+00
      E(27)= 3.8880752D+00
      C(25)= 2.872732D-01
      C(26)= 5.606543D-01
      C(27)= 2.917691D-01
      E(28)= 5.6851804D+01
      E(29)= 1.7181822D+01
      E(30)= 5.3079932D+00
      C(28)= 1.704893D-01
      C(29)= 5.344428D-01
      C(30)= 5.513373D-01
      E(31)= 5.6090779D+00
      E(32)= 1.2974407D+00
      E(33)= 5.5988532D-01
      C(31)=-3.948161D-01
      C(32)= 8.823134D-01
      C(33)= 3.507943D-01
      E(34)= 1.993276D+00
      E(35)= 8.9758441D-01
      E(36)= 3.7280215D-01
      C(34)= 4.847093D-01
      C(35)= 4.987045D-01
      C(36)= 8.95761D-02
      E(37)= 2.5003711D+00
      E(38)= 9.4037699D-01
      E(39)= 3.2314233D-01
      C(37)= 3.399404D-01
      C(38)= 5.676636D-01
      C(39)= 2.723492D-01
      E(40)= 9.2812701D-01
      E(41)= 1.1022919D-01
      E(42)= 4.05724D-02
      C(40)=-1.732925D-01
      C(41)= 8.697721D-01
      C(42)= 2.258045D-01
      E(43)= 2.2282221D-01
      E(44)= 9.313363D-02
      E(45)= 3.725345D-02
      C(43)= 2.145554D-01
      C(44)= 5.125545D-01
      C(45)= 3.817007D-01
      RETURN
C
C     LEAD
C
  400 CONTINUE
      E(1)= 3.507524D+04
      E(2)= 5.3112719D+03
      E(3)= 1.1700875D+03
      C(1)= 5.98351D-02
      C(2)= 3.621904D-01
      C(3)= 6.955115D-01
      E(4)= 1.5518174D+03
      E(5)= 1.5431441D+02
      E(6)= 6.548108D+01
      C(4)=-1.12727D-01
      C(5)= 7.418872D-01
      C(6)= 3.251188D-01
      E(7)= 2.4494365D+03
      E(8)= 5.7781442D+02
      E(9)= 1.7467073D+02
      C(7)= 7.49361D-02
      C(8)= 4.089706D-01
      C(9)= 6.530269D-01
      E(10)= 1.4395513D+02
      E(11)= 2.8198551D+01
      E(12)= 1.2139813D+01
      C(10)=-2.977604D-01
      C(11)= 9.161297D-01
      C(12)= 2.568361D-01
      E(13)= 3.2439605D+02
      E(14)= 6.7056357D+01
      E(15)= 2.7668571D+01
      C(13)=-3.77804D-02
      C(14)= 3.872369D-01
      C(15)= 6.780358D-01
      E(16)= 3.9602788D+02
      E(17)= 1.1478406D+02
      E(18)= 3.9165515D+01
      C(16)= 1.015518D-01
      C(17)= 4.672091D-01
      C(18)= 5.988161D-01
      E(19)= 2.7546889D+01
      E(20)= 6.8739521D+00
      E(21)= 3.4374831D+00
      C(19)=-3.839922D-01
      C(20)= 8.909138D-01
      C(21)= 3.440137D-01
      E(22)= 1.3013204D+01
      E(23)= 5.8680654D+00
      E(24)= 2.2720421D+00
      C(22)= 4.135703D-01
      C(23)= 5.716137D-01
      C(24)= 8.58261D-02
      E(25)= 2.3480294D+01
      E(26)= 9.4592198D+00
      E(27)= 4.1021059D+00
      C(25)= 2.843855D-01
      C(26)= 5.58818D-01
      C(27)= 2.94868D-01
      E(28)= 5.9277049D+01
      E(29)= 1.7991863D+01
      E(30)= 5.6059964D+00
      C(28)= 1.703522D-01
      C(29)= 5.352027D-01
      C(30)= 5.483777D-01
      E(31)= 6.0560593D+00
      E(32)= 1.2999385D+00
      E(33)= 5.8010673D-01
      C(31)=-3.675232D-01
      C(32)= 9.261441D-01
      C(33)= 2.848743D-01
      E(34)= 2.132532D+00
      E(35)= 9.8157824D-01
      E(36)= 3.9467207D-01
      C(34)= 4.708301D-01
      C(35)= 5.131364D-01
      C(36)= 8.62959D-02
      E(37)= 2.6854228D+00
      E(38)= 1.0321544D+00
      E(39)= 3.6406946D-01
      C(37)= 3.437064D-01
      C(38)= 5.720556D-01
      C(39)= 2.539847D-01
      E(40)= 1.0041909D+00
      E(41)= 1.5157282D-01
      E(42)= 4.158037D-02
      C(40)=-2.345531D-01
      C(41)= 8.702589D-01
      C(42)= 2.826179D-01
      E(43)= 2.3589377D-01
      E(44)= 9.702808D-02
      E(45)= 3.817897D-02
      C(43)= 3.212519D-01
      C(44)= 5.604186D-01
      C(45)= 2.230238D-01
      RETURN
C
C     BISTHMUS
C
  500 CONTINUE
      E(1)= 3.596366D+04
      E(2)= 5.4454286D+03
      E(3)= 1.1996058D+03
      C(1)= 5.97899D-02
      C(2)= 3.620306D-01
      C(3)= 6.956797D-01
      E(4)= 1.5912502D+03
      E(5)= 1.5816746D+02
      E(6)= 6.6985958D+01
      C(4)=-1.127545D-01
      C(5)= 7.427995D-01
      C(6)= 3.2429D-01
      E(7)= 2.5172545D+03
      E(8)= 5.9388843D+02
      E(9)= 1.7956047D+02
      C(7)= 7.46957D-02
      C(8)= 4.083137D-01
      C(9)= 6.537242D-01
      E(10)= 1.4755203D+02
      E(11)= 2.9134674D+01
      E(12)= 1.2498034D+01
      C(10)=-2.984864D-01
      C(11)= 9.096834D-01
      C(12)= 2.646867D-01
      E(13)= 3.3093361D+02
      E(14)= 6.907541D+01
      E(15)= 2.8522477D+01
      C(13)=-3.79046D-02
      C(14)= 3.862204D-01
      C(15)= 6.790555D-01
      E(16)= 4.0774836D+02
      E(17)= 1.1836555D+02
      E(18)= 4.0481465D+01
      C(16)= 1.012945D-01
      C(17)= 4.662523D-01
      C(18)= 5.99408D-01
      E(19)= 2.8216255D+01
      E(20)= 7.1495803D+00
      E(21)= 3.5218354D+00
      C(19)=-3.886382D-01
      C(20)= 8.948072D-01
      C(21)= 3.451839D-01
      E(22)= 1.3329817D+01
      E(23)= 6.0302971D+00
      E(24)= 2.4456258D+00
      C(22)= 4.230622D-01
      C(23)= 5.634345D-01
      C(24)= 8.20663D-02
      E(25)= 2.4322803D+01
      E(26)= 9.8293386D+00
      E(27)= 4.2764203D+00
      C(25)= 2.836262D-01
      C(26)= 5.599295D-01
      C(27)= 2.933151D-01
      E(28)= 6.1976718D+01
      E(29)= 1.8871879D+01
      E(30)= 5.9233061D+00
      C(28)= 1.693912D-01
      C(29)= 5.355429D-01
      C(30)= 5.466911D-01
      E(31)= 6.2636009D+00
      E(32)= 1.4271684D+00
      E(33)= 6.1662978D-01
      C(31)=-3.81391D-01
      C(32)= 9.092481D-01
      C(33)= 3.171021D-01
      E(34)= 2.2105424D+00
      E(35)= 1.0056903D+00
      E(36)= 4.0840048D-01
      C(34)= 5.015939D-01
      C(35)= 4.977996D-01
      C(36)= 6.7302D-02
      E(37)= 2.7618843D+00
      E(38)= 1.0712666D+00
      E(39)= 3.8408917D-01
      C(37)= 3.726898D-01
      C(38)= 5.718582D-01
      C(39)= 2.160448D-01
      E(40)= 1.0835409D+00
      E(41)= 1.6361768D-01
      E(42)= 4.260071D-02
      C(40)=-2.66303D-01
      C(41)= 9.547685D-01
      C(42)= 2.038896D-01
      E(43)= 2.4893283D-01
      E(44)= 9.886529D-02
      E(45)= 3.911584D-02
      C(43)= 4.353007D-01
      C(44)= 5.414271D-01
      C(45)= 1.184326D-01
      RETURN
C
C     POLONIUM
C
  600 CONTINUE
      E(1)= 3.6867892D+04
      E(2)= 5.5815605D+03
      E(3)= 1.2295467D+03
      C(1)= 5.97396D-02
      C(2)= 3.618671D-01
      C(3)= 6.95855D-01
      E(4)= 1.6313133D+03
      E(5)= 1.618207D+02
      E(6)= 6.7853196D+01
      C(4)=-1.126817D-01
      C(5)= 7.46108D-01
      C(6)= 3.213951D-01
      E(7)= 2.5859828D+03
      E(8)= 6.1013029D+02
      E(9)= 1.8448204D+02
      C(7)= 7.44629D-02
      C(8)= 4.077334D-01
      C(9)= 6.543629D-01
      E(10)= 1.5133201D+02
      E(11)= 2.9857813D+01
      E(12)= 1.2666596D+01
      C(10)=-2.989084D-01
      C(11)= 9.149115D-01
      C(12)= 2.600228D-01
      E(13)= 3.4055674D+02
      E(14)= 7.1276662D+01
      E(15)= 2.9491315D+01
      C(13)=-3.82561D-02
      C(14)= 3.823956D-01
      C(15)= 6.825233D-01
      E(16)= 4.217038D+02
      E(17)= 1.2238581D+02
      E(18)= 4.1880233D+01
      C(16)= 1.003116D-01
      C(17)= 4.647457D-01
      C(18)= 6.01276D-01
      E(19)= 2.9409549D+01
      E(20)= 7.2021546D+00
      E(21)= 3.5479184D+00
      C(19)=-3.820933D-01
      C(20)= 9.275939D-01
      C(21)= 3.053887D-01
      E(22)= 1.4029785D+01
      E(23)= 6.4245656D+00
      E(24)= 2.6492696D+00
      C(22)= 4.029453D-01
      C(23)= 5.715225D-01
      C(24)= 9.42772D-02
      E(25)= 2.5183871D+01
      E(26)= 1.0214589D+01
      E(27)= 4.4950523D+00
      C(25)= 2.83553D-01
      C(26)= 5.580633D-01
      C(27)= 2.934985D-01
      E(28)= 6.4795841D+01
      E(29)= 1.9791217D+01
      E(30)= 6.2541857D+00
      C(28)= 1.681614D-01
      C(29)= 5.355027D-01
      C(30)= 5.456886D-01
      E(31)= 6.4693577D+00
      E(32)= 1.4613166D+00
      E(33)= 6.449106D-01
      C(31)=-3.830339D-01
      C(32)= 9.531587D-01
      C(33)= 2.725793D-01
      E(34)= 2.3710859D+00
      E(35)= 1.1111472D+00
      E(36)= 4.1830074D-01
      C(34)= 4.781188D-01
      C(35)= 5.168473D-01
      C(36)= 7.11346D-02
      E(37)= 3.0692218D+00
      E(38)= 1.219541D+00
      E(39)= 4.4471254D-01
      C(37)= 3.500265D-01
      C(38)= 5.809209D-01
      C(39)= 2.231577D-01
      E(40)= 1.2428201D+00
      E(41)= 1.8277504D-01
      E(42)= 4.363342D-02
      C(40)=-2.907553D-01
      C(41)= 9.91198D-01
      C(42)= 1.728911D-01
      E(43)= 2.7680626D-01
      E(44)= 1.0126194D-01
      E(45)= 4.006407D-02
      C(43)= 4.983952D-01
      C(44)= 5.216655D-01
      C(45)= 7.70469D-02
      RETURN
C
C     ASTATINE
C
  700 CONTINUE
      E(1)= 3.7776571D+04
      E(2)= 5.7185732D+03
      E(3)= 1.2597282D+03
      C(1)= 5.97016D-02
      C(2)= 3.617435D-01
      C(3)= 6.959848D-01
      E(4)= 1.6696097D+03
      E(5)= 1.658396D+02
      E(6)= 6.9717694D+01
      C(4)=-1.127567D-01
      C(5)= 7.462998D-01
      C(6)= 3.211019D-01
      E(7)= 2.6553837D+03
      E(8)= 6.2633825D+02
      E(9)= 1.8939113D+02
      C(7)= 7.42646D-02
      C(8)= 4.073604D-01
      C(9)= 6.548009D-01
      E(10)= 1.5565678D+02
      E(11)= 3.0520449D+01
      E(12)= 1.2699037D+01
      C(10)=-2.973679D-01
      C(11)= 9.201904D-01
      C(12)= 2.542612D-01
      E(13)= 3.4649889D+02
      E(14)= 7.3495813D+01
      E(15)= 3.0402772D+01
      C(13)=-3.8432D-02
      C(14)= 3.80631D-01
      C(15)= 6.843942D-01
      E(16)= 4.3427898D+02
      E(17)= 1.261555D+02
      E(18)= 4.3240302D+01
      C(16)= 9.99131D-02
      C(17)= 4.638397D-01
      C(18)= 6.020334D-01
      E(19)= 3.0256338D+01
      E(20)= 7.4299444D+00
      E(21)= 3.6548245D+00
      C(19)=-3.835086D-01
      C(20)= 9.334748D-01
      C(21)= 3.007817D-01
      E(22)= 1.4334294D+01
      E(23)= 6.5437078D+00
      E(24)= 2.6726334D+00
      C(22)= 4.138476D-01
      C(23)= 5.676362D-01
      C(24)= 8.65671D-02
      E(25)= 2.6081763D+01
      E(26)= 1.0651015D+01
      E(27)= 4.7470935D+00
      C(25)= 2.823875D-01
      C(26)= 5.537894D-01
      C(27)= 2.970252D-01
      E(28)= 6.7670974D+01
      E(29)= 2.0720618D+01
      E(30)= 6.5872235D+00
      C(28)= 1.670327D-01
      C(29)= 5.357835D-01
      C(30)= 5.445086D-01
      E(31)= 6.799067D+00
      E(32)= 1.5270767D+00
      E(33)= 6.6035701D-01
      C(31)=-3.767089D-01
      C(32)= 9.732817D-01
      C(33)= 2.500856D-01
      E(34)= 2.4797553D+00
      E(35)= 1.1577118D+00
      E(36)= 4.2831956D-01
      C(34)= 4.940629D-01
      C(35)= 5.099957D-01
      C(36)= 5.96195D-02
      E(37)= 3.1664963D+00
      E(38)= 1.2549894D+00
      E(39)= 4.7297912D-01
      C(37)= 3.785868D-01
      C(38)= 5.763374D-01
      C(39)= 1.915263D-01
      E(40)= 1.3540229D+00
      E(41)= 2.0700628D-01
      E(42)= 4.467849D-02
      C(40)=-2.865345D-01
      C(41)= 1.010233D+00
      C(42)= 1.589027D-01
      E(43)= 2.9831651D-01
      E(44)= 1.0695344D-01
      E(45)= 4.102365D-02
      C(43)= 5.541128D-01
      C(44)= 4.849933D-01
      C(45)= 5.59909D-02
      RETURN
C
C     RADON
C
  800 CONTINUE
      E(1)= 3.8634492D+04
      E(2)= 5.852336D+03
      E(3)= 1.2897187D+03
      C(1)= 5.97563D-02
      C(2)= 3.617782D-01
      C(3)= 6.958837D-01
      E(4)= 1.710508D+03
      E(5)= 1.6955891D+02
      E(6)= 7.0548371D+01
      C(4)=-1.126837D-01
      C(5)= 7.496104D-01
      C(6)= 3.182236D-01
      E(7)= 2.7332176D+03
      E(8)= 6.4418252D+02
      E(9)= 1.9494224D+02
      C(7)= 7.3863D-02
      C(8)= 4.061085D-01
      C(9)= 6.56063D-01
      E(10)= 1.5892829D+02
      E(11)= 3.1748256D+01
      E(12)= 1.4197685D+01
      C(10)=-3.022314D-01
      C(11)= 9.042464D-01
      C(12)= 2.711234D-01
      E(13)= 3.6084753D+02
      E(14)= 7.7080714D+01
      E(15)= 3.1547775D+01
      C(13)=-3.86689D-02
      C(14)= 3.67417D-01
      C(15)= 6.977983D-01
      E(16)= 4.5168521D+02
      E(17)= 1.311073D+02
      E(18)= 4.4898191D+01
      C(16)= 9.79008D-02
      C(17)= 4.603345D-01
      C(18)= 6.066244D-01
      E(19)= 3.0871286D+01
      E(20)= 7.9177164D+00
      E(21)= 3.9643042D+00
      C(19)=-3.929887D-01
      C(20)= 8.867217D-01
      C(21)= 3.562264D-01
      E(22)= 5.5835907D+01
      E(23)= 1.2265749D+01
      E(24)= 5.6389792D+00
      C(22)=-1.14409D-01
      C(23)= 5.688023D-01
      C(24)= 5.191901D-01
      E(25)= 2.6989804D+01
      E(26)= 1.0979775D+01
      E(27)= 4.8990999D+00
      C(25)= 2.829638D-01
      C(26)= 5.586436D-01
      C(27)= 2.90951D-01
      E(28)= 7.1255348D+01
      E(29)= 2.1844942D+01
      E(30)= 6.9772755D+00
      C(28)= 1.637813D-01
      C(29)= 5.341357D-01
      C(30)= 5.469714D-01
      E(31)= 6.6237042D+00
      E(32)= 1.7190412D+00
      E(33)= 7.9915287D-01
      C(31)=-4.3546D-01
      C(32)= 9.268309D-01
      C(33)= 3.407903D-01
      E(34)= 2.50277D+00
      E(35)= 1.1043323D+00
      E(36)= 4.1119D-01
      C(34)= 5.662413D-01
      C(35)= 4.638213D-01
      C(36)= 3.02746D-02
      E(37)= 3.6329003D+00
      E(38)= 1.5131756D+00
      E(39)= 5.8490621D-01
      C(37)= 3.218022D-01
      C(38)= 5.8162D-01
      C(39)= 2.380017D-01
      E(40)= 1.342131D+00
      E(41)= 2.6767369D-01
      E(42)= 1.0544732D-01
      C(40)=-3.405358D-01
      C(41)= 8.102372D-01
      C(42)= 3.844879D-01
      E(43)= 3.81996D-01
      E(44)= 1.60392D-01
      E(45)= 6.61157D-02
      C(43)= 4.321029D-01
      C(44)= 5.050096D-01
      C(45)= 1.595361D-01
      RETURN
      END
C*MODULE BASHZ2  *DECK HLANTH
      SUBROUTINE HLANTH(E,C,NUCZ)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      DIMENSION E(40),C(40)
C
C     HUZINAGA LANTHANIDES...ALL ARE 4F(N),5D(0),6S(2) STATES.
C     NOTE ALSO THAT THE F EXPANSIONS HOLD 4 GAUSSIANS.
C
      IHOP = NUCZ-56
      GO TO (100,200,300,400,500,600,700,800,900,1000,
     *       1100,1200,1300,1400), IHOP
C
C     LANTHANUM 2-F
C
  100 CONTINUE
      E(1)= 1.662544D+04
      E(2)= 2.5192937D+03
      E(3)= 5.546769D+02
      C(1)= 6.09359D-02
      C(2)= 3.661543D-01
      C(3)= 6.914798D-01
      E(4)= 7.3806161D+02
      E(5)= 7.2542668D+01
      E(6)= 3.0332746D+01
      C(4)=-1.105265D-01
      C(5)= 7.265141D-01
      C(6)= 3.408799D-01
      E(7)= 1.100734D+03
      E(8)= 2.581062D+02
      E(9)= 7.7064873D+01
      C(7)= 7.95299D-02
      C(8)= 4.204338D-01
      C(9)= 6.419901D-01
      E(10)= 6.5022157D+01
      E(11)= 1.188051D+01
      E(12)= 5.0799848D+00
      C(10)=-2.778738D-01
      C(11)= 8.951231D-01
      C(12)= 2.629053D-01
      E(13)= 1.5729247D+02
      E(14)= 2.7442045D+01
      E(15)= 1.0932262D+01
      C(13)=-3.33548D-02
      C(14)= 4.057066D-01
      C(15)= 6.616068D-01
      E(16)= 1.5717832D+02
      E(17)= 4.439378D+01
      E(18)= 1.4460783D+01
      C(16)= 1.120244D-01
      C(17)= 4.782146D-01
      C(18)= 5.922607D-01
      E(19)= 1.0833873D+01
      E(20)= 2.6683331D+00
      E(21)= 1.279477D+00
      C(19)=-3.775915D-01
      C(20)= 8.430458D-01
      C(21)= 3.86647D-01
      E(22)= 4.597872D+00
      E(23)= 2.0136263D+00
      E(24)= 7.7692443D-01
      C(22)= 4.39394D-01
      C(23)= 5.57974D-01
      C(24)= 7.52893D-02
      E(25)= 7.932049D+00
      E(26)= 2.9378166D+00
      E(27)= 1.123846D+00
      C(25)= 2.829726D-01
      C(26)= 5.906859D-01
      C(27)= 2.872377D-01
      E(28)= 2.0541754D+00
      E(29)= 4.2145344D-01
      E(30)= 1.8969742D-01
      C(28)=-3.560968D-01
      C(29)= 8.367243D-01
      C(30)= 3.610625D-01
      E(31)= 6.3938885D-01
      E(32)= 2.7659869D-01
      E(33)= 1.0974625D-01
      C(31)= 4.469577D-01
      C(32)= 5.338706D-01
      C(33)= 9.96811D-02
      E(34)= 2.3231033D+01
      E(35)= 6.8221675D+00
      E(36)= 2.1843543D+00
      E(37)= 6.2500149D-01
      C(34)= 8.48026D-02
      C(35)= 3.185478D-01
      C(36)= 5.215605D-01
      C(37)= 4.458382D-01
      E(38)= 2.1333194D-01
      E(39)= 4.33102D-02
      E(40)= 1.832129D-02
      C(38)=-1.919227D-01
      C(39)= 7.0088D-01
      C(40)= 4.300542D-01
      RETURN
C
C     CERIUM 3-H
C
  200 CONTINUE
      E(1)= 1.7261118D+04
      E(2)= 2.6142239D+03
      E(3)= 5.7525356D+02
      C(1)= 6.07638D-02
      C(2)= 3.656823D-01
      C(3)= 6.920432D-01
      E(4)= 7.6572152D+02
      E(5)= 7.5195756D+01
      E(6)= 3.1381854D+01
      C(4)=-1.106185D-01
      C(5)= 7.27871D-01
      C(6)= 3.39605D-01
      E(7)= 1.1410638D+03
      E(8)= 2.6781001D+02
      E(9)= 8.0147542D+01
      C(7)= 7.96317D-02
      C(8)= 4.202625D-01
      C(9)= 6.417642D-01
      E(10)= 6.7475838D+01
      E(11)= 1.2438016D+01
      E(12)= 5.3575335D+00
      C(10)=-2.798715D-01
      C(11)= 8.931133D-01
      C(12)= 2.662826D-01
      E(13)= 1.5936103D+02
      E(14)= 2.9022085D+01
      E(15)= 1.156846D+01
      C(13)=-3.32807D-02
      C(14)= 3.970831D-01
      C(15)= 6.699493D-01
      E(16)= 1.641335D+02
      E(17)= 4.6508119D+01
      E(18)= 1.5198705D+01
      C(16)= 1.118343D-01
      C(17)= 4.779431D-01
      C(18)= 5.918922D-01
      E(19)= 1.1413568D+01
      E(20)= 2.7973046D+00
      E(21)= 1.3446362D+00
      C(19)=-3.759205D-01
      C(20)= 8.430916D-01
      C(21)= 3.85076D-01
      E(22)= 4.8235492D+00
      E(23)= 2.1015449D+00
      E(24)= 7.8594489D-01
      C(22)= 4.438528D-01
      C(23)= 5.57609D-01
      C(24)= 7.19006D-02
      E(25)= 8.4807186D+00
      E(26)= 3.1599453D+00
      E(27)= 1.2103814D+00
      C(25)= 2.785615D-01
      C(26)= 5.871626D-01
      C(27)= 2.949838D-01
      E(28)= 2.2097198D+00
      E(29)= 4.3697325D-01
      E(30)= 1.9857828D-01
      C(28)=-3.554107D-01
      C(29)= 8.258265D-01
      C(30)= 3.659862D-01
      E(31)= 6.6808886D-01
      E(32)= 2.889284D-01
      E(33)= 1.1363078D-01
      C(31)= 4.45396D-01
      C(32)= 5.33501D-01
      C(33)= 1.027921D-01
      E(34)= 2.6139561D+01
      E(35)= 7.7491838D+00
      E(36)= 2.5050383D+00
      E(37)= 7.3333938D-01
      C(34)= 8.09736D-02
      C(35)= 3.139003D-01
      C(36)= 5.232838D-01
      C(37)= 4.426836D-01
      E(38)= 2.245275D-01
      E(39)= 4.484319D-02
      E(40)= 1.896978D-02
      C(38)=-2.004514D-01
      C(39)= 6.844032D-01
      C(40)= 4.488729D-01
      RETURN
C
C     PRASEODYMIUM 4-I
C
  300 CONTINUE
      E(1)= 1.7886843D+04
      E(2)= 2.7083926D+03
      E(3)= 5.9592268D+02
      C(1)= 6.0681D-02
      C(2)= 3.654327D-01
      C(3)= 6.923172D-01
      E(4)= 7.9303026D+02
      E(5)= 7.7889637D+01
      E(6)= 3.2526404D+01
      C(4)=-1.10719D-01
      C(5)= 7.292466D-01
      C(6)= 3.381817D-01
      E(7)= 1.1917574D+03
      E(8)= 2.7946559D+02
      E(9)= 8.3496655D+01
      C(7)= 7.87516D-02
      C(8)= 4.18651D-01
      C(9)= 6.439389D-01
      E(10)= 7.0100725D+01
      E(11)= 1.2959578D+01
      E(12)= 5.5771203D+00
      C(10)=-2.809137D-01
      C(11)= 8.959656D-01
      C(12)= 2.641582D-01
      E(13)= 1.6474089D+02
      E(14)= 3.0359081D+01
      E(15)= 1.2121698D+01
      C(13)=-3.387D-02
      C(14)= 3.95047D-01
      C(15)= 6.719295D-01
      E(16)= 1.7177896D+02
      E(17)= 4.8703353D+01
      E(18)= 1.5963562D+01
      C(16)= 1.113158D-01
      C(17)= 4.777975D-01
      C(18)= 5.91725D-01
      E(19)= 1.1952788D+01
      E(20)= 2.9175114D+00
      E(21)= 1.3900121D+00
      C(19)=-3.748941D-01
      C(20)= 8.546478D-01
      C(21)= 3.733135D-01
      E(22)= 5.1385128D+00
      E(23)= 2.2538269D+00
      E(24)= 8.7313773D-01
      C(22)= 4.321463D-01
      C(23)= 5.611356D-01
      C(24)= 8.01383D-02
      E(25)= 8.9281848D+00
      E(26)= 3.331993D+00
      E(27)= 1.2748513D+00
      C(25)= 2.809806D-01
      C(26)= 5.869343D-01
      C(27)= 2.928538D-01
      E(28)= 2.3097738D+00
      E(29)= 4.5748947D-01
      E(30)= 2.0271971D-01
      C(28)=-3.516056D-01
      C(29)= 8.231239D-01
      C(30)= 3.686808D-01
      E(31)= 7.0148489D-01
      E(32)= 3.0047369D-01
      E(33)= 1.2131011D-01
      C(31)= 4.422667D-01
      C(32)= 5.336878D-01
      C(33)= 1.066328D-01
      E(34)= 2.7475121D+01
      E(35)= 8.1971451D+00
      E(36)= 2.6760726D+00
      E(37)= 7.9088718D-01
      C(34)= 8.42526D-02
      C(35)= 3.215852D-01
      C(36)= 5.239577D-01
      C(37)= 4.293941D-01
      E(38)= 2.3370796D-01
      E(39)= 4.605482D-02
      E(40)= 1.977678D-02
      C(38)=-2.047518D-01
      C(39)= 6.691118D-01
      C(40)= 4.637875D-01
      RETURN
C
C     NEODYMIUM 5-I
C
  400 CONTINUE
      E(1)= 1.8526642D+04
      E(2)= 2.8048423D+03
      E(3)= 6.1704358D+02
      C(1)= 6.05876D-02
      C(2)= 3.651271D-01
      C(3)= 6.926526D-01
      E(4)= 8.2124079D+02
      E(5)= 8.0575481D+01
      E(6)= 3.3535519D+01
      C(4)=-1.107753D-01
      C(5)= 7.31765D-01
      C(6)= 3.357808D-01
      E(7)= 1.2345803D+03
      E(8)= 2.8969646D+02
      E(9)= 8.6648623D+01
      C(7)= 7.87454D-02
      C(8)= 4.18602D-01
      C(9)= 6.438205D-01
      E(10)= 7.2745461D+01
      E(11)= 1.3509141D+01
      E(12)= 5.8627242D+00
      C(10)=-2.823472D-01
      C(11)= 8.966473D-01
      C(12)= 2.641148D-01
      E(13)= 1.6858307D+02
      E(14)= 3.1866276D+01
      E(15)= 1.2721128D+01
      C(13)=-3.40075D-02
      C(14)= 3.909916D-01
      C(15)= 6.759948D-01
      E(16)= 1.796566D+02
      E(17)= 5.0987916D+01
      E(18)= 1.6747778D+01
      C(16)= 1.106871D-01
      C(17)= 4.774459D-01
      C(18)= 5.919556D-01
      E(19)= 1.2536668D+01
      E(20)= 3.0529657D+00
      E(21)= 1.4459091D+00
      C(19)=-3.73329D-01
      C(20)= 8.556638D-01
      C(21)= 3.715675D-01
      E(22)= 5.5014686D+00
      E(23)= 2.441901D+00
      E(24)= 1.0013475D+00
      C(22)= 4.135184D-01
      C(23)= 5.644878D-01
      C(24)= 9.51912D-02
      E(25)= 9.4309935D+00
      E(26)= 3.5273865D+00
      E(27)= 1.3506401D+00
      C(25)= 2.808573D-01
      C(26)= 5.852852D-01
      C(27)= 2.94646D-01
      E(28)= 2.3675661D+00
      E(29)= 4.8032361D-01
      E(30)= 2.1321496D-01
      C(28)=-3.452861D-01
      C(29)= 8.094339D-01
      C(30)= 3.827644D-01
      E(31)= 7.4285559D-01
      E(32)= 3.2091091D-01
      E(33)= 1.2917825D-01
      C(31)= 4.228918D-01
      C(32)= 5.407912D-01
      C(33)= 1.205496D-01
      E(34)= 2.9610554D+01
      E(35)= 8.8796987D+00
      E(36)= 2.911521D+00
      E(37)= 8.6225689D-01
      C(34)= 8.36033D-02
      C(35)= 3.215007D-01
      C(36)= 5.245325D-01
      C(37)= 4.276097D-01
      E(38)= 2.4169741D-01
      E(39)= 4.856361D-02
      E(40)= 2.045286D-02
      C(38)=-2.123201D-01
      C(39)= 6.410192D-01
      C(40)= 4.966707D-01
      RETURN
C
C     PROMETHIUM 6-H
C
  500 CONTINUE
      E(1)= 1.9159059D+04
      E(2)= 2.9008327D+03
      E(3)= 6.3827198D+02
      C(1)= 6.05619D-02
      C(2)= 3.650056D-01
      C(3)= 6.927569D-01
      E(4)= 8.4958277D+02
      E(5)= 8.3341451D+01
      E(6)= 3.4625265D+01
      C(4)=-1.108554D-01
      C(5)= 7.336528D-01
      C(6)= 3.339623D-01
      E(7)= 1.2809289D+03
      E(8)= 3.0067027D+02
      E(9)= 8.9959488D+01
      C(7)= 7.84782D-02
      C(8)= 4.180326D-01
      C(9)= 6.444278D-01
      E(10)= 7.5520257D+01
      E(11)= 1.4029012D+01
      E(12)= 6.0294403D+00
      C(10)=-2.828345D-01
      C(11)= 9.021283D-01
      C(12)= 2.592573D-01
      E(13)= 1.7515156D+02
      E(14)= 3.3032232D+01
      E(15)= 1.3226298D+01
      C(13)=-3.42461D-02
      C(14)= 3.940065D-01
      C(15)= 6.729218D-01
      E(16)= 1.8722437D+02
      E(17)= 5.32178D+01
      E(18)= 1.7525139D+01
      C(16)= 1.104956D-01
      C(17)= 4.776191D-01
      C(18)= 5.913436D-01
      E(19)= 1.3179882D+01
      E(20)= 3.1664005D+00
      E(21)= 1.5049793D+00
      C(19)=-3.692896D-01
      C(20)= 8.617535D-01
      C(21)= 3.618931D-01
      E(22)= 5.7636903D+00
      E(23)= 2.5431625D+00
      E(24)= 1.0364114D+00
      C(22)= 4.174654D-01
      C(23)= 5.6393D-01
      C(24)= 9.21161D-02
      E(25)= 9.8543016D+00
      E(26)= 3.6872548D+00
      E(27)= 1.4117181D+00
      C(25)= 2.853567D-01
      C(26)= 5.852009D-01
      C(27)= 2.902922D-01
      E(28)= 2.5039828D+00
      E(29)= 5.0626814D-01
      E(30)= 2.2606303D-01
      C(28)=-3.467544D-01
      C(29)= 7.774164D-01
      C(30)= 4.133012D-01
      E(31)= 7.7440027D-01
      E(32)= 3.3432315D-01
      E(33)= 1.3759787D-01
      C(31)= 4.197609D-01
      C(32)= 5.371351D-01
      C(33)= 1.280269D-01
      E(34)= 3.0839766D+01
      E(35)= 9.3015739D+00
      E(36)= 3.0627573D+00
      E(37)= 9.081981D-01
      C(34)= 8.66158D-02
      C(35)= 3.277359D-01
      C(36)= 5.24085D-01
      C(37)= 4.196829D-01
      E(38)= 2.4982112D-01
      E(39)= 4.97224D-02
      E(40)= 2.11403D-02
      C(38)=-2.139898D-01
      C(39)= 6.289105D-01
      C(40)= 5.077477D-01
      RETURN
C
C     SAMARIUM 7-F
C
  600 CONTINUE
      E(1)= 1.9842708D+04
      E(2)= 3.0021144D+03
      E(3)= 6.60288D+02
      C(1)= 6.04129D-02
      C(2)= 3.646398D-01
      C(3)= 6.932013D-01
      E(4)= 8.7904586D+02
      E(5)= 8.6285511D+01
      E(6)= 3.6009643D+01
      C(4)=-1.109973D-01
      C(5)= 7.328357D-01
      C(6)= 3.345842D-01
      E(7)= 1.329827D+03
      E(8)= 3.1219809D+02
      E(9)= 9.345362D+01
      C(7)= 7.81022D-02
      C(8)= 4.170192D-01
      C(9)= 6.45485D-01
      E(10)= 7.8329115D+01
      E(11)= 1.4573156D+01
      E(12)= 6.2287472D+00
      C(10)=-2.83507D-01
      C(11)= 9.054729D-01
      C(12)= 2.565598D-01
      E(13)= 1.8254042D+02
      E(14)= 3.4346164D+01
      E(15)= 1.3784402D+01
      C(13)=-3.45341D-02
      C(14)= 3.937909D-01
      C(15)= 6.729263D-01
      E(16)= 1.9529689D+02
      E(17)= 5.5593987D+01
      E(18)= 1.834806D+01
      C(16)= 1.09991D-01
      C(17)= 4.771221D-01
      C(18)= 5.916223D-01
      E(19)= 1.3752721D+01
      E(20)= 3.3563672D+00
      E(21)= 1.5718294D+00
      C(19)=-3.70342D-01
      C(20)= 8.468583D-01
      C(21)= 3.795108D-01
      E(22)= 6.1634636D+00
      E(23)= 2.729236D+00
      E(24)= 1.0706707D+00
      C(22)= 3.975439D-01
      C(23)= 5.769811D-01
      C(24)= 1.012375D-01
      E(25)= 1.0389082D+01
      E(26)= 3.8703504D+00
      E(27)= 1.4811196D+00
      C(25)= 2.859941D-01
      C(26)= 5.863899D-01
      C(27)= 2.888684D-01
      E(28)= 2.6439751D+00
      E(29)= 5.2293987D-01
      E(30)= 2.3610458D-01
      C(28)=-3.54785D-01
      C(29)= 7.671895D-01
      C(30)= 4.223481D-01
      E(31)= 8.0855734D-01
      E(32)= 3.4537441D-01
      E(33)= 1.4370986D-01
      C(31)= 4.152969D-01
      C(32)= 5.410361D-01
      C(33)= 1.292299D-01
      E(34)= 3.3212664D+01
      E(35)= 1.004506D+01
      E(36)= 3.3169803D+00
      E(37)= 9.7947735D-01
      C(34)= 8.51107D-02
      C(35)= 3.257303D-01
      C(36)= 5.249144D-01
      C(37)= 4.214426D-01
      E(38)= 2.5807912D-01
      E(39)= 5.136601D-02
      E(40)= 2.183911D-02
      C(38)=-2.15899D-01
      C(39)= 6.094654D-01
      C(40)= 5.271336D-01
      RETURN
C
C     EUROPIUM 8-S
C
  700 CONTINUE
      E(1)= 2.0507003D+04
      E(2)= 3.1028009D+03
      E(3)= 6.8235369D+02
      C(1)= 6.03526D-02
      C(2)= 3.644263D-01
      C(3)= 6.934313D-01
      E(4)= 9.0788537D+02
      E(5)= 8.9668374D+01
      E(6)= 3.8112692D+01
      C(4)=-1.113376D-01
      C(5)= 7.253497D-01
      C(6)= 3.414365D-01
      E(7)= 1.3845829D+03
      E(8)= 3.2459262D+02
      E(9)= 9.7074434D+01
      C(7)= 7.7376D-02
      C(8)= 4.157355D-01
      C(9)= 6.47184D-01
      E(10)= 8.0647184D+01
      E(11)= 1.5647728D+01
      E(12)= 7.4065456D+00
      C(10)=-2.893875D-01
      C(11)= 8.501431D-01
      C(12)= 3.140286D-01
      E(13)= 1.8869784D+02
      E(14)= 3.5858186D+01
      E(15)= 1.4439022D+01
      C(13)=-3.50543D-02
      C(14)= 3.895085D-01
      C(15)= 6.767807D-01
      E(16)= 2.059212D+02
      E(17)= 5.8526401D+01
      E(18)= 1.9299158D+01
      C(16)= 1.076601D-01
      C(17)= 4.744727D-01
      C(18)= 5.956181D-01
      E(19)= 1.4082371D+01
      E(20)= 3.9851714D+00
      E(21)= 2.1380518D+00
      C(19)=-3.914035D-01
      C(20)= 5.756313D-01
      C(21)= 6.601493D-01
      E(22)= 7.0626748D+00
      E(23)= 3.4820688D+00
      E(24)= 1.6742596D+00
      C(22)= 3.001791D-01
      C(23)= 5.330359D-01
      C(24)= 2.383721D-01
      E(25)= 1.1011484D+01
      E(26)= 4.1362487D+00
      E(27)= 1.5896167D+00
      C(25)= 2.799785D-01
      C(26)= 5.796519D-01
      C(27)= 3.014955D-01
      E(28)= 4.54898D+00
      E(29)= 7.0187288D-01
      E(30)= 3.5287489D-01
      C(28)=-4.1773D-03
      C(29)= 2.346292D-01
      C(30)= 7.822717D-01
      E(31)= 1.9741929D+00
      E(32)= 7.7456119D-01
      E(33)= 2.7333192D-01
      C(31)=-1.23731D-02
      C(32)= 5.332838D-01
      C(33)= 5.520593D-01
      E(34)= 3.7125837D+01
      E(35)= 1.1248423D+01
      E(36)= 3.7191113D+00
      E(37)= 1.0960099D+00
      C(34)= 7.85951D-02
      C(35)= 3.140544D-01
      C(36)= 5.258441D-01
      C(37)= 4.342082D-01
      E(38)= 8.3915121D-01
      E(39)= 6.491549D-02
      E(40)= 2.469337D-02
      C(38)=-8.19894D-02
      C(39)=-3.165455D-01
      C(40)=-6.935623D-01
      RETURN
C
C     GADOLINIUM 7-F
C
  800 CONTINUE
      E(1)= 2.116154D+04
      E(2)= 3.2022178D+03
      E(3)= 7.0445174D+02
      C(1)= 6.03678D-02
      C(2)= 3.644456D-01
      C(3)= 6.933749D-01
      E(4)= 9.3554786D+02
      E(5)= 9.2934461D+01
      E(6)= 3.9928439D+01
      C(4)=-1.115875D-01
      C(5)= 7.215131D-01
      C(6)= 3.449564D-01
      E(7)= 1.4301271D+03
      E(8)= 3.3566767D+02
      E(9)= 1.0050588D+02
      C(7)= 7.74131D-02
      C(8)= 4.155803D-01
      C(9)= 6.471221D-01
      E(10)= 8.3470797D+01
      E(11)= 1.6165723D+01
      E(12)= 7.452228D+00
      C(10)=-2.897088D-01
      C(11)= 8.635201D-01
      C(12)= 3.018628D-01
      E(13)= 1.9218592D+02
      E(14)= 3.7398973D+01
      E(15)= 1.5032371D+01
      C(13)=-3.50449D-02
      C(14)= 3.886697D-01
      C(15)= 6.779961D-01
      E(16)= 2.1333543D+02
      E(17)= 6.0761796D+01
      E(18)= 2.0097751D+01
      C(16)= 1.080439D-01
      C(17)= 4.753318D-01
      C(18)= 5.939344D-01
      E(19)= 1.4303089D+01
      E(20)= 4.0502079D+00
      E(21)= 2.1005199D+00
      C(19)=-3.962516D-01
      C(20)= 6.657319D-01
      C(21)= 5.798678D-01
      E(22)= 7.2245576D+00
      E(23)= 3.5923145D+00
      E(24)= 1.7459549D+00
      C(22)= 3.154012D-01
      C(23)= 5.187296D-01
      C(24)= 2.372441D-01
      E(25)= 1.1465387D+01
      E(26)= 4.3293004D+00
      E(27)= 1.6672499D+00
      C(25)= 2.828563D-01
      C(26)= 5.769317D-01
      C(27)= 3.010715D-01
      E(28)= 4.6945382D+00
      E(29)= 7.2433139D-01
      E(30)= 3.7987327D-01
      C(28)=-1.15343D-02
      C(29)= 1.844031D-01
      C(30)= 8.315934D-01
      E(31)= 2.0373631D+00
      E(32)= 7.735558D-01
      E(33)= 2.7298819D-01
      C(31)=-1.0986D-03
      C(32)= 5.498008D-01
      C(33)= 5.283374D-01
      E(34)= 3.8819868D+01
      E(35)= 1.1714379D+01
      E(36)= 3.8626271D+00
      E(37)= 1.1414087D+00
      C(34)= 8.02236D-02
      C(35)= 3.202909D-01
      C(36)= 5.238402D-01
      C(37)= 4.302543D-01
      E(38)= 8.6600235D-01
      E(39)= 6.699265D-02
      E(40)= 2.548351D-02
      C(38)= 7.47141D-02
      C(39)= 2.936293D-01
      C(40)= 7.177832D-01
      RETURN
C
C     TERBIUM 6-H
C
  900 CONTINUE
      E(1)= 2.1835019D+04
      E(2)= 3.3056159D+03
      E(3)= 7.2731432D+02
      C(1)= 6.03439D-02
      C(2)= 3.642347D-01
      C(3)= 6.935561D-01
      E(4)= 9.6508624D+02
      E(5)= 9.568196D+01
      E(6)= 4.0815799D+01
      C(4)=-1.115621D-01
      C(5)= 7.271652D-01
      C(6)= 3.395253D-01
      E(7)= 1.4802159D+03
      E(8)= 3.4751808D+02
      E(9)= 1.0411187D+02
      C(7)= 7.71847D-02
      C(8)= 4.150012D-01
      C(9)= 6.476882D-01
      E(10)= 8.6613515D+01
      E(11)= 1.6578152D+01
      E(12)= 7.8003711D+00
      C(10)=-2.901632D-01
      C(11)= 8.787749D-01
      C(12)= 2.847502D-01
      E(13)= 2.0260666D+02
      E(14)= 3.8524834D+01
      E(15)= 1.5570199D+01
      C(13)=-3.5362D-02
      C(14)= 3.920956D-01
      C(15)= 6.740818D-01
      E(16)= 2.2188313D+02
      E(17)= 6.3252113D+01
      E(18)= 2.0957007D+01
      C(16)= 1.076858D-01
      C(17)= 4.752801D-01
      C(18)= 5.938155D-01
      E(19)= 1.577566D+01
      E(20)= 4.0878441D+00
      E(21)= 2.1592946D+00
      C(19)=-3.703324D-01
      C(20)= 6.57369D-01
      C(21)= 5.630353D-01
      E(22)= 7.7988359D+00
      E(23)= 3.7575148D+00
      E(24)= 1.763071D+00
      C(22)= 2.983771D-01
      C(23)= 5.507163D-01
      C(24)= 2.242048D-01
      E(25)= 1.2013693D+01
      E(26)= 4.5266838D+00
      E(27)= 1.7459841D+00
      C(25)= 2.839041D-01
      C(26)= 5.768815D-01
      C(27)= 3.001895D-01
      E(28)= 4.8423886D+00
      E(29)= 7.4714359D-01
      E(30)= 3.8423134D-01
      C(28)= 3.6219D-03
      C(29)= 2.157088D-01
      C(30)= 7.961193D-01
      E(31)= 2.1015281D+00
      E(32)= 7.8244623D-01
      E(33)= 2.7860506D-01
      C(31)= 8.2196D-03
      C(32)= 5.531276D-01
      C(33)= 5.178321D-01
      E(34)= 4.0680481D+01
      E(35)= 1.2337528D+01
      E(36)= 4.0635453D+00
      E(37)= 1.1838629D+00
      C(34)= 8.0844D-02
      C(35)= 3.214826D-01
      C(36)= 5.255148D-01
      C(37)= 4.297361D-01
      E(38)= 8.9327635D-01
      E(39)= 6.910253D-02
      E(40)= 2.628609D-02
      C(38)= 7.66729D-02
      C(39)= 2.782983D-01
      C(40)= 7.316191D-01
      RETURN
C
C     DYSPROSIUM 5-I
C
 1000 CONTINUE
      E(1)= 2.2512038D+04
      E(2)= 3.4087516D+03
      E(3)= 7.5021737D+02
      C(1)= 6.03497D-02
      C(2)= 3.642008D-01
      C(3)= 6.935559D-01
      E(4)= 9.9666912D+02
      E(5)= 9.8727277D+01
      E(6)= 4.2083165D+01
      C(4)=-1.116446D-01
      C(5)= 7.284609D-01
      C(6)= 3.382378D-01
      E(7)= 1.5272025D+03
      E(8)= 3.5881603D+02
      E(9)= 1.0760264D+02
      C(7)= 7.72444D-02
      C(8)= 4.151054D-01
      C(9)= 6.474102D-01
      E(10)= 8.9147986D+01
      E(11)= 1.7526082D+01
      E(12)= 8.1030013D+00
      C(10)=-2.922379D-01
      C(11)= 8.565066D-01
      C(12)= 3.113017D-01
      E(13)= 2.068709D+02
      E(14)= 4.0194535D+01
      E(15)= 1.6221668D+01
      C(13)=-3.54586D-02
      C(14)= 3.894833D-01
      C(15)= 6.769116D-01
      E(16)= 2.3167736D+02
      E(17)= 6.6102671D+01
      E(18)= 2.1916854D+01
      C(16)= 1.065078D-01
      C(17)= 4.73606D-01
      C(18)= 5.958856D-01
      E(19)= 1.5711507D+01
      E(20)= 4.2363528D+00
      E(21)= 2.2096177D+00
      C(19)=-3.883642D-01
      C(20)= 7.041276D-01
      C(21)= 5.332091D-01
      E(22)= 7.8825557D+00
      E(23)= 3.7978777D+00
      E(24)= 1.8177367D+00
      C(22)= 3.234649D-01
      C(23)= 5.35763D-01
      C(24)= 2.136097D-01
      E(25)= 1.2545087D+01
      E(26)= 4.7409523D+00
      E(27)= 1.8318939D+00
      C(25)= 2.845373D-01
      C(26)= 5.74427D-01
      C(27)= 3.019803D-01
      E(28)= 4.8826712D+00
      E(29)= 7.7030946D-01
      E(30)= 3.9223241D-01
      C(28)=-1.00639D-02
      C(29)= 2.164299D-01
      C(30)= 8.016135D-01
      E(31)= 2.1190102D+00
      E(32)= 8.0074647D-01
      E(33)= 2.8941946D-01
      C(31)= 1.5719D-02
      C(32)= 5.448934D-01
      C(33)= 5.19235D-01
      E(34)= 4.2262676D+01
      E(35)= 1.2869755D+01
      E(36)= 4.2445315D+00
      E(37)= 1.2421218D+00
      C(34)= 8.24456D-02
      C(35)= 3.249725D-01
      C(36)= 5.236025D-01
      C(37)= 4.268708D-01
      E(38)= 9.2097321D-01
      E(39)= 7.124511D-02
      E(40)= 2.710112D-02
      C(38)= 7.84492D-02
      C(39)= 2.655523D-01
      C(40)= 7.430275D-01
      RETURN
C
C     HOLMIUM 4-I
C
 1100 CONTINUE
      E(1)= 2.3180533D+04
      E(2)= 3.5116702D+03
      E(3)= 7.7332413D+02
      C(1)= 6.04086D-02
      C(2)= 3.642593D-01
      C(3)= 6.934164D-01
      E(4)= 1.0292619D+03
      E(5)= 1.0170128D+02
      E(6)= 4.3328224D+01
      C(4)=-1.116859D-01
      C(5)= 7.311447D-01
      C(6)= 3.354456D-01
      E(7)= 1.5737315D+03
      E(8)= 3.699692D+02
      E(9)= 1.1106992D+02
      C(7)= 7.73985D-02
      C(8)= 4.155441D-01
      C(9)= 6.467612D-01
      E(10)= 9.2657169D+01
      E(11)= 1.7937269D+01
      E(12)= 8.477776D+00
      C(10)=-2.915066D-01
      C(11)= 8.703011D-01
      C(12)= 2.947321D-01
      E(13)= 2.0941284D+02
      E(14)= 4.1838408D+01
      E(15)= 1.6853075D+01
      C(13)=-3.54127D-02
      C(14)= 3.889577D-01
      C(15)= 6.778885D-01
      E(16)= 2.372149D+02
      E(17)= 6.7889543D+01
      E(18)= 2.2617285D+01
      C(16)= 1.085255D-01
      C(17)= 4.770762D-01
      C(18)= 5.904551D-01
      E(19)= 1.6692436D+01
      E(20)= 4.335891D+00
      E(21)= 2.2322713D+00
      C(19)=-3.779939D-01
      C(20)= 7.18871D-01
      C(21)= 5.097373D-01
      E(22)= 8.1634159D+00
      E(23)= 3.8567519D+00
      E(24)= 1.8073015D+00
      C(22)= 3.329288D-01
      C(23)= 5.475342D-01
      C(24)= 1.934593D-01
      E(25)= 1.3093652D+01
      E(26)= 4.9213964D+00
      E(27)= 1.8661708D+00
      C(25)= 2.858557D-01
      C(26)= 5.819554D-01
      C(27)= 2.947871D-01
      E(28)= 4.885196D+00
      E(29)= 7.9382901D-01
      E(30)= 3.9985838D-01
      C(28)=-6.7471D-03
      C(29)= 2.293095D-01
      C(30)= 7.884315D-01
      E(31)= 2.1201059D+00
      E(32)= 8.2864216D-01
      E(33)= 2.9950199D-01
      C(31)= 1.66251D-02
      C(32)= 5.383539D-01
      C(33)= 5.250268D-01
      E(34)= 4.4012473D+01
      E(35)= 1.341627D+01
      E(36)= 4.4270768D+00
      E(37)= 1.2896098D+00
      C(34)= 8.37922D-02
      C(35)= 3.283186D-01
      C(36)= 5.233255D-01
      C(37)= 4.242354D-01
      E(38)= 9.4909291D-01
      E(39)= 7.342041D-02
      E(40)= 2.792858D-02
      C(38)= 7.98273D-02
      C(39)= 2.501738D-01
      C(40)= 7.569843D-01
      RETURN
C
C     ERBIUM 3-H
C
 1200 CONTINUE
      E(1)= 2.3932986D+04
      E(2)= 3.6231807D+03
      E(3)= 7.9744649D+02
      C(1)= 6.02683D-02
      C(2)= 3.639567D-01
      C(3)= 6.938113D-01
      E(4)= 1.05807D+03
      E(5)= 1.0560404D+02
      E(6)= 4.5715154D+01
      C(4)=-1.120662D-01
      C(5)= 7.216806D-01
      C(6)= 3.446059D-01
      E(7)= 1.631852D+03
      E(8)= 3.8338971D+02
      E(9)= 1.1506026D+02
      C(7)= 7.68215D-02
      C(8)= 4.142441D-01
      C(9)= 6.483076D-01
      E(10)= 9.5445255D+01
      E(11)= 1.8624316D+01
      E(12)= 8.6540627D+00
      C(10)=-2.931741D-01
      C(11)= 8.716745D-01
      C(12)= 2.956139D-01
      E(13)= 2.1745963D+02
      E(14)= 4.3178334D+01
      E(15)= 1.7445255D+01
      C(13)=-3.56639D-02
      C(14)= 3.907248D-01
      C(15)= 6.759383D-01
      E(16)= 2.4776101D+02
      E(17)= 7.0854934D+01
      E(18)= 2.3602151D+01
      C(16)= 1.071608D-01
      C(17)= 4.757213D-01
      C(18)= 5.925282D-01
      E(19)= 1.7427739D+01
      E(20)= 4.4976911D+00
      E(21)= 2.3319556D+00
      C(19)=-3.754235D-01
      C(20)= 7.118474D-01
      C(21)= 5.141121D-01
      E(22)= 8.4116514D+00
      E(23)= 4.0197899D+00
      E(24)= 1.9188907D+00
      C(22)= 3.387219D-01
      C(23)= 5.328756D-01
      C(24)= 2.018587D-01
      E(25)= 1.3592062D+01
      E(26)= 5.1225912D+00
      E(27)= 1.9684932D+00
      C(25)= 2.891028D-01
      C(26)= 5.765507D-01
      C(27)= 2.96061D-01
      E(28)= 4.8804329D+00
      E(29)= 8.1161512D-01
      E(30)= 4.1312407D-01
      C(28)=-1.68679D-02
      C(29)= 2.22692D-01
      C(30)= 7.987453D-01
      E(31)= 2.1201431D+00
      E(32)= 8.4677323D-01
      E(33)= 2.9517372D-01
      C(31)= 1.38675D-02
      C(32)= 5.58206D-01
      C(33)= 5.114888D-01
      E(34)= 4.5343394D+01
      E(35)= 1.3864352D+01
      E(36)= 4.5763128D+00
      E(37)= 1.327826D+00
      C(34)= 8.62039D-02
      C(35)= 3.331165D-01
      C(36)= 5.228664D-01
      C(37)= 4.197267D-01
      E(38)= 9.923D-01
      E(39)= 7.562842D-02
      E(40)= 2.876849D-02
      C(38)= 7.67945D-02
      C(39)= 2.395752D-01
      C(40)= 7.680281D-01
      RETURN
C
C     THULIUM 2-F
C
 1300 CONTINUE
      E(1)= 2.465641D+04
      E(2)= 3.7325062D+03
      E(3)= 8.2163815D+02
      C(1)= 6.02408D-02
      C(2)= 3.638374D-01
      C(3)= 6.939176D-01
      E(4)= 1.0914725D+03
      E(5)= 1.0854804D+02
      E(6)= 4.6629354D+01
      C(4)=-1.120302D-01
      C(5)= 7.267395D-01
      C(6)= 3.397656D-01
      E(7)= 1.6854211D+03
      E(8)= 3.9599853D+02
      E(9)= 1.1891754D+02
      C(7)= 7.66255D-02
      C(8)= 4.137828D-01
      C(9)= 6.487444D-01
      E(10)= 9.8840728D+01
      E(11)= 1.927499D+01
      E(12)= 8.9158303D+00
      C(10)=-2.924475D-01
      C(11)= 8.725193D-01
      C(12)= 2.946143D-01
      E(13)= 2.2782181D+02
      E(14)= 4.4528319D+01
      E(15)= 1.8046201D+01
      C(13)=-3.59085D-02
      C(14)= 3.923215D-01
      C(15)= 6.740286D-01
      E(16)= 2.5688245D+02
      E(17)= 7.3519651D+01
      E(18)= 2.4520879D+01
      C(16)= 1.068666D-01
      C(17)= 4.757448D-01
      C(18)= 5.923866D-01
      E(19)= 1.7990337D+01
      E(20)= 4.7415251D+00
      E(21)= 2.41551D+00
      C(19)=-3.78638D-01
      C(20)= 7.019566D-01
      C(21)= 5.28208D-01
      E(22)= 8.9691876D+00
      E(23)= 4.2464848D+00
      E(24)= 1.9503073D+00
      C(22)= 3.202135D-01
      C(23)= 5.533706D-01
      C(24)= 2.01616D-01
      E(25)= 1.4183386D+01
      E(26)= 5.334892D+00
      E(27)= 2.0382571D+00
      C(25)= 2.893569D-01
      C(26)= 5.783934D-01
      C(27)= 2.946384D-01
      E(28)= 4.9925787D+00
      E(29)= 8.3566168D-01
      E(30)= 4.1594385D-01
      C(28)=-1.2713D-02
      C(29)= 2.45873D-01
      C(30)= 7.758076D-01
      E(31)= 2.134923D+00
      E(32)= 8.6763438D-01
      E(33)= 3.1114728D-01
      C(31)= 2.19159D-02
      C(32)= 5.421133D-01
      C(33)= 5.18372D-01
      E(34)= 4.6858648D+01
      E(35)= 1.4376483D+01
      E(36)= 4.7433937D+00
      E(37)= 1.3719529D+00
      C(34)= 8.80212D-02
      C(35)= 3.368047D-01
      C(36)= 5.227706D-01
      C(37)= 4.159762D-01
      E(38)= 1.0216999D+00
      E(39)= 7.786914D-02
      E(40)= 2.962085D-02
      C(38)= 7.96995D-02
      C(39)= 2.235851D-01
      C(40)= 7.819576D-01
      RETURN
C
C     YTTERBIUM 1-S
C
 1400 CONTINUE
      E(1)= 2.5385694D+04
      E(2)= 3.8436032D+03
      E(3)= 8.4615684D+02
      C(1)= 6.02178D-02
      C(2)= 3.637205D-01
      C(3)= 6.940245D-01
      E(4)= 1.1234055D+03
      E(5)= 1.1169297D+02
      E(6)= 4.7233256D+01
      C(4)=-1.120119D-01
      C(5)= 7.308335D-01
      C(6)= 3.365089D-01
      E(7)= 1.7377854D+03
      E(8)= 4.0850276D+02
      E(9)= 1.2273231D+02
      C(7)= 7.65445D-02
      C(8)= 4.135681D-01
      C(9)= 6.489045D-01
      E(10)= 1.0178796D+02
      E(11)= 1.9813955D+01
      E(12)= 9.1947339D+00
      C(10)=-2.946531D-01
      C(11)= 8.851695D-01
      C(12)= 2.825866D-01
      E(13)= 2.3449301D+02
      E(14)= 4.6044797D+01
      E(15)= 1.8679254D+01
      C(13)=-3.60684D-02
      C(14)= 3.93155D-01
      C(15)= 6.732472D-01
      E(16)= 2.6549751D+02
      E(17)= 7.6107209D+01
      E(18)= 2.5437233D+01
      C(16)= 1.069945D-01
      C(17)= 4.761187D-01
      C(18)= 5.915046D-01
      E(19)= 1.8855724D+01
      E(20)= 4.8006027D+00
      E(21)= 2.4675257D+00
      C(19)=-3.703201D-01
      C(20)= 7.219045D-01
      C(21)= 5.008053D-01
      E(22)= 9.1334438D+00
      E(23)= 4.3362256D+00
      E(24)= 2.0173973D+00
      C(22)= 3.354143D-01
      C(23)= 5.418041D-01
      C(24)= 1.976589D-01
      E(25)= 1.4703007D+01
      E(26)= 5.5153232D+00
      E(27)= 2.0915122D+00
      C(25)= 2.922065D-01
      C(26)= 5.811741D-01
      C(27)= 2.89788D-01
      E(28)= 5.1383398D+00
      E(29)= 8.6005928D-01
      E(30)= 4.3522801D-01
      C(28)=-1.98422D-02
      C(29)= 2.196768D-01
      C(30)= 8.031232D-01
      E(31)= 2.1972533D+00
      E(32)= 8.7979164D-01
      E(33)= 3.1464744D-01
      C(31)= 2.66514D-02
      C(32)= 5.465593D-01
      C(33)= 5.11104D-01
      E(34)= 4.8314683D+01
      E(35)= 1.4868502D+01
      E(36)= 4.9219249D+00
      E(37)= 1.4244136D+00
      C(34)= 9.01533D-02
      C(35)= 3.403088D-01
      C(36)= 5.210745D-01
      C(37)= 4.128335D-01
      E(38)= 1.051529D+00
      E(39)= 8.014258D-02
      E(40)= 3.048564D-02
      C(38)= 7.47088D-02
      C(39)= 2.034147D-01
      C(40)= 8.021211D-01
      RETURN
      END
C*MODULE BASHZ2  *DECK HTMTHR
      SUBROUTINE HTMTHR(E,C,NUCZ)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      DIMENSION E(42),C(42)
C
C     HUZINAGA THIRD ROW TRANSITION SERIES...5C(N),6C(2) STATES.
C
      IHOP = NUCZ-70
      GO TO (100,200,300,400,500,600,700,800,900,1000), IHOP
C
C     LUTETIUM 2-D
C
  100 CONTINUE
      E(1)= 2.6213072D+04
      E(2)= 3.9645756D+03
      E(3)= 8.7202321D+02
      C(1)= 5.99916D-02
      C(2)= 3.631627D-01
      C(3)= 6.947236D-01
      E(4)= 1.1596313D+03
      E(5)= 1.1482931D+02
      E(6)= 4.8944774D+01
      C(4)=-1.120702D-01
      C(5)= 7.324106D-01
      C(6)= 3.342924D-01
      E(7)= 1.7955607D+03
      E(8)= 4.2201312D+02
      E(9)= 1.2679229D+02
      C(7)= 7.62034D-02
      C(8)= 4.127937D-01
      C(9)= 6.497893D-01
      E(10)= 1.0517731D+02
      E(11)= 2.0488594D+01
      E(12)= 9.4407118D+00
      C(10)=-2.944235D-01
      C(11)= 8.862065D-01
      C(12)= 2.818423D-01
      E(13)= 2.4023172D+02
      E(14)= 4.7779063D+01
      E(15)= 1.9398857D+01
      C(13)=-3.63245D-02
      C(14)= 3.912159D-01
      C(15)= 6.751724D-01
      E(16)= 2.7718839D+02
      E(17)= 7.9463212D+01
      E(18)= 2.6610039D+01
      C(16)= 1.055301D-01
      C(17)= 4.738686D-01
      C(18)= 5.941071D-01
      E(19)= 2.029241D+01
      E(20)= 4.6894803D+00
      E(21)= 2.5387204D+00
      C(19)=-3.484181D-01
      C(20)= 7.636206D-01
      C(21)= 4.37517D-01
      E(22)= 9.5967927D+00
      E(23)= 4.4367903D+00
      E(24)= 2.0246813D+00
      C(22)= 3.360259D-01
      C(23)= 5.591485D-01
      C(24)= 1.807147D-01
      E(25)= 1.5600726D+01
      E(26)= 5.9803128D+00
      E(27)= 2.3344255D+00
      C(25)= 2.805518D-01
      C(26)= 5.66057D-01
      C(27)= 3.127337D-01
      E(28)= 3.1797464D+01
      E(29)= 9.14725D+00
      E(30)= 2.4942441D+00
      C(28)= 1.889543D-01
      C(29)= 5.299306D-01
      C(30)= 5.769141D-01
      E(31)= 5.0301304D+00
      E(32)= 8.8480792D-01
      E(33)= 4.4784708D-01
      C(31)=-4.28184D-02
      C(32)= 2.562323D-01
      C(33)= 7.786912D-01
      E(34)= 2.1297889D+00
      E(35)= 8.9173211D-01
      E(36)= 3.2974496D-01
      C(34)= 4.09732D-02
      C(35)= 5.605793D-01
      C(36)= 4.812806D-01
      E(37)= 2.0469529D+00
      E(38)= 6.8141564D-01
      E(39)= 2.0136947D-01
      C(37)= 8.70835D-02
      C(38)= 3.990061D-01
      C(39)= 6.900484D-01
      E(40)= 1.0345315D+00
      E(41)= 8.244872D-02
      E(42)= 3.059794D-02
      C(40)= 8.1952D-02
      C(41)= 3.276736D-01
      C(42)= 6.843155D-01
      RETURN
C
C     HAFNIUM 3-F
C
  200 CONTINUE
      E(1)= 2.6969327D+04
      E(2)= 4.0796473D+03
      E(3)= 8.9744182D+02
      C(1)= 5.99635D-02
      C(2)= 3.630082D-01
      C(3)= 6.948626D-01
      E(4)= 1.1911456D+03
      E(5)= 1.178739D+02
      E(6)= 4.9501542D+01
      C(4)=-1.119877D-01
      C(5)= 7.381808D-01
      C(6)= 3.292139D-01
      E(7)= 1.8523764D+03
      E(8)= 4.3542673D+02
      E(9)= 1.3087367D+02
      C(7)= 7.59814D-02
      C(8)= 4.122427D-01
      C(9)= 6.503501D-01
      E(10)= 1.0779325D+02
      E(11)= 2.1253125D+01
      E(12)= 9.660219D+00
      C(10)=-2.97236D-01
      C(11)= 8.867886D-01
      C(12)= 2.843174D-01
      E(13)= 2.4845071D+02
      E(14)= 4.9377736D+01
      E(15)= 2.0077755D+01
      C(13)=-3.65325D-02
      C(14)= 3.90915D-01
      C(15)= 6.753456D-01
      E(16)= 2.8685428D+02
      E(17)= 8.2345093D+01
      E(18)= 2.7632269D+01
      C(16)= 1.052524D-01
      C(17)= 4.734033D-01
      C(18)= 5.942747D-01
      E(19)= 2.0900824D+01
      E(20)= 4.8004147D+00
      E(21)= 2.5851469D+00
      C(19)=-3.510341D-01
      C(20)= 7.977843D-01
      C(21)= 4.052346D-01
      E(22)= 9.8265412D+00
      E(23)= 4.5507968D+00
      E(24)= 2.1136634D+00
      C(22)= 3.475344D-01
      C(23)= 5.527717D-01
      C(24)= 1.742289D-01
      E(25)= 1.6251487D+01
      E(26)= 6.2625999D+00
      E(27)= 2.4873801D+00
      C(25)= 2.809288D-01
      C(26)= 5.630773D-01
      C(27)= 3.126199D-01
      E(28)= 3.4279107D+01
      E(29)= 9.9276463D+00
      E(30)= 2.7558598D+00
      C(28)= 1.855064D-01
      C(29)= 5.305358D-01
      C(30)= 5.738195D-01
      E(31)= 4.8165887D+00
      E(32)= 9.190986D-01
      E(33)= 4.6756457D-01
      C(31)=-1.1025D-01
      C(32)= 3.161871D-01
      C(33)= 7.519785D-01
      E(34)= 2.0644787D+00
      E(35)= 9.3120381D-01
      E(36)= 3.426192D-01
      C(34)= 5.02644D-02
      C(35)= 5.912507D-01
      C(36)= 4.410394D-01
      E(37)= 2.0540301D+00
      E(38)= 6.9039011D-01
      E(39)= 2.1235875D-01
      C(37)= 1.125023D-01
      C(38)= 4.581519D-01
      C(39)= 6.142745D-01
      E(40)= 1.0028075D+00
      E(41)= 8.478757D-02
      E(42)= 3.146592D-02
      C(40)= 9.64616D-02
      C(41)= 4.044906D-01
      C(42)= 6.034115D-01
      RETURN
C
C     TANTALUM 4-F
C
  300 CONTINUE
      E(1)= 2.7707063D+04
      E(2)= 4.1922778D+03
      E(3)= 9.2272356D+02
      C(1)= 6.0013D-02
      C(2)= 3.630896D-01
      C(3)= 6.947137D-01
      E(4)= 1.2259011D+03
      E(5)= 1.2142987D+02
      E(6)= 5.0889951D+01
      C(4)=-1.120743D-01
      C(5)= 7.373676D-01
      C(6)= 3.302371D-01
      E(7)= 1.9081438D+03
      E(8)= 4.4862494D+02
      E(9)= 1.3493024D+02
      C(7)= 7.58846D-02
      C(8)= 4.120017D-01
      C(9)= 6.505247D-01
      E(10)= 1.1155105D+02
      E(11)= 2.174652D+01
      E(12)= 1.0030729D+01
      C(10)=-2.968041D-01
      C(11)= 8.976579D-01
      C(12)= 2.714252D-01
      E(13)= 2.5483949D+02
      E(14)= 5.1093731D+01
      E(15)= 2.0793577D+01
      C(13)=-3.66507D-02
      C(14)= 3.898915D-01
      C(15)= 6.763348D-01
      E(16)= 2.9767187D+02
      E(17)= 8.5493895D+01
      E(18)= 2.872252D+01
      C(16)= 1.044578D-01
      C(17)= 4.722716D-01
      C(18)= 5.955515D-01
      E(19)= 2.1501135D+01
      E(20)= 4.989021D+00
      E(21)= 2.6049632D+00
      C(19)=-3.545572D-01
      C(20)= 8.174897D-01
      C(21)= 3.900778D-01
      E(22)= 1.0057908D+01
      E(23)= 4.5799849D+00
      E(24)= 2.1300786D+00
      C(22)= 3.645967D-01
      C(23)= 5.571217D-01
      C(24)= 1.518756D-01
      E(25)= 1.6876653D+01
      E(26)= 6.514203D+00
      E(27)= 2.6052822D+00
      C(25)= 2.825487D-01
      C(26)= 5.651022D-01
      C(27)= 3.072128D-01
      E(28)= 3.669239D+01
      E(29)= 1.0694725D+01
      E(30)= 3.0231809D+00
      C(28)= 1.829896D-01
      C(29)= 5.308347D-01
      C(30)= 5.704735D-01
      E(31)= 4.7611306D+00
      E(32)= 9.7852208D-01
      E(33)= 4.8069074D-01
      C(31)=-1.740521D-01
      C(32)= 3.866417D-01
      C(33)= 7.160257D-01
      E(34)= 1.9903475D+00
      E(35)= 8.8952373D-01
      E(36)= 3.4184436D-01
      C(34)= 1.092912D-01
      C(35)= 6.171303D-01
      C(36)= 3.579635D-01
      E(37)= 2.0602332D+00
      E(38)= 7.0272676D-01
      E(39)= 2.1834769D-01
      C(37)= 1.391422D-01
      C(38)= 5.065767D-01
      C(39)= 5.467383D-01
      E(40)= 9.7168133D-01
      E(41)= 8.715914D-02
      E(42)= 3.234604D-02
      C(40)= 1.133863D-01
      C(41)= 4.626334D-01
      C(42)= 5.371199D-01
      RETURN
C
C     TUNGSTEN 5-D
C
  400 CONTINUE
      E(1)= 2.848347D+04
      E(2)= 4.3106522D+03
      E(3)= 9.4880189D+02
      C(1)= 5.99847D-02
      C(2)= 3.629424D-01
      C(3)= 6.948544D-01
      E(4)= 1.2601431D+03
      E(5)= 1.2499189D+02
      E(6)= 5.3264926D+01
      C(4)=-1.122722D-01
      C(5)= 7.356067D-01
      C(6)= 3.311238D-01
      E(7)= 1.9659337D+03
      E(8)= 4.6228149D+02
      E(9)= 1.3907004D+02
      C(7)= 7.57123D-02
      C(8)= 4.116367D-01
      C(9)= 6.509095D-01
      E(10)= 1.1485307D+02
      E(11)= 2.2490909D+01
      E(12)= 1.0205372D+01
      C(10)=-2.968151D-01
      C(11)= 8.959454D-01
      C(12)= 2.743324D-01
      E(13)= 2.603359D+02
      E(14)= 5.2992087D+01
      E(15)= 2.1564622D+01
      C(13)=-3.68773D-02
      C(14)= 3.872042D-01
      C(15)= 6.790686D-01
      E(16)= 3.0802405D+02
      E(17)= 8.8529624D+01
      E(18)= 2.9802451D+01
      C(16)= 1.040791D-01
      C(17)= 4.717159D-01
      C(18)= 5.958943D-01
      E(19)= 2.1986566D+01
      E(20)= 5.1545586D+00
      E(21)= 2.6238159D+00
      C(19)=-3.6002D-01
      C(20)= 8.471585D-01
      C(21)= 3.660872D-01
      E(22)= 1.0448376D+01
      E(23)= 4.7961135D+00
      E(24)= 2.2000558D+00
      C(22)= 3.599774D-01
      C(23)= 5.60685D-01
      C(24)= 1.526327D-01
      E(25)= 1.7714492D+01
      E(26)= 6.8804872D+00
      E(27)= 2.8091248D+00
      C(25)= 2.790386D-01
      C(26)= 5.599718D-01
      C(27)= 3.12865D-01
      E(28)= 3.9064396D+01
      E(29)= 1.1456039D+01
      E(30)= 3.2885779D+00
      C(28)= 1.810851D-01
      C(29)= 5.314735D-01
      C(30)= 5.670319D-01
      E(31)= 4.5567679D+00
      E(32)= 9.9070497D-01
      E(33)= 4.9395055D-01
      C(31)=-3.082678D-01
      C(32)= 4.976985D-01
      C(33)= 6.665086D-01
      E(34)= 1.9472206D+00
      E(35)= 8.6995199D-01
      E(36)= 3.2961937D-01
      C(34)= 1.570695D-01
      C(35)= 6.436159D-01
      C(36)= 2.852549D-01
      E(37)= 2.076216D+00
      E(38)= 7.3677302D-01
      E(39)= 2.2781597D-01
      C(37)= 1.61212D-01
      C(38)= 5.329476D-01
      C(39)= 5.016985D-01
      E(40)= 9.4116795D-01
      E(41)= 8.956342D-02
      E(42)= 3.323831D-02
      C(40)= 1.050188D-01
      C(41)= 4.969138D-01
      C(42)= 5.046213D-01
      RETURN
C
C     RHENIUM 6-S
C
  500 CONTINUE
      E(1)= 2.9263742D+04
      E(2)= 4.4298015D+03
      E(3)= 9.7511876D+02
      C(1)= 5.99726D-02
      C(2)= 3.628568D-01
      C(3)= 6.949255D-01
      E(4)= 1.2932196D+03
      E(5)= 1.2860003D+02
      E(6)= 5.4807887D+01
      C(4)=-1.123781D-01
      C(5)= 7.355024D-01
      C(6)= 3.31334D-01
      E(7)= 2.0244843D+03
      E(8)= 4.7614657D+02
      E(9)= 1.4333076D+02
      C(7)= 7.55597D-02
      C(8)= 4.112017D-01
      C(9)= 6.512966D-01
      E(10)= 1.1845628D+02
      E(11)= 2.3141641D+01
      E(12)= 1.0379264D+01
      C(10)=-2.962528D-01
      C(11)= 9.005201D-01
      C(12)= 2.697741D-01
      E(13)= 2.7029118D+02
      E(14)= 5.4486952D+01
      E(15)= 2.2248123D+01
      C(13)=-3.70188D-02
      C(14)= 3.885717D-01
      C(15)= 6.773764D-01
      E(16)= 3.1855059D+02
      E(17)= 9.1648758D+01
      E(18)= 3.0906581D+01
      C(16)= 1.036622D-01
      C(17)= 4.710062D-01
      C(18)= 5.964425D-01
      E(19)= 2.2971336D+01
      E(20)= 5.3257089D+00
      E(21)= 2.7498632D+00
      C(19)=-3.550665D-01
      C(20)= 8.4405D-01
      C(21)= 3.649955D-01
      E(22)= 1.0747778D+01
      E(23)= 4.8975554D+00
      E(24)= 2.2377669D+00
      C(22)= 3.693555D-01
      C(23)= 5.63724D-01
      C(24)= 1.393835D-01
      E(25)= 1.8298578D+01
      E(26)= 7.1624476D+00
      E(27)= 2.9489065D+00
      C(25)= 2.810588D-01
      C(26)= 5.588154D-01
      C(27)= 3.099727D-01
      E(28)= 4.1648317D+01
      E(29)= 1.2273287D+01
      E(30)= 3.5704082D+00
      C(28)= 1.783847D-01
      C(29)= 5.314959D-01
      C(30)= 5.652308D-01
      E(31)= 4.7595836D+00
      E(32)= 1.0178146D+00
      E(33)= 5.0739077D-01
      C(31)=-3.10233D-01
      C(32)= 5.625827D-01
      C(33)= 6.054301D-01
      E(34)= 1.8856196D+00
      E(35)= 8.8924388D-01
      E(36)= 3.4366701D-01
      C(34)= 1.999751D-01
      C(35)= 6.225831D-01
      C(36)= 2.615926D-01
      E(37)= 2.0604954D+00
      E(38)= 7.4967705D-01
      E(39)= 2.424829D-01
      C(37)= 1.961924D-01
      C(38)= 5.459967D-01
      C(39)= 4.501411D-01
      E(40)= 9.1127985D-01
      E(41)= 9.200041D-02
      E(42)= 3.414271D-02
      C(40)= 1.036582D-01
      C(41)= 5.125143D-01
      C(42)= 4.878821D-01
      RETURN
C
C     OSMIUM 5-D
C
  600 CONTINUE
      E(1)= 3.0105978D+04
      E(2)= 4.5546731D+03
      E(3)= 1.0023444D+03
      C(1)= 5.98649D-02
      C(2)= 3.625769D-01
      C(3)= 6.952575D-01
      E(4)= 1.3299061D+03
      E(5)= 1.3189507D+02
      E(6)= 5.5352028D+01
      C(4)=-1.122784D-01
      C(5)= 7.397582D-01
      C(6)= 3.277809D-01
      E(7)= 2.0883111D+03
      E(8)= 4.9108568D+02
      E(9)= 1.4776879D+02
      C(7)= 7.51719D-02
      C(8)= 4.103016D-01
      C(9)= 6.523726D-01
      E(10)= 1.2184431D+02
      E(11)= 2.3821993D+01
      E(12)= 1.0499604D+01
      C(10)=-2.966599D-01
      C(11)= 9.060556D-01
      C(12)= 2.652479D-01
      E(13)= 2.7266734D+02
      E(14)= 5.6742347D+01
      E(15)= 2.3097886D+01
      C(13)=-3.72868D-02
      C(14)= 3.835103D-01
      C(15)= 6.82828D-01
      E(16)= 3.300562D+02
      E(17)= 9.5019652D+01
      E(18)= 3.208058D+01
      C(16)= 1.028721D-01
      C(17)= 4.696901D-01
      C(18)= 5.978924D-01
      E(19)= 2.3220256D+01
      E(20)= 5.6648299D+00
      E(21)= 2.8808691D+00
      C(19)=-3.683901D-01
      C(20)= 8.288351D-01
      C(21)= 3.928901D-01
      E(22)= 1.0934214D+01
      E(23)= 4.965104D+00
      E(24)= 2.1875843D+00
      C(22)= 3.834679D-01
      C(23)= 5.658388D-01
      C(24)= 1.230106D-01
      E(25)= 1.9043432D+01
      E(26)= 7.4801362D+00
      E(27)= 3.1008998D+00
      C(25)= 2.804308D-01
      C(26)= 5.593308D-01
      C(27)= 3.083838D-01
      E(28)= 4.4179317D+01
      E(29)= 1.3087026D+01
      E(30)= 3.8529209D+00
      C(28)= 1.763139D-01
      C(29)= 5.316512D-01
      C(30)= 5.632001D-01
      E(31)= 4.6824502D+00
      E(32)= 1.077075D+00
      E(33)= 5.2101139D-01
      C(31)=-3.721096D-01
      C(32)= 6.39539D-01
      C(33)= 5.653353D-01
      E(34)= 1.8723995D+00
      E(35)= 8.9080145D-01
      E(36)= 3.5473666D-01
      C(34)= 2.522785D-01
      C(35)= 6.021502D-01
      C(36)= 2.279055D-01
      E(37)= 2.0861668D+00
      E(38)= 7.6997534D-01
      E(39)= 2.5281533D-01
      C(37)= 2.275213D-01
      C(38)= 5.470991D-01
      C(39)= 4.189813D-01
      E(40)= 8.6522667D-01
      E(41)= 9.542435D-02
      E(42)= 3.505925D-02
      C(40)=-8.1871D-03
      C(41)= 5.441173D-01
      C(42)= 5.030192D-01
      RETURN
C
C     IRIDIUM 4-F
C
  700 CONTINUE
      E(1)= 3.0907827D+04
      E(2)= 4.6769981D+03
      E(3)= 1.0294994D+03
      C(1)= 5.98596D-02
      C(2)= 3.624691D-01
      C(3)= 6.953337D-01
      E(4)= 1.3673566D+03
      E(5)= 1.3548412D+02
      E(6)= 5.7389281D+01
      C(4)=-1.123837D-01
      C(5)= 7.396342D-01
      C(6)= 3.273403D-01
      E(7)= 2.1451999D+03
      E(8)= 5.0478331D+02
      E(9)= 1.5203985D+02
      C(7)= 7.51929D-02
      C(8)= 4.102334D-01
      C(9)= 6.522788D-01
      E(10)= 1.2557265D+02
      E(11)= 2.4514298D+01
      E(12)= 1.0831887D+01
      C(10)=-2.964114D-01
      C(11)= 9.069686D-01
      C(12)= 2.639532D-01
      E(13)= 2.8416628D+02
      E(14)= 5.8149227D+01
      E(15)= 2.3772619D+01
      C(13)=-3.73807D-02
      C(14)= 3.862631D-01
      C(15)= 6.796648D-01
      E(16)= 3.4065395D+02
      E(17)= 9.8218233D+01
      E(18)= 3.3213551D+01
      C(16)= 1.025775D-01
      C(17)= 4.69076D-01
      C(18)= 5.982939D-01
      E(19)= 2.4082749D+01
      E(20)= 5.786534D+00
      E(21)= 2.9424679D+00
      C(19)=-3.668321D-01
      C(20)= 8.518878D-01
      C(21)= 3.679458D-01
      E(22)= 1.1374593D+01
      E(23)= 5.1149536D+00
      E(24)= 2.223298D+00
      C(22)= 3.847966D-01
      C(23)= 5.73833D-01
      C(24)= 1.132512D-01
      E(25)= 1.9801434D+01
      E(26)= 7.8062497D+00
      E(27)= 3.242046D+00
      C(25)= 2.795121D-01
      C(26)= 5.612916D-01
      C(27)= 3.060363D-01
      E(28)= 4.6700526D+01
      E(29)= 1.3898596D+01
      E(30)= 4.1392565D+00
      C(28)= 1.746611D-01
      C(29)= 5.319165D-01
      C(30)= 5.609526D-01
      E(31)= 4.9603751D+00
      E(32)= 1.100215D+00
      E(33)= 5.0934516D-01
      C(31)=-3.599398D-01
      C(32)= 7.202836D-01
      C(33)= 4.825747D-01
      E(34)= 1.8664367D+00
      E(35)= 9.1439782D-01
      E(36)= 3.7323659D-01
      C(34)= 2.954146D-01
      C(35)= 5.703553D-01
      C(36)= 2.147306D-01
      E(37)= 2.1418014D+00
      E(38)= 8.0244678D-01
      E(39)= 2.5966359D-01
      C(37)= 2.501547D-01
      C(38)= 5.534561D-01
      C(39)= 3.922531D-01
      E(40)= 8.6227728D-01
      E(41)= 9.795204D-02
      E(42)= 3.598793D-02
      C(40)=-1.661545D-01
      C(41)= 5.908108D-01
      C(42)= 5.070257D-01
      RETURN
C
C     PLATINUM 3-F
C
  800 CONTINUE
      E(1)= 3.1715151D+04
      E(2)= 4.800447D+03
      E(3)= 1.0568133D+03
      C(1)= 5.98597D-02
      C(2)= 3.624256D-01
      C(3)= 6.953573D-01
      E(4)= 1.402488D+03
      E(5)= 1.391957D+02
      E(6)= 5.8595143D+01
      C(4)=-1.124334D-01
      C(5)= 7.402836D-01
      C(6)= 3.271179D-01
      E(7)= 2.2068799D+03
      E(8)= 5.1935114D+02
      E(9)= 1.565111D+02
      C(7)= 7.50316D-02
      C(8)= 4.097815D-01
      C(9)= 6.527002D-01
      E(10)= 1.2903195D+02
      E(11)= 2.5401783D+01
      E(12)= 1.1170637D+01
      C(10)=-2.968866D-01
      C(11)= 8.998716D-01
      C(12)= 2.724105D-01
      E(13)= 2.9310449D+02
      E(14)= 5.9918114D+01
      E(15)= 2.4556392D+01
      C(13)=-3.75407D-02
      C(14)= 3.853595D-01
      C(15)= 6.802771D-01
      E(16)= 3.5185991D+02
      E(17)= 1.0148732D+02
      E(18)= 3.4372939D+01
      C(16)= 1.021866D-01
      C(17)= 4.686069D-01
      C(18)= 5.986499D-01
      E(19)= 2.4521199D+01
      E(20)= 6.1520604D+00
      E(21)= 3.0498908D+00
      C(19)=-3.76516D-01
      C(20)= 8.367552D-01
      C(21)= 3.937522D-01
      E(22)= 1.1628939D+01
      E(23)= 5.2412093D+00
      E(24)= 2.2477054D+00
      C(22)= 3.943199D-01
      C(23)= 5.710945D-01
      C(24)= 1.057293D-01
      E(25)= 2.0563355D+01
      E(26)= 8.1266279D+00
      E(27)= 3.4000049D+00
      C(25)= 2.796901D-01
      C(26)= 5.621668D-01
      C(27)= 3.03321D-01
      E(28)= 4.9223375D+01
      E(29)= 1.4713828D+01
      E(30)= 4.4259372D+00
      C(28)= 1.732586D-01
      C(29)= 5.323738D-01
      C(30)= 5.587198D-01
      E(31)= 5.0181161D+00
      E(32)= 1.1523707D+00
      E(33)= 5.0991299D-01
      C(31)=-3.948925D-01
      C(32)= 7.877904D-01
      C(33)= 4.384118D-01
      E(34)= 1.8605783D+00
      E(35)= 8.9302366D-01
      E(36)= 3.7742695D-01
      C(34)= 3.623975D-01
      C(35)= 5.386728D-01
      C(36)= 1.779594D-01
      E(37)= 2.242815D+00
      E(38)= 8.3045525D-01
      E(39)= 2.6917025D-01
      C(37)= 2.71483D-01
      C(38)= 5.621581D-01
      C(39)= 3.627509D-01
      E(40)= 8.5904808D-01
      E(41)= 9.951759D-02
      E(42)= 3.692875D-02
      C(40)=-2.480406D-01
      C(41)= 6.300501D-01
      C(42)= 4.869011D-01
      RETURN
C
C     GOLD 2-D
C
  900 CONTINUE
      E(1)= 3.2538784D+04
      E(2)= 4.9255753D+03
      E(3)= 1.0846021D+03
      C(1)= 5.9856D-02
      C(2)= 3.623664D-01
      C(3)= 6.953909D-01
      E(4)= 1.4392918D+03
      E(5)= 1.4287377D+02
      E(6)= 6.0413806D+01
      C(4)=-1.125149D-01
      C(5)= 7.407681D-01
      C(6)= 3.263717D-01
      E(7)= 2.2683556D+03
      E(8)= 5.3384887D+02
      E(9)= 1.6096667D+02
      C(7)= 7.49274D-02
      C(8)= 4.095379D-01
      C(9)= 6.529009D-01
      E(10)= 1.3290783D+02
      E(11)= 2.5950372D+01
      E(12)= 1.1561528D+01
      C(10)=-2.972133D-01
      C(11)= 9.102609D-01
      C(12)= 2.606326D-01
      E(13)= 3.0198242D+02
      E(14)= 6.1409206D+01
      E(15)= 2.5215656D+01
      C(13)=-3.75287D-02
      C(14)= 3.888529D-01
      C(15)= 6.767782D-01
      E(16)= 3.6341101D+02
      E(17)= 1.0488558D+02
      E(18)= 3.5572D+01
      C(16)= 1.017057D-01
      C(17)= 4.678669D-01
      C(18)= 5.993448D-01
      E(19)= 2.5227768D+01
      E(20)= 6.3776449D+00
      E(21)= 3.1285944D+00
      C(19)=-3.796176D-01
      C(20)= 8.433751D-01
      C(21)= 3.902769D-01
      E(22)= 1.1983824D+01
      E(23)= 5.3684081D+00
      E(24)= 2.2381172D+00
      C(22)= 4.010601D-01
      C(23)= 5.743307D-01
      C(24)= 9.54635D-02
      E(25)= 2.1143756D+01
      E(26)= 8.3920687D+00
      E(27)= 3.5488617D+00
      C(25)= 2.840649D-01
      C(26)= 5.617205D-01
      C(27)= 2.974496D-01
      E(28)= 5.1866259D+01
      E(29)= 1.5554932D+01
      E(30)= 4.7228707D+00
      C(28)= 1.71727D-01
      C(29)= 5.328346D-01
      C(30)= 5.567749D-01
      E(31)= 4.9230485D+00
      E(32)= 1.1881975D+00
      E(33)= 5.2307149D-01
      C(31)=-3.845678D-01
      C(32)= 8.484104D-01
      C(33)= 3.848926D-01
      E(34)= 1.8782203D+00
      E(35)= 9.0272768D-01
      E(36)= 3.7578948D-01
      C(34)= 4.042684D-01
      C(35)= 5.182477D-01
      C(36)= 1.55614D-01
      E(37)= 2.3358427D+00
      E(38)= 8.691822D-01
      E(39)= 2.8462575D-01
      C(37)= 2.897666D-01
      C(38)= 5.607057D-01
      C(39)= 3.443139D-01
      E(40)= 8.8981019D-01
      E(41)= 1.0617371D-01
      E(42)= 3.788171D-02
      C(40)=-2.042568D-01
      C(41)= 6.180411D-01
      C(42)= 4.942361D-01
      RETURN
C
C     MERCURY 1-S
C
 1000 CONTINUE
      E(1)= 3.3404144D+04
      E(2)= 5.054976D+03
      E(3)= 1.1129314D+03
      C(1)= 5.97939D-02
      C(2)= 3.622279D-01
      C(3)= 6.95561D-01
      E(4)= 1.4756246D+03
      E(5)= 1.4640265D+02
      E(6)= 6.1389131D+01
      C(4)=-1.124854D-01
      C(5)= 7.439363D-01
      C(6)= 3.235869D-01
      E(7)= 2.3328646D+03
      E(8)= 5.491452D+02
      E(9)= 1.656402D+02
      C(7)= 7.47191D-02
      C(8)= 4.088872D-01
      C(9)= 6.53549D-01
      E(10)= 1.3621257D+02
      E(11)= 2.6696685D+01
      E(12)= 1.1554849D+01
      C(10)=-2.979513D-01
      C(11)= 9.145658D-01
      C(12)= 2.583104D-01
      E(13)= 3.0619849D+02
      E(14)= 6.3373202D+01
      E(15)= 2.6012143D+01
      C(13)=-3.75406D-02
      C(14)= 3.880999D-01
      C(15)= 6.777274D-01
      E(16)= 3.7583702D+02
      E(17)= 1.0848287D+02
      E(18)= 3.6833664D+01
      C(16)= 1.009775D-01
      C(17)= 4.667307D-01
      C(18)= 6.006099D-01
      E(19)= 2.5982997D+01
      E(20)= 6.5233802D+00
      E(21)= 3.2362472D+00
      C(19)=-3.806873D-01
      C(20)= 8.614964D-01
      C(21)= 3.719927D-01
      E(22)= 1.1965861D+01
      E(23)= 5.3228262D+00
      E(24)= 2.1625624D+00
      C(22)= 4.339413D-01
      C(23)= 5.593747D-01
      C(24)= 7.59121D-02
      E(25)= 2.1948085D+01
      E(26)= 8.7311154D+00
      E(27)= 3.6993476D+00
      C(25)= 2.83437D-01
      C(26)= 5.638837D-01
      C(27)= 2.947653D-01
      E(28)= 5.420784D+01
      E(29)= 1.6330801D+01
      E(30)= 5.0053841D+00
      C(28)= 1.715987D-01
      C(29)= 5.338727D-01
      C(30)= 5.533129D-01
      E(31)= 5.3106531D+00
      E(32)= 1.2593063D+00
      E(33)= 5.4614633D-01
      C(31)=-3.956055D-01
      C(32)= 8.415402D-01
      C(33)= 3.937369D-01
      E(34)= 1.9253031D+00
      E(35)= 8.7120263D-01
      E(36)= 3.6365398D-01
      C(34)= 4.572396D-01
      C(35)= 5.06407D-01
      C(36)= 1.138995D-01
      E(37)= 2.3911943D+00
      E(38)= 8.9025734D-01
      E(39)= 2.9559019D-01
      C(37)= 3.162181D-01
      C(38)= 5.584083D-01
      C(39)= 3.179613D-01
      E(40)= 8.9197217D-01
      E(41)= 1.0752428D-01
      E(42)= 3.93799D-02
      C(40)=-1.998916D-01
      C(41)= 6.354779D-01
      C(42)= 4.747992D-01
      RETURN
      END
