C 26 MAR 03 - JMS - COMBINED ECPHW.SRC AND ECPSBK.SRC TO ONE FILE
C
C HISTORY-WISE COMMENTS FOR HWPOT
C
C 10 NOV 94 - MWS - HWPOT: REMOVE FTNCHEK WARNING
C 12 MAR 92 - MWS - REDIMENSION TO 500 ATOMS
C 17 MAY 91 - MWS - SPLIT SBK POTENTIALS OUT, RENAMING THIS MODULE
C  4 OCT 89 - KAN - IMPLEMENT NEW MODULE FOR BUILT IN ECP POTENTIALS
C
C HISTORY-WISE COMMENTS FOR SBKPOT
C
C 31 DEC 98 - MWS - CHANGE SPELLING FROM SBK TO SBKJC
C 27 FEB 98 - JAB - SULFUR U(P-D) IS 3.35704, NOT 3.357054
C 13 JUL 93 - BMB - ADDED NEW ROUTINE SBKPL FOR LANTHANIDE ECP'S
C 12 MAR 92 - MWS - REDIMENSION TO 500 ATOMS
C  4 JAN 92 - TLW - MAKE WRITE PARALLEL;ADD COMMON PAR
C  8 JUN 91 - MWS,KAN - NEW MODULE FOR STEVENS/BASCH/KRAUSS POTENTIALS
C
C*MODULE ECPPOT  *DECK HWPOT
      SUBROUTINE HWPOT(NUCZ,KF,KL,CLP,NLP,ZLP,ICORE)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
      DIMENSION KF(*),KL(*),CLP(*),NLP(*),ZLP(*)
C
C     ----- RETURN HAY AND WADT POTENTIALS -----
C       JCP 82, 1985, PAGES 271,285,300
C
C THE VARIABLES IN THIS ROUTINE CORRESPOND AS FOLLOWS:
C     NUCZ: THE ATOMIC NUMBER OF THE ATOM
C     KF(I): AN INTEGER POINTING TO THE FIRST ELEMENT OF THE I'TH
C            PART OF THE ECP
C     KL(I): AN INTEGER POINTING TO THE  LAST ELEMENT OF THE I'TH
C            PART OF THE ECP
C     NLP: THIS CORRESPONDS TO THE N(LK) PARAMETER
C     CLP: A(LK) IN THE PAPER
C     ZLP: B(LK) IN THE PAPER
C     ICORE: THE NUMBER OF CORE ELECTRONS USED IN THE ECP
C            (OBTAINED FROM SUBROUTINE ECPPAR IN MODULE ECPLIB)
C
      DIMENSION JF( 4,11:54),JL( 4,11:54)
      DIMENSION CP(24,11:54),NP(24,11:54),ZP(24,11:54)
      DIMENSION IE(54),JG(54),MG(54)
C
C SODIUM
      DATA (JF(I,11),I= 1, 3)/ 1, 6,11/
      DATA (JL(I,11),I= 1, 3)/ 5,10,16/
      DATA (NP(I,11),I= 1,16)/ 1, 2, 2, 2, 2, 0, 1, 2, 2, 2,
     1                         0, 1, 2, 2, 2, 2/
      DATA (CP(I,11),I= 1,16)/         -1.00000000D+01,-4.74902024D+01,
     1 -1.72283007D+01,-6.06377820D+00,-7.29939300D-01, 3.00000000D+00,
     2  3.62847626D+01, 7.29304880D+01, 2.38401151D+01, 6.01238610D+00,
     3  5.00000000D+00,1.174495683D+02,4.233986704D+02,1.093247297D+02,
     4  3.13701656D+01, 7.12418130D+00/
      DATA (ZP(I,11),I= 1,16)/          1.75550259D+02, 3.50516791D+01,
     1  7.90602700D+00, 2.33657190D+00, 7.79986700D-01,2.433605846D+02,
     2  4.15764759D+01, 1.32649167D+01, 3.67971650D+00, 9.76420900D-01,
     31.2572650682D+03, 1.89624881D+02, 5.45247759D+01, 1.37449955D+01,
     4  3.68135790D+00, 9.46110600D-01/
C MAGNESIUM
      DATA (JF(I,12),I= 1, 3)/ 1, 6,11/
      DATA (JL(I,12),I= 1, 3)/ 5,10,16/
      DATA (NP(I,12),I= 1,16)/ 1, 2, 2, 2, 2, 0, 1, 2, 2, 2,
     1                         0, 1, 2, 2, 2, 2/
      DATA (CP(I,12),I= 1,16)/         -1.00000000D+01,-5.58993968D+01,
     1 -2.01391957D+01,-7.06791070D+00,-8.13310900D-01, 3.00000000D+00,
     2  4.40075660D+01,1.073861344D+02, 3.58289088D+01, 1.01143435D+01,
     3  5.00000000D+00,1.171053672D+02,4.205972073D+02,1.076122959D+02,
     4  2.91002576D+01, 7.08755700D+00/
      DATA (ZP(I,12),I= 1,16)/         2.375484804D+02, 4.77520367D+01,
     1  1.07837852D+01, 3.19921240D+00, 1.06369530D+00,3.483008631D+02,
     2  5.94680133D+01, 1.90767582D+01, 5.29656130D+00, 1.38673730D+00,
     31.2568739085D+03,1.898608839D+02, 5.46949631D+01, 1.38990137D+01,
     4  3.95971810D+00, 1.25527870D+00/
C ALUMINUM
      DATA (JF(I,13),I= 1, 3)/ 1, 6,11/
      DATA (JL(I,13),I= 1, 3)/ 5,10,16/
      DATA (NP(I,13),I= 1,16)/ 1, 2, 2, 2, 2, 0, 1, 2, 2, 2,
     1                         0, 1, 2, 2, 2, 2/
      DATA (CP(I,13),I= 1,16)/         -1.00000000D+01,-6.38079837D+01,
     1 -2.28972174D+01,-8.00632320D+00,-8.82934500D-01, 3.00000000D+00,
     2  5.09705682D+01, 1.43871646D+02, 4.80055753D+01, 1.40114180D+01,
     3  5.00000000D+00, 9.30595424D+01,2.667686329D+02, 7.00725805D+01,
     4  1.72290839D+01, 7.10533100D-01/
      DATA (ZP(I,13),I= 1,16)/         3.047291926D+02, 6.15299768D+01,
     1  1.39259006D+01, 4.14636260D+00, 1.37154430D+00,4.678437756D+02,
     2  7.93992216D+01, 2.54035967D+01, 6.99546960D+00, 1.78601290D+00,
     3  7.76271719D+02,1.184992254D+02, 3.44107276D+01, 8.78595630D+00,
     4  2.34062280D+00, 7.39838600D-01/
C SILICON
      DATA (JF(I,14),I= 1, 3)/ 1, 6,11/
      DATA (JL(I,14),I= 1, 3)/ 5,10,16/
      DATA (NP(I,14),I= 1,16)/ 1, 2, 2, 2, 2, 0, 1, 2, 2, 2,
     1                         0, 1, 2, 2, 2, 2/
      DATA (CP(I,14),I= 1,16)/         -1.00000000D+01,-8.49236087D+01,
     1 -3.03299410D+01,-1.21049046D+01,-1.89454080D+00, 3.00000000D+00,
     2  6.05206833D+01,2.013086137D+02, 6.59399745D+01, 1.90300789D+01,
     3  5.00000000D+00, 6.64138170D+00,2.475972416D+02, 1.29371538D+02,
     4  4.74617107D+01, 1.17376574D+01/
      DATA (ZP(I,14),I= 1,16)/         5.053137693D+02,1.032221026D+02,
     1  2.34569248D+01, 6.75056930D+00, 2.16031400D+00,6.894910719D+02,
     2  1.14172851D+02, 3.57424336D+01, 9.45295860D+00, 2.25435900D+00,
     3  8.89379355D+01, 7.67773538D+01, 5.61480987D+01, 2.11874014D+01,
     4  6.82772760D+00, 2.10011920D+00/
C PHOSPHORUS
      DATA (JF(I,15),I= 1, 3)/ 1, 6,11/
      DATA (JL(I,15),I= 1, 3)/ 5,10,16/
      DATA (NP(I,15),I= 1,16)/ 1, 2, 2, 2, 2, 0, 1, 2, 2, 2,
     1                         0, 1, 2, 2, 2, 2/
      DATA (CP(I,15),I= 1,16)/         -1.00000000D+01,-7.94864658D+01,
     1 -2.83668251D+01,-9.85775890D+00,-1.01637830D+00, 3.00000000D+00,
     2  1.29104154D+01,1.500250298D+02, 7.17083146D+01, 2.30397012D+01,
     3  5.00000000D+00, 6.34465070D+00,1.985585104D+02, 1.11147082D+02,
     4  4.03944144D+01, 6.44832330D+00/
      DATA (ZP(I,15),I= 1,16)/         4.621211423D+02, 9.36863701D+01,
     1  2.12349094D+01, 6.33884150D+00, 2.06206840D+00, 7.80831823D+01,
     2  5.89576810D+01, 3.60571255D+01, 1.12464453D+01, 2.67575610D+00,
     3  7.51617880D+01, 5.74544041D+01, 4.79481748D+01, 1.84588360D+01,
     4  5.94141900D+00, 1.84875070D+00/
C SULFUR
      DATA (JF(I,16),I= 1, 3)/ 1, 6,11/
      DATA (JL(I,16),I= 1, 3)/ 5,10,16/
      DATA (NP(I,16),I= 1,16)/ 1, 2, 2, 2, 2, 0, 1, 2, 2, 2,
     1                         0, 1, 2, 2, 2, 2/
      DATA (CP(I,16),I= 1,16)/         -1.00000000D+01,-8.53593846D+01,
     1 -3.04513290D+01,-1.03745886D+01,-9.89929500D-01, 3.00000000D+00,
     2  1.06284036D+01,2.236360469D+02, 9.36460845D+01, 2.87609065D+01,
     3  5.00000000D+00, 6.09698420D+00, 2.85442550D+02,1.471448413D+02,
     4  5.36569778D+01, 8.92495590D+00/
      DATA (ZP(I,16),I= 1,16)/         5.326685222D+02,1.081342248D+02,
     1  2.45697664D+01, 7.37024380D+00, 2.37125690D+00,1.063176781D+02,
     2 1.008245833D+02, 5.35858472D+01, 1.53706332D+01, 3.17784020D+00,
     3 1.019709185D+02, 9.32808973D+01, 6.51431772D+01, 2.46347440D+01,
     4  7.81205350D+00, 2.31127300D+00/
C CHLORINE
      DATA (JF(I,17),I= 1, 3)/ 1, 6,11/
      DATA (JL(I,17),I= 1, 3)/ 5,10,16/
      DATA (NP(I,17),I= 1,16)/ 1, 2, 2, 2, 2, 0, 1, 2, 2, 2,
     1                         0, 1, 2, 2, 2, 2/
      DATA (CP(I,17),I= 1,16)/         -1.00000000D+01, 6.62729170D+01,
     1 -2.89685950D+01,-1.28663370D+01,-1.71021700D+00, 3.00000000D+00,
     2  1.28528510D+01, 2.75672398D+02, 1.15677712D+02, 3.50606090D+01,
     3  5.00000000D+00, 7.47948600D+00, 6.13032000D+02, 2.80800685D+02,
     4  1.07878824D+02, 1.53439560D+01/
      DATA (ZP(I,17),I= 1,16)/          9.48130000D+01, 1.65644000D+02,
     1  3.08317000D+01, 1.05841000D+01, 3.77040000D+00, 1.28839100D+02,
     2  1.20378600D+02, 6.35622000D+01, 1.80695000D+01, 3.81420000D+00,
     3  2.16526300D+02, 4.65723000D+01, 1.47468500D+02, 4.89869000D+01,
     4  1.32096000D+01, 3.18310000D+00/
C ARGON
      DATA (JF(I,18),I= 1, 3)/ 1, 6,11/
      DATA (JL(I,18),I= 1, 3)/ 5,10,16/
      DATA (NP(I,18),I= 1,16)/ 1, 2, 2, 2, 2, 0, 1, 2, 2, 2,
     1                         0, 1, 2, 2, 2, 2/
      DATA (CP(I,18),I= 1,16)/         -1.00000000D+01,-9.90606669D+01,
     1 -3.52711767D+01,-1.18151947D+01,-1.04533820D+00, 3.00000000D+00,
     2  1.12465621D+01,2.507412812D+02,1.391606543D+02, 4.12897981D+01,
     3  5.00000000D+00, 5.27873580D+00,6.317135166D+02,3.051649809D+02,
     4 1.064807615D+02, 1.70215765D+01/
      DATA (ZP(I,18),I= 1,16)/         7.115242175D+02,1.446708689D+02,
     1  3.29246992D+01, 9.91038770D+00, 3.13289260D+00,1.528553033D+02,
     2  8.21424792D+01, 8.37154800D+01, 2.38557161D+01, 4.31288230D+00,
     3 2.125573747D+02,2.664884712D+02,1.399222477D+02, 5.01097659D+01,
     4  1.45537276D+01, 3.48286230D+00/
C POTASSIUM
      DATA (JF(I,19),I= 1, 3)/ 1, 6,11/
      DATA (JL(I,19),I= 1, 3)/ 5,10,15/
      DATA (NP(I,19),I= 1,15)/ 1, 2, 2, 2, 2, 0, 1, 2, 2, 2,
     1                         0, 1, 2, 2, 2/
      DATA (CP(I,19),I= 1,15)/         -1.80000000D+01,-6.37625207D+01,
     1 -1.58426437D+01,-5.05023930D+00,-8.05576600D-01, 3.00000000D+00,
     2  2.29220976D+01, 3.28399986D+01, 1.55672939D+01, 5.20998150D+00,
     3  5.00000000D+00, 1.40261987D+01, 8.40934180D+00,-4.30497150D+00,
     4  5.01518400D+00/
      DATA (ZP(I,19),I= 1,15)/         1.073810865D+02, 1.99413498D+01,
     1  4.26973330D+00, 1.09262910D+00, 3.59404500D-01, 2.71076482D+01,
     2  1.09915385D+01, 5.12376450D+00, 1.73726960D+00, 4.99915900D-01,
     3  6.66173830D+00, 2.12310730D+00, 8.21440600D-01, 4.47281800D-01,
     4  3.56826500D-01/
C CALCIUM
      DATA (JF(I,20),I= 1, 3)/ 1, 6,11/
      DATA (JL(I,20),I= 1, 3)/ 5,10,14/
      DATA (NP(I,20),I= 1,14)/ 1, 2, 2, 2, 2, 0, 1, 2, 2, 2, 0, 1, 2, 2/
      DATA (CP(I,20),I= 1,14)/         -1.80000000D+01,-7.23806397D+01,
     1 -1.85797971D+01,-5.89117690D+00,-8.33962000D-01, 3.00000000D+00,
     2  1.97879237D+01, 4.44890340D+01, 2.26988644D+01, 7.55930170D+00,
     3  5.00000000D+00, 1.45671920D+01, 1.18395160D+01, 3.80723370D+00/
      DATA (ZP(I,20),I= 1,14)/         1.350709504D+02, 2.51922367D+01,
     1  5.49403760D+00, 1.41518740D+00, 4.28642800D-01, 2.93419490D+01,
     2  1.47433814D+01, 7.92511700D+00, 2.53065500D+00, 6.33416800D-01,
     3  8.09093080D+00, 3.12485220D+00, 1.44628790D+00, 4.38546300D-01/
C SCANDIUM
      DATA (JF(I,21),I= 1, 4)/ 1, 6,10,15/
      DATA (JL(I,21),I= 1, 4)/ 5, 9,14,17/
      DATA (NP(I,21),I= 1,17)/ 1, 2, 2, 2, 2, 0, 1, 2, 2, 0,
     1                         1, 2, 2, 2, 2, 2, 2/
      DATA (CP(I,21),I= 1,17)/         -1.80000000D+01,-8.85127611D+01,
     1 -2.29161516D+01,-8.35160420D+00,-1.30156830D+00, 3.00000000D+00,
     2  1.28461779D+01, 1.72046793D+01,-1.00019149D+01, 5.00000000D+00,
     3  1.34339672D+01, 7.39358072D+01, 2.93227672D+01, 3.79488320D+00,
     4 -1.64598350D+00, 6.04665000D-01,-3.01715600D-01/
      DATA (ZP(I,21),I= 1,17)/         1.925195835D+02, 3.61035075D+01,
     1  8.21017580D+00, 2.04557300D+00, 7.10535400D-01, 9.63363980D+00,
     2  2.59466760D+00, 5.44870900D-01, 4.81219400D-01, 2.24571432D+01,
     3  1.80561916D+01, 9.74166600D+00, 2.54276510D+00, 4.45025700D-01,
     4  7.63711090D+00, 1.69905080D+00, 3.54296500D-01/
