      BLOCK DATA
      CHARACTER*4 TABNC(128),TBXC(256)
      COMMON/TABCHR/TABNC,TBXC
      COMMON/TABLES/TBX(256,10)
      DATA TBXC( 1),TBX(  1,1),TBX(  1,2),TBX(  1,3),TBX(  1,4)
     *   /'H   '   ,.493002   ,10.5109   ,.322912   ,26.1257   /
      DATA TBX(  1,5),TBX(  1,6),TBX(  1,7),TBX(  1,8),TBX(  1,9)
     *   / .140191   ,3.14236   ,.040810   ,57.7997   ,.003038   /
      DATA TBX(  1,10)/1./
      DATA TBXC(  2),TBX(  2,1),TBX(  2,2),TBX(  2,3),TBX(  2,4)
     *   /'H   '   ,.489918   ,20.6593   ,.262003   ,7.74039   /
      DATA TBX(  2,5),TBX(  2,6),TBX(  2,7),TBX(  2,8),TBX(  2,9)
     *   / .196767   ,49.5519   ,.049879   ,2.20159   ,.001305   /
      DATA TBX(  2,10)/1./
      DATA TBXC(  3),TBX(  3,1),TBX(  3,2),TBX(  3,3),TBX(  3,4)
     *   /'H-1 '   ,.897661   ,53.1368   ,.565616   ,15.1870   /
      DATA TBX(  3,5),TBX(  3,6),TBX(  3,7),TBX(  3,8),TBX(  3,9)
     *   / .415815   ,186.576   ,.116973   ,3.56709   ,.002389   /
      DATA TBX(  3,10)/1./
      DATA TBXC(  4),TBX(  4,1),TBX(  4,2),TBX(  4,3),TBX(  4,4)
     *   /'HE  '   ,  .8734   , 9.1037   ,  .6309   , 3.3568   /
      DATA TBX(  4,5),TBX(  4,6),TBX(  4,7),TBX(  4,8),TBX(  4,9)
     *   /   .3112   ,22.9276   ,  .1780   ,  .9821   ,  .0064   /
      DATA TBX(  4,10)/1./
      DATA TBXC(  5),TBX(  5,1),TBX(  5,2),TBX(  5,3),TBX(  5,4)
     *   /'LI  '   , 1.1282   , 3.9546   ,  .7508   , 1.0524   /
      DATA TBX(  5,5),TBX(  5,6),TBX(  5,7),TBX(  5,8),TBX(  5,9)
     *   /   .6175   ,85.3905   ,  .4653   ,168.261   ,  .0377   /
      DATA TBX(  5,10)/2./
      DATA TBXC(  6),TBX(  6,1),TBX(  6,2),TBX(  6,3),TBX(  6,4)
     *   /'LI+1'   ,  .6968   , 4.6237   ,  .7888   , 1.9557   /
      DATA TBX(  6,5),TBX(  6,6),TBX(  6,7),TBX(  6,8),TBX(  6,9)
     *   /   .3414   ,  .6316   ,  .1563   ,10.0953   ,  .0167   /
      DATA TBX(  6,10)/2./
      DATA TBXC(  7),TBX(  7,1),TBX(  7,2),TBX(  7,3),TBX(  7,4)
     *   /'BE  '   , 1.5919   ,43.6427   , 1.1278   , 1.8623   /
      DATA TBX(  7,5),TBX(  7,6),TBX(  7,7),TBX(  7,8),TBX(  7,9)
     *   /   .5391   ,103.483   ,  .7029   ,  .5420   ,  .0385   /
      DATA TBX(  7,10)/3./
      DATA TBXC(  8),TBX(  8,1),TBX(  8,2),TBX(  8,3),TBX(  8,4)
     *   /'BE+2'   , 6.2603   ,  .0027   ,  .8849   ,  .8313   /
      DATA TBX(  8,5),TBX(  8,6),TBX(  8,7),TBX(  8,8),TBX(  8,9)
     *   /   .7993   , 2.2758   ,  .1647   , 5.1146   ,-6.1092   /
      DATA TBX(  8,10)/3./
      DATA TBXC(  9),TBX(  9,1),TBX(  9,2),TBX(  9,3),TBX(  9,4)
     *   /'B   '   , 2.0545   ,23.2185   , 1.3326   , 1.0210   /
      DATA TBX(  9,5),TBX(  9,6),TBX(  9,7),TBX(  9,8),TBX(  9,9)
     *   /  1.0979   ,60.3498   ,  .7068   ,  .1403   , -.1932   /
      DATA TBX(  9,10)/4./
      DATA TBXC( 10),TBX( 10,1),TBX( 10,2),TBX( 10,3),TBX( 10,4)
     *   /'C   '   , 2.3100   ,20.8439   , 1.0200   ,10.2075   /
      DATA TBX( 10,5),TBX( 10,6),TBX( 10,7),TBX( 10,8),TBX( 10,9)
     *   /  1.5886   ,  .5687   ,  .8650   ,51.6512   ,  .2156   /
      DATA TBX( 10,10)/5./
      DATA TBXC( 11),TBX( 11,1),TBX( 11,2),TBX( 11,3),TBX( 11,4)
     *   /'CVAL'   ,2.26069   ,22.6907   ,1.56165   ,.656665   /
      DATA TBX( 11,5),TBX( 11,6),TBX( 11,7),TBX( 11,8),TBX( 11,9)
     *   / 1.05075   ,9.75618   ,.839259   ,55.5949   ,.286977   /
      DATA TBX( 11,10)/5./
      DATA TBXC( 12),TBX( 12,1),TBX( 12,2),TBX( 12,3),TBX( 12,4)
     *   /'N   '   ,12.2126   ,  .0057   , 3.1322   , 9.8933   /
      DATA TBX( 12,5),TBX( 12,6),TBX( 12,7),TBX( 12,8),TBX( 12,9)
     *   /  2.0125   ,28.9975   , 1.1663   ,  .5826   ,-11.529   /
      DATA TBX( 12,10)/6./
      DATA TBXC( 13),TBX( 13,1),TBX( 13,2),TBX( 13,3),TBX( 13,4)
     *   /'O   '   , 3.0485   ,13.2771   , 2.2868   , 5.7011   /
      DATA TBX( 13,5),TBX( 13,6),TBX( 13,7),TBX( 13,8),TBX( 13,9)
     *   /  1.5463   ,  .3239   ,  .8670   ,32.9089   ,  .2508   /
      DATA TBX( 13,10)/7./
      DATA TBXC( 14),TBX( 14,1),TBX( 14,2),TBX( 14,3),TBX( 14,4)
     *   /'O-1 '   ,4.19160   ,12.8573   ,1.63969   ,4.17236   /
      DATA TBX( 14,5),TBX( 14,6),TBX( 14,7),TBX( 14,8),TBX( 14,9)
     *   / 1.52673   ,47.0179   ,-20.307   ,-.01404   ,21.9412   /
      DATA TBX( 14,10)/7./
      DATA TBXC( 15),TBX( 15,1),TBX( 15,2),TBX( 15,3),TBX( 15,4)
     *   /'F   '   , 3.5392   ,10.2825   , 2.6412   , 4.2944   /
      DATA TBX( 15,5),TBX( 15,6),TBX( 15,7),TBX( 15,8),TBX( 15,9)
     *   /  1.5170   ,  .2615   , 1.0243   ,26.1476   ,  .2776   /
      DATA TBX( 15,10)/8./
      DATA TBXC( 16),TBX( 16,1),TBX( 16,2),TBX( 16,3),TBX( 16,4)
     *   /'F-1 '   ,3.63220   ,5.27756   ,3.51057   ,14.7353   /
      DATA TBX( 16,5),TBX( 16,6),TBX( 16,7),TBX( 16,8),TBX( 16,9)
     *   / 1.26064   ,.442258   ,.940706   ,47.3437   ,.653396   /
      DATA TBX( 16,10)/8./
      DATA TBXC( 17),TBX( 17,1),TBX( 17,2),TBX( 17,3),TBX( 17,4)
     *   /'NE  '   , 3.9553   , 8.4042   , 3.1125   , 3.4262   /
      DATA TBX( 17,5),TBX( 17,6),TBX( 17,7),TBX( 17,8),TBX( 17,9)
     *   /  1.4546   ,  .2306   , 1.1251   ,21.7184   ,  .3515   /
      DATA TBX( 17,10)/9./
      DATA TBXC( 18),TBX( 18,1),TBX( 18,2),TBX( 18,3),TBX( 18,4)
     *   /'NA  '   , 4.7626   , 3.2850   , 3.1736   , 8.8422   /
      DATA TBX( 18,5),TBX( 18,6),TBX( 18,7),TBX( 18,8),TBX( 18,9)
     *   /  1.2674   ,  .3136   , 1.1128   ,129.424   ,  .6760   /
      DATA TBX( 18,10)/10./
      DATA TBXC( 19),TBX( 19,1),TBX( 19,2),TBX( 19,3),TBX( 19,4)
     *   /'NA+1'   , 3.2565   , 2.6671   , 3.9362   , 6.1153   /
      DATA TBX( 19,5),TBX( 19,6),TBX( 19,7),TBX( 19,8),TBX( 19,9)
     *   /  1.3998   ,  .2001   , 1.0032   ,14.0390   ,  .4040   /
      DATA TBX( 19,10)/10./
      DATA TBXC( 20),TBX( 20,1),TBX( 20,2),TBX( 20,3),TBX( 20,4)
     *   /'MG  '   , 5.4204   , 2.8275   , 2.1735   ,79.2611   /
      DATA TBX( 20,5),TBX( 20,6),TBX( 20,7),TBX( 20,8),TBX( 20,9)
     *   /  1.2269   ,  .3808   , 2.3073   , 7.1937   ,  .8584   /
      DATA TBX( 20,10)/11./
      DATA TBXC( 21),TBX( 21,1),TBX( 21,2),TBX( 21,3),TBX( 21,4)
     *   /'MG+2'   , 3.4988   , 2.1676   , 3.8378   , 4.7542   /
      DATA TBX( 21,5),TBX( 21,6),TBX( 21,7),TBX( 21,8),TBX( 21,9)
     *   /  1.3284   ,  .1850   ,  .8497   ,10.1411   ,  .4853   /
      DATA TBX( 21,10)/11./
      DATA TBXC( 22),TBX( 22,1),TBX( 22,2),TBX( 22,3),TBX( 22,4)
     *   /'AL  '   , 6.4202   , 3.0387   , 1.9002   ,  .7426   /
      DATA TBX( 22,5),TBX( 22,6),TBX( 22,7),TBX( 22,8),TBX( 22,9)
     *   /  1.5936   ,31.5472   , 1.9646   ,85.0886   , 1.1151   /
      DATA TBX( 22,10)/12./
      DATA TBXC( 23),TBX( 23,1),TBX( 23,2),TBX( 23,3),TBX( 23,4)
     *   /'AL+3'   ,4.17448   ,1.93816   ,3.38760   ,4.14553   /
      DATA TBX( 23,5),TBX( 23,6),TBX( 23,7),TBX( 23,8),TBX( 23,9)
     *   / 1.20296   ,.228753   ,.528137   ,8.28524   ,.706786   /
      DATA TBX( 23,10)/12./
      DATA TBXC( 24),TBX( 24,1),TBX( 24,2),TBX( 24,3),TBX( 24,4)
     *   /'SI  '   , 6.2915   , 2.4386   , 3.0353   ,32.3337   /
      DATA TBX( 24,5),TBX( 24,6),TBX( 24,7),TBX( 24,8),TBX( 24,9)
     *   /  1.9891   ,  .6785   , 1.5410   ,81.6937   , 1.1407   /
      DATA TBX( 24,10)/13./
      DATA TBXC( 25),TBX( 25,1),TBX( 25,2),TBX( 25,3),TBX( 25,4)
     *   /'SIV '   ,5.66269   ,2.66520   ,3.07164   ,38.6634   /
      DATA TBX( 25,5),TBX( 25,6),TBX( 25,7),TBX( 25,8),TBX( 25,9)
     *   / 2.62446   ,.916946   ,1.39320   ,93.5458   ,1.24707   /
      DATA TBX( 25,10)/13./
      DATA TBXC( 26),TBX( 26,1),TBX( 26,2),TBX( 26,3),TBX( 26,4)
     *   /'SI+4'   ,4.43918   ,1.64167   ,3.20345   ,3.43757   /
      DATA TBX( 26,5),TBX( 26,6),TBX( 26,7),TBX( 26,8),TBX( 26,9)
     *   / 1.19453   ,.214900   ,.416530   ,6.65365   ,.746297   /
      DATA TBX( 26,10)/13./
      DATA TBXC( 27),TBX( 27,1),TBX( 27,2),TBX( 27,3),TBX( 27,4)
     *   /'S   '   , 6.9053   , 1.4679   , 5.2034   ,22.2151   /
      DATA TBX( 27,5),TBX( 27,6),TBX( 27,7),TBX( 27,8),TBX( 27,9)
     *   /  1.4379   ,  .2536   , 1.5863   ,56.1720   ,  .8669   /
      DATA TBX( 27,10)/15./
      DATA TBXC( 28),TBX( 28,1),TBX( 28,2),TBX( 28,3),TBX( 28,4)
     *   /'P   '   , 6.4345   , 1.9067   , 4.1791   ,27.1570   /
      DATA TBX( 28,5),TBX( 28,6),TBX( 28,7),TBX( 28,8),TBX( 28,9)
     *   /  1.7800   ,  .5260   , 1.4908   ,68.1645   , 1.1149   /
      DATA TBX( 28,10)/14./
      DATA TBXC( 29),TBX( 29,1),TBX( 29,2),TBX( 29,3),TBX( 29,4)
     *   /'CL  '   ,11.4604   ,  .0104   , 7.1964   , 1.1662   /
      DATA TBX( 29,5),TBX( 29,6),TBX( 29,7),TBX( 29,8),TBX( 29,9)
     *   /  6.2556   ,18.5194   , 1.6455   ,47.7784   ,-9.5574   /
      DATA TBX( 29,10)/16./
      DATA TBXC( 30),TBX( 30,1),TBX( 30,2),TBX( 30,3),TBX( 30,4)
     *   /'CL-1'   ,18.2915   ,  .0066   , 7.2084   , 1.1717   /
      DATA TBX( 30,5),TBX( 30,6),TBX( 30,7),TBX( 30,8),TBX( 30,9)
     *   /  6.5337   ,19.5424   , 2.3386   ,60.4486   ,-16.378   /
      DATA TBX( 30,10)/16./
      DATA TBXC( 31),TBX( 31,1),TBX( 31,2),TBX( 31,3),TBX( 31,4)
     *   /'AR  '   , 7.4845   ,  .9072   , 6.7723   ,14.8407   /
      DATA TBX( 31,5),TBX( 31,6),TBX( 31,7),TBX( 31,8),TBX( 31,9)
     *   /   .6539   ,43.8983   , 1.6442   ,33.3929   , 1.4445   /
      DATA TBX( 31,10)/17./
      DATA TBXC( 32),TBX( 32,1),TBX( 32,2),TBX( 32,3),TBX( 32,4)
     *   /'K   '   , 8.2186   ,12.7949   , 7.4398   ,  .7748   /
      DATA TBX( 32,5),TBX( 32,6),TBX( 32,7),TBX( 32,8),TBX( 32,9)
     *   /  1.0519   ,213.187   ,  .8659   ,41.6841   , 1.4228   /
      DATA TBX( 32,10)/18./
      DATA TBXC( 33),TBX( 33,1),TBX( 33,2),TBX( 33,3),TBX( 33,4)
     *   /'K+1 '   , 7.9578   ,12.6331   , 7.4917   ,  .7674   /
      DATA TBX( 33,5),TBX( 33,6),TBX( 33,7),TBX( 33,8),TBX( 33,9)
     *   /  6.3590   , -.0020   , 1.1915   ,31.9128   ,-4.9978   /
      DATA TBX( 33,10)/18./
      DATA TBXC( 34),TBX( 34,1),TBX( 34,2),TBX( 34,3),TBX( 34,4)
     *   /'CA  '   , 8.6266   ,10.4421   , 7.3873   ,  .6599   /
      DATA TBX( 34,5),TBX( 34,6),TBX( 34,7),TBX( 34,8),TBX( 34,9)
     *   /  1.5899   ,85.7484   , 1.0211   ,178.437   , 1.3751   /
      DATA TBX( 34,10)/19./
      DATA TBXC( 35),TBX( 35,1),TBX( 35,2),TBX( 35,3),TBX( 35,4)
     *   /'CA+2'   ,15.6348   , -.0074   , 7.9518   ,  .6089   /
      DATA TBX( 35,5),TBX( 35,6),TBX( 35,7),TBX( 35,8),TBX( 35,9)
     *   /  8.4372   ,10.3116   ,  .8537   ,25.9905   ,-14.875   /
      DATA TBX( 35,10)/19./
      DATA TBXC( 36),TBX( 36,1),TBX( 36,2),TBX( 36,3),TBX( 36,4)
     *   /'SC  '   , 9.1890   , 9.0213   , 7.3679   ,  .5729   /
      DATA TBX( 36,5),TBX( 36,6),TBX( 36,7),TBX( 36,8),TBX( 36,9)
     *   /  1.6409   ,136.108   , 1.4680   ,51.3531   , 1.3329   /
      DATA TBX( 36,10)/20./
      DATA TBXC( 37),TBX( 37,1),TBX( 37,2),TBX( 37,3),TBX( 37,4)
     *   /'SC+3'   ,13.4008   ,.298540   ,8.02730   ,7.96290   /
      DATA TBX( 37,5),TBX( 37,6),TBX( 37,7),TBX( 37,8),TBX( 37,9)
     *   / 1.65943   ,-.28604   ,1.57936   ,16.0662   ,-6.6667   /
      DATA TBX( 37,10)/20./
      DATA TBXC( 38),TBX( 38,1),TBX( 38,2),TBX( 38,3),TBX( 38,4)
     *   /'TI  '   , 9.7595   , 7.8508   , 7.3558   ,  .5000   /
      DATA TBX( 38,5),TBX( 38,6),TBX( 38,7),TBX( 38,8),TBX( 38,9)
     *   /  1.6991   ,35.6338   , 1.9021   ,116.105   , 1.2807   /
      DATA TBX( 38,10)/21./
      DATA TBXC( 39),TBX( 39,1),TBX( 39,2),TBX( 39,3),TBX( 39,4)
     *   /'TI+2'   ,9.11423   ,7.52430   ,7.62174   ,.457585   /
      DATA TBX( 39,5),TBX( 39,6),TBX( 39,7),TBX( 39,8),TBX( 39,9)
     *   / 2.27930   ,19.5361   ,.087899   ,61.6558   ,.897155   /
      DATA TBX( 39,10)/21./
      DATA TBXC( 40),TBX( 40,1),TBX( 40,2),TBX( 40,3),TBX( 40,4)
     *   /'TI+3'   ,17.7344   ,.220610   ,8.73816   ,7.04716   /
      DATA TBX( 40,5),TBX( 40,6),TBX( 40,7),TBX( 40,8),TBX( 40,9)
     *   / 5.25691   ,-.15762   ,1.92134   ,15.9768   ,-14.652   /
      DATA TBX( 40,10)/21./
      DATA TBXC( 41),TBX( 41,1),TBX( 41,2),TBX( 41,3),TBX( 41,4)
     *   /'TI+4'   ,19.5114   ,.178847   ,8.23473   ,6.67018   /
      DATA TBX( 41,5),TBX( 41,6),TBX( 41,7),TBX( 41,8),TBX( 41,9)
     *   / 2.01341   ,-.29263   ,1.52080   ,12.9464   ,-13.280   /
      DATA TBX( 41,10)/21./
      DATA TBXC( 42),TBX( 42,1),TBX( 42,2),TBX( 42,3),TBX( 42,4)
     *   /'V   '   ,10.2971   , 6.8657   , 7.3511   ,  .4385   /
      DATA TBX( 42,5),TBX( 42,6),TBX( 42,7),TBX( 42,8),TBX( 42,9)
     *   /  2.0703   ,26.8938   , 2.0571   ,102.478   , 1.2199   /
      DATA TBX( 42,10)/22./
      DATA TBXC( 43),TBX( 43,1),TBX( 43,2),TBX( 43,3),TBX( 43,4)
     *   /'V+2 '   ,10.1060   , 6.8818   , 7.3541   ,  .4409   /
      DATA TBX( 43,5),TBX( 43,6),TBX( 43,7),TBX( 43,8),TBX( 43,9)
     *   /  2.2884   ,20.3004   ,  .0223   ,115.122   , 1.2298   /
      DATA TBX( 43,10)/22./
      DATA TBXC( 44),TBX( 44,1),TBX( 44,2),TBX( 44,3),TBX( 44,4)
     *   /'V+3 '   ,9.43141   ,6.39535   ,7.74190   ,.383349   /
      DATA TBX( 44,5),TBX( 44,6),TBX( 44,7),TBX( 44,8),TBX( 44,9)
     *   / 2.15343   ,15.1908   ,.016865   ,63.9690   ,.656565   /
      DATA TBX( 44,10)/22./
      DATA TBXC( 45),TBX( 45,1),TBX( 45,2),TBX( 45,3),TBX( 45,4)
     *   /'V+5 '   ,15.6887   ,.679003   ,8.14208   ,5.40135   /
      DATA TBX( 45,5),TBX( 45,6),TBX( 45,7),TBX( 45,8),TBX( 45,9)
     *   / 2.03081   ,9.97278   ,-9.5760   ,.940464   ,1.71430   /
      DATA TBX( 45,10)/22./
      DATA TBXC( 46),TBX( 46,1),TBX( 46,2),TBX( 46,3),TBX( 46,4)
     *   /'CR  '   ,10.6406   , 6.1038   , 7.3537   ,  .3920   /
      DATA TBX( 46,5),TBX( 46,6),TBX( 46,7),TBX( 46,8),TBX( 46,9)
     *   /  3.3240   ,20.2626   , 1.4922   ,98.7399   , 1.1832   /
      DATA TBX( 46,10)/23./
      DATA TBXC( 47),TBX( 47,1),TBX( 47,2),TBX( 47,3),TBX( 47,4)
     *   /'CR+2'   ,9.54034   ,5.66078   ,7.75090   ,.344261   /
      DATA TBX( 47,5),TBX( 47,6),TBX( 47,7),TBX( 47,8),TBX( 47,9)
     *   / 3.58274   ,13.3075   ,.509107   ,32.4224   ,.616898   /
      DATA TBX( 47,10)/23./
      DATA TBXC( 48),TBX( 48,1),TBX( 48,2),TBX( 48,3),TBX( 48,4)
     *   /'CR+3'   ,9.68090   ,5.59463   ,7.81136   ,.334393   /
      DATA TBX( 48,5),TBX( 48,6),TBX( 48,7),TBX( 48,8),TBX( 48,9)
     *   / 2.87603   ,12.8288   ,.113575   ,32.8761   ,.518275   /
      DATA TBX( 48,10)/23./
      DATA TBXC( 49),TBX( 49,1),TBX( 49,2),TBX( 49,3),TBX( 49,4)
     *   /'MN  '   ,11.2819   , 5.3409   , 7.3573   ,  .3432   /
      DATA TBX( 49,5),TBX( 49,6),TBX( 49,7),TBX( 49,8),TBX( 49,9)
     *   /  3.0193   ,17.8674   , 2.2441   ,83.7543   , 1.0896   /
      DATA TBX( 49,10)/24./
      DATA TBXC( 50),TBX( 50,1),TBX( 50,2),TBX( 50,3),TBX( 50,4)
     *   /'MN+2'   ,10.8061   , 5.2796   , 7.3620   ,  .3435   /
      DATA TBX( 50,5),TBX( 50,6),TBX( 50,7),TBX( 50,8),TBX( 50,9)
     *   /  3.5268   ,14.3430   ,  .2184   ,41.3235   , 1.0874   /
      DATA TBX( 50,10)/24./
      DATA TBXC( 51),TBX( 51,1),TBX( 51,2),TBX( 51,3),TBX( 51,4)
     *   /'MN+3'   ,9.84521   ,4.91797   ,7.87194   ,.294393   /
      DATA TBX( 51,5),TBX( 51,6),TBX( 51,7),TBX( 51,8),TBX( 51,9)
     *   / 3.56531   ,10.8171   ,.323613   ,24.1281   ,.393974   /
      DATA TBX( 51,10)/24./
      DATA TBXC( 52),TBX( 52,1),TBX( 52,2),TBX( 52,3),TBX( 52,4)
     *   /'MN+4'   ,9.96253   ,4.84850   ,7.97057   ,.283303   /
      DATA TBX( 52,5),TBX( 52,6),TBX( 52,7),TBX( 52,8),TBX( 52,9)
     *   / 2.76067   ,10.4852   ,.054447   ,27.5730   ,.251877   /
      DATA TBX( 52,10)/24./
      DATA TBXC( 53),TBX( 53,1),TBX( 53,2),TBX( 53,3),TBX( 53,4)
     *   /'FE  '   ,11.7695   , 4.7611   , 7.3573   ,  .3072   /
      DATA TBX( 53,5),TBX( 53,6),TBX( 53,7),TBX( 53,8),TBX( 53,9)
     *   /  3.5222   ,15.3535   , 2.3045   ,76.8805   , 1.0369   /
      DATA TBX( 53,10)/25./
      DATA TBXC( 54),TBX( 54,1),TBX( 54,2),TBX( 54,3),TBX( 54,4)
     *   /'FE+2'   ,11.0424   , 4.6538   , 7.3740   ,  .3053   /
      DATA TBX( 54,5),TBX( 54,6),TBX( 54,7),TBX( 54,8),TBX( 54,9)
     *   /  4.1346   ,12.0546   ,  .4399   ,31.2809   , 1.0097   /
      DATA TBX( 54,10)/25./
      DATA TBXC( 55),TBX( 55,1),TBX( 55,2),TBX( 55,3),TBX( 55,4)
     *   /'FE+3'   ,11.1764   , 4.6147   , 7.3863   ,  .3005   /
      DATA TBX( 55,5),TBX( 55,6),TBX( 55,7),TBX( 55,8),TBX( 55,9)
     *   /  3.3948   ,11.6729   ,  .0724   ,38.5566   ,  .9707   /
      DATA TBX( 55,10)/25./
      DATA TBXC( 56),TBX( 56,1),TBX( 56,2),TBX( 56,3),TBX( 56,4)
     *   /'CO  '   ,12.2841   , 4.2791   , 7.3409   ,  .2784   /
      DATA TBX( 56,5),TBX( 56,6),TBX( 56,7),TBX( 56,8),TBX( 56,9)
     *   /  4.0034   ,13.5359   , 2.3488   ,71.1692   , 1.0118   /
      DATA TBX( 56,10)/26./
      DATA TBXC( 57),TBX( 57,1),TBX( 57,2),TBX( 57,3),TBX( 57,4)
     *   /'CO+2'   ,11.2296   , 4.1231   , 7.3883   ,  .2726   /
      DATA TBX( 57,5),TBX( 57,6),TBX( 57,7),TBX( 57,8),TBX( 57,9)
     *   /  4.7393   ,10.2443   ,  .7108   ,25.6466   ,  .9324   /
      DATA TBX( 57,10)/26./
      DATA TBXC( 58),TBX( 58,1),TBX( 58,2),TBX( 58,3),TBX( 58,4)
     *   /'CO+3'   ,10.3380   ,3.90969   ,7.88173   ,.238668   /
      DATA TBX( 58,5),TBX( 58,6),TBX( 58,7),TBX( 58,8),TBX( 58,9)
     *   / 4.76795   ,8.35583   ,.725591   ,18.3491   ,.286667   /
      DATA TBX( 58,10)/26./
      DATA TBXC( 59),TBX( 59,1),TBX( 59,2),TBX( 59,3),TBX( 59,4)
     *   /'NI  '   ,12.8376   , 3.8785   , 7.2920   ,  .2565   /
      DATA TBX( 59,5),TBX( 59,6),TBX( 59,7),TBX( 59,8),TBX( 59,9)
     *   /  4.4438   ,12.1763   , 2.3800   ,66.3421   , 1.0341   /
      DATA TBX( 59,10)/27./
      DATA TBXC( 60),TBX( 60,1),TBX( 60,2),TBX( 60,3),TBX( 60,4)
     *   /'NI+2'   ,11.4166   , 3.6766   , 7.4005   ,  .2449   /
      DATA TBX( 60,5),TBX( 60,6),TBX( 60,7),TBX( 60,8),TBX( 60,9)
     *   /  5.3442   , 8.8730   ,  .9773   ,22.1626   ,  .8614   /
      DATA TBX( 60,10)/27./
      DATA TBXC( 61),TBX( 61,1),TBX( 61,2),TBX( 61,3),TBX( 61,4)
     *   /'NI+3'   ,10.7806   ,3.54770   ,7.75868   ,.223140   /
      DATA TBX( 61,5),TBX( 61,6),TBX( 61,7),TBX( 61,8),TBX( 61,9)
     *   / 5.22746   ,7.64468   ,.847114   ,16.9673   ,.386044   /
      DATA TBX( 61,10)/27./
      DATA TBXC( 62),TBX( 62,1),TBX( 62,2),TBX( 62,3),TBX( 62,4)
     *   /'CU  '   ,13.3380   , 3.5828   , 7.1676   ,  .2470   /
      DATA TBX( 62,5),TBX( 62,6),TBX( 62,7),TBX( 62,8),TBX( 62,9)
     *   /  5.6158   ,11.3966   , 1.6735   ,64.8126   , 1.1910   /
      DATA TBX( 62,10)/28./
      DATA TBXC( 63),TBX( 63,1),TBX( 63,2),TBX( 63,3),TBX( 63,4)
     *   /'CU+1'   ,11.9475   , 3.3669   , 7.3573   ,  .2274   /
      DATA TBX( 63,5),TBX( 63,6),TBX( 63,7),TBX( 63,8),TBX( 63,9)
     *   /  6.2455   , 8.6625   , 1.5578   ,25.8487   ,  .8900   /
      DATA TBX( 63,10)/28./
      DATA TBXC( 64),TBX( 64,1),TBX( 64,2),TBX( 64,3),TBX( 64,4)
     *   /'CU+2'   ,11.8168   ,3.37484   ,7.11181   ,.244078   /
      DATA TBX( 64,5),TBX( 64,6),TBX( 64,7),TBX( 64,8),TBX( 64,9)
     *   / 5.78135   ,7.98760   ,1.14523   ,19.8970   ,1.14431   /
      DATA TBX( 64,10)/28./
      DATA TBXC( 65),TBX( 65,1),TBX( 65,2),TBX( 65,3),TBX( 65,4)
     *   /'ZN  '   ,14.0743   , 3.2655   , 7.0318   ,  .2333   /
      DATA TBX( 65,5),TBX( 65,6),TBX( 65,7),TBX( 65,8),TBX( 65,9)
     *   /  5.1652   ,10.3163   , 2.4100   ,58.7097   , 1.3041   /
      DATA TBX( 65,10)/29./
      DATA TBXC( 66),TBX( 66,1),TBX( 66,2),TBX( 66,3),TBX( 66,4)
     *   /'ZN+2'   ,11.9719   , 2.9946   , 7.3862   ,  .2031   /
      DATA TBX( 66,5),TBX( 66,6),TBX( 66,7),TBX( 66,8),TBX( 66,9)
     *   /  6.4668   , 7.0826   , 1.3940   ,18.0995   ,  .7807   /
      DATA TBX( 66,10)/29./
      DATA TBXC( 67),TBX( 67,1),TBX( 67,2),TBX( 67,3),TBX( 67,4)
     *   /'GA  '   ,15.2354   , 3.0669   , 6.7006   ,  .2412   /
      DATA TBX( 67,5),TBX( 67,6),TBX( 67,7),TBX( 67,8),TBX( 67,9)
     *   /  4.3591   ,10.7805   , 2.9623   ,61.4135   , 1.7189   /
      DATA TBX( 67,10)/30./
      DATA TBXC( 68),TBX( 68,1),TBX( 68,2),TBX( 68,3),TBX( 68,4)
     *   /'GA+3'   ,12.6920   ,2.81262   ,6.69883   ,.227890   /
      DATA TBX( 68,5),TBX( 68,6),TBX( 68,7),TBX( 68,8),TBX( 68,9)
     *   / 6.06692   ,6.36441   ,1.00660   ,14.4122   ,1.53545   /
      DATA TBX( 68,10)/30./
      DATA TBXC( 69),TBX( 69,1),TBX( 69,2),TBX( 69,3),TBX( 69,4)
     *   /'GE  '   ,16.0816   , 2.8509   , 6.3747   ,  .2516   /
      DATA TBX( 69,5),TBX( 69,6),TBX( 69,7),TBX( 69,8),TBX( 69,9)
     *   /  3.7068   ,11.4468   , 3.6830   ,54.7625   , 2.1313   /
      DATA TBX( 69,10)/31./
      DATA TBXC( 70),TBX( 70,1),TBX( 70,2),TBX( 70,3),TBX( 70,4)
     *   /'GE+4'   ,12.9172   ,2.53718   ,6.70003   ,.205855   /
      DATA TBX( 70,5),TBX( 70,6),TBX( 70,7),TBX( 70,8),TBX( 70,9)
     *   / 6.06791   ,5.47913   ,.859041   ,11.6030   ,1.45572   /
      DATA TBX( 70,10)/31./
      DATA TBXC( 71),TBX( 71,1),TBX( 71,2),TBX( 71,3),TBX( 71,4)
     *   /'AS  '   ,16.6723   , 2.6345   , 6.0701   ,  .2647   /
      DATA TBX( 71,5),TBX( 71,6),TBX( 71,7),TBX( 71,8),TBX( 71,9)
     *   /  3.4313   ,12.9479   , 4.2779   ,47.7972   , 2.5310   /
      DATA TBX( 71,10)/32./
      DATA TBXC( 72),TBX( 72,1),TBX( 72,2),TBX( 72,3),TBX( 72,4)
     *   /'SE  '   ,17.0006   , 2.4098   , 5.8196   ,  .2726   /
      DATA TBX( 72,5),TBX( 72,6),TBX( 72,7),TBX( 72,8),TBX( 72,9)
     *   /  3.9731   ,15.2372   , 4.3543   ,43.8163   , 2.8409   /
      DATA TBX( 72,10)/33./
      DATA TBXC( 73),TBX( 73,1),TBX( 73,2),TBX( 73,3),TBX( 73,4)
     *   /'BR  '   ,17.1789   , 2.1723   , 5.2358   ,16.5796   /
      DATA TBX( 73,5),TBX( 73,6),TBX( 73,7),TBX( 73,8),TBX( 73,9)
     *   /  5.6377   ,  .2609   , 3.9851   ,41.4328   , 2.9557   /
      DATA TBX( 73,10)/34./
      DATA TBXC( 74),TBX( 74,1),TBX( 74,2),TBX( 74,3),TBX( 74,4)
     *   /'BR-1'   ,17.1718   , 2.2059   , 6.3338   ,19.3345   /
      DATA TBX( 74,5),TBX( 74,6),TBX( 74,7),TBX( 74,8),TBX( 74,9)
     *   /  5.5754   ,  .2871   , 3.7272   ,58.1535   , 3.1776   /
      DATA TBX( 74,10)/34./
      DATA TBXC( 75),TBX( 75,1),TBX( 75,2),TBX( 75,3),TBX( 75,4)
     *   /'KR  '   ,17.3555   , 1.9384   , 6.7286   ,16.5623   /
      DATA TBX( 75,5),TBX( 75,6),TBX( 75,7),TBX( 75,8),TBX( 75,9)
     *   /  5.5493   ,  .2261   , 3.5375   ,39.3972   , 2.8250   /
      DATA TBX( 75,10)/35./
      DATA TBXC( 76),TBX( 76,1),TBX( 76,2),TBX( 76,3),TBX( 76,4)
     *   /'RB  '   ,17.1784   , 1.7888   , 9.6435   ,17.3151   /
      DATA TBX( 76,5),TBX( 76,6),TBX( 76,7),TBX( 76,8),TBX( 76,9)
     *   /  5.1399   ,  .2748   , 1.5292   ,164.934   , 3.4873   /
      DATA TBX( 76,10)/36./
      DATA TBXC( 77),TBX( 77,1),TBX( 77,2),TBX( 77,3),TBX( 77,4)
     *   /'RB+1'   ,17.5816   , 1.7139   , 7.6598   ,14.7957   /
      DATA TBX( 77,5),TBX( 77,6),TBX( 77,7),TBX( 77,8),TBX( 77,9)
     *   /  5.8981   ,  .1603   , 2.7817   ,31.2087   , 2.0782   /
      DATA TBX( 77,10)/36./
      DATA TBXC( 78),TBX( 78,1),TBX( 78,2),TBX( 78,3),TBX( 78,4)
     *   /'SR  '   ,17.5663   , 1.5564   , 9.8184   ,14.0988   /
      DATA TBX( 78,5),TBX( 78,6),TBX( 78,7),TBX( 78,8),TBX( 78,9)
     *   /  5.4220   ,  .1664   , 2.6694   ,132.376   , 2.5064   /
      DATA TBX( 78,10)/37./
      DATA TBXC( 79),TBX( 79,1),TBX( 79,2),TBX( 79,3),TBX( 79,4)
     *   /'SR+2'   ,18.0874   , 1.4907   , 8.1373   ,12.6963   /
      DATA TBX( 79,5),TBX( 79,6),TBX( 79,7),TBX( 79,8),TBX( 79,9)
     *   /  2.5654   ,24.5651   ,-34.193   , -.0138   ,41.4025   /
      DATA TBX( 79,10)/37./
      DATA TBXC( 80),TBX( 80,1),TBX( 80,2),TBX( 80,3),TBX( 80,4)
     *   /'Y   '   ,17.7760   ,1.40290   ,10.2946   ,12.8006   /
      DATA TBX( 80,5),TBX( 80,6),TBX( 80,7),TBX( 80,8),TBX( 80,9)
     *   / 5.72629   ,.125599   ,3.26588   ,104.354   ,1.91213   /
      DATA TBX( 80,10)/38./
      DATA TBXC( 81),TBX( 81,1),TBX( 81,2),TBX( 81,3),TBX( 81,4)
     *   /'Y+3 '   ,17.9268   ,1.35417   ,9.15310   ,11.2145   /
      DATA TBX( 81,5),TBX( 81,6),TBX( 81,7),TBX( 81,8),TBX( 81,9)
     *   / 1.76795   ,22.6599   ,-33.108   ,-.01319   ,40.2602   /
      DATA TBX( 81,10)/38./
      DATA TBXC( 82),TBX( 82,1),TBX( 82,2),TBX( 82,3),TBX( 82,4)
     *   /'ZR  '   ,17.8765   ,1.27618   ,10.9480   ,11.9160   /
      DATA TBX( 82,5),TBX( 82,6),TBX( 82,7),TBX( 82,8),TBX( 82,9)
     *   / 5.41732   ,.117622   ,3.65721   ,87.6627   ,2.06929   /
      DATA TBX( 82,10)/39./
      DATA TBXC( 83),TBX( 83,1),TBX( 83,2),TBX( 83,3),TBX( 83,4)
     *   /'ZR+4'   ,18.1668   ,1.21480   ,10.0562   ,10.1483   /
      DATA TBX( 83,5),TBX( 83,6),TBX( 83,7),TBX( 83,8),TBX( 83,9)
     *   / 1.01118   ,21.6054   ,-2.6479   ,-.10276   ,9.41454   /
      DATA TBX( 83,10)/39./
      DATA TBXC( 84),TBX( 84,1),TBX( 84,2),TBX( 84,3),TBX( 84,4)
     *   /'NB  '   ,17.6142   ,1.18865   ,12.0144   ,11.7660   /
      DATA TBX( 84,5),TBX( 84,6),TBX( 84,7),TBX( 84,8),TBX( 84,9)
     *   / 4.04183   ,.204785   ,3.53346   ,69.7957   ,3.75591   /
      DATA TBX( 84,10)/40./
      DATA TBXC( 85),TBX( 85,1),TBX( 85,2),TBX( 85,3),TBX( 85,4)
     *   /'NB+3'   ,19.8812   ,.019175   ,18.0653   ,1.13305   /
      DATA TBX( 85,5),TBX( 85,6),TBX( 85,7),TBX( 85,8),TBX( 85,9)
     *   / 11.0177   ,10.1621   ,1.94715   ,28.3389   ,-12.912   /
      DATA TBX( 85,10)/40./
      DATA TBXC( 86),TBX( 86,1),TBX( 86,2),TBX( 86,3),TBX( 86,4)
     *   /'NB+5'   ,17.9163   ,1.12446   ,13.3417   ,.028781   /
      DATA TBX( 86,5),TBX( 86,6),TBX( 86,7),TBX( 86,8),TBX( 86,9)
     *   / 10.7990   ,9.28206   ,.337905   ,25.7228   ,-6.3934   /
      DATA TBX( 86,10)/40./
      DATA TBXC( 87),TBX( 87,1),TBX( 87,2),TBX( 87,3),TBX( 87,4)
     *   /'MO  '   , 3.7025   ,  .2772   ,17.2356   , 1.0958   /
      DATA TBX( 87,5),TBX( 87,6),TBX( 87,7),TBX( 87,8),TBX( 87,9)
     *   / 12.8876   ,11.0040   , 3.7429   ,61.6584   , 4.3875   /
      DATA TBX( 87,10)/41./
      DATA TBXC( 88),TBX( 88,1),TBX( 88,2),TBX( 88,3),TBX( 88,4)
     *   /'MO+3'   ,21.1664   ,.014734   ,18.2017   ,1.03031   /
      DATA TBX( 88,5),TBX( 88,6),TBX( 88,7),TBX( 88,8),TBX( 88,9)
     *   / 11.7423   ,9.53659   ,2.30951   ,26.6307   ,-14.421   /
      DATA TBX( 88,10)/41./
      DATA TBXC( 89),TBX( 89,1),TBX( 89,2),TBX( 89,3),TBX( 89,4)
     *   /'MO+5'   ,21.0149   ,.014345   ,18.0992   ,1.02238   /
      DATA TBX( 89,5),TBX( 89,6),TBX( 89,7),TBX( 89,8),TBX( 89,9)
     *   / 11.4632   ,8.78809   ,.740625   ,23.3452   ,-14.316   /
      DATA TBX( 89,10)/41./
      DATA TBXC( 90),TBX( 90,1),TBX( 90,2),TBX( 90,3),TBX( 90,4)
     *   /'MO+6'   ,17.8871   ,1.03649   ,11.1750   ,8.48061   /
      DATA TBX( 90,5),TBX( 90,6),TBX( 90,7),TBX( 90,8),TBX( 90,9)
     *   / 6.57891   ,.058881   ,.0000   ,.0000    ,.344941   /
      DATA TBX( 90,10)/41./
      DATA TBXC( 91),TBX( 91,1),TBX( 91,2),TBX( 91,3),TBX( 91,4)
     *   /'TC  '   ,19.1301   ,.864132   ,11.0948   ,8.14487   /
      DATA TBX( 91,5),TBX( 91,6),TBX( 91,7),TBX( 91,8),TBX( 91,9)
     *   / 4.64901   ,21.5707   ,2.71263   ,86.8472   ,5.40428   /
      DATA TBX( 91,10)/42./
      DATA TBXC( 92),TBX( 92,1),TBX( 92,2),TBX( 92,3),TBX( 92,4)
     *   /'RU  '   ,19.2674   ,.808520   ,12.9182   ,8.43467   /
      DATA TBX( 92,5),TBX( 92,6),TBX( 92,7),TBX( 92,8),TBX( 92,9)
     *   / 4.86337   ,24.7997   ,1.56756   ,94.2928   ,5.37874   /
      DATA TBX( 92,10)/43./
      DATA TBXC( 93),TBX( 93,1),TBX( 93,2),TBX( 93,3),TBX( 93,4)
     *   /'RU+3'   ,18.5638   ,.847329   ,13.2885   ,8.37164   /
      DATA TBX( 93,5),TBX( 93,6),TBX( 93,7),TBX( 93,8),TBX( 93,9)
     *   / 9.32602   ,.017662   ,3.00964   ,22.8870   ,-3.1892   /
      DATA TBX( 93,10)/43./
      DATA TBXC( 94),TBX( 94,1),TBX( 94,2),TBX( 94,3),TBX( 94,4)
     *   /'RU+4'   ,18.5003   ,.844582   ,13.1787   ,8.12534   /
      DATA TBX( 94,5),TBX( 94,6),TBX( 94,7),TBX( 94,8),TBX( 94,9)
     *   / 4.71304   ,.036495   ,2.18535   ,20.8504   ,1.42357   /
      DATA TBX( 94,10)/43./
      DATA TBXC( 95),TBX( 95,1),TBX( 95,2),TBX( 95,3),TBX( 95,4)
     *   /'RH  '   ,19.2957   ,.751536   ,14.3501   ,8.21758   /
      DATA TBX( 95,5),TBX( 95,6),TBX( 95,7),TBX( 95,8),TBX( 95,9)
     *   / 4.73425   ,25.8749   ,1.28918   ,98.6062   ,5.32800   /
      DATA TBX( 95,10)/44./
      DATA TBXC( 96),TBX( 96,1),TBX( 96,2),TBX( 96,3),TBX( 96,4)
     *   /'RH+3'   ,18.8785   ,.764252   ,14.1259   ,7.84438   /
      DATA TBX( 96,5),TBX( 96,6),TBX( 96,7),TBX( 96,8),TBX( 96,9)
     *   / 3.32515   ,21.2487   ,-6.1989   ,-.01036   ,11.8678   /
      DATA TBX( 96,10)/44./
      DATA TBXC( 97),TBX( 97,1),TBX( 97,2),TBX( 97,3),TBX( 97,4)
     *   /'RH+4'   ,18.8545   ,.760825   ,13.9806   ,7.62436   /
      DATA TBX( 97,5),TBX( 97,6),TBX( 97,7),TBX( 97,8),TBX( 97,9)
     *   / 2.53464   ,19.3317   ,-5.6526   ,-.01020   ,11.2835   /
      DATA TBX( 97,10)/44./
      DATA TBXC( 98),TBX( 98,1),TBX( 98,2),TBX( 98,3),TBX( 98,4)
     *   /'PD  '   ,19.3319   ,.698655   ,15.5017   ,7.98929   /
      DATA TBX( 98,5),TBX( 98,6),TBX( 98,7),TBX( 98,8),TBX( 98,9)
     *   / 5.29537   ,25.2052   ,.605844   ,76.8986   ,5.26593   /
      DATA TBX( 98,10)/45./
      DATA TBXC( 99),TBX( 99,1),TBX( 99,2),TBX( 99,3),TBX( 99,4)
     *   /'PD+2'   ,19.1701   ,.696219   ,15.2096   ,7.55573   /
      DATA TBX( 99,5),TBX( 99,6),TBX( 99,7),TBX( 99,8),TBX( 99,9)
     *   / 4.32234   ,22.5057   ,.0000   ,.0000   ,5.29160   /
      DATA TBX( 99,10)/45./
      DATA TBXC(100),TBX(100,1),TBX(100,2),TBX(100,3),TBX(100,4)
     *   /'PD+4'   ,19.2493   ,.683839   ,14.7900   ,7.14833   /
      DATA TBX(100,5),TBX(100,6),TBX(100,7),TBX(100,8),TBX(100,9)
     *   / 2.89289   ,17.9144   ,-7.9492   ,.005127   ,13.0174   /
      DATA TBX(100,10)/45./
      DATA TBXC(101),TBX(101,1),TBX(101,2),TBX(101,3),TBX(101,4)
     *   /'AG  '   ,19.2808   ,  .6446   ,16.6885   , 7.4726   /
      DATA TBX(101,5),TBX(101,6),TBX(101,7),TBX(101,8),TBX(101,9)
     *   /  4.8045   ,24.6605   , 1.0463   ,99.8156   , 5.1790   /
      DATA TBX(101,10)/46./
      DATA TBXC(102),TBX(102,1),TBX(102,2),TBX(102,3),TBX(102,4)
     *   /'AG+1'   ,19.1812   ,.646179   ,15.9719   ,7.19123   /
      DATA TBX(102,5),TBX(102,6),TBX(102,7),TBX(102,8),TBX(102,9)
     *   / 5.27475   ,21.7326   ,.357534   ,66.1147   ,5.21572   /
      DATA TBX(102,10)/46./
      DATA TBXC(103),TBX(103,1),TBX(103,2),TBX(103,3),TBX(103,4)
     *   /'AG+2'   ,19.1643   ,.645643   ,16.2456   ,7.18544   /
      DATA TBX(103,5),TBX(103,6),TBX(103,7),TBX(103,8),TBX(103,9)
     *   / 4.37090   ,21.4072   ,.0000   ,.0000   ,5.21404   /
      DATA TBX(103,10)/46./
      DATA TBXC(104),TBX(104,1),TBX(104,2),TBX(104,3),TBX(104,4)
     *   /'CD  '   ,19.2214   ,  .5946   ,17.6444   , 6.9089   /
      DATA TBX(104,5),TBX(104,6),TBX(104,7),TBX(104,8),TBX(104,9)
     *   /  4.4610   ,24.7008   , 1.6029   ,87.4825   , 5.0694   /
      DATA TBX(104,10)/47./
      DATA TBXC(105),TBX(105,1),TBX(105,2),TBX(105,3),TBX(105,4)
     *   /'CD+2'   ,19.1514   ,.597922   ,17.2535   ,6.80639   /
      DATA TBX(105,5),TBX(105,6),TBX(105,7),TBX(105,8),TBX(105,9)
     *   / 4.47128   ,20.2521   ,.0000   ,.0000   ,5.11937   /
      DATA TBX(105,10)/47./
      DATA TBXC(106),TBX(106,1),TBX(106,2),TBX(106,3),TBX(106,4)
     *   /'IN  '   ,19.1624   ,  .5476   ,18.5596   , 6.3776   /
      DATA TBX(106,5),TBX(106,6),TBX(106,7),TBX(106,8),TBX(106,9)
     *   /  4.2948   ,25.8499   , 2.0396   ,92.8029   , 4.9391   /
      DATA TBX(106,10)/48./
      DATA TBXC(107),TBX(107,1),TBX(107,2),TBX(107,3),TBX(107,4)
     *   /'IN+3'   ,19.1045   ,.551522   ,18.1108   ,6.32470   /
      DATA TBX(107,5),TBX(107,6),TBX(107,7),TBX(107,8),TBX(107,9)
     *   / 3.78897   ,17.3595   ,.0000   ,.0000   ,4.99635   /
      DATA TBX(107,10)/48./
      DATA TBXC(108),TBX(108,1),TBX(108,2),TBX(108,3),TBX(108,4)
     *   /'SN  '   ,19.1889   , 5.8303   ,19.1005   ,  .5031   /
      DATA TBX(108,5),TBX(108,6),TBX(108,7),TBX(108,8),TBX(108,9)
     *   /  4.4585   ,26.8909   , 2.4663   ,83.9571   , 4.7821   /
      DATA TBX(108,10)/49./
      DATA TBXC(109),TBX(109,1),TBX(109,2),TBX(109,3),TBX(109,4)
     *   /'SN+2'   ,19.1094   ,  .5036   ,19.0548   , 5.8378   /
      DATA TBX(109,5),TBX(109,6),TBX(109,7),TBX(109,8),TBX(109,9)
     *   /  4.5648   ,23.3752   ,  .4870   ,62.2061   , 4.7861   /
      DATA TBX(109,10)/49./
      DATA TBXC(110),TBX(110,1),TBX(110,2),TBX(110,3),TBX(110,4)
     *   /'SN+4'   ,18.9333   , 5.7640   ,19.7131   ,  .4655   /
      DATA TBX(110,5),TBX(110,6),TBX(110,7),TBX(110,8),TBX(110,9)
     *   /  3.4182   ,14.0049   ,  .0193   , -.7583   , 3.9182   /
      DATA TBX(110,10)/49./
      DATA TBXC(111),TBX(111,1),TBX(111,2),TBX(111,3),TBX(111,4)
     *   /'SB  '   ,19.6418   , 5.3034   ,19.0455   ,  .4607   /
      DATA TBX(111,5),TBX(111,6),TBX(111,7),TBX(111,8),TBX(111,9)
     *   /  5.0371   ,27.9074   , 2.6827   ,75.2825   , 4.5909   /
      DATA TBX(111,10)/50./
      DATA TBXC(112),TBX(112,1),TBX(112,2),TBX(112,3),TBX(112,4)
     *   /'SB+3'   ,18.9755   ,.467196   ,18.9330   ,5.22126   /
      DATA TBX(112,5),TBX(112,6),TBX(112,7),TBX(112,8),TBX(112,9)
     *   / 5.10789   ,19.5902   ,.288753   ,55.5113   ,4.69626   /
      DATA TBX(112,10)/50./
      DATA TBXC(113),TBX(113,1),TBX(113,2),TBX(113,3),TBX(113,4)
     *   /'SB+5'   ,19.8685   ,5.44853   ,19.0302   ,.467973   /
      DATA TBX(113,5),TBX(113,6),TBX(113,7),TBX(113,8),TBX(113,9)
     *   / 2.41253   ,14.1259   ,.0000   ,.0000   ,4.69263   /
      DATA TBX(113,10)/50./
      DATA TBXC(114),TBX(114,1),TBX(114,2),TBX(114,3),TBX(114,4)
     *   /'TE  '   ,19.9644   ,4.81742   ,19.0138   ,.420885   /
      DATA TBX(114,5),TBX(114,6),TBX(114,7),TBX(114,8),TBX(114,9)
     *   / 6.14487   ,28.5284   ,2.52390   ,70.8403   ,4.35200   /
      DATA TBX(114,10)/51./
      DATA TBXC(115),TBX(115,1),TBX(115,2),TBX(115,3),TBX(115,4)
     *   /'I   '   ,20.1472   , 4.3470   ,18.9949   ,  .3814   /
      DATA TBX(115,5),TBX(115,6),TBX(115,7),TBX(115,8),TBX(115,9)
     *   /  7.5138   ,27.7660   , 2.2735   ,66.8776   , 4.0712   /
      DATA TBX(115,10)/52./
      DATA TBXC(116),TBX(116,1),TBX(116,2),TBX(116,3),TBX(116,4)
     *   /'I-1 '   ,20.2332   , 4.3579   ,18.9970   ,  .3815   /
      DATA TBX(116,5),TBX(116,6),TBX(116,7),TBX(116,8),TBX(116,9)
     *   /  7.8069   ,29.5259   , 2.8868   ,84.9304   , 4.0714   /
      DATA TBX(116,10)/52./
      DATA TBXC(117),TBX(117,1),TBX(117,2),TBX(117,3),TBX(117,4)
     *   /'XE  '   ,20.2933   , 3.9282   ,19.0298   ,  .3440   /
      DATA TBX(117,5),TBX(117,6),TBX(117,7),TBX(117,8),TBX(117,9)
     *   /  8.9767   ,26.4659   , 1.9900   ,64.2658   , 3.7118   /
      DATA TBX(117,10)/53./
      DATA TBXC(118),TBX(118,1),TBX(118,2),TBX(118,3),TBX(118,4)
     *   /'CS  '   ,20.3892   , 3.5690   ,19.1062   ,  .3107   /
      DATA TBX(118,5),TBX(118,6),TBX(118,7),TBX(118,8),TBX(118,9)
     *   / 10.6620   ,24.3879   , 1.4953   ,213.904   , 3.3352   /
      DATA TBX(118,10)/54./
      DATA TBXC(119),TBX(119,1),TBX(119,2),TBX(119,3),TBX(119,4)
     *   /'CS+1'   ,20.3524   , 3.5520   ,19.1278   ,  .3086   /
      DATA TBX(119,5),TBX(119,6),TBX(119,7),TBX(119,8),TBX(119,9)
     *   / 10.2821   ,23.7128   ,  .9615   ,59.4565   , 3.2791   /
      DATA TBX(119,10)/54./
      DATA TBXC(120),TBX(120,1),TBX(120,2),TBX(120,3),TBX(120,4)
     *   /'BA  '   ,20.3361   , 3.2160   ,19.2970   ,  .2756   /
      DATA TBX(120,5),TBX(120,6),TBX(120,7),TBX(120,8),TBX(120,9)
     *   / 10.8880   ,20.2073   , 2.6959   ,167.202   , 2.7731   /
      DATA TBX(120,10)/55./
      DATA TBXC(121),TBX(121,1),TBX(121,2),TBX(121,3),TBX(121,4)
     *   /'BA+2'   ,20.1807   ,3.21367   ,19.1136   ,.283310   /
      DATA TBX(121,5),TBX(121,6),TBX(121,7),TBX(121,8),TBX(121,9)
     *   / 10.9054   ,20.0558   ,.773634   ,51.7460   ,3.02902   /
      DATA TBX(121,10)/55./
      DATA TBXC(122),TBX(122,1),TBX(122,2),TBX(122,3),TBX(122,4)
     *   /'LA  '   ,20.5780   ,2.94817   ,19.5990   ,.244475   /
      DATA TBX(122,5),TBX(122,6),TBX(122,7),TBX(122,8),TBX(122,9)
     *   / 11.3727   ,18.7726   ,3.28719   ,133.124   ,2.14678   /
      DATA TBX(122,10)/56./
      DATA TBXC(123),TBX(123,1),TBX(123,2),TBX(123,3),TBX(123,4)
     *   /'LA+3'   ,20.2489   ,2.92070   ,19.3763   ,.250698   /
      DATA TBX(123,5),TBX(123,6),TBX(123,7),TBX(123,8),TBX(123,9)
     *   / 11.6323   ,17.8211   ,.336048   ,54.9453   ,2.40860   /
      DATA TBX(123,10)/56./
      DATA TBXC(124),TBX(124,1),TBX(124,2),TBX(124,3),TBX(124,4)
     *   /'CE  '   ,21.1671   ,2.81219   ,19.7695   ,.226836   /
      DATA TBX(124,5),TBX(124,6),TBX(124,7),TBX(124,8),TBX(124,9)
     *   / 11.8513   ,17.6083   ,3.33049   ,127.113   ,1.86264   /
      DATA TBX(124,10)/57./
      DATA TBXC(125),TBX(125,1),TBX(125,2),TBX(125,3),TBX(125,4)
     *   /'CE+3'   ,20.8036   ,2.77691   ,19.5590   ,.231540   /
      DATA TBX(125,5),TBX(125,6),TBX(125,7),TBX(125,8),TBX(125,9)
     *   / 11.9369   ,16.5408   ,.612376   ,43.1692   ,2.09013   /
      DATA TBX(125,10)/57./
      DATA TBXC(126),TBX(126,1),TBX(126,2),TBX(126,3),TBX(126,4)
     *   /'CE+4'   ,20.3235   ,2.65941   ,19.8186   ,.218850   /
      DATA TBX(126,5),TBX(126,6),TBX(126,7),TBX(126,8),TBX(126,9)
     *   / 12.1233   ,15.7992   ,.144583   ,62.2355   ,1.59180   /
      DATA TBX(126,10)/57./
      DATA TBXC(127),TBX(127,1),TBX(127,2),TBX(127,3),TBX(127,4)
     *   /'PR  '   ,22.0440   ,2.77393   ,19.6697   ,.222087   /
      DATA TBX(127,5),TBX(127,6),TBX(127,7),TBX(127,8),TBX(127,9)
     *   / 12.3856   ,16.7669   ,2.82428   ,143.644   ,2.05830   /
      DATA TBX(127,10)/58./
      DATA TBXC(128),TBX(128,1),TBX(128,2),TBX(128,3),TBX(128,4)
     *   /'PR+3'   ,21.3727   ,2.64520   ,19.7491   ,.214299   /
      DATA TBX(128,5),TBX(128,6),TBX(128,7),TBX(128,8),TBX(128,9)
     *   / 12.1329   ,15.3230   ,.975180   ,36.4065   ,1.77132   /
      DATA TBX(128,10)/58./
      DATA TBXC(129),TBX(129,1),TBX(129,2),TBX(129,3),TBX(129,4)
     *   /'PR+4'   ,20.9413   ,2.54467   ,20.0539   ,.202481   /
      DATA TBX(129,5),TBX(129,6),TBX(129,7),TBX(129,8),TBX(129,9)
     *   / 12.4668   ,14.8137   ,.296689   ,45.4643   ,1.24285   /
      DATA TBX(129,10)/58./
      DATA TBXC(130),TBX(130,1),TBX(130,2),TBX(130,3),TBX(130,4)
     *   /'ND  '   ,22.6845   ,2.66248   ,19.6847   ,.210628   /
      DATA TBX(130,5),TBX(130,6),TBX(130,7),TBX(130,8),TBX(130,9)
     *   / 12.7740   ,15.8850   ,2.85137   ,137.903   ,1.98486   /
      DATA TBX(130,10)/59./
      DATA TBXC(131),TBX(131,1),TBX(131,2),TBX(131,3),TBX(131,4)
     *   /'ND+3'   ,21.9610   ,2.52722   ,19.9339   ,.199237   /
      DATA TBX(131,5),TBX(131,6),TBX(131,7),TBX(131,8),TBX(131,9)
     *   / 12.1200   ,14.1783   ,1.51031   ,30.8717   ,1.47588   /
      DATA TBX(131,10)/59./
      DATA TBXC(132),TBX(132,1),TBX(132,2),TBX(132,3),TBX(132,4)
     *   /'PM  '   ,23.3405   ,2.56270   ,19.6095   ,.202088   /
      DATA TBX(132,5),TBX(132,6),TBX(132,7),TBX(132,8),TBX(132,9)
     *   / 13.1235   ,15.1009   ,2.87516   ,132.721   ,2.02876   /
      DATA TBX(132,10)/60./
      DATA TBXC(133),TBX(133,1),TBX(133,2),TBX(133,3),TBX(133,4)
     *   /'PM+3'   ,22.5527   ,2.41740   ,20.1108   ,.185769   /
      DATA TBX(133,5),TBX(133,6),TBX(133,7),TBX(133,8),TBX(133,9)
     *   / 12.0671   ,13.1275   ,2.07492   ,27.4491   ,1.19499   /
      DATA TBX(133,10)/60./
      DATA TBXC(134),TBX(134,1),TBX(134,2),TBX(134,3),TBX(134,4)
     *   /'SM  '   ,24.0042   ,2.47274   ,19.4258   ,.196451   /
      DATA TBX(134,5),TBX(134,6),TBX(134,7),TBX(134,8),TBX(134,9)
     *   / 13.4396   ,14.3996   ,2.89604   ,128.007   ,2.20963   /
      DATA TBX(134,10)/61./
      DATA TBXC(135),TBX(135,1),TBX(135,2),TBX(135,3),TBX(135,4)
     *   /'SM+3'   ,23.1504   ,2.31641   ,20.2599   ,.174081   /
      DATA TBX(135,5),TBX(135,6),TBX(135,7),TBX(135,8),TBX(135,9)
     *   / 11.9202   ,12.1571   ,2.71488   ,24.8242   ,.954586   /
      DATA TBX(135,10)/61./
      DATA TBXC(136),TBX(136,1),TBX(136,2),TBX(136,3),TBX(136,4)
     *   /'EU  '   ,24.6274   , 2.3879   ,19.0886   ,  .1942   /
      DATA TBX(136,5),TBX(136,6),TBX(136,7),TBX(136,8),TBX(136,9)
     *   / 13.7603   ,13.7546   , 2.9227   ,123.174   , 2.5745   /
      DATA TBX(136,10)/62./
      DATA TBXC(137),TBX(137,1),TBX(137,2),TBX(137,3),TBX(137,4)
     *   /'EU+2'   ,24.0063   ,2.27783   ,19.9504   ,.173530   /
      DATA TBX(137,5),TBX(137,6),TBX(137,7),TBX(137,8),TBX(137,9)
     *   / 11.8034   ,11.6096   ,3.87243   ,26.5156   ,1.36389   /
      DATA TBX(137,10)/62./
      DATA TBXC(138),TBX(138,1),TBX(138,2),TBX(138,3),TBX(138,4)
     *   /'EU+3'   ,23.7497   ,2.22258   ,20.3745   ,.163940   /
      DATA TBX(138,5),TBX(138,6),TBX(138,7),TBX(138,8),TBX(138,9)
     *   / 11.8509   ,11.3110   ,3.26503   ,22.9966   ,.759344   /
      DATA TBX(138,10)/62./
      DATA TBXC(139),TBX(139,1),TBX(139,2),TBX(139,3),TBX(139,4)
     *   /'GD  '   ,25.0709   ,2.25341   ,19.0798   ,.181951   /
      DATA TBX(139,5),TBX(139,6),TBX(139,7),TBX(139,8),TBX(139,9)
     *   / 13.8518   ,12.9331   ,3.54545   ,101.398   ,2.41960   /
      DATA TBX(139,10)/63./
      DATA TBXC(140),TBX(140,1),TBX(140,2),TBX(140,3),TBX(140,4)
     *   /'GD+3'   ,24.3466   ,2.13553   ,20.4208   ,.155525   /
      DATA TBX(140,5),TBX(140,6),TBX(140,7),TBX(140,8),TBX(140,9)
     *   / 11.8708   ,10.5782   ,3.71490   ,21.7029   ,.645089   /
      DATA TBX(140,10)/63./
      DATA TBXC(141),TBX(141,1),TBX(141,2),TBX(141,3),TBX(141,4)
     *   /'TB  '   ,25.8976   ,2.24256   ,18.2185   ,.196143   /
      DATA TBX(141,5),TBX(141,6),TBX(141,7),TBX(141,8),TBX(141,9)
     *   / 14.3167   ,12.6648   ,2.95354   ,115.362   ,3.58324   /
      DATA TBX(141,10)/64./
      DATA TBXC(142),TBX(142,1),TBX(142,2),TBX(142,3),TBX(142,4)
     *   /'TB+3'   ,24.9559   ,2.05601   ,20.3271   ,.149525   /
      DATA TBX(142,5),TBX(142,6),TBX(142,7),TBX(142,8),TBX(142,9)
     *   / 12.2471   ,10.0499   ,3.77300   ,21.2773   ,.691967   /
      DATA TBX(142,10)/64./
      DATA TBXC(143),TBX(143,1),TBX(143,2),TBX(143,3),TBX(143,4)
     *   /'DY  '   ,26.5070   ,2.18020   ,17.6383   ,.202172   /
      DATA TBX(143,5),TBX(143,6),TBX(143,7),TBX(143,8),TBX(143,9)
     *   / 14.5596   ,12.1899   ,2.96577   ,111.874   ,4.29728   /
      DATA TBX(143,10)/65./
      DATA TBXC(144),TBX(144,1),TBX(144,2),TBX(144,3),TBX(144,4)
     *   /'DY+3'   ,25.5395   ,1.98040   ,20.2861   ,.143384   /
      DATA TBX(144,5),TBX(144,6),TBX(144,7),TBX(144,8),TBX(144,9)
     *   / 11.9812   ,9.34972   ,4.50073   ,19.5810   ,.689690   /
      DATA TBX(144,10)/65./
      DATA TBXC(145),TBX(145,1),TBX(145,2),TBX(145,3),TBX(145,4)
     *   /'HO  '   ,26.9049   ,2.07051   ,17.2940   ,.197940   /
      DATA TBX(145,5),TBX(145,6),TBX(145,7),TBX(145,8),TBX(145,9)
     *   / 14.5583   ,11.4407   ,3.63837   ,92.6566   ,4.56796   /
      DATA TBX(145,10)/66./
      DATA TBXC(146),TBX(146,1),TBX(146,2),TBX(146,3),TBX(146,4)
     *   /'HO+3'   ,26.1296   ,1.91072   ,20.0994   ,.139358   /
      DATA TBX(146,5),TBX(146,6),TBX(146,7),TBX(146,8),TBX(146,9)
     *   / 11.9788   ,8.80018   ,4.93676   ,18.5908   ,.852795   /
      DATA TBX(146,10)/66./
      DATA TBXC(147),TBX(147,1),TBX(147,2),TBX(147,3),TBX(147,4)
     *   /'ER  '   ,27.6563   ,2.07356   ,16.4285   ,.223545   /
      DATA TBX(147,5),TBX(147,6),TBX(147,7),TBX(147,8),TBX(147,9)
     *   / 14.9779   ,11.3604   ,2.98233   ,105.703   ,5.92046   /
      DATA TBX(147,10)/67./
      DATA TBXC(148),TBX(148,1),TBX(148,2),TBX(148,3),TBX(148,4)
     *   /'ER+3'   ,26.7220   ,1.84659   ,19.7748   ,.137290   /
      DATA TBX(148,5),TBX(148,6),TBX(148,7),TBX(148,8),TBX(148,9)
     *   / 12.1506   ,8.36225   ,5.17379   ,17.8974   ,1.17613   /
      DATA TBX(148,10)/67./
      DATA TBXC(149),TBX(149,1),TBX(149,2),TBX(149,3),TBX(149,4)
     *   /'TM  '   ,28.1819   ,2.02859   ,15.8851   ,.238849   /
      DATA TBX(149,5),TBX(149,6),TBX(149,7),TBX(149,8),TBX(149,9)
     *   / 15.1542   ,10.9975   ,2.98706   ,102.961   ,6.75621   /
      DATA TBX(149,10)/68./
      DATA TBXC(150),TBX(150,1),TBX(150,2),TBX(150,3),TBX(150,4)
     *   /'TM+3'   ,27.3083   ,1.78711   ,19.3320   ,.136974   /
      DATA TBX(150,5),TBX(150,6),TBX(150,7),TBX(150,8),TBX(150,9)
     *   / 12.3339   ,7.96778   ,5.38348   ,17.2922   ,1.63929   /
      DATA TBX(150,10)/68./
      DATA TBXC(151),TBX(151,1),TBX(151,2),TBX(151,3),TBX(151,4)
     *   /'YB  '   ,28.6641   ,1.98890   ,15.4345   ,.257119   /
      DATA TBX(151,5),TBX(151,6),TBX(151,7),TBX(151,8),TBX(151,9)
     *   / 15.3087   ,10.6647   ,2.98963   ,100.417   ,7.56672   /
      DATA TBX(151,10)/69./
      DATA TBXC(152),TBX(152,1),TBX(152,2),TBX(152,3),TBX(152,4)
     *   /'YB+2'   ,28.1209   ,1.78503   ,17.6817   ,.159970   /
      DATA TBX(152,5),TBX(152,6),TBX(152,7),TBX(152,8),TBX(152,9)
     *   / 13.3335   ,8.18304   ,5.14657   ,20.3900   ,3.70983   /
      DATA TBX(152,10)/69./
      DATA TBXC(153),TBX(153,1),TBX(153,2),TBX(153,3),TBX(153,4)
     *   /'YB+3'   ,27.8917   ,1.73272   ,18.7614   ,.138790   /
      DATA TBX(153,5),TBX(153,6),TBX(153,7),TBX(153,8),TBX(153,9)
     *   / 12.6072   ,7.64412   ,5.47647   ,16.8153   ,2.26001   /
      DATA TBX(153,10)/69./
      DATA TBXC(154),TBX(154,1),TBX(154,2),TBX(154,3),TBX(154,4)
     *   /'LU  '   ,28.9476   ,1.90182   ,15.2208   ,9.98519   /
      DATA TBX(154,5),TBX(154,6),TBX(154,7),TBX(154,8),TBX(154,9)
     *   / 15.1000   ,.261033   ,3.71601   ,84.3298   ,7.97628   /
      DATA TBX(154,10)/70./
      DATA TBXC(155),TBX(155,1),TBX(155,2),TBX(155,3),TBX(155,4)
     *   /'LU+3'   ,28.4628   ,1.68216   ,18.1210   ,.142292   /
      DATA TBX(155,5),TBX(155,6),TBX(155,7),TBX(155,8),TBX(155,9)
     *   / 12.8429   ,7.33727   ,5.59415   ,16.3535   ,2.97573   /
      DATA TBX(155,10)/70./
      DATA TBXC(156),TBX(156,1),TBX(156,2),TBX(156,3),TBX(156,4)
     *   /'HF  '   ,29.1440   ,1.83262   ,15.1726   ,9.59990   /
      DATA TBX(156,5),TBX(156,6),TBX(156,7),TBX(156,8),TBX(156,9)
     *   / 14.7586   ,.275116   ,4.30013   ,72.0290   ,8.58154   /
      DATA TBX(156,10)/71./
      DATA TBXC(157),TBX(157,1),TBX(157,2),TBX(157,3),TBX(157,4)
     *   /'HF+4'   ,28.8131   ,1.59136   ,18.4601   ,.128903   /
      DATA TBX(157,5),TBX(157,6),TBX(157,7),TBX(157,8),TBX(157,9)
     *   / 12.7285   ,6.76232   ,5.59927   ,14.0366   ,2.39699   /
      DATA TBX(157,10)/71./
      DATA TBXC(158),TBX(158,1),TBX(158,2),TBX(158,3),TBX(158,4)
     *   /'TA  '   ,29.2024   ,1.77333   ,15.2293   ,9.37046   /
      DATA TBX(158,5),TBX(158,6),TBX(158,7),TBX(158,8),TBX(158,9)
     *   / 14.5135   ,.295977   ,4.76492   ,63.3644   ,9.24354   /
      DATA TBX(158,10)/72./
      DATA TBXC(159),TBX(159,1),TBX(159,2),TBX(159,3),TBX(159,4)
     *   /'TA+5'   ,29.1587   ,1.50711   ,18.8407   ,.116741   /
      DATA TBX(159,5),TBX(159,6),TBX(159,7),TBX(159,8),TBX(159,9)
     *   / 12.8268   ,6.31524   ,5.38695   ,12.4244   ,1.78555   /
      DATA TBX(159,10)/72./
      DATA TBXC(160),TBX(160,1),TBX(160,2),TBX(160,3),TBX(160,4)
     *   /'W   '   ,29.0818   ,1.72029   ,15.4300   ,9.22590   /
      DATA TBX(160,5),TBX(160,6),TBX(160,7),TBX(160,8),TBX(160,9)
     *   / 14.4327   ,.321703   ,5.11982   ,57.0560   ,9.88750   /
      DATA TBX(160,10)/73./
      DATA TBXC(161),TBX(161,1),TBX(161,2),TBX(161,3),TBX(161,4)
     *   /'W+6 '   ,29.4936   ,1.42755   ,19.3763   ,.104621   /
      DATA TBX(161,5),TBX(161,6),TBX(161,7),TBX(161,8),TBX(161,9)
     *   / 13.0544   ,5.93667   ,5.06412   ,11.1972   ,1.01074   /
      DATA TBX(161,10)/73./
      DATA TBXC(162),TBX(162,1),TBX(162,2),TBX(162,3),TBX(162,4)
     *   /'RE  '   ,28.7621   ,1.67191   ,15.7189   ,9.09227   /
      DATA TBX(162,5),TBX(162,6),TBX(162,7),TBX(162,8),TBX(162,9)
     *   / 14.5564   ,.350500   ,5.44174   ,52.0861   ,10.4720   /
      DATA TBX(162,10)/74./
      DATA TBXC(163),TBX(163,1),TBX(163,2),TBX(163,3),TBX(163,4)
     *   /'OS  '   ,28.1894   ,1.62903   ,16.1550   ,8.97948   /
      DATA TBX(163,5),TBX(163,6),TBX(163,7),TBX(163,8),TBX(163,9)
     *   / 14.9305   ,.382661   ,5.67589   ,48.1647   ,11.0005   /
      DATA TBX(163,10)/75./
      DATA TBXC(164),TBX(164,1),TBX(164,2),TBX(164,3),TBX(164,4)
     *   /'OS+4'   ,30.4190   ,1.37113   ,15.2637   ,6.84706   /
      DATA TBX(164,5),TBX(164,6),TBX(164,7),TBX(164,8),TBX(164,9)
     *   / 14.7458   ,.165191   ,5.06795   ,18.0030   ,6.49804   /
      DATA TBX(164,10)/75./
      DATA TBXC(165),TBX(165,1),TBX(165,2),TBX(165,3),TBX(165,4)
     *   /'IR  '   ,27.3049   ,1.59279   ,16.7296   ,8.86553   /
      DATA TBX(165,5),TBX(165,6),TBX(165,7),TBX(165,8),TBX(165,9)
     *   / 15.6115   ,.417916   ,5.83377   ,45.0011   ,11.4722   /
      DATA TBX(165,10)/76./
      DATA TBXC(166),TBX(166,1),TBX(166,2),TBX(166,3),TBX(166,4)
     *   /'IR+3'   ,30.4156   ,1.34323   ,15.8620   ,7.10909   /
      DATA TBX(166,5),TBX(166,6),TBX(166,7),TBX(166,8),TBX(166,9)
     *   / 13.6145   ,.204633   ,5.82008   ,20.3254   ,8.27903   /
      DATA TBX(166,10)/76./
      DATA TBXC(167),TBX(167,1),TBX(167,2),TBX(167,3),TBX(167,4)
     *   /'IR+4'   ,30.7058   ,1.30923   ,15.5512   ,6.71983   /
      DATA TBX(167,5),TBX(167,6),TBX(167,7),TBX(167,8),TBX(167,9)
     *   / 14.2326   ,.167252   ,5.53672   ,17.4911   ,6.96824   /
      DATA TBX(167,10)/76./
      DATA TBXC(168),TBX(168,1),TBX(168,2),TBX(168,3),TBX(168,4)
     *   /'PT  '   ,27.0059   ,1.51293   ,17.7639   ,8.81174   /
      DATA TBX(168,5),TBX(168,6),TBX(168,7),TBX(168,8),TBX(168,9)
     *   / 15.7131   ,.424593   ,5.78370   ,38.6103   ,11.6883   /
      DATA TBX(168,10)/77./
      DATA TBXC(169),TBX(169,1),TBX(169,2),TBX(169,3),TBX(169,4)
     *   /'PT+2'   ,29.8429   ,1.32927   ,16.7224   ,7.38979   /
      DATA TBX(169,5),TBX(169,6),TBX(169,7),TBX(169,8),TBX(169,9)
     *   / 13.2153   ,.263297   ,6.35234   ,22.9426   ,9.85329   /
      DATA TBX(169,10)/77./
      DATA TBXC(170),TBX(170,1),TBX(170,2),TBX(170,3),TBX(170,4)
     *   /'PT+4'   ,30.9612   ,1.24813   ,15.9829   ,6.60834   /
      DATA TBX(170,5),TBX(170,6),TBX(170,7),TBX(170,8),TBX(170,9)
     *   / 13.7348   ,.168640   ,5.92034   ,16.9392   ,7.39534   /
      DATA TBX(170,10)/77./
      DATA TBXC(171),TBX(171,1),TBX(171,2),TBX(171,3),TBX(171,4)
     *   /'AU  '   ,16.8819   ,  .4611   ,18.5913   , 8.6216   /
      DATA TBX(171,5),TBX(171,6),TBX(171,7),TBX(171,8),TBX(171,9)
     *   / 25.5582   , 1.4826   , 5.8600   ,36.3956   ,12.0658   /
      DATA TBX(171,10)/78./
      DATA TBXC(172),TBX(172,1),TBX(172,2),TBX(172,3),TBX(172,4)
     *   /'AU+1'   ,28.0109   ,1.35321   ,17.8204   ,7.73950   /
      DATA TBX(172,5),TBX(172,6),TBX(172,7),TBX(172,8),TBX(172,9)
     *   / 14.3359   ,.356752   ,6.58077   ,26.4043   ,11.2299   /
      DATA TBX(172,10)/78./
      DATA TBXC(173),TBX(173,1),TBX(173,2),TBX(173,3),TBX(173,4)
     *   /'AU+3'   ,30.6886   ,1.21990   ,16.9029   ,6.82872   /
      DATA TBX(173,5),TBX(173,6),TBX(173,7),TBX(173,8),TBX(173,9)
     *   / 12.7801   ,.212867   ,6.52354   ,18.6590   ,9.09680   /
      DATA TBX(173,10)/78./
      DATA TBXC(174),TBX(174,1),TBX(174,2),TBX(174,3),TBX(174,4)
     *   /'HG  '   ,20.6809   ,  .5450   ,19.0417   , 8.4484   /
      DATA TBX(174,5),TBX(174,6),TBX(174,7),TBX(174,8),TBX(174,9)
     *   / 21.6575   , 1.5729   , 5.9676   ,38.3246   ,12.6089   /
      DATA TBX(174,10)/79./
      DATA TBXC(175),TBX(175,1),TBX(175,2),TBX(175,3),TBX(175,4)
     *   /'HG+1'   ,25.0853   ,1.39507   ,18.4973   ,7.65105   /
      DATA TBX(175,5),TBX(175,6),TBX(175,7),TBX(175,8),TBX(175,9)
     *   / 16.8883   ,.443378   ,6.48216   ,28.2262   ,12.0205   /
      DATA TBX(175,10)/79./
      DATA TBXC(176),TBX(176,1),TBX(176,2),TBX(176,3),TBX(176,4)
     *   /'HG+2'   ,29.5641   ,1.21152   ,18.0600   ,7.05639   /
      DATA TBX(176,5),TBX(176,6),TBX(176,7),TBX(176,8),TBX(176,9)
     *   / 12.8374   ,.284738   ,6.89912   ,20.7482   ,10.6268   /
      DATA TBX(176,10)/79./
      DATA TBXC(177),TBX(177,1),TBX(177,2),TBX(177,3),TBX(177,4)
     *   /'TL  '   ,27.5446   ,.655150   ,19.1584   ,8.70751   /
      DATA TBX(177,5),TBX(177,6),TBX(177,7),TBX(177,8),TBX(177,9)
     *   / 15.5380   ,1.96347   ,5.52593   ,45.8149   ,13.1746   /
      DATA TBX(177,10)/80./
      DATA TBXC(178),TBX(178,1),TBX(178,2),TBX(178,3),TBX(178,4)
     *   /'TL+1'   ,21.3985   ,1.47110   ,20.4723   ,.517394   /
      DATA TBX(178,5),TBX(178,6),TBX(178,7),TBX(178,8),TBX(178,9)
     *   / 18.7478   ,7.43463   ,6.82847   ,28.8482   ,12.5258   /
      DATA TBX(178,10)/80./
      DATA TBXC(179),TBX(179,1),TBX(179,2),TBX(179,3),TBX(179,4)
     *   /'TL+3'   ,30.8695   ,1.10080   ,18.3841   ,6.53852   /
      DATA TBX(179,5),TBX(179,6),TBX(179,7),TBX(179,8),TBX(179,9)
     *   / 11.9328   ,.219074   ,7.00574   ,17.2114   ,9.80270   /
      DATA TBX(179,10)/80./
      DATA TBXC(180),TBX(180,1),TBX(180,2),TBX(180,3),TBX(180,4)
     *   /'PB  '   ,31.0617   ,  .6902   ,13.0637   , 2.3576   /
      DATA TBX(180,5),TBX(180,6),TBX(180,7),TBX(180,8),TBX(180,9)
     *   / 18.4420   , 8.6180   , 5.9696   ,47.2579   ,13.4118   /
      DATA TBX(180,10)/81./
      DATA TBXC(181),TBX(181,1),TBX(181,2),TBX(181,3),TBX(181,4)
     *   /'PB+2'   ,21.7886   ,1.33660   ,19.5682   ,.488383   /
      DATA TBX(181,5),TBX(181,6),TBX(181,7),TBX(181,8),TBX(181,9)
     *   / 19.1406   ,6.77270   ,7.01107   ,23.8132   ,12.4734   /
      DATA TBX(181,10)/81./
      DATA TBXC(182),TBX(182,1),TBX(182,2),TBX(182,3),TBX(182,4)
     *   /'PB+4'   ,32.1244   ,1.00566   ,18.8003   ,6.10926   /
      DATA TBX(182,5),TBX(182,6),TBX(182,7),TBX(182,8),TBX(182,9)
     *   / 12.0175   ,.147041   ,6.96886   ,14.7140   ,8.08428   /
      DATA TBX(182,10)/81./
      DATA TBXC(183),TBX(183,1),TBX(183,2),TBX(183,3),TBX(183,4)
     *   /'BI  '   ,33.3689   ,  .7040   ,12.9510   , 2.9238   /
      DATA TBX(183,5),TBX(183,6),TBX(183,7),TBX(183,8),TBX(183,9)
     *   / 16.5877   , 8.7937   , 6.4692   ,48.0093   ,13.5782   /
      DATA TBX(183,10)/82./
      DATA TBXC(184),TBX(184,1),TBX(184,2),TBX(184,3),TBX(184,4)
     *   /'BI+3'   ,21.8053   ,1.23560   ,19.5026   ,6.24149   /
      DATA TBX(184,5),TBX(184,6),TBX(184,7),TBX(184,8),TBX(184,9)
     *   / 19.1053   ,.469999   ,7.10295   ,20.3185   ,12.4711   /
      DATA TBX(184,10)/82./
      DATA TBXC(185),TBX(185,1),TBX(185,2),TBX(185,3),TBX(185,4)
     *   /'BI+5'   ,33.5364   ,.916540   ,25.0946   ,.039042   /
      DATA TBX(185,5),TBX(185,6),TBX(185,7),TBX(185,8),TBX(185,9)
     *   / 19.2497   ,5.71414   ,6.91555   ,12.8285   ,-6.7994   /
      DATA TBX(185,10)/82./
      DATA TBXC(186),TBX(186,1),TBX(186,2),TBX(186,3),TBX(186,4)
     *   /'PO  '   ,34.6726   ,.700999   ,15.4733   ,3.55078   /
      DATA TBX(186,5),TBX(186,6),TBX(186,7),TBX(186,8),TBX(186,9)
     *   / 13.1138   ,9.55642   ,7.02588   ,47.0045   ,13.6770   /
      DATA TBX(186,10)/83./
      DATA TBXC(187),TBX(187,1),TBX(187,2),TBX(187,3),TBX(187,4)
     *   /'AT  '   ,35.3163   ,.685870   ,19.0211   ,3.97458   /
      DATA TBX(187,5),TBX(187,6),TBX(187,7),TBX(187,8),TBX(187,9)
     *   / 9.49887   ,11.3824   ,7.42518   ,45.4715   ,13.7108   /
      DATA TBX(187,10)/84./
      DATA TBXC(188),TBX(188,1),TBX(188,2),TBX(188,3),TBX(188,4)
     *   /'RN  '   ,35.5631   ,  .6631   ,21.2816   , 4.0691   /
      DATA TBX(188,5),TBX(188,6),TBX(188,7),TBX(188,8),TBX(188,9)
     *   /  8.0037   ,14.0422   , 7.4433   ,44.2473   ,13.6905   /
      DATA TBX(188,10)/85./
      DATA TBXC(189),TBX(189,1),TBX(189,2),TBX(189,3),TBX(189,4)
     *   /'FR  '   ,35.9299   ,.646453   ,23.0547   ,4.17619   /
      DATA TBX(189,5),TBX(189,6),TBX(189,7),TBX(189,8),TBX(189,9)
     *   / 12.1439   ,23.1052   ,2.11253   ,150.645   ,13.7247   /
      DATA TBX(189,10)/86./
      DATA TBXC(190),TBX(190,1),TBX(190,2),TBX(190,3),TBX(190,4)
     *   /'RA  '   ,35.7630   ,.616341   ,22.9064   ,3.87135   /
      DATA TBX(190,5),TBX(190,6),TBX(190,7),TBX(190,8),TBX(190,9)
     *   / 12.4739   ,19.9887   ,3.21097   ,142.325   ,13.6211   /
      DATA TBX(190,10)/87./
      DATA TBXC(191),TBX(191,1),TBX(191,2),TBX(191,3),TBX(191,4)
     *   /'RA+2'   ,35.2150   ,.604909   ,21.6700   ,3.57670   /
      DATA TBX(191,5),TBX(191,6),TBX(191,7),TBX(191,8),TBX(191,9)
     *   / 7.91342   ,12.6010   ,7.65078   ,29.8436   ,13.5431   /
      DATA TBX(191,10)/87./
      DATA TBXC(192),TBX(192,1),TBX(192,2),TBX(192,3),TBX(192,4)
     *   /'AC  '   ,35.6597   ,.589092   ,23.1032   ,3.65155   /
      DATA TBX(192,5),TBX(192,6),TBX(192,7),TBX(192,8),TBX(192,9)
     *   / 12.5977   ,18.5990   ,4.08655   ,117.020   ,13.5266   /
      DATA TBX(192,10)/88./
      DATA TBXC(193),TBX(193,1),TBX(193,2),TBX(193,3),TBX(193,4)
     *   /'AC+3'   ,35.1736   ,.579689   ,22.1112   ,3.41437   /
      DATA TBX(193,5),TBX(193,6),TBX(193,7),TBX(193,8),TBX(193,9)
     *   / 8.19216   ,12.9187   ,7.05545   ,25.9443   ,13.4637   /
      DATA TBX(193,10)/88./
      DATA TBXC(194),TBX(194,1),TBX(194,2),TBX(194,3),TBX(194,4)
     *   /'TH  '   ,35.5645   ,.563359   ,23.4219   ,3.46204   /
      DATA TBX(194,5),TBX(194,6),TBX(194,7),TBX(194,8),TBX(194,9)
     *   / 12.7473   ,17.8309   ,4.80703   ,99.1722   ,13.4314   /
      DATA TBX(194,10)/89./
      DATA TBXC(195),TBX(195,1),TBX(195,2),TBX(195,3),TBX(195,4)
     *   /'TH+4'   ,35.1007   ,.555054   ,22.4418   ,3.24498   /
      DATA TBX(195,5),TBX(195,6),TBX(195,7),TBX(195,8),TBX(195,9)
     *   / 9.78554   ,13.4661   ,5.29444   ,23.9533   ,13.3760   /
      DATA TBX(195,10)/89./
      DATA TBXC(196),TBX(196,1),TBX(196,2),TBX(196,3),TBX(196,4)
     *   /'PA  '   ,35.8847   ,.547751   ,23.2948   ,3.41519   /
      DATA TBX(196,5),TBX(196,6),TBX(196,7),TBX(196,8),TBX(196,9)
     *   / 14.1891   ,16.9235   ,4.17287   ,105.251   ,13.4287   /
      DATA TBX(196,10)/90./
      DATA TBXC(197),TBX(197,1),TBX(197,2),TBX(197,3),TBX(197,4)
     *   /'U   '   ,36.0228   ,  .5293   ,23.4128   , 3.3253   /
      DATA TBX(197,5),TBX(197,6),TBX(197,7),TBX(197,8),TBX(197,9)
     *   / 14.9491   ,16.0927   , 4.1880   ,100.613   ,13.3966   /
      DATA TBX(197,10)/91./
      DATA TBXC(198),TBX(198,1),TBX(198,2),TBX(198,3),TBX(198,4)
     *   /'U+3 '  ,35.5747   ,.520480   ,22.5259   ,3.12293   /
      DATA TBX(198,5),TBX(198,6),TBX(198,7),TBX(198,8),TBX(198,9)
     *   / 12.2165   ,12.7148   ,5.37073   ,26.3394   ,13.3092   /
      DATA TBX(198,10)/91./
      DATA TBXC(199),TBX(199,1),TBX(199,2),TBX(199,3),TBX(199,4)
     *   /'U+4 '  ,35.3715   ,.516598   ,22.5326   ,3.05053   /
      DATA TBX(199,5),TBX(199,6),TBX(199,7),TBX(199,8),TBX(199,9)
     *   / 12.0291   ,12.5723   ,4.79840   ,23.4582   ,13.2671   /
      DATA TBX(199,10)/91./
      DATA TBXC(200),TBX(200,1),TBX(200,2),TBX(200,3),TBX(200,4)
     *   /'U+6 '  ,34.8509   ,.507079   ,22.7584   ,2.89030   /
      DATA TBX(200,5),TBX(200,6),TBX(200,7),TBX(200,8),TBX(200,9)
     *   / 14.0099   ,13.1767   ,1.21457   ,25.2017   ,13.1665   /
      DATA TBX(200,10)/91./
      DATA TBXC(201),TBX(201,1),TBX(201,2),TBX(201,3),TBX(201,4)
     *   /'NP  '   ,36.1874   ,.511929   ,23.5964   ,3.25396   /
      DATA TBX(201,5),TBX(201,6),TBX(201,7),TBX(201,8),TBX(201,9)
     *   / 15.6402   ,15.3622   ,4.18550   ,97.4908   ,13.3573   /
      DATA TBX(201,10)/92./
      DATA TBXC(202),TBX(202,1),TBX(202,2),TBX(202,3),TBX(202,4)
     *   /'NP+3'   ,35.7074   ,.502322   ,22.6130   ,3.03807   /
      DATA TBX(202,5),TBX(202,6),TBX(202,7),TBX(202,8),TBX(202,9)
     *   / 12.9898   ,12.1449   ,5.43227   ,25.4928   ,13.2544   /
      DATA TBX(202,10)/92./
      DATA TBXC(203),TBX(203,1),TBX(203,2),TBX(203,3),TBX(203,4)
     *   /'NP+4'   ,35.5103   ,.498626   ,22.5787   ,2.96627   /
      DATA TBX(203,5),TBX(203,6),TBX(203,7),TBX(203,8),TBX(203,9)
     *   / 12.7766   ,11.9484   ,4.92159   ,22.7502   ,13.2116   /
      DATA TBX(203,10)/92./
      DATA TBXC(204),TBX(204,1),TBX(204,2),TBX(204,3),TBX(204,4)
     *   /'NP+6'   ,35.0136   ,.489810   ,22.7286   ,2.81099   /
      DATA TBX(204,5),TBX(204,6),TBX(204,7),TBX(204,8),TBX(204,9)
     *   / 14.3884   ,12.3300   ,1.75669   ,22.6581   ,13.1130   /
      DATA TBX(204,10)/92./
      DATA TBXC(205),TBX(205,1),TBX(205,2),TBX(205,3),TBX(205,4)
     *   /'PU  '   ,36.5254   ,.499384   ,23.8083   ,3.26371   /
      DATA TBX(205,5),TBX(205,6),TBX(205,7),TBX(205,8),TBX(205,9)
     *   / 16.7707   ,14.9455   ,3.47947   ,105.980   ,13.3812   /
      DATA TBX(205,10)/93./
      DATA TBXC(206),TBX(206,1),TBX(206,2),TBX(206,3),TBX(206,4)
     *   /'PU+3'   ,35.8400   ,.484938   ,22.7169   ,2.96118   /
      DATA TBX(206,5),TBX(206,6),TBX(206,7),TBX(206,8),TBX(206,9)
     *   / 13.5807   ,11.5331   ,5.66016   ,24.3992   ,13.1991   /
      DATA TBX(206,10)/93./
      DATA TBXC(207),TBX(207,1),TBX(207,2),TBX(207,3),TBX(207,4)
     *   /'PU+4'   ,35.6493   ,.481422   ,22.6460   ,2.89020   /
      DATA TBX(207,5),TBX(207,6),TBX(207,7),TBX(207,8),TBX(207,9)
     *   / 13.3595   ,11.3160   ,5.18831   ,21.8301   ,13.1555   /
      DATA TBX(207,10)/93./
      DATA TBXC(208),TBX(208,1),TBX(208,2),TBX(208,3),TBX(208,4)
     *   /'PU+6'   ,35.1736   ,.473204   ,22.7181   ,2.73848   /
      DATA TBX(208,5),TBX(208,6),TBX(208,7),TBX(208,8),TBX(208,9)
     *   / 14.7635   ,11.5530   ,2.28678   ,20.9303   ,13.0582   /
      DATA TBX(208,10)/93./
      DATA TBXC(209),TBX(209,1),TBX(209,2),TBX(209,3),TBX(209,4)
     *   /'AM  '   ,36.6706   ,.483629   ,24.0992   ,3.20647   /
      DATA TBX(209,5),TBX(209,6),TBX(209,7),TBX(209,8),TBX(209,9)
     *   / 17.3415   ,14.3136   ,3.49331   ,102.273   ,13.3592   /
      DATA TBX(209,10)/94./
      DATA TBXC(210),TBX(210,1),TBX(210,2),TBX(210,3),TBX(210,4)
     *   /'CM  '   ,36.6488   ,.465154   ,24.4096   ,3.08997   /
      DATA TBX(210,5),TBX(210,6),TBX(210,7),TBX(210,8),TBX(210,9)
     *   / 17.3990   ,13.4346   ,4.21665   ,88.4834   ,13.2887   /
      DATA TBX(210,10)/95./
      DATA TBXC(211),TBX(211,1),TBX(211,2),TBX(211,3),TBX(211,4)
     *   /'BK  '   ,36.7881   ,.451018   ,24.7736   ,3.04619   /
      DATA TBX(211,5),TBX(211,6),TBX(211,7),TBX(211,8),TBX(211,9)
     *   / 17.8919   ,12.8946   ,4.23284   ,86.0030   ,13.2754   /
      DATA TBX(211,10)/96./
      DATA TBXC(212),TBX(212,1),TBX(212,2),TBX(212,3),TBX(212,4)
     *   /'CF  '   ,36.9185   ,.437533   ,25.1995   ,3.00775   /
      DATA TBX(212,5),TBX(212,6),TBX(212,7),TBX(212,8),TBX(212,9)
     *   / 18.3317   ,12.4044   ,4.24391   ,83.7881   ,13.2674   /
      DATA TBX(212,10)/97./
      DATA TBXC(213),TBX(213,1),TBX(213,2),TBX(213,3),TBX(213,4)
     *   /'O-2 '   ,3.75040   ,16.5151   ,2.84294   ,6.59203   /
      DATA TBX(213,5),TBX(213,6),TBX(213,7),TBX(213,8),TBX(213,9)
     *   / 1.54298   ,0.319201  ,1.62091   ,43.3486   ,0.242060  /
      DATA TBX(213,10)/7./
      END