C TITANIUM
      DATA (JF(I,22),I= 1, 4)/ 1, 6,10,15/
      DATA (JL(I,22),I= 1, 4)/ 5, 9,14,17/
      DATA (NP(I,22),I= 1,17)/ 1, 2, 2, 2, 2, 0, 1, 2, 2, 0,
     1                         1, 2, 2, 2, 2, 2, 2/
      DATA (CP(I,22),I= 1,17)/         -1.80000000D+01,-9.41338170D+01,
     1 -2.44645079D+01,-8.85736270D+00,-1.28275080D+00, 3.00000000D+00,
     2  1.41432597D+01, 1.68993983D+01,-8.51362950D+00, 5.00000000D+00,
     3  1.55558118D+01, 2.90702900D+01, 2.98642273D+01, 4.37160110D+00,
     4 -1.67612960D+00, 6.97221300D-01,-3.20123600D-01/
      DATA (ZP(I,22),I= 1,17)/         2.170090397D+02, 4.07301667D+01,
     1  9.25674390D+00, 2.32493370D+00, 7.95053000D-01, 1.00762958D+01,
     2  2.67892650D+00, 6.50394400D-01, 5.64608500D-01, 1.81336424D+01,
     3  8.31113330D+00, 8.73363190D+00, 2.59666420D+00, 5.20668000D-01,
     4  7.97484540D+00, 2.27138570D+00, 3.88941600D-01/
C VANADIUM
      DATA (JF(I,23),I= 1, 4)/ 1, 6,10,15/
      DATA (JL(I,23),I= 1, 4)/ 5, 9,14,16/
      DATA (NP(I,23),I= 1,16)/ 1, 2, 2, 2, 2, 0, 1, 2, 2, 0,
     1                         1, 2, 2, 2, 2, 2/
      DATA (CP(I,23),I= 1,16)/         -1.80000000D+01,-9.90218605D+01,
     1 -2.56876997D+01,-9.27542780D+00,-1.24364900D+00, 3.00000000D+00,
     2  1.55584631D+01, 1.91278354D+01,-9.87152060D+00, 5.00000000D+00,
     3  1.64607976D+01, 2.65741922D+01, 3.10252324D+01, 4.84800790D+00,
     4  3.12765800D-01,-3.56600700D-01/
      DATA (ZP(I,23),I= 1,16)/         2.399870839D+02, 4.50835633D+01,
     1  1.02253062D+01, 2.59364350D+00, 8.73482500D-01, 1.06463564D+01,
     2  2.77908050D+00, 7.26953200D-01, 6.35130400D-01, 1.81251385D+01,
     3  8.23060800D+00, 8.67719890D+00, 2.71675710D+00, 5.96161100D-01,
     4  1.74391190D+00, 4.36376900D-01/
C CHROMIUM
      DATA (JF(I,24),I= 1, 4)/ 1, 6,10,15/
      DATA (JL(I,24),I= 1, 4)/ 5, 9,14,16/
      DATA (NP(I,24),I= 1,16)/ 1, 2, 2, 2, 2, 0, 1, 2, 2, 0,
     1                         1, 2, 2, 2, 2, 2/
      DATA (CP(I,24),I= 1,16)/         -1.8000000D+01,-1.033668518D+02,
     1 -2.66610566D+01,-9.60865510D+00,-1.18687270D+00, 3.00000000D+00,
     2  1.69973360D+01, 2.43894723D+01,-1.40418751D+01, 5.00000000D+00,
     3  1.73283897D+01, 2.59223919D+01, 3.27385948D+01, 5.26981530D+00,
     4  3.01000300D-01,-3.71927600D-01/
      DATA (ZP(I,24),I= 1,16)/         2.617636243D+02, 4.91963290D+01,
     1  1.11135566D+01, 2.84860230D+00, 9.43379600D-01, 1.15120130D+01,
     2  2.99845620D+00, 8.13538100D-01, 7.31543400D-01, 1.86651904D+01,
     3  8.40397780D+00, 8.89457840D+00, 2.87769400D+00, 6.69116900D-01,
     4  2.13973010D+00, 4.77351100D-01/
C MANGANESE
      DATA (JF(I,25),I= 1, 4)/ 1, 6,10,15/
      DATA (JL(I,25),I= 1, 4)/ 5, 9,14,16/
      DATA (NP(I,25),I= 1,16)/ 1, 2, 2, 2, 2, 0, 1, 2, 2, 0,
     1                         1, 2, 2, 2, 2, 2/
      DATA (CP(I,25),I= 1,16)/         -1.8000000D+01,-1.077292226D+02,
     1 -2.76423345D+01,-9.93308500D+00,-1.13301590D+00, 3.00000000D+00,
     2  1.86308433D+01, 2.99037082D+01,-1.85369130D+01, 5.00000000D+00,
     3  1.73564739D+01, 5.71846489D+01, 4.74013059D+01, 5.81267480D+00,
     4  2.96846600D-01,-3.89712800D-01/
      DATA (ZP(I,25),I= 1,16)/         2.846267218D+02, 5.35171467D+01,
     1  1.20450769D+01, 3.11665390D+00, 1.01604140D+00, 1.27311355D+01,
     2  3.27930850D+00, 9.04606200D-01, 8.27574200D-01, 2.88651113D+01,
     3  1.35526575D+01, 1.41586483D+01, 3.99234480D+00, 7.26580600D-01,
     4  2.65953450D+00, 5.25694200D-01/
C IRON
      DATA (JF(I,26),I= 1, 4)/ 1, 6,10,15/
      DATA (JL(I,26),I= 1, 4)/ 5, 9,14,16/
      DATA (NP(I,26),I= 1,16)/ 1, 2, 2, 2, 2, 0, 1, 2, 2, 0,
     1                         1, 2, 2, 2, 2, 2/
      DATA (CP(I,26),I= 1,16)/         -1.8000000D+01,-1.115658307D+02,
     1 -2.84011758D+01,-1.01669409D+01,-1.06318870D+00, 3.00000000D+00,
     2  1.74313169D+01, 2.94117858D+01,-1.68563282D+01, 5.00000000D+00,
     3  1.81533743D+01, 5.40296157D+01, 4.87957799D+01, 6.21439680D+00,
     4  2.73886800D-01,-3.94789600D-01/
      DATA (ZP(I,26),I= 1,16)/         3.059908267D+02, 5.75401809D+01,
     1  1.28787208D+01, 3.36717450D+00, 1.07786320D+00, 1.68558207D+01,
     2  4.41417160D+00, 9.39004600D-01, 8.29479400D-01, 2.87494405D+01,
     3  1.35008313D+01, 1.40936860D+01, 4.14394770D+00, 7.94877100D-01,
     4  3.41566120D+00, 5.62315100D-01/
C COBALT
      DATA (JF(I,27),I= 1, 4)/ 1, 6,10,15/
      DATA (JL(I,27),I= 1, 4)/ 5, 9,14,16/
      DATA (NP(I,27),I= 1,16)/ 1, 2, 2, 2, 2, 0, 1, 2, 2, 0,
     1                         1, 2, 2, 2, 2, 2/
      DATA (CP(I,27),I= 1,16)/         -1.8000000D+01,-1.149386822D+02,
     1 -2.89823031D+01,-1.03160176D+01,-9.81606600D-01, 3.00000000D+00,
     2  1.83122881D+01, 2.70944428D+01,-1.35591147D+01, 5.00000000D+00,
     3  1.89879649D+01, 5.45504938D+01, 5.16244450D+01, 6.82110100D+00,
     4  2.65520200D-01,-4.14376100D-01/
      DATA (ZP(I,27),I= 1,16)/         3.259446323D+02, 6.12895796D+01,
     1  1.36219044D+01, 3.60190890D+00, 1.12937730D+00, 1.76813526D+01,
     2  4.63293740D+00, 1.04434580D+00, 8.97546900D-01, 2.97562169D+01,
     3  1.39792163D+01, 1.45834185D+01, 4.40520390D+00, 8.94747400D-01,
     4  4.02331940D+00, 6.15235200D-01/
C NICKEL
      DATA (JF(I,28),I= 1, 4)/ 1, 6,10,15/
      DATA (JL(I,28),I= 1, 4)/ 5, 9,14,16/
      DATA (NP(I,28),I= 1,16)/ 1, 2, 2, 2, 2, 0, 1, 2, 2, 0,
     1                         1, 2, 2, 2, 2, 2/
      DATA (CP(I,28),I= 1,16)/         -1.8000000D+01,-1.179593651D+02,
     1 -2.94397021D+01,-1.03862631D+01,-8.92487400D-01, 3.00000000D+00,
     2  1.92448974D+01, 2.39306008D+01,-9.35414450D+00, 5.00000000D+00,
     3  1.98115548D+01, 5.43385586D+01, 5.40878232D+01, 7.31027400D+00,
     4  2.62922800D-01,-4.38615400D-01/
      DATA (ZP(I,28),I= 1,16)/         3.448409988D+02, 6.48228067D+01,
     1  1.42847653D+01, 3.82100970D+00, 1.16975870D+00, 1.86423811D+01,
     2  4.89160630D+00, 1.16606150D+00, 9.52394200D-01, 3.06007023D+01,
     3  1.43008055D+01, 1.50330432D+01, 4.64600850D+00, 9.81061900D-01,
     4  4.56008290D+00, 6.76473100D-01/
C COPPER
      DATA (JF(I,29),I= 1, 4)/ 1, 6,10,15/
      DATA (JL(I,29),I= 1, 4)/ 5, 9,14,16/
      DATA (NP(I,29),I= 1,16)/ 1, 2, 2, 2, 2, 0, 1, 2, 2, 0,
     1                         1, 2, 2, 2, 2, 2/
      DATA (CP(I,29),I= 1,16)/         -1.8000000D+01,-1.199259397D+02,
     1 -2.95532867D+01,-1.02892433D+01,-7.83636300D-01, 3.00000000D+00,
     2  2.01579275D+01, 3.45001906D+01,-1.89812003D+01, 5.00000000D+00,
     3  2.06085328D+01, 5.60016888D+01, 5.72170107D+01, 7.71778780D+00,
     4  2.59861600D-01,-4.62168000D-01/
      DATA (ZP(I,29),I= 1,16)/         3.592137111D+02, 6.75347369D+01,
     1  1.47222923D+01, 3.99755580D+00, 1.18894100D+00, 1.96202650D+01,
     2  5.16043890D+00, 1.23060990D+00, 1.08501050D+00, 3.19385762D+01,
     3  1.49202125D+01, 1.56835232D+01, 4.93116140D+00, 1.06221670D+00,
     4  5.11599910D+00, 7.39678400D-01/
C ZINC
      DATA (JF(I,30),I= 1, 4)/ 1, 6,11,16/
      DATA (JL(I,30),I= 1, 4)/ 5,10,15,18/
      DATA (NP(I,30),I= 1,18)/ 1, 2, 2, 2, 2, 0, 1, 2, 2, 2,
     1                         0, 1, 2, 2, 2, 2, 2, 2/
      DATA (CP(I,30),I= 1,18)/         -1.8000000D+01,-1.243527403D+02,
     1 -3.06601822D+01,-1.06358989D+01,-7.68362300D-01, 3.00000000D+00,
     2  2.25234225D+01, 4.84465942D+01,-4.45560119D+01, 1.29983958D+01,
     3  5.00000000D+00, 2.07435589D+01, 9.03027158D+01, 7.46610316D+01,
     4  9.88944240D+00,-4.84903590D+00, 3.69133790D+00,-5.03731900D-01/
      DATA (ZP(I,30),I= 1,18)/          3.86737966D+02, 7.28587359D+01,
     1  1.59066170D+01, 4.35023400D+00, 1.28421990D+00, 1.90867858D+01,
     2  5.02310800D+00, 1.27017440D+00, 1.06712870D+00, 9.26419000D-01,
     3  4.34927750D+01, 2.08692669D+01, 2.17118378D+01, 6.36169150D+00,
     4  1.22911950D+00, 1.35851800D+01, 9.83730500D+00, 8.37311300D-01/
C GALLIUM
      DATA (JF(I,31),I= 1, 4)/ 1, 6,11,16/
      DATA (JL(I,31),I= 1, 4)/ 5,10,15,20/
      DATA (NP(I,31),I= 1,20)/ 1, 2, 2, 2, 2, 0, 1, 2, 2, 2,
     1                         0, 1, 2, 2, 2, 0, 1, 2, 2, 2/
      DATA (CP(I,31),I= 1,20)/         -2.8000000D+01,-1.616248634D+02,
     1 -4.92659751D+01,-1.69305942D+01,-1.51498930D+00, 3.00000000D+00,
     2  9.38597449D+01,3.086495485D+02, 9.47290607D+01, 2.70931066D+01,
     3  5.00000000D+00, 2.28495315D+01, 4.33974907D+01, 4.86203923D+01,
     4  1.47365483D+01, 3.00000000D+00, 2.42994834D+01, 3.54415813D+01,
     5  9.10555750D+00, 9.60112100D-01/
      DATA (ZP(I,31),I= 1,20)/         2.609051184D+02, 5.04244564D+01,
     1  1.07195520D+01, 3.15639950D+00, 9.50238500D-01,3.390575995D+02,
     2  9.59625227D+01, 3.00989360D+01, 7.89070390D+00, 2.11542340D+00,
     3  3.01202708D+01, 1.46143825D+01, 1.24639433D+01, 5.10392190D+00,
     4  1.65660330D+00, 3.22704306D+01, 1.09444004D+01, 4.51117910D+00,
     5  1.55617100D+00, 5.55092600D-01/
C GERMANIUM
      DATA (JF(I,32),I= 1, 4)/ 1, 6,11,16/
      DATA (JL(I,32),I= 1, 4)/ 5,10,15,20/
      DATA (NP(I,32),I= 1,20)/ 1, 2, 2, 2, 2, 0, 1, 2, 2, 2,
     1                         0, 1, 2, 2, 2, 0, 1, 2, 2, 2/
      DATA (CP(I,32),I= 1,20)/         -2.8000000D+01,-1.809891676D+02,
     1 -5.50043909D+01,-1.97906526D+01,-1.85335720D+00, 3.00000000D+00,
     2  6.52262558D+01,2.252354522D+02, 9.40125472D+01, 2.99415005D+01,
     3  5.00000000D+00, 2.34778157D+01, 4.50980414D+01, 5.63326957D+01,
     4  1.66058640D+01, 3.00000000D+00, 2.37371518D+01, 5.64792249D+01,
     5  2.58901835D+01, 3.02298360D+00/
      DATA (ZP(I,32),I= 1,20)/         3.182167583D+02, 6.15370967D+01,
     1  1.32986899D+01, 3.89852150D+00, 1.21376660D+00,2.051886932D+02,
     2  6.89790278D+01, 2.79194879D+01, 8.54816500D+00, 2.31737340D+00,
     3  3.32488002D+01, 1.57777247D+01, 1.49260722D+01, 5.84163940D+00,
     4  1.83495750D+00, 4.20206343D+01, 1.92096363D+01, 9.41339170D+00,
     5  3.32829070D+00, 8.52233100D-01/
C ARSENIC
      DATA (JF(I,33),I= 1, 4)/ 1, 6,11,16/
      DATA (JL(I,33),I= 1, 4)/ 5,10,15,20/
      DATA (NP(I,33),I= 1,20)/ 1, 2, 2, 2, 2, 0, 1, 2, 2, 2,
     1                         0, 1, 2, 2, 2, 0, 1, 2, 2, 2/
      DATA (CP(I,33),I= 1,20)/         -2.8000000D+01,-1.983687357D+02,
     1 -6.04563798D+01,-2.23188274D+01,-2.16382900D+00, 3.00000000D+00,
     2  3.18486777D+01,2.009958215D+02,1.026387604D+02, 3.41845359D+01,
     3  5.00000000D+00, 2.42505747D+01, 4.89174963D+01, 6.65332259D+01,
     4  1.96577666D+01, 3.00000000D+00, 2.33460712D+01, 8.07854919D+01,
     5  4.02681347D+01, 4.83327900D+00/
      DATA (ZP(I,33),I= 1,20)/         3.754748803D+02, 7.26554769D+01,
     1  1.59162677D+01, 4.64202510D+00, 1.47891820D+00, 1.05885387D+02,
     2  6.25951846D+01, 3.45017431D+01, 1.03758594D+01, 2.53793470D+00,
     3  3.76471440D+01, 1.72034665D+01, 1.89075709D+01, 6.81534520D+00,
     4  2.06118530D+00, 5.20731335D+01, 2.80037824D+01, 1.47051208D+01,
     5  4.79731940D+00, 1.10627630D+00/
C SELENIUM
      DATA (JF(I,34),I= 1, 4)/ 1, 6,11,16/
      DATA (JL(I,34),I= 1, 4)/ 5,10,15,20/
      DATA (NP(I,34),I= 1,20)/ 1, 2, 2, 2, 2, 0, 1, 2, 2, 2,
     1                         0, 1, 2, 2, 2, 0, 1, 2, 2, 2/
      DATA (CP(I,34),I= 1,20)/         -2.8000000D+01,-2.143841762D+02,
     1 -6.56918782D+01,-2.46153932D+01,-2.44814970D+00, 3.00000000D+00,
     2  6.20295390D+01,2.588555984D+02,1.187800153D+02, 3.82355279D+01,
     3  5.00000000D+00, 2.47973458D+01, 6.37575640D+01, 7.90512831D+01,
     4  2.29520183D+01, 3.00000000D+00, 2.24705907D+01,1.405492887D+02,
     5  6.35781835D+01, 7.07536140D+00/
      DATA (ZP(I,34),I= 1,20)/         4.331931336D+02, 8.38952157D+01,
     1  1.85839139D+01, 5.39552860D+00, 1.74743260D+00,2.028986193D+02,
     2  7.83820487D+01, 3.50753037D+01, 1.08769543D+01, 2.80059410D+00,
     3  4.43011875D+01, 2.03874206D+01, 2.31889948D+01, 7.97776640D+00,
     4  2.29881460D+00, 7.33628263D+01, 4.83835618D+01, 2.56297211D+01,
     5  7.17058220D+00, 1.36395380D+00/
C BROMINE
      DATA (JF(I,35),I= 1, 4)/ 1, 5, 9,14/
      DATA (JL(I,35),I= 1, 4)/ 4, 8,13,18/
      DATA (NP(I,35),I= 1,18)/ 1, 2, 2, 2, 0, 1, 2, 2, 0, 1,
     1                         2, 2, 2, 0, 1, 2, 2, 2/
      DATA (CP(I,35),I= 1,18)/         -2.8000000D+01,-1.349268852D+02,
     1 -4.19271913D+01,-5.93364200D+00, 3.00000000D+00, 2.73430642D+01,
     2 1.188028847D+02, 4.34354876D+01, 5.00000000D+00, 2.50504252D+01,
     3  9.26157463D+01, 9.58249016D+01, 2.62684983D+01, 3.00000000D+00,
     4  2.25533557D+01,1.781241988D+02, 7.69924162D+01, 9.48182700D+00/
      DATA (ZP(I,35),I= 1,18)/         2.136143969D+02, 4.10585380D+01,
     1  8.70865300D+00, 2.60746610D+00, 5.41980682D+01, 3.29053558D+01,
     2  1.36744890D+01, 3.03411520D+00, 5.42563340D+01, 2.60095593D+01,
     3  2.82012995D+01, 9.43410610D+00, 2.53217640D+00, 8.76328721D+01,
     4  6.17373377D+01, 3.24385104D+01, 8.75371990D+00, 1.66331890D+00/
C KRYPTON
      DATA (JF(I,36),I= 1, 4)/ 1, 5, 9,14/
      DATA (JL(I,36),I= 1, 4)/ 4, 8,13,18/
      DATA (NP(I,36),I= 1,18)/ 1, 2, 2, 2, 0, 1, 2, 2, 0, 1,
     1                         2, 2, 2, 0, 1, 2, 2, 2/
      DATA (CP(I,36),I= 1,18)/         -2.8000000D+01,-1.434259955D+02,
     1 -4.43723838D+01,-6.29112520D+00, 3.00000000D+00, 3.71893647D+01,
     2 1.322973958D+02, 4.79346985D+01, 5.00000000D+00, 2.61564008D+01,
     3  9.63176501D+01,1.036632794D+02, 3.10779315D+01, 3.00000000D+00,
     4  2.44356537D+01, 8.57229402D+01, 9.16970578D+01, 1.18300709D+01/
      DATA (ZP(I,36),I= 1,18)/         2.375470853D+02, 4.57406754D+01,
     1  9.70732370D+00, 2.93207380D+00, 7.07606918D+01, 3.36809745D+01,
     2  1.38075281D+01, 3.31882540D+00, 5.77676804D+01, 2.76779453D+01,
     3  3.04757449D+01, 1.03642639D+01, 2.84708270D+00, 8.53902277D+01,
     4  3.60781993D+01, 3.80387668D+01, 1.06069882D+01, 1.93901480D+00/
C RUBIDIUM
      DATA (JF(I,37),I= 1, 4)/ 1, 7,13,19/
      DATA (JL(I,37),I= 1, 4)/ 6,12,18,23/
      DATA (NP(I,37),I= 1,23)/ 0, 1, 2, 2, 2, 2, 0, 1, 2, 2,
     1                         2, 2, 0, 1, 2, 2, 2, 2, 0, 1, 2, 2, 2/
      DATA (CP(I,37),I= 1,23)/         -3.64362000D-02,-2.33062353D+01,
     1 -4.19708274D+01,-8.80548820D+00,-3.27628290D+00,-1.82300600D-01,
     2  3.05163750D+00, 3.44023818D+01, 9.94966874D+01, 5.21437811D+01,
     3  1.70760321D+01, 5.54021030D+00, 2.07539700D+00, 3.82771753D+01,
     4  9.87705797D+01, 3.43833390D+01, 1.16403739D+01, 2.47293090D+00,
     5  3.03032280D+00, 2.88442524D+01,1.048105282D+02, 4.30034879D+01,
     6  1.08173215D+01/
      DATA (ZP(I,37),I= 1,23)/         1.450350895D+02, 2.12749685D+01,
     1  6.60945850D+00, 1.87053080D+00, 6.17773400D-01, 2.48710200D-01,
     2  6.60749102D+01, 2.98443241D+01, 1.48474854D+01, 5.66482380D+00,
     3  1.67745890D+00, 4.48501200D-01, 8.10852315D+01, 2.91588472D+01,
     4  1.12440746D+01, 3.73257130D+00, 1.03736880D+00, 2.72872700D-01,
     5  5.68036783D+01, 2.99914780D+01, 1.42870365D+01, 4.49966710D+00,
     6  9.21096600D-01/
C STRONTIUM
      DATA (JF(I,38),I= 1, 4)/ 1, 7,13,19/
      DATA (JL(I,38),I= 1, 4)/ 6,12,18,23/
      DATA (NP(I,38),I= 1,24)/ 0, 1, 2, 2, 2, 2, 0, 1, 2, 2,
     1                         2, 2, 0, 1, 2, 2, 2, 2, 0, 1, 2, 2, 2, 2/
      DATA (CP(I,38),I= 1,24)/         -3.84323000D-02,-2.26194918D+01,
     1 -3.64319079D+01,-9.07182650D+00,-2.60983840D+00,-5.59578000D-02,
     2  3.05173880D+00, 4.01725046D+01,1.318949569D+02, 7.27610900D+01,
     3  2.42643629D+01, 7.80966400D+00, 5.01030240D+00, 2.97225305D+01,
     4  6.77842103D+01, 3.79494334D+01, 1.43649831D+01, 3.64366410D+00,
     5  2.90497210D+00, 3.39464015D+01, 8.30430063D+01, 4.62557229D+01,
     6 -2.77408480D+01,-5.21022000D-02/
      DATA (ZP(I,38),I= 1,24)/         1.114938784D+02, 1.93872731D+01,
     1  6.53214740D+00, 1.86971500D+00, 6.30414900D-01, 2.49876600D-01,
     2  8.50969543D+01, 3.88628138D+01, 1.94115538D+01, 7.25651090D+00,
     3  2.16603640D+00, 5.50345300D-01, 3.21182674D+01, 1.55675759D+01,
     4  9.88163310D+00, 4.06150030D+00, 1.26525030D+00, 3.45086700D-01,
     5  7.06203270D+01, 2.41498704D+01, 9.12783120D+00, 1.58915720D+00,
     6  1.28560140D+00, 2.34837900D-01/
C YTTRIUM
      DATA (JF(I,39),I= 1, 4)/ 1, 8,13,17/
      DATA (JL(I,39),I= 1, 4)/ 7,12,16,22/
      DATA (NP(I,39),I= 1,22)/ 0, 1, 2, 2, 2, 2, 2, 0, 1, 2,
     1                         2, 2, 0, 1, 2, 2, 0, 1, 2, 2, 2, 2/
      DATA (CP(I,39),I= 1,22)/         -4.04817000D-02,-2.47037153D+01,
     1 -8.70963659D+01,-3.40507769D+01,-2.62826968D+01,-7.64893150D+00,
     2 -1.29609070D+00, 2.93799590D+00, 3.01960922D+01, 2.70994409D+01,
     3  1.96677401D+01,-1.22337233D+01, 1.97276500D+00, 2.61215711D+01,
     4  1.70466642D+01, 4.95371270D+00, 2.98375450D+00, 2.28182359D+01,
     5  8.21370962D+01, 4.19336967D+01,-3.12567263D+01,-1.92610800D-01/
      DATA (ZP(I,39),I= 1,22)/         2.862468288D+02, 7.97488604D+01,
     1  2.69353388D+01, 1.28167805D+01, 5.54881780D+00, 1.50199500D+00,
     2  5.33640700D-01, 2.85474197D+01, 8.43349030D+00, 2.71233440D+00,
     3  4.71534700D-01, 4.35828200D-01, 2.29190664D+01, 6.76224870D+00,
     4  1.80439680D+00, 3.84371500D-01, 4.24281313D+01, 2.41184707D+01,
     5  1.03891093D+01, 1.63238300D+00, 1.50721560D+00, 2.58077200D-01/
C ZIRCONIUM
      DATA (JF(I,40),I= 1, 4)/ 1, 8,13,17/
      DATA (JL(I,40),I= 1, 4)/ 7,12,16,22/
      DATA (NP(I,40),I= 1,22)/ 0, 1, 2, 2, 2, 2, 2, 0, 1, 2,
     1                         2, 2, 0, 1, 2, 2, 0, 1, 2, 2, 2, 2/
      DATA (CP(I,40),I= 1,22)/         -4.25843000D-02,-2.46095772D+01,
     1 -8.81416208D+01,-3.05867042D+01,-2.55132044D+01,-7.50746830D+00,
     2 -9.31673300D-01, 2.93470230D+00, 3.17821845D+01, 3.54651631D+01,
     3  1.66848086D+01,-8.12037060D+00, 1.97133660D+00, 2.70213041D+01,
     4  2.02473609D+01, 5.99189360D+00, 2.98290790D+00, 2.12100150D+01,
     5 1.100416961D+02, 4.06393744D+01,-2.71743424D+01,-2.14895800D-01/
      DATA (ZP(I,40),I= 1,22)/         2.586887844D+02, 7.97997982D+01,
     1  2.63866691D+01, 1.28834065D+01, 5.63711320D+00, 1.52128360D+00,
     2  5.28895500D-01, 3.70137467D+01, 1.07740348D+01, 3.57165800D+00,
     3  5.15214300D-01, 4.49823800D-01, 2.82944527D+01, 8.27613250D+00,
     4  2.37609000D+00, 4.37842800D-01, 4.45032208D+01, 3.38163010D+01,
     5  1.34383705D+01, 1.87067750D+00, 1.66913430D+00, 2.96675600D-01/
C NIOBIUM
      DATA (JF(I,41),I= 1, 4)/ 1, 8,13,17/
      DATA (JL(I,41),I= 1, 4)/ 7,12,16,22/
      DATA (NP(I,41),I= 1,22)/ 0, 1, 2, 2, 2, 2, 2, 0, 1, 2,
     1                         2, 2, 0, 1, 2, 2, 0, 1, 2, 2, 2, 2/
      DATA (CP(I,41),I= 1,22)/         -4.47401000D-02,-2.48992092D+01,
     1 -9.29999902D+01,-2.59973954D+01,-2.52799818D+01,-7.09614700D+00,
     2 -6.68321800D-01, 2.93131740D+00, 3.24649833D+01, 3.37155579D+01,
     3  1.77141979D+01,-7.69545420D+00, 1.96987070D+00, 2.80614767D+01,
     4  2.15315226D+01, 6.77756380D+00, 2.98203940D+00, 1.97329038D+01,
     5 1.474617485D+02, 3.66351631D+01,-2.03584460D+01,-1.93149900D-01/
      DATA (ZP(I,41),I= 1,22)/          4.86208126D+02, 8.26257910D+01,
     1  2.60707013D+01, 1.30525293D+01, 5.65748760D+00, 1.52855830D+00,
     2  5.17024400D-01, 3.40020679D+01, 1.00551965D+01, 3.28553860D+00,
     3  5.88517100D-01, 5.03357000D-01, 2.66160240D+01, 7.88294390D+00,
     4  2.17441060D+00, 4.97817200D-01, 4.77396406D+01, 5.21900411D+01,
     5  1.76960849D+01, 2.09732420D+00, 1.74708570D+00, 3.07835500D-01/
C MOLYBDENUM
      DATA (JF(I,42),I= 1, 4)/ 1, 8,13,17/
      DATA (JL(I,42),I= 1, 4)/ 7,12,16,22/
      DATA (NP(I,42),I= 1,22)/ 0, 1, 2, 2, 2, 2, 2, 0, 1, 2,
     1                         2, 2, 0, 1, 2, 2, 0, 1, 2, 2, 2, 2/
      DATA (CP(I,42),I= 1,22)/         -4.69492000D-02,-2.49754989D+01,
     1-1.040253691D+02,-1.86448797D+01,-2.62555763D+01,-6.52468020D+00,
     2 -4.60604700D-01, 2.92784060D+00, 3.43483716D+01, 3.55827749D+01,
     3  1.76822057D+01,-6.23177380D+00, 1.96836700D+00, 3.03775276D+01,
     4  2.55509616D+01, 7.74148510D+00, 2.98114930D+00, 2.13037310D+01,
     5 1.364686418D+02, 3.66796104D+01,-1.82198346D+01,-2.02462100D-01/
      DATA (ZP(I,42),I= 1,22)/         1.404577691D+02, 8.94739342D+01,
     1  2.61462922D+01, 1.33034210D+01, 5.71093210D+00, 1.51611630D+00,
     2  4.92525000D-01, 3.37771969D+01, 1.00120020D+01, 3.23513920D+00,
     3  6.67235000D-01, 5.51806300D-01, 2.78974995D+01, 8.26769430D+00,
     4  2.27762240D+00, 5.62447800D-01, 5.09491474D+01, 4.39395130D+01,
     5  1.69218563D+01, 2.42155590D+00, 1.96370470D+00, 3.32727400D-01/
C TECHNETIUM
      DATA (JF(I,43),I= 1, 4)/ 1, 8,13,17/
      DATA (JL(I,43),I= 1, 4)/ 7,12,16,22/
      DATA (NP(I,43),I= 1,22)/ 0, 1, 2, 2, 2, 2, 2, 0, 1, 2,
     1                         2, 2, 0, 1, 2, 2, 0, 1, 2, 2, 2, 2/
      DATA (CP(I,43),I= 1,22)/         -4.92115000D-02,-2.48746952D+01,
     1 -9.43425609D+01,-1.92541442D+01,-2.35804838D+01,-6.30601550D+00,
     2 -3.78402400D-01, 2.92427120D+00, 3.32684200D+01, 3.83154372D+01,
     3  2.25461021D+01,-9.04682550D+00, 1.96682550D+00, 2.93737383D+01,
     4  2.58622165D+01, 8.42548150D+00, 2.98023730D+00, 2.00497296D+01,
     5 1.840269963D+02, 5.21621823D+01,-3.06237885D+01,-1.76700300D-01/
      DATA (ZP(I,43),I= 1,22)/         3.037613257D+02, 8.22486843D+01,
     1  2.48708254D+01, 1.32618547D+01, 5.62174290D+00, 1.58529550D+00,
     2  4.79444800D-01, 3.86719811D+01, 1.17892330D+01, 3.99158760D+00,
     3  7.22202600D-01, 5.93223800D-01, 3.28241364D+01, 9.73526060D+00,
     4  2.81268530D+00, 6.07161200D-01, 6.06161543D+01, 6.60995962D+01,
     5  2.26740462D+01, 2.53920360D+00, 2.13633540D+00, 3.43563700D-01/
C RUTHENIUM
      DATA (JF(I,44),I= 1, 4)/ 1, 8,13,17/
      DATA (JL(I,44),I= 1, 4)/ 7,12,16,22/
      DATA (NP(I,44),I= 1,22)/ 0, 1, 2, 2, 2, 2, 2, 0, 1, 2,
     1                         2, 2, 0, 1, 2, 2, 0, 1, 2, 2, 2, 2/
      DATA (CP(I,44),I= 1,22)/         -5.15270000D-02,-2.42111980D+01,
     1 -9.01324868D+01,-1.87412056D+01,-2.13351883D+01,-5.99965630D+00,
     2 -2.99410200D-01, 2.92060850D+00, 3.47473053D+01, 4.16989147D+01,
     3  2.98034158D+01,-1.69340057D+01, 1.96524610D+00, 3.04935522D+01,
     4  2.80446947D+01, 9.00794290D+00, 2.97930350D+00, 2.06159067D+01,
     5  1.75836103D+02, 6.41834035D+01,-4.01987590D+01,-1.88037500D-01/
      DATA (ZP(I,44),I= 1,22)/         2.392060503D+02, 7.77081665D+01,
     1  2.41792246D+01, 1.29011817D+01, 5.51658330D+00, 1.63557690D+00,
     2  4.51999300D-01, 4.01276685D+01, 1.21750285D+01, 4.02901930D+00,
     3  7.12045900D-01, 6.30685500D-01, 3.26793541D+01, 9.74528640D+00,
     4  2.74343180D+00, 6.65209800D-01, 5.76689621D+01, 6.23738213D+01,
     5  2.19924916D+01, 2.81360930D+00, 2.42873380D+00, 3.76521900D-01/
C RHODIUM
      DATA (JF(I,45),I= 1, 4)/ 1, 8,13,17/
      DATA (JL(I,45),I= 1, 4)/ 7,12,16,22/
      DATA (NP(I,45),I= 1,22)/ 0, 1, 2, 2, 2, 2, 2, 0, 1, 2,
     1                         2, 2, 0, 1, 2, 2, 0, 1, 2, 2, 2, 2/
      DATA (CP(I,45),I= 1,22)/         -5.38958000D-02,-2.39307707D+01,
     1 -8.98969366D+01,-2.11724377D+01,-1.83052670D+01,-5.40818490D+00,
     2 -1.92489700D-01, 2.91685180D+00, 3.56832341D+01, 4.32107769D+01,
     3  4.27779660D+01,-2.88814407D+01, 1.96362850D+00, 3.20601598D+01,
     4  3.14780808D+01, 9.58775110D+00, 2.97834790D+00, 2.14067434D+01,
     5 1.679848402D+02, 8.16117137D+01,-5.53483688D+01,-1.86893300D-01/
      DATA (ZP(I,45),I= 1,22)/         3.173059724D+02, 7.76959662D+01,
     1  2.47489753D+01, 1.20137393D+01, 5.20960640D+00, 1.62359950D+00,
     2  3.78865200D-01, 3.98340266D+01, 1.22387614D+01, 4.02402170D+00,
     3  7.71855000D-01, 7.12920800D-01, 3.31563494D+01, 9.96033360D+00,
     4  2.78734840D+00, 7.23947400D-01, 5.83209808D+01, 5.62607768D+01,
     5  2.14571280D+01, 3.06908220D+00, 2.72208030D+00, 4.01015100D-01/
C PALADIUM
      DATA (JF(I,46),I= 1, 4)/ 1, 8,13,17/
      DATA (JL(I,46),I= 1, 4)/ 7,12,16,22/
      DATA (NP(I,46),I= 1,22)/ 0, 1, 2, 2, 2, 2, 2, 0, 1, 2,
     1                         2, 2, 0, 1, 2, 2, 0, 1, 2, 2, 2, 2/
      DATA (CP(I,46),I= 1,22)/         -5.63177000D-02,-2.38745415D+01,
     1 -8.95288200D+01,-1.92344644D+01,-1.79234918D+01,-4.85497440D+00,
     2 -1.73914500D-01, 2.91300040D+00, 3.67672813D+01, 4.57854317D+01,
     3  5.98826421D+01,-4.48525516D+01, 1.96197280D+00, 3.39442017D+01,
     4  3.49055940D+01, 1.01029853D+01, 2.97737050D+00, 2.02385942D+01,
     5 2.324896834D+02, 9.29849161D+01,-6.29215422D+01,-1.58376100D-01/
      DATA (ZP(I,46),I= 1,22)/         3.031163008D+02, 7.75066717D+01,
     1  2.45130225D+01, 1.21944317D+01, 5.13915710D+00, 1.64557520D+00,
     2  3.68937700D-01, 3.98409904D+01, 1.24879019D+01, 4.11350570D+00,
     3  8.43320100D-01, 7.98947100D-01, 3.40332507D+01, 1.01800074D+01,
     4  2.87408530D+00, 7.81134600D-01, 7.37537338D+01, 8.84201466D+01,
     5  2.94935149D+01, 3.23154880D+00, 2.84021230D+00, 4.24145600D-01/
C SILVER
      DATA (JF(I,47),I= 1, 4)/ 1, 7,12,17/
      DATA (JL(I,47),I= 1, 4)/ 6,11,16,22/
      DATA (NP(I,47),I= 1,22)/ 0, 1, 2, 2, 2, 2, 0, 1, 2, 2,
     1                         2, 0, 1, 2, 2, 2, 0, 1, 2, 2, 2, 2/
      DATA (CP(I,47),I= 1,22)/         -5.87930000D-02,-2.32562332D+01,
     1 -9.23272663D+01,-2.04374147D+01,-5.55199510D+00,-6.68721000D-01,
     2  2.90905350D+00,3.74068186D+01,1.135661277D+02,-1.422229207D+02,
     3  8.19775247D+01, 1.96027880D+00, 2.98658485D+01, 8.57999036D+01,
     4  3.28323292D+01, 8.56694830D+00, 2.97637120D+00, 2.41109965D+01,
     5 1.536079747D+02, 7.71773219D+01,-4.61904997D+01,-1.98153100D-01/
      DATA (ZP(I,47),I= 1,22)/          2.31713220D+00, 7.33524297D+01,
     1  2.17187945D+01, 5.99682580D+00, 2.12586010D+00, 7.01919500D-01,
     2  3.65725995D+01, 1.10710579D+01, 2.66978050D+00, 1.95376790D+00,
     3  1.48901210D+00, 5.66291080D+00, 4.23303327D+01, 1.27053187D+01,
     4  2.93830160D+00, 7.75194600D-01, 6.37701165D+01, 4.73607192D+01,
     5  2.08076266D+01, 3.74400690D+00, 3.21440280D+00, 4.83879200D-01/
C CADMIUM
      DATA (JF(I,48),I= 1, 4)/ 1, 8,13,17/
      DATA (JL(I,48),I= 1, 4)/ 7,12,16,22/
      DATA (NP(I,48),I= 1,22)/ 0, 1, 2, 2, 2, 2, 2, 0, 1, 2,
     1                         2, 2, 0, 1, 2, 2, 0, 1, 2, 2, 2, 2/
      DATA (CP(I,48),I= 1,22)/         -6.13214000D-02,-2.49355593D+01,
     1 -8.77728765D+01,-1.90665030D+01,-1.61901254D+01,-3.94412540D+00,
     2 -3.09747600D-01, 2.90501020D+00, 3.96289198D+01, 5.74435790D+01,
     3  9.02351166D+01,-7.17139236D+01, 1.95854630D+00, 3.75669844D+01,
     4  4.40875104D+01, 1.25678599D+01, 2.97534990D+00, 2.47054373D+01,
     5 2.182163143D+02, 1.18994537D+02,-8.24999671D+01,-2.41375800D-01/
      DATA (ZP(I,48),I= 1,22)/          3.50076249D+02, 8.11757778D+01,
     1  2.47747818D+01, 1.25760330D+01, 4.98897120D+00, 1.84499100D+00,
     2  5.30949400D-01, 5.45786193D+01, 1.60082316D+01, 5.27674620D+00,
     3  9.73107000D-01, 9.30564600D-01, 4.13581766D+01, 1.21214982D+01,
     4  3.44788060D+00, 9.36217500D-01, 8.53710499D+01, 7.30500781D+01,
     5  2.84262887D+01, 3.94501580D+00, 3.53493790D+00, 6.48219400D-01/
C INDIUM
      DATA (JF(I,49),I= 1, 4)/ 1, 6,11,16/
      DATA (JL(I,49),I= 1, 4)/ 5,10,15,20/
      DATA (NP(I,49),I= 1,20)/ 0, 1, 2, 2, 2, 0, 1, 2, 2, 2,
     1                         0, 1, 2, 2, 2, 0, 1, 2, 2, 2/
      DATA (CP(I,49),I= 1,20)/         -6.39031000D-02,-2.99082901D+01,
     1 -6.33446824D+01,-1.90058428D+01,-2.51619210D+00, 3.23016070D+00,
     2  7.67809140D+01, 2.45477076D+02, 7.92892721D+01, 2.64089460D+01,
     3  4.46902900D+00, 4.36473399D+01, 5.07565406D+01,-4.86730017D+01,
     4  5.87692653D+01, 3.10207700D+00, 3.65445090D+01, 4.88041808D+01,
     5  1.94362361D+01, 3.98556470D+00/
      DATA (ZP(I,49),I= 1,20)/          1.80207100D-01, 3.30176528D+01,
     1  9.72197490D+00, 2.34815780D+00, 7.22685300D-01,1.731403228D+02,
     2  5.82752431D+01, 2.11294304D+01, 5.95810610D+00, 1.48302720D+00,
     3  3.59438033D+01, 1.12431083D+01, 3.53408300D+00, 1.41209370D+00,
     4  1.28289470D+00, 4.26276817D+01, 1.45649330D+01, 5.55053780D+00,
     5  1.83514850D+00, 5.28812200D-01/
C TIN
      DATA (JF(I,50),I= 1, 4)/ 1, 6,11,16/
      DATA (JL(I,50),I= 1, 4)/ 5,10,15,20/
      DATA (NP(I,50),I= 1,20)/ 0, 1, 2, 2, 2, 0, 1, 2, 2, 2,
     1                         0, 1, 2, 2, 2, 0, 1, 2, 2, 2/
      DATA (CP(I,50),I= 1,20)/         -6.65380000D-02,-2.97469416D+01,
     1 -6.18307278D+01,-1.89410634D+01,-2.23849820D+00, 2.94827770D+00,
     2  6.37614718D+01,2.305276788D+02, 8.50713314D+01, 2.88215644D+01,
     3  2.69419460D+00, 4.48271079D+01, 5.76223370D+01,-4.46853312D+01,
     4  5.71351815D+01, 3.02592970D+00, 3.95341071D+01, 6.84686504D+01,
     5  2.91123764D+01, 5.84285770D+00/
      DATA (ZP(I,50),I= 1,20)/          2.16902100D-01, 3.33097182D+01,
     1  9.88468320D+00, 2.50195930D+00, 7.83332300D-01,1.556062293D+02,
     2  5.65145464D+01, 2.26583648D+01, 6.58370800D+00, 1.59477020D+00,
     3  4.04666705D+01, 1.36218440D+01, 4.10926880D+00, 1.50461370D+00,
     4  1.36467620D+00, 6.01915052D+01, 2.04961142D+01, 8.44383280D+00,
     5  2.61037900D+00, 6.50131700D-01/
C ANTIMONY
      DATA (JF(I,51),I= 1, 4)/ 1, 7,12,17/
      DATA (JL(I,51),I= 1, 4)/ 6,11,16,21/
      DATA (NP(I,51),I= 1,21)/ 0, 1, 2, 2, 2, 2, 0, 1, 2, 2,
     1                         2, 0, 1, 2, 2, 2, 0, 1, 2, 2, 2/
      DATA (CP(I,51),I= 1,21)/         -6.92261000D-02,-3.15434712D+01,
     1-1.158407306D+02,-4.20224212D+01,-2.00463938D+01,-2.87960280D+00,
     2  2.93313030D+00, 4.41104819D+01, 2.28019805D+02, 9.25610162D+01,
     3  3.12537244D+01, 4.99473690D+00, 3.80223860D+01, 6.20520654D+01,
     4 -4.95489389D+01, 5.13666000D+01, 2.97384700D+00, 4.16495825D+01,
     5 1.045919562D+02, 4.23187857D+01, 7.94135030D+00/
      DATA (ZP(I,51),I= 1,21)/         2.272723558D+02, 7.71429882D+01,
     1  2.60116501D+01, 9.14211590D+00, 2.92810820D+00, 9.23113600D-01,
     2 1.160010888D+02, 5.96755065D+01, 2.76135849D+01, 7.80450810D+00,
     3  1.69344180D+00, 2.78050796D+01, 1.03929685D+01, 3.63810670D+00,
     4  1.98396810D+00, 1.55465620D+00, 8.32183030D+01, 3.03070501D+01,
     5  1.32014120D+01, 3.69616110D+00, 7.71114400D-01/
C TELLURIUM
      DATA (JF(I,52),I= 1, 4)/ 1, 7,12,17/
      DATA (JL(I,52),I= 1, 4)/ 6,11,16,21/
      DATA (NP(I,52),I= 1,21)/ 0, 1, 2, 2, 2, 2, 0, 1, 2, 2,
     1                         2, 0, 1, 2, 2, 2, 0, 1, 2, 2, 2/
      DATA (CP(I,52),I= 1,21)/         -7.19675000D-02,-3.13740754D+01,
     1-1.129711996D+02,-4.19599185D+01,-1.91274006D+01,-2.29177780D+00,
     2  2.92866390D+00, 6.89626773D+01,2.769637063D+02,1.044701765D+02,
     3  3.48384805D+01, 4.97321880D+00, 3.88983634D+01,1.373139246D+02,
     4  6.97370323D+01, 2.27487178D+01, 3.15487780D+00, 3.31153649D+01,
     5 2.103056318D+02,-3.211963746D+02,1.524853001D+02/
      DATA (ZP(I,52),I= 1,21)/         2.850323292D+02, 7.59105798D+01,
     1  2.61827859D+01, 9.06351410D+00, 2.95432570D+00, 9.16994200D-01,
     2 1.883327504D+02, 6.86306921D+01, 2.74402195D+01, 7.88352820D+00,
     3  1.84433620D+00, 5.40822795D+01, 2.85434714D+01, 1.68660857D+01,
     4  5.52441760D+00, 1.46252250D+00, 3.45312648D+01, 1.12699366D+01,
     5  2.27043610D+00, 1.77669920D+00, 1.42516660D+00/
C IODINE
      DATA (JF(I,53),I= 1, 4)/ 1, 6,11,16/
      DATA (JL(I,53),I= 1, 4)/ 5,10,15,20/
      DATA (NP(I,53),I= 1,20)/ 0, 1, 2, 2, 2, 0, 1, 2, 2, 2,
     1                         0, 1, 2, 2, 2, 0, 1, 2, 2, 2/
      DATA (CP(I,53),I= 1,20)/         -7.47621000D-02,-3.00811224D+01,
     1 -7.53722721D+01,-2.20563758D+01,-1.69795850D+00, 2.93800360D+00,
     2  4.12471267D+01,2.878680095D+02,1.143758506D+02, 3.76547714D+01,
     3  2.22226300D+00, 3.94090831D+01,1.774075002D+02, 7.79889462D+01,
     4  2.57547641D+01, 7.05243600D+00, 3.33041635D+01,1.869453875D+02,
     5  7.19688361D+01, 9.36306570D+00/
      DATA (ZP(I,53),I= 1,20)/          1.07157020D+00, 4.41936028D+01,
     1  1.29367609D+01, 3.19564120D+00, 8.58980600D-01, 1.27920267D+02,
     2  7.86211465D+01, 3.65146237D+01, 9.90656810D+00, 1.94200860D+00,
     3  1.30035304D+01, 7.60331404D+01, 2.41961684D+01, 6.40534330D+00,
     4  1.58517860D+00, 4.04278108D+01, 2.89084375D+01, 1.56268936D+01,
     5  4.14428560D+00, 9.37723500D-01/
C XENON
      DATA (JF(I,54),I= 1, 4)/ 1, 7,12,17/
      DATA (JL(I,54),I= 1, 4)/ 6,11,16,21/
      DATA (NP(I,54),I= 1,21)/ 0, 1, 2, 2, 2, 2, 0, 1, 2, 2,
     1                         2, 0, 1, 2, 2, 2, 0, 1, 2, 2, 2/
      DATA (CP(I,54),I= 1,21)/         -7.76099000D-02,-3.24332953D+01,
     1-1.510853351D+02,-4.64977626D+01,-1.78080990D+01,-1.64811630D+00,
     2  2.91703080D+00, 5.20620644D+01,2.932865672D+02,1.228610373D+02,
     3  4.16867277D+01, 2.09685150D+00, 3.00220424D+01,1.728757636D+02,
     4  6.77609841D+01, 2.98970913D+01, 7.04149350D+00, 3.33391744D+01,
     5 2.492893077D+02, 8.93576166D+01, 1.16206324D+01/
      DATA (ZP(I,54),I= 1,21)/         4.425138313D+02,1.060005534D+02,
     1  3.26123743D+01, 9.47396670D+00, 3.11471950D+00, 9.19447200D-01,
     2 1.487400724D+02, 7.47687436D+01, 3.41548413D+01, 9.68996750D+00,
     3  2.10659470D+00, 8.14951570D+00, 1.13923564D+02, 3.51266431D+01,
     4  8.14495790D+00, 1.71871380D+00, 4.94518384D+01, 3.89480918D+01,
     5  2.00161598D+01, 5.06149040D+00, 1.06729630D+00/
C
      DATA (IE(I),I= 1,54)/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,10,10,10,10,10,
     1                     10,10,10,18,18,18,18,18,18,18,18,18,18,18,18,
     1                     28,28,28,28,28,28,36,36,36,36,36,36,36,36,36,
     1                     36,36,36,46,46,46,46,46,46/
      DATA (JG(I),I= 1,54)/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 3, 3, 3, 3,
     1                      3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
     2                      4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
     3                      4, 4, 4, 4, 4, 4, 4, 4, 4/
      DATA (MG(I),I= 1,54)/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,16,16,16,16,16,
     1                     16,16,16,15,14,17,17,16,16,16,16,16,16,16,18,
     2                     20,20,20,20,18,18,23,24,22,22,22,22,22,22,22,
     3                     22,22,22,20,20,21,21,20,21/
C
      IF(NUCZ.LT.11 .OR. NUCZ.GT.54) THEN
C        IF(MASWRK) WRITE(6,*) 'NO -HWPOT- ECPS EXIST!'
         CALL ABRT
      ENDIF
C
      DO 110 IG=1,JG(NUCZ)
          KF(IG)= JF(IG,NUCZ)
          KL(IG)= JL(IG,NUCZ)
  110 CONTINUE
C
      DO 120 IG=1,MG(NUCZ)
         NLP(IG)= NP(IG,NUCZ)
         CLP(IG)= CP(IG,NUCZ)
         ZLP(IG)= ZP(IG,NUCZ)
  120 CONTINUE
      ICORE = IE(NUCZ)
C
      RETURN
      END
C*MODULE ECPPOT  *DECK SBKPOT
      SUBROUTINE SBKPOT(NUCZ,KF,KL,CLP,NLP,ZLP,ICORE)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
      DIMENSION KF(*),KL(*),CLP(*),NLP(*),ZLP(*)
C
      LOGICAL GOPARR,DSKWRK,MASWRK
      COMMON /PAR   / ME,MASTER,NPROC,IBTYP,IPTIM,GOPARR,DSKWRK,MASWRK
C
C     ----- "STEVENS, BASCH, KRAUSS, JASIEN, CUNDARI" POTENTIALS -----
C         FOR LI TO AR,
C     W.STEVENS, H.BASCH, M.KRAUSS  J.CHEM.PHYS. 81, 6026-6033 (1984)
C         FOR K TO RN,
C     W.STEVENS, P.G.JASIEN, M.KRAUSS, H.BASCH,
C     CAN.J.CHEM. 70, 612-630 (1992)
C         FOR THE LANTHANIDES,
C     T.R.CUNDARI, W.J.STEVENS, J.CHEM.PHYS. 98, 5555-5565 (1993)
C
C THE VARIABLES IN THIS ROUTINE CORRESPOND AS FOLLOWS TO THE
C BEFORE MENTIONED PAPER:
C     NUCZ: THE ATOMIC NUMBER OF THE ATOM
C     KF(I): AN INTEGER POINTING TO THE FIRST ELEMENT OF THE I'TH
C            PART OF THE ECP
C     KL(I): AN INTEGER POINTING TO THE  LAST ELEMENT OF THE I'TH
C            PART OF THE ECP
C     NLP: THIS CORRESPONDS TO THE N(LK) PARAMETER
C     CLP: A(LK) IN THE PAPER
C     ZLP: B(LK) IN THE PAPER
C     ICORE: THE NUMBER OF CORE ELECTRONS USED IN THE ECP
C
C FIRST SET UP KF, KL, NLP, AND ICORE WHICH ARE THE SAME FOR ALL
C OF THE LANTHANIDES.
C
      DIMENSION JF( 5, 3:86),JL( 5, 3:86)
      DIMENSION CP(12, 3:86),NP(12, 3:86),ZP(12, 3:86)
      DIMENSION IE(86),JG(86),MG(86)
C
C LITHIUM
      DATA (JF(I, 3),I= 1, 2)/ 1, 2/
      DATA (JL(I, 3),I= 1, 2)/ 1, 3/
      DATA (NP(I, 3),I= 1, 3)/ 1, 0, 2/
      DATA (CP(I, 3),I= 1, 3)/-7.306300D-01, 1.801310D+00, 3.549710D+00/
      DATA (ZP(I, 3),I= 1, 3)/ 1.343060D+00, 6.128400D-01, 1.648810D+00/
C BERYLLIUM
      DATA (JF(I, 4),I= 1, 2)/ 1, 2/
      DATA (JL(I, 4),I= 1, 2)/ 1, 3/
      DATA (NP(I, 4),I= 1, 3)/ 1, 0, 2/
      DATA (CP(I, 4),I= 1, 3)/-7.897000D-01, 1.842290D+00, 6.811690D+00/
      DATA (ZP(I, 4),I= 1, 3)/ 2.793470D+00, 1.198740D+00, 3.207380D+00/
C BORON
      DATA (JF(I, 5),I= 1, 2)/ 1, 2/
      DATA (JL(I, 5),I= 1, 2)/ 1, 3/
      DATA (NP(I, 5),I= 1, 3)/ 1, 0, 2/
      DATA (CP(I, 5),I= 1, 3)/-8.835500D-01, 1.895720D+00, 1.097543D+01/
      DATA (ZP(I, 5),I= 1, 3)/ 5.646220D+00, 1.920610D+00, 5.551770D+00/
C CARBON
      DATA (JF(I, 6),I= 1, 2)/ 1, 2/
      DATA (JL(I, 6),I= 1, 2)/ 1, 3/
      DATA (NP(I, 6),I= 1, 3)/ 1, 0, 2/
      DATA (CP(I, 6),I= 1, 3)/-8.937100D-01, 1.929260D+00, 1.488199D+01/
      DATA (ZP(I, 6),I= 1, 3)/ 8.564680D+00, 2.814970D+00, 8.112960D+00/
C NITROGEN
      DATA (JF(I, 7),I= 1, 2)/ 1, 2/
      DATA (JL(I, 7),I= 1, 2)/ 1, 3/
      DATA (NP(I, 7),I= 1, 3)/ 1, 0, 2/
      DATA (CP(I, 7),I= 1, 3)/-9.121200D-01, 1.935650D+00, 2.173355D+01/
      DATA (ZP(I, 7),I= 1, 3)/ 1.199686D+01, 3.838950D+00, 1.173247D+01/
C OXYGEN
      DATA (JF(I, 8),I= 1, 2)/ 1, 2/
      DATA (JL(I, 8),I= 1, 2)/ 1, 3/
      DATA (NP(I, 8),I= 1, 3)/ 1, 0, 2/
      DATA (CP(I, 8),I= 1, 3)/-9.255000D-01, 1.960690D+00, 2.913442D+01/
      DATA (ZP(I, 8),I= 1, 3)/ 1.611718D+01, 5.053480D+00, 1.595333D+01/
C FLUORINE
      DATA (JF(I, 9),I= 1, 2)/ 1, 2/
      DATA (JL(I, 9),I= 1, 2)/ 1, 3/
      DATA (NP(I, 9),I= 1, 3)/ 1, 0, 2/
      DATA (CP(I, 9),I= 1, 3)/-9.325800D-01, 2.036490D+00, 2.786279D+01/
      DATA (ZP(I, 9),I= 1, 3)/ 2.073959D+01, 6.604880D+00, 1.824092D+01/
C NEON
      DATA (JF(I,10),I= 1, 2)/ 1, 2/
      DATA (JL(I,10),I= 1, 2)/ 1, 3/
      DATA (NP(I,10),I= 1, 3)/ 1, 0, 2/
      DATA (CP(I,10),I= 1, 3)/-9.409800D-01, 2.099520D+00, 3.146718D+01/
      DATA (ZP(I,10),I= 1, 3)/ 2.601666D+01, 8.280470D+00, 2.244102D+01/
C SODIUM
      DATA (JF(I,11),I= 1, 3)/ 1, 2, 4/
      DATA (JL(I,11),I= 1, 3)/ 1, 3, 5/
      DATA (NP(I,11),I= 1, 5)/ 1, 0, 2, 0, 2/
      DATA (CP(I,11),I= 1, 5)/-2.384460D+00, 6.234150D+00, 9.083740D+00,
     1           3.239710D+00, 2.535140D+00/
      DATA (ZP(I,11),I= 1, 5)/ 9.000900D-01, 5.372320D+00, 1.119590D+00,
     1           1.291580D+00, 6.579100D-01/
C MAGNESIUM
      DATA (JF(I,12),I= 1, 3)/ 1, 2, 4/
      DATA (JL(I,12),I= 1, 3)/ 1, 3, 5/
      DATA (NP(I,12),I= 1, 5)/ 1, 0, 2, 0, 2/
      DATA (CP(I,12),I= 1, 5)/-2.772960D+00, 6.410290D+00, 1.412727D+01,
     1           3.247620D+00, 4.330120D+00/
      DATA (ZP(I,12),I= 1, 5)/ 1.392200D+00, 6.962910D+00, 1.554580D+00,
     1           1.891770D+00, 9.823500D-01/
C ALUMINUM
      DATA (JF(I,13),I= 1, 3)/ 1, 2, 4/
      DATA (JL(I,13),I= 1, 3)/ 1, 3, 5/
      DATA (NP(I,13),I= 1, 5)/ 1, 0, 2, 0, 2/
      DATA (CP(I,13),I= 1, 5)/-3.030550D+00, 6.046500D+00, 1.887509D+01,
     1           3.294650D+00, 6.870290D+00/
      DATA (ZP(I,13),I= 1, 5)/ 1.955590D+00, 7.788580D+00, 1.990250D+00,
     1           2.831460D+00, 1.384790D+00/
C SILICON
      DATA (JF(I,14),I= 1, 3)/ 1, 2, 4/
      DATA (JL(I,14),I= 1, 3)/ 1, 3, 5/
      DATA (NP(I,14),I= 1, 5)/ 1, 0, 2, 0, 2/
      DATA (CP(I,14),I= 1, 5)/-2.982400D+00, 6.005580D+00, 2.377642D+01,
     1           3.203450D+00, 9.864380D+00/
      DATA (ZP(I,14),I= 1, 5)/ 2.462720D+00, 9.463380D+00, 2.444080D+00,
     1           3.825850D+00, 1.830260D+00/
C PHOSPHORUS
      DATA (JF(I,15),I= 1, 3)/ 1, 2, 4/
      DATA (JL(I,15),I= 1, 3)/ 1, 3, 5/
      DATA (NP(I,15),I= 1, 5)/ 1, 0, 2, 0, 2/
      DATA (CP(I,15),I= 1, 5)/-3.163610D+00, 6.207600D+00, 2.940024D+01,
     1           3.240840D+00, 1.310778D+01/
      DATA (ZP(I,15),I= 1, 5)/ 3.189450D+00, 1.179328D+01, 2.953300D+00,
     1           4.963680D+00, 2.318650D+00/
C SULFUR
      DATA (JF(I,16),I= 1, 3)/ 1, 2, 4/
      DATA (JL(I,16),I= 1, 3)/ 1, 3, 5/
      DATA (NP(I,16),I= 1, 5)/ 1, 0, 2, 0, 2/
      DATA (CP(I,16),I= 1, 5)/-3.298390D+00, 6.444960D+00, 3.562708D+01,
     1           3.357040D+00, 1.754237D+01/
      DATA (ZP(I,16),I= 1, 5)/ 3.989300D+00, 1.558064D+01, 3.501760D+00,
     1           6.885400D+00, 2.906900D+00/
C CHLORINE
      DATA (JF(I,17),I= 1, 3)/ 1, 2, 4/
      DATA (JL(I,17),I= 1, 3)/ 1, 3, 5/
      DATA (NP(I,17),I= 1, 5)/ 1, 0, 2, 0, 2/
      DATA (CP(I,17),I= 1, 5)/-3.407380D+00, 6.509660D+00, 4.227785D+01,
     1           3.428600D+00, 2.215256D+01/
      DATA (ZP(I,17),I= 1, 5)/ 4.874830D+00, 1.700367D+01, 4.103800D+00,
     1           8.900290D+00, 3.526480D+00/
C ARGON
      DATA (JF(I,18),I= 1, 3)/ 1, 2, 4/
      DATA (JL(I,18),I= 1, 3)/ 1, 3, 5/
      DATA (NP(I,18),I= 1, 5)/ 1, 0, 2, 0, 2/
      DATA (CP(I,18),I= 1, 5)/-3.488060D+00, 7.678550D+00, 4.992637D+01,
     1           3.525000D+00, 2.741686D+01/
      DATA (ZP(I,18),I= 1, 5)/ 5.823030D+00, 2.593841D+01, 4.737800D+00,
     1           1.141178D+01, 4.204760D+00/
C POTASSIUM
      DATA (JF(I,19),I= 1, 3)/ 1, 2, 4/
      DATA (JL(I,19),I= 1, 3)/ 1, 3, 5/
      DATA (NP(I,19),I= 1, 5)/ 1, 0, 2, 0, 2/
      DATA (CP(I,19),I= 1, 5)/-4.300020D+00, 6.715300D+00, 8.466830D+00,
     1           7.062520D+00, 2.698680D+00/
      DATA (ZP(I,19),I= 1, 5)/ 4.965200D-01, 2.487310D+00, 6.019000D-01,
     1           9.417000D-01, 3.362300D-01/
C CALCIUM
      DATA (JF(I,20),I= 1, 3)/ 1, 3, 5/
      DATA (JL(I,20),I= 1, 3)/ 2, 4, 6/
      DATA (NP(I,20),I= 1, 6)/ 1, 1, 0, 2, 0, 2/
      DATA (CP(I,20),I= 1, 6)/-5.819700D+00,-2.165480D+00, 8.005220D+00,
     1           8.947510D+00, 8.662220D+00, 5.572180D+00/
      DATA (ZP(I,20),I= 1, 6)/ 2.380450D+00, 4.063900D-01, 2.105430D+00,
     1           6.686500D-01, 1.794130D+00, 4.932300D-01/
C SCANDIUM
      DATA (JF(I,21),I= 1, 3)/ 1, 2, 5/
      DATA (JL(I,21),I= 1, 3)/ 1, 4, 6/
      DATA (NP(I,21),I= 1, 6)/ 1, 0, 2, 2, 0, 2/
      DATA (CP(I,21),I= 1, 6)/-3.669560D+00, 3.718850D+00,1.7826066D+02,
     1         -1.6178394D+02, 3.930480D+00, 4.569140D+01/
      DATA (ZP(I,21),I= 1, 6)/ 9.957120D+00, 1.464090D+00, 3.592170D+00,
     1           3.325830D+00, 2.353849D+01, 6.584150D+00/
C TITANIUM
      DATA (JF(I,22),I= 1, 3)/ 1, 2, 5/
      DATA (JL(I,22),I= 1, 3)/ 1, 4, 6/
      DATA (NP(I,22),I= 1, 6)/ 1, 0, 2, 2, 0, 2/
      DATA (CP(I,22),I= 1, 6)/-3.665810D+00, 3.880670D+00,1.7225051D+02,
     1         -1.5508356D+02, 4.044327D+00, 5.300048D+01/
      DATA (ZP(I,22),I= 1, 6)/ 1.120971D+01, 1.611720D+00, 4.009600D+00,
     1           3.664060D+00, 3.167782D+01, 7.457930D+00/
C VANADIUM
      DATA (JF(I,23),I= 1, 3)/ 1, 2, 5/
      DATA (JL(I,23),I= 1, 3)/ 1, 4, 6/
      DATA (NP(I,23),I= 1, 6)/ 1, 0, 2, 2, 0, 2/
      DATA (CP(I,23),I= 1, 6)/-3.791460D+00, 3.432580D+00,1.7803957D+02,
     1         -1.5630605D+02, 3.764807D+00, 5.896503D+01/
      DATA (ZP(I,23),I= 1, 6)/ 1.279659D+01, 1.504390D+00, 4.273210D+00,
     1           3.841210D+00, 3.083720D+01, 8.344540D+00/
C CHROMIUM
      DATA (JF(I,24),I= 1, 3)/ 1, 2, 5/
      DATA (JL(I,24),I= 1, 3)/ 1, 4, 6/
      DATA (NP(I,24),I= 1, 6)/ 1, 0, 2, 2, 0, 2/
      DATA (CP(I,24),I= 1, 6)/-3.643620D+00, 3.596790D+00,1.8407663D+02,
     1         -1.6141996D+02, 3.688620D+00, 6.548046D+01/
      DATA (ZP(I,24),I= 1, 6)/ 1.393307D+01, 1.721360D+00, 4.756810D+00,
     1           4.253480D+00, 3.228223D+01, 9.281370D+00/
C MANGANESE
      DATA (JF(I,25),I= 1, 3)/ 1, 2, 5/
      DATA (JL(I,25),I= 1, 3)/ 1, 4, 6/
      DATA (NP(I,25),I= 1, 6)/ 1, 0, 2, 2, 0, 2/
      DATA (CP(I,25),I= 1, 6)/-3.852540D+00, 3.712640D+00,1.8167442D+02,
     1         -1.5633704D+02, 4.368037D+00, 7.553242D+01/
      DATA (ZP(I,25),I= 1, 6)/ 1.588592D+01, 2.059810D+00, 5.432480D+00,
     1           4.798870D+00, 4.976765D+01, 1.036623D+01/
C IRON
      DATA (JF(I,26),I= 1, 3)/ 1, 2, 5/
      DATA (JL(I,26),I= 1, 3)/ 1, 4, 6/
      DATA (NP(I,26),I= 1, 6)/ 1, 0, 2, 2, 0, 2/
      DATA (CP(I,26),I= 1, 6)/-3.894230D+00, 3.817060D+00,1.7205349D+02,
     1         -1.4470056D+02, 4.137370D+00, 8.273696D+01/
      DATA (ZP(I,26),I= 1, 6)/ 1.761910D+01, 2.331500D+00, 6.083650D+00,
     1           5.266590D+00, 4.940456D+01, 1.140183D+01/
C COBALT
      DATA (JF(I,27),I= 1, 3)/ 1, 2, 5/
      DATA (JL(I,27),I= 1, 3)/ 1, 4, 6/
      DATA (NP(I,27),I= 1, 6)/ 1, 0, 2, 2, 0, 2/
      DATA (CP(I,27),I= 1, 6)/-3.947460D+00, 3.077050D+00,2.1548382D+02,
     1         -1.7411816D+02, 3.953210D+00, 9.090043D+01/
      DATA (ZP(I,27),I= 1, 6)/ 1.944559D+01, 2.259350D+00, 6.666650D+00,
     1           5.768180D+00, 5.028146D+01, 1.252610D+01/
C NICKEL
      DATA (JF(I,28),I= 1, 3)/ 1, 2, 5/
      DATA (JL(I,28),I= 1, 3)/ 1, 4, 6/
      DATA (NP(I,28),I= 1, 6)/ 1, 0, 2, 2, 0, 2/
      DATA (CP(I,28),I= 1, 6)/-3.993370D+00, 3.425720D+00,2.1854146D+02,
     1         -1.8410961D+02, 3.875400D+00, 9.968289D+01/
      DATA (ZP(I,28),I= 1, 6)/ 2.136373D+01, 2.218170D+00, 6.715850D+00,
     1           5.808560D+00, 5.645353D+01, 1.366534D+01/
C COPPER
      DATA (JF(I,29),I= 1, 3)/ 1, 2, 5/
      DATA (JL(I,29),I= 1, 3)/ 1, 4, 6/
      DATA (NP(I,29),I= 1, 6)/ 1, 0, 2, 2, 0, 2/
      DATA (CP(I,29),I= 1, 6)/-4.002760D+00, 3.324650D+00, 2.243233D+02,
     1          -1.803047D+02, 3.421300D+00,1.0570126D+02/
      DATA (ZP(I,29),I= 1, 6)/ 2.329060D+01, 2.620590D+00, 7.810820D+00,
     1           6.633240D+00, 5.115734D+01, 1.473406D+01/
C ZINC
      DATA (JF(I,30),I= 1, 3)/ 1, 2, 5/
      DATA (JL(I,30),I= 1, 3)/ 1, 4, 6/
      DATA (NP(I,30),I= 1, 6)/ 1, 0, 2, 2, 0, 2/
      DATA (CP(I,30),I= 1, 6)/-3.916480D+00, 3.430820D+00,2.4431634D+02,
     1         -1.9942711D+02, 4.114730D+00,1.1829936D+02/
      DATA (ZP(I,30),I= 1, 6)/ 2.488705D+01, 2.791590D+00, 8.326760D+00,
     1           7.096510D+00, 7.570603D+01, 1.607627D+01/
C GALLIUM
      DATA (JF(I,31),I= 1, 3)/ 1, 2, 5/
      DATA (JL(I,31),I= 1, 3)/ 1, 4, 6/
      DATA (NP(I,31),I= 1, 6)/ 1, 0, 2, 2, 0, 2/
      DATA (CP(I,31),I= 1, 6)/-3.873630D+00, 4.124720D+00,2.6073263D+02,
     1         -2.2396003D+02, 4.200330D+00,1.2799139D+02/
      DATA (ZP(I,31),I= 1, 6)/ 2.674302D+01, 3.465300D+00, 9.111300D+00,
     1           7.893290D+00, 7.999353D+01, 1.739114D+01/
C GERMANIUM
      DATA (JF(I,32),I= 1, 4)/ 1, 2, 4, 6/
      DATA (JL(I,32),I= 1, 4)/ 1, 3, 5, 7/
      DATA (NP(I,32),I= 1, 7)/ 1, 0, 2, 0, 2, 0, 2/
      DATA (CP(I,32),I= 1, 7)/-1.268590D+00, 6.770270D+00, 2.721907D+01,
     1           8.312530D+00, 1.553292D+01, 1.623600D+00, 3.206600D+00/
      DATA (ZP(I,32),I= 1, 7)/ 8.275100D-01, 1.224839D+01, 2.412910D+00,
     1           1.555556D+01, 1.820310D+00, 3.069700D+00, 8.052500D-01/
C ARSENIC
      DATA (JF(I,33),I= 1, 4)/ 1, 2, 4, 6/
      DATA (JL(I,33),I= 1, 4)/ 1, 3, 5, 7/
      DATA (NP(I,33),I= 1, 7)/ 1, 0, 2, 0, 2, 0, 2/
      DATA (CP(I,33),I= 1, 7)/-4.770280D+00, 1.303398D+01, 4.312429D+01,
     1           6.440630D+00, 2.812117D+01, 2.235080D+00, 4.607210D+00/
      DATA (ZP(I,33),I= 1, 7)/ 1.645830D+00, 2.076160D+01, 2.800840D+00,
     1           1.605834D+01, 2.294320D+00, 1.120860D+00, 1.121400D+00/
C SELENIUM
      DATA (JF(I,34),I= 1, 4)/ 1, 2, 4, 6/
      DATA (JL(I,34),I= 1, 4)/ 1, 3, 5, 7/
      DATA (NP(I,34),I= 1, 7)/ 1, 0, 2, 0, 2, 0, 2/
      DATA (CP(I,34),I= 1, 7)/-5.584980D+00, 1.328081D+01, 5.100011D+01,
     1           1.796400D+00, 3.043787D+01, 2.400010D+00, 6.599480D+00/
      DATA (ZP(I,34),I= 1, 7)/ 2.093560D+00, 2.055644D+01, 3.154900D+00,
     1           2.584950D+00, 2.585260D+00, 1.382900D+00, 1.426710D+00/
C BROMINE
      DATA (JF(I,35),I= 1, 4)/ 1, 2, 4, 6/
      DATA (JL(I,35),I= 1, 4)/ 1, 3, 5, 7/
      DATA (NP(I,35),I= 1, 7)/ 1, 0, 2, 0, 2, 0, 2/
      DATA (CP(I,35),I= 1, 7)/-4.782060D+00, 2.601900D+00, 4.415165D+01,
     1           2.094780D+00, 3.059546D+01, 1.793750D+00, 1.004660D+01/
      DATA (ZP(I,35),I= 1, 7)/ 2.121160D+00, 3.215380D+00, 3.216390D+00,
     1           2.727040D+00, 2.727620D+00, 1.731680D+00, 1.732460D+00/
C KRYPTON
      DATA (JF(I,36),I= 1, 4)/ 1, 2, 4, 6/
      DATA (JL(I,36),I= 1, 4)/ 1, 3, 5, 7/
      DATA (NP(I,36),I= 1, 7)/ 1, 0, 2, 0, 2, 0, 2/
      DATA (CP(I,36),I= 1, 7)/-5.612200D+00, 2.360660D+00, 5.188629D+01,
     1           2.349820D+00, 3.567029D+01, 2.854590D+00, 1.629386D+01/
      DATA (ZP(I,36),I= 1, 7)/ 2.642950D+00, 3.592760D+00, 3.579330D+00,
     1           3.071320D+00, 3.072380D+00, 7.086770D+00, 2.150580D+00/
C RUBIDIUM
      DATA (JF(I,37),I= 1, 4)/ 1, 2, 5, 7/
      DATA (JL(I,37),I= 1, 4)/ 1, 4, 6, 9/
      DATA (NP(I,37),I= 1, 9)/ 1, 2, 0, 0, 2, 0, 2, 0, 0/
      DATA (CP(I,37),I= 1, 9)/-3.239420D+00,-2.498550D+00, 2.637428D+01,
     1          -2.120813D+01, 2.488390D+00, 5.460020D+00,-4.388610D+00,
     2           2.832654D+01,-2.659458D+01/
      DATA (ZP(I,37),I= 1, 9)/ 3.639500D-01, 2.104800D-01, 1.869300D-01,
     1           4.003100D-01, 2.653900D-01, 6.985000D-01, 1.350700D-01,
     2           8.272000D-02, 2.636500D-01/
C STRONTIUM
      DATA (JF(I,38),I= 1, 4)/ 1, 2, 5, 7/
      DATA (JL(I,38),I= 1, 4)/ 1, 4, 6, 9/
      DATA (NP(I,38),I= 1, 9)/ 1, 2, 0, 0, 2, 0, 2, 0, 0/
      DATA (CP(I,38),I= 1, 9)/-4.135960D+00,-3.791210D+00, 2.416768D+01,
     1          -1.738542D+01, 5.464390D+00, 1.049841D+01,-1.737270D+00,
     2           3.743956D+01,-3.600393D+01/
      DATA (ZP(I,38),I= 1, 9)/ 5.167600D-01, 2.323100D-01, 1.802900D-01,
     1           5.217000D-01, 4.022700D-01, 1.300740D+00, 2.694900D-01,
     2           2.555000D-01, 2.886800D-01/
C YTTRIUM
      DATA (JF(I,39),I= 1, 4)/ 1, 2, 5, 8/
      DATA (JL(I,39),I= 1, 4)/ 1, 4, 7, 9/
      DATA (NP(I,39),I= 1, 9)/ 1, 0, 2, 2, 0, 2, 2, 0, 2/
      DATA (CP(I,39),I= 1, 9)/-3.708270D+00, 3.52458D+00,-1.1567795D+02,
     1          1.4166551D+02, 3.453190D+00,-6.746192D+01, 8.509453D+01,
     2           2.295900D+00, 2.062182D+01/
      DATA (ZP(I,39),I= 1, 9)/ 3.133230D+00, 7.473400D-01, 2.110460D+00,
     1           2.374310D+00, 8.292400D-01, 1.929730D+00, 2.203790D+00,
     2           9.367700D+00, 2.830380D+00/
C ZIRCONIUM
      DATA (JF(I,40),I= 1, 4)/ 1, 2, 5, 8/
      DATA (JL(I,40),I= 1, 4)/ 1, 4, 7, 9/
      DATA (NP(I,40),I= 1, 9)/ 1, 0, 2, 2, 0, 2, 2, 0, 2/
      DATA (CP(I,40),I= 1, 9)/-6.119230D+00, 4.57031D+00,-1.1255854D+02,
     1          1.3902972D+02, 4.045240D+00,-6.664768D+01, 8.637034D+01,
     2           5.640850D+00, 2.666093D+01/
      DATA (ZP(I,40),I= 1, 9)/ 4.314410D+00, 9.303500D-01, 2.330030D+00,
     1           2.666320D+00, 9.775300D-01, 2.149980D+00, 2.508920D+00,
     2           1.657598D+01, 3.320790D+00/
C NIOBIUM
      DATA (JF(I,41),I= 1, 4)/ 1, 2, 5, 8/
      DATA (JL(I,41),I= 1, 4)/ 1, 4, 7, 9/
      DATA (NP(I,41),I= 1, 9)/ 1, 0, 2, 2, 0, 2, 2, 0, 2/
      DATA (CP(I,41),I= 1, 9)/-5.816950D+00, 4.99937D+00,-1.0017856D+02,
     1           1.272157D+02, 3.647940D+00,-6.217437D+01, 8.580845D+01,
     2           2.772060D+00, 2.905246D+01/
      DATA (ZP(I,41),I= 1, 9)/ 4.641980D+00, 1.073390D+00, 2.511740D+00,
     1           2.939400D+00, 9.962600D-01, 2.280200D+00, 2.733600D+00,
     2           1.048803D+01, 3.642660D+00/
C MOLYBDENUM
      DATA (JF(I,42),I= 1, 4)/ 1, 2, 5, 8/
      DATA (JL(I,42),I= 1, 4)/ 1, 4, 7, 9/
      DATA (NP(I,42),I= 1, 9)/ 1, 0, 2, 2, 0, 2, 2, 0, 2/
      DATA (CP(I,42),I= 1, 9)/-7.230090D+00, 3.836950D+00,-9.019151D+01,
     1          1.2935214D+02, 3.832950D+00,-6.298231D+01, 8.977478D+01,
     2           2.734860D+00, 3.253231D+01/
      DATA (ZP(I,42),I= 1, 9)/ 5.625070D+00, 1.019070D+00, 2.683860D+00,
     1           3.279450D+00, 1.109570D+00, 2.497080D+00, 3.047400D+00,
     2           9.704000D+00, 4.030980D+00/
C TECHNETIUM
      DATA (JF(I,43),I= 1, 4)/ 1, 2, 5, 8/
      DATA (JL(I,43),I= 1, 4)/ 1, 4, 7, 9/
      DATA (NP(I,43),I= 1, 9)/ 1, 0, 2, 2, 0, 2, 2, 0, 2/
      DATA (CP(I,43),I= 1, 9)/-7.543560D+00, 4.313770D+00,-8.061847D+01,
     1          1.2082547D+02, 3.389520D+00,-5.706568D+01, 8.903016D+01,
     2           2.863650D+00, 3.718014D+01/
      DATA (ZP(I,43),I= 1, 9)/ 6.260670D+00, 1.177310D+00, 2.864180D+00,
     1           3.614320D+00, 1.084490D+00, 2.599070D+00, 3.304520D+00,
     2           1.162092D+01, 4.459000D+00/
C RUTHENIUM
      DATA (JF(I,44),I= 1, 4)/ 1, 2, 5, 8/
      DATA (JL(I,44),I= 1, 4)/ 1, 4, 7, 9/
      DATA (NP(I,44),I= 1, 9)/ 1, 0, 2, 2, 0, 2, 2, 0, 2/
      DATA (CP(I,44),I= 1, 9)/-7.984480D+00, 4.823840D+00,-8.131936D+01,
     1          1.2436917D+02, 3.865900D+00,-7.215048D+01,1.0367006D+02,
     2           3.210830D+00, 4.207321D+01/
      DATA (ZP(I,44),I= 1, 9)/ 6.983040D+00, 1.293930D+00, 3.048710D+00,
     1           3.871630D+00, 1.202730D+00, 2.823030D+00, 3.483910D+00,
     2           1.433743D+01, 4.900030D+00/
C RHODIUM
      DATA (JF(I,45),I= 1, 4)/ 1, 2, 5, 8/
      DATA (JL(I,45),I= 1, 4)/ 1, 4, 7, 9/
      DATA (NP(I,45),I= 1, 9)/ 1, 0, 2, 2, 0, 2, 2, 0, 2/
      DATA (CP(I,45),I= 1, 9)/-8.132250D+00, 5.207730D+00,-5.006846D+01,
     1           9.036859D+01, 3.858740D+00,-7.274348D+01,1.0611615D+02,
     2           3.348250D+00, 4.713883D+01/
      DATA (ZP(I,45),I= 1, 9)/ 7.649680D+00, 1.337770D+00, 2.953080D+00,
     1           4.391310D+00, 1.194680D+00, 2.924340D+00, 3.675030D+00,
     2           1.789248D+01, 5.348740D+00/
C PALLADIUM
      DATA (JF(I,46),I= 1, 4)/ 1, 2, 5, 8/
      DATA (JL(I,46),I= 1, 4)/ 1, 4, 7, 9/
      DATA (NP(I,46),I= 1, 9)/ 1, 0, 2, 2, 0, 2, 2, 0, 2/
      DATA (CP(I,46),I= 1, 9)/-8.334660D+00, 3.978090D+00, 2.189925D+02,
     1         -1.6844404D+02, 4.140210D+00,1.0832601D+02,-7.283147D+01,
     2           3.306110D+00, 5.278802D+01/
      DATA (ZP(I,46),I= 1, 9)/ 8.343270D+00, 1.213150D+00, 4.033010D+00,
     1           3.457720D+00, 1.456070D+00, 4.055100D+00, 3.216160D+00,
     2           1.954477D+01, 5.846640D+00/
C SILVER
      DATA (JF(I,47),I= 1, 4)/ 1, 2, 5, 8/
      DATA (JL(I,47),I= 1, 4)/ 1, 4, 7, 9/
      DATA (NP(I,47),I= 1, 9)/ 1, 0, 2, 2, 0, 2, 2, 0, 2/
      DATA (CP(I,47),I= 1, 9)/-8.446690D+00, 6.206340D+00,-5.682624D+01,
     1           9.240173D+01, 3.756370D+00,-8.095335D+01,1.1886801D+02,
     2           3.408950D+00, 5.710513D+01/
      DATA (ZP(I,47),I= 1, 9)/ 9.016960D+00, 1.517400D+00, 3.230880D+00,
     1           4.827470D+00, 1.216990D+00, 3.186150D+00, 4.053490D+00,
     2           2.294020D+01, 6.266270D+00/
C CADMIUM
      DATA (JF(I,48),I= 1, 4)/ 1, 2, 5, 8/
      DATA (JL(I,48),I= 1, 4)/ 1, 4, 7, 9/
      DATA (NP(I,48),I= 1, 9)/ 1, 0, 2, 2, 0, 2, 2, 0, 2/
      DATA (CP(I,48),I= 1, 9)/-8.698640D+00, 6.569340D+00,-5.936395D+01,
     1           9.359610D+01,3.678630D+00,-1.0450694D+02,1.4567316D+02,
     2           3.330940D+00, 6.206616D+01/
      DATA (ZP(I,48),I= 1, 9)/ 9.813250D+00, 1.604760D+00, 3.377270D+00,
     1           5.088760D+00, 1.251710D+00, 3.425920D+00, 4.214150D+00,
     2           2.235337D+01, 6.754080D+00/
C INDIUM
      DATA (JF(I,49),I= 1, 4)/ 1, 2, 5, 8/
      DATA (JL(I,49),I= 1, 4)/ 1, 4, 7, 9/
      DATA (NP(I,49),I= 1, 9)/ 1, 0, 2, 2, 0, 2, 2, 0, 2/
      DATA (CP(I,49),I= 1, 9)/-8.840310D+00, 6.901240D+00,-6.848319D+01,
     1          1.0177272D+02,3.985540D+00,-1.2978594D+02,1.7190487D+02,
     2           3.492440D+00, 6.827816D+01/
      DATA (ZP(I,49),I= 1, 9)/ 1.058987D+01, 1.738830D+00, 3.628060D+00,
     1           5.302700D+00, 1.430450D+00, 3.744470D+00, 4.476790D+00,
     2           2.916072D+01, 7.265660D+00/
C TIN
      DATA (JF(I,50),I= 1, 4)/ 1, 2, 5, 8/
      DATA (JL(I,50),I= 1, 4)/ 1, 4, 7, 9/
      DATA (NP(I,50),I= 1, 9)/ 1, 0, 2, 2, 0, 2, 2, 0, 2/
      DATA (CP(I,50),I= 1, 9)/-5.606820D+00, 7.184870D+00,-7.306581D+01,
     1           9.184771D+01, 5.073110D+00,-8.703674D+01, 9.537048D+01,
     2           5.102430D+00, 5.274660D+00/
      DATA (ZP(I,50),I= 1, 9)/ 8.205000D-01, 2.605040D+00, 9.578000D-01,
     1           1.013560D+00, 6.794700D-01, 7.427600D-01, 7.629200D-01,
     2           1.654300D+00, 6.030100D-01/
C ANTIMONY
      DATA (JF(I,51),I= 1, 4)/ 1, 3, 6, 9/
      DATA (JL(I,51),I= 1, 4)/ 2, 5, 8,10/
      DATA (NP(I,51),I= 1,10)/ 1, 1, 0, 2, 2, 0, 2, 2, 0, 2/
      DATA (CP(I,51),I= 1,10)/-2.909510D+00,-1.244921D+01, 7.555920D+00,
     1          -5.301395D+01, 7.999053D+01, 8.303600D+00,-2.904708D+01,
     2           4.556610D+01, 9.221820D+00, 7.921290D+00/
      DATA (ZP(I,51),I= 1,10)/ 7.549000D-01, 2.830720D+00, 5.868190D+00,
     1           1.100360D+00, 1.217900D+00, 3.514300D+00, 8.646100D-01,
     2           9.602900D-01, 2.459810D+00, 7.641500D-01/
C TELLURIUM
      DATA (JF(I,52),I= 1, 4)/ 1, 3, 6, 9/
      DATA (JL(I,52),I= 1, 4)/ 2, 5, 8,10/
      DATA (NP(I,52),I= 1,10)/ 1, 1, 0, 2, 2, 0, 2, 2, 0, 2/
      DATA (CP(I,52),I= 1,10)/-3.959840D+00,-1.342871D+01, 1.295665D+01,
     1          -4.745882D+01, 7.277514D+01, 8.479210D+00,-3.940684D+01,
     2           5.193673D+01, 1.154663D+01, 1.123776D+01/
      DATA (ZP(I,52),I= 1,10)/ 9.484700D-01, 3.946820D+00, 3.494000D+00,
     1           1.214770D+00, 1.335300D+00, 1.373940D+00, 1.277610D+00,
     2           1.284250D+00, 3.666180D+00, 9.318900D-01/
C IODINE
      DATA (JF(I,53),I= 1, 4)/ 1, 3, 6, 9/
      DATA (JL(I,53),I= 1, 4)/ 2, 5, 8,10/
      DATA (NP(I,53),I= 1,10)/ 1, 1, 0, 2, 2, 0, 2, 2, 0, 2/
      DATA (CP(I,53),I= 1,10)/-3.696390D+00,-1.400305D+01, 1.211123D+01,
     1          -4.109206D+01, 7.073761D+01, 1.059271D+01,-4.602273D+01,
     2           6.505047D+01, 9.730890D+00, 1.398880D+01/
      DATA (ZP(I,53),I= 1,10)/ 9.762800D-01, 4.333430D+00, 4.130710D+00,
     1           1.333750D+00, 1.491210D+00, 3.046920D+00, 1.063390D+00,
     2           1.144050D+00, 3.930630D+00, 1.069200D+00/
C XENON
      DATA (JF(I,54),I= 1, 4)/ 1, 3, 6, 9/
      DATA (JL(I,54),I= 1, 4)/ 2, 5, 8,10/
      DATA (NP(I,54),I= 1,10)/ 1, 1, 0, 2, 2, 0, 2, 2, 0, 2/
      DATA (CP(I,54),I= 1,10)/-5.105380D+00,-1.439873D+01, 1.344278D+01,
     1          -4.548918D+01, 8.321627D+01, 1.273758D+01,-4.960137D+01,
     2           7.557733D+01, 1.779041D+01, 1.725358D+01/
      DATA (ZP(I,54),I= 1,10)/ 1.270680D+00, 5.904690D+00, 7.157440D+00,
     1           1.452170D+00, 1.654780D+00, 4.361440D+00, 1.254550D+00,
     2           1.364390D+00, 5.898970D+00, 1.234850D+00/
C CESIUM
      DATA (JF(I,55),I= 1, 4)/ 1, 2, 5, 7/
      DATA (JL(I,55),I= 1, 4)/ 1, 4, 6, 9/
      DATA (NP(I,55),I= 1, 9)/ 1, 0, 2, 2, 0, 2, 0, 2, 1/
      DATA (CP(I,55),I= 1, 9)/-5.018740D+00, 6.796290D+00,-1.227571D+01,
     1           1.372442D+01, 1.230018D+01, 2.952220D+00, 1.967930D+00,
     2          -8.050000D-01, 2.470960D+00/
      DATA (ZP(I,55),I= 1, 9)/ 3.135600D-01, 4.009300D-01, 6.520300D-01,
     1           4.538400D-01, 6.728700D-01, 2.229000D-01, 4.083500D-01,
     2           2.015400D-01, 2.441300D-01/
C BARIUM
      DATA (JF(I,56),I= 1, 4)/ 1, 3, 6, 8/
      DATA (JL(I,56),I= 1, 4)/ 2, 5, 7, 9/
      DATA (NP(I,56),I= 1, 9)/ 1, 1, 0, 2, 2, 0, 2, 1, 1/
      DATA (CP(I,56),I= 1, 9)/-4.895840D+00,-1.747201D+01, 1.346017D+01,
     1          -1.433523D+01, 8.126340D+00, 1.703588D+01, 4.747060D+00,
     2           1.278807D+01,-2.867700D-01/
      DATA (ZP(I,56),I= 1, 9)/ 3.786600D-01, 3.174230D+00, 4.068700D-01,
     1           9.426600D-01, 4.660500D-01, 1.177270D+00, 2.898100D-01,
     2           1.004500D+00, 1.439400D-01/
C LANTHANUM
      DATA (JF(I,57),I= 1, 5)/ 1, 2, 5, 8,10/
      DATA (JL(I,57),I= 1, 5)/ 1, 4, 7, 9,11/
      DATA (NP(I,57),I= 1,11)/ 1, 0, 2, 2, 0, 2, 2, 0, 2, 1, 1/
      DATA (CP(I,57),I= 1,11)/-2.856650D+00, 8.853470D+00,-6.841778D+01,
     1          1.1012463D+02, 2.986750D+00,-3.551815D+01, 5.365423D+01,
     2           1.672980D+00, 1.846625D+01,-4.644300D+00,-1.443101D+01/
      DATA (ZP(I,57),I= 1,11)/ 1.423450D+00, 2.229739D+01, 1.643200D+00,
     1           1.851220D+00, 1.776350D+00, 3.989410D+00, 2.475240D+00,
     2           1.521690D+00, 1.521820D+00, 2.677620D+00, 1.006608D+01/
C CERIUM
      DATA (JF(I,58),I= 1, 4)/ 1, 3, 6, 9/
      DATA (JL(I,58),I= 1, 4)/ 2, 5, 8,10/
      DATA (NP(I,58),I= 1,10)/ 1, 1, 2, 2, 0, 0, 2, 2, 2, 0/
      DATA (CP(I,58),I= 1,10)/         -1.53487561D+01,-5.84323953D+00,
     1 -2.55562383D+02, 3.07313928D+02, 1.06699017D+01, 1.22292109D+01,
     2  1.24942466D+02,-8.45999868D+01, 2.49446755D+01, 1.02861447D+01/
      DATA (ZP(I,58),I= 1,10)/          9.20747930D+00, 1.86730116D+00,
     1  1.89370134D+00, 1.97914859D+00, 1.07429697D+01, 7.75592979D+00,
     2  1.81564126D+00, 1.67164719D+00, 1.70642047D+00, 6.48933742D+00/
C PRASEODYMIUM
      DATA (JF(I,59),I= 1, 4)/ 1, 3, 6, 9/
      DATA (JL(I,59),I= 1, 4)/ 2, 5, 8,10/
      DATA (NP(I,59),I= 1,10)/ 1, 1, 2, 2, 0, 0, 2, 2, 2, 0/
      DATA (CP(I,59),I= 1,10)/         -1.54435219D+01,-5.89611285D+00,
     1 -2.23643982D+02, 2.78134515D+02, 1.26210718D+01, 1.25256390D+01,
     2  1.21952782D+02,-7.94047512D+01, 2.61926652D+01, 9.87391206D+00/
      DATA (ZP(I,59),I= 1,10)/          9.82972856D+00, 1.98070077D+00,
     1  2.12955579D+00, 2.22746546D+00, 7.28371963D+00, 7.80928039D+00,
     2  1.92977861D+00, 1.76478925D+00, 1.79797432D+00, 6.54805153D+00/
C NEODYMIUM
      DATA (JF(I,60),I= 1, 4)/ 1, 3, 6, 9/
      DATA (JL(I,60),I= 1, 4)/ 2, 5, 8,10/
      DATA (NP(I,60),I= 1,10)/ 1, 1, 2, 2, 0, 0, 2, 2, 2, 0/
      DATA (CP(I,60),I= 1,10)/         -1.54830044D+01,-5.94833367D+00,
     1 -2.19470840D+02, 2.80528928D+02, 1.17623250D+01, 1.14361217D+01,
     2  1.20335356D+02,-7.57819643D+01, 2.73830713D+01, 9.61741049D+00/
      DATA (ZP(I,60),I= 1,10)/          1.04297884D+01, 2.09229128D+00,
     1  2.22478561D+00, 2.34459586D+00, 1.18579830D+01, 9.44306451D+00,
     2  1.98949076D+00, 1.79805446D+00, 1.88855052D+00, 6.64366554D+00/
C PROMETHIUM
      DATA (JF(I,61),I= 1, 4)/ 1, 3, 6, 9/
      DATA (JL(I,61),I= 1, 4)/ 2, 5, 8,10/
      DATA (NP(I,61),I= 1,10)/ 1, 1, 2, 2, 0, 0, 2, 2, 2, 0/
      DATA (CP(I,61),I= 1,10)/         -1.55867557D+01,-6.01203457D+00,
     1 -2.15581787D+02, 2.77534042D+02, 1.15598012D+01, 1.03366646D+01,
     2  1.21467693D+02,-7.48766440D+01, 2.84861104D+01, 9.28090576D+00/
      DATA (ZP(I,61),I= 1,10)/          1.11067084D+01, 2.21044787D+00,
     1  2.27365312D+00, 2.40502952D+00, 1.07647310D+01, 9.85397700D+00,
     2  2.07626890D+00, 1.86493486D+00, 1.97798221D+00, 6.67329417D+00/
C SAMARIUM
      DATA (JF(I,62),I= 1, 4)/ 1, 3, 6, 9/
      DATA (JL(I,62),I= 1, 4)/ 2, 5, 8,10/
      DATA (NP(I,62),I= 1,10)/ 1, 1, 2, 2, 0, 0, 2, 2, 2, 0/
      DATA (CP(I,62),I= 1,10)/         -1.56586201D+01,-6.05376496D+00,
     1 -2.06067266D+02, 2.70342598D+02, 1.14449044D+01, 1.06951007D+01,
     2  1.21877228D+02,-7.27883903D+01, 2.95239400D+01, 9.03717701D+00/
      DATA (ZP(I,62),I= 1,10)/          1.17581239D+01, 2.32808297D+00,
     1  2.37776611D+00, 2.52471590D+00, 1.02643898D+01, 1.00054236D+01,
     2  2.20124125D+00, 1.96809283D+00, 2.06720439D+00, 6.71288904D+00/
C EUROPIUM
      DATA (JF(I,63),I= 1, 4)/ 1, 3, 6, 9/
      DATA (JL(I,63),I= 1, 4)/ 2, 5, 8,10/
      DATA (NP(I,63),I= 1,10)/ 1, 1, 2, 2, 0, 0, 2, 2, 2, 0/
      DATA (CP(I,63),I= 1,10)/         -1.57244799D+01,-6.09107368D+00,
     1 -1.96637738D+02, 2.64103449D+02, 1.18069802D+01, 1.09380601D+01,
     2  1.28160269D+02,-7.65153276D+01, 3.04673264D+01, 8.74122693D+00/
      DATA (ZP(I,63),I= 1,10)/          1.24183539D+01, 2.44755847D+00,
     1  2.50382845D+00, 2.66926410D+00, 1.03673824D+01, 1.01341831D+01,
     2  2.32439941D+00, 2.08337487D+00, 2.15438942D+00, 6.69379732D+00/
C GADOLINIUM
      DATA (JF(I,64),I= 1, 4)/ 1, 3, 6, 9/
      DATA (JL(I,64),I= 1, 4)/ 2, 5, 8,10/
      DATA (NP(I,64),I= 1,10)/ 1, 1, 2, 2, 0, 0, 2, 2, 2, 0/
      DATA (CP(I,64),I= 1,10)/         -1.57867260D+01,-6.12777814D+00,
     1 -1.37902125D+02, 2.08964540D+02, 1.68586936D+01, 1.11308343D+01,
     2  1.31651321D+02,-7.74443008D+01, 3.14664118D+01, 8.34507286D+00/
      DATA (ZP(I,64),I= 1,10)/          1.30950908D+01, 2.56973856D+00,
     1  2.70226523D+00, 2.93347741D+00, 9.85080964D+00, 1.02562012D+01,
     2  2.45273213D+00, 2.19693427D+00, 2.24716923D+00, 6.43064369D+00/
C TERBIUM
      DATA (JF(I,65),I= 1, 4)/ 1, 3, 6, 9/
      DATA (JL(I,65),I= 1, 4)/ 2, 5, 8,10/
      DATA (NP(I,65),I= 1,10)/ 1, 1, 2, 2, 0, 0, 2, 2, 2, 0/
      DATA (CP(I,65),I= 1,10)/         -1.58408081D+01,-6.16678475D+00,
     1 -1.40103224D+02, 2.15289935D+02, 1.16812337D+01, 1.11216213D+01,
     2  1.39657131D+02,-8.33098221D+01, 3.21217679D+01, 8.22336256D+00/
      DATA (ZP(I,65),I= 1,10)/          1.37849880D+01, 2.69386693D+00,
     1  2.61817346D+00, 2.89041797D+00, 1.70489713D+01, 1.01253314D+01,
     2  2.56570377D+00, 2.30834841D+00, 2.32603332D+00, 6.59311802D+00/
C DYSPROSIUM
      DATA (JF(I,66),I= 1, 4)/ 1, 3, 6, 9/
      DATA (JL(I,66),I= 1, 4)/ 2, 5, 8,10/
      DATA (NP(I,66),I= 1,10)/ 1, 1, 2, 2, 0, 0, 2, 2, 2, 0/
      DATA (CP(I,66),I= 1,10)/         -1.58972370D+01,-6.19939399D+00,
     1 -1.30004348D+02, 2.08636024D+02, 1.14854666D+01, 1.16223813D+01,
     2  1.25415782D+02,-6.58203828D+01, 3.27977269D+01, 7.98023135D+00/
      DATA (ZP(I,66),I= 1,10)/          1.44905817D+01, 2.82105135D+00,
     1  2.73908105D+00, 3.04934714D+00, 1.65747330D+01, 1.06943601D+01,
     2  2.74055834D+00, 2.41123463D+00, 2.40961369D+00, 6.49588252D+00/
C HOLMIUM
      DATA (JF(I,67),I= 1, 4)/ 1, 3, 6, 9/
      DATA (JL(I,67),I= 1, 4)/ 2, 5, 8,10/
      DATA (NP(I,67),I= 1,10)/ 1, 1, 2, 2, 0, 0, 2, 2, 2, 0/
      DATA (CP(I,67),I= 1,10)/         -1.59516588D+01,-6.23162568D+00,
     1 -1.10583011D+02, 1.92701733D+02, 1.13546865D+01, 1.08427433D+01,
     2  1.16520060D+02,-5.56610980D+01, 3.33424906D+01, 7.73004915D+00/
      DATA (ZP(I,67),I= 1,10)/          1.52141408D+01, 2.95124916D+00,
     1  2.84745682D+00, 3.22421598D+00, 1.61561881D+01, 9.92608326D+00,
     2  2.86230717D+00, 2.47244917D+00, 2.49115511D+00, 6.35100911D+00/
C ERBIUM
      DATA (JF(I,68),I= 1, 4)/ 1, 3, 6, 9/
      DATA (JL(I,68),I= 1, 4)/ 2, 5, 8,10/
      DATA (NP(I,68),I= 1,10)/ 1, 1, 2, 2, 0, 0, 2, 2, 2, 0/
      DATA (CP(I,68),I= 1,10)/         -1.60043582D+01,-6.26509474D+00,
     1 -1.50367002D+02, 2.36197756D+02, 1.14164611D+01, 1.18925358D+01,
     2  1.30543501D+02,-6.56922988D+01, 3.37318076D+01, 7.48868913D+00/
      DATA (ZP(I,68),I= 1,10)/          1.59596531D+01, 3.08505824D+00,
     1  3.03618526D+00, 3.35253476D+00, 1.60392400D+01, 1.10463463D+01,
     2  3.01799114D+00, 2.64727181D+00, 2.57008755D+00, 6.16564070D+00/
C THULIUM
      DATA (JF(I,69),I= 1, 4)/ 1, 3, 6, 9/
      DATA (JL(I,69),I= 1, 4)/ 2, 5, 8,10/
      DATA (NP(I,69),I= 1,10)/ 1, 1, 2, 2, 0, 0, 2, 2, 2, 0/
      DATA (CP(I,69),I= 1,10)/         -1.60553617D+01,-6.29832935D+00,
     1 -1.43245953D+02, 2.33195538D+02, 1.16109444D+01, 7.39619033D+00,
     2  1.19572429D+02,-8.40174453D+01, 3.38411670D+01, 7.23350094D+00/
      DATA (ZP(I,69),I= 1,10)/          1.67243554D+01, 3.22216196D+00,
     1  3.18338303D+00, 3.53531467D+00, 1.61601392D+01, 2.46378238D+00,
     2  2.72194361D+00, 2.49552876D+00, 2.64361636D+00, 5.89426345D+00/
C YTTERBIUM
      DATA (JF(I,70),I= 1, 4)/ 1, 3, 6, 9/
      DATA (JL(I,70),I= 1, 4)/ 2, 5, 8,10/
      DATA (NP(I,70),I= 1,10)/ 1, 1, 2, 2, 0, 0, 2, 2, 2, 0/
      DATA (CP(I,70),I= 1,10)/         -1.61049751D+01,-6.33277963D+00,
     1 -1.06506399D+02, 2.01149552D+02, 1.20100167D+01, 7.59659144D+00,
     2  1.19649347D+02,-8.27046964D+01, 3.41713269D+01, 7.27486233D+00/
      DATA (ZP(I,70),I= 1,10)/          1.75123190D+01, 3.36313057D+00,
     1  3.29988442D+00, 3.77177093D+00, 1.66344917D+01, 2.65544200D+00,
     2  2.83854581D+00, 2.59880232D+00, 2.71026496D+00, 6.26424186D+00/
C LUTETIUM
      DATA (JF(I,71),I= 1, 4)/ 1, 3, 6, 9/
      DATA (JL(I,71),I= 1, 4)/ 2, 5, 8,10/
      DATA (NP(I,71),I= 1,10)/ 1, 1, 2, 2, 0, 0, 2, 2, 2, 0/
      DATA (CP(I,71),I= 1,10)/         -1.61520038D+01,-6.36766816D+00,
     1 -7.13171705D+01, 1.69401393D+02, 1.18861154D+01, 7.71934058D+00,
     2  1.16107363D+02,-7.81786284D+01, 3.39119252D+01, 7.01871005D+00/
      DATA (ZP(I,71),I= 1,10)/          1.83204365D+01, 3.50797854D+00,
     1  3.34224801D+00, 4.00509413D+00, 1.61809521D+01, 2.72110668D+00,
     2  2.98200454D+00, 2.71480084D+00, 2.77571168D+00, 5.89380126D+00/
C HAFNIUM
      DATA (JF(I,72),I= 1, 5)/ 1, 2, 5, 8,10/
      DATA (JL(I,72),I= 1, 5)/ 1, 4, 7, 9,10/
      DATA (NP(I,72),I= 1,10)/ 1, 0, 2, 2, 0, 2, 2, 0, 2, 0/
      DATA (CP(I,72),I= 1,10)/-2.590200D+00, 5.086020D+00,-7.634646D+01,
     1          1.5412616D+02,3.802630D+00,-1.3312772D+02,1.5939488D+02,
     2           5.234860D+00, 3.009851D+01, 1.103700D+01/
      DATA (ZP(I,72),I= 1,10)/ 1.140900D+00, 1.898210D+01, 3.924130D+00,
     1           4.320020D+00, 1.110080D+00, 2.389200D+00, 2.581710D+00,
     2           2.100000D+01, 2.804870D+00, 1.113770D+00/
C TANTALUM
      DATA (JF(I,73),I= 1, 5)/ 1, 2, 5, 8,10/
      DATA (JL(I,73),I= 1, 5)/ 1, 4, 7, 9,10/
      DATA (NP(I,73),I= 1,10)/ 1, 0, 2, 2, 0, 2, 2, 0, 2, 0/
      DATA (CP(I,73),I= 1,10)/-4.334400D+00, 4.240220D+00,-3.038231D+01,
     1           8.932811D+01,3.338680D+00,-1.3802173D+02,1.7153349D+02,
     2           3.049130D+00, 4.120515D+01, 7.846340D+00/
      DATA (ZP(I,73),I= 1,10)/ 1.652620D+00, 3.784500D+00, 3.178380D+00,
     1           3.950580D+00, 1.005800D+00, 2.353900D+00, 2.581910D+00,
     2           2.429129D+01, 3.186040D+00, 1.130110D+00/
C TUNGSTEN
      DATA (JF(I,74),I= 1, 5)/ 1, 2, 5, 8,10/
      DATA (JL(I,74),I= 1, 5)/ 1, 4, 7, 9,10/
      DATA (NP(I,74),I= 1,10)/ 1, 0, 2, 2, 0, 2, 2, 0, 2, 0/
      DATA (CP(I,74),I= 1,10)/-5.264800D+00, 2.472990D+00,-5.207178D+01,
     1          1.1346745D+02,3.910850D+00,-1.3531607D+02,1.7236976D+02,
     2           3.873490D+00, 4.952511D+01, 6.994710D+00/
      DATA (ZP(I,74),I= 1,10)/ 2.038280D+00, 9.651400D-01, 2.655020D+00,
     1           3.627130D+00, 1.239020D+00, 2.541220D+00, 2.807970D+00,
     2           2.755935D+01, 3.519730D+00, 1.205610D+00/
C RHENIUM
      DATA (JF(I,75),I= 1, 5)/ 1, 2, 5, 8,10/
      DATA (JL(I,75),I= 1, 5)/ 1, 4, 7, 9,10/
      DATA (NP(I,75),I= 1,10)/ 1, 0, 2, 2, 0, 2, 2, 0, 2, 0/
      DATA (CP(I,75),I= 1,10)/-6.622250D+00, 3.320670D+00,-3.991860D+01,
     1          1.0183236D+02,3.837350D+00,-1.2199416D+02,1.6617144D+02,
     2           4.578190D+00, 5.872776D+01, 6.443150D+00/
      DATA (ZP(I,75),I= 1,10)/ 2.517310D+00, 1.006030D+00, 2.520650D+00,
     1           3.865500D+00, 1.228840D+00, 2.650330D+00, 3.016860D+00,
     2           2.923499D+01, 3.864220D+00, 1.274560D+00/
C OSMIUM
      DATA (JF(I,76),I= 1, 5)/ 1, 2, 5, 8,10/
      DATA (JL(I,76),I= 1, 5)/ 1, 4, 7, 9,10/
      DATA (NP(I,76),I= 1,10)/ 1, 0, 2, 2, 0, 2, 2, 0, 2, 0/
      DATA (CP(I,76),I= 1,10)/-7.967530D+00, 4.034780D+00,-8.475261D+01,
     1           1.489441D+02,3.104540D+00,-1.2070117D+02,1.7277128D+02,
     2           6.635070D+00, 6.685726D+01, 6.331200D+00/
      DATA (ZP(I,76),I= 1,10)/ 3.010840D+00, 1.170060D+00, 2.934350D+00,
     1           3.826630D+00, 1.021780D+00, 2.660130D+00, 3.104350D+00,
     2           3.100000D+01, 4.179530D+00, 1.387420D+00/
C IRIDIUM
      DATA (JF(I,77),I= 1, 5)/ 1, 2, 5, 8,10/
      DATA (JL(I,77),I= 1, 5)/ 1, 4, 7, 9,10/
      DATA (NP(I,77),I= 1,10)/ 1, 0, 2, 2, 0, 2, 2, 0, 2, 0/
      DATA (CP(I,77),I= 1,10)/-8.982080D+00, 4.836290D+00,-9.847624D+01,
     1          1.6258173D+02,3.800210D+00,-1.516591D+02, 2.0396216D+02,
     2           7.968740D+00, 7.397844D+01, 6.285590D+00/
      DATA (ZP(I,77),I= 1,10)/ 3.468590D+00, 1.274030D+00, 3.079700D+00,
     1           3.971530D+00, 1.083420D+00, 2.794320D+00, 3.210080D+00,
     2           3.300000D+01, 4.471880D+00, 1.485240D+00/
C PLATINUM
      DATA (JF(I,78),I= 1, 5)/ 1, 2, 5, 8,10/
      DATA (JL(I,78),I= 1, 5)/ 1, 4, 7, 9,10/
      DATA (NP(I,78),I= 1,10)/ 1, 0, 2, 2, 0, 2, 2, 0, 2, 0/
      DATA (CP(I,78),I= 1,10)/-9.798540D+00, 5.79843D+00,-1.8751594D+02,
     1          2.4796906D+02, 3.670550D+00,-9.302055D+01,1.5155915D+02,
     2           1.309353D+01, 8.029385D+01, 6.138700D+00/
      DATA (ZP(I,78),I= 1,10)/ 3.908130D+00, 1.362790D+00, 3.342270D+00,
     1           3.911360D+00, 1.075860D+00, 2.804430D+00, 3.524910D+00,
     2           4.263116D+01, 4.744683D+00, 1.589880D+00/
C GOLD
      DATA (JF(I,79),I= 1, 5)/ 1, 2, 5, 8,10/
      DATA (JL(I,79),I= 1, 5)/ 1, 4, 7, 9,10/
      DATA (NP(I,79),I= 1,10)/ 1, 0, 2, 2, 0, 2, 2, 0, 2, 0/
      DATA (CP(I,79),I= 1,10)/-1.072358D+01, 6.35612D+00,-3.6444039D+02,
     1          4.2819753D+02, 4.415180D+00,-1.365755D+02,1.9420535D+02,
     2           8.881980D+00, 8.676612D+01, 6.216030D+00/
      DATA (ZP(I,79),I= 1,10)/ 4.387630D+00, 1.556360D+00, 3.715930D+00,
     1           4.067920D+00, 1.187980D+00, 3.015510D+00, 3.595880D+00,
     2           3.525000D+01, 5.023070D+00, 1.688810D+00/
C MERCURY
      DATA (JF(I,80),I= 1, 5)/ 1, 2, 5, 8,10/
      DATA (JL(I,80),I= 1, 5)/ 1, 4, 7, 9,10/
      DATA (NP(I,80),I= 1,10)/ 1, 0, 2, 2, 0, 2, 2, 0, 2, 0/
      DATA (CP(I,80),I= 1,10)/-1.151618D+01, 4.09547D+00,-3.1008898D+02,
     1          3.9468735D+02, 3.612020D+00,-1.484285D+02,2.1183161D+02,
     2           8.270740D+00, 9.285678D+01, 6.283020D+00/
      DATA (ZP(I,80),I= 1,10)/ 4.857640D+00, 1.173570D+00, 3.709660D+00,
     1           4.187930D+00, 9.591300D-01, 2.992680D+00, 3.583530D+00,
     2           3.554665D+01, 5.293180D+00, 1.809780D+00/
C THALLIUM
      DATA (JF(I,81),I= 1, 5)/ 1, 2, 5, 8,10/
      DATA (JL(I,81),I= 1, 5)/ 1, 4, 7, 9,10/
      DATA (NP(I,81),I= 1,10)/ 1, 0, 2, 2, 0, 2, 2, 0, 2, 0/
      DATA (CP(I,81),I= 1,10)/-1.213787D+01, 4.77833D+00,-2.5319592D+02,
     1          3.3705349D+02,3.459120D+00,-1.6894091D+02,2.3810901D+02,
     2           7.411370D+00, 9.849883D+01, 6.276060D+00/
      DATA (ZP(I,81),I= 1,10)/ 5.312940D+00, 1.295660D+00, 3.806650D+00,
     1           4.432330D+00, 9.478200D-01, 3.143780D+00, 3.735620D+00,
     2           3.343080D+01, 5.551740D+00, 1.913850D+00/
C LEAD
      DATA (JF(I,82),I= 1, 5)/ 1, 2, 5, 8,10/
      DATA (JL(I,82),I= 1, 5)/ 1, 4, 7, 9,12/
      DATA (NP(I,82),I= 1,12)/ 1, 0, 2, 2, 0, 2, 2, 0, 2, 0, 2, 2/
      DATA (CP(I,82),I= 1,12)/-2.764640D+00, 6.947740D+00,-1.772106D+01,
     1           3.239564D+01, 4.946190D+00,-1.716033D+01, 2.606040D+01,
     2           4.997620D+00,4.527300D+00, 4.958270D+00,-1.2415758D+02,
     3          1.2532798D+02/
      DATA (ZP(I,82),I= 1,12)/ 5.175600D-01, 2.443630D+00, 8.202200D-01,
     1           9.766200D-01, 1.490410D+00, 5.986100D-01, 6.691600D-01,
     2           2.192030D+00, 4.693700D-01, 6.908100D-01, 2.068000D-01,
     3           2.077300D-01/
C BISMUTH
      DATA (JF(I,83),I= 1, 5)/ 1, 2, 5, 8,10/
      DATA (JL(I,83),I= 1, 5)/ 1, 4, 7, 9,12/
      DATA (NP(I,83),I= 1,12)/ 1, 0, 2, 2, 0, 2, 2, 0, 2, 0, 0, 2/
      DATA (CP(I,83),I= 1,12)/-5.349910D+00, 5.912240D+00,-4.652354D+01,
     1           5.830673D+01, 7.587720D+00,-1.551330D+00, 1.765062D+01,
     2           8.209350D+00, 8.389700D+00,-3.122481D+01, 3.199918D+01,
     3           1.682287D+01/
      DATA (ZP(I,83),I= 1,12)/ 7.794100D-01, 5.808200D-01, 8.648000D-01,
     1           9.568200D-01, 2.418600D+00, 5.122900D-01, 9.842900D-01,
     2           4.102120D+00, 6.305200D-01, 5.710800D-01, 1.176430D+00,
     3           7.883200D-01/
C POLONIUM
      DATA (JF(I,84),I= 1, 5)/ 1, 2, 5, 8,10/
      DATA (JL(I,84),I= 1, 5)/ 1, 4, 7, 9,12/
      DATA (NP(I,84),I= 1,12)/ 1, 0, 2, 2, 0, 2, 2, 0, 2, 0, 0, 2/
      DATA (CP(I,84),I= 1,12)/-6.914260D+00, 5.387650D+00,-4.135987D+01,
     1           5.571735D+01, 1.184449D+01,-2.298480D+00, 2.785431D+01,
     2           9.512610D+00, 1.138029D+01,-3.232727D+01, 3.357540D+01,
     3           7.892130D+00/
      DATA (ZP(I,84),I= 1,12)/ 9.823600D-01, 3.938800D-01, 8.440500D-01,
     1           9.960100D-01, 4.878770D+00, 8.434700D-01, 1.265440D+00,
     2           2.528030D+00, 7.586400D-01, 4.492300D-01, 7.131700D-01,
     3           5.624900D-01/
C ASTATINE
      DATA (JF(I,85),I= 1, 5)/ 1, 2, 5, 8,10/
      DATA (JL(I,85),I= 1, 5)/ 1, 4, 7, 9,11/
      DATA (NP(I,85),I= 1,11)/ 1, 0, 2, 2, 0, 2, 2, 0, 2, 0, 2/
      DATA (CP(I,85),I= 1,11)/-8.228210D+00, 6.653020D+00,-1.598654D+01,
     1           3.310060D+01,1.073147D+01,-1.2882729D+02,1.5080821D+02,
     2           1.583166D+01, 1.455150D+01, 4.270970D+00,-3.395000D+00/
      DATA (ZP(I,85),I= 1,11)/ 1.181420D+00, 4.927600D-01, 8.542100D-01,
     1           1.275550D+00, 3.373810D+00, 9.372800D-01, 9.748800D-01,
     2           3.886380D+00, 8.767900D-01, 1.122840D+00, 1.155300D+00/
C RADON
      DATA (JF(I,86),I= 1, 5)/ 1, 2, 5, 8,10/
      DATA (JL(I,86),I= 1, 5)/ 1, 4, 7, 9,11/
      DATA (NP(I,86),I= 1,11)/ 1, 0, 2, 2, 0, 2, 2, 0, 2, 0, 2/
      DATA (CP(I,86),I= 1,11)/-9.369910D+00, 5.256440D+00,-3.927598D+01,
     1           6.219287D+01, 7.386310D+00,-4.567830D+01, 7.181385D+01,
     2           4.904840D+00, 1.261598D+01, 2.969240D+00,-1.784400D-01/
      DATA (ZP(I,86),I= 1,11)/ 1.379200D+00, 4.716900D-01, 1.012680D+00,
     1           1.269520D+00, 3.325340D+00, 9.995000D-01, 1.116200D+00,
     2           9.221400D-01, 9.222100D-01, 1.617350D+00, 3.215000D-01/
C
      DATA (IE(I),I= 1,86)/ 0, 0, 2, 2, 2, 2, 2, 2, 2, 2,10,10,10,10,10,
     1                     10,10,10,18,18,10,10,10,10,10,10,10,10,10,10,
     1                     10,28,28,28,28,28,36,36,28,28,28,28,28,28,28,
     1                     28,28,28,28,46,46,46,46,46,54,54,46,46,46,46,
     1                     46,46,46,46,46,46,46,46,46,46,46,60,60,60,60,
     1                     60,60,60,60,60,60,78,78,78,78,78/
      DATA (JG(I),I= 1,86)/ 0, 0, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3,
     1                      3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
     2                      3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
     3                      4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 4, 4, 4,
     4                      4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5,
     5                      5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5/
      DATA (MG(I),I= 1,86)/ 0, 0, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5,
     1                      5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
     2                      6, 7, 7, 7, 7, 7, 9, 9, 9, 9, 9, 9, 9, 9, 9,
     3                      9, 9, 9, 9, 9,10,10,10,10, 9, 9,11,10,10,10,
     4                     10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,
     5                     10,10,10,10,10,10,12,12,12,11,11/
C
      IF(NUCZ.LT. 3) RETURN
C
      IF(NUCZ.GT.86) THEN
         IF(MASWRK) WRITE(6,*) 'NO -SBKJC- ECPS EXIST PAST RADON!'
         CALL ABRT
      ENDIF
C
      DO 110 IG=1,JG(NUCZ)
          KF(IG)= JF(IG,NUCZ)
          KL(IG)= JL(IG,NUCZ)
  110 CONTINUE
C
      DO 120 IG=1,MG(NUCZ)
         NLP(IG)= NP(IG,NUCZ)
         CLP(IG)= CP(IG,NUCZ)
         ZLP(IG)= ZP(IG,NUCZ)
  120 CONTINUE
      ICORE = IE(NUCZ)
C
      RETURN
      END
