program IEHI C C "Ionization Equilibrium for Heavy Ions", by Steven R. Cranmer, 1999 C C This Fortran code and its sample output are distributed freely, but C if you use it for original research, please acknowledge the source C (i.e., the paper "Ion Cyclotron Wave Dissipation in the Solar C Corona: The Summed Effect of More than 2000 Ion Species," by C S. R. Cranmer [2000], ApJ, 532, 1197) in any publications. C C The output of this code is a simple "coronal" ionization equilibrium C (i.e., collisional ionization and autoionization balanced by C radiative and dielectronic recombination) for a plasma at a given C electron temperature. It is highly recommended that anyone who C uses this code have some understanding of how it works; this C should not be a "black box!" C C I gratefully acknowledge the use of several public sources of data C and Fortran subroutines from the following: C C cfit, rrfit: from Dima Verner at the University of Kentucky; C see http://www.pa.uky.edu/~verner/atom.html C dfit: tables from Mazzotta et al. (1998), A&AS 133, 403 C aufit: tables from Landini & Monsignori Fossi (1990), A&AS 82, 229 C expint: from NIST web site: http://gams.nist.gov/ C C (More details are in comments at the start of each subroutine.) C C INPUTS: none (parameters defined in data statements) C OUTPUTS: table of abundances and/or ionization fractions to C Fortran standard output (unit 6) C C------------------------------------------------------------------------- implicit real*8 (a-h,o-z) real*8 frac(0:92),Ael(92),alogEL(92),alogION(0:92) character*2 elname(92) common/CF/CF(5,28,28) common/CH/CH(5,92,92) C Initialize data files with element names, atomic weights, and C elemental abundances from Grevesse and Sauval (1998, Space Sci. C Rev., 85, 161). alogEL is 12 + log_10 (N_el/N_H), and if it C is set to -99.0, then this element has no reliable abundance C and is excluded from the computations. data elname / 'H ','He','Li','Be','B ','C ','N ','O ', > 'F ','Ne','Na','Mg','Al','Si','P ','S ','Cl','Ar', > 'K ','Ca','Sc','Ti','V ','Cr','Mn','Fe','Co','Ni', > 'Cu','Zn','Ga','Ge','As','Se','Br','Kr','Rb','Sr', > 'Y ','Zr','Nb','Mo','Tc','Ru','Rh','Pd','Ag','Cd', > 'In','Sn','Sb','Te','I ','Xe','Cs','Ba','La','Ce', > 'Pr','Nd','Pm','Sm','Eu','Gd','Tb','Dy','Ho','Er', > 'Tm','Yb','Lu','Hf','Ta','W ','Re','Os','Ir','Pt', > 'Au','Hg','Tl','Pb','Bi','Po','At','Rn','Fr','Ra', > 'Ac','Th','Pa','U ' / data Ael / 1.000, 4.003, 6.939, 9.012, 10.810, 12.010, > 14.010, 16.000, 19.000, 20.180, 22.990, 24.310, 26.980, > 28.090, 30.970, 32.060, 35.450, 39.950, 39.100, 40.080, > 44.960, 47.900, 50.940, 52.000, 54.940, 55.850, 58.930, > 58.710, 63.540, 65.370, 69.720, 72.590, 74.920, 78.960, > 79.910, 83.800, 85.470, 87.620, 88.910, 91.220, 92.910, > 95.940, 99.000,101.100,102.900,106.400,107.900,112.400, > 114.800,118.700,121.800,127.600,126.900,131.300,132.900, > 137.300,138.900,140.100,140.900,144.200,147.000,150.400, > 152.000,157.300,158.900,162.500,164.900,167.300,168.900, > 173.000,175.000,178.500,180.900,183.900,186.200,190.200, > 192.200,195.100,197.000,200.600,204.400,207.200,209.000, > 210.000,210.000,222.000,223.000,226.000,227.000,232.000, > 231.000,238.000 / data alogEL /12.00,10.93,1.100,1.400,2.550,8.520,7.920, > 8.830,4.560,8.080,6.330,7.580,6.470,7.550,5.450,7.330, > 5.500,6.400,5.120,6.360,3.170,5.020,4.000,5.670,5.390, > 7.500,4.920,6.250,4.210,4.600,2.880,3.410,2.370,3.410, > 2.630,3.310,2.600,2.970,2.240,2.600,1.420,1.970,-99.0, > 1.840,1.120,1.690,0.940,1.770,1.660,2.000,1.000,2.240, > 1.510,2.170,1.130,2.130,1.170,1.580,0.710,1.500,-99.0, > 1.010,0.510,1.120,-0.10,1.140,0.260,0.930,0.000,1.080, > 0.060,0.880,-0.13,1.110,0.280,1.450,1.350,1.800,1.010, > 1.130,0.900,1.950,0.710,-99.0,-99.0,-99.0,-99.0,-99.0, > -99.0,0.090,-99.0,-0.50 / C Define the electron temperature (in K) for this calculation. data Te / 1.0d6 / C Begin the main program loop over all elements, and skip over C elements with negligible solar/meteoritic abundances. do 10 iZel = 1,92 if (alogEL(iZel).eq.-99.0) goto 10 C Compute relative ionization fractions for each pair of species. C The variables and subroutines starting with C, R, D, A denote C Collisional ioniz., Radiative recomb., Dielectronic recomb., C and Autoionization, respectively. frac(0) = 1.0d-40 totfrac = frac(0) do 100 iZ = 0,iZel-1 inel = iZel - iZ if (iZel.le.28) then call cfit (iZel,inel,Te,CCC) call rrfit(iZel,inel,Te,RRR) call dfit (iZel,inel,Te,DDD) call aufit(iZel,inel,Te,AAA) else call cheavy (iZel,inel,Te,CCC) call rrheavy(iZel,inel,Te,RRR) call dheavy (iZel,inel,Te,DDD) AAA = 0.0 end if frac(iZ+1) = frac(iZ) * (CCC+AAA)/(RRR+DDD) totfrac = totfrac + frac(iZ+1) 100 continue C Normalize ionization fractions to unity, and define the C logarithmic ionization fraction alogION. do 200 i = 0,iZel frac(i) = frac(i) / totfrac if (frac(i).lt.1.0d-200) then alogION(i) = 200.0 else alogION(i) = -log10(frac(i)) end if 200 continue C Take account of the FIP effect in the HIGH-SPEED component of C the solar wind (see von Steiger et al. 1995, Adv. Space Res., C 15 [no. 7], 3). if (iZel.le.28) then fip = CF(1,iZel,iZel) else fip = CH(1,iZel,iZel) end if efipmult = 1.00 if (fip.lt.12.0) efipmult = 1.60 if (fip.gt.24.0) efipmult = 0.53 C OUTPUT: default is loop 300, that outputs total logarithmic C abundance (i.e., -log_10(N_ion / N_proton)) for all ions, but C if you want the elemental, ionization, and FIP quantities to C be output separately, use loop 400 (commented out as default). C Loop 300: outputs element name, atomic number, atomic weight, C ionic charge, and total logarithmic abundance. do 300 i=0,iZel alogTOT = alogION(i) + 12.0 - alogEL(iZel) alogTOT = alogTOT - log10(efipmult) Zel = iZel zi = i write(6,333) elname(iZel),Zel,Ael(iZel),zi,alogTOT 333 format(a2,f5.0,f9.3,f7.0,f13.6) 300 continue C Loop 400: outputs element name, atomic number, atomic weight, C ionic charge, elemental abundance, ionization fraction, and C FIP multiplicative enhancement. C C do 400 i=0,iZel C Zel = iZel C zi = i C write(6,444) elname(iZel),Zel,Ael(iZel),zi,alogEL(iZel), C > alogION(i),efipmult 444 format(a2,f5.0,f9.3,f7.0,f11.4,f10.3,f9.2) 400 continue 10 continue end subroutine cfit (iz,in,t,c) C***************************************************************************** C SEE: http://www.pa.uky.edu/~verner/col.html C C Version 2, March 24, 1997 C C** This subroutine calculates rates of direct collisional ionization C** for all ionization stages of all elements from H to Ni (Z=28) C** by use of the fits from G. S. Voronov, 1997, ADNDT, 65, 1 C** Input parameters: iz - atomic number C** in - number of electrons from 1 to iz C** t - temperature, K C** Output parameter: c - rate coefficient, cm^3 s^(-1) C***************************************************************************** implicit real*8 (a-h,o-z) common/CF/CF(5,28,28) c=0.0 if(iz.lt.1.or.iz.gt.28)return if(in.lt.1.or.in.gt.iz)return te=t*8.617385d-05 u=cf(1,iz,in)/te c=cf(3,iz,in)*(1.0+cf(2,iz,in)*sqrt(u))/(cf(4,iz,in)+u)* *u**cf(5,iz,in)*exp(-u) return end C******************************************** block data cifit implicit real*8 (a-h,o-z) common/CF/CF(5,28,28) DATA(CF(I, 1, 1),I=1,5)/ 13.6,0.,2.91D-08,0.2320,0.39/ DATA(CF(I, 2, 2),I=1,5)/ 24.6,0.,1.75D-08,0.1800,0.35/ DATA(CF(I, 2, 1),I=1,5)/ 54.4,1.,2.05D-09,0.2650,0.25/ DATA(CF(I, 3, 3),I=1,5)/ 5.4,0.,1.39D-07,0.4380,0.41/ DATA(CF(I, 3, 2),I=1,5)/ 75.6,1.,2.01D-09,0.2090,0.23/ DATA(CF(I, 3, 1),I=1,5)/ 122.4,1.,9.60D-10,0.5820,0.17/ DATA(CF(I, 4, 4),I=1,5)/ 9.3,0.,1.02D-07,0.3750,0.27/ DATA(CF(I, 4, 3),I=1,5)/ 18.2,1.,2.08D-08,0.4390,0.21/ DATA(CF(I, 4, 2),I=1,5)/ 153.9,0.,2.67D-09,0.6120,0.27/ DATA(CF(I, 4, 1),I=1,5)/ 217.7,1.,4.27D-10,0.6580,0.15/ DATA(CF(I, 5, 5),I=1,5)/ 8.3,0.,6.49D-08,0.2000,0.26/ DATA(CF(I, 5, 4),I=1,5)/ 25.2,1.,1.24D-08,0.2670,0.22/ DATA(CF(I, 5, 3),I=1,5)/ 37.9,1.,3.27D-09,0.2950,0.23/ DATA(CF(I, 5, 2),I=1,5)/ 259.4,1.,4.95D-10,0.4890,0.09/ DATA(CF(I, 5, 1),I=1,5)/ 340.2,1.,2.19D-10,0.6570,0.15/ DATA(CF(I, 6, 6),I=1,5)/ 11.3,0.,6.85D-08,0.1930,0.25/ DATA(CF(I, 6, 5),I=1,5)/ 24.4,1.,1.86D-08,0.2860,0.24/ DATA(CF(I, 6, 4),I=1,5)/ 47.9,1.,6.35D-09,0.4270,0.21/ DATA(CF(I, 6, 3),I=1,5)/ 64.5,1.,1.50D-09,0.4160,0.13/ DATA(CF(I, 6, 2),I=1,5)/ 392.1,1.,2.99D-10,0.6660,0.02/ DATA(CF(I, 6, 1),I=1,5)/ 490.0,1.,1.23D-10,0.6200,0.16/ DATA(CF(I, 7, 7),I=1,5)/ 14.5,0.,4.82D-08,0.0652,0.42/ DATA(CF(I, 7, 6),I=1,5)/ 29.6,0.,2.98D-08,0.3100,0.30/ DATA(CF(I, 7, 5),I=1,5)/ 47.5,1.,8.10D-09,0.3500,0.24/ DATA(CF(I, 7, 4),I=1,5)/ 77.5,1.,3.71D-09,0.5490,0.18/ DATA(CF(I, 7, 3),I=1,5)/ 97.9,0.,1.51D-09,0.0167,0.74/ DATA(CF(I, 7, 2),I=1,5)/ 552.1,0.,3.71D-10,0.5460,0.29/ DATA(CF(I, 7, 1),I=1,5)/ 667.0,1.,7.77D-11,0.6240,0.16/ DATA(CF(I, 8, 8),I=1,5)/ 13.6,0.,3.59D-08,0.0730,0.34/ DATA(CF(I, 8, 7),I=1,5)/ 35.1,1.,1.39D-08,0.2120,0.22/ DATA(CF(I, 8, 6),I=1,5)/ 54.9,1.,9.31D-09,0.2700,0.27/ DATA(CF(I, 8, 5),I=1,5)/ 77.4,0.,1.02D-08,0.6140,0.27/ DATA(CF(I, 8, 4),I=1,5)/ 113.9,1.,2.19D-09,0.6300,0.17/ DATA(CF(I, 8, 3),I=1,5)/ 138.1,0.,1.95D-09,0.3600,0.54/ DATA(CF(I, 8, 2),I=1,5)/ 739.3,0.,2.12D-10,0.3960,0.35/ DATA(CF(I, 8, 1),I=1,5)/ 871.4,1.,5.21D-11,0.6290,0.16/ DATA(CF(I, 9, 9),I=1,5)/ 17.4,1.,7.00D-08,0.1780,0.29/ DATA(CF(I, 9, 8),I=1,5)/ 35.0,0.,5.41D-08,0.5710,0.27/ DATA(CF(I, 9, 7),I=1,5)/ 62.7,1.,9.37D-09,0.3190,0.20/ DATA(CF(I, 9, 6),I=1,5)/ 87.1,1.,4.92D-09,0.3230,0.24/ DATA(CF(I, 9, 5),I=1,5)/ 114.2,0.,7.06D-09,0.6840,0.27/ DATA(CF(I, 9, 4),I=1,5)/ 157.2,1.,1.28D-09,0.6480,0.16/ DATA(CF(I, 9, 3),I=1,5)/ 185.2,1.,5.61D-10,0.7380,0.16/ DATA(CF(I, 9, 2),I=1,5)/ 953.9,0.,1.66D-10,0.5420,0.29/ DATA(CF(I, 9, 1),I=1,5)/ 1103.1,1.,3.74D-11,0.6590,0.15/ DATA(CF(I,10,10),I=1,5)/ 21.6,1.,1.50D-08,0.0329,0.43/ DATA(CF(I,10, 9),I=1,5)/ 41.0,0.,1.98D-08,0.2950,0.20/ DATA(CF(I,10, 8),I=1,5)/ 63.5,1.,7.03D-09,0.0677,0.39/ DATA(CF(I,10, 7),I=1,5)/ 97.1,1.,4.24D-09,0.0482,0.58/ DATA(CF(I,10, 6),I=1,5)/ 126.2,1.,2.79D-09,0.3050,0.25/ DATA(CF(I,10, 5),I=1,5)/ 157.9,0.,3.45D-09,0.5810,0.28/ DATA(CF(I,10, 4),I=1,5)/ 207.3,1.,9.56D-10,0.7490,0.14/ DATA(CF(I,10, 3),I=1,5)/ 239.1,1.,4.73D-10,0.9920,0.04/ DATA(CF(I,10, 2),I=1,5)/ 1196.0,1.,3.92D-11,0.2620,0.20/ DATA(CF(I,10, 1),I=1,5)/ 1360.6,1.,2.77D-11,0.6610,0.13/ DATA(CF(I,11,11),I=1,5)/ 5.1,1.,1.01D-07,0.2750,0.23/ DATA(CF(I,11,10),I=1,5)/ 47.3,1.,7.35D-09,0.0560,0.35/ DATA(CF(I,11, 9),I=1,5)/ 71.6,1.,8.10D-09,0.1480,0.32/ DATA(CF(I,11, 8),I=1,5)/ 98.9,0.,1.14D-08,0.5530,0.28/ DATA(CF(I,11, 7),I=1,5)/ 138.4,1.,2.63D-09,0.2300,0.29/ DATA(CF(I,11, 6),I=1,5)/ 172.2,1.,1.85D-09,0.3630,0.22/ DATA(CF(I,11, 5),I=1,5)/ 208.5,0.,2.82D-09,0.6740,0.27/ DATA(CF(I,11, 4),I=1,5)/ 264.2,1.,6.72D-10,0.7520,0.14/ DATA(CF(I,11, 3),I=1,5)/ 299.9,1.,2.80D-10,0.7810,0.15/ DATA(CF(I,11, 2),I=1,5)/ 1465.1,1.,4.63D-11,0.5580,0.16/ DATA(CF(I,11, 1),I=1,5)/ 1648.7,1.,2.16D-11,0.7430,0.13/ DATA(CF(I,12,12),I=1,5)/ 7.6,0.,6.21D-07,0.5920,0.39/ DATA(CF(I,12,11),I=1,5)/ 15.2,0.,1.92D-08,0.0027,0.85/ DATA(CF(I,12,10),I=1,5)/ 80.1,1.,5.56D-09,0.1070,0.30/ DATA(CF(I,12, 9),I=1,5)/ 109.3,1.,4.35D-09,0.1590,0.31/ DATA(CF(I,12, 8),I=1,5)/ 141.3,0.,7.10D-09,0.6580,0.25/ DATA(CF(I,12, 7),I=1,5)/ 186.5,1.,1.70D-09,0.2420,0.28/ DATA(CF(I,12, 6),I=1,5)/ 224.9,1.,1.22D-09,0.3430,0.23/ DATA(CF(I,12, 5),I=1,5)/ 266.0,0.,2.20D-09,0.8970,0.22/ DATA(CF(I,12, 4),I=1,5)/ 328.2,1.,4.86D-10,0.7510,0.14/ DATA(CF(I,12, 3),I=1,5)/ 367.5,1.,2.35D-10,1.0300,0.10/ DATA(CF(I,12, 2),I=1,5)/ 1761.8,1.,2.06D-11,0.1960,0.25/ DATA(CF(I,12, 1),I=1,5)/ 1962.7,1.,1.75D-11,0.8350,0.11/ DATA(CF(I,13,13),I=1,5)/ 6.0,1.,2.28D-07,0.3870,0.25/ DATA(CF(I,13,12),I=1,5)/ 18.8,0.,1.18D-07,2.2100,0.25/ DATA(CF(I,13,11),I=1,5)/ 28.5,1.,4.40D-09,0.1060,0.24/ DATA(CF(I,13,10),I=1,5)/ 120.0,0.,1.75D-08,0.8720,0.22/ DATA(CF(I,13, 9),I=1,5)/ 153.8,1.,2.61D-09,0.1590,0.31/ DATA(CF(I,13, 8),I=1,5)/ 198.5,1.,1.85D-09,0.1520,0.36/ DATA(CF(I,13, 7),I=1,5)/ 241.4,1.,1.14D-09,0.2280,0.29/ DATA(CF(I,13, 6),I=1,5)/ 284.6,1.,8.00D-10,0.4170,0.16/ DATA(CF(I,13, 5),I=1,5)/ 390.2,1.,5.83D-10,0.4970,0.23/ DATA(CF(I,13, 4),I=1,5)/ 399.4,0.,4.93D-10,0.7060,0.16/ DATA(CF(I,13, 3),I=1,5)/ 442.0,1.,9.77D-11,0.2780,0.17/ DATA(CF(I,13, 2),I=1,5)/ 2086.6,0.,3.94D-11,0.2860,0.36/ DATA(CF(I,13, 1),I=1,5)/ 2304.1,1.,1.38D-11,0.8350,0.11/ DATA(CF(I,14,14),I=1,5)/ 8.2,1.,1.88D-07,0.3760,0.25/ DATA(CF(I,14,13),I=1,5)/ 16.4,1.,6.43D-08,0.6320,0.20/ DATA(CF(I,14,12),I=1,5)/ 33.5,1.,2.01D-08,0.4730,0.22/ DATA(CF(I,14,11),I=1,5)/ 54.0,1.,4.94D-09,0.1720,0.23/ DATA(CF(I,14,10),I=1,5)/ 166.8,1.,1.76D-09,0.1020,0.31/ DATA(CF(I,14, 9),I=1,5)/ 205.3,1.,1.74D-09,0.1800,0.29/ DATA(CF(I,14, 8),I=1,5)/ 246.5,1.,1.23D-09,0.5180,0.07/ DATA(CF(I,14, 7),I=1,5)/ 303.5,1.,8.27D-10,0.2390,0.28/ DATA(CF(I,14, 6),I=1,5)/ 351.1,1.,6.01D-10,0.3050,0.25/ DATA(CF(I,14, 5),I=1,5)/ 401.4,1.,4.65D-10,0.6660,0.04/ DATA(CF(I,14, 4),I=1,5)/ 476.4,1.,2.63D-10,0.6660,0.16/ DATA(CF(I,14, 3),I=1,5)/ 523.5,1.,1.18D-10,0.7340,0.16/ DATA(CF(I,14, 2),I=1,5)/ 2437.7,0.,3.36D-11,0.3360,0.37/ DATA(CF(I,14, 1),I=1,5)/ 2673.2,1.,1.19D-11,0.9890,0.08/ DATA(CF(I,15,15),I=1,5)/ 10.5,1.,1.99D-07,0.5350,0.24/ DATA(CF(I,15,14),I=1,5)/ 19.8,1.,5.88D-08,0.5370,0.21/ DATA(CF(I,15,13),I=1,5)/ 30.2,1.,2.96D-08,0.8650,0.16/ DATA(CF(I,15,12),I=1,5)/ 51.4,1.,1.01D-08,0.5460,0.20/ DATA(CF(I,15,11),I=1,5)/ 65.0,1.,2.36D-09,0.1920,0.17/ DATA(CF(I,15,10),I=1,5)/ 220.4,0.,6.66D-09,1.0000,0.18/ DATA(CF(I,15, 9),I=1,5)/ 263.2,1.,1.24D-09,0.2150,0.26/ DATA(CF(I,15, 8),I=1,5)/ 309.4,0.,2.27D-09,0.7340,0.23/ DATA(CF(I,15, 7),I=1,5)/ 371.7,1.,6.14D-10,0.2560,0.27/ DATA(CF(I,15, 6),I=1,5)/ 424.5,1.,4.69D-10,0.3420,0.23/ DATA(CF(I,15, 5),I=1,5)/ 479.6,0.,6.14D-10,0.3340,0.39/ DATA(CF(I,15, 4),I=1,5)/ 560.4,0.,3.22D-10,0.8500,0.12/ DATA(CF(I,15, 3),I=1,5)/ 611.9,1.,9.32D-11,0.7340,0.16/ DATA(CF(I,15, 2),I=1,5)/ 2816.9,0.,3.79D-11,0.8050,0.22/ DATA(CF(I,15, 1),I=1,5)/ 3069.9,1.,9.73D-12,0.9910,0.08/ DATA(CF(I,16,16),I=1,5)/ 10.4,1.,5.49D-08,0.1000,0.25/ DATA(CF(I,16,15),I=1,5)/ 23.3,1.,6.81D-08,0.6930,0.21/ DATA(CF(I,16,14),I=1,5)/ 34.8,1.,2.14D-08,0.3530,0.24/ DATA(CF(I,16,13),I=1,5)/ 47.3,1.,1.66D-08,1.0300,0.14/ DATA(CF(I,16,12),I=1,5)/ 72.6,1.,6.12D-09,0.5800,0.19/ DATA(CF(I,16,11),I=1,5)/ 88.1,1.,1.33D-09,0.0688,0.35/ DATA(CF(I,16,10),I=1,5)/ 280.9,0.,4.93D-09,1.1300,0.16/ DATA(CF(I,16, 9),I=1,5)/ 328.2,1.,8.73D-10,0.1930,0.28/ DATA(CF(I,16, 8),I=1,5)/ 379.1,0.,1.35D-09,0.4310,0.32/ DATA(CF(I,16, 7),I=1,5)/ 447.1,1.,4.59D-10,0.2420,0.28/ DATA(CF(I,16, 6),I=1,5)/ 504.8,1.,3.49D-10,0.3050,0.25/ DATA(CF(I,16, 5),I=1,5)/ 564.7,0.,5.23D-10,0.4280,0.35/ DATA(CF(I,16, 4),I=1,5)/ 651.6,0.,2.59D-10,0.8540,0.12/ DATA(CF(I,16, 3),I=1,5)/ 707.2,1.,7.50D-11,0.7340,0.16/ DATA(CF(I,16, 2),I=1,5)/ 3223.9,0.,2.67D-11,0.5720,0.28/ DATA(CF(I,16, 1),I=1,5)/ 3494.2,1.,6.32D-12,0.5850,0.17/ DATA(CF(I,17,17),I=1,5)/ 13.0,1.,1.69D-07,0.4300,0.24/ DATA(CF(I,17,16),I=1,5)/ 23.8,1.,6.96D-08,0.6700,0.20/ DATA(CF(I,17,15),I=1,5)/ 39.6,1.,3.40D-08,0.8650,0.18/ DATA(CF(I,17,14),I=1,5)/ 53.5,1.,1.10D-08,0.3280,0.25/ DATA(CF(I,17,13),I=1,5)/ 67.8,1.,1.11D-08,1.3700,0.10/ DATA(CF(I,17,12),I=1,5)/ 97.0,1.,3.17D-09,0.3300,0.24/ DATA(CF(I,17,11),I=1,5)/ 114.2,1.,1.01D-09,0.1960,0.16/ DATA(CF(I,17,10),I=1,5)/ 348.3,0.,2.11D-09,0.3130,0.37/ DATA(CF(I,17, 9),I=1,5)/ 400.1,1.,6.32D-10,0.1730,0.30/ DATA(CF(I,17, 8),I=1,5)/ 455.6,0.,9.48D-10,0.3440,0.36/ DATA(CF(I,17, 7),I=1,5)/ 529.3,1.,3.69D-10,0.2730,0.26/ DATA(CF(I,17, 6),I=1,5)/ 592.0,1.,2.85D-10,0.3430,0.23/ DATA(CF(I,17, 5),I=1,5)/ 656.7,0.,4.81D-10,0.6580,0.27/ DATA(CF(I,17, 4),I=1,5)/ 749.8,1.,1.31D-10,0.6230,0.16/ DATA(CF(I,17, 3),I=1,5)/ 809.4,1.,6.13D-11,0.7360,0.16/ DATA(CF(I,17, 2),I=1,5)/ 3658.4,0.,1.90D-11,0.3790,0.36/ DATA(CF(I,17, 1),I=1,5)/ 3946.3,1.,5.14D-12,0.5530,0.18/ DATA(CF(I,18,18),I=1,5)/ 15.8,1.,5.99D-08,0.1360,0.26/ DATA(CF(I,18,17),I=1,5)/ 27.6,1.,6.07D-08,0.5440,0.21/ DATA(CF(I,18,16),I=1,5)/ 40.9,1.,3.43D-08,0.8340,0.17/ DATA(CF(I,18,15),I=1,5)/ 52.3,0.,3.00D-08,1.0300,0.25/ DATA(CF(I,18,14),I=1,5)/ 75.0,1.,8.73D-09,0.3660,0.31/ DATA(CF(I,18,13),I=1,5)/ 91.0,1.,5.78D-09,0.3140,0.34/ DATA(CF(I,18,12),I=1,5)/ 124.3,1.,2.98D-09,0.7030,0.16/ DATA(CF(I,18,11),I=1,5)/ 143.5,1.,7.25D-10,0.2070,0.15/ DATA(CF(I,18,10),I=1,5)/ 422.4,1.,1.40D-09,0.6960,0.13/ DATA(CF(I,18, 9),I=1,5)/ 478.7,1.,4.78D-10,0.1640,0.31/ DATA(CF(I,18, 8),I=1,5)/ 539.0,0.,8.02D-10,0.4390,0.32/ DATA(CF(I,18, 7),I=1,5)/ 618.3,1.,2.88D-10,0.2590,0.27/ DATA(CF(I,18, 6),I=1,5)/ 686.1,1.,2.32D-10,0.3620,0.22/ DATA(CF(I,18, 5),I=1,5)/ 755.7,0.,3.33D-10,0.4120,0.36/ DATA(CF(I,18, 4),I=1,5)/ 854.8,1.,1.27D-10,0.9100,0.13/ DATA(CF(I,18, 3),I=1,5)/ 918.0,1.,5.21D-11,0.7810,0.15/ DATA(CF(I,18, 2),I=1,5)/ 4120.7,0.,1.66D-11,0.4350,0.33/ DATA(CF(I,18, 1),I=1,5)/ 4426.2,1.,4.32D-12,0.5540,0.18/ DATA(CF(I,19,19),I=1,5)/ 4.3,1.,2.02D-07,0.2720,0.31/ DATA(CF(I,19,18),I=1,5)/ 31.6,1.,4.01D-08,0.3710,0.22/ DATA(CF(I,19,17),I=1,5)/ 45.8,1.,1.50D-08,0.4330,0.21/ DATA(CF(I,19,16),I=1,5)/ 60.9,1.,1.94D-08,0.8890,0.16/ DATA(CF(I,19,15),I=1,5)/ 82.7,1.,6.95D-09,0.4940,0.18/ DATA(CF(I,19,14),I=1,5)/ 99.4,1.,4.11D-09,0.5400,0.17/ DATA(CF(I,19,13),I=1,5)/ 117.6,1.,2.23D-09,0.5190,0.16/ DATA(CF(I,19,12),I=1,5)/ 154.7,1.,2.15D-09,0.8280,0.14/ DATA(CF(I,19,11),I=1,5)/ 175.8,0.,1.61D-09,0.6420,0.13/ DATA(CF(I,19,10),I=1,5)/ 504.0,1.,1.07D-09,0.6950,0.13/ DATA(CF(I,19, 9),I=1,5)/ 564.7,1.,3.78D-10,0.1730,0.30/ DATA(CF(I,19, 8),I=1,5)/ 629.4,0.,6.24D-10,0.4180,0.33/ DATA(CF(I,19, 7),I=1,5)/ 714.6,1.,2.29D-10,0.2450,0.28/ DATA(CF(I,19, 6),I=1,5)/ 786.6,1.,1.86D-10,0.3440,0.23/ DATA(CF(I,19, 5),I=1,5)/ 861.1,0.,2.69D-10,0.3960,0.37/ DATA(CF(I,19, 4),I=1,5)/ 968.0,1.,1.06D-10,0.9120,0.13/ DATA(CF(I,19, 3),I=1,5)/ 1053.4,1.,4.24D-11,0.7370,0.16/ DATA(CF(I,19, 2),I=1,5)/ 4610.9,0.,1.38D-11,0.4160,0.34/ DATA(CF(I,19, 1),I=1,5)/ 4934.1,1.,3.67D-12,0.5550,0.18/ DATA(CF(I,20,20),I=1,5)/ 6.1,0.,4.40D-07,0.8480,0.33/ DATA(CF(I,20,19),I=1,5)/ 11.9,0.,5.22D-08,0.1510,0.34/ DATA(CF(I,20,18),I=1,5)/ 50.9,1.,2.06D-08,0.4180,0.20/ DATA(CF(I,20,17),I=1,5)/ 67.3,1.,1.72D-08,0.6380,0.19/ DATA(CF(I,20,16),I=1,5)/ 84.5,1.,1.26D-08,1.0100,0.14/ DATA(CF(I,20,15),I=1,5)/ 108.8,1.,4.72D-09,0.5260,0.17/ DATA(CF(I,20,14),I=1,5)/ 127.2,1.,2.89D-09,0.5480,0.17/ DATA(CF(I,20,13),I=1,5)/ 147.2,1.,1.64D-09,0.5520,0.15/ DATA(CF(I,20,12),I=1,5)/ 188.3,1.,1.57D-09,0.7990,0.14/ DATA(CF(I,20,11),I=1,5)/ 211.3,1.,4.32D-10,0.2320,0.14/ DATA(CF(I,20,10),I=1,5)/ 591.9,0.,9.47D-10,0.3110,0.38/ DATA(CF(I,20, 9),I=1,5)/ 657.2,1.,2.98D-10,0.1630,0.31/ DATA(CF(I,20, 8),I=1,5)/ 726.6,0.,4.78D-10,0.3590,0.36/ DATA(CF(I,20, 7),I=1,5)/ 817.6,1.,1.86D-10,0.2440,0.28/ DATA(CF(I,20, 6),I=1,5)/ 894.5,1.,1.56D-10,0.3640,0.22/ DATA(CF(I,20, 5),I=1,5)/ 974.0,0.,2.16D-10,0.3570,0.39/ DATA(CF(I,20, 4),I=1,5)/ 1087.0,1.,7.70D-11,0.6550,0.15/ DATA(CF(I,20, 3),I=1,5)/ 1157.0,1.,3.58D-11,0.7360,0.16/ DATA(CF(I,20, 2),I=1,5)/ 5128.9,0.,1.28D-11,0.5200,0.30/ DATA(CF(I,20, 1),I=1,5)/ 5469.9,1.,3.08D-12,0.5280,0.19/ DATA(CF(I,21,21),I=1,5)/ 6.6,1.,3.16D-07,0.2040,0.28/ DATA(CF(I,21,20),I=1,5)/ 12.8,1.,8.61D-08,0.1810,0.25/ DATA(CF(I,21,19),I=1,5)/ 24.8,1.,5.08D-08,0.3570,0.24/ DATA(CF(I,21,18),I=1,5)/ 73.5,1.,1.00D-08,0.4530,0.15/ DATA(CF(I,21,17),I=1,5)/ 91.9,1.,6.76D-09,0.4600,0.15/ DATA(CF(I,21,16),I=1,5)/ 110.7,1.,5.27D-09,0.5610,0.17/ DATA(CF(I,21,15),I=1,5)/ 138.0,1.,3.40D-09,0.5600,0.16/ DATA(CF(I,21,14),I=1,5)/ 158.1,1.,2.18D-09,0.6120,0.15/ DATA(CF(I,21,13),I=1,5)/ 180.0,1.,1.26D-09,0.6100,0.14/ DATA(CF(I,21,12),I=1,5)/ 225.1,1.,1.24D-09,0.8520,0.13/ DATA(CF(I,21,11),I=1,5)/ 249.8,1.,3.62D-10,0.3490,0.05/ DATA(CF(I,21,10),I=1,5)/ 687.4,1.,5.52D-10,0.3750,0.28/ DATA(CF(I,21, 9),I=1,5)/ 756.7,1.,5.64D-10,0.8730,0.15/ DATA(CF(I,21, 8),I=1,5)/ 830.8,1.,4.50D-10,1.0500,0.13/ DATA(CF(I,21, 7),I=1,5)/ 927.5,1.,2.73D-10,0.8660,0.15/ DATA(CF(I,21, 6),I=1,5)/ 1009.0,1.,1.56D-10,0.7150,0.17/ DATA(CF(I,21, 5),I=1,5)/ 1094.0,0.,1.81D-10,1.1400,0.36/ DATA(CF(I,21, 4),I=1,5)/ 1213.0,1.,4.29D-11,0.7840,0.15/ DATA(CF(I,21, 3),I=1,5)/ 1288.0,0.,2.21D-11,0.0270,0.82/ DATA(CF(I,21, 2),I=1,5)/ 5674.9,1.,4.51D-12,0.9180,0.04/ DATA(CF(I,21, 1),I=1,5)/ 6033.8,0.,2.03D-12,0.0170,0.70/ DATA(CF(I,22,22),I=1,5)/ 6.8,1.,1.60D-07,0.3600,0.28/ DATA(CF(I,22,21),I=1,5)/ 13.6,0.,2.14D-07,0.8800,0.28/ DATA(CF(I,22,20),I=1,5)/ 27.5,1.,2.85D-08,0.2270,0.21/ DATA(CF(I,22,19),I=1,5)/ 43.3,1.,3.48D-08,0.3900,0.23/ DATA(CF(I,22,18),I=1,5)/ 99.3,1.,1.00D-08,0.5790,0.18/ DATA(CF(I,22,17),I=1,5)/ 119.5,1.,7.01D-09,0.6380,0.17/ DATA(CF(I,22,16),I=1,5)/ 140.8,1.,4.95D-09,0.7170,0.16/ DATA(CF(I,22,15),I=1,5)/ 170.4,1.,2.99D-09,0.6930,0.17/ DATA(CF(I,22,14),I=1,5)/ 192.1,1.,2.10D-09,0.7220,0.16/ DATA(CF(I,22,13),I=1,5)/ 215.9,1.,1.62D-09,0.7650,0.14/ DATA(CF(I,22,12),I=1,5)/ 265.0,1.,1.11D-09,0.8850,0.12/ DATA(CF(I,22,11),I=1,5)/ 291.5,0.,9.09D-10,0.9720,0.06/ DATA(CF(I,22,10),I=1,5)/ 787.8,1.,4.41D-10,0.3590,0.29/ DATA(CF(I,22, 9),I=1,5)/ 863.1,1.,4.39D-10,0.7810,0.17/ DATA(CF(I,22, 8),I=1,5)/ 941.9,1.,3.73D-10,1.0500,0.13/ DATA(CF(I,22, 7),I=1,5)/ 1044.0,1.,2.28D-10,0.8580,0.15/ DATA(CF(I,22, 6),I=1,5)/ 1131.0,1.,1.34D-10,0.7570,0.16/ DATA(CF(I,22, 5),I=1,5)/ 1221.0,0.,1.55D-10,1.1500,0.36/ DATA(CF(I,22, 4),I=1,5)/ 1346.0,1.,3.80D-11,0.8350,0.14/ DATA(CF(I,22, 3),I=1,5)/ 1426.0,0.,1.89D-11,0.0280,0.82/ DATA(CF(I,22, 2),I=1,5)/ 6249.1,1.,4.01D-12,0.9680,0.03/ DATA(CF(I,22, 1),I=1,5)/ 6625.0,1.,1.62D-12,0.6570,0.14/ DATA(CF(I,23,23),I=1,5)/ 6.7,0.,8.82D-07,0.3590,0.32/ DATA(CF(I,23,22),I=1,5)/ 14.7,0.,3.11D-07,0.4320,0.29/ DATA(CF(I,23,21),I=1,5)/ 29.3,1.,3.50D-08,0.2470,0.25/ DATA(CF(I,23,20),I=1,5)/ 46.7,0.,5.32D-08,1.1100,0.16/ DATA(CF(I,23,19),I=1,5)/ 65.3,1.,8.98D-09,0.1400,0.37/ DATA(CF(I,23,18),I=1,5)/ 128.1,1.,5.87D-09,0.5170,0.17/ DATA(CF(I,23,17),I=1,5)/ 150.6,1.,5.11D-09,0.6790,0.16/ DATA(CF(I,23,16),I=1,5)/ 173.4,1.,3.71D-09,0.7610,0.15/ DATA(CF(I,23,15),I=1,5)/ 205.8,1.,2.24D-09,0.7110,0.17/ DATA(CF(I,23,14),I=1,5)/ 230.5,1.,1.65D-09,0.7640,0.15/ DATA(CF(I,23,13),I=1,5)/ 256.0,1.,1.26D-09,0.7620,0.14/ DATA(CF(I,23,12),I=1,5)/ 308.0,1.,8.86D-10,0.8860,0.12/ DATA(CF(I,23,11),I=1,5)/ 336.3,0.,3.89D-10,0.1420,0.39/ DATA(CF(I,23,10),I=1,5)/ 896.0,1.,3.80D-10,0.4090,0.27/ DATA(CF(I,23, 9),I=1,5)/ 976.0,0.,4.84D-10,0.1730,0.57/ DATA(CF(I,23, 8),I=1,5)/ 1060.0,1.,2.49D-10,0.6500,0.14/ DATA(CF(I,23, 7),I=1,5)/ 1168.0,0.,5.91D-10,1.6100,0.18/ DATA(CF(I,23, 6),I=1,5)/ 1260.0,0.,5.02D-10,2.1200,0.15/ DATA(CF(I,23, 5),I=1,5)/ 1355.0,1.,5.38D-11,0.1370,0.40/ DATA(CF(I,23, 4),I=1,5)/ 1486.0,1.,5.56D-11,0.7080,0.10/ DATA(CF(I,23, 3),I=1,5)/ 1571.0,0.,2.84D-11,0.0240,0.79/ DATA(CF(I,23, 2),I=1,5)/ 6851.3,0.,2.54D-11,2.9200,0.09/ DATA(CF(I,23, 1),I=1,5)/ 7246.1,0.,1.32D-11,3.5100,0.07/ DATA(CF(I,24,24),I=1,5)/ 6.8,1.,1.03D-07,0.2170,0.27/ DATA(CF(I,24,23),I=1,5)/ 16.5,0.,2.45D-07,0.3810,0.32/ DATA(CF(I,24,22),I=1,5)/ 31.0,0.,1.09D-07,0.5180,0.27/ DATA(CF(I,24,21),I=1,5)/ 49.1,1.,1.52D-08,0.1820,0.30/ DATA(CF(I,24,20),I=1,5)/ 69.5,0.,3.25D-08,1.3600,0.13/ DATA(CF(I,24,19),I=1,5)/ 90.6,1.,5.50D-09,0.1430,0.37/ DATA(CF(I,24,18),I=1,5)/ 160.2,1.,5.13D-09,0.6570,0.16/ DATA(CF(I,24,17),I=1,5)/ 184.7,1.,3.85D-09,0.7220,0.15/ DATA(CF(I,24,16),I=1,5)/ 209.3,1.,2.81D-09,0.7590,0.15/ DATA(CF(I,24,15),I=1,5)/ 244.4,1.,1.76D-09,0.7320,0.16/ DATA(CF(I,24,14),I=1,5)/ 271.0,1.,1.30D-09,0.7640,0.15/ DATA(CF(I,24,13),I=1,5)/ 298.0,1.,1.02D-09,0.8100,0.13/ DATA(CF(I,24,12),I=1,5)/ 354.8,1.,7.19D-10,0.8870,0.12/ DATA(CF(I,24,11),I=1,5)/ 384.2,1.,1.61D-10,0.1500,0.22/ DATA(CF(I,24,10),I=1,5)/ 1011.0,1.,4.64D-10,0.9710,0.12/ DATA(CF(I,24, 9),I=1,5)/ 1097.0,1.,3.31D-10,0.9240,0.14/ DATA(CF(I,24, 8),I=1,5)/ 1185.0,1.,2.49D-10,0.9310,0.15/ DATA(CF(I,24, 7),I=1,5)/ 1299.0,1.,1.68D-10,0.9100,0.14/ DATA(CF(I,24, 6),I=1,5)/ 1396.0,1.,1.01D-10,0.8050,0.15/ DATA(CF(I,24, 5),I=1,5)/ 1496.0,0.,1.17D-10,1.2100,0.35/ DATA(CF(I,24, 4),I=1,5)/ 1634.0,1.,2.91D-11,0.8840,0.13/ DATA(CF(I,24, 3),I=1,5)/ 1721.0,0.,1.45D-11,0.0350,0.80/ DATA(CF(I,24, 2),I=1,5)/ 7482.0,1.,3.07D-12,0.9670,0.03/ DATA(CF(I,24, 1),I=1,5)/ 7894.8,1.,1.46D-12,0.1830,0.39/ DATA(CF(I,25,25),I=1,5)/ 7.4,1.,8.56D-08,0.1320,0.26/ DATA(CF(I,25,24),I=1,5)/ 15.6,0.,1.18D-07,0.3590,0.19/ DATA(CF(I,25,23),I=1,5)/ 33.7,0.,8.54D-08,0.3970,0.32/ DATA(CF(I,25,22),I=1,5)/ 51.2,1.,1.80D-08,0.2720,0.18/ DATA(CF(I,25,21),I=1,5)/ 72.4,1.,8.22D-09,0.1610,0.32/ DATA(CF(I,25,20),I=1,5)/ 95.0,0.,2.15D-08,1.5400,0.11/ DATA(CF(I,25,19),I=1,5)/ 119.3,1.,3.65D-09,0.1470,0.37/ DATA(CF(I,25,18),I=1,5)/ 194.5,1.,3.91D-09,0.6990,0.15/ DATA(CF(I,25,17),I=1,5)/ 221.8,1.,2.92D-09,0.7190,0.15/ DATA(CF(I,25,16),I=1,5)/ 248.3,1.,2.23D-09,0.8060,0.14/ DATA(CF(I,25,15),I=1,5)/ 286.0,1.,1.39D-09,0.7350,0.16/ DATA(CF(I,25,14),I=1,5)/ 314.4,1.,1.04D-09,0.7610,0.15/ DATA(CF(I,25,13),I=1,5)/ 343.6,1.,8.28D-10,0.8090,0.13/ DATA(CF(I,25,12),I=1,5)/ 403.0,1.,5.60D-10,0.7870,0.14/ DATA(CF(I,25,11),I=1,5)/ 435.2,1.,1.52D-10,0.2990,0.08/ DATA(CF(I,25,10),I=1,5)/ 1133.0,1.,4.03D-10,1.0400,0.11/ DATA(CF(I,25, 9),I=1,5)/ 1244.0,1.,2.74D-10,0.9230,0.14/ DATA(CF(I,25, 8),I=1,5)/ 1317.0,1.,2.18D-10,0.9900,0.14/ DATA(CF(I,25, 7),I=1,5)/ 1437.0,1.,1.49D-10,0.9680,0.13/ DATA(CF(I,25, 6),I=1,5)/ 1539.0,1.,8.70D-11,0.8020,0.15/ DATA(CF(I,25, 5),I=1,5)/ 1644.0,0.,1.02D-10,1.2200,0.35/ DATA(CF(I,25, 4),I=1,5)/ 1788.0,1.,2.54D-11,0.8830,0.13/ DATA(CF(I,25, 3),I=1,5)/ 1880.0,0.,1.28D-11,0.0330,0.81/ DATA(CF(I,25, 2),I=1,5)/ 8141.0,1.,2.77D-12,1.0100,0.02/ DATA(CF(I,25, 1),I=1,5)/ 8571.9,1.,1.32D-12,0.2190,0.37/ DATA(CF(I,26,26),I=1,5)/ 7.9,0.,2.52D-07,0.7010,0.25/ DATA(CF(I,26,25),I=1,5)/ 16.2,1.,2.21D-08,0.0330,0.45/ DATA(CF(I,26,24),I=1,5)/ 30.6,0.,4.10D-08,0.3660,0.17/ DATA(CF(I,26,23),I=1,5)/ 54.8,0.,3.53D-08,0.2430,0.39/ DATA(CF(I,26,22),I=1,5)/ 75.0,1.,1.04D-08,0.2850,0.17/ DATA(CF(I,26,21),I=1,5)/ 99.0,1.,1.23D-08,0.4110,0.21/ DATA(CF(I,26,20),I=1,5)/ 125.0,1.,9.47D-09,0.4580,0.21/ DATA(CF(I,26,19),I=1,5)/ 151.1,1.,4.71D-09,0.2800,0.28/ DATA(CF(I,26,18),I=1,5)/ 233.6,1.,3.02D-09,0.6970,0.15/ DATA(CF(I,26,17),I=1,5)/ 262.1,1.,2.34D-09,0.7640,0.14/ DATA(CF(I,26,16),I=1,5)/ 290.0,1.,1.76D-09,0.8050,0.14/ DATA(CF(I,26,15),I=1,5)/ 331.0,1.,1.14D-09,0.7730,0.15/ DATA(CF(I,26,14),I=1,5)/ 361.0,1.,8.66D-10,0.8050,0.14/ DATA(CF(I,26,13),I=1,5)/ 392.0,1.,6.61D-10,0.7620,0.14/ DATA(CF(I,26,12),I=1,5)/ 457.0,1.,4.41D-10,0.6980,0.16/ DATA(CF(I,26,11),I=1,5)/ 489.3,1.,1.18D-10,0.2110,0.15/ DATA(CF(I,26,10),I=1,5)/ 1262.0,1.,3.61D-10,1.1600,0.09/ DATA(CF(I,26, 9),I=1,5)/ 1360.0,1.,2.45D-10,0.9780,0.13/ DATA(CF(I,26, 8),I=1,5)/ 1470.0,1.,1.87D-10,0.9880,0.14/ DATA(CF(I,26, 7),I=1,5)/ 1582.0,1.,1.33D-10,1.0300,0.12/ DATA(CF(I,26, 6),I=1,5)/ 1690.0,1.,7.84D-11,0.8480,0.14/ DATA(CF(I,26, 5),I=1,5)/ 1800.0,0.,8.90D-11,1.2000,0.35/ DATA(CF(I,26, 4),I=1,5)/ 1960.0,1.,2.29D-11,0.9360,0.12/ DATA(CF(I,26, 3),I=1,5)/ 2046.0,0.,1.12D-11,0.0340,0.81/ DATA(CF(I,26, 2),I=1,5)/ 8828.0,1.,2.46D-12,1.0200,0.02/ DATA(CF(I,26, 1),I=1,5)/ 9277.7,1.,9.79D-13,0.6640,0.14/ DATA(CF(I,27,27),I=1,5)/ 7.9,1.,8.89D-08,0.1270,0.24/ DATA(CF(I,27,26),I=1,5)/ 17.1,1.,5.65D-08,0.1940,0.23/ DATA(CF(I,27,25),I=1,5)/ 33.5,1.,3.06D-08,0.2010,0.22/ DATA(CF(I,27,24),I=1,5)/ 51.3,0.,2.27D-08,0.5740,0.10/ DATA(CF(I,27,23),I=1,5)/ 79.5,0.,1.93D-08,0.1950,0.42/ DATA(CF(I,27,22),I=1,5)/ 102.0,0.,1.27D-08,0.1260,0.47/ DATA(CF(I,27,21),I=1,5)/ 129.0,1.,3.58D-09,0.1940,0.29/ DATA(CF(I,27,20),I=1,5)/ 158.0,0.,1.17D-08,1.9800,0.07/ DATA(CF(I,27,19),I=1,5)/ 186.1,1.,1.78D-09,0.1120,0.42/ DATA(CF(I,27,18),I=1,5)/ 275.0,1.,2.41D-09,0.7390,0.14/ DATA(CF(I,27,17),I=1,5)/ 305.0,1.,1.86D-09,0.7620,0.14/ DATA(CF(I,27,16),I=1,5)/ 336.0,1.,1.41D-09,0.8040,0.14/ DATA(CF(I,27,15),I=1,5)/ 379.0,1.,9.54D-10,0.8130,0.14/ DATA(CF(I,27,14),I=1,5)/ 411.0,1.,7.12D-10,0.8030,0.14/ DATA(CF(I,27,13),I=1,5)/ 444.0,1.,5.34D-10,0.7180,0.15/ DATA(CF(I,27,12),I=1,5)/ 512.0,1.,3.62D-10,0.6580,0.17/ DATA(CF(I,27,11),I=1,5)/ 546.6,1.,1.05D-10,0.2520,0.12/ DATA(CF(I,27,10),I=1,5)/ 1397.0,1.,3.10D-10,1.1700,0.09/ DATA(CF(I,27, 9),I=1,5)/ 1486.0,1.,1.56D-10,0.5720,0.15/ DATA(CF(I,27, 8),I=1,5)/ 1603.0,1.,1.32D-10,0.6820,0.13/ DATA(CF(I,27, 7),I=1,5)/ 1735.0,1.,9.08D-11,0.5110,0.17/ DATA(CF(I,27, 6),I=1,5)/ 1846.0,0.,3.45D-10,2.8400,0.11/ DATA(CF(I,27, 5),I=1,5)/ 1962.0,1.,5.01D-11,0.7140,0.11/ DATA(CF(I,27, 4),I=1,5)/ 2119.0,1.,1.92D-11,0.1170,0.42/ DATA(CF(I,27, 3),I=1,5)/ 2219.0,1.,1.95D-11,1.2000,0.00/ DATA(CF(I,27, 2),I=1,5)/ 9544.0,0.,1.68D-11,3.5200,0.05/ DATA(CF(I,27, 1),I=1,5)/10012.1,1.,1.45D-12,0.6350,0.15/ DATA(CF(I,28,28),I=1,5)/ 7.6,0.,1.65D-07,0.4520,0.28/ DATA(CF(I,28,27),I=1,5)/ 18.2,0.,8.42D-08,0.6190,0.16/ DATA(CF(I,28,26),I=1,5)/ 35.3,1.,1.89D-08,0.2200,0.21/ DATA(CF(I,28,25),I=1,5)/ 54.9,1.,1.48D-08,0.2160,0.21/ DATA(CF(I,28,24),I=1,5)/ 76.0,0.,1.13D-08,0.5180,0.09/ DATA(CF(I,28,23),I=1,5)/ 108.0,0.,1.16D-08,0.1850,0.44/ DATA(CF(I,28,22),I=1,5)/ 133.0,0.,8.68D-09,0.1380,0.46/ DATA(CF(I,28,21),I=1,5)/ 162.0,1.,2.45D-09,0.1630,0.32/ DATA(CF(I,28,20),I=1,5)/ 193.0,0.,9.24D-09,2.2500,0.05/ DATA(CF(I,28,19),I=1,5)/ 225.0,0.,2.41D-09,0.0270,0.79/ DATA(CF(I,28,18),I=1,5)/ 321.0,1.,1.92D-09,0.7380,0.14/ DATA(CF(I,28,17),I=1,5)/ 352.0,1.,1.50D-09,0.7610,0.14/ DATA(CF(I,28,16),I=1,5)/ 384.0,1.,1.16D-09,0.8030,0.14/ DATA(CF(I,28,15),I=1,5)/ 430.0,1.,8.08D-10,0.8560,0.13/ DATA(CF(I,28,14),I=1,5)/ 464.0,1.,6.09D-10,0.8500,0.13/ DATA(CF(I,28,13),I=1,5)/ 499.0,1.,4.48D-10,0.7180,0.15/ DATA(CF(I,28,12),I=1,5)/ 571.3,1.,3.00D-10,0.6220,0.18/ DATA(CF(I,28,11),I=1,5)/ 607.0,1.,7.90D-11,0.1600,0.19/ DATA(CF(I,28,10),I=1,5)/ 1541.0,1.,2.78D-10,1.2500,0.08/ DATA(CF(I,28, 9),I=1,5)/ 1648.0,1.,1.92D-10,1.0400,0.12/ DATA(CF(I,28, 8),I=1,5)/ 1756.0,1.,1.51D-10,1.1100,0.12/ DATA(CF(I,28, 7),I=1,5)/ 1894.0,1.,1.05D-10,1.0900,0.11/ DATA(CF(I,28, 6),I=1,5)/ 2011.0,1.,6.04D-11,0.8490,0.14/ DATA(CF(I,28, 5),I=1,5)/ 2131.0,0.,6.91D-11,1.2100,0.35/ DATA(CF(I,28, 4),I=1,5)/ 2295.0,1.,1.84D-11,0.9910,0.11/ DATA(CF(I,28, 3),I=1,5)/ 2399.0,0.,9.03D-12,0.0420,0.79/ DATA(CF(I,28, 2),I=1,5)/10290.0,1.,2.61D-12,0.5680,0.16/ DATA(CF(I,28, 1),I=1,5)/10775.3,1.,1.39D-12,0.7290,0.13/ end subroutine cheavy (iz,in,t,c) C***************************************************************************** C** approximate collision rates for heavy (Z>28) atoms and ions C** (see Cranmer 2000) C** C** Input parameters: iz - atomic number C** in - number of electrons from 1 to iz C** t - temperature, K C** Output parameter: c - rate coefficient, cm^3 s^(-1) C***************************************************************************** implicit real*8 (a-h,o-z) common/CH/CH(5,92,92) c=0.0 if(iz.lt.29.or.iz.gt.92)return if(in.lt.1.or.in.gt.iz)return te=t*8.617385d-05 u=CH(1,iz,in)/te c=CH(3,iz,in)*(1.0+CH(2,iz,in)*sqrt(u))/(CH(4,iz,in)+u)* >u**CH(5,iz,in)*exp(-u) return end C******************************************** block data ciheavy implicit real*8 (a-h,o-z) common/CH/CH(5,92,92) DATA(CH(I,29,29),I=1,5)/ 7.7,1.,8.337d-08,0.7530,0.20/ DATA(CH(I,29,28),I=1,5)/ 20.3,1.,5.864d-08,0.7530,0.20/ DATA(CH(I,29,27),I=1,5)/ 36.8,1.,4.124d-08,0.7530,0.20/ DATA(CH(I,29,26),I=1,5)/ 57.4,1.,2.901d-08,0.7530,0.20/ DATA(CH(I,29,25),I=1,5)/ 80.0,1.,2.040d-08,0.7530,0.20/ DATA(CH(I,29,24),I=1,5)/ 103.0,1.,1.435d-08,0.7530,0.20/ DATA(CH(I,29,23),I=1,5)/ 139.0,1.,1.009d-08,0.7530,0.20/ DATA(CH(I,29,22),I=1,5)/ 166.0,1.,7.099d-09,0.7530,0.20/ DATA(CH(I,29,21),I=1,5)/ 199.0,1.,4.993d-09,0.7530,0.20/ DATA(CH(I,29,20),I=1,5)/ 232.0,1.,3.512d-09,0.7530,0.20/ DATA(CH(I,29,19),I=1,5)/ 266.0,1.,2.470d-09,0.7530,0.20/ DATA(CH(I,29,18),I=1,5)/ 369.0,1.,1.737d-09,0.7530,0.20/ DATA(CH(I,29,17),I=1,5)/ 401.0,1.,1.222d-09,0.7530,0.20/ DATA(CH(I,29,16),I=1,5)/ 435.0,1.,8.595d-10,0.7530,0.20/ DATA(CH(I,29,15),I=1,5)/ 484.0,1.,6.046d-10,0.7530,0.20/ DATA(CH(I,29,14),I=1,5)/ 520.0,1.,4.252d-10,0.7530,0.20/ DATA(CH(I,29,13),I=1,5)/ 557.0,1.,2.991d-10,0.7530,0.20/ DATA(CH(I,29,12),I=1,5)/ 633.0,1.,2.104d-10,0.7530,0.20/ DATA(CH(I,29,11),I=1,5)/ 671.0,1.,1.480d-10,0.7530,0.20/ DATA(CH(I,29,10),I=1,5)/ 1690.0,1.,1.041d-10,0.7530,0.20/ DATA(CH(I,29, 9),I=1,5)/ 1793.0,1.,7.320d-11,0.7530,0.20/ DATA(CH(I,29, 8),I=1,5)/ 1905.0,1.,5.148d-11,0.7530,0.20/ DATA(CH(I,29, 7),I=1,5)/ 2045.0,1.,3.621d-11,0.7530,0.20/ DATA(CH(I,29, 6),I=1,5)/ 2173.0,1.,2.547d-11,0.7530,0.20/ DATA(CH(I,29, 5),I=1,5)/ 2298.0,1.,1.791d-11,0.7530,0.20/ DATA(CH(I,29, 4),I=1,5)/ 2460.0,1.,1.260d-11,0.7530,0.20/ DATA(CH(I,29, 3),I=1,5)/ 2585.0,1.,8.862d-12,0.7530,0.20/ DATA(CH(I,29, 2),I=1,5)/11062.0,1.,6.233d-12,0.7530,0.20/ DATA(CH(I,29, 1),I=1,5)/11568.0,1.,4.384d-12,0.7530,0.20/ DATA(CH(I,30,30),I=1,5)/ 9.4,1.,8.337d-08,0.7700,0.20/ DATA(CH(I,30,29),I=1,5)/ 18.0,1.,5.918d-08,0.7700,0.20/ DATA(CH(I,30,28),I=1,5)/ 39.7,1.,4.201d-08,0.7700,0.20/ DATA(CH(I,30,27),I=1,5)/ 59.6,1.,2.982d-08,0.7700,0.20/ DATA(CH(I,30,26),I=1,5)/ 83.0,1.,2.117d-08,0.7700,0.20/ DATA(CH(I,30,25),I=1,5)/ 108.0,1.,1.503d-08,0.7700,0.20/ DATA(CH(I,30,24),I=1,5)/ 134.0,1.,1.067d-08,0.7700,0.20/ DATA(CH(I,30,23),I=1,5)/ 174.0,1.,7.574d-09,0.7700,0.20/ DATA(CH(I,30,22),I=1,5)/ 203.0,1.,5.377d-09,0.7700,0.20/ DATA(CH(I,30,21),I=1,5)/ 238.0,1.,3.817d-09,0.7700,0.20/ DATA(CH(I,30,20),I=1,5)/ 274.0,1.,2.710d-09,0.7700,0.20/ DATA(CH(I,30,19),I=1,5)/ 311.0,1.,1.923d-09,0.7700,0.20/ DATA(CH(I,30,18),I=1,5)/ 420.0,1.,1.365d-09,0.7700,0.20/ DATA(CH(I,30,17),I=1,5)/ 454.0,1.,9.693d-10,0.7700,0.20/ DATA(CH(I,30,16),I=1,5)/ 490.0,1.,6.881d-10,0.7700,0.20/ DATA(CH(I,30,15),I=1,5)/ 542.0,1.,4.885d-10,0.7700,0.20/ DATA(CH(I,30,14),I=1,5)/ 579.0,1.,3.468d-10,0.7700,0.20/ DATA(CH(I,30,13),I=1,5)/ 619.0,1.,2.462d-10,0.7700,0.20/ DATA(CH(I,30,12),I=1,5)/ 698.0,1.,1.748d-10,0.7700,0.20/ DATA(CH(I,30,11),I=1,5)/ 737.0,1.,1.241d-10,0.7700,0.20/ DATA(CH(I,30,10),I=1,5)/ 1846.0,1.,8.806d-11,0.7700,0.20/ DATA(CH(I,30, 9),I=1,5)/ 1953.0,1.,6.252d-11,0.7700,0.20/ DATA(CH(I,30, 8),I=1,5)/ 2070.0,1.,4.438d-11,0.7700,0.20/ DATA(CH(I,30, 7),I=1,5)/ 2216.0,1.,3.150d-11,0.7700,0.20/ DATA(CH(I,30, 6),I=1,5)/ 2350.0,1.,2.236d-11,0.7700,0.20/ DATA(CH(I,30, 5),I=1,5)/ 2479.0,1.,1.588d-11,0.7700,0.20/ DATA(CH(I,30, 4),I=1,5)/ 2647.0,1.,1.127d-11,0.7700,0.20/ DATA(CH(I,30, 3),I=1,5)/ 2780.0,1.,8.001d-12,0.7700,0.20/ DATA(CH(I,30, 2),I=1,5)/11865.0,1.,5.680d-12,0.7700,0.20/ DATA(CH(I,30, 1),I=1,5)/12389.0,1.,4.032d-12,0.7700,0.20/ DATA(CH(I,31,31),I=1,5)/ 6.0,1.,8.337d-08,0.7870,0.20/ DATA(CH(I,31,30),I=1,5)/ 20.5,1.,5.970d-08,0.7870,0.20/ DATA(CH(I,31,29),I=1,5)/ 30.7,1.,4.275d-08,0.7870,0.20/ DATA(CH(I,31,28),I=1,5)/ 64.2,1.,3.061d-08,0.7870,0.20/ DATA(CH(I,31,27),I=1,5)/ 90.0,1.,2.192d-08,0.7870,0.20/ DATA(CH(I,31,26),I=1,5)/ 117.0,1.,1.570d-08,0.7870,0.20/ DATA(CH(I,31,25),I=1,5)/ 147.0,1.,1.124d-08,0.7870,0.20/ DATA(CH(I,31,24),I=1,5)/ 179.0,1.,8.050d-09,0.7870,0.20/ DATA(CH(I,31,23),I=1,5)/ 214.0,1.,5.765d-09,0.7870,0.20/ DATA(CH(I,31,22),I=1,5)/ 248.0,1.,4.128d-09,0.7870,0.20/ DATA(CH(I,31,21),I=1,5)/ 284.0,1.,2.956d-09,0.7870,0.20/ DATA(CH(I,31,20),I=1,5)/ 321.0,1.,2.117d-09,0.7870,0.20/ DATA(CH(I,31,19),I=1,5)/ 358.0,1.,1.516d-09,0.7870,0.20/ DATA(CH(I,31,18),I=1,5)/ 475.0,1.,1.086d-09,0.7870,0.20/ DATA(CH(I,31,17),I=1,5)/ 510.0,1.,7.774d-10,0.7870,0.20/ DATA(CH(I,31,16),I=1,5)/ 546.0,1.,5.567d-10,0.7870,0.20/ DATA(CH(I,31,15),I=1,5)/ 596.0,1.,3.986d-10,0.7870,0.20/ DATA(CH(I,31,14),I=1,5)/ 637.0,1.,2.855d-10,0.7870,0.20/ DATA(CH(I,31,13),I=1,5)/ 677.0,1.,2.044d-10,0.7870,0.20/ DATA(CH(I,31,12),I=1,5)/ 765.0,1.,1.464d-10,0.7870,0.20/ DATA(CH(I,31,11),I=1,5)/ 807.0,1.,1.048d-10,0.7870,0.20/ DATA(CH(I,31,10),I=1,5)/ 2010.0,1.,7.507d-11,0.7870,0.20/ DATA(CH(I,31, 9),I=1,5)/ 2120.0,1.,5.375d-11,0.7870,0.20/ DATA(CH(I,31, 8),I=1,5)/ 2242.0,1.,3.849d-11,0.7870,0.20/ DATA(CH(I,31, 7),I=1,5)/ 2393.0,1.,2.757d-11,0.7870,0.20/ DATA(CH(I,31, 6),I=1,5)/ 2533.0,1.,1.974d-11,0.7870,0.20/ DATA(CH(I,31, 5),I=1,5)/ 2668.0,1.,1.414d-11,0.7870,0.20/ DATA(CH(I,31, 4),I=1,5)/ 2840.0,1.,1.012d-11,0.7870,0.20/ DATA(CH(I,31, 3),I=1,5)/ 2982.0,1.,7.249d-12,0.7870,0.20/ DATA(CH(I,31, 2),I=1,5)/12696.0,1.,5.191d-12,0.7870,0.20/ DATA(CH(I,31, 1),I=1,5)/13239.0,1.,3.717d-12,0.7870,0.20/ DATA(CH(I,32,32),I=1,5)/ 7.9,1.,8.337d-08,0.8040,0.20/ DATA(CH(I,32,31),I=1,5)/ 15.9,1.,6.019d-08,0.8040,0.20/ DATA(CH(I,32,30),I=1,5)/ 34.2,1.,4.346d-08,0.8040,0.20/ DATA(CH(I,32,29),I=1,5)/ 45.7,1.,3.138d-08,0.8040,0.20/ DATA(CH(I,32,28),I=1,5)/ 93.5,1.,2.266d-08,0.8040,0.20/ DATA(CH(I,32,27),I=1,5)/ 120.0,1.,1.636d-08,0.8040,0.20/ DATA(CH(I,32,26),I=1,5)/ 151.0,1.,1.181d-08,0.8040,0.20/ DATA(CH(I,32,25),I=1,5)/ 183.0,1.,8.527d-09,0.8040,0.20/ DATA(CH(I,32,24),I=1,5)/ 217.0,1.,6.157d-09,0.8040,0.20/ DATA(CH(I,32,23),I=1,5)/ 255.0,1.,4.445d-09,0.8040,0.20/ DATA(CH(I,32,22),I=1,5)/ 291.0,1.,3.210d-09,0.8040,0.20/ DATA(CH(I,32,21),I=1,5)/ 330.0,1.,2.317d-09,0.8040,0.20/ DATA(CH(I,32,20),I=1,5)/ 369.0,1.,1.673d-09,0.8040,0.20/ DATA(CH(I,32,19),I=1,5)/ 409.0,1.,1.208d-09,0.8040,0.20/ DATA(CH(I,32,18),I=1,5)/ 533.0,1.,8.722d-10,0.8040,0.20/ DATA(CH(I,32,17),I=1,5)/ 568.0,1.,6.298d-10,0.8040,0.20/ DATA(CH(I,32,16),I=1,5)/ 607.0,1.,4.547d-10,0.8040,0.20/ DATA(CH(I,32,15),I=1,5)/ 658.0,1.,3.283d-10,0.8040,0.20/ DATA(CH(I,32,14),I=1,5)/ 701.0,1.,2.370d-10,0.8040,0.20/ DATA(CH(I,32,13),I=1,5)/ 744.0,1.,1.711d-10,0.8040,0.20/ DATA(CH(I,32,12),I=1,5)/ 836.0,1.,1.236d-10,0.8040,0.20/ DATA(CH(I,32,11),I=1,5)/ 880.0,1.,8.922d-11,0.8040,0.20/ DATA(CH(I,32,10),I=1,5)/ 2180.0,1.,6.442d-11,0.8040,0.20/ DATA(CH(I,32, 9),I=1,5)/ 2294.0,1.,4.651d-11,0.8040,0.20/ DATA(CH(I,32, 8),I=1,5)/ 2421.0,1.,3.358d-11,0.8040,0.20/ DATA(CH(I,32, 7),I=1,5)/ 2577.0,1.,2.425d-11,0.8040,0.20/ DATA(CH(I,32, 6),I=1,5)/ 2723.0,1.,1.751d-11,0.8040,0.20/ DATA(CH(I,32, 5),I=1,5)/ 2863.0,1.,1.264d-11,0.8040,0.20/ DATA(CH(I,32, 4),I=1,5)/ 3041.0,1.,9.126d-12,0.8040,0.20/ DATA(CH(I,32, 3),I=1,5)/ 3192.0,1.,6.589d-12,0.8040,0.20/ DATA(CH(I,32, 2),I=1,5)/13550.0,1.,4.757d-12,0.8040,0.20/ DATA(CH(I,32, 1),I=1,5)/14119.0,1.,3.435d-12,0.8040,0.20/ DATA(CH(I,33,33),I=1,5)/ 9.8,1.,8.337d-08,0.8210,0.20/ DATA(CH(I,33,32),I=1,5)/ 18.6,1.,6.066d-08,0.8210,0.20/ DATA(CH(I,33,31),I=1,5)/ 28.4,1.,4.414d-08,0.8210,0.20/ DATA(CH(I,33,30),I=1,5)/ 50.1,1.,3.212d-08,0.8210,0.20/ DATA(CH(I,33,29),I=1,5)/ 62.6,1.,2.337d-08,0.8210,0.20/ DATA(CH(I,33,28),I=1,5)/ 128.0,1.,1.701d-08,0.8210,0.20/ DATA(CH(I,33,27),I=1,5)/ 154.0,1.,1.237d-08,0.8210,0.20/ DATA(CH(I,33,26),I=1,5)/ 187.0,1.,9.005d-09,0.8210,0.20/ DATA(CH(I,33,25),I=1,5)/ 222.0,1.,6.552d-09,0.8210,0.20/ DATA(CH(I,33,24),I=1,5)/ 259.0,1.,4.768d-09,0.8210,0.20/ DATA(CH(I,33,23),I=1,5)/ 300.0,1.,3.469d-09,0.8210,0.20/ DATA(CH(I,33,22),I=1,5)/ 338.0,1.,2.524d-09,0.8210,0.20/ DATA(CH(I,33,21),I=1,5)/ 379.0,1.,1.837d-09,0.8210,0.20/ DATA(CH(I,33,20),I=1,5)/ 421.0,1.,1.337d-09,0.8210,0.20/ DATA(CH(I,33,19),I=1,5)/ 462.0,1.,9.726d-10,0.8210,0.20/ DATA(CH(I,33,18),I=1,5)/ 594.0,1.,7.077d-10,0.8210,0.20/ DATA(CH(I,33,17),I=1,5)/ 630.0,1.,5.150d-10,0.8210,0.20/ DATA(CH(I,33,16),I=1,5)/ 670.0,1.,3.747d-10,0.8210,0.20/ DATA(CH(I,33,15),I=1,5)/ 724.0,1.,2.727d-10,0.8210,0.20/ DATA(CH(I,33,14),I=1,5)/ 769.0,1.,1.984d-10,0.8210,0.20/ DATA(CH(I,33,13),I=1,5)/ 813.0,1.,1.444d-10,0.8210,0.20/ DATA(CH(I,33,12),I=1,5)/ 910.0,1.,1.050d-10,0.8210,0.20/ DATA(CH(I,33,11),I=1,5)/ 957.0,1.,7.644d-11,0.8210,0.20/ DATA(CH(I,33,10),I=1,5)/ 2357.0,1.,5.562d-11,0.8210,0.20/ DATA(CH(I,33, 9),I=1,5)/ 2474.0,1.,4.047d-11,0.8210,0.20/ DATA(CH(I,33, 8),I=1,5)/ 2606.0,1.,2.945d-11,0.8210,0.20/ DATA(CH(I,33, 7),I=1,5)/ 2768.0,1.,2.143d-11,0.8210,0.20/ DATA(CH(I,33, 6),I=1,5)/ 2920.0,1.,1.559d-11,0.8210,0.20/ DATA(CH(I,33, 5),I=1,5)/ 3065.0,1.,1.135d-11,0.8210,0.20/ DATA(CH(I,33, 4),I=1,5)/ 3248.0,1.,8.256d-12,0.8210,0.20/ DATA(CH(I,33, 3),I=1,5)/ 3409.0,1.,6.007d-12,0.8210,0.20/ DATA(CH(I,33, 2),I=1,5)/14440.0,1.,4.371d-12,0.8210,0.20/ DATA(CH(I,33, 1),I=1,5)/15029.0,1.,3.181d-12,0.8210,0.20/ DATA(CH(I,34,34),I=1,5)/ 9.8,1.,8.337d-08,0.8380,0.20/ DATA(CH(I,34,33),I=1,5)/ 21.2,1.,6.111d-08,0.8380,0.20/ DATA(CH(I,34,32),I=1,5)/ 30.8,1.,4.480d-08,0.8380,0.20/ DATA(CH(I,34,31),I=1,5)/ 43.0,1.,3.284d-08,0.8380,0.20/ DATA(CH(I,34,30),I=1,5)/ 68.0,1.,2.407d-08,0.8380,0.20/ DATA(CH(I,34,29),I=1,5)/ 81.7,1.,1.764d-08,0.8380,0.20/ DATA(CH(I,34,28),I=1,5)/ 155.3,1.,1.293d-08,0.8380,0.20/ DATA(CH(I,34,27),I=1,5)/ 191.0,1.,9.481d-09,0.8380,0.20/ DATA(CH(I,34,26),I=1,5)/ 227.0,1.,6.950d-09,0.8380,0.20/ DATA(CH(I,34,25),I=1,5)/ 264.0,1.,5.095d-09,0.8380,0.20/ DATA(CH(I,34,24),I=1,5)/ 304.0,1.,3.734d-09,0.8380,0.20/ DATA(CH(I,34,23),I=1,5)/ 347.0,1.,2.737d-09,0.8380,0.20/ DATA(CH(I,34,22),I=1,5)/ 388.0,1.,2.007d-09,0.8380,0.20/ DATA(CH(I,34,21),I=1,5)/ 431.0,1.,1.471d-09,0.8380,0.20/ DATA(CH(I,34,20),I=1,5)/ 475.0,1.,1.078d-09,0.8380,0.20/ DATA(CH(I,34,19),I=1,5)/ 519.0,1.,7.904d-10,0.8380,0.20/ DATA(CH(I,34,18),I=1,5)/ 657.0,1.,5.794d-10,0.8380,0.20/ DATA(CH(I,34,17),I=1,5)/ 695.0,1.,4.247d-10,0.8380,0.20/ DATA(CH(I,34,16),I=1,5)/ 736.0,1.,3.113d-10,0.8380,0.20/ DATA(CH(I,34,15),I=1,5)/ 793.0,1.,2.282d-10,0.8380,0.20/ DATA(CH(I,34,14),I=1,5)/ 839.0,1.,1.673d-10,0.8380,0.20/ DATA(CH(I,34,13),I=1,5)/ 886.0,1.,1.226d-10,0.8380,0.20/ DATA(CH(I,34,12),I=1,5)/ 987.0,1.,8.989d-11,0.8380,0.20/ DATA(CH(I,34,11),I=1,5)/ 1036.3,1.,6.589d-11,0.8380,0.20/ DATA(CH(I,34,10),I=1,5)/ 2542.0,1.,4.830d-11,0.8380,0.20/ DATA(CH(I,34, 9),I=1,5)/ 2661.0,1.,3.541d-11,0.8380,0.20/ DATA(CH(I,34, 8),I=1,5)/ 2798.0,1.,2.595d-11,0.8380,0.20/ DATA(CH(I,34, 7),I=1,5)/ 2965.0,1.,1.902d-11,0.8380,0.20/ DATA(CH(I,34, 6),I=1,5)/ 3123.0,1.,1.395d-11,0.8380,0.20/ DATA(CH(I,34, 5),I=1,5)/ 3274.0,1.,1.022d-11,0.8380,0.20/ DATA(CH(I,34, 4),I=1,5)/ 3463.0,1.,7.493d-12,0.8380,0.20/ DATA(CH(I,34, 3),I=1,5)/ 3633.0,1.,5.493d-12,0.8380,0.20/ DATA(CH(I,34, 2),I=1,5)/15370.0,1.,4.027d-12,0.8380,0.20/ DATA(CH(I,34, 1),I=1,5)/15968.0,1.,2.952d-12,0.8380,0.20/ DATA(CH(I,35,35),I=1,5)/ 11.8,1.,8.337d-08,0.8550,0.20/ DATA(CH(I,35,34),I=1,5)/ 21.8,1.,6.154d-08,0.8550,0.20/ DATA(CH(I,35,33),I=1,5)/ 35.9,1.,4.543d-08,0.8550,0.20/ DATA(CH(I,35,32),I=1,5)/ 47.3,1.,3.353d-08,0.8550,0.20/ DATA(CH(I,35,31),I=1,5)/ 59.7,1.,2.475d-08,0.8550,0.20/ DATA(CH(I,35,30),I=1,5)/ 88.6,1.,1.827d-08,0.8550,0.20/ DATA(CH(I,35,29),I=1,5)/ 103.0,1.,1.349d-08,0.8550,0.20/ DATA(CH(I,35,28),I=1,5)/ 192.8,1.,9.957d-09,0.8550,0.20/ DATA(CH(I,35,27),I=1,5)/ 232.0,1.,7.350d-09,0.8550,0.20/ DATA(CH(I,35,26),I=1,5)/ 270.0,1.,5.425d-09,0.8550,0.20/ DATA(CH(I,35,25),I=1,5)/ 310.0,1.,4.005d-09,0.8550,0.20/ DATA(CH(I,35,24),I=1,5)/ 352.0,1.,2.956d-09,0.8550,0.20/ DATA(CH(I,35,23),I=1,5)/ 398.0,1.,2.182d-09,0.8550,0.20/ DATA(CH(I,35,22),I=1,5)/ 441.0,1.,1.611d-09,0.8550,0.20/ DATA(CH(I,35,21),I=1,5)/ 486.0,1.,1.189d-09,0.8550,0.20/ DATA(CH(I,35,20),I=1,5)/ 533.0,1.,8.778d-10,0.8550,0.20/ DATA(CH(I,35,19),I=1,5)/ 579.0,1.,6.480d-10,0.8550,0.20/ DATA(CH(I,35,18),I=1,5)/ 724.0,1.,4.783d-10,0.8550,0.20/ DATA(CH(I,35,17),I=1,5)/ 762.0,1.,3.531d-10,0.8550,0.20/ DATA(CH(I,35,16),I=1,5)/ 806.0,1.,2.606d-10,0.8550,0.20/ DATA(CH(I,35,15),I=1,5)/ 864.0,1.,1.924d-10,0.8550,0.20/ DATA(CH(I,35,14),I=1,5)/ 913.0,1.,1.420d-10,0.8550,0.20/ DATA(CH(I,35,13),I=1,5)/ 961.0,1.,1.048d-10,0.8550,0.20/ DATA(CH(I,35,12),I=1,5)/ 1068.0,1.,7.738d-11,0.8550,0.20/ DATA(CH(I,35,11),I=1,5)/ 1119.0,1.,5.712d-11,0.8550,0.20/ DATA(CH(I,35,10),I=1,5)/ 2733.0,1.,4.217d-11,0.8550,0.20/ DATA(CH(I,35, 9),I=1,5)/ 2855.0,1.,3.113d-11,0.8550,0.20/ DATA(CH(I,35, 8),I=1,5)/ 2997.0,1.,2.298d-11,0.8550,0.20/ DATA(CH(I,35, 7),I=1,5)/ 3170.0,1.,1.696d-11,0.8550,0.20/ DATA(CH(I,35, 6),I=1,5)/ 3334.0,1.,1.252d-11,0.8550,0.20/ DATA(CH(I,35, 5),I=1,5)/ 3490.0,1.,9.242d-12,0.8550,0.20/ DATA(CH(I,35, 4),I=1,5)/ 3684.0,1.,6.822d-12,0.8550,0.20/ DATA(CH(I,35, 3),I=1,5)/ 3865.0,1.,5.036d-12,0.8550,0.20/ DATA(CH(I,35, 2),I=1,5)/16315.0,1.,3.717d-12,0.8550,0.20/ DATA(CH(I,35, 1),I=1,5)/16937.0,1.,2.744d-12,0.8550,0.20/ DATA(CH(I,36,36),I=1,5)/ 14.0,1.,8.337d-08,0.8720,0.20/ DATA(CH(I,36,35),I=1,5)/ 24.4,1.,6.195d-08,0.8720,0.20/ DATA(CH(I,36,34),I=1,5)/ 37.0,1.,4.603d-08,0.8720,0.20/ DATA(CH(I,36,33),I=1,5)/ 52.5,1.,3.421d-08,0.8720,0.20/ DATA(CH(I,36,32),I=1,5)/ 64.7,1.,2.542d-08,0.8720,0.20/ DATA(CH(I,36,31),I=1,5)/ 78.5,1.,1.889d-08,0.8720,0.20/ DATA(CH(I,36,30),I=1,5)/ 111.0,1.,1.404d-08,0.8720,0.20/ DATA(CH(I,36,29),I=1,5)/ 125.8,1.,1.043d-08,0.8720,0.20/ DATA(CH(I,36,28),I=1,5)/ 230.9,1.,7.751d-09,0.8720,0.20/ DATA(CH(I,36,27),I=1,5)/ 275.0,1.,5.760d-09,0.8720,0.20/ DATA(CH(I,36,26),I=1,5)/ 316.0,1.,4.280d-09,0.8720,0.20/ DATA(CH(I,36,25),I=1,5)/ 358.0,1.,3.180d-09,0.8720,0.20/ DATA(CH(I,36,24),I=1,5)/ 403.0,1.,2.363d-09,0.8720,0.20/ DATA(CH(I,36,23),I=1,5)/ 451.0,1.,1.756d-09,0.8720,0.20/ DATA(CH(I,36,22),I=1,5)/ 497.0,1.,1.305d-09,0.8720,0.20/ DATA(CH(I,36,21),I=1,5)/ 545.0,1.,9.697d-10,0.8720,0.20/ DATA(CH(I,36,20),I=1,5)/ 593.0,1.,7.206d-10,0.8720,0.20/ DATA(CH(I,36,19),I=1,5)/ 642.0,1.,5.355d-10,0.8720,0.20/ DATA(CH(I,36,18),I=1,5)/ 794.0,1.,3.979d-10,0.8720,0.20/ DATA(CH(I,36,17),I=1,5)/ 833.0,1.,2.957d-10,0.8720,0.20/ DATA(CH(I,36,16),I=1,5)/ 878.0,1.,2.197d-10,0.8720,0.20/ DATA(CH(I,36,15),I=1,5)/ 939.0,1.,1.633d-10,0.8720,0.20/ DATA(CH(I,36,14),I=1,5)/ 989.0,1.,1.213d-10,0.8720,0.20/ DATA(CH(I,36,13),I=1,5)/ 1039.0,1.,9.016d-11,0.8720,0.20/ DATA(CH(I,36,12),I=1,5)/ 1151.0,1.,6.700d-11,0.8720,0.20/ DATA(CH(I,36,11),I=1,5)/ 1205.0,1.,4.979d-11,0.8720,0.20/ DATA(CH(I,36,10),I=1,5)/ 2931.0,1.,3.699d-11,0.8720,0.20/ DATA(CH(I,36, 9),I=1,5)/ 3056.0,1.,2.749d-11,0.8720,0.20/ DATA(CH(I,36, 8),I=1,5)/ 3203.0,1.,2.043d-11,0.8720,0.20/ DATA(CH(I,36, 7),I=1,5)/ 3381.0,1.,1.518d-11,0.8720,0.20/ DATA(CH(I,36, 6),I=1,5)/ 3551.0,1.,1.128d-11,0.8720,0.20/ DATA(CH(I,36, 5),I=1,5)/ 3712.0,1.,8.382d-12,0.8720,0.20/ DATA(CH(I,36, 4),I=1,5)/ 3912.0,1.,6.229d-12,0.8720,0.20/ DATA(CH(I,36, 3),I=1,5)/ 4105.0,1.,4.629d-12,0.8720,0.20/ DATA(CH(I,36, 2),I=1,5)/17290.0,1.,3.439d-12,0.8720,0.20/ DATA(CH(I,36, 1),I=1,5)/17936.0,1.,2.556d-12,0.8720,0.20/ DATA(CH(I,37,37),I=1,5)/ 4.2,1.,8.337d-08,0.8890,0.20/ DATA(CH(I,37,36),I=1,5)/ 27.3,1.,6.234d-08,0.8890,0.20/ DATA(CH(I,37,35),I=1,5)/ 39.2,1.,4.662d-08,0.8890,0.20/ DATA(CH(I,37,34),I=1,5)/ 52.6,1.,3.486d-08,0.8890,0.20/ DATA(CH(I,37,33),I=1,5)/ 71.0,1.,2.607e-08,0.8890,0.20/ DATA(CH(I,37,32),I=1,5)/ 84.4,1.,1.950e-08,0.8890,0.20/ DATA(CH(I,37,31),I=1,5)/ 99.2,1.,1.458e-08,0.8890,0.20/ DATA(CH(I,37,30),I=1,5)/ 136.0,1.,1.090e-08,0.8890,0.20/ DATA(CH(I,37,29),I=1,5)/ 150.0,1.,8.153e-09,0.8890,0.20/ DATA(CH(I,37,28),I=1,5)/ 277.1,1.,6.097e-09,0.8890,0.20/ DATA(CH(I,37,27),I=1,5)/ 322.9,1.,4.559e-09,0.8890,0.20/ DATA(CH(I,37,26),I=1,5)/ 370.9,1.,3.409e-09,0.8890,0.20/ DATA(CH(I,37,25),I=1,5)/ 420.9,1.,2.550e-09,0.8890,0.20/ DATA(CH(I,37,24),I=1,5)/ 472.8,1.,1.907e-09,0.8890,0.20/ DATA(CH(I,37,23),I=1,5)/ 526.6,1.,1.426e-09,0.8890,0.20/ DATA(CH(I,37,22),I=1,5)/ 582.1,1.,1.066e-09,0.8890,0.20/ DATA(CH(I,37,21),I=1,5)/ 639.4,1.,7.973e-10,0.8890,0.20/ DATA(CH(I,37,20),I=1,5)/ 698.2,1.,5.962e-10,0.8890,0.20/ DATA(CH(I,37,19),I=1,5)/ 758.7,1.,4.459e-10,0.8890,0.20/ DATA(CH(I,37,18),I=1,5)/ 820.7,1.,3.334e-10,0.8890,0.20/ DATA(CH(I,37,17),I=1,5)/ 884.2,1.,2.493e-10,0.8890,0.20/ DATA(CH(I,37,16),I=1,5)/ 949.2,1.,1.865e-10,0.8890,0.20/ DATA(CH(I,37,15),I=1,5)/ 1015.6,1.,1.394e-10,0.8890,0.20/ DATA(CH(I,37,14),I=1,5)/ 1083.4,1.,1.043e-10,0.8890,0.20/ DATA(CH(I,37,13),I=1,5)/ 1152.5,1.,7.797e-11,0.8890,0.20/ DATA(CH(I,37,12),I=1,5)/ 1222.9,1.,5.831e-11,0.8890,0.20/ DATA(CH(I,37,11),I=1,5)/ 1294.6,1.,4.360e-11,0.8890,0.20/ DATA(CH(I,37,10),I=1,5)/ 3134.3,1.,3.261e-11,0.8890,0.20/ DATA(CH(I,37, 9),I=1,5)/ 3308.9,1.,2.438e-11,0.8890,0.20/ DATA(CH(I,37, 8),I=1,5)/ 3483.4,1.,1.823e-11,0.8890,0.20/ DATA(CH(I,37, 7),I=1,5)/ 3657.9,1.,1.364e-11,0.8890,0.20/ DATA(CH(I,37, 6),I=1,5)/ 3832.5,1.,1.020e-11,0.8890,0.20/ DATA(CH(I,37, 5),I=1,5)/ 4007.0,1.,7.625e-12,0.8890,0.20/ DATA(CH(I,37, 4),I=1,5)/ 4181.5,1.,5.702e-12,0.8890,0.20/ DATA(CH(I,37, 3),I=1,5)/ 4356.0,1.,4.264e-12,0.8890,0.20/ DATA(CH(I,37, 2),I=1,5)/18308.9,1.,3.189e-12,0.8890,0.20/ DATA(CH(I,37, 1),I=1,5)/18974.8,1.,2.385e-12,0.8890,0.20/ DATA(CH(I,38,38),I=1,5)/ 5.7,1.,8.337d-08,0.9060,0.20/ DATA(CH(I,38,37),I=1,5)/ 11.0,1.,6.272d-08,0.9060,0.20/ DATA(CH(I,38,36),I=1,5)/ 43.6,1.,4.719d-08,0.9060,0.20/ DATA(CH(I,38,35),I=1,5)/ 57.0,1.,3.550d-08,0.9060,0.20/ DATA(CH(I,38,34),I=1,5)/ 71.6,1.,2.671e-08,0.9060,0.20/ DATA(CH(I,38,33),I=1,5)/ 90.8,1.,2.009e-08,0.9060,0.20/ DATA(CH(I,38,32),I=1,5)/ 106.0,1.,1.512e-08,0.9060,0.20/ DATA(CH(I,38,31),I=1,5)/ 122.3,1.,1.137e-08,0.9060,0.20/ DATA(CH(I,38,30),I=1,5)/ 162.0,1.,8.555e-09,0.9060,0.20/ DATA(CH(I,38,29),I=1,5)/ 177.0,1.,6.436e-09,0.9060,0.20/ DATA(CH(I,38,28),I=1,5)/ 324.1,1.,4.842e-09,0.9060,0.20/ DATA(CH(I,38,27),I=1,5)/ 372.6,1.,3.643e-09,0.9060,0.20/ DATA(CH(I,38,26),I=1,5)/ 423.2,1.,2.741e-09,0.9060,0.20/ DATA(CH(I,38,25),I=1,5)/ 475.9,1.,2.062e-09,0.9060,0.20/ DATA(CH(I,38,24),I=1,5)/ 530.4,1.,1.551e-09,0.9060,0.20/ DATA(CH(I,38,23),I=1,5)/ 586.7,1.,1.167e-09,0.9060,0.20/ DATA(CH(I,38,22),I=1,5)/ 644.9,1.,8.780e-10,0.9060,0.20/ DATA(CH(I,38,21),I=1,5)/ 704.7,1.,6.605e-10,0.9060,0.20/ DATA(CH(I,38,20),I=1,5)/ 766.2,1.,4.969e-10,0.9060,0.20/ DATA(CH(I,38,19),I=1,5)/ 829.3,1.,3.739e-10,0.9060,0.20/ DATA(CH(I,38,18),I=1,5)/ 894.0,1.,2.813e-10,0.9060,0.20/ DATA(CH(I,38,17),I=1,5)/ 960.2,1.,2.116e-10,0.9060,0.20/ DATA(CH(I,38,16),I=1,5)/ 1027.8,1.,1.592e-10,0.9060,0.20/ DATA(CH(I,38,15),I=1,5)/ 1097.0,1.,1.198e-10,0.9060,0.20/ DATA(CH(I,38,14),I=1,5)/ 1167.5,1.,9.010e-11,0.9060,0.20/ DATA(CH(I,38,13),I=1,5)/ 1239.4,1.,6.779e-11,0.9060,0.20/ DATA(CH(I,38,12),I=1,5)/ 1312.6,1.,5.100e-11,0.9060,0.20/ DATA(CH(I,38,11),I=1,5)/ 1387.1,1.,3.837e-11,0.9060,0.20/ DATA(CH(I,38,10),I=1,5)/ 3345.7,1.,2.886e-11,0.9060,0.20/ DATA(CH(I,38, 9),I=1,5)/ 3526.5,1.,2.171e-11,0.9060,0.20/ DATA(CH(I,38, 8),I=1,5)/ 3707.2,1.,1.634e-11,0.9060,0.20/ DATA(CH(I,38, 7),I=1,5)/ 3888.0,1.,1.229e-11,0.9060,0.20/ DATA(CH(I,38, 6),I=1,5)/ 4068.8,1.,9.246e-12,0.9060,0.20/ DATA(CH(I,38, 5),I=1,5)/ 4249.6,1.,6.956e-12,0.9060,0.20/ DATA(CH(I,38, 4),I=1,5)/ 4430.4,1.,5.233e-12,0.9060,0.20/ DATA(CH(I,38, 3),I=1,5)/ 4611.1,1.,3.937e-12,0.9060,0.20/ DATA(CH(I,38, 2),I=1,5)/19346.3,1.,2.962e-12,0.9060,0.20/ DATA(CH(I,38, 1),I=1,5)/20033.6,1.,2.228e-12,0.9060,0.20/ DATA(CH(I,39,39),I=1,5)/ 6.3,1.,8.337d-08,0.9230,0.20/ DATA(CH(I,39,38),I=1,5)/ 12.2,1.,6.308d-08,0.9230,0.20/ DATA(CH(I,39,37),I=1,5)/ 20.5,1.,4.773d-08,0.9230,0.20/ DATA(CH(I,39,36),I=1,5)/ 61.8,1.,3.612d-08,0.9230,0.20/ DATA(CH(I,39,35),I=1,5)/ 77.0,1.,2.733e-08,0.9230,0.20/ DATA(CH(I,39,34),I=1,5)/ 93.0,1.,2.068e-08,0.9230,0.20/ DATA(CH(I,39,33),I=1,5)/ 116.0,1.,1.565e-08,0.9230,0.20/ DATA(CH(I,39,32),I=1,5)/ 129.0,1.,1.184e-08,0.9230,0.20/ DATA(CH(I,39,31),I=1,5)/ 146.2,1.,8.958e-09,0.9230,0.20/ DATA(CH(I,39,30),I=1,5)/ 191.0,1.,6.778e-09,0.9230,0.20/ DATA(CH(I,39,29),I=1,5)/ 206.0,1.,5.129e-09,0.9230,0.20/ DATA(CH(I,39,28),I=1,5)/ 374.0,1.,3.881e-09,0.9230,0.20/ DATA(CH(I,39,27),I=1,5)/ 425.2,1.,2.936e-09,0.9230,0.20/ DATA(CH(I,39,26),I=1,5)/ 478.4,1.,2.222e-09,0.9230,0.20/ DATA(CH(I,39,25),I=1,5)/ 533.7,1.,1.681e-09,0.9230,0.20/ DATA(CH(I,39,24),I=1,5)/ 590.8,1.,1.272e-09,0.9230,0.20/ DATA(CH(I,39,23),I=1,5)/ 649.8,1.,9.626e-10,0.9230,0.20/ DATA(CH(I,39,22),I=1,5)/ 710.6,1.,7.283e-10,0.9230,0.20/ DATA(CH(I,39,21),I=1,5)/ 773.0,1.,5.511e-10,0.9230,0.20/ DATA(CH(I,39,20),I=1,5)/ 837.2,1.,4.170e-10,0.9230,0.20/ DATA(CH(I,39,19),I=1,5)/ 902.9,1.,3.155e-10,0.9230,0.20/ DATA(CH(I,39,18),I=1,5)/ 970.3,1.,2.387e-10,0.9230,0.20/ DATA(CH(I,39,17),I=1,5)/ 1039.2,1.,1.806e-10,0.9230,0.20/ DATA(CH(I,39,16),I=1,5)/ 1109.6,1.,1.367e-10,0.9230,0.20/ DATA(CH(I,39,15),I=1,5)/ 1181.4,1.,1.034e-10,0.9230,0.20/ DATA(CH(I,39,14),I=1,5)/ 1254.7,1.,7.826e-11,0.9230,0.20/ DATA(CH(I,39,13),I=1,5)/ 1329.4,1.,5.922e-11,0.9230,0.20/ DATA(CH(I,39,12),I=1,5)/ 1405.5,1.,4.481e-11,0.9230,0.20/ DATA(CH(I,39,11),I=1,5)/ 1482.9,1.,3.390e-11,0.9230,0.20/ DATA(CH(I,39,10),I=1,5)/ 3563.9,1.,2.565e-11,0.9230,0.20/ DATA(CH(I,39, 9),I=1,5)/ 3751.0,1.,1.941e-11,0.9230,0.20/ DATA(CH(I,39, 8),I=1,5)/ 3938.1,1.,1.469e-11,0.9230,0.20/ DATA(CH(I,39, 7),I=1,5)/ 4125.2,1.,1.111e-11,0.9230,0.20/ DATA(CH(I,39, 6),I=1,5)/ 4312.4,1.,8.409e-12,0.9230,0.20/ DATA(CH(I,39, 5),I=1,5)/ 4499.5,1.,6.363e-12,0.9230,0.20/ DATA(CH(I,39, 4),I=1,5)/ 4686.6,1.,4.814e-12,0.9230,0.20/ DATA(CH(I,39, 3),I=1,5)/ 4873.7,1.,3.643e-12,0.9230,0.20/ DATA(CH(I,39, 2),I=1,5)/20412.8,1.,2.756e-12,0.9230,0.20/ DATA(CH(I,39, 1),I=1,5)/21121.8,1.,2.086e-12,0.9230,0.20/ DATA(CH(I,40,40),I=1,5)/ 6.7,1.,8.337d-08,0.9400,0.20/ DATA(CH(I,40,39),I=1,5)/ 13.1,1.,6.343d-08,0.9400,0.20/ DATA(CH(I,40,38),I=1,5)/ 23.0,1.,4.826d-08,0.9400,0.20/ DATA(CH(I,40,37),I=1,5)/ 34.4,1.,3.672d-08,0.9400,0.20/ DATA(CH(I,40,36),I=1,5)/ 81.5,1.,2.793e-08,0.9400,0.20/ DATA(CH(I,40,35),I=1,5)/ 113.8,1.,2.125e-08,0.9400,0.20/ DATA(CH(I,40,34),I=1,5)/ 149.5,1.,1.617e-08,0.9400,0.20/ DATA(CH(I,40,33),I=1,5)/ 188.4,1.,1.230e-08,0.9400,0.20/ DATA(CH(I,40,32),I=1,5)/ 230.1,1.,9.360e-09,0.9400,0.20/ DATA(CH(I,40,31),I=1,5)/ 274.4,1.,7.122e-09,0.9400,0.20/ DATA(CH(I,40,30),I=1,5)/ 321.3,1.,5.418e-09,0.9400,0.20/ DATA(CH(I,40,29),I=1,5)/ 370.6,1.,4.122e-09,0.9400,0.20/ DATA(CH(I,40,28),I=1,5)/ 422.1,1.,3.136e-09,0.9400,0.20/ DATA(CH(I,40,27),I=1,5)/ 475.9,1.,2.386e-09,0.9400,0.20/ DATA(CH(I,40,26),I=1,5)/ 531.7,1.,1.816e-09,0.9400,0.20/ DATA(CH(I,40,25),I=1,5)/ 589.6,1.,1.381e-09,0.9400,0.20/ DATA(CH(I,40,24),I=1,5)/ 649.4,1.,1.051e-09,0.9400,0.20/ DATA(CH(I,40,23),I=1,5)/ 711.1,1.,7.996e-10,0.9400,0.20/ DATA(CH(I,40,22),I=1,5)/ 774.6,1.,6.083e-10,0.9400,0.20/ DATA(CH(I,40,21),I=1,5)/ 839.9,1.,4.628e-10,0.9400,0.20/ DATA(CH(I,40,20),I=1,5)/ 906.9,1.,3.521e-10,0.9400,0.20/ DATA(CH(I,40,19),I=1,5)/ 975.6,1.,2.679e-10,0.9400,0.20/ DATA(CH(I,40,18),I=1,5)/ 1046.0,1.,2.038e-10,0.9400,0.20/ DATA(CH(I,40,17),I=1,5)/ 1118.0,1.,1.551e-10,0.9400,0.20/ DATA(CH(I,40,16),I=1,5)/ 1191.5,1.,1.180e-10,0.9400,0.20/ DATA(CH(I,40,15),I=1,5)/ 1266.6,1.,8.977e-11,0.9400,0.20/ DATA(CH(I,40,14),I=1,5)/ 1343.2,1.,6.830e-11,0.9400,0.20/ DATA(CH(I,40,13),I=1,5)/ 1421.3,1.,5.197e-11,0.9400,0.20/ DATA(CH(I,40,12),I=1,5)/ 1500.8,1.,3.954e-11,0.9400,0.20/ DATA(CH(I,40,11),I=1,5)/ 1581.8,1.,3.008e-11,0.9400,0.20/ DATA(CH(I,40,10),I=1,5)/ 3789.0,1.,2.289e-11,0.9400,0.20/ DATA(CH(I,40, 9),I=1,5)/ 3982.5,1.,1.741e-11,0.9400,0.20/ DATA(CH(I,40, 8),I=1,5)/ 4176.1,1.,1.325e-11,0.9400,0.20/ DATA(CH(I,40, 7),I=1,5)/ 4369.6,1.,1.008e-11,0.9400,0.20/ DATA(CH(I,40, 6),I=1,5)/ 4563.1,1.,7.669e-12,0.9400,0.20/ DATA(CH(I,40, 5),I=1,5)/ 4756.6,1.,5.834e-12,0.9400,0.20/ DATA(CH(I,40, 4),I=1,5)/ 4950.2,1.,4.439e-12,0.9400,0.20/ DATA(CH(I,40, 3),I=1,5)/ 5143.7,1.,3.377e-12,0.9400,0.20/ DATA(CH(I,40, 2),I=1,5)/21508.5,1.,2.570e-12,0.9400,0.20/ DATA(CH(I,40, 1),I=1,5)/22239.4,1.,1.955e-12,0.9400,0.20/ DATA(CH(I,41,41),I=1,5)/ 6.8,1.,8.337d-08,0.9570,0.20/ DATA(CH(I,41,40),I=1,5)/ 14.3,1.,6.376d-08,0.9570,0.20/ DATA(CH(I,41,39),I=1,5)/ 25.0,1.,4.877d-08,0.9570,0.20/ DATA(CH(I,41,38),I=1,5)/ 38.3,1.,3.730d-08,0.9570,0.20/ DATA(CH(I,41,37),I=1,5)/ 50.6,1.,2.853e-08,0.9570,0.20/ DATA(CH(I,41,36),I=1,5)/ 102.6,1.,2.182e-08,0.9570,0.20/ DATA(CH(I,41,35),I=1,5)/ 125.0,1.,1.669e-08,0.9570,0.20/ DATA(CH(I,41,34),I=1,5)/ 160.4,1.,1.276e-08,0.9570,0.20/ DATA(CH(I,41,33),I=1,5)/ 199.0,1.,9.762e-09,0.9570,0.20/ DATA(CH(I,41,32),I=1,5)/ 240.7,1.,7.466e-09,0.9570,0.20/ DATA(CH(I,41,31),I=1,5)/ 285.4,1.,5.710e-09,0.9570,0.20/ DATA(CH(I,41,30),I=1,5)/ 332.9,1.,4.367e-09,0.9570,0.20/ DATA(CH(I,41,29),I=1,5)/ 383.1,1.,3.340e-09,0.9570,0.20/ DATA(CH(I,41,28),I=1,5)/ 436.0,1.,2.555e-09,0.9570,0.20/ DATA(CH(I,41,27),I=1,5)/ 491.5,1.,1.954e-09,0.9570,0.20/ DATA(CH(I,41,26),I=1,5)/ 549.4,1.,1.494e-09,0.9570,0.20/ DATA(CH(I,41,25),I=1,5)/ 609.8,1.,1.143e-09,0.9570,0.20/ DATA(CH(I,41,24),I=1,5)/ 672.6,1.,8.742e-10,0.9570,0.20/ DATA(CH(I,41,23),I=1,5)/ 737.7,1.,6.686e-10,0.9570,0.20/ DATA(CH(I,41,22),I=1,5)/ 805.0,1.,5.114e-10,0.9570,0.20/ DATA(CH(I,41,21),I=1,5)/ 874.6,1.,3.911e-10,0.9570,0.20/ DATA(CH(I,41,20),I=1,5)/ 946.3,1.,2.991e-10,0.9570,0.20/ DATA(CH(I,41,19),I=1,5)/ 1020.2,1.,2.288e-10,0.9570,0.20/ DATA(CH(I,41,18),I=1,5)/ 1096.1,1.,1.750e-10,0.9570,0.20/ DATA(CH(I,41,17),I=1,5)/ 1174.2,1.,1.338e-10,0.9570,0.20/ DATA(CH(I,41,16),I=1,5)/ 1254.2,1.,1.024e-10,0.9570,0.20/ DATA(CH(I,41,15),I=1,5)/ 1336.3,1.,7.829e-11,0.9570,0.20/ DATA(CH(I,41,14),I=1,5)/ 1420.3,1.,5.988e-11,0.9570,0.20/ DATA(CH(I,41,13),I=1,5)/ 1506.3,1.,4.580e-11,0.9570,0.20/ DATA(CH(I,41,12),I=1,5)/ 1594.2,1.,3.503e-11,0.9570,0.20/ DATA(CH(I,41,11),I=1,5)/ 1683.9,1.,2.679e-11,0.9570,0.20/ DATA(CH(I,41,10),I=1,5)/ 4021.0,1.,2.049e-11,0.9570,0.20/ DATA(CH(I,41, 9),I=1,5)/ 4221.0,1.,1.567e-11,0.9570,0.20/ DATA(CH(I,41, 8),I=1,5)/ 4421.0,1.,1.199e-11,0.9570,0.20/ DATA(CH(I,41, 7),I=1,5)/ 4621.1,1.,9.167e-12,0.9570,0.20/ DATA(CH(I,41, 6),I=1,5)/ 4821.1,1.,7.011e-12,0.9570,0.20/ DATA(CH(I,41, 5),I=1,5)/ 5021.1,1.,5.363e-12,0.9570,0.20/ DATA(CH(I,41, 4),I=1,5)/ 5221.2,1.,4.101e-12,0.9570,0.20/ DATA(CH(I,41, 3),I=1,5)/ 5421.2,1.,3.137e-12,0.9570,0.20/ DATA(CH(I,41, 2),I=1,5)/22633.4,1.,2.399e-12,0.9570,0.20/ DATA(CH(I,41, 1),I=1,5)/23386.5,1.,1.835e-12,0.9570,0.20/ DATA(CH(I,42,42),I=1,5)/ 7.1,1.,8.337d-08,0.9740,0.20/ DATA(CH(I,42,41),I=1,5)/ 16.2,1.,6.408d-08,0.9740,0.20/ DATA(CH(I,42,40),I=1,5)/ 27.2,1.,4.926d-08,0.9740,0.20/ DATA(CH(I,42,39),I=1,5)/ 46.4,1.,3.787d-08,0.9740,0.20/ DATA(CH(I,42,38),I=1,5)/ 54.5,1.,2.911d-08,0.9740,0.20/ DATA(CH(I,42,37),I=1,5)/ 68.8,1.,2.237d-08,0.9740,0.20/ DATA(CH(I,42,36),I=1,5)/ 125.7,1.,1.720d-08,0.9740,0.20/ DATA(CH(I,42,35),I=1,5)/ 143.6,1.,1.322d-08,0.9740,0.20/ DATA(CH(I,42,34),I=1,5)/ 164.1,1.,1.016d-08,0.9740,0.20/ DATA(CH(I,42,33),I=1,5)/ 186.3,1.,7.812d-09,0.9740,0.20/ DATA(CH(I,42,32),I=1,5)/ 209.3,1.,6.005d-09,0.9740,0.20/ DATA(CH(I,42,31),I=1,5)/ 230.3,1.,4.616d-09,0.9740,0.20/ DATA(CH(I,42,30),I=1,5)/ 279.1,1.,3.548d-09,0.9740,0.20/ DATA(CH(I,42,29),I=1,5)/ 302.6,1.,2.727d-09,0.9740,0.20/ DATA(CH(I,42,28),I=1,5)/ 544.0,1.,2.096d-09,0.9740,0.20/ DATA(CH(I,42,27),I=1,5)/ 570.3,1.,1.612d-09,0.9740,0.20/ DATA(CH(I,42,26),I=1,5)/ 636.0,1.,1.239d-09,0.9740,0.20/ DATA(CH(I,42,25),I=1,5)/ 701.8,1.,9.522d-10,0.9740,0.20/ DATA(CH(I,42,24),I=1,5)/ 767.5,1.,7.319d-10,0.9740,0.20/ DATA(CH(I,42,23),I=1,5)/ 833.2,1.,5.626d-10,0.9740,0.20/ DATA(CH(I,42,22),I=1,5)/ 902.6,1.,4.325d-10,0.9740,0.20/ DATA(CH(I,42,21),I=1,5)/ 968.3,1.,3.325d-10,0.9740,0.20/ DATA(CH(I,42,20),I=1,5)/ 1020.4,1.,2.555d-10,0.9740,0.20/ DATA(CH(I,42,19),I=1,5)/ 1082.0,1.,1.964d-10,0.9740,0.20/ DATA(CH(I,42,18),I=1,5)/ 1263.0,1.,1.510d-10,0.9740,0.20/ DATA(CH(I,42,17),I=1,5)/ 1323.0,1.,1.161d-10,0.9740,0.20/ DATA(CH(I,42,16),I=1,5)/ 1387.0,1.,8.922d-11,0.9740,0.20/ DATA(CH(I,42,15),I=1,5)/ 1449.0,1.,6.858d-11,0.9740,0.20/ DATA(CH(I,42,14),I=1,5)/ 1535.0,1.,5.272d-11,0.9740,0.20/ DATA(CH(I,42,13),I=1,5)/ 1601.0,1.,4.052d-11,0.9740,0.20/ DATA(CH(I,42,12),I=1,5)/ 1726.0,1.,3.115d-11,0.9740,0.20/ DATA(CH(I,42,11),I=1,5)/ 1791.0,1.,2.395d-11,0.9740,0.20/ DATA(CH(I,42,10),I=1,5)/ 4258.0,1.,1.841d-11,0.9740,0.20/ DATA(CH(I,42, 9),I=1,5)/ 4430.0,1.,1.415d-11,0.9740,0.20/ DATA(CH(I,42, 8),I=1,5)/ 4617.0,1.,1.088d-11,0.9740,0.20/ DATA(CH(I,42, 7),I=1,5)/ 4798.0,1.,8.360d-12,0.9740,0.20/ DATA(CH(I,42, 6),I=1,5)/ 5099.0,1.,6.426d-12,0.9740,0.20/ DATA(CH(I,42, 5),I=1,5)/ 5297.0,1.,4.940d-12,0.9740,0.20/ DATA(CH(I,42, 4),I=1,5)/ 5546.0,1.,3.797d-12,0.9740,0.20/ DATA(CH(I,42, 3),I=1,5)/ 5711.0,1.,2.919d-12,0.9740,0.20/ DATA(CH(I,42, 2),I=1,5)/23792.0,1.,2.244d-12,0.9740,0.20/ DATA(CH(I,42, 1),I=1,5)/24572.0,1.,1.725d-12,0.9740,0.20/ DATA(CH(I,44,44),I=1,5)/ 7.4,1.,8.337d-08,1.0080,0.20/ DATA(CH(I,44,43),I=1,5)/ 16.8,1.,6.469d-08,1.0080,0.20/ DATA(CH(I,44,42),I=1,5)/ 28.5,1.,5.020d-08,1.0080,0.20/ DATA(CH(I,44,41),I=1,5)/ 52.7,1.,3.895e-08,1.0080,0.20/ DATA(CH(I,44,40),I=1,5)/ 81.6,1.,3.023e-08,1.0080,0.20/ DATA(CH(I,44,39),I=1,5)/ 114.5,1.,2.346e-08,1.0080,0.20/ DATA(CH(I,44,38),I=1,5)/ 151.1,1.,1.820e-08,1.0080,0.20/ DATA(CH(I,44,37),I=1,5)/ 190.9,1.,1.412e-08,1.0080,0.20/ DATA(CH(I,44,36),I=1,5)/ 233.8,1.,1.096e-08,1.0080,0.20/ DATA(CH(I,44,35),I=1,5)/ 279.6,1.,8.504e-09,1.0080,0.20/ DATA(CH(I,44,34),I=1,5)/ 328.1,1.,6.599e-09,1.0080,0.20/ DATA(CH(I,44,33),I=1,5)/ 379.1,1.,5.121e-09,1.0080,0.20/ DATA(CH(I,44,32),I=1,5)/ 432.7,1.,3.974e-09,1.0080,0.20/ DATA(CH(I,44,31),I=1,5)/ 488.6,1.,3.083e-09,1.0080,0.20/ DATA(CH(I,44,30),I=1,5)/ 546.7,1.,2.393e-09,1.0080,0.20/ DATA(CH(I,44,29),I=1,5)/ 607.1,1.,1.857e-09,1.0080,0.20/ DATA(CH(I,44,28),I=1,5)/ 669.6,1.,1.441e-09,1.0080,0.20/ DATA(CH(I,44,27),I=1,5)/ 734.2,1.,1.118e-09,1.0080,0.20/ DATA(CH(I,44,26),I=1,5)/ 800.7,1.,8.675e-10,1.0080,0.20/ DATA(CH(I,44,25),I=1,5)/ 869.2,1.,6.732e-10,1.0080,0.20/ DATA(CH(I,44,24),I=1,5)/ 939.6,1.,5.223e-10,1.0080,0.20/ DATA(CH(I,44,23),I=1,5)/ 1011.8,1.,4.053e-10,1.0080,0.20/ DATA(CH(I,44,22),I=1,5)/ 1085.9,1.,3.145e-10,1.0080,0.20/ DATA(CH(I,44,21),I=1,5)/ 1161.7,1.,2.441e-10,1.0080,0.20/ DATA(CH(I,44,20),I=1,5)/ 1239.2,1.,1.894e-10,1.0080,0.20/ DATA(CH(I,44,19),I=1,5)/ 1318.4,1.,1.470e-10,1.0080,0.20/ DATA(CH(I,44,18),I=1,5)/ 1399.3,1.,1.140e-10,1.0080,0.20/ DATA(CH(I,44,17),I=1,5)/ 1481.8,1.,8.849e-11,1.0080,0.20/ DATA(CH(I,44,16),I=1,5)/ 1565.9,1.,6.867e-11,1.0080,0.20/ DATA(CH(I,44,15),I=1,5)/ 1651.6,1.,5.328e-11,1.0080,0.20/ DATA(CH(I,44,14),I=1,5)/ 1738.8,1.,4.135e-11,1.0080,0.20/ DATA(CH(I,44,13),I=1,5)/ 1827.6,1.,3.208e-11,1.0080,0.20/ DATA(CH(I,44,12),I=1,5)/ 1917.8,1.,2.490e-11,1.0080,0.20/ DATA(CH(I,44,11),I=1,5)/ 2009.6,1.,1.932e-11,1.0080,0.20/ DATA(CH(I,44,10),I=1,5)/ 4758.0,1.,1.499e-11,1.0080,0.20/ DATA(CH(I,44, 9),I=1,5)/ 4978.1,1.,1.163e-11,1.0080,0.20/ DATA(CH(I,44, 8),I=1,5)/ 5198.1,1.,9.027e-12,1.0080,0.20/ DATA(CH(I,44, 7),I=1,5)/ 5418.2,1.,7.004e-12,1.0080,0.20/ DATA(CH(I,44, 6),I=1,5)/ 5638.2,1.,5.435e-12,1.0080,0.20/ DATA(CH(I,44, 5),I=1,5)/ 5858.3,1.,4.218e-12,1.0080,0.20/ DATA(CH(I,44, 4),I=1,5)/ 6078.4,1.,3.273e-12,1.0080,0.20/ DATA(CH(I,44, 3),I=1,5)/ 6298.4,1.,2.540e-12,1.0080,0.20/ DATA(CH(I,44, 2),I=1,5)/26183.1,1.,1.971e-12,1.0080,0.20/ DATA(CH(I,44, 1),I=1,5)/27004.3,1.,1.529e-12,1.0080,0.20/ DATA(CH(I,45,45),I=1,5)/ 7.5,1.,8.337d-08,1.0250,0.20/ DATA(CH(I,45,44),I=1,5)/ 18.1,1.,6.498d-08,1.0250,0.20/ DATA(CH(I,45,43),I=1,5)/ 31.1,1.,5.065d-08,1.0250,0.20/ DATA(CH(I,45,42),I=1,5)/ 56.9,1.,3.948e-08,1.0250,0.20/ DATA(CH(I,45,41),I=1,5)/ 87.4,1.,3.077e-08,1.0250,0.20/ DATA(CH(I,45,40),I=1,5)/ 121.9,1.,2.398e-08,1.0250,0.20/ DATA(CH(I,45,39),I=1,5)/ 160.0,1.,1.869e-08,1.0250,0.20/ DATA(CH(I,45,38),I=1,5)/ 201.3,1.,1.457e-08,1.0250,0.20/ DATA(CH(I,45,37),I=1,5)/ 245.7,1.,1.136e-08,1.0250,0.20/ DATA(CH(I,45,36),I=1,5)/ 292.9,1.,8.851e-09,1.0250,0.20/ DATA(CH(I,45,35),I=1,5)/ 342.7,1.,6.898e-09,1.0250,0.20/ DATA(CH(I,45,34),I=1,5)/ 395.0,1.,5.377e-09,1.0250,0.20/ DATA(CH(I,45,33),I=1,5)/ 449.7,1.,4.191e-09,1.0250,0.20/ DATA(CH(I,45,32),I=1,5)/ 506.7,1.,3.266e-09,1.0250,0.20/ DATA(CH(I,45,31),I=1,5)/ 565.9,1.,2.546e-09,1.0250,0.20/ DATA(CH(I,45,30),I=1,5)/ 627.2,1.,1.984e-09,1.0250,0.20/ DATA(CH(I,45,29),I=1,5)/ 690.5,1.,1.547e-09,1.0250,0.20/ DATA(CH(I,45,28),I=1,5)/ 755.9,1.,1.206e-09,1.0250,0.20/ DATA(CH(I,45,27),I=1,5)/ 823.1,1.,9.396e-10,1.0250,0.20/ DATA(CH(I,45,26),I=1,5)/ 892.2,1.,7.324e-10,1.0250,0.20/ DATA(CH(I,45,25),I=1,5)/ 963.1,1.,5.708e-10,1.0250,0.20/ DATA(CH(I,45,24),I=1,5)/ 1035.8,1.,4.449e-10,1.0250,0.20/ DATA(CH(I,45,23),I=1,5)/ 1110.2,1.,3.468e-10,1.0250,0.20/ DATA(CH(I,45,22),I=1,5)/ 1186.2,1.,2.703e-10,1.0250,0.20/ DATA(CH(I,45,21),I=1,5)/ 1263.9,1.,2.107e-10,1.0250,0.20/ DATA(CH(I,45,20),I=1,5)/ 1343.3,1.,1.642e-10,1.0250,0.20/ DATA(CH(I,45,19),I=1,5)/ 1424.2,1.,1.280e-10,1.0250,0.20/ DATA(CH(I,45,18),I=1,5)/ 1506.6,1.,9.975e-11,1.0250,0.20/ DATA(CH(I,45,17),I=1,5)/ 1590.5,1.,7.775e-11,1.0250,0.20/ DATA(CH(I,45,16),I=1,5)/ 1676.0,1.,6.060e-11,1.0250,0.20/ DATA(CH(I,45,15),I=1,5)/ 1762.8,1.,4.723e-11,1.0250,0.20/ DATA(CH(I,45,14),I=1,5)/ 1851.2,1.,3.682e-11,1.0250,0.20/ DATA(CH(I,45,13),I=1,5)/ 1940.9,1.,2.870e-11,1.0250,0.20/ DATA(CH(I,45,12),I=1,5)/ 2032.0,1.,2.237e-11,1.0250,0.20/ DATA(CH(I,45,11),I=1,5)/ 2124.5,1.,1.743e-11,1.0250,0.20/ DATA(CH(I,45,10),I=1,5)/ 5017.4,1.,1.359e-11,1.0250,0.20/ DATA(CH(I,45, 9),I=1,5)/ 5244.3,1.,1.059e-11,1.0250,0.20/ DATA(CH(I,45, 8),I=1,5)/ 5471.2,1.,8.254e-12,1.0250,0.20/ DATA(CH(I,45, 7),I=1,5)/ 5698.1,1.,6.434e-12,1.0250,0.20/ DATA(CH(I,45, 6),I=1,5)/ 5925.1,1.,5.015e-12,1.0250,0.20/ DATA(CH(I,45, 5),I=1,5)/ 6152.0,1.,3.908e-12,1.0250,0.20/ DATA(CH(I,45, 4),I=1,5)/ 6378.9,1.,3.046e-12,1.0250,0.20/ DATA(CH(I,45, 3),I=1,5)/ 6605.8,1.,2.374e-12,1.0250,0.20/ DATA(CH(I,45, 2),I=1,5)/27424.7,1.,1.851e-12,1.0250,0.20/ DATA(CH(I,45, 1),I=1,5)/28269.2,1.,1.442e-12,1.0250,0.20/ DATA(CH(I,46,46),I=1,5)/ 8.3,1.,8.337d-08,1.0420,0.20/ DATA(CH(I,46,45),I=1,5)/ 19.4,1.,6.526d-08,1.0420,0.20/ DATA(CH(I,46,44),I=1,5)/ 32.9,1.,5.108d-08,1.0420,0.20/ DATA(CH(I,46,43),I=1,5)/ 59.8,1.,3.998e-08,1.0420,0.20/ DATA(CH(I,46,42),I=1,5)/ 91.5,1.,3.130e-08,1.0420,0.20/ DATA(CH(I,46,41),I=1,5)/ 127.1,1.,2.450e-08,1.0420,0.20/ DATA(CH(I,46,40),I=1,5)/ 166.3,1.,1.918e-08,1.0420,0.20/ DATA(CH(I,46,39),I=1,5)/ 208.8,1.,1.501e-08,1.0420,0.20/ DATA(CH(I,46,38),I=1,5)/ 254.3,1.,1.175e-08,1.0420,0.20/ DATA(CH(I,46,37),I=1,5)/ 302.5,1.,9.197e-09,1.0420,0.20/ DATA(CH(I,46,36),I=1,5)/ 353.4,1.,7.199e-09,1.0420,0.20/ DATA(CH(I,46,35),I=1,5)/ 406.7,1.,5.635e-09,1.0420,0.20/ DATA(CH(I,46,34),I=1,5)/ 462.4,1.,4.411e-09,1.0420,0.20/ DATA(CH(I,46,33),I=1,5)/ 520.4,1.,3.453e-09,1.0420,0.20/ DATA(CH(I,46,32),I=1,5)/ 580.5,1.,2.703e-09,1.0420,0.20/ DATA(CH(I,46,31),I=1,5)/ 642.6,1.,2.115e-09,1.0420,0.20/ DATA(CH(I,46,30),I=1,5)/ 706.8,1.,1.656e-09,1.0420,0.20/ DATA(CH(I,46,29),I=1,5)/ 773.0,1.,1.296e-09,1.0420,0.20/ DATA(CH(I,46,28),I=1,5)/ 840.9,1.,1.015e-09,1.0420,0.20/ DATA(CH(I,46,27),I=1,5)/ 910.8,1.,7.942e-10,1.0420,0.20/ DATA(CH(I,46,26),I=1,5)/ 982.3,1.,6.217e-10,1.0420,0.20/ DATA(CH(I,46,25),I=1,5)/ 1055.6,1.,4.866e-10,1.0420,0.20/ DATA(CH(I,46,24),I=1,5)/ 1130.6,1.,3.809e-10,1.0420,0.20/ DATA(CH(I,46,23),I=1,5)/ 1207.3,1.,2.981e-10,1.0420,0.20/ DATA(CH(I,46,22),I=1,5)/ 1285.5,1.,2.334e-10,1.0420,0.20/ DATA(CH(I,46,21),I=1,5)/ 1365.3,1.,1.827e-10,1.0420,0.20/ DATA(CH(I,46,20),I=1,5)/ 1446.6,1.,1.430e-10,1.0420,0.20/ DATA(CH(I,46,19),I=1,5)/ 1529.4,1.,1.119e-10,1.0420,0.20/ DATA(CH(I,46,18),I=1,5)/ 1613.7,1.,8.761e-11,1.0420,0.20/ DATA(CH(I,46,17),I=1,5)/ 1699.4,1.,6.858e-11,1.0420,0.20/ DATA(CH(I,46,16),I=1,5)/ 1786.5,1.,5.368e-11,1.0420,0.20/ DATA(CH(I,46,15),I=1,5)/ 1875.1,1.,4.202e-11,1.0420,0.20/ DATA(CH(I,46,14),I=1,5)/ 1965.0,1.,3.289e-11,1.0420,0.20/ DATA(CH(I,46,13),I=1,5)/ 2056.2,1.,2.575e-11,1.0420,0.20/ DATA(CH(I,46,12),I=1,5)/ 2148.8,1.,2.015e-11,1.0420,0.20/ DATA(CH(I,46,11),I=1,5)/ 2242.7,1.,1.577e-11,1.0420,0.20/ DATA(CH(I,46,10),I=1,5)/ 5283.7,1.,1.235e-11,1.0420,0.20/ DATA(CH(I,46, 9),I=1,5)/ 5517.5,1.,9.665e-12,1.0420,0.20/ DATA(CH(I,46, 8),I=1,5)/ 5751.4,1.,7.566e-12,1.0420,0.20/ DATA(CH(I,46, 7),I=1,5)/ 5985.2,1.,5.922e-12,1.0420,0.20/ DATA(CH(I,46, 6),I=1,5)/ 6219.1,1.,4.636e-12,1.0420,0.20/ DATA(CH(I,46, 5),I=1,5)/ 6452.9,1.,3.628e-12,1.0420,0.20/ DATA(CH(I,46, 4),I=1,5)/ 6686.7,1.,2.840e-12,1.0420,0.20/ DATA(CH(I,46, 3),I=1,5)/ 6920.6,1.,2.223e-12,1.0420,0.20/ DATA(CH(I,46, 2),I=1,5)/28695.5,1.,1.740e-12,1.0420,0.20/ DATA(CH(I,46, 1),I=1,5)/29563.4,1.,1.362e-12,1.0420,0.20/ DATA(CH(I,47,47),I=1,5)/ 7.6,1.,8.337d-08,1.0590,0.20/ DATA(CH(I,47,46),I=1,5)/ 21.5,1.,6.553d-08,1.0590,0.20/ DATA(CH(I,47,45),I=1,5)/ 34.8,1.,5.150d-08,1.0590,0.20/ DATA(CH(I,47,44),I=1,5)/ 62.9,1.,4.048e-08,1.0590,0.20/ DATA(CH(I,47,43),I=1,5)/ 95.7,1.,3.182e-08,1.0590,0.20/ DATA(CH(I,47,42),I=1,5)/ 132.5,1.,2.501e-08,1.0590,0.20/ DATA(CH(I,47,41),I=1,5)/ 173.0,1.,1.965e-08,1.0590,0.20/ DATA(CH(I,47,40),I=1,5)/ 216.6,1.,1.545e-08,1.0590,0.20/ DATA(CH(I,47,39),I=1,5)/ 263.2,1.,1.214e-08,1.0590,0.20/ DATA(CH(I,47,38),I=1,5)/ 312.6,1.,9.543e-09,1.0590,0.20/ DATA(CH(I,47,37),I=1,5)/ 364.5,1.,7.501e-09,1.0590,0.20/ DATA(CH(I,47,36),I=1,5)/ 418.9,1.,5.895e-09,1.0590,0.20/ DATA(CH(I,47,35),I=1,5)/ 475.7,1.,4.634e-09,1.0590,0.20/ DATA(CH(I,47,34),I=1,5)/ 534.6,1.,3.642e-09,1.0590,0.20/ DATA(CH(I,47,33),I=1,5)/ 595.7,1.,2.862e-09,1.0590,0.20/ DATA(CH(I,47,32),I=1,5)/ 658.8,1.,2.250e-09,1.0590,0.20/ DATA(CH(I,47,31),I=1,5)/ 723.8,1.,1.768e-09,1.0590,0.20/ DATA(CH(I,47,30),I=1,5)/ 790.8,1.,1.390e-09,1.0590,0.20/ DATA(CH(I,47,29),I=1,5)/ 859.6,1.,1.092e-09,1.0590,0.20/ DATA(CH(I,47,28),I=1,5)/ 930.2,1.,8.586e-10,1.0590,0.20/ DATA(CH(I,47,27),I=1,5)/ 1002.5,1.,6.748e-10,1.0590,0.20/ DATA(CH(I,47,26),I=1,5)/ 1076.5,1.,5.304e-10,1.0590,0.20/ DATA(CH(I,47,25),I=1,5)/ 1152.1,1.,4.169e-10,1.0590,0.20/ DATA(CH(I,47,24),I=1,5)/ 1229.3,1.,3.276e-10,1.0590,0.20/ DATA(CH(I,47,23),I=1,5)/ 1308.1,1.,2.575e-10,1.0590,0.20/ DATA(CH(I,47,22),I=1,5)/ 1388.4,1.,2.024e-10,1.0590,0.20/ DATA(CH(I,47,21),I=1,5)/ 1470.2,1.,1.591e-10,1.0590,0.20/ DATA(CH(I,47,20),I=1,5)/ 1553.5,1.,1.250e-10,1.0590,0.20/ DATA(CH(I,47,19),I=1,5)/ 1638.1,1.,9.828e-11,1.0590,0.20/ DATA(CH(I,47,18),I=1,5)/ 1724.2,1.,7.724e-11,1.0590,0.20/ DATA(CH(I,47,17),I=1,5)/ 1811.7,1.,6.071e-11,1.0590,0.20/ DATA(CH(I,47,16),I=1,5)/ 1900.5,1.,4.772e-11,1.0590,0.20/ DATA(CH(I,47,15),I=1,5)/ 1990.6,1.,3.751e-11,1.0590,0.20/ DATA(CH(I,47,14),I=1,5)/ 2082.1,1.,2.948e-11,1.0590,0.20/ DATA(CH(I,47,13),I=1,5)/ 2174.8,1.,2.317e-11,1.0590,0.20/ DATA(CH(I,47,12),I=1,5)/ 2268.8,1.,1.821e-11,1.0590,0.20/ DATA(CH(I,47,11),I=1,5)/ 2364.0,1.,1.431e-11,1.0590,0.20/ DATA(CH(I,47,10),I=1,5)/ 5556.9,1.,1.125e-11,1.0590,0.20/ DATA(CH(I,47, 9),I=1,5)/ 5797.7,1.,8.842e-12,1.0590,0.20/ DATA(CH(I,47, 8),I=1,5)/ 6038.6,1.,6.950e-12,1.0590,0.20/ DATA(CH(I,47, 7),I=1,5)/ 6279.4,1.,5.462e-12,1.0590,0.20/ DATA(CH(I,47, 6),I=1,5)/ 6520.3,1.,4.293e-12,1.0590,0.20/ DATA(CH(I,47, 5),I=1,5)/ 6761.2,1.,3.374e-12,1.0590,0.20/ DATA(CH(I,47, 4),I=1,5)/ 7002.0,1.,2.652e-12,1.0590,0.20/ DATA(CH(I,47, 3),I=1,5)/ 7242.9,1.,2.084e-12,1.0590,0.20/ DATA(CH(I,47, 2),I=1,5)/29995.4,1.,1.638e-12,1.0590,0.20/ DATA(CH(I,47, 1),I=1,5)/30887.1,1.,1.288e-12,1.0590,0.20/ DATA(CH(I,48,48),I=1,5)/ 9.0,1.,8.337d-08,1.0760,0.20/ DATA(CH(I,48,47),I=1,5)/ 16.9,1.,6.578d-08,1.0760,0.20/ DATA(CH(I,48,46),I=1,5)/ 37.5,1.,5.191d-08,1.0760,0.20/ DATA(CH(I,48,45),I=1,5)/ 67.2,1.,4.096e-08,1.0760,0.20/ DATA(CH(I,48,44),I=1,5)/ 101.6,1.,3.232e-08,1.0760,0.20/ DATA(CH(I,48,43),I=1,5)/ 140.0,1.,2.550e-08,1.0760,0.20/ DATA(CH(I,48,42),I=1,5)/ 182.0,1.,2.013e-08,1.0760,0.20/ DATA(CH(I,48,41),I=1,5)/ 227.1,1.,1.588e-08,1.0760,0.20/ DATA(CH(I,48,40),I=1,5)/ 275.2,1.,1.253e-08,1.0760,0.20/ DATA(CH(I,48,39),I=1,5)/ 326.0,1.,9.888e-09,1.0760,0.20/ DATA(CH(I,48,38),I=1,5)/ 379.3,1.,7.803e-09,1.0760,0.20/ DATA(CH(I,48,37),I=1,5)/ 435.0,1.,6.157e-09,1.0760,0.20/ DATA(CH(I,48,36),I=1,5)/ 493.0,1.,4.858e-09,1.0760,0.20/ DATA(CH(I,48,35),I=1,5)/ 553.1,1.,3.834e-09,1.0760,0.20/ DATA(CH(I,48,34),I=1,5)/ 615.3,1.,3.025e-09,1.0760,0.20/ DATA(CH(I,48,33),I=1,5)/ 679.5,1.,2.387e-09,1.0760,0.20/ DATA(CH(I,48,32),I=1,5)/ 745.6,1.,1.884e-09,1.0760,0.20/ DATA(CH(I,48,31),I=1,5)/ 813.5,1.,1.486e-09,1.0760,0.20/ DATA(CH(I,48,30),I=1,5)/ 883.1,1.,1.173e-09,1.0760,0.20/ DATA(CH(I,48,29),I=1,5)/ 954.5,1.,9.255e-10,1.0760,0.20/ DATA(CH(I,48,28),I=1,5)/ 1027.6,1.,7.303e-10,1.0760,0.20/ DATA(CH(I,48,27),I=1,5)/ 1102.3,1.,5.763e-10,1.0760,0.20/ DATA(CH(I,48,26),I=1,5)/ 1178.5,1.,4.547e-10,1.0760,0.20/ DATA(CH(I,48,25),I=1,5)/ 1256.3,1.,3.588e-10,1.0760,0.20/ DATA(CH(I,48,24),I=1,5)/ 1335.5,1.,2.831e-10,1.0760,0.20/ DATA(CH(I,48,23),I=1,5)/ 1416.3,1.,2.234e-10,1.0760,0.20/ DATA(CH(I,48,22),I=1,5)/ 1498.4,1.,1.763e-10,1.0760,0.20/ DATA(CH(I,48,21),I=1,5)/ 1582.0,1.,1.391e-10,1.0760,0.20/ DATA(CH(I,48,20),I=1,5)/ 1666.9,1.,1.098e-10,1.0760,0.20/ DATA(CH(I,48,19),I=1,5)/ 1753.2,1.,8.662e-11,1.0760,0.20/ DATA(CH(I,48,18),I=1,5)/ 1840.8,1.,6.835e-11,1.0760,0.20/ DATA(CH(I,48,17),I=1,5)/ 1929.6,1.,5.393e-11,1.0760,0.20/ DATA(CH(I,48,16),I=1,5)/ 2019.7,1.,4.256e-11,1.0760,0.20/ DATA(CH(I,48,15),I=1,5)/ 2111.1,1.,3.358e-11,1.0760,0.20/ DATA(CH(I,48,14),I=1,5)/ 2203.7,1.,2.650e-11,1.0760,0.20/ DATA(CH(I,48,13),I=1,5)/ 2297.5,1.,2.091e-11,1.0760,0.20/ DATA(CH(I,48,12),I=1,5)/ 2392.4,1.,1.650e-11,1.0760,0.20/ DATA(CH(I,48,11),I=1,5)/ 2488.6,1.,1.302e-11,1.0760,0.20/ DATA(CH(I,48,10),I=1,5)/ 5836.9,1.,1.027e-11,1.0760,0.20/ DATA(CH(I,48, 9),I=1,5)/ 6084.8,1.,8.107e-12,1.0760,0.20/ DATA(CH(I,48, 8),I=1,5)/ 6332.8,1.,6.397e-12,1.0760,0.20/ DATA(CH(I,48, 7),I=1,5)/ 6580.8,1.,5.048e-12,1.0760,0.20/ DATA(CH(I,48, 6),I=1,5)/ 6828.7,1.,3.983e-12,1.0760,0.20/ DATA(CH(I,48, 5),I=1,5)/ 7076.7,1.,3.143e-12,1.0760,0.20/ DATA(CH(I,48, 4),I=1,5)/ 7324.6,1.,2.480e-12,1.0760,0.20/ DATA(CH(I,48, 3),I=1,5)/ 7572.6,1.,1.957e-12,1.0760,0.20/ DATA(CH(I,48, 2),I=1,5)/31324.6,1.,1.544e-12,1.0760,0.20/ DATA(CH(I,48, 1),I=1,5)/32240.3,1.,1.219e-12,1.0760,0.20/ DATA(CH(I,49,49),I=1,5)/ 5.8,1.,8.337d-08,1.0930,0.20/ DATA(CH(I,49,48),I=1,5)/ 18.9,1.,6.604d-08,1.0930,0.20/ DATA(CH(I,49,47),I=1,5)/ 28.0,1.,5.231d-08,1.0930,0.20/ DATA(CH(I,49,46),I=1,5)/ 57.0,1.,4.143d-08,1.0930,0.20/ DATA(CH(I,49,45),I=1,5)/ 87.9,1.,3.282e-08,1.0930,0.20/ DATA(CH(I,49,44),I=1,5)/ 123.1,1.,2.599e-08,1.0930,0.20/ DATA(CH(I,49,43),I=1,5)/ 162.0,1.,2.059e-08,1.0930,0.20/ DATA(CH(I,49,42),I=1,5)/ 204.4,1.,1.631e-08,1.0930,0.20/ DATA(CH(I,49,41),I=1,5)/ 249.9,1.,1.292e-08,1.0930,0.20/ DATA(CH(I,49,40),I=1,5)/ 298.5,1.,1.023e-08,1.0930,0.20/ DATA(CH(I,49,39),I=1,5)/ 349.9,1.,8.105e-09,1.0930,0.20/ DATA(CH(I,49,38),I=1,5)/ 403.9,1.,6.420e-09,1.0930,0.20/ DATA(CH(I,49,37),I=1,5)/ 460.5,1.,5.085e-09,1.0930,0.20/ DATA(CH(I,49,36),I=1,5)/ 519.5,1.,4.028e-09,1.0930,0.20/ DATA(CH(I,49,35),I=1,5)/ 580.9,1.,3.191e-09,1.0930,0.20/ DATA(CH(I,49,34),I=1,5)/ 644.6,1.,2.527e-09,1.0930,0.20/ DATA(CH(I,49,33),I=1,5)/ 710.4,1.,2.002e-09,1.0930,0.20/ DATA(CH(I,49,32),I=1,5)/ 778.4,1.,1.586e-09,1.0930,0.20/ DATA(CH(I,49,31),I=1,5)/ 848.4,1.,1.256e-09,1.0930,0.20/ DATA(CH(I,49,30),I=1,5)/ 920.5,1.,9.949e-10,1.0930,0.20/ DATA(CH(I,49,29),I=1,5)/ 994.5,1.,7.880e-10,1.0930,0.20/ DATA(CH(I,49,28),I=1,5)/ 1070.3,1.,6.242e-10,1.0930,0.20/ DATA(CH(I,49,27),I=1,5)/ 1148.1,1.,4.944e-10,1.0930,0.20/ DATA(CH(I,49,26),I=1,5)/ 1227.6,1.,3.916e-10,1.0930,0.20/ DATA(CH(I,49,25),I=1,5)/ 1308.9,1.,3.102e-10,1.0930,0.20/ DATA(CH(I,49,24),I=1,5)/ 1392.0,1.,2.457e-10,1.0930,0.20/ DATA(CH(I,49,23),I=1,5)/ 1476.8,1.,1.946e-10,1.0930,0.20/ DATA(CH(I,49,22),I=1,5)/ 1563.2,1.,1.542e-10,1.0930,0.20/ DATA(CH(I,49,21),I=1,5)/ 1651.3,1.,1.221e-10,1.0930,0.20/ DATA(CH(I,49,20),I=1,5)/ 1740.9,1.,9.672e-11,1.0930,0.20/ DATA(CH(I,49,19),I=1,5)/ 1832.2,1.,7.661e-11,1.0930,0.20/ DATA(CH(I,49,18),I=1,5)/ 1925.0,1.,6.069e-11,1.0930,0.20/ DATA(CH(I,49,17),I=1,5)/ 2019.4,1.,4.807e-11,1.0930,0.20/ DATA(CH(I,49,16),I=1,5)/ 2115.2,1.,3.808e-11,1.0930,0.20/ DATA(CH(I,49,15),I=1,5)/ 2212.5,1.,3.016e-11,1.0930,0.20/ DATA(CH(I,49,14),I=1,5)/ 2311.4,1.,2.389e-11,1.0930,0.20/ DATA(CH(I,49,13),I=1,5)/ 2411.6,1.,1.892e-11,1.0930,0.20/ DATA(CH(I,49,12),I=1,5)/ 2513.3,1.,1.499e-11,1.0930,0.20/ DATA(CH(I,49,11),I=1,5)/ 2616.3,1.,1.187e-11,1.0930,0.20/ DATA(CH(I,49,10),I=1,5)/ 6123.8,1.,9.404e-12,1.0930,0.20/ DATA(CH(I,49, 9),I=1,5)/ 6378.9,1.,7.449e-12,1.0930,0.20/ DATA(CH(I,49, 8),I=1,5)/ 6634.1,1.,5.900e-12,1.0930,0.20/ DATA(CH(I,49, 7),I=1,5)/ 6889.2,1.,4.673e-12,1.0930,0.20/ DATA(CH(I,49, 6),I=1,5)/ 7144.4,1.,3.702e-12,1.0930,0.20/ DATA(CH(I,49, 5),I=1,5)/ 7399.5,1.,2.932e-12,1.0930,0.20/ DATA(CH(I,49, 4),I=1,5)/ 7654.7,1.,2.323e-12,1.0930,0.20/ DATA(CH(I,49, 3),I=1,5)/ 7909.8,1.,1.840e-12,1.0930,0.20/ DATA(CH(I,49, 2),I=1,5)/32682.9,1.,1.457e-12,1.0930,0.20/ DATA(CH(I,49, 1),I=1,5)/33622.9,1.,1.154e-12,1.0930,0.20/ DATA(CH(I,50,50),I=1,5)/ 7.3,1.,8.337d-08,1.1100,0.20/ DATA(CH(I,50,49),I=1,5)/ 14.6,1.,6.628d-08,1.1100,0.20/ DATA(CH(I,50,48),I=1,5)/ 30.5,1.,5.269d-08,1.1100,0.20/ DATA(CH(I,50,47),I=1,5)/ 40.7,1.,4.189d-08,1.1100,0.20/ DATA(CH(I,50,46),I=1,5)/ 65.3,1.,3.330e-08,1.1100,0.20/ DATA(CH(I,50,45),I=1,5)/ 94.2,1.,2.648e-08,1.1100,0.20/ DATA(CH(I,50,44),I=1,5)/ 127.0,1.,2.105e-08,1.1100,0.20/ DATA(CH(I,50,43),I=1,5)/ 163.6,1.,1.673e-08,1.1100,0.20/ DATA(CH(I,50,42),I=1,5)/ 203.8,1.,1.330e-08,1.1100,0.20/ DATA(CH(I,50,41),I=1,5)/ 247.2,1.,1.058e-08,1.1100,0.20/ DATA(CH(I,50,40),I=1,5)/ 293.9,1.,8.408e-09,1.1100,0.20/ DATA(CH(I,50,39),I=1,5)/ 343.7,1.,6.685e-09,1.1100,0.20/ DATA(CH(I,50,38),I=1,5)/ 396.5,1.,5.314e-09,1.1100,0.20/ DATA(CH(I,50,37),I=1,5)/ 452.3,1.,4.225e-09,1.1100,0.20/ DATA(CH(I,50,36),I=1,5)/ 510.8,1.,3.359e-09,1.1100,0.20/ DATA(CH(I,50,35),I=1,5)/ 572.1,1.,2.670e-09,1.1100,0.20/ DATA(CH(I,50,34),I=1,5)/ 636.0,1.,2.123e-09,1.1100,0.20/ DATA(CH(I,50,33),I=1,5)/ 702.6,1.,1.688e-09,1.1100,0.20/ DATA(CH(I,50,32),I=1,5)/ 771.7,1.,1.342e-09,1.1100,0.20/ DATA(CH(I,50,31),I=1,5)/ 843.4,1.,1.067e-09,1.1100,0.20/ DATA(CH(I,50,30),I=1,5)/ 917.5,1.,8.480e-10,1.1100,0.20/ DATA(CH(I,50,29),I=1,5)/ 994.1,1.,6.742e-10,1.1100,0.20/ DATA(CH(I,50,28),I=1,5)/ 1073.0,1.,5.360e-10,1.1100,0.20/ DATA(CH(I,50,27),I=1,5)/ 1154.2,1.,4.261e-10,1.1100,0.20/ DATA(CH(I,50,26),I=1,5)/ 1237.8,1.,3.388e-10,1.1100,0.20/ DATA(CH(I,50,25),I=1,5)/ 1323.6,1.,2.693e-10,1.1100,0.20/ DATA(CH(I,50,24),I=1,5)/ 1411.7,1.,2.141e-10,1.1100,0.20/ DATA(CH(I,50,23),I=1,5)/ 1501.9,1.,1.702e-10,1.1100,0.20/ DATA(CH(I,50,22),I=1,5)/ 1594.3,1.,1.353e-10,1.1100,0.20/ DATA(CH(I,50,21),I=1,5)/ 1688.9,1.,1.076e-10,1.1100,0.20/ DATA(CH(I,50,20),I=1,5)/ 1785.6,1.,8.553e-11,1.1100,0.20/ DATA(CH(I,50,19),I=1,5)/ 1884.4,1.,6.800e-11,1.1100,0.20/ DATA(CH(I,50,18),I=1,5)/ 1985.3,1.,5.406e-11,1.1100,0.20/ DATA(CH(I,50,17),I=1,5)/ 2088.2,1.,4.298e-11,1.1100,0.20/ DATA(CH(I,50,16),I=1,5)/ 2193.1,1.,3.417e-11,1.1100,0.20/ DATA(CH(I,50,15),I=1,5)/ 2300.0,1.,2.716e-11,1.1100,0.20/ DATA(CH(I,50,14),I=1,5)/ 2408.9,1.,2.159e-11,1.1100,0.20/ DATA(CH(I,50,13),I=1,5)/ 2519.8,1.,1.717e-11,1.1100,0.20/ DATA(CH(I,50,12),I=1,5)/ 2632.6,1.,1.365e-11,1.1100,0.20/ DATA(CH(I,50,11),I=1,5)/ 2747.3,1.,1.085e-11,1.1100,0.20/ DATA(CH(I,50,10),I=1,5)/ 6417.5,1.,8.626e-12,1.1100,0.20/ DATA(CH(I,50, 9),I=1,5)/ 6679.9,1.,6.858e-12,1.1100,0.20/ DATA(CH(I,50, 8),I=1,5)/ 6942.4,1.,5.452e-12,1.1100,0.20/ DATA(CH(I,50, 7),I=1,5)/ 7204.8,1.,4.334e-12,1.1100,0.20/ DATA(CH(I,50, 6),I=1,5)/ 7467.2,1.,3.446e-12,1.1100,0.20/ DATA(CH(I,50, 5),I=1,5)/ 7729.6,1.,2.740e-12,1.1100,0.20/ DATA(CH(I,50, 4),I=1,5)/ 7992.1,1.,2.178e-12,1.1100,0.20/ DATA(CH(I,50, 3),I=1,5)/ 8254.5,1.,1.731e-12,1.1100,0.20/ DATA(CH(I,50, 2),I=1,5)/34070.4,1.,1.377e-12,1.1100,0.20/ DATA(CH(I,50, 1),I=1,5)/35034.9,1.,1.094e-12,1.1100,0.20/ DATA(CH(I,51,51),I=1,5)/ 8.6,1.,8.337d-08,1.1270,0.20/ DATA(CH(I,51,50),I=1,5)/ 16.5,1.,6.651d-08,1.1270,0.20/ DATA(CH(I,51,49),I=1,5)/ 25.3,1.,5.307d-08,1.1270,0.20/ DATA(CH(I,51,48),I=1,5)/ 44.2,1.,4.234d-08,1.1270,0.20/ DATA(CH(I,51,47),I=1,5)/ 56.0,1.,3.378e-08,1.1270,0.20/ DATA(CH(I,51,46),I=1,5)/ 108.0,1.,2.695e-08,1.1270,0.20/ DATA(CH(I,51,45),I=1,5)/ 144.0,1.,2.150e-08,1.1270,0.20/ DATA(CH(I,51,44),I=1,5)/ 183.7,1.,1.715e-08,1.1270,0.20/ DATA(CH(I,51,43),I=1,5)/ 226.9,1.,1.369e-08,1.1270,0.20/ DATA(CH(I,51,42),I=1,5)/ 273.2,1.,1.092e-08,1.1270,0.20/ DATA(CH(I,51,41),I=1,5)/ 322.7,1.,8.711e-09,1.1270,0.20/ DATA(CH(I,51,40),I=1,5)/ 375.1,1.,6.950e-09,1.1270,0.20/ DATA(CH(I,51,39),I=1,5)/ 430.4,1.,5.545e-09,1.1270,0.20/ DATA(CH(I,51,38),I=1,5)/ 488.4,1.,4.424e-09,1.1270,0.20/ DATA(CH(I,51,37),I=1,5)/ 549.0,1.,3.530e-09,1.1270,0.20/ DATA(CH(I,51,36),I=1,5)/ 612.2,1.,2.816e-09,1.1270,0.20/ DATA(CH(I,51,35),I=1,5)/ 677.9,1.,2.247e-09,1.1270,0.20/ DATA(CH(I,51,34),I=1,5)/ 746.0,1.,1.792e-09,1.1270,0.20/ DATA(CH(I,51,33),I=1,5)/ 816.5,1.,1.430e-09,1.1270,0.20/ DATA(CH(I,51,32),I=1,5)/ 889.3,1.,1.141e-09,1.1270,0.20/ DATA(CH(I,51,31),I=1,5)/ 964.3,1.,9.103e-10,1.1270,0.20/ DATA(CH(I,51,30),I=1,5)/ 1041.6,1.,7.262e-10,1.1270,0.20/ DATA(CH(I,51,29),I=1,5)/ 1121.0,1.,5.794e-10,1.1270,0.20/ DATA(CH(I,51,28),I=1,5)/ 1202.5,1.,4.623e-10,1.1270,0.20/ DATA(CH(I,51,27),I=1,5)/ 1286.1,1.,3.688e-10,1.1270,0.20/ DATA(CH(I,51,26),I=1,5)/ 1371.7,1.,2.942e-10,1.1270,0.20/ DATA(CH(I,51,25),I=1,5)/ 1459.4,1.,2.348e-10,1.1270,0.20/ DATA(CH(I,51,24),I=1,5)/ 1549.0,1.,1.873e-10,1.1270,0.20/ DATA(CH(I,51,23),I=1,5)/ 1640.5,1.,1.494e-10,1.1270,0.20/ DATA(CH(I,51,22),I=1,5)/ 1734.0,1.,1.192e-10,1.1270,0.20/ DATA(CH(I,51,21),I=1,5)/ 1829.4,1.,9.511e-11,1.1270,0.20/ DATA(CH(I,51,20),I=1,5)/ 1926.6,1.,7.588e-11,1.1270,0.20/ DATA(CH(I,51,19),I=1,5)/ 2025.7,1.,6.054e-11,1.1270,0.20/ DATA(CH(I,51,18),I=1,5)/ 2126.6,1.,4.830e-11,1.1270,0.20/ DATA(CH(I,51,17),I=1,5)/ 2229.2,1.,3.854e-11,1.1270,0.20/ DATA(CH(I,51,16),I=1,5)/ 2333.6,1.,3.075e-11,1.1270,0.20/ DATA(CH(I,51,15),I=1,5)/ 2439.8,1.,2.453e-11,1.1270,0.20/ DATA(CH(I,51,14),I=1,5)/ 2547.7,1.,1.957e-11,1.1270,0.20/ DATA(CH(I,51,13),I=1,5)/ 2657.3,1.,1.561e-11,1.1270,0.20/ DATA(CH(I,51,12),I=1,5)/ 2768.5,1.,1.246e-11,1.1270,0.20/ DATA(CH(I,51,11),I=1,5)/ 2881.5,1.,9.939e-12,1.1270,0.20/ DATA(CH(I,51,10),I=1,5)/ 6718.1,1.,7.929e-12,1.1270,0.20/ DATA(CH(I,51, 9),I=1,5)/ 6987.9,1.,6.326e-12,1.1270,0.20/ DATA(CH(I,51, 8),I=1,5)/ 7257.7,1.,5.047e-12,1.1270,0.20/ DATA(CH(I,51, 7),I=1,5)/ 7527.5,1.,4.027e-12,1.1270,0.20/ DATA(CH(I,51, 6),I=1,5)/ 7797.3,1.,3.213e-12,1.1270,0.20/ DATA(CH(I,51, 5),I=1,5)/ 8067.1,1.,2.563e-12,1.1270,0.20/ DATA(CH(I,51, 4),I=1,5)/ 8336.9,1.,2.045e-12,1.1270,0.20/ DATA(CH(I,51, 3),I=1,5)/ 8606.6,1.,1.632e-12,1.1270,0.20/ DATA(CH(I,51, 2),I=1,5)/35487.1,1.,1.302e-12,1.1270,0.20/ DATA(CH(I,51, 1),I=1,5)/36476.4,1.,1.038e-12,1.1270,0.20/ DATA(CH(I,52,52),I=1,5)/ 9.0,1.,8.337d-08,1.1440,0.20/ DATA(CH(I,52,51),I=1,5)/ 18.6,1.,6.674d-08,1.1440,0.20/ DATA(CH(I,52,50),I=1,5)/ 28.0,1.,5.343d-08,1.1440,0.20/ DATA(CH(I,52,49),I=1,5)/ 37.4,1.,4.277d-08,1.1440,0.20/ DATA(CH(I,52,48),I=1,5)/ 58.8,1.,3.424e-08,1.1440,0.20/ DATA(CH(I,52,47),I=1,5)/ 70.7,1.,2.741e-08,1.1440,0.20/ DATA(CH(I,52,46),I=1,5)/ 137.0,1.,2.195e-08,1.1440,0.20/ DATA(CH(I,52,45),I=1,5)/ 175.6,1.,1.757e-08,1.1440,0.20/ DATA(CH(I,52,44),I=1,5)/ 217.7,1.,1.407e-08,1.1440,0.20/ DATA(CH(I,52,43),I=1,5)/ 263.1,1.,1.126e-08,1.1440,0.20/ DATA(CH(I,52,42),I=1,5)/ 311.7,1.,9.014e-09,1.1440,0.20/ DATA(CH(I,52,41),I=1,5)/ 363.4,1.,7.216e-09,1.1440,0.20/ DATA(CH(I,52,40),I=1,5)/ 418.0,1.,5.777e-09,1.1440,0.20/ DATA(CH(I,52,39),I=1,5)/ 475.4,1.,4.625e-09,1.1440,0.20/ DATA(CH(I,52,38),I=1,5)/ 535.7,1.,3.703e-09,1.1440,0.20/ DATA(CH(I,52,37),I=1,5)/ 598.5,1.,2.964e-09,1.1440,0.20/ DATA(CH(I,52,36),I=1,5)/ 664.1,1.,2.373e-09,1.1440,0.20/ DATA(CH(I,52,35),I=1,5)/ 732.1,1.,1.900e-09,1.1440,0.20/ DATA(CH(I,52,34),I=1,5)/ 802.6,1.,1.521e-09,1.1440,0.20/ DATA(CH(I,52,33),I=1,5)/ 875.6,1.,1.217e-09,1.1440,0.20/ DATA(CH(I,52,32),I=1,5)/ 950.9,1.,9.747e-10,1.1440,0.20/ DATA(CH(I,52,31),I=1,5)/ 1028.6,1.,7.803e-10,1.1440,0.20/ DATA(CH(I,52,30),I=1,5)/ 1108.6,1.,6.247e-10,1.1440,0.20/ DATA(CH(I,52,29),I=1,5)/ 1190.8,1.,5.001e-10,1.1440,0.20/ DATA(CH(I,52,28),I=1,5)/ 1275.2,1.,4.003e-10,1.1440,0.20/ DATA(CH(I,52,27),I=1,5)/ 1361.8,1.,3.205e-10,1.1440,0.20/ DATA(CH(I,52,26),I=1,5)/ 1450.5,1.,2.566e-10,1.1440,0.20/ DATA(CH(I,52,25),I=1,5)/ 1541.3,1.,2.054e-10,1.1440,0.20/ DATA(CH(I,52,24),I=1,5)/ 1634.2,1.,1.644e-10,1.1440,0.20/ DATA(CH(I,52,23),I=1,5)/ 1729.2,1.,1.316e-10,1.1440,0.20/ DATA(CH(I,52,22),I=1,5)/ 1826.1,1.,1.054e-10,1.1440,0.20/ DATA(CH(I,52,21),I=1,5)/ 1925.1,1.,8.437e-11,1.1440,0.20/ DATA(CH(I,52,20),I=1,5)/ 2026.0,1.,6.754e-11,1.1440,0.20/ DATA(CH(I,52,19),I=1,5)/ 2128.8,1.,5.407e-11,1.1440,0.20/ DATA(CH(I,52,18),I=1,5)/ 2233.6,1.,4.329e-11,1.1440,0.20/ DATA(CH(I,52,17),I=1,5)/ 2340.2,1.,3.465e-11,1.1440,0.20/ DATA(CH(I,52,16),I=1,5)/ 2448.8,1.,2.774e-11,1.1440,0.20/ DATA(CH(I,52,15),I=1,5)/ 2559.2,1.,2.221e-11,1.1440,0.20/ DATA(CH(I,52,14),I=1,5)/ 2671.4,1.,1.778e-11,1.1440,0.20/ DATA(CH(I,52,13),I=1,5)/ 2785.4,1.,1.423e-11,1.1440,0.20/ DATA(CH(I,52,12),I=1,5)/ 2901.2,1.,1.139e-11,1.1440,0.20/ DATA(CH(I,52,11),I=1,5)/ 3018.8,1.,9.122e-12,1.1440,0.20/ DATA(CH(I,52,10),I=1,5)/ 7025.6,1.,7.303e-12,1.1440,0.20/ DATA(CH(I,52, 9),I=1,5)/ 7302.8,1.,5.846e-12,1.1440,0.20/ DATA(CH(I,52, 8),I=1,5)/ 7580.1,1.,4.680e-12,1.1440,0.20/ DATA(CH(I,52, 7),I=1,5)/ 7857.3,1.,3.747e-12,1.1440,0.20/ DATA(CH(I,52, 6),I=1,5)/ 8134.5,1.,3.000e-12,1.1440,0.20/ DATA(CH(I,52, 5),I=1,5)/ 8411.8,1.,2.401e-12,1.1440,0.20/ DATA(CH(I,52, 4),I=1,5)/ 8689.0,1.,1.922e-12,1.1440,0.20/ DATA(CH(I,52, 3),I=1,5)/ 8966.3,1.,1.539e-12,1.1440,0.20/ DATA(CH(I,52, 2),I=1,5)/36932.9,1.,1.232e-12,1.1440,0.20/ DATA(CH(I,52, 1),I=1,5)/37947.3,1.,9.864e-13,1.1440,0.20/ DATA(CH(I,53,53),I=1,5)/ 10.5,1.,8.337d-08,1.1610,0.20/ DATA(CH(I,53,52),I=1,5)/ 19.1,1.,6.696d-08,1.1610,0.20/ DATA(CH(I,53,51),I=1,5)/ 33.0,1.,5.378d-08,1.1610,0.20/ DATA(CH(I,53,50),I=1,5)/ 60.6,1.,4.320e-08,1.1610,0.20/ DATA(CH(I,53,49),I=1,5)/ 93.2,1.,3.470e-08,1.1610,0.20/ DATA(CH(I,53,48),I=1,5)/ 130.2,1.,2.787e-08,1.1610,0.20/ DATA(CH(I,53,47),I=1,5)/ 171.2,1.,2.239e-08,1.1610,0.20/ DATA(CH(I,53,46),I=1,5)/ 215.6,1.,1.798e-08,1.1610,0.20/ DATA(CH(I,53,45),I=1,5)/ 263.4,1.,1.444e-08,1.1610,0.20/ DATA(CH(I,53,44),I=1,5)/ 314.2,1.,1.160e-08,1.1610,0.20/ DATA(CH(I,53,43),I=1,5)/ 367.9,1.,9.317e-09,1.1610,0.20/ DATA(CH(I,53,42),I=1,5)/ 424.4,1.,7.483e-09,1.1610,0.20/ DATA(CH(I,53,41),I=1,5)/ 483.5,1.,6.011e-09,1.1610,0.20/ DATA(CH(I,53,40),I=1,5)/ 545.1,1.,4.828e-09,1.1610,0.20/ DATA(CH(I,53,39),I=1,5)/ 609.2,1.,3.878e-09,1.1610,0.20/ DATA(CH(I,53,38),I=1,5)/ 675.5,1.,3.115e-09,1.1610,0.20/ DATA(CH(I,53,37),I=1,5)/ 744.1,1.,2.502e-09,1.1610,0.20/ DATA(CH(I,53,36),I=1,5)/ 814.8,1.,2.009e-09,1.1610,0.20/ DATA(CH(I,53,35),I=1,5)/ 887.7,1.,1.614e-09,1.1610,0.20/ DATA(CH(I,53,34),I=1,5)/ 962.6,1.,1.296e-09,1.1610,0.20/ DATA(CH(I,53,33),I=1,5)/ 1039.5,1.,1.041e-09,1.1610,0.20/ DATA(CH(I,53,32),I=1,5)/ 1118.3,1.,8.363e-10,1.1610,0.20/ DATA(CH(I,53,31),I=1,5)/ 1199.1,1.,6.717e-10,1.1610,0.20/ DATA(CH(I,53,30),I=1,5)/ 1281.6,1.,5.395e-10,1.1610,0.20/ DATA(CH(I,53,29),I=1,5)/ 1366.0,1.,4.334e-10,1.1610,0.20/ DATA(CH(I,53,28),I=1,5)/ 1452.2,1.,3.481e-10,1.1610,0.20/ DATA(CH(I,53,27),I=1,5)/ 1540.1,1.,2.796e-10,1.1610,0.20/ DATA(CH(I,53,26),I=1,5)/ 1629.7,1.,2.246e-10,1.1610,0.20/ DATA(CH(I,53,25),I=1,5)/ 1721.0,1.,1.804e-10,1.1610,0.20/ DATA(CH(I,53,24),I=1,5)/ 1813.9,1.,1.449e-10,1.1610,0.20/ DATA(CH(I,53,23),I=1,5)/ 1908.4,1.,1.164e-10,1.1610,0.20/ DATA(CH(I,53,22),I=1,5)/ 2004.5,1.,9.346e-11,1.1610,0.20/ DATA(CH(I,53,21),I=1,5)/ 2102.1,1.,7.507e-11,1.1610,0.20/ DATA(CH(I,53,20),I=1,5)/ 2201.3,1.,6.030e-11,1.1610,0.20/ DATA(CH(I,53,19),I=1,5)/ 2302.0,1.,4.843e-11,1.1610,0.20/ DATA(CH(I,53,18),I=1,5)/ 2404.2,1.,3.890e-11,1.1610,0.20/ DATA(CH(I,53,17),I=1,5)/ 2507.8,1.,3.125e-11,1.1610,0.20/ DATA(CH(I,53,16),I=1,5)/ 2612.9,1.,2.510e-11,1.1610,0.20/ DATA(CH(I,53,15),I=1,5)/ 2719.5,1.,2.016e-11,1.1610,0.20/ DATA(CH(I,53,14),I=1,5)/ 2827.4,1.,1.619e-11,1.1610,0.20/ DATA(CH(I,53,13),I=1,5)/ 2936.7,1.,1.300e-11,1.1610,0.20/ DATA(CH(I,53,12),I=1,5)/ 3047.4,1.,1.045e-11,1.1610,0.20/ DATA(CH(I,53,11),I=1,5)/ 3159.4,1.,8.390e-12,1.1610,0.20/ DATA(CH(I,53,10),I=1,5)/ 7339.9,1.,6.739e-12,1.1610,0.20/ DATA(CH(I,53, 9),I=1,5)/ 7624.7,1.,5.413e-12,1.1610,0.20/ DATA(CH(I,53, 8),I=1,5)/ 7909.5,1.,4.347e-12,1.1610,0.20/ DATA(CH(I,53, 7),I=1,5)/ 8194.2,1.,3.492e-12,1.1610,0.20/ DATA(CH(I,53, 6),I=1,5)/ 8479.0,1.,2.805e-12,1.1610,0.20/ DATA(CH(I,53, 5),I=1,5)/ 8763.8,1.,2.253e-12,1.1610,0.20/ DATA(CH(I,53, 4),I=1,5)/ 9048.6,1.,1.809e-12,1.1610,0.20/ DATA(CH(I,53, 3),I=1,5)/ 9333.3,1.,1.453e-12,1.1610,0.20/ DATA(CH(I,53, 2),I=1,5)/38408.0,1.,1.167e-12,1.1610,0.20/ DATA(CH(I,53, 1),I=1,5)/39447.6,1.,9.376e-13,1.1610,0.20/ DATA(CH(I,54,54),I=1,5)/ 12.1,1.,8.337d-08,1.1780,0.20/ DATA(CH(I,54,53),I=1,5)/ 21.0,1.,6.718d-08,1.1780,0.20/ DATA(CH(I,54,52),I=1,5)/ 31.0,1.,5.413d-08,1.1780,0.20/ DATA(CH(I,54,51),I=1,5)/ 45.0,1.,4.362d-08,1.1780,0.20/ DATA(CH(I,54,50),I=1,5)/ 71.6,1.,3.514e-08,1.1780,0.20/ DATA(CH(I,54,49),I=1,5)/ 102.6,1.,2.832e-08,1.1780,0.20/ DATA(CH(I,54,48),I=1,5)/ 137.7,1.,2.282e-08,1.1780,0.20/ DATA(CH(I,54,47),I=1,5)/ 176.6,1.,1.839e-08,1.1780,0.20/ DATA(CH(I,54,46),I=1,5)/ 219.0,1.,1.482e-08,1.1780,0.20/ DATA(CH(I,54,45),I=1,5)/ 264.9,1.,1.194e-08,1.1780,0.20/ DATA(CH(I,54,44),I=1,5)/ 313.9,1.,9.619e-09,1.1780,0.20/ DATA(CH(I,54,43),I=1,5)/ 366.1,1.,7.751e-09,1.1780,0.20/ DATA(CH(I,54,42),I=1,5)/ 421.3,1.,6.246e-09,1.1780,0.20/ DATA(CH(I,54,41),I=1,5)/ 479.4,1.,5.033e-09,1.1780,0.20/ DATA(CH(I,54,40),I=1,5)/ 540.3,1.,4.055e-09,1.1780,0.20/ DATA(CH(I,54,39),I=1,5)/ 603.9,1.,3.268e-09,1.1780,0.20/ DATA(CH(I,54,38),I=1,5)/ 670.2,1.,2.633e-09,1.1780,0.20/ DATA(CH(I,54,37),I=1,5)/ 739.1,1.,2.122e-09,1.1780,0.20/ DATA(CH(I,54,36),I=1,5)/ 810.5,1.,1.709e-09,1.1780,0.20/ DATA(CH(I,54,35),I=1,5)/ 884.3,1.,1.377e-09,1.1780,0.20/ DATA(CH(I,54,34),I=1,5)/ 960.6,1.,1.110e-09,1.1780,0.20/ DATA(CH(I,54,33),I=1,5)/ 1039.3,1.,8.943e-10,1.1780,0.20/ DATA(CH(I,54,32),I=1,5)/ 1120.3,1.,7.206e-10,1.1780,0.20/ DATA(CH(I,54,31),I=1,5)/ 1203.6,1.,5.807e-10,1.1780,0.20/ DATA(CH(I,54,30),I=1,5)/ 1289.2,1.,4.679e-10,1.1780,0.20/ DATA(CH(I,54,29),I=1,5)/ 1377.0,1.,3.770e-10,1.1780,0.20/ DATA(CH(I,54,28),I=1,5)/ 1466.9,1.,3.038e-10,1.1780,0.20/ DATA(CH(I,54,27),I=1,5)/ 1559.0,1.,2.448e-10,1.1780,0.20/ DATA(CH(I,54,26),I=1,5)/ 1653.2,1.,1.972e-10,1.1780,0.20/ DATA(CH(I,54,25),I=1,5)/ 1749.5,1.,1.589e-10,1.1780,0.20/ DATA(CH(I,54,24),I=1,5)/ 1847.9,1.,1.281e-10,1.1780,0.20/ DATA(CH(I,54,23),I=1,5)/ 1948.3,1.,1.032e-10,1.1780,0.20/ DATA(CH(I,54,22),I=1,5)/ 2050.7,1.,8.315e-11,1.1780,0.20/ DATA(CH(I,54,21),I=1,5)/ 2155.1,1.,6.700e-11,1.1780,0.20/ DATA(CH(I,54,20),I=1,5)/ 2261.4,1.,5.399e-11,1.1780,0.20/ DATA(CH(I,54,19),I=1,5)/ 2369.7,1.,4.350e-11,1.1780,0.20/ DATA(CH(I,54,18),I=1,5)/ 2479.9,1.,3.505e-11,1.1780,0.20/ DATA(CH(I,54,17),I=1,5)/ 2592.0,1.,2.824e-11,1.1780,0.20/ DATA(CH(I,54,16),I=1,5)/ 2705.9,1.,2.276e-11,1.1780,0.20/ DATA(CH(I,54,15),I=1,5)/ 2821.8,1.,1.834e-11,1.1780,0.20/ DATA(CH(I,54,14),I=1,5)/ 2939.4,1.,1.478e-11,1.1780,0.20/ DATA(CH(I,54,13),I=1,5)/ 3058.9,1.,1.191e-11,1.1780,0.20/ DATA(CH(I,54,12),I=1,5)/ 3180.2,1.,9.594e-12,1.1780,0.20/ DATA(CH(I,54,11),I=1,5)/ 3303.2,1.,7.731e-12,1.1780,0.20/ DATA(CH(I,54,10),I=1,5)/ 7661.1,1.,6.229e-12,1.1780,0.20/ DATA(CH(I,54, 9),I=1,5)/ 7953.5,1.,5.019e-12,1.1780,0.20/ DATA(CH(I,54, 8),I=1,5)/ 8245.9,1.,4.044e-12,1.1780,0.20/ DATA(CH(I,54, 7),I=1,5)/ 8538.3,1.,3.259e-12,1.1780,0.20/ DATA(CH(I,54, 6),I=1,5)/ 8830.7,1.,2.626e-12,1.1780,0.20/ DATA(CH(I,54, 5),I=1,5)/ 9123.1,1.,2.116e-12,1.1780,0.20/ DATA(CH(I,54, 4),I=1,5)/ 9415.5,1.,1.705e-12,1.1780,0.20/ DATA(CH(I,54, 3),I=1,5)/ 9707.9,1.,1.374e-12,1.1780,0.20/ DATA(CH(I,54, 2),I=1,5)/39912.2,1.,1.107e-12,1.1780,0.20/ DATA(CH(I,54, 1),I=1,5)/40977.4,1.,8.920e-13,1.1780,0.20/ DATA(CH(I,55,55),I=1,5)/ 3.9,1.,8.337d-08,1.1950,0.20/ DATA(CH(I,55,54),I=1,5)/ 23.2,1.,6.738d-08,1.1950,0.20/ DATA(CH(I,55,53),I=1,5)/ 33.4,1.,5.446d-08,1.1950,0.20/ DATA(CH(I,55,52),I=1,5)/ 46.0,1.,4.402d-08,1.1950,0.20/ DATA(CH(I,55,51),I=1,5)/ 73.0,1.,3.558e-08,1.1950,0.20/ DATA(CH(I,55,50),I=1,5)/ 104.6,1.,2.876e-08,1.1950,0.20/ DATA(CH(I,55,49),I=1,5)/ 140.2,1.,2.325e-08,1.1950,0.20/ DATA(CH(I,55,48),I=1,5)/ 179.6,1.,1.879e-08,1.1950,0.20/ DATA(CH(I,55,47),I=1,5)/ 222.6,1.,1.519e-08,1.1950,0.20/ DATA(CH(I,55,46),I=1,5)/ 269.0,1.,1.227e-08,1.1950,0.20/ DATA(CH(I,55,45),I=1,5)/ 318.7,1.,9.921e-09,1.1950,0.20/ DATA(CH(I,55,44),I=1,5)/ 371.5,1.,8.019e-09,1.1950,0.20/ DATA(CH(I,55,43),I=1,5)/ 427.2,1.,6.482e-09,1.1950,0.20/ DATA(CH(I,55,42),I=1,5)/ 485.9,1.,5.239e-09,1.1950,0.20/ DATA(CH(I,55,41),I=1,5)/ 547.4,1.,4.234e-09,1.1950,0.20/ DATA(CH(I,55,40),I=1,5)/ 611.6,1.,3.423e-09,1.1950,0.20/ DATA(CH(I,55,39),I=1,5)/ 678.5,1.,2.766e-09,1.1950,0.20/ DATA(CH(I,55,38),I=1,5)/ 747.9,1.,2.236e-09,1.1950,0.20/ DATA(CH(I,55,37),I=1,5)/ 819.9,1.,1.807e-09,1.1950,0.20/ DATA(CH(I,55,36),I=1,5)/ 894.4,1.,1.461e-09,1.1950,0.20/ DATA(CH(I,55,35),I=1,5)/ 971.3,1.,1.181e-09,1.1950,0.20/ DATA(CH(I,55,34),I=1,5)/ 1050.5,1.,9.543e-10,1.1950,0.20/ DATA(CH(I,55,33),I=1,5)/ 1132.1,1.,7.713e-10,1.1950,0.20/ DATA(CH(I,55,32),I=1,5)/ 1216.0,1.,6.234e-10,1.1950,0.20/ DATA(CH(I,55,31),I=1,5)/ 1302.1,1.,5.039e-10,1.1950,0.20/ DATA(CH(I,55,30),I=1,5)/ 1390.4,1.,4.073e-10,1.1950,0.20/ DATA(CH(I,55,29),I=1,5)/ 1480.9,1.,3.292e-10,1.1950,0.20/ DATA(CH(I,55,28),I=1,5)/ 1573.5,1.,2.661e-10,1.1950,0.20/ DATA(CH(I,55,27),I=1,5)/ 1668.3,1.,2.151e-10,1.1950,0.20/ DATA(CH(I,55,26),I=1,5)/ 1765.1,1.,1.738e-10,1.1950,0.20/ DATA(CH(I,55,25),I=1,5)/ 1864.0,1.,1.405e-10,1.1950,0.20/ DATA(CH(I,55,24),I=1,5)/ 1964.9,1.,1.136e-10,1.1950,0.20/ DATA(CH(I,55,23),I=1,5)/ 2067.7,1.,9.179e-11,1.1950,0.20/ DATA(CH(I,55,22),I=1,5)/ 2172.6,1.,7.419e-11,1.1950,0.20/ DATA(CH(I,55,21),I=1,5)/ 2279.4,1.,5.997e-11,1.1950,0.20/ DATA(CH(I,55,20),I=1,5)/ 2388.2,1.,4.847e-11,1.1950,0.20/ DATA(CH(I,55,19),I=1,5)/ 2498.8,1.,3.918e-11,1.1950,0.20/ DATA(CH(I,55,18),I=1,5)/ 2611.3,1.,3.167e-11,1.1950,0.20/ DATA(CH(I,55,17),I=1,5)/ 2725.7,1.,2.559e-11,1.1950,0.20/ DATA(CH(I,55,16),I=1,5)/ 2842.0,1.,2.069e-11,1.1950,0.20/ DATA(CH(I,55,15),I=1,5)/ 2960.0,1.,1.672e-11,1.1950,0.20/ DATA(CH(I,55,14),I=1,5)/ 3079.9,1.,1.351e-11,1.1950,0.20/ DATA(CH(I,55,13),I=1,5)/ 3201.6,1.,1.092e-11,1.1950,0.20/ DATA(CH(I,55,12),I=1,5)/ 3325.0,1.,8.829e-12,1.1950,0.20/ DATA(CH(I,55,11),I=1,5)/ 3450.2,1.,7.136e-12,1.1950,0.20/ DATA(CH(I,55,10),I=1,5)/ 7989.2,1.,5.768e-12,1.1950,0.20/ DATA(CH(I,55, 9),I=1,5)/ 8289.3,1.,4.662e-12,1.1950,0.20/ DATA(CH(I,55, 8),I=1,5)/ 8589.4,1.,3.768e-12,1.1950,0.20/ DATA(CH(I,55, 7),I=1,5)/ 8889.5,1.,3.046e-12,1.1950,0.20/ DATA(CH(I,55, 6),I=1,5)/ 9189.6,1.,2.462e-12,1.1950,0.20/ DATA(CH(I,55, 5),I=1,5)/ 9489.7,1.,1.990e-12,1.1950,0.20/ DATA(CH(I,55, 4),I=1,5)/ 9789.8,1.,1.608e-12,1.1950,0.20/ DATA(CH(I,55, 3),I=1,5)/10089.9,1.,1.300e-12,1.1950,0.20/ DATA(CH(I,55, 2),I=1,5)/41445.6,1.,1.051e-12,1.1950,0.20/ DATA(CH(I,55, 1),I=1,5)/42536.7,1.,8.493e-13,1.1950,0.20/ DATA(CH(I,56,56),I=1,5)/ 5.2,1.,8.337d-08,1.2120,0.20/ DATA(CH(I,56,55),I=1,5)/ 10.0,1.,6.759d-08,1.2120,0.20/ DATA(CH(I,56,54),I=1,5)/ 35.8,1.,5.479d-08,1.2120,0.20/ DATA(CH(I,56,53),I=1,5)/ 47.0,1.,4.442d-08,1.2120,0.20/ DATA(CH(I,56,52),I=1,5)/ 74.5,1.,3.601e-08,1.2120,0.20/ DATA(CH(I,56,51),I=1,5)/ 106.5,1.,2.919e-08,1.2120,0.20/ DATA(CH(I,56,50),I=1,5)/ 142.7,1.,2.367e-08,1.2120,0.20/ DATA(CH(I,56,49),I=1,5)/ 182.7,1.,1.919e-08,1.2120,0.20/ DATA(CH(I,56,48),I=1,5)/ 226.2,1.,1.555e-08,1.2120,0.20/ DATA(CH(I,56,47),I=1,5)/ 273.2,1.,1.261e-08,1.2120,0.20/ DATA(CH(I,56,46),I=1,5)/ 323.5,1.,1.022e-08,1.2120,0.20/ DATA(CH(I,56,45),I=1,5)/ 376.8,1.,8.287e-09,1.2120,0.20/ DATA(CH(I,56,44),I=1,5)/ 433.2,1.,6.718e-09,1.2120,0.20/ DATA(CH(I,56,43),I=1,5)/ 492.5,1.,5.447e-09,1.2120,0.20/ DATA(CH(I,56,42),I=1,5)/ 554.5,1.,4.415e-09,1.2120,0.20/ DATA(CH(I,56,41),I=1,5)/ 619.4,1.,3.580e-09,1.2120,0.20/ DATA(CH(I,56,40),I=1,5)/ 686.8,1.,2.902e-09,1.2120,0.20/ DATA(CH(I,56,39),I=1,5)/ 756.9,1.,2.353e-09,1.2120,0.20/ DATA(CH(I,56,38),I=1,5)/ 829.5,1.,1.907e-09,1.2120,0.20/ DATA(CH(I,56,37),I=1,5)/ 904.5,1.,1.546e-09,1.2120,0.20/ DATA(CH(I,56,36),I=1,5)/ 982.0,1.,1.253e-09,1.2120,0.20/ DATA(CH(I,56,35),I=1,5)/ 1061.8,1.,1.016e-09,1.2120,0.20/ DATA(CH(I,56,34),I=1,5)/ 1144.0,1.,8.238e-10,1.2120,0.20/ DATA(CH(I,56,33),I=1,5)/ 1228.4,1.,6.678e-10,1.2120,0.20/ DATA(CH(I,56,32),I=1,5)/ 1315.1,1.,5.414e-10,1.2120,0.20/ DATA(CH(I,56,31),I=1,5)/ 1404.0,1.,4.389e-10,1.2120,0.20/ DATA(CH(I,56,30),I=1,5)/ 1495.1,1.,3.558e-10,1.2120,0.20/ DATA(CH(I,56,29),I=1,5)/ 1588.3,1.,2.885e-10,1.2120,0.20/ DATA(CH(I,56,28),I=1,5)/ 1683.5,1.,2.339e-10,1.2120,0.20/ DATA(CH(I,56,27),I=1,5)/ 1780.9,1.,1.896e-10,1.2120,0.20/ DATA(CH(I,56,26),I=1,5)/ 1880.3,1.,1.537e-10,1.2120,0.20/ DATA(CH(I,56,25),I=1,5)/ 1981.7,1.,1.246e-10,1.2120,0.20/ DATA(CH(I,56,24),I=1,5)/ 2085.1,1.,1.010e-10,1.2120,0.20/ DATA(CH(I,56,23),I=1,5)/ 2190.5,1.,8.189e-11,1.2120,0.20/ DATA(CH(I,56,22),I=1,5)/ 2297.8,1.,6.639e-11,1.2120,0.20/ DATA(CH(I,56,21),I=1,5)/ 2407.1,1.,5.382e-11,1.2120,0.20/ DATA(CH(I,56,20),I=1,5)/ 2518.2,1.,4.363e-11,1.2120,0.20/ DATA(CH(I,56,19),I=1,5)/ 2631.2,1.,3.537e-11,1.2120,0.20/ DATA(CH(I,56,18),I=1,5)/ 2746.0,1.,2.868e-11,1.2120,0.20/ DATA(CH(I,56,17),I=1,5)/ 2862.7,1.,2.325e-11,1.2120,0.20/ DATA(CH(I,56,16),I=1,5)/ 2981.2,1.,1.885e-11,1.2120,0.20/ DATA(CH(I,56,15),I=1,5)/ 3101.5,1.,1.528e-11,1.2120,0.20/ DATA(CH(I,56,14),I=1,5)/ 3223.6,1.,1.239e-11,1.2120,0.20/ DATA(CH(I,56,13),I=1,5)/ 3347.5,1.,1.004e-11,1.2120,0.20/ DATA(CH(I,56,12),I=1,5)/ 3473.1,1.,8.140e-12,1.2120,0.20/ DATA(CH(I,56,11),I=1,5)/ 3600.4,1.,6.599e-12,1.2120,0.20/ DATA(CH(I,56,10),I=1,5)/ 8324.2,1.,5.350e-12,1.2120,0.20/ DATA(CH(I,56, 9),I=1,5)/ 8632.1,1.,4.337e-12,1.2120,0.20/ DATA(CH(I,56, 8),I=1,5)/ 8939.9,1.,3.516e-12,1.2120,0.20/ DATA(CH(I,56, 7),I=1,5)/ 9247.8,1.,2.850e-12,1.2120,0.20/ DATA(CH(I,56, 6),I=1,5)/ 9555.7,1.,2.311e-12,1.2120,0.20/ DATA(CH(I,56, 5),I=1,5)/ 9863.6,1.,1.873e-12,1.2120,0.20/ DATA(CH(I,56, 4),I=1,5)/10171.5,1.,1.519e-12,1.2120,0.20/ DATA(CH(I,56, 3),I=1,5)/10479.3,1.,1.231e-12,1.2120,0.20/ DATA(CH(I,56, 2),I=1,5)/43008.2,1.,9.981e-13,1.2120,0.20/ DATA(CH(I,56, 1),I=1,5)/44125.3,1.,8.092e-13,1.2120,0.20/ DATA(CH(I,57,57),I=1,5)/ 5.6,1.,8.337d-08,1.2290,0.20/ DATA(CH(I,57,56),I=1,5)/ 11.1,1.,6.778d-08,1.2290,0.20/ DATA(CH(I,57,55),I=1,5)/ 19.2,1.,5.511d-08,1.2290,0.20/ DATA(CH(I,57,54),I=1,5)/ 49.9,1.,4.481d-08,1.2290,0.20/ DATA(CH(I,57,53),I=1,5)/ 59.4,1.,3.643d-08,1.2290,0.20/ DATA(CH(I,57,52),I=1,5)/ 86.8,1.,2.962e-08,1.2290,0.20/ DATA(CH(I,57,51),I=1,5)/ 118.2,1.,2.408e-08,1.2290,0.20/ DATA(CH(I,57,50),I=1,5)/ 153.6,1.,1.958e-08,1.2290,0.20/ DATA(CH(I,57,49),I=1,5)/ 192.7,1.,1.592e-08,1.2290,0.20/ DATA(CH(I,57,48),I=1,5)/ 235.3,1.,1.294e-08,1.2290,0.20/ DATA(CH(I,57,47),I=1,5)/ 281.4,1.,1.052e-08,1.2290,0.20/ DATA(CH(I,57,46),I=1,5)/ 330.8,1.,8.556e-09,1.2290,0.20/ DATA(CH(I,57,45),I=1,5)/ 383.5,1.,6.956e-09,1.2290,0.20/ DATA(CH(I,57,44),I=1,5)/ 439.3,1.,5.656e-09,1.2290,0.20/ DATA(CH(I,57,43),I=1,5)/ 498.2,1.,4.598e-09,1.2290,0.20/ DATA(CH(I,57,42),I=1,5)/ 560.1,1.,3.739e-09,1.2290,0.20/ DATA(CH(I,57,41),I=1,5)/ 625.0,1.,3.040e-09,1.2290,0.20/ DATA(CH(I,57,40),I=1,5)/ 692.7,1.,2.471e-09,1.2290,0.20/ DATA(CH(I,57,39),I=1,5)/ 763.3,1.,2.009e-09,1.2290,0.20/ DATA(CH(I,57,38),I=1,5)/ 836.7,1.,1.634e-09,1.2290,0.20/ DATA(CH(I,57,37),I=1,5)/ 912.8,1.,1.328e-09,1.2290,0.20/ DATA(CH(I,57,36),I=1,5)/ 991.6,1.,1.080e-09,1.2290,0.20/ DATA(CH(I,57,35),I=1,5)/ 1073.1,1.,8.780e-10,1.2290,0.20/ DATA(CH(I,57,34),I=1,5)/ 1157.3,1.,7.139e-10,1.2290,0.20/ DATA(CH(I,57,33),I=1,5)/ 1244.0,1.,5.804e-10,1.2290,0.20/ DATA(CH(I,57,32),I=1,5)/ 1333.2,1.,4.719e-10,1.2290,0.20/ DATA(CH(I,57,31),I=1,5)/ 1425.0,1.,3.837e-10,1.2290,0.20/ DATA(CH(I,57,30),I=1,5)/ 1519.3,1.,3.119e-10,1.2290,0.20/ DATA(CH(I,57,29),I=1,5)/ 1616.1,1.,2.536e-10,1.2290,0.20/ DATA(CH(I,57,28),I=1,5)/ 1715.3,1.,2.062e-10,1.2290,0.20/ DATA(CH(I,57,27),I=1,5)/ 1816.9,1.,1.677e-10,1.2290,0.20/ DATA(CH(I,57,26),I=1,5)/ 1920.9,1.,1.363e-10,1.2290,0.20/ DATA(CH(I,57,25),I=1,5)/ 2027.3,1.,1.108e-10,1.2290,0.20/ DATA(CH(I,57,24),I=1,5)/ 2136.0,1.,9.011e-11,1.2290,0.20/ DATA(CH(I,57,23),I=1,5)/ 2247.0,1.,7.326e-11,1.2290,0.20/ DATA(CH(I,57,22),I=1,5)/ 2360.4,1.,5.956e-11,1.2290,0.20/ DATA(CH(I,57,21),I=1,5)/ 2476.0,1.,4.843e-11,1.2290,0.20/ DATA(CH(I,57,20),I=1,5)/ 2593.9,1.,3.937e-11,1.2290,0.20/ DATA(CH(I,57,19),I=1,5)/ 2714.0,1.,3.201e-11,1.2290,0.20/ DATA(CH(I,57,18),I=1,5)/ 2836.4,1.,2.603e-11,1.2290,0.20/ DATA(CH(I,57,17),I=1,5)/ 2960.9,1.,2.116e-11,1.2290,0.20/ DATA(CH(I,57,16),I=1,5)/ 3087.7,1.,1.721e-11,1.2290,0.20/ DATA(CH(I,57,15),I=1,5)/ 3216.6,1.,1.399e-11,1.2290,0.20/ DATA(CH(I,57,14),I=1,5)/ 3347.7,1.,1.137e-11,1.2290,0.20/ DATA(CH(I,57,13),I=1,5)/ 3480.9,1.,9.247e-12,1.2290,0.20/ DATA(CH(I,57,12),I=1,5)/ 3616.3,1.,7.518e-12,1.2290,0.20/ DATA(CH(I,57,11),I=1,5)/ 3753.8,1.,6.113e-12,1.2290,0.20/ DATA(CH(I,57,10),I=1,5)/ 8666.0,1.,4.970e-12,1.2290,0.20/ DATA(CH(I,57, 9),I=1,5)/ 8981.7,1.,4.041e-12,1.2290,0.20/ DATA(CH(I,57, 8),I=1,5)/ 9297.5,1.,3.285e-12,1.2290,0.20/ DATA(CH(I,57, 7),I=1,5)/ 9613.3,1.,2.671e-12,1.2290,0.20/ DATA(CH(I,57, 6),I=1,5)/ 9929.0,1.,2.172e-12,1.2290,0.20/ DATA(CH(I,57, 5),I=1,5)/10244.8,1.,1.766e-12,1.2290,0.20/ DATA(CH(I,57, 4),I=1,5)/10560.5,1.,1.436e-12,1.2290,0.20/ DATA(CH(I,57, 3),I=1,5)/10876.3,1.,1.167e-12,1.2290,0.20/ DATA(CH(I,57, 2),I=1,5)/44599.9,1.,9.490e-13,1.2290,0.20/ DATA(CH(I,57, 1),I=1,5)/45743.4,1.,7.716e-13,1.2290,0.20/ DATA(CH(I,58,58),I=1,5)/ 5.5,1.,8.337d-08,1.2460,0.20/ DATA(CH(I,58,57),I=1,5)/ 10.8,1.,6.797d-08,1.2460,0.20/ DATA(CH(I,58,56),I=1,5)/ 20.2,1.,5.542d-08,1.2460,0.20/ DATA(CH(I,58,55),I=1,5)/ 36.8,1.,4.519d-08,1.2460,0.20/ DATA(CH(I,58,54),I=1,5)/ 65.6,1.,3.684d-08,1.2460,0.20/ DATA(CH(I,58,53),I=1,5)/ 77.6,1.,3.004d-08,1.2460,0.20/ DATA(CH(I,58,52),I=1,5)/ 106.8,1.,2.449e-08,1.2460,0.20/ DATA(CH(I,58,51),I=1,5)/ 139.8,1.,1.997e-08,1.2460,0.20/ DATA(CH(I,58,50),I=1,5)/ 176.6,1.,1.628e-08,1.2460,0.20/ DATA(CH(I,58,49),I=1,5)/ 217.0,1.,1.327e-08,1.2460,0.20/ DATA(CH(I,58,48),I=1,5)/ 260.9,1.,1.082e-08,1.2460,0.20/ DATA(CH(I,58,47),I=1,5)/ 308.2,1.,8.824e-09,1.2460,0.20/ DATA(CH(I,58,46),I=1,5)/ 358.9,1.,7.194e-09,1.2460,0.20/ DATA(CH(I,58,45),I=1,5)/ 412.9,1.,5.866e-09,1.2460,0.20/ DATA(CH(I,58,44),I=1,5)/ 470.0,1.,4.783e-09,1.2460,0.20/ DATA(CH(I,58,43),I=1,5)/ 530.3,1.,3.899e-09,1.2460,0.20/ DATA(CH(I,58,42),I=1,5)/ 593.7,1.,3.179e-09,1.2460,0.20/ DATA(CH(I,58,41),I=1,5)/ 660.1,1.,2.592e-09,1.2460,0.20/ DATA(CH(I,58,40),I=1,5)/ 729.5,1.,2.113e-09,1.2460,0.20/ DATA(CH(I,58,39),I=1,5)/ 801.9,1.,1.723e-09,1.2460,0.20/ DATA(CH(I,58,38),I=1,5)/ 877.2,1.,1.405e-09,1.2460,0.20/ DATA(CH(I,58,37),I=1,5)/ 955.3,1.,1.146e-09,1.2460,0.20/ DATA(CH(I,58,36),I=1,5)/ 1036.3,1.,9.340e-10,1.2460,0.20/ DATA(CH(I,58,35),I=1,5)/ 1120.1,1.,7.615e-10,1.2460,0.20/ DATA(CH(I,58,34),I=1,5)/ 1206.7,1.,6.209e-10,1.2460,0.20/ DATA(CH(I,58,33),I=1,5)/ 1296.0,1.,5.062e-10,1.2460,0.20/ DATA(CH(I,58,32),I=1,5)/ 1388.1,1.,4.127e-10,1.2460,0.20/ DATA(CH(I,58,31),I=1,5)/ 1482.8,1.,3.365e-10,1.2460,0.20/ DATA(CH(I,58,30),I=1,5)/ 1580.2,1.,2.744e-10,1.2460,0.20/ DATA(CH(I,58,29),I=1,5)/ 1680.3,1.,2.237e-10,1.2460,0.20/ DATA(CH(I,58,28),I=1,5)/ 1782.9,1.,1.824e-10,1.2460,0.20/ DATA(CH(I,58,27),I=1,5)/ 1888.2,1.,1.487e-10,1.2460,0.20/ DATA(CH(I,58,26),I=1,5)/ 1996.0,1.,1.212e-10,1.2460,0.20/ DATA(CH(I,58,25),I=1,5)/ 2106.4,1.,9.885e-11,1.2460,0.20/ DATA(CH(I,58,24),I=1,5)/ 2219.3,1.,8.060e-11,1.2460,0.20/ DATA(CH(I,58,23),I=1,5)/ 2334.8,1.,6.571e-11,1.2460,0.20/ DATA(CH(I,58,22),I=1,5)/ 2452.7,1.,5.358e-11,1.2460,0.20/ DATA(CH(I,58,21),I=1,5)/ 2573.2,1.,4.368e-11,1.2460,0.20/ DATA(CH(I,58,20),I=1,5)/ 2696.1,1.,3.562e-11,1.2460,0.20/ DATA(CH(I,58,19),I=1,5)/ 2821.4,1.,2.904e-11,1.2460,0.20/ DATA(CH(I,58,18),I=1,5)/ 2949.2,1.,2.368e-11,1.2460,0.20/ DATA(CH(I,58,17),I=1,5)/ 3079.3,1.,1.930e-11,1.2460,0.20/ DATA(CH(I,58,16),I=1,5)/ 3211.9,1.,1.574e-11,1.2460,0.20/ DATA(CH(I,58,15),I=1,5)/ 3346.9,1.,1.283e-11,1.2460,0.20/ DATA(CH(I,58,14),I=1,5)/ 3484.2,1.,1.046e-11,1.2460,0.20/ DATA(CH(I,58,13),I=1,5)/ 3624.0,1.,8.531e-12,1.2460,0.20/ DATA(CH(I,58,12),I=1,5)/ 3766.0,1.,6.955e-12,1.2460,0.20/ DATA(CH(I,58,11),I=1,5)/ 3910.4,1.,5.671e-12,1.2460,0.20/ DATA(CH(I,58,10),I=1,5)/ 9014.7,1.,4.624e-12,1.2460,0.20/ DATA(CH(I,58, 9),I=1,5)/ 9338.4,1.,3.770e-12,1.2460,0.20/ DATA(CH(I,58, 8),I=1,5)/ 9662.1,1.,3.074e-12,1.2460,0.20/ DATA(CH(I,58, 7),I=1,5)/ 9985.8,1.,2.506e-12,1.2460,0.20/ DATA(CH(I,58, 6),I=1,5)/10309.5,1.,2.043e-12,1.2460,0.20/ DATA(CH(I,58, 5),I=1,5)/10633.3,1.,1.666e-12,1.2460,0.20/ DATA(CH(I,58, 4),I=1,5)/10957.0,1.,1.358e-12,1.2460,0.20/ DATA(CH(I,58, 3),I=1,5)/11280.7,1.,1.107e-12,1.2460,0.20/ DATA(CH(I,58, 2),I=1,5)/46220.9,1.,9.029e-13,1.2460,0.20/ DATA(CH(I,58, 1),I=1,5)/47391.0,1.,7.362e-13,1.2460,0.20/ DATA(CH(I,59,59),I=1,5)/ 5.5,1.,8.337d-08,1.2630,0.20/ DATA(CH(I,59,58),I=1,5)/ 10.6,1.,6.816d-08,1.2630,0.20/ DATA(CH(I,59,57),I=1,5)/ 21.6,1.,5.572d-08,1.2630,0.20/ DATA(CH(I,59,56),I=1,5)/ 39.0,1.,4.556d-08,1.2630,0.20/ DATA(CH(I,59,55),I=1,5)/ 57.5,1.,3.724d-08,1.2630,0.20/ DATA(CH(I,59,54),I=1,5)/ 84.3,1.,3.045e-08,1.2630,0.20/ DATA(CH(I,59,53),I=1,5)/ 115.2,1.,2.489e-08,1.2630,0.20/ DATA(CH(I,59,52),I=1,5)/ 150.1,1.,2.035e-08,1.2630,0.20/ DATA(CH(I,59,51),I=1,5)/ 188.7,1.,1.664e-08,1.2630,0.20/ DATA(CH(I,59,50),I=1,5)/ 230.9,1.,1.360e-08,1.2630,0.20/ DATA(CH(I,59,49),I=1,5)/ 276.6,1.,1.112e-08,1.2630,0.20/ DATA(CH(I,59,48),I=1,5)/ 325.7,1.,9.092e-09,1.2630,0.20/ DATA(CH(I,59,47),I=1,5)/ 378.1,1.,7.433e-09,1.2630,0.20/ DATA(CH(I,59,46),I=1,5)/ 433.7,1.,6.077e-09,1.2630,0.20/ DATA(CH(I,59,45),I=1,5)/ 492.4,1.,4.968e-09,1.2630,0.20/ DATA(CH(I,59,44),I=1,5)/ 554.2,1.,4.062e-09,1.2630,0.20/ DATA(CH(I,59,43),I=1,5)/ 619.1,1.,3.321e-09,1.2630,0.20/ DATA(CH(I,59,42),I=1,5)/ 686.8,1.,2.715e-09,1.2630,0.20/ DATA(CH(I,59,41),I=1,5)/ 757.6,1.,2.220e-09,1.2630,0.20/ DATA(CH(I,59,40),I=1,5)/ 831.1,1.,1.815e-09,1.2630,0.20/ DATA(CH(I,59,39),I=1,5)/ 907.5,1.,1.484e-09,1.2630,0.20/ DATA(CH(I,59,38),I=1,5)/ 986.7,1.,1.213e-09,1.2630,0.20/ DATA(CH(I,59,37),I=1,5)/ 1068.6,1.,9.916e-10,1.2630,0.20/ DATA(CH(I,59,36),I=1,5)/ 1153.2,1.,8.107e-10,1.2630,0.20/ DATA(CH(I,59,35),I=1,5)/ 1240.5,1.,6.628e-10,1.2630,0.20/ DATA(CH(I,59,34),I=1,5)/ 1330.4,1.,5.419e-10,1.2630,0.20/ DATA(CH(I,59,33),I=1,5)/ 1422.9,1.,4.430e-10,1.2630,0.20/ DATA(CH(I,59,32),I=1,5)/ 1518.0,1.,3.622e-10,1.2630,0.20/ DATA(CH(I,59,31),I=1,5)/ 1615.6,1.,2.961e-10,1.2630,0.20/ DATA(CH(I,59,30),I=1,5)/ 1715.8,1.,2.421e-10,1.2630,0.20/ DATA(CH(I,59,29),I=1,5)/ 1818.5,1.,1.979e-10,1.2630,0.20/ DATA(CH(I,59,28),I=1,5)/ 1923.6,1.,1.618e-10,1.2630,0.20/ DATA(CH(I,59,27),I=1,5)/ 2031.2,1.,1.323e-10,1.2630,0.20/ DATA(CH(I,59,26),I=1,5)/ 2141.2,1.,1.081e-10,1.2630,0.20/ DATA(CH(I,59,25),I=1,5)/ 2253.7,1.,8.842e-11,1.2630,0.20/ DATA(CH(I,59,24),I=1,5)/ 2368.5,1.,7.229e-11,1.2630,0.20/ DATA(CH(I,59,23),I=1,5)/ 2485.7,1.,5.910e-11,1.2630,0.20/ DATA(CH(I,59,22),I=1,5)/ 2605.2,1.,4.831e-11,1.2630,0.20/ DATA(CH(I,59,21),I=1,5)/ 2727.1,1.,3.950e-11,1.2630,0.20/ DATA(CH(I,59,20),I=1,5)/ 2851.2,1.,3.229e-11,1.2630,0.20/ DATA(CH(I,59,19),I=1,5)/ 2977.7,1.,2.640e-11,1.2630,0.20/ DATA(CH(I,59,18),I=1,5)/ 3106.4,1.,2.158e-11,1.2630,0.20/ DATA(CH(I,59,17),I=1,5)/ 3237.5,1.,1.765e-11,1.2630,0.20/ DATA(CH(I,59,16),I=1,5)/ 3370.7,1.,1.443e-11,1.2630,0.20/ DATA(CH(I,59,15),I=1,5)/ 3506.2,1.,1.179e-11,1.2630,0.20/ DATA(CH(I,59,14),I=1,5)/ 3643.9,1.,9.643e-12,1.2630,0.20/ DATA(CH(I,59,13),I=1,5)/ 3783.8,1.,7.884e-12,1.2630,0.20/ DATA(CH(I,59,12),I=1,5)/ 3925.9,1.,6.445e-12,1.2630,0.20/ DATA(CH(I,59,11),I=1,5)/ 4070.2,1.,5.269e-12,1.2630,0.20/ DATA(CH(I,59,10),I=1,5)/ 9370.2,1.,4.308e-12,1.2630,0.20/ DATA(CH(I,59, 9),I=1,5)/ 9702.0,1.,3.522e-12,1.2630,0.20/ DATA(CH(I,59, 8),I=1,5)/10033.7,1.,2.879e-12,1.2630,0.20/ DATA(CH(I,59, 7),I=1,5)/10365.5,1.,2.354e-12,1.2630,0.20/ DATA(CH(I,59, 6),I=1,5)/10697.3,1.,1.925e-12,1.2630,0.20/ DATA(CH(I,59, 5),I=1,5)/11029.0,1.,1.573e-12,1.2630,0.20/ DATA(CH(I,59, 4),I=1,5)/11360.8,1.,1.286e-12,1.2630,0.20/ DATA(CH(I,59, 3),I=1,5)/11692.6,1.,1.052e-12,1.2630,0.20/ DATA(CH(I,59, 2),I=1,5)/47871.0,1.,8.598e-13,1.2630,0.20/ DATA(CH(I,59, 1),I=1,5)/49068.0,1.,7.029e-13,1.2630,0.20/ DATA(CH(I,60,60),I=1,5)/ 5.5,1.,8.337d-08,1.2800,0.20/ DATA(CH(I,60,59),I=1,5)/ 10.7,1.,6.834d-08,1.2800,0.20/ DATA(CH(I,60,58),I=1,5)/ 22.1,1.,5.602d-08,1.2800,0.20/ DATA(CH(I,60,57),I=1,5)/ 40.4,1.,4.592d-08,1.2800,0.20/ DATA(CH(I,60,56),I=1,5)/ 65.2,1.,3.764e-08,1.2800,0.20/ DATA(CH(I,60,55),I=1,5)/ 94.6,1.,3.085e-08,1.2800,0.20/ DATA(CH(I,60,54),I=1,5)/ 128.2,1.,2.529e-08,1.2800,0.20/ DATA(CH(I,60,53),I=1,5)/ 165.7,1.,2.073e-08,1.2800,0.20/ DATA(CH(I,60,52),I=1,5)/ 206.9,1.,1.699e-08,1.2800,0.20/ DATA(CH(I,60,51),I=1,5)/ 251.8,1.,1.393e-08,1.2800,0.20/ DATA(CH(I,60,50),I=1,5)/ 300.1,1.,1.142e-08,1.2800,0.20/ DATA(CH(I,60,49),I=1,5)/ 351.7,1.,9.360e-09,1.2800,0.20/ DATA(CH(I,60,48),I=1,5)/ 406.5,1.,7.673e-09,1.2800,0.20/ DATA(CH(I,60,47),I=1,5)/ 464.5,1.,6.290e-09,1.2800,0.20/ DATA(CH(I,60,46),I=1,5)/ 525.5,1.,5.156e-09,1.2800,0.20/ DATA(CH(I,60,45),I=1,5)/ 589.5,1.,4.226e-09,1.2800,0.20/ DATA(CH(I,60,44),I=1,5)/ 656.4,1.,3.464e-09,1.2800,0.20/ DATA(CH(I,60,43),I=1,5)/ 726.1,1.,2.840e-09,1.2800,0.20/ DATA(CH(I,60,42),I=1,5)/ 798.6,1.,2.328e-09,1.2800,0.20/ DATA(CH(I,60,41),I=1,5)/ 873.9,1.,1.908e-09,1.2800,0.20/ DATA(CH(I,60,40),I=1,5)/ 951.8,1.,1.564e-09,1.2800,0.20/ DATA(CH(I,60,39),I=1,5)/ 1032.4,1.,1.282e-09,1.2800,0.20/ DATA(CH(I,60,38),I=1,5)/ 1115.5,1.,1.051e-09,1.2800,0.20/ DATA(CH(I,60,37),I=1,5)/ 1201.2,1.,8.615e-10,1.2800,0.20/ DATA(CH(I,60,36),I=1,5)/ 1289.5,1.,7.062e-10,1.2800,0.20/ DATA(CH(I,60,35),I=1,5)/ 1380.2,1.,5.789e-10,1.2800,0.20/ DATA(CH(I,60,34),I=1,5)/ 1473.3,1.,4.745e-10,1.2800,0.20/ DATA(CH(I,60,33),I=1,5)/ 1568.9,1.,3.890e-10,1.2800,0.20/ DATA(CH(I,60,32),I=1,5)/ 1666.9,1.,3.188e-10,1.2800,0.20/ DATA(CH(I,60,31),I=1,5)/ 1767.2,1.,2.614e-10,1.2800,0.20/ DATA(CH(I,60,30),I=1,5)/ 1869.9,1.,2.142e-10,1.2800,0.20/ DATA(CH(I,60,29),I=1,5)/ 1974.8,1.,1.756e-10,1.2800,0.20/ DATA(CH(I,60,28),I=1,5)/ 2082.0,1.,1.440e-10,1.2800,0.20/ DATA(CH(I,60,27),I=1,5)/ 2191.5,1.,1.180e-10,1.2800,0.20/ DATA(CH(I,60,26),I=1,5)/ 2303.2,1.,9.673e-11,1.2800,0.20/ DATA(CH(I,60,25),I=1,5)/ 2417.1,1.,7.929e-11,1.2800,0.20/ DATA(CH(I,60,24),I=1,5)/ 2533.3,1.,6.499e-11,1.2800,0.20/ DATA(CH(I,60,23),I=1,5)/ 2651.5,1.,5.328e-11,1.2800,0.20/ DATA(CH(I,60,22),I=1,5)/ 2771.9,1.,4.367e-11,1.2800,0.20/ DATA(CH(I,60,21),I=1,5)/ 2894.5,1.,3.580e-11,1.2800,0.20/ DATA(CH(I,60,20),I=1,5)/ 3019.1,1.,2.934e-11,1.2800,0.20/ DATA(CH(I,60,19),I=1,5)/ 3145.9,1.,2.405e-11,1.2800,0.20/ DATA(CH(I,60,18),I=1,5)/ 3274.7,1.,1.972e-11,1.2800,0.20/ DATA(CH(I,60,17),I=1,5)/ 3405.6,1.,1.616e-11,1.2800,0.20/ DATA(CH(I,60,16),I=1,5)/ 3538.5,1.,1.325e-11,1.2800,0.20/ DATA(CH(I,60,15),I=1,5)/ 3673.5,1.,1.086e-11,1.2800,0.20/ DATA(CH(I,60,14),I=1,5)/ 3810.4,1.,8.902e-12,1.2800,0.20/ DATA(CH(I,60,13),I=1,5)/ 3949.4,1.,7.297e-12,1.2800,0.20/ DATA(CH(I,60,12),I=1,5)/ 4090.3,1.,5.982e-12,1.2800,0.20/ DATA(CH(I,60,11),I=1,5)/ 4233.2,1.,4.903e-12,1.2800,0.20/ DATA(CH(I,60,10),I=1,5)/ 9732.6,1.,4.019e-12,1.2800,0.20/ DATA(CH(I,60, 9),I=1,5)/10072.5,1.,3.295e-12,1.2800,0.20/ DATA(CH(I,60, 8),I=1,5)/10412.4,1.,2.701e-12,1.2800,0.20/ DATA(CH(I,60, 7),I=1,5)/10752.3,1.,2.214e-12,1.2800,0.20/ DATA(CH(I,60, 6),I=1,5)/11092.2,1.,1.815e-12,1.2800,0.20/ DATA(CH(I,60, 5),I=1,5)/11432.1,1.,1.488e-12,1.2800,0.20/ DATA(CH(I,60, 4),I=1,5)/11772.0,1.,1.219e-12,1.2800,0.20/ DATA(CH(I,60, 3),I=1,5)/12111.9,1.,9.995e-13,1.2800,0.20/ DATA(CH(I,60, 2),I=1,5)/49550.3,1.,8.193e-13,1.2800,0.20/ DATA(CH(I,60, 1),I=1,5)/50774.4,1.,6.716e-13,1.2800,0.20/ DATA(CH(I,62,62),I=1,5)/ 5.6,1.,8.337d-08,1.3140,0.20/ DATA(CH(I,62,61),I=1,5)/ 11.1,1.,6.868d-08,1.3140,0.20/ DATA(CH(I,62,60),I=1,5)/ 23.4,1.,5.659d-08,1.3140,0.20/ DATA(CH(I,62,59),I=1,5)/ 41.1,1.,4.662d-08,1.3140,0.20/ DATA(CH(I,62,58),I=1,5)/ 66.3,1.,3.841e-08,1.3140,0.20/ DATA(CH(I,62,57),I=1,5)/ 96.1,1.,3.164e-08,1.3140,0.20/ DATA(CH(I,62,56),I=1,5)/ 130.1,1.,2.607e-08,1.3140,0.20/ DATA(CH(I,62,55),I=1,5)/ 168.2,1.,2.148e-08,1.3140,0.20/ DATA(CH(I,62,54),I=1,5)/ 210.0,1.,1.770e-08,1.3140,0.20/ DATA(CH(I,62,53),I=1,5)/ 255.4,1.,1.458e-08,1.3140,0.20/ DATA(CH(I,62,52),I=1,5)/ 304.3,1.,1.201e-08,1.3140,0.20/ DATA(CH(I,62,51),I=1,5)/ 356.5,1.,9.896e-09,1.3140,0.20/ DATA(CH(I,62,50),I=1,5)/ 412.0,1.,8.153e-09,1.3140,0.20/ DATA(CH(I,62,49),I=1,5)/ 470.7,1.,6.717e-09,1.3140,0.20/ DATA(CH(I,62,48),I=1,5)/ 532.4,1.,5.534e-09,1.3140,0.20/ DATA(CH(I,62,47),I=1,5)/ 597.1,1.,4.559e-09,1.3140,0.20/ DATA(CH(I,62,46),I=1,5)/ 664.8,1.,3.756e-09,1.3140,0.20/ DATA(CH(I,62,45),I=1,5)/ 735.3,1.,3.094e-09,1.3140,0.20/ DATA(CH(I,62,44),I=1,5)/ 808.6,1.,2.549e-09,1.3140,0.20/ DATA(CH(I,62,43),I=1,5)/ 884.7,1.,2.100e-09,1.3140,0.20/ DATA(CH(I,62,42),I=1,5)/ 963.4,1.,1.730e-09,1.3140,0.20/ DATA(CH(I,62,41),I=1,5)/ 1044.8,1.,1.426e-09,1.3140,0.20/ DATA(CH(I,62,40),I=1,5)/ 1128.9,1.,1.175e-09,1.3140,0.20/ DATA(CH(I,62,39),I=1,5)/ 1215.5,1.,9.677e-10,1.3140,0.20/ DATA(CH(I,62,38),I=1,5)/ 1304.6,1.,7.972e-10,1.3140,0.20/ DATA(CH(I,62,37),I=1,5)/ 1396.2,1.,6.568e-10,1.3140,0.20/ DATA(CH(I,62,36),I=1,5)/ 1490.3,1.,5.411e-10,1.3140,0.20/ DATA(CH(I,62,35),I=1,5)/ 1586.8,1.,4.458e-10,1.3140,0.20/ DATA(CH(I,62,34),I=1,5)/ 1685.8,1.,3.673e-10,1.3140,0.20/ DATA(CH(I,62,33),I=1,5)/ 1787.1,1.,3.026e-10,1.3140,0.20/ DATA(CH(I,62,32),I=1,5)/ 1890.7,1.,2.493e-10,1.3140,0.20/ DATA(CH(I,62,31),I=1,5)/ 1996.6,1.,2.054e-10,1.3140,0.20/ DATA(CH(I,62,30),I=1,5)/ 2104.9,1.,1.692e-10,1.3140,0.20/ DATA(CH(I,62,29),I=1,5)/ 2215.4,1.,1.394e-10,1.3140,0.20/ DATA(CH(I,62,28),I=1,5)/ 2328.1,1.,1.149e-10,1.3140,0.20/ DATA(CH(I,62,27),I=1,5)/ 2443.1,1.,9.463e-11,1.3140,0.20/ DATA(CH(I,62,26),I=1,5)/ 2560.2,1.,7.796e-11,1.3140,0.20/ DATA(CH(I,62,25),I=1,5)/ 2679.6,1.,6.423e-11,1.3140,0.20/ DATA(CH(I,62,24),I=1,5)/ 2801.1,1.,5.292e-11,1.3140,0.20/ DATA(CH(I,62,23),I=1,5)/ 2924.7,1.,4.360e-11,1.3140,0.20/ DATA(CH(I,62,22),I=1,5)/ 3050.5,1.,3.592e-11,1.3140,0.20/ DATA(CH(I,62,21),I=1,5)/ 3178.3,1.,2.959e-11,1.3140,0.20/ DATA(CH(I,62,20),I=1,5)/ 3308.2,1.,2.438e-11,1.3140,0.20/ DATA(CH(I,62,19),I=1,5)/ 3440.3,1.,2.009e-11,1.3140,0.20/ DATA(CH(I,62,18),I=1,5)/ 3574.3,1.,1.655e-11,1.3140,0.20/ DATA(CH(I,62,17),I=1,5)/ 3710.4,1.,1.363e-11,1.3140,0.20/ DATA(CH(I,62,16),I=1,5)/ 3848.5,1.,1.123e-11,1.3140,0.20/ DATA(CH(I,62,15),I=1,5)/ 3988.6,1.,9.254e-12,1.3140,0.20/ DATA(CH(I,62,14),I=1,5)/ 4130.7,1.,7.624e-12,1.3140,0.20/ DATA(CH(I,62,13),I=1,5)/ 4274.8,1.,6.281e-12,1.3140,0.20/ DATA(CH(I,62,12),I=1,5)/ 4420.8,1.,5.175e-12,1.3140,0.20/ DATA(CH(I,62,11),I=1,5)/ 4568.8,1.,4.263e-12,1.3140,0.20/ DATA(CH(I,62,10),I=1,5)/10478.0,1.,3.513e-12,1.3140,0.20/ DATA(CH(I,62, 9),I=1,5)/10834.4,1.,2.894e-12,1.3140,0.20/ DATA(CH(I,62, 8),I=1,5)/11190.9,1.,2.384e-12,1.3140,0.20/ DATA(CH(I,62, 7),I=1,5)/11547.3,1.,1.964e-12,1.3140,0.20/ DATA(CH(I,62, 6),I=1,5)/11903.7,1.,1.618e-12,1.3140,0.20/ DATA(CH(I,62, 5),I=1,5)/12260.1,1.,1.333e-12,1.3140,0.20/ DATA(CH(I,62, 4),I=1,5)/12616.5,1.,1.098e-12,1.3140,0.20/ DATA(CH(I,62, 3),I=1,5)/12973.0,1.,9.050e-13,1.3140,0.20/ DATA(CH(I,62, 2),I=1,5)/52996.4,1.,7.456e-13,1.3140,0.20/ DATA(CH(I,62, 1),I=1,5)/54275.6,1.,6.142e-13,1.3140,0.20/ DATA(CH(I,63,63),I=1,5)/ 5.7,1.,8.337d-08,1.3310,0.20/ DATA(CH(I,63,62),I=1,5)/ 11.2,1.,6.885d-08,1.3310,0.20/ DATA(CH(I,63,61),I=1,5)/ 24.9,1.,5.686d-08,1.3310,0.20/ DATA(CH(I,63,60),I=1,5)/ 42.7,1.,4.696d-08,1.3310,0.20/ DATA(CH(I,63,59),I=1,5)/ 68.7,1.,3.878e-08,1.3310,0.20/ DATA(CH(I,63,58),I=1,5)/ 99.2,1.,3.203e-08,1.3310,0.20/ DATA(CH(I,63,57),I=1,5)/ 134.1,1.,2.645e-08,1.3310,0.20/ DATA(CH(I,63,56),I=1,5)/ 173.0,1.,2.185e-08,1.3310,0.20/ DATA(CH(I,63,55),I=1,5)/ 215.6,1.,1.804e-08,1.3310,0.20/ DATA(CH(I,63,54),I=1,5)/ 261.9,1.,1.490e-08,1.3310,0.20/ DATA(CH(I,63,53),I=1,5)/ 311.7,1.,1.231e-08,1.3310,0.20/ DATA(CH(I,63,52),I=1,5)/ 364.8,1.,1.016e-08,1.3310,0.20/ DATA(CH(I,63,51),I=1,5)/ 421.2,1.,8.393e-09,1.3310,0.20/ DATA(CH(I,63,50),I=1,5)/ 480.7,1.,6.931e-09,1.3310,0.20/ DATA(CH(I,63,49),I=1,5)/ 543.3,1.,5.724e-09,1.3310,0.20/ DATA(CH(I,63,48),I=1,5)/ 608.8,1.,4.728e-09,1.3310,0.20/ DATA(CH(I,63,47),I=1,5)/ 677.3,1.,3.904e-09,1.3310,0.20/ DATA(CH(I,63,46),I=1,5)/ 748.6,1.,3.224e-09,1.3310,0.20/ DATA(CH(I,63,45),I=1,5)/ 822.6,1.,2.663e-09,1.3310,0.20/ DATA(CH(I,63,44),I=1,5)/ 899.5,1.,2.199e-09,1.3310,0.20/ DATA(CH(I,63,43),I=1,5)/ 978.9,1.,1.816e-09,1.3310,0.20/ DATA(CH(I,63,42),I=1,5)/ 1061.1,1.,1.500e-09,1.3310,0.20/ DATA(CH(I,63,41),I=1,5)/ 1145.8,1.,1.239e-09,1.3310,0.20/ DATA(CH(I,63,40),I=1,5)/ 1233.0,1.,1.023e-09,1.3310,0.20/ DATA(CH(I,63,39),I=1,5)/ 1322.8,1.,8.449e-10,1.3310,0.20/ DATA(CH(I,63,38),I=1,5)/ 1415.0,1.,6.978e-10,1.3310,0.20/ DATA(CH(I,63,37),I=1,5)/ 1509.7,1.,5.763e-10,1.3310,0.20/ DATA(CH(I,63,36),I=1,5)/ 1606.8,1.,4.759e-10,1.3310,0.20/ DATA(CH(I,63,35),I=1,5)/ 1706.2,1.,3.930e-10,1.3310,0.20/ DATA(CH(I,63,34),I=1,5)/ 1808.0,1.,3.246e-10,1.3310,0.20/ DATA(CH(I,63,33),I=1,5)/ 1912.1,1.,2.681e-10,1.3310,0.20/ DATA(CH(I,63,32),I=1,5)/ 2018.4,1.,2.214e-10,1.3310,0.20/ DATA(CH(I,63,31),I=1,5)/ 2127.0,1.,1.828e-10,1.3310,0.20/ DATA(CH(I,63,30),I=1,5)/ 2237.9,1.,1.510e-10,1.3310,0.20/ DATA(CH(I,63,29),I=1,5)/ 2351.0,1.,1.247e-10,1.3310,0.20/ DATA(CH(I,63,28),I=1,5)/ 2466.2,1.,1.030e-10,1.3310,0.20/ DATA(CH(I,63,27),I=1,5)/ 2583.6,1.,8.506e-11,1.3310,0.20/ DATA(CH(I,63,26),I=1,5)/ 2703.2,1.,7.025e-11,1.3310,0.20/ DATA(CH(I,63,25),I=1,5)/ 2824.9,1.,5.801e-11,1.3310,0.20/ DATA(CH(I,63,24),I=1,5)/ 2948.7,1.,4.791e-11,1.3310,0.20/ DATA(CH(I,63,23),I=1,5)/ 3074.6,1.,3.957e-11,1.3310,0.20/ DATA(CH(I,63,22),I=1,5)/ 3202.5,1.,3.268e-11,1.3310,0.20/ DATA(CH(I,63,21),I=1,5)/ 3332.5,1.,2.699e-11,1.3310,0.20/ DATA(CH(I,63,20),I=1,5)/ 3464.5,1.,2.229e-11,1.3310,0.20/ DATA(CH(I,63,19),I=1,5)/ 3598.5,1.,1.841e-11,1.3310,0.20/ DATA(CH(I,63,18),I=1,5)/ 3734.6,1.,1.520e-11,1.3310,0.20/ DATA(CH(I,63,17),I=1,5)/ 3872.6,1.,1.255e-11,1.3310,0.20/ DATA(CH(I,63,16),I=1,5)/ 4012.5,1.,1.037e-11,1.3310,0.20/ DATA(CH(I,63,15),I=1,5)/ 4154.5,1.,8.563e-12,1.3310,0.20/ DATA(CH(I,63,14),I=1,5)/ 4298.3,1.,7.072e-12,1.3310,0.20/ DATA(CH(I,63,13),I=1,5)/ 4444.1,1.,5.840e-12,1.3310,0.20/ DATA(CH(I,63,12),I=1,5)/ 4591.8,1.,4.823e-12,1.3310,0.20/ DATA(CH(I,63,11),I=1,5)/ 4741.4,1.,3.983e-12,1.3310,0.20/ DATA(CH(I,63,10),I=1,5)/10861.0,1.,3.290e-12,1.3310,0.20/ DATA(CH(I,63, 9),I=1,5)/11225.8,1.,2.717e-12,1.3310,0.20/ DATA(CH(I,63, 8),I=1,5)/11590.6,1.,2.244e-12,1.3310,0.20/ DATA(CH(I,63, 7),I=1,5)/11955.5,1.,1.853e-12,1.3310,0.20/ DATA(CH(I,63, 6),I=1,5)/12320.3,1.,1.530e-12,1.3310,0.20/ DATA(CH(I,63, 5),I=1,5)/12685.1,1.,1.264e-12,1.3310,0.20/ DATA(CH(I,63, 4),I=1,5)/13049.9,1.,1.044e-12,1.3310,0.20/ DATA(CH(I,63, 3),I=1,5)/13414.7,1.,8.620e-13,1.3310,0.20/ DATA(CH(I,63, 2),I=1,5)/54763.3,1.,7.119e-13,1.3310,0.20/ DATA(CH(I,63, 1),I=1,5)/56070.3,1.,5.880e-13,1.3310,0.20/ DATA(CH(I,64,64),I=1,5)/ 6.2,1.,8.337d-08,1.3480,0.20/ DATA(CH(I,64,63),I=1,5)/ 12.1,1.,6.901d-08,1.3480,0.20/ DATA(CH(I,64,62),I=1,5)/ 20.6,1.,5.713d-08,1.3480,0.20/ DATA(CH(I,64,61),I=1,5)/ 44.0,1.,4.729d-08,1.3480,0.20/ DATA(CH(I,64,60),I=1,5)/ 70.6,1.,3.915e-08,1.3480,0.20/ DATA(CH(I,64,59),I=1,5)/ 101.8,1.,3.241e-08,1.3480,0.20/ DATA(CH(I,64,58),I=1,5)/ 137.4,1.,2.683e-08,1.3480,0.20/ DATA(CH(I,64,57),I=1,5)/ 176.9,1.,2.221e-08,1.3480,0.20/ DATA(CH(I,64,56),I=1,5)/ 220.3,1.,1.838e-08,1.3480,0.20/ DATA(CH(I,64,55),I=1,5)/ 267.3,1.,1.522e-08,1.3480,0.20/ DATA(CH(I,64,54),I=1,5)/ 317.8,1.,1.260e-08,1.3480,0.20/ DATA(CH(I,64,53),I=1,5)/ 371.7,1.,1.043e-08,1.3480,0.20/ DATA(CH(I,64,52),I=1,5)/ 428.8,1.,8.633e-09,1.3480,0.20/ DATA(CH(I,64,51),I=1,5)/ 489.0,1.,7.147e-09,1.3480,0.20/ DATA(CH(I,64,50),I=1,5)/ 552.3,1.,5.916e-09,1.3480,0.20/ DATA(CH(I,64,49),I=1,5)/ 618.6,1.,4.897e-09,1.3480,0.20/ DATA(CH(I,64,48),I=1,5)/ 687.8,1.,4.054e-09,1.3480,0.20/ DATA(CH(I,64,47),I=1,5)/ 759.8,1.,3.356e-09,1.3480,0.20/ DATA(CH(I,64,46),I=1,5)/ 834.6,1.,2.778e-09,1.3480,0.20/ DATA(CH(I,64,45),I=1,5)/ 912.0,1.,2.300e-09,1.3480,0.20/ DATA(CH(I,64,44),I=1,5)/ 992.2,1.,1.904e-09,1.3480,0.20/ DATA(CH(I,64,43),I=1,5)/ 1075.0,1.,1.576e-09,1.3480,0.20/ DATA(CH(I,64,42),I=1,5)/ 1160.3,1.,1.305e-09,1.3480,0.20/ DATA(CH(I,64,41),I=1,5)/ 1248.2,1.,1.080e-09,1.3480,0.20/ DATA(CH(I,64,40),I=1,5)/ 1338.6,1.,8.940e-10,1.3480,0.20/ DATA(CH(I,64,39),I=1,5)/ 1431.4,1.,7.400e-10,1.3480,0.20/ DATA(CH(I,64,38),I=1,5)/ 1526.6,1.,6.126e-10,1.3480,0.20/ DATA(CH(I,64,37),I=1,5)/ 1624.3,1.,5.071e-10,1.3480,0.20/ DATA(CH(I,64,36),I=1,5)/ 1724.2,1.,4.198e-10,1.3480,0.20/ DATA(CH(I,64,35),I=1,5)/ 1826.5,1.,3.475e-10,1.3480,0.20/ DATA(CH(I,64,34),I=1,5)/ 1931.1,1.,2.877e-10,1.3480,0.20/ DATA(CH(I,64,33),I=1,5)/ 2038.0,1.,2.381e-10,1.3480,0.20/ DATA(CH(I,64,32),I=1,5)/ 2147.0,1.,1.971e-10,1.3480,0.20/ DATA(CH(I,64,31),I=1,5)/ 2258.3,1.,1.632e-10,1.3480,0.20/ DATA(CH(I,64,30),I=1,5)/ 2371.8,1.,1.351e-10,1.3480,0.20/ DATA(CH(I,64,29),I=1,5)/ 2487.5,1.,1.118e-10,1.3480,0.20/ DATA(CH(I,64,28),I=1,5)/ 2605.3,1.,9.257e-11,1.3480,0.20/ DATA(CH(I,64,27),I=1,5)/ 2725.2,1.,7.663e-11,1.3480,0.20/ DATA(CH(I,64,26),I=1,5)/ 2847.2,1.,6.344e-11,1.3480,0.20/ DATA(CH(I,64,25),I=1,5)/ 2971.3,1.,5.251e-11,1.3480,0.20/ DATA(CH(I,64,24),I=1,5)/ 3097.4,1.,4.347e-11,1.3480,0.20/ DATA(CH(I,64,23),I=1,5)/ 3225.6,1.,3.599e-11,1.3480,0.20/ DATA(CH(I,64,22),I=1,5)/ 3355.9,1.,2.979e-11,1.3480,0.20/ DATA(CH(I,64,21),I=1,5)/ 3488.1,1.,2.466e-11,1.3480,0.20/ DATA(CH(I,64,20),I=1,5)/ 3622.3,1.,2.041e-11,1.3480,0.20/ DATA(CH(I,64,19),I=1,5)/ 3758.5,1.,1.690e-11,1.3480,0.20/ DATA(CH(I,64,18),I=1,5)/ 3896.6,1.,1.399e-11,1.3480,0.20/ DATA(CH(I,64,17),I=1,5)/ 4036.7,1.,1.158e-11,1.3480,0.20/ DATA(CH(I,64,16),I=1,5)/ 4178.7,1.,9.586e-12,1.3480,0.20/ DATA(CH(I,64,15),I=1,5)/ 4322.7,1.,7.936e-12,1.3480,0.20/ DATA(CH(I,64,14),I=1,5)/ 4468.5,1.,6.569e-12,1.3480,0.20/ DATA(CH(I,64,13),I=1,5)/ 4616.2,1.,5.438e-12,1.3480,0.20/ DATA(CH(I,64,12),I=1,5)/ 4765.8,1.,4.502e-12,1.3480,0.20/ DATA(CH(I,64,11),I=1,5)/ 4917.3,1.,3.727e-12,1.3480,0.20/ DATA(CH(I,64,10),I=1,5)/11250.9,1.,3.085e-12,1.3480,0.20/ DATA(CH(I,64, 9),I=1,5)/11624.2,1.,2.554e-12,1.3480,0.20/ DATA(CH(I,64, 8),I=1,5)/11997.5,1.,2.114e-12,1.3480,0.20/ DATA(CH(I,64, 7),I=1,5)/12370.8,1.,1.750e-12,1.3480,0.20/ DATA(CH(I,64, 6),I=1,5)/12744.0,1.,1.449e-12,1.3480,0.20/ DATA(CH(I,64, 5),I=1,5)/13117.3,1.,1.199e-12,1.3480,0.20/ DATA(CH(I,64, 4),I=1,5)/13490.6,1.,9.927e-13,1.3480,0.20/ DATA(CH(I,64, 3),I=1,5)/13863.9,1.,8.218e-13,1.3480,0.20/ DATA(CH(I,64, 2),I=1,5)/56559.3,1.,6.803e-13,1.3480,0.20/ DATA(CH(I,64, 1),I=1,5)/57894.5,1.,5.631e-13,1.3480,0.20/ DATA(CH(I,65,65),I=1,5)/ 5.9,1.,8.337d-08,1.3650,0.20/ DATA(CH(I,65,64),I=1,5)/ 11.5,1.,6.917d-08,1.3650,0.20/ DATA(CH(I,65,63),I=1,5)/ 21.9,1.,5.739d-08,1.3650,0.20/ DATA(CH(I,65,62),I=1,5)/ 39.4,1.,4.762d-08,1.3650,0.20/ DATA(CH(I,65,61),I=1,5)/ 63.9,1.,3.951e-08,1.3650,0.20/ DATA(CH(I,65,60),I=1,5)/ 93.0,1.,3.278e-08,1.3650,0.20/ DATA(CH(I,65,59),I=1,5)/ 126.5,1.,2.720e-08,1.3650,0.20/ DATA(CH(I,65,58),I=1,5)/ 163.9,1.,2.257e-08,1.3650,0.20/ DATA(CH(I,65,57),I=1,5)/ 205.2,1.,1.872e-08,1.3650,0.20/ DATA(CH(I,65,56),I=1,5)/ 250.1,1.,1.554e-08,1.3650,0.20/ DATA(CH(I,65,55),I=1,5)/ 298.6,1.,1.289e-08,1.3650,0.20/ DATA(CH(I,65,54),I=1,5)/ 350.6,1.,1.069e-08,1.3650,0.20/ DATA(CH(I,65,53),I=1,5)/ 405.8,1.,8.873e-09,1.3650,0.20/ DATA(CH(I,65,52),I=1,5)/ 464.3,1.,7.362e-09,1.3650,0.20/ DATA(CH(I,65,51),I=1,5)/ 526.0,1.,6.108e-09,1.3650,0.20/ DATA(CH(I,65,50),I=1,5)/ 590.7,1.,5.068e-09,1.3650,0.20/ DATA(CH(I,65,49),I=1,5)/ 658.5,1.,4.205e-09,1.3650,0.20/ DATA(CH(I,65,48),I=1,5)/ 729.2,1.,3.489e-09,1.3650,0.20/ DATA(CH(I,65,47),I=1,5)/ 802.8,1.,2.895e-09,1.3650,0.20/ DATA(CH(I,65,46),I=1,5)/ 879.2,1.,2.402e-09,1.3650,0.20/ DATA(CH(I,65,45),I=1,5)/ 958.4,1.,1.993e-09,1.3650,0.20/ DATA(CH(I,65,44),I=1,5)/ 1040.4,1.,1.653e-09,1.3650,0.20/ DATA(CH(I,65,43),I=1,5)/ 1125.1,1.,1.372e-09,1.3650,0.20/ DATA(CH(I,65,42),I=1,5)/ 1212.5,1.,1.138e-09,1.3650,0.20/ DATA(CH(I,65,41),I=1,5)/ 1302.5,1.,9.444e-10,1.3650,0.20/ DATA(CH(I,65,40),I=1,5)/ 1395.1,1.,7.836e-10,1.3650,0.20/ DATA(CH(I,65,39),I=1,5)/ 1490.2,1.,6.502e-10,1.3650,0.20/ DATA(CH(I,65,38),I=1,5)/ 1587.9,1.,5.394e-10,1.3650,0.20/ DATA(CH(I,65,37),I=1,5)/ 1688.1,1.,4.476e-10,1.3650,0.20/ DATA(CH(I,65,36),I=1,5)/ 1790.8,1.,3.714e-10,1.3650,0.20/ DATA(CH(I,65,35),I=1,5)/ 1895.9,1.,3.081e-10,1.3650,0.20/ DATA(CH(I,65,34),I=1,5)/ 2003.4,1.,2.556e-10,1.3650,0.20/ DATA(CH(I,65,33),I=1,5)/ 2113.3,1.,2.121e-10,1.3650,0.20/ DATA(CH(I,65,32),I=1,5)/ 2225.6,1.,1.760e-10,1.3650,0.20/ DATA(CH(I,65,31),I=1,5)/ 2340.2,1.,1.460e-10,1.3650,0.20/ DATA(CH(I,65,30),I=1,5)/ 2457.2,1.,1.212e-10,1.3650,0.20/ DATA(CH(I,65,29),I=1,5)/ 2576.4,1.,1.005e-10,1.3650,0.20/ DATA(CH(I,65,28),I=1,5)/ 2697.9,1.,8.340e-11,1.3650,0.20/ DATA(CH(I,65,27),I=1,5)/ 2821.7,1.,6.920e-11,1.3650,0.20/ DATA(CH(I,65,26),I=1,5)/ 2947.8,1.,5.741e-11,1.3650,0.20/ DATA(CH(I,65,25),I=1,5)/ 3076.0,1.,4.764e-11,1.3650,0.20/ DATA(CH(I,65,24),I=1,5)/ 3206.5,1.,3.952e-11,1.3650,0.20/ DATA(CH(I,65,23),I=1,5)/ 3339.2,1.,3.279e-11,1.3650,0.20/ DATA(CH(I,65,22),I=1,5)/ 3474.0,1.,2.721e-11,1.3650,0.20/ DATA(CH(I,65,21),I=1,5)/ 3611.0,1.,2.258e-11,1.3650,0.20/ DATA(CH(I,65,20),I=1,5)/ 3750.1,1.,1.873e-11,1.3650,0.20/ DATA(CH(I,65,19),I=1,5)/ 3891.4,1.,1.554e-11,1.3650,0.20/ DATA(CH(I,65,18),I=1,5)/ 4034.8,1.,1.289e-11,1.3650,0.20/ DATA(CH(I,65,17),I=1,5)/ 4180.2,1.,1.070e-11,1.3650,0.20/ DATA(CH(I,65,16),I=1,5)/ 4327.8,1.,8.877e-12,1.3650,0.20/ DATA(CH(I,65,15),I=1,5)/ 4477.4,1.,7.365e-12,1.3650,0.20/ DATA(CH(I,65,14),I=1,5)/ 4629.1,1.,6.111e-12,1.3650,0.20/ DATA(CH(I,65,13),I=1,5)/ 4782.8,1.,5.070e-12,1.3650,0.20/ DATA(CH(I,65,12),I=1,5)/ 4938.5,1.,4.207e-12,1.3650,0.20/ DATA(CH(I,65,11),I=1,5)/ 5096.3,1.,3.490e-12,1.3650,0.20/ DATA(CH(I,65,10),I=1,5)/11647.6,1.,2.896e-12,1.3650,0.20/ DATA(CH(I,65, 9),I=1,5)/12029.5,1.,2.403e-12,1.3650,0.20/ DATA(CH(I,65, 8),I=1,5)/12411.3,1.,1.994e-12,1.3650,0.20/ DATA(CH(I,65, 7),I=1,5)/12793.2,1.,1.654e-12,1.3650,0.20/ DATA(CH(I,65, 6),I=1,5)/13175.0,1.,1.372e-12,1.3650,0.20/ DATA(CH(I,65, 5),I=1,5)/13556.9,1.,1.139e-12,1.3650,0.20/ DATA(CH(I,65, 4),I=1,5)/13938.7,1.,9.448e-13,1.3650,0.20/ DATA(CH(I,65, 3),I=1,5)/14320.6,1.,7.839e-13,1.3650,0.20/ DATA(CH(I,65, 2),I=1,5)/58384.5,1.,6.504e-13,1.3650,0.20/ DATA(CH(I,65, 1),I=1,5)/59748.2,1.,5.396e-13,1.3650,0.20/ DATA(CH(I,66,66),I=1,5)/ 5.9,1.,8.337d-08,1.3820,0.20/ DATA(CH(I,66,65),I=1,5)/ 11.7,1.,6.933d-08,1.3820,0.20/ DATA(CH(I,66,64),I=1,5)/ 22.8,1.,5.765d-08,1.3820,0.20/ DATA(CH(I,66,63),I=1,5)/ 41.4,1.,4.794d-08,1.3820,0.20/ DATA(CH(I,66,62),I=1,5)/ 66.9,1.,3.986e-08,1.3820,0.20/ DATA(CH(I,66,61),I=1,5)/ 97.0,1.,3.315e-08,1.3820,0.20/ DATA(CH(I,66,60),I=1,5)/ 131.4,1.,2.756e-08,1.3820,0.20/ DATA(CH(I,66,59),I=1,5)/ 170.0,1.,2.292e-08,1.3820,0.20/ DATA(CH(I,66,58),I=1,5)/ 212.3,1.,1.906e-08,1.3820,0.20/ DATA(CH(I,66,57),I=1,5)/ 258.4,1.,1.585e-08,1.3820,0.20/ DATA(CH(I,66,56),I=1,5)/ 308.0,1.,1.318e-08,1.3820,0.20/ DATA(CH(I,66,55),I=1,5)/ 361.0,1.,1.096e-08,1.3820,0.20/ DATA(CH(I,66,54),I=1,5)/ 417.3,1.,9.113e-09,1.3820,0.20/ DATA(CH(I,66,53),I=1,5)/ 476.9,1.,7.578e-09,1.3820,0.20/ DATA(CH(I,66,52),I=1,5)/ 539.6,1.,6.302e-09,1.3820,0.20/ DATA(CH(I,66,51),I=1,5)/ 605.4,1.,5.240e-09,1.3820,0.20/ DATA(CH(I,66,50),I=1,5)/ 674.1,1.,4.358e-09,1.3820,0.20/ DATA(CH(I,66,49),I=1,5)/ 745.8,1.,3.624e-09,1.3820,0.20/ DATA(CH(I,66,48),I=1,5)/ 820.3,1.,3.013e-09,1.3820,0.20/ DATA(CH(I,66,47),I=1,5)/ 897.7,1.,2.506e-09,1.3820,0.20/ DATA(CH(I,66,46),I=1,5)/ 977.8,1.,2.084e-09,1.3820,0.20/ DATA(CH(I,66,45),I=1,5)/ 1060.6,1.,1.733e-09,1.3820,0.20/ DATA(CH(I,66,44),I=1,5)/ 1146.2,1.,1.441e-09,1.3820,0.20/ DATA(CH(I,66,43),I=1,5)/ 1234.3,1.,1.198e-09,1.3820,0.20/ DATA(CH(I,66,42),I=1,5)/ 1325.0,1.,9.962e-10,1.3820,0.20/ DATA(CH(I,66,41),I=1,5)/ 1418.3,1.,8.284e-10,1.3820,0.20/ DATA(CH(I,66,40),I=1,5)/ 1514.2,1.,6.889e-10,1.3820,0.20/ DATA(CH(I,66,39),I=1,5)/ 1612.5,1.,5.728e-10,1.3820,0.20/ DATA(CH(I,66,38),I=1,5)/ 1713.2,1.,4.763e-10,1.3820,0.20/ DATA(CH(I,66,37),I=1,5)/ 1816.4,1.,3.961e-10,1.3820,0.20/ DATA(CH(I,66,36),I=1,5)/ 1922.0,1.,3.294e-10,1.3820,0.20/ DATA(CH(I,66,35),I=1,5)/ 2030.0,1.,2.739e-10,1.3820,0.20/ DATA(CH(I,66,34),I=1,5)/ 2140.3,1.,2.278e-10,1.3820,0.20/ DATA(CH(I,66,33),I=1,5)/ 2252.9,1.,1.894e-10,1.3820,0.20/ DATA(CH(I,66,32),I=1,5)/ 2367.9,1.,1.575e-10,1.3820,0.20/ DATA(CH(I,66,31),I=1,5)/ 2485.1,1.,1.310e-10,1.3820,0.20/ DATA(CH(I,66,30),I=1,5)/ 2604.5,1.,1.089e-10,1.3820,0.20/ DATA(CH(I,66,29),I=1,5)/ 2726.2,1.,9.056e-11,1.3820,0.20/ DATA(CH(I,66,28),I=1,5)/ 2850.1,1.,7.530e-11,1.3820,0.20/ DATA(CH(I,66,27),I=1,5)/ 2976.3,1.,6.262e-11,1.3820,0.20/ DATA(CH(I,66,26),I=1,5)/ 3104.5,1.,5.207e-11,1.3820,0.20/ DATA(CH(I,66,25),I=1,5)/ 3235.0,1.,4.330e-11,1.3820,0.20/ DATA(CH(I,66,24),I=1,5)/ 3367.5,1.,3.601e-11,1.3820,0.20/ DATA(CH(I,66,23),I=1,5)/ 3502.2,1.,2.994e-11,1.3820,0.20/ DATA(CH(I,66,22),I=1,5)/ 3639.0,1.,2.490e-11,1.3820,0.20/ DATA(CH(I,66,21),I=1,5)/ 3777.9,1.,2.070e-11,1.3820,0.20/ DATA(CH(I,66,20),I=1,5)/ 3918.9,1.,1.722e-11,1.3820,0.20/ DATA(CH(I,66,19),I=1,5)/ 4061.9,1.,1.432e-11,1.3820,0.20/ DATA(CH(I,66,18),I=1,5)/ 4207.0,1.,1.190e-11,1.3820,0.20/ DATA(CH(I,66,17),I=1,5)/ 4354.1,1.,9.899e-12,1.3820,0.20/ DATA(CH(I,66,16),I=1,5)/ 4503.2,1.,8.232e-12,1.3820,0.20/ DATA(CH(I,66,15),I=1,5)/ 4654.3,1.,6.845e-12,1.3820,0.20/ DATA(CH(I,66,14),I=1,5)/ 4807.4,1.,5.692e-12,1.3820,0.20/ DATA(CH(I,66,13),I=1,5)/ 4962.5,1.,4.733e-12,1.3820,0.20/ DATA(CH(I,66,12),I=1,5)/ 5119.5,1.,3.936e-12,1.3820,0.20/ DATA(CH(I,66,11),I=1,5)/ 5278.5,1.,3.273e-12,1.3820,0.20/ DATA(CH(I,66,10),I=1,5)/12051.2,1.,2.722e-12,1.3820,0.20/ DATA(CH(I,66, 9),I=1,5)/12441.7,1.,2.263e-12,1.3820,0.20/ DATA(CH(I,66, 8),I=1,5)/12832.2,1.,1.882e-12,1.3820,0.20/ DATA(CH(I,66, 7),I=1,5)/13222.7,1.,1.565e-12,1.3820,0.20/ DATA(CH(I,66, 6),I=1,5)/13613.2,1.,1.301e-12,1.3820,0.20/ DATA(CH(I,66, 5),I=1,5)/14003.7,1.,1.082e-12,1.3820,0.20/ DATA(CH(I,66, 4),I=1,5)/14394.2,1.,8.999e-13,1.3820,0.20/ DATA(CH(I,66, 3),I=1,5)/14784.7,1.,7.483e-13,1.3820,0.20/ DATA(CH(I,66, 2),I=1,5)/60238.9,1.,6.222e-13,1.3820,0.20/ DATA(CH(I,66, 1),I=1,5)/61631.2,1.,5.174e-13,1.3820,0.20/ DATA(CH(I,67,67),I=1,5)/ 6.0,1.,8.337d-08,1.3990,0.20/ DATA(CH(I,67,66),I=1,5)/ 11.8,1.,6.948d-08,1.3990,0.20/ DATA(CH(I,67,65),I=1,5)/ 22.8,1.,5.790d-08,1.3990,0.20/ DATA(CH(I,67,64),I=1,5)/ 42.5,1.,4.825d-08,1.3990,0.20/ DATA(CH(I,67,63),I=1,5)/ 68.5,1.,4.021e-08,1.3990,0.20/ DATA(CH(I,67,62),I=1,5)/ 99.2,1.,3.351e-08,1.3990,0.20/ DATA(CH(I,67,61),I=1,5)/ 134.2,1.,2.792e-08,1.3990,0.20/ DATA(CH(I,67,60),I=1,5)/ 173.4,1.,2.327e-08,1.3990,0.20/ DATA(CH(I,67,59),I=1,5)/ 216.4,1.,1.939e-08,1.3990,0.20/ DATA(CH(I,67,58),I=1,5)/ 263.1,1.,1.616e-08,1.3990,0.20/ DATA(CH(I,67,57),I=1,5)/ 313.3,1.,1.347e-08,1.3990,0.20/ DATA(CH(I,67,56),I=1,5)/ 367.0,1.,1.122e-08,1.3990,0.20/ DATA(CH(I,67,55),I=1,5)/ 424.0,1.,9.353e-09,1.3990,0.20/ DATA(CH(I,67,54),I=1,5)/ 484.3,1.,7.795e-09,1.3990,0.20/ DATA(CH(I,67,53),I=1,5)/ 547.6,1.,6.496e-09,1.3990,0.20/ DATA(CH(I,67,52),I=1,5)/ 614.1,1.,5.413e-09,1.3990,0.20/ DATA(CH(I,67,51),I=1,5)/ 683.5,1.,4.511e-09,1.3990,0.20/ DATA(CH(I,67,50),I=1,5)/ 755.8,1.,3.759e-09,1.3990,0.20/ DATA(CH(I,67,49),I=1,5)/ 831.0,1.,3.133e-09,1.3990,0.20/ DATA(CH(I,67,48),I=1,5)/ 909.0,1.,2.611e-09,1.3990,0.20/ DATA(CH(I,67,47),I=1,5)/ 989.7,1.,2.176e-09,1.3990,0.20/ DATA(CH(I,67,46),I=1,5)/ 1073.2,1.,1.813e-09,1.3990,0.20/ DATA(CH(I,67,45),I=1,5)/ 1159.3,1.,1.511e-09,1.3990,0.20/ DATA(CH(I,67,44),I=1,5)/ 1248.1,1.,1.259e-09,1.3990,0.20/ DATA(CH(I,67,43),I=1,5)/ 1339.4,1.,1.049e-09,1.3990,0.20/ DATA(CH(I,67,42),I=1,5)/ 1433.3,1.,8.745e-10,1.3990,0.20/ DATA(CH(I,67,41),I=1,5)/ 1529.7,1.,7.288e-10,1.3990,0.20/ DATA(CH(I,67,40),I=1,5)/ 1628.5,1.,6.073e-10,1.3990,0.20/ DATA(CH(I,67,39),I=1,5)/ 1729.8,1.,5.061e-10,1.3990,0.20/ DATA(CH(I,67,38),I=1,5)/ 1833.5,1.,4.218e-10,1.3990,0.20/ DATA(CH(I,67,37),I=1,5)/ 1939.6,1.,3.515e-10,1.3990,0.20/ DATA(CH(I,67,36),I=1,5)/ 2048.1,1.,2.929e-10,1.3990,0.20/ DATA(CH(I,67,35),I=1,5)/ 2158.9,1.,2.441e-10,1.3990,0.20/ DATA(CH(I,67,34),I=1,5)/ 2272.0,1.,2.034e-10,1.3990,0.20/ DATA(CH(I,67,33),I=1,5)/ 2387.4,1.,1.695e-10,1.3990,0.20/ DATA(CH(I,67,32),I=1,5)/ 2505.0,1.,1.413e-10,1.3990,0.20/ DATA(CH(I,67,31),I=1,5)/ 2624.9,1.,1.177e-10,1.3990,0.20/ DATA(CH(I,67,30),I=1,5)/ 2747.0,1.,9.811e-11,1.3990,0.20/ DATA(CH(I,67,29),I=1,5)/ 2871.2,1.,8.176e-11,1.3990,0.20/ DATA(CH(I,67,28),I=1,5)/ 2997.7,1.,6.814e-11,1.3990,0.20/ DATA(CH(I,67,27),I=1,5)/ 3126.3,1.,5.678e-11,1.3990,0.20/ DATA(CH(I,67,26),I=1,5)/ 3257.1,1.,4.732e-11,1.3990,0.20/ DATA(CH(I,67,25),I=1,5)/ 3390.0,1.,3.944e-11,1.3990,0.20/ DATA(CH(I,67,24),I=1,5)/ 3524.9,1.,3.286e-11,1.3990,0.20/ DATA(CH(I,67,23),I=1,5)/ 3662.0,1.,2.739e-11,1.3990,0.20/ DATA(CH(I,67,22),I=1,5)/ 3801.1,1.,2.282e-11,1.3990,0.20/ DATA(CH(I,67,21),I=1,5)/ 3942.3,1.,1.902e-11,1.3990,0.20/ DATA(CH(I,67,20),I=1,5)/ 4085.5,1.,1.585e-11,1.3990,0.20/ DATA(CH(I,67,19),I=1,5)/ 4230.8,1.,1.321e-11,1.3990,0.20/ DATA(CH(I,67,18),I=1,5)/ 4378.0,1.,1.101e-11,1.3990,0.20/ DATA(CH(I,67,17),I=1,5)/ 4527.3,1.,9.173e-12,1.3990,0.20/ DATA(CH(I,67,16),I=1,5)/ 4678.5,1.,7.645e-12,1.3990,0.20/ DATA(CH(I,67,15),I=1,5)/ 4831.7,1.,6.371e-12,1.3990,0.20/ DATA(CH(I,67,14),I=1,5)/ 4986.9,1.,5.309e-12,1.3990,0.20/ DATA(CH(I,67,13),I=1,5)/ 5144.0,1.,4.424e-12,1.3990,0.20/ DATA(CH(I,67,12),I=1,5)/ 5303.0,1.,3.687e-12,1.3990,0.20/ DATA(CH(I,67,11),I=1,5)/ 5464.0,1.,3.073e-12,1.3990,0.20/ DATA(CH(I,67,10),I=1,5)/12461.7,1.,2.561e-12,1.3990,0.20/ DATA(CH(I,67, 9),I=1,5)/12860.9,1.,2.134e-12,1.3990,0.20/ DATA(CH(I,67, 8),I=1,5)/13260.2,1.,1.778e-12,1.3990,0.20/ DATA(CH(I,67, 7),I=1,5)/13659.4,1.,1.482e-12,1.3990,0.20/ DATA(CH(I,67, 6),I=1,5)/14058.6,1.,1.235e-12,1.3990,0.20/ DATA(CH(I,67, 5),I=1,5)/14457.8,1.,1.029e-12,1.3990,0.20/ DATA(CH(I,67, 4),I=1,5)/14857.1,1.,8.577e-13,1.3990,0.20/ DATA(CH(I,67, 3),I=1,5)/15256.3,1.,7.148e-13,1.3990,0.20/ DATA(CH(I,67, 2),I=1,5)/62122.4,1.,5.956e-13,1.3990,0.20/ DATA(CH(I,67, 1),I=1,5)/63543.7,1.,4.964e-13,1.3990,0.20/ DATA(CH(I,68,68),I=1,5)/ 6.1,1.,8.337d-08,1.4160,0.20/ DATA(CH(I,68,67),I=1,5)/ 11.9,1.,6.962d-08,1.4160,0.20/ DATA(CH(I,68,66),I=1,5)/ 22.7,1.,5.814d-08,1.4160,0.20/ DATA(CH(I,68,65),I=1,5)/ 42.7,1.,4.856d-08,1.4160,0.20/ DATA(CH(I,68,64),I=1,5)/ 68.8,1.,4.055e-08,1.4160,0.20/ DATA(CH(I,68,63),I=1,5)/ 99.7,1.,3.386e-08,1.4160,0.20/ DATA(CH(I,68,62),I=1,5)/ 134.9,1.,2.828e-08,1.4160,0.20/ DATA(CH(I,68,61),I=1,5)/ 174.2,1.,2.362e-08,1.4160,0.20/ DATA(CH(I,68,60),I=1,5)/ 217.4,1.,1.972e-08,1.4160,0.20/ DATA(CH(I,68,59),I=1,5)/ 264.3,1.,1.647e-08,1.4160,0.20/ DATA(CH(I,68,58),I=1,5)/ 314.8,1.,1.376e-08,1.4160,0.20/ DATA(CH(I,68,57),I=1,5)/ 368.7,1.,1.149e-08,1.4160,0.20/ DATA(CH(I,68,56),I=1,5)/ 426.0,1.,9.593e-09,1.4160,0.20/ DATA(CH(I,68,55),I=1,5)/ 486.5,1.,8.011e-09,1.4160,0.20/ DATA(CH(I,68,54),I=1,5)/ 550.2,1.,6.690e-09,1.4160,0.20/ DATA(CH(I,68,53),I=1,5)/ 616.9,1.,5.587e-09,1.4160,0.20/ DATA(CH(I,68,52),I=1,5)/ 686.6,1.,4.666e-09,1.4160,0.20/ DATA(CH(I,68,51),I=1,5)/ 759.3,1.,3.897e-09,1.4160,0.20/ DATA(CH(I,68,50),I=1,5)/ 834.8,1.,3.254e-09,1.4160,0.20/ DATA(CH(I,68,49),I=1,5)/ 913.2,1.,2.718e-09,1.4160,0.20/ DATA(CH(I,68,48),I=1,5)/ 994.3,1.,2.270e-09,1.4160,0.20/ DATA(CH(I,68,47),I=1,5)/ 1078.2,1.,1.895e-09,1.4160,0.20/ DATA(CH(I,68,46),I=1,5)/ 1164.7,1.,1.583e-09,1.4160,0.20/ DATA(CH(I,68,45),I=1,5)/ 1253.8,1.,1.322e-09,1.4160,0.20/ DATA(CH(I,68,44),I=1,5)/ 1345.6,1.,1.104e-09,1.4160,0.20/ DATA(CH(I,68,43),I=1,5)/ 1439.9,1.,9.219e-10,1.4160,0.20/ DATA(CH(I,68,42),I=1,5)/ 1536.7,1.,7.699e-10,1.4160,0.20/ DATA(CH(I,68,41),I=1,5)/ 1636.0,1.,6.429e-10,1.4160,0.20/ DATA(CH(I,68,40),I=1,5)/ 1737.8,1.,5.369e-10,1.4160,0.20/ DATA(CH(I,68,39),I=1,5)/ 1842.0,1.,4.484e-10,1.4160,0.20/ DATA(CH(I,68,38),I=1,5)/ 1948.6,1.,3.745e-10,1.4160,0.20/ DATA(CH(I,68,37),I=1,5)/ 2057.5,1.,3.127e-10,1.4160,0.20/ DATA(CH(I,68,36),I=1,5)/ 2168.8,1.,2.611e-10,1.4160,0.20/ DATA(CH(I,68,35),I=1,5)/ 2282.4,1.,2.181e-10,1.4160,0.20/ DATA(CH(I,68,34),I=1,5)/ 2398.3,1.,1.821e-10,1.4160,0.20/ DATA(CH(I,68,33),I=1,5)/ 2516.5,1.,1.521e-10,1.4160,0.20/ DATA(CH(I,68,32),I=1,5)/ 2636.9,1.,1.270e-10,1.4160,0.20/ DATA(CH(I,68,31),I=1,5)/ 2759.6,1.,1.061e-10,1.4160,0.20/ DATA(CH(I,68,30),I=1,5)/ 2884.4,1.,8.859e-11,1.4160,0.20/ DATA(CH(I,68,29),I=1,5)/ 3011.5,1.,7.398e-11,1.4160,0.20/ DATA(CH(I,68,28),I=1,5)/ 3140.7,1.,6.178e-11,1.4160,0.20/ DATA(CH(I,68,27),I=1,5)/ 3272.0,1.,5.159e-11,1.4160,0.20/ DATA(CH(I,68,26),I=1,5)/ 3405.5,1.,4.309e-11,1.4160,0.20/ DATA(CH(I,68,25),I=1,5)/ 3541.1,1.,3.598e-11,1.4160,0.20/ DATA(CH(I,68,24),I=1,5)/ 3678.8,1.,3.005e-11,1.4160,0.20/ DATA(CH(I,68,23),I=1,5)/ 3818.6,1.,2.510e-11,1.4160,0.20/ DATA(CH(I,68,22),I=1,5)/ 3960.4,1.,2.096e-11,1.4160,0.20/ DATA(CH(I,68,21),I=1,5)/ 4104.3,1.,1.750e-11,1.4160,0.20/ DATA(CH(I,68,20),I=1,5)/ 4250.2,1.,1.462e-11,1.4160,0.20/ DATA(CH(I,68,19),I=1,5)/ 4398.1,1.,1.221e-11,1.4160,0.20/ DATA(CH(I,68,18),I=1,5)/ 4548.1,1.,1.019e-11,1.4160,0.20/ DATA(CH(I,68,17),I=1,5)/ 4700.0,1.,8.513e-12,1.4160,0.20/ DATA(CH(I,68,16),I=1,5)/ 4853.9,1.,7.109e-12,1.4160,0.20/ DATA(CH(I,68,15),I=1,5)/ 5009.8,1.,5.937e-12,1.4160,0.20/ DATA(CH(I,68,14),I=1,5)/ 5167.6,1.,4.958e-12,1.4160,0.20/ DATA(CH(I,68,13),I=1,5)/ 5327.3,1.,4.141e-12,1.4160,0.20/ DATA(CH(I,68,12),I=1,5)/ 5489.0,1.,3.458e-12,1.4160,0.20/ DATA(CH(I,68,11),I=1,5)/ 5652.6,1.,2.888e-12,1.4160,0.20/ DATA(CH(I,68,10),I=1,5)/12879.0,1.,2.412e-12,1.4160,0.20/ DATA(CH(I,68, 9),I=1,5)/13287.1,1.,2.014e-12,1.4160,0.20/ DATA(CH(I,68, 8),I=1,5)/13695.1,1.,1.682e-12,1.4160,0.20/ DATA(CH(I,68, 7),I=1,5)/14103.2,1.,1.405e-12,1.4160,0.20/ DATA(CH(I,68, 6),I=1,5)/14511.2,1.,1.173e-12,1.4160,0.20/ DATA(CH(I,68, 5),I=1,5)/14919.3,1.,9.796e-13,1.4160,0.20/ DATA(CH(I,68, 4),I=1,5)/15327.3,1.,8.180e-13,1.4160,0.20/ DATA(CH(I,68, 3),I=1,5)/15735.4,1.,6.832e-13,1.4160,0.20/ DATA(CH(I,68, 2),I=1,5)/64035.2,1.,5.705e-13,1.4160,0.20/ DATA(CH(I,68, 1),I=1,5)/65485.7,1.,4.764e-13,1.4160,0.20/ DATA(CH(I,69,69),I=1,5)/ 6.2,1.,8.337d-08,1.4330,0.20/ DATA(CH(I,69,68),I=1,5)/ 12.1,1.,6.977d-08,1.4330,0.20/ DATA(CH(I,69,67),I=1,5)/ 23.7,1.,5.838d-08,1.4330,0.20/ DATA(CH(I,69,66),I=1,5)/ 42.7,1.,4.886d-08,1.4330,0.20/ DATA(CH(I,69,65),I=1,5)/ 68.9,1.,4.088e-08,1.4330,0.20/ DATA(CH(I,69,64),I=1,5)/ 99.7,1.,3.421e-08,1.4330,0.20/ DATA(CH(I,69,63),I=1,5)/ 135.0,1.,2.863e-08,1.4330,0.20/ DATA(CH(I,69,62),I=1,5)/ 174.4,1.,2.396e-08,1.4330,0.20/ DATA(CH(I,69,61),I=1,5)/ 217.7,1.,2.005e-08,1.4330,0.20/ DATA(CH(I,69,60),I=1,5)/ 264.8,1.,1.678e-08,1.4330,0.20/ DATA(CH(I,69,59),I=1,5)/ 315.4,1.,1.404e-08,1.4330,0.20/ DATA(CH(I,69,58),I=1,5)/ 369.5,1.,1.175e-08,1.4330,0.20/ DATA(CH(I,69,57),I=1,5)/ 426.9,1.,9.833e-09,1.4330,0.20/ DATA(CH(I,69,56),I=1,5)/ 487.6,1.,8.228e-09,1.4330,0.20/ DATA(CH(I,69,55),I=1,5)/ 551.5,1.,6.886e-09,1.4330,0.20/ DATA(CH(I,69,54),I=1,5)/ 618.4,1.,5.762e-09,1.4330,0.20/ DATA(CH(I,69,53),I=1,5)/ 688.4,1.,4.822e-09,1.4330,0.20/ DATA(CH(I,69,52),I=1,5)/ 761.3,1.,4.035e-09,1.4330,0.20/ DATA(CH(I,69,51),I=1,5)/ 837.1,1.,3.377e-09,1.4330,0.20/ DATA(CH(I,69,50),I=1,5)/ 915.8,1.,2.826e-09,1.4330,0.20/ DATA(CH(I,69,49),I=1,5)/ 997.2,1.,2.365e-09,1.4330,0.20/ DATA(CH(I,69,48),I=1,5)/ 1081.4,1.,1.979e-09,1.4330,0.20/ DATA(CH(I,69,47),I=1,5)/ 1168.2,1.,1.656e-09,1.4330,0.20/ DATA(CH(I,69,46),I=1,5)/ 1257.8,1.,1.386e-09,1.4330,0.20/ DATA(CH(I,69,45),I=1,5)/ 1349.9,1.,1.160e-09,1.4330,0.20/ DATA(CH(I,69,44),I=1,5)/ 1444.6,1.,9.704e-10,1.4330,0.20/ DATA(CH(I,69,43),I=1,5)/ 1541.8,1.,8.121e-10,1.4330,0.20/ DATA(CH(I,69,42),I=1,5)/ 1641.5,1.,6.796e-10,1.4330,0.20/ DATA(CH(I,69,41),I=1,5)/ 1743.7,1.,5.687e-10,1.4330,0.20/ DATA(CH(I,69,40),I=1,5)/ 1848.4,1.,4.759e-10,1.4330,0.20/ DATA(CH(I,69,39),I=1,5)/ 1955.4,1.,3.983e-10,1.4330,0.20/ DATA(CH(I,69,38),I=1,5)/ 2064.9,1.,3.333e-10,1.4330,0.20/ DATA(CH(I,69,37),I=1,5)/ 2176.7,1.,2.789e-10,1.4330,0.20/ DATA(CH(I,69,36),I=1,5)/ 2290.8,1.,2.334e-10,1.4330,0.20/ DATA(CH(I,69,35),I=1,5)/ 2407.2,1.,1.953e-10,1.4330,0.20/ DATA(CH(I,69,34),I=1,5)/ 2526.0,1.,1.634e-10,1.4330,0.20/ DATA(CH(I,69,33),I=1,5)/ 2647.0,1.,1.368e-10,1.4330,0.20/ DATA(CH(I,69,32),I=1,5)/ 2770.2,1.,1.145e-10,1.4330,0.20/ DATA(CH(I,69,31),I=1,5)/ 2895.6,1.,9.578e-11,1.4330,0.20/ DATA(CH(I,69,30),I=1,5)/ 3023.3,1.,8.015e-11,1.4330,0.20/ DATA(CH(I,69,29),I=1,5)/ 3153.1,1.,6.707e-11,1.4330,0.20/ DATA(CH(I,69,28),I=1,5)/ 3285.1,1.,5.613e-11,1.4330,0.20/ DATA(CH(I,69,27),I=1,5)/ 3419.3,1.,4.697e-11,1.4330,0.20/ DATA(CH(I,69,26),I=1,5)/ 3555.5,1.,3.931e-11,1.4330,0.20/ DATA(CH(I,69,25),I=1,5)/ 3693.9,1.,3.289e-11,1.4330,0.20/ DATA(CH(I,69,24),I=1,5)/ 3834.4,1.,2.753e-11,1.4330,0.20/ DATA(CH(I,69,23),I=1,5)/ 3976.9,1.,2.303e-11,1.4330,0.20/ DATA(CH(I,69,22),I=1,5)/ 4121.6,1.,1.928e-11,1.4330,0.20/ DATA(CH(I,69,21),I=1,5)/ 4268.2,1.,1.613e-11,1.4330,0.20/ DATA(CH(I,69,20),I=1,5)/ 4416.9,1.,1.350e-11,1.4330,0.20/ DATA(CH(I,69,19),I=1,5)/ 4567.6,1.,1.130e-11,1.4330,0.20/ DATA(CH(I,69,18),I=1,5)/ 4720.4,1.,9.453e-12,1.4330,0.20/ DATA(CH(I,69,17),I=1,5)/ 4875.1,1.,7.911e-12,1.4330,0.20/ DATA(CH(I,69,16),I=1,5)/ 5031.8,1.,6.620e-12,1.4330,0.20/ DATA(CH(I,69,15),I=1,5)/ 5190.4,1.,5.540e-12,1.4330,0.20/ DATA(CH(I,69,14),I=1,5)/ 5351.0,1.,4.636e-12,1.4330,0.20/ DATA(CH(I,69,13),I=1,5)/ 5513.6,1.,3.879e-12,1.4330,0.20/ DATA(CH(I,69,12),I=1,5)/ 5678.1,1.,3.246e-12,1.4330,0.20/ DATA(CH(I,69,11),I=1,5)/ 5844.5,1.,2.717e-12,1.4330,0.20/ DATA(CH(I,69,10),I=1,5)/13303.2,1.,2.273e-12,1.4330,0.20/ DATA(CH(I,69, 9),I=1,5)/13720.2,1.,1.902e-12,1.4330,0.20/ DATA(CH(I,69, 8),I=1,5)/14137.1,1.,1.592e-12,1.4330,0.20/ DATA(CH(I,69, 7),I=1,5)/14554.1,1.,1.332e-12,1.4330,0.20/ DATA(CH(I,69, 6),I=1,5)/14971.0,1.,1.115e-12,1.4330,0.20/ DATA(CH(I,69, 5),I=1,5)/15388.0,1.,9.330e-13,1.4330,0.20/ DATA(CH(I,69, 4),I=1,5)/15805.0,1.,7.808e-13,1.4330,0.20/ DATA(CH(I,69, 3),I=1,5)/16221.9,1.,6.534e-13,1.4330,0.20/ DATA(CH(I,69, 2),I=1,5)/65977.1,1.,5.468e-13,1.4330,0.20/ DATA(CH(I,69, 1),I=1,5)/67457.1,1.,4.575e-13,1.4330,0.20/ DATA(CH(I,70,70),I=1,5)/ 6.3,1.,8.337d-08,1.4500,0.20/ DATA(CH(I,70,69),I=1,5)/ 12.2,1.,6.991d-08,1.4500,0.20/ DATA(CH(I,70,68),I=1,5)/ 25.1,1.,5.862d-08,1.4500,0.20/ DATA(CH(I,70,67),I=1,5)/ 43.6,1.,4.915d-08,1.4500,0.20/ DATA(CH(I,70,66),I=1,5)/ 70.2,1.,4.121e-08,1.4500,0.20/ DATA(CH(I,70,65),I=1,5)/ 101.6,1.,3.456e-08,1.4500,0.20/ DATA(CH(I,70,64),I=1,5)/ 137.3,1.,2.898e-08,1.4500,0.20/ DATA(CH(I,70,63),I=1,5)/ 177.3,1.,2.430e-08,1.4500,0.20/ DATA(CH(I,70,62),I=1,5)/ 221.1,1.,2.037e-08,1.4500,0.20/ DATA(CH(I,70,61),I=1,5)/ 268.7,1.,1.708e-08,1.4500,0.20/ DATA(CH(I,70,60),I=1,5)/ 319.9,1.,1.432e-08,1.4500,0.20/ DATA(CH(I,70,59),I=1,5)/ 374.6,1.,1.201e-08,1.4500,0.20/ DATA(CH(I,70,58),I=1,5)/ 432.6,1.,1.007e-08,1.4500,0.20/ DATA(CH(I,70,57),I=1,5)/ 493.9,1.,8.445e-09,1.4500,0.20/ DATA(CH(I,70,56),I=1,5)/ 558.3,1.,7.081e-09,1.4500,0.20/ DATA(CH(I,70,55),I=1,5)/ 625.9,1.,5.938e-09,1.4500,0.20/ DATA(CH(I,70,54),I=1,5)/ 696.4,1.,4.979e-09,1.4500,0.20/ DATA(CH(I,70,53),I=1,5)/ 770.0,1.,4.175e-09,1.4500,0.20/ DATA(CH(I,70,52),I=1,5)/ 846.4,1.,3.501e-09,1.4500,0.20/ DATA(CH(I,70,51),I=1,5)/ 925.6,1.,2.935e-09,1.4500,0.20/ DATA(CH(I,70,50),I=1,5)/ 1007.6,1.,2.461e-09,1.4500,0.20/ DATA(CH(I,70,49),I=1,5)/ 1092.4,1.,2.064e-09,1.4500,0.20/ DATA(CH(I,70,48),I=1,5)/ 1179.8,1.,1.731e-09,1.4500,0.20/ DATA(CH(I,70,47),I=1,5)/ 1269.9,1.,1.451e-09,1.4500,0.20/ DATA(CH(I,70,46),I=1,5)/ 1362.6,1.,1.217e-09,1.4500,0.20/ DATA(CH(I,70,45),I=1,5)/ 1457.9,1.,1.020e-09,1.4500,0.20/ DATA(CH(I,70,44),I=1,5)/ 1555.7,1.,8.555e-10,1.4500,0.20/ DATA(CH(I,70,43),I=1,5)/ 1655.9,1.,7.173e-10,1.4500,0.20/ DATA(CH(I,70,42),I=1,5)/ 1758.7,1.,6.015e-10,1.4500,0.20/ DATA(CH(I,70,41),I=1,5)/ 1863.9,1.,5.044e-10,1.4500,0.20/ DATA(CH(I,70,40),I=1,5)/ 1971.5,1.,4.229e-10,1.4500,0.20/ DATA(CH(I,70,39),I=1,5)/ 2081.4,1.,3.546e-10,1.4500,0.20/ DATA(CH(I,70,38),I=1,5)/ 2193.7,1.,2.973e-10,1.4500,0.20/ DATA(CH(I,70,37),I=1,5)/ 2308.4,1.,2.493e-10,1.4500,0.20/ DATA(CH(I,70,36),I=1,5)/ 2425.3,1.,2.091e-10,1.4500,0.20/ DATA(CH(I,70,35),I=1,5)/ 2544.5,1.,1.753e-10,1.4500,0.20/ DATA(CH(I,70,34),I=1,5)/ 2666.0,1.,1.470e-10,1.4500,0.20/ DATA(CH(I,70,33),I=1,5)/ 2789.7,1.,1.233e-10,1.4500,0.20/ DATA(CH(I,70,32),I=1,5)/ 2915.6,1.,1.033e-10,1.4500,0.20/ DATA(CH(I,70,31),I=1,5)/ 3043.7,1.,8.666e-11,1.4500,0.20/ DATA(CH(I,70,30),I=1,5)/ 3173.9,1.,7.266e-11,1.4500,0.20/ DATA(CH(I,70,29),I=1,5)/ 3306.4,1.,6.093e-11,1.4500,0.20/ DATA(CH(I,70,28),I=1,5)/ 3440.9,1.,5.109e-11,1.4500,0.20/ DATA(CH(I,70,27),I=1,5)/ 3577.6,1.,4.284e-11,1.4500,0.20/ DATA(CH(I,70,26),I=1,5)/ 3716.4,1.,3.592e-11,1.4500,0.20/ DATA(CH(I,70,25),I=1,5)/ 3857.2,1.,3.012e-11,1.4500,0.20/ DATA(CH(I,70,24),I=1,5)/ 4000.1,1.,2.526e-11,1.4500,0.20/ DATA(CH(I,70,23),I=1,5)/ 4145.1,1.,2.118e-11,1.4500,0.20/ DATA(CH(I,70,22),I=1,5)/ 4292.1,1.,1.776e-11,1.4500,0.20/ DATA(CH(I,70,21),I=1,5)/ 4441.1,1.,1.489e-11,1.4500,0.20/ DATA(CH(I,70,20),I=1,5)/ 4592.1,1.,1.249e-11,1.4500,0.20/ DATA(CH(I,70,19),I=1,5)/ 4745.2,1.,1.047e-11,1.4500,0.20/ DATA(CH(I,70,18),I=1,5)/ 4900.2,1.,8.778e-12,1.4500,0.20/ DATA(CH(I,70,17),I=1,5)/ 5057.1,1.,7.361e-12,1.4500,0.20/ DATA(CH(I,70,16),I=1,5)/ 5216.0,1.,6.172e-12,1.4500,0.20/ DATA(CH(I,70,15),I=1,5)/ 5376.9,1.,5.175e-12,1.4500,0.20/ DATA(CH(I,70,14),I=1,5)/ 5539.7,1.,4.340e-12,1.4500,0.20/ DATA(CH(I,70,13),I=1,5)/ 5704.4,1.,3.639e-12,1.4500,0.20/ DATA(CH(I,70,12),I=1,5)/ 5871.0,1.,3.051e-12,1.4500,0.20/ DATA(CH(I,70,11),I=1,5)/ 6039.5,1.,2.558e-12,1.4500,0.20/ DATA(CH(I,70,10),I=1,5)/13734.3,1.,2.145e-12,1.4500,0.20/ DATA(CH(I,70, 9),I=1,5)/14160.2,1.,1.799e-12,1.4500,0.20/ DATA(CH(I,70, 8),I=1,5)/14586.2,1.,1.508e-12,1.4500,0.20/ DATA(CH(I,70, 7),I=1,5)/15012.1,1.,1.265e-12,1.4500,0.20/ DATA(CH(I,70, 6),I=1,5)/15438.1,1.,1.061e-12,1.4500,0.20/ DATA(CH(I,70, 5),I=1,5)/15864.0,1.,8.892e-13,1.4500,0.20/ DATA(CH(I,70, 4),I=1,5)/16290.0,1.,7.456e-13,1.4500,0.20/ DATA(CH(I,70, 3),I=1,5)/16715.9,1.,6.252e-13,1.4500,0.20/ DATA(CH(I,70, 2),I=1,5)/67948.2,1.,5.243e-13,1.4500,0.20/ DATA(CH(I,70, 1),I=1,5)/69457.9,1.,4.396e-13,1.4500,0.20/ DATA(CH(I,71,71),I=1,5)/ 5.4,1.,8.337d-08,1.4670,0.20/ DATA(CH(I,71,70),I=1,5)/ 13.9,1.,7.004d-08,1.4670,0.20/ DATA(CH(I,71,69),I=1,5)/ 21.0,1.,5.885d-08,1.4670,0.20/ DATA(CH(I,71,68),I=1,5)/ 45.3,1.,4.944d-08,1.4670,0.20/ DATA(CH(I,71,67),I=1,5)/ 66.8,1.,4.154d-08,1.4670,0.20/ DATA(CH(I,71,66),I=1,5)/ 97.1,1.,3.490e-08,1.4670,0.20/ DATA(CH(I,71,65),I=1,5)/ 131.8,1.,2.932e-08,1.4670,0.20/ DATA(CH(I,71,64),I=1,5)/ 170.6,1.,2.463e-08,1.4670,0.20/ DATA(CH(I,71,63),I=1,5)/ 213.3,1.,2.069e-08,1.4670,0.20/ DATA(CH(I,71,62),I=1,5)/ 259.9,1.,1.739e-08,1.4670,0.20/ DATA(CH(I,71,61),I=1,5)/ 310.0,1.,1.461e-08,1.4670,0.20/ DATA(CH(I,71,60),I=1,5)/ 363.7,1.,1.227e-08,1.4670,0.20/ DATA(CH(I,71,59),I=1,5)/ 420.8,1.,1.031e-08,1.4670,0.20/ DATA(CH(I,71,58),I=1,5)/ 481.2,1.,8.662e-09,1.4670,0.20/ DATA(CH(I,71,57),I=1,5)/ 544.8,1.,7.277e-09,1.4670,0.20/ DATA(CH(I,71,56),I=1,5)/ 611.5,1.,6.114e-09,1.4670,0.20/ DATA(CH(I,71,55),I=1,5)/ 681.4,1.,5.137e-09,1.4670,0.20/ DATA(CH(I,71,54),I=1,5)/ 754.2,1.,4.316e-09,1.4670,0.20/ DATA(CH(I,71,53),I=1,5)/ 830.0,1.,3.626e-09,1.4670,0.20/ DATA(CH(I,71,52),I=1,5)/ 908.7,1.,3.046e-09,1.4670,0.20/ DATA(CH(I,71,51),I=1,5)/ 990.2,1.,2.559e-09,1.4670,0.20/ DATA(CH(I,71,50),I=1,5)/ 1074.5,1.,2.150e-09,1.4670,0.20/ DATA(CH(I,71,49),I=1,5)/ 1161.6,1.,1.806e-09,1.4670,0.20/ DATA(CH(I,71,48),I=1,5)/ 1251.4,1.,1.518e-09,1.4670,0.20/ DATA(CH(I,71,47),I=1,5)/ 1343.9,1.,1.275e-09,1.4670,0.20/ DATA(CH(I,71,46),I=1,5)/ 1439.1,1.,1.071e-09,1.4670,0.20/ DATA(CH(I,71,45),I=1,5)/ 1536.8,1.,9.000e-10,1.4670,0.20/ DATA(CH(I,71,44),I=1,5)/ 1637.1,1.,7.561e-10,1.4670,0.20/ DATA(CH(I,71,43),I=1,5)/ 1739.9,1.,6.353e-10,1.4670,0.20/ DATA(CH(I,71,42),I=1,5)/ 1845.3,1.,5.337e-10,1.4670,0.20/ DATA(CH(I,71,41),I=1,5)/ 1953.1,1.,4.484e-10,1.4670,0.20/ DATA(CH(I,71,40),I=1,5)/ 2063.4,1.,3.767e-10,1.4670,0.20/ DATA(CH(I,71,39),I=1,5)/ 2176.1,1.,3.165e-10,1.4670,0.20/ DATA(CH(I,71,38),I=1,5)/ 2291.2,1.,2.659e-10,1.4670,0.20/ DATA(CH(I,71,37),I=1,5)/ 2408.7,1.,2.234e-10,1.4670,0.20/ DATA(CH(I,71,36),I=1,5)/ 2528.6,1.,1.877e-10,1.4670,0.20/ DATA(CH(I,71,35),I=1,5)/ 2650.8,1.,1.577e-10,1.4670,0.20/ DATA(CH(I,71,34),I=1,5)/ 2775.3,1.,1.325e-10,1.4670,0.20/ DATA(CH(I,71,33),I=1,5)/ 2902.1,1.,1.113e-10,1.4670,0.20/ DATA(CH(I,71,32),I=1,5)/ 3031.2,1.,9.351e-11,1.4670,0.20/ DATA(CH(I,71,31),I=1,5)/ 3162.5,1.,7.856e-11,1.4670,0.20/ DATA(CH(I,71,30),I=1,5)/ 3296.1,1.,6.600e-11,1.4670,0.20/ DATA(CH(I,71,29),I=1,5)/ 3431.8,1.,5.545e-11,1.4670,0.20/ DATA(CH(I,71,28),I=1,5)/ 3569.8,1.,4.659e-11,1.4670,0.20/ DATA(CH(I,71,27),I=1,5)/ 3710.0,1.,3.914e-11,1.4670,0.20/ DATA(CH(I,71,26),I=1,5)/ 3852.3,1.,3.288e-11,1.4670,0.20/ DATA(CH(I,71,25),I=1,5)/ 3996.8,1.,2.763e-11,1.4670,0.20/ DATA(CH(I,71,24),I=1,5)/ 4143.4,1.,2.321e-11,1.4670,0.20/ DATA(CH(I,71,23),I=1,5)/ 4292.2,1.,1.950e-11,1.4670,0.20/ DATA(CH(I,71,22),I=1,5)/ 4443.0,1.,1.638e-11,1.4670,0.20/ DATA(CH(I,71,21),I=1,5)/ 4596.0,1.,1.376e-11,1.4670,0.20/ DATA(CH(I,71,20),I=1,5)/ 4751.0,1.,1.156e-11,1.4670,0.20/ DATA(CH(I,71,19),I=1,5)/ 4908.1,1.,9.716e-12,1.4670,0.20/ DATA(CH(I,71,18),I=1,5)/ 5067.3,1.,8.163e-12,1.4670,0.20/ DATA(CH(I,71,17),I=1,5)/ 5228.4,1.,6.858e-12,1.4670,0.20/ DATA(CH(I,71,16),I=1,5)/ 5391.7,1.,5.762e-12,1.4670,0.20/ DATA(CH(I,71,15),I=1,5)/ 5556.9,1.,4.841e-12,1.4670,0.20/ DATA(CH(I,71,14),I=1,5)/ 5724.1,1.,4.067e-12,1.4670,0.20/ DATA(CH(I,71,13),I=1,5)/ 5893.4,1.,3.417e-12,1.4670,0.20/ DATA(CH(I,71,12),I=1,5)/ 6064.6,1.,2.871e-12,1.4670,0.20/ DATA(CH(I,71,11),I=1,5)/ 6237.8,1.,2.412e-12,1.4670,0.20/ DATA(CH(I,71,10),I=1,5)/14172.2,1.,2.026e-12,1.4670,0.20/ DATA(CH(I,71, 9),I=1,5)/14607.3,1.,1.702e-12,1.4670,0.20/ DATA(CH(I,71, 8),I=1,5)/15042.3,1.,1.430e-12,1.4670,0.20/ DATA(CH(I,71, 7),I=1,5)/15477.3,1.,1.202e-12,1.4670,0.20/ DATA(CH(I,71, 6),I=1,5)/15912.3,1.,1.009e-12,1.4670,0.20/ DATA(CH(I,71, 5),I=1,5)/16347.3,1.,8.481e-13,1.4670,0.20/ DATA(CH(I,71, 4),I=1,5)/16782.3,1.,7.126e-13,1.4670,0.20/ DATA(CH(I,71, 3),I=1,5)/17217.4,1.,5.986e-13,1.4670,0.20/ DATA(CH(I,71, 2),I=1,5)/69948.5,1.,5.030e-13,1.4670,0.20/ DATA(CH(I,71, 1),I=1,5)/71488.2,1.,4.226e-13,1.4670,0.20/ DATA(CH(I,72,72),I=1,5)/ 6.8,1.,8.337d-08,1.4840,0.20/ DATA(CH(I,72,71),I=1,5)/ 14.9,1.,7.017d-08,1.4840,0.20/ DATA(CH(I,72,70),I=1,5)/ 23.3,1.,5.907d-08,1.4840,0.20/ DATA(CH(I,72,69),I=1,5)/ 33.4,1.,4.972d-08,1.4840,0.20/ DATA(CH(I,72,68),I=1,5)/ 55.2,1.,4.185e-08,1.4840,0.20/ DATA(CH(I,72,67),I=1,5)/ 81.5,1.,3.523e-08,1.4840,0.20/ DATA(CH(I,72,66),I=1,5)/ 112.1,1.,2.965e-08,1.4840,0.20/ DATA(CH(I,72,65),I=1,5)/ 146.7,1.,2.496e-08,1.4840,0.20/ DATA(CH(I,72,64),I=1,5)/ 185.3,1.,2.101e-08,1.4840,0.20/ DATA(CH(I,72,63),I=1,5)/ 227.6,1.,1.769e-08,1.4840,0.20/ DATA(CH(I,72,62),I=1,5)/ 273.6,1.,1.489e-08,1.4840,0.20/ DATA(CH(I,72,61),I=1,5)/ 323.1,1.,1.253e-08,1.4840,0.20/ DATA(CH(I,72,60),I=1,5)/ 376.2,1.,1.055e-08,1.4840,0.20/ DATA(CH(I,72,59),I=1,5)/ 432.6,1.,8.879e-09,1.4840,0.20/ DATA(CH(I,72,58),I=1,5)/ 492.4,1.,7.474e-09,1.4840,0.20/ DATA(CH(I,72,57),I=1,5)/ 555.5,1.,6.291e-09,1.4840,0.20/ DATA(CH(I,72,56),I=1,5)/ 621.8,1.,5.296e-09,1.4840,0.20/ DATA(CH(I,72,55),I=1,5)/ 691.2,1.,4.458e-09,1.4840,0.20/ DATA(CH(I,72,54),I=1,5)/ 763.8,1.,3.752e-09,1.4840,0.20/ DATA(CH(I,72,53),I=1,5)/ 839.4,1.,3.158e-09,1.4840,0.20/ DATA(CH(I,72,52),I=1,5)/ 918.1,1.,2.659e-09,1.4840,0.20/ DATA(CH(I,72,51),I=1,5)/ 999.8,1.,2.238e-09,1.4840,0.20/ DATA(CH(I,72,50),I=1,5)/ 1084.4,1.,1.884e-09,1.4840,0.20/ DATA(CH(I,72,49),I=1,5)/ 1172.0,1.,1.586e-09,1.4840,0.20/ DATA(CH(I,72,48),I=1,5)/ 1262.4,1.,1.335e-09,1.4840,0.20/ DATA(CH(I,72,47),I=1,5)/ 1355.7,1.,1.123e-09,1.4840,0.20/ DATA(CH(I,72,46),I=1,5)/ 1451.8,1.,9.456e-10,1.4840,0.20/ DATA(CH(I,72,45),I=1,5)/ 1550.8,1.,7.960e-10,1.4840,0.20/ DATA(CH(I,72,44),I=1,5)/ 1652.5,1.,6.700e-10,1.4840,0.20/ DATA(CH(I,72,43),I=1,5)/ 1756.9,1.,5.640e-10,1.4840,0.20/ DATA(CH(I,72,42),I=1,5)/ 1864.1,1.,4.747e-10,1.4840,0.20/ DATA(CH(I,72,41),I=1,5)/ 1974.0,1.,3.996e-10,1.4840,0.20/ DATA(CH(I,72,40),I=1,5)/ 2086.6,1.,3.364e-10,1.4840,0.20/ DATA(CH(I,72,39),I=1,5)/ 2201.8,1.,2.831e-10,1.4840,0.20/ DATA(CH(I,72,38),I=1,5)/ 2319.7,1.,2.383e-10,1.4840,0.20/ DATA(CH(I,72,37),I=1,5)/ 2440.1,1.,2.006e-10,1.4840,0.20/ DATA(CH(I,72,36),I=1,5)/ 2563.2,1.,1.689e-10,1.4840,0.20/ DATA(CH(I,72,35),I=1,5)/ 2688.9,1.,1.421e-10,1.4840,0.20/ DATA(CH(I,72,34),I=1,5)/ 2817.1,1.,1.196e-10,1.4840,0.20/ DATA(CH(I,72,33),I=1,5)/ 2947.8,1.,1.007e-10,1.4840,0.20/ DATA(CH(I,72,32),I=1,5)/ 3081.1,1.,8.478e-11,1.4840,0.20/ DATA(CH(I,72,31),I=1,5)/ 3216.9,1.,7.136e-11,1.4840,0.20/ DATA(CH(I,72,30),I=1,5)/ 3355.2,1.,6.007e-11,1.4840,0.20/ DATA(CH(I,72,29),I=1,5)/ 3496.0,1.,5.056e-11,1.4840,0.20/ DATA(CH(I,72,28),I=1,5)/ 3639.2,1.,4.256e-11,1.4840,0.20/ DATA(CH(I,72,27),I=1,5)/ 3784.9,1.,3.582e-11,1.4840,0.20/ DATA(CH(I,72,26),I=1,5)/ 3933.1,1.,3.016e-11,1.4840,0.20/ DATA(CH(I,72,25),I=1,5)/ 4083.6,1.,2.538e-11,1.4840,0.20/ DATA(CH(I,72,24),I=1,5)/ 4236.6,1.,2.137e-11,1.4840,0.20/ DATA(CH(I,72,23),I=1,5)/ 4392.0,1.,1.799e-11,1.4840,0.20/ DATA(CH(I,72,22),I=1,5)/ 4549.7,1.,1.514e-11,1.4840,0.20/ DATA(CH(I,72,21),I=1,5)/ 4709.9,1.,1.274e-11,1.4840,0.20/ DATA(CH(I,72,20),I=1,5)/ 4872.3,1.,1.073e-11,1.4840,0.20/ DATA(CH(I,72,19),I=1,5)/ 5037.2,1.,9.029e-12,1.4840,0.20/ DATA(CH(I,72,18),I=1,5)/ 5204.4,1.,7.600e-12,1.4840,0.20/ DATA(CH(I,72,17),I=1,5)/ 5373.9,1.,6.397e-12,1.4840,0.20/ DATA(CH(I,72,16),I=1,5)/ 5545.7,1.,5.385e-12,1.4840,0.20/ DATA(CH(I,72,15),I=1,5)/ 5719.8,1.,4.533e-12,1.4840,0.20/ DATA(CH(I,72,14),I=1,5)/ 5896.2,1.,3.815e-12,1.4840,0.20/ DATA(CH(I,72,13),I=1,5)/ 6075.0,1.,3.212e-12,1.4840,0.20/ DATA(CH(I,72,12),I=1,5)/ 6256.0,1.,2.703e-12,1.4840,0.20/ DATA(CH(I,72,11),I=1,5)/ 6439.2,1.,2.276e-12,1.4840,0.20/ DATA(CH(I,72,10),I=1,5)/14617.0,1.,1.915e-12,1.4840,0.20/ DATA(CH(I,72, 9),I=1,5)/15061.2,1.,1.612e-12,1.4840,0.20/ DATA(CH(I,72, 8),I=1,5)/15505.4,1.,1.357e-12,1.4840,0.20/ DATA(CH(I,72, 7),I=1,5)/15949.6,1.,1.142e-12,1.4840,0.20/ DATA(CH(I,72, 6),I=1,5)/16393.8,1.,9.616e-13,1.4840,0.20/ DATA(CH(I,72, 5),I=1,5)/16837.9,1.,8.094e-13,1.4840,0.20/ DATA(CH(I,72, 4),I=1,5)/17282.1,1.,6.813e-13,1.4840,0.20/ DATA(CH(I,72, 3),I=1,5)/17726.3,1.,5.735e-13,1.4840,0.20/ DATA(CH(I,72, 2),I=1,5)/71977.9,1.,4.828e-13,1.4840,0.20/ DATA(CH(I,72, 1),I=1,5)/73547.9,1.,4.064e-13,1.4840,0.20/ DATA(CH(I,73,73),I=1,5)/ 7.9,1.,8.337d-08,1.5010,0.20/ DATA(CH(I,73,72),I=1,5)/ 15.0,1.,7.031e-08,1.5010,0.20/ DATA(CH(I,73,71),I=1,5)/ 41.7,1.,5.929e-08,1.5010,0.20/ DATA(CH(I,73,70),I=1,5)/ 75.9,1.,5.000e-08,1.5010,0.20/ DATA(CH(I,73,69),I=1,5)/ 116.1,1.,4.217e-08,1.5010,0.20/ DATA(CH(I,73,68),I=1,5)/ 161.5,1.,3.556e-08,1.5010,0.20/ DATA(CH(I,73,67),I=1,5)/ 211.3,1.,2.999e-08,1.5010,0.20/ DATA(CH(I,73,66),I=1,5)/ 265.3,1.,2.529e-08,1.5010,0.20/ DATA(CH(I,73,65),I=1,5)/ 323.2,1.,2.133e-08,1.5010,0.20/ DATA(CH(I,73,64),I=1,5)/ 384.6,1.,1.798e-08,1.5010,0.20/ DATA(CH(I,73,63),I=1,5)/ 449.3,1.,1.517e-08,1.5010,0.20/ DATA(CH(I,73,62),I=1,5)/ 517.2,1.,1.279e-08,1.5010,0.20/ DATA(CH(I,73,61),I=1,5)/ 588.1,1.,1.079e-08,1.5010,0.20/ DATA(CH(I,73,60),I=1,5)/ 661.8,1.,9.096e-09,1.5010,0.20/ DATA(CH(I,73,59),I=1,5)/ 738.3,1.,7.671e-09,1.5010,0.20/ DATA(CH(I,73,58),I=1,5)/ 817.5,1.,6.469e-09,1.5010,0.20/ DATA(CH(I,73,57),I=1,5)/ 899.3,1.,5.455e-09,1.5010,0.20/ DATA(CH(I,73,56),I=1,5)/ 983.5,1.,4.600e-09,1.5010,0.20/ DATA(CH(I,73,55),I=1,5)/ 1070.1,1.,3.880e-09,1.5010,0.20/ DATA(CH(I,73,54),I=1,5)/ 1159.0,1.,3.272e-09,1.5010,0.20/ DATA(CH(I,73,53),I=1,5)/ 1250.2,1.,2.759e-09,1.5010,0.20/ DATA(CH(I,73,52),I=1,5)/ 1343.5,1.,2.327e-09,1.5010,0.20/ DATA(CH(I,73,51),I=1,5)/ 1439.1,1.,1.962e-09,1.5010,0.20/ DATA(CH(I,73,50),I=1,5)/ 1536.7,1.,1.655e-09,1.5010,0.20/ DATA(CH(I,73,49),I=1,5)/ 1636.3,1.,1.395e-09,1.5010,0.20/ DATA(CH(I,73,48),I=1,5)/ 1738.0,1.,1.177e-09,1.5010,0.20/ DATA(CH(I,73,47),I=1,5)/ 1841.6,1.,9.924e-10,1.5010,0.20/ DATA(CH(I,73,46),I=1,5)/ 1947.1,1.,8.369e-10,1.5010,0.20/ DATA(CH(I,73,45),I=1,5)/ 2054.5,1.,7.058e-10,1.5010,0.20/ DATA(CH(I,73,44),I=1,5)/ 2163.8,1.,5.952e-10,1.5010,0.20/ DATA(CH(I,73,43),I=1,5)/ 2274.8,1.,5.019e-10,1.5010,0.20/ DATA(CH(I,73,42),I=1,5)/ 2387.7,1.,4.233e-10,1.5010,0.20/ DATA(CH(I,73,41),I=1,5)/ 2502.2,1.,3.570e-10,1.5010,0.20/ DATA(CH(I,73,40),I=1,5)/ 2618.6,1.,3.010e-10,1.5010,0.20/ DATA(CH(I,73,39),I=1,5)/ 2736.5,1.,2.539e-10,1.5010,0.20/ DATA(CH(I,73,38),I=1,5)/ 2856.2,1.,2.141e-10,1.5010,0.20/ DATA(CH(I,73,37),I=1,5)/ 2977.5,1.,1.805e-10,1.5010,0.20/ DATA(CH(I,73,36),I=1,5)/ 3100.4,1.,1.523e-10,1.5010,0.20/ DATA(CH(I,73,35),I=1,5)/ 3224.9,1.,1.284e-10,1.5010,0.20/ DATA(CH(I,73,34),I=1,5)/ 3351.0,1.,1.083e-10,1.5010,0.20/ DATA(CH(I,73,33),I=1,5)/ 3478.7,1.,9.131e-11,1.5010,0.20/ DATA(CH(I,73,32),I=1,5)/ 3607.8,1.,7.700e-11,1.5010,0.20/ DATA(CH(I,73,31),I=1,5)/ 3738.5,1.,6.494e-11,1.5010,0.20/ DATA(CH(I,73,30),I=1,5)/ 3870.6,1.,5.476e-11,1.5010,0.20/ DATA(CH(I,73,29),I=1,5)/ 4004.3,1.,4.618e-11,1.5010,0.20/ DATA(CH(I,73,28),I=1,5)/ 4139.4,1.,3.895e-11,1.5010,0.20/ DATA(CH(I,73,27),I=1,5)/ 4275.9,1.,3.284e-11,1.5010,0.20/ DATA(CH(I,73,26),I=1,5)/ 4413.8,1.,2.770e-11,1.5010,0.20/ DATA(CH(I,73,25),I=1,5)/ 4553.2,1.,2.336e-11,1.5010,0.20/ DATA(CH(I,73,24),I=1,5)/ 4693.9,1.,1.970e-11,1.5010,0.20/ DATA(CH(I,73,23),I=1,5)/ 4836.1,1.,1.661e-11,1.5010,0.20/ DATA(CH(I,73,22),I=1,5)/ 4979.5,1.,1.401e-11,1.5010,0.20/ DATA(CH(I,73,21),I=1,5)/ 5124.4,1.,1.181e-11,1.5010,0.20/ DATA(CH(I,73,20),I=1,5)/ 5270.5,1.,9.962e-12,1.5010,0.20/ DATA(CH(I,73,19),I=1,5)/ 5418.0,1.,8.401e-12,1.5010,0.20/ DATA(CH(I,73,18),I=1,5)/ 5566.8,1.,7.085e-12,1.5010,0.20/ DATA(CH(I,73,17),I=1,5)/ 5716.9,1.,5.975e-12,1.5010,0.20/ DATA(CH(I,73,16),I=1,5)/ 5868.2,1.,5.039e-12,1.5010,0.20/ DATA(CH(I,73,15),I=1,5)/ 6020.9,1.,4.249e-12,1.5010,0.20/ DATA(CH(I,73,14),I=1,5)/ 6174.7,1.,3.583e-12,1.5010,0.20/ DATA(CH(I,73,13),I=1,5)/ 6329.9,1.,3.022e-12,1.5010,0.20/ DATA(CH(I,73,12),I=1,5)/ 6486.3,1.,2.548e-12,1.5010,0.20/ DATA(CH(I,73,11),I=1,5)/ 6643.9,1.,2.149e-12,1.5010,0.20/ DATA(CH(I,73,10),I=1,5)/15068.7,1.,1.812e-12,1.5010,0.20/ DATA(CH(I,73, 9),I=1,5)/15522.1,1.,1.528e-12,1.5010,0.20/ DATA(CH(I,73, 8),I=1,5)/15975.6,1.,1.289e-12,1.5010,0.20/ DATA(CH(I,73, 7),I=1,5)/16429.0,1.,1.087e-12,1.5010,0.20/ DATA(CH(I,73, 6),I=1,5)/16882.4,1.,9.166e-13,1.5010,0.20/ DATA(CH(I,73, 5),I=1,5)/17335.8,1.,7.730e-13,1.5010,0.20/ DATA(CH(I,73, 4),I=1,5)/17789.3,1.,6.519e-13,1.5010,0.20/ DATA(CH(I,73, 3),I=1,5)/18242.7,1.,5.497e-13,1.5010,0.20/ DATA(CH(I,73, 2),I=1,5)/74036.6,1.,4.636e-13,1.5010,0.20/ DATA(CH(I,73, 1),I=1,5)/75637.0,1.,3.910e-13,1.5010,0.20/ DATA(CH(I,74,74),I=1,5)/ 8.0,1.,8.337d-08,1.5180,0.20/ DATA(CH(I,74,73),I=1,5)/ 16.0,1.,7.043e-08,1.5180,0.20/ DATA(CH(I,74,72),I=1,5)/ 44.1,1.,5.950e-08,1.5180,0.20/ DATA(CH(I,74,71),I=1,5)/ 79.8,1.,5.027e-08,1.5180,0.20/ DATA(CH(I,74,70),I=1,5)/ 121.5,1.,4.247e-08,1.5180,0.20/ DATA(CH(I,74,69),I=1,5)/ 168.4,1.,3.588e-08,1.5180,0.20/ DATA(CH(I,74,68),I=1,5)/ 219.9,1.,3.031e-08,1.5180,0.20/ DATA(CH(I,74,67),I=1,5)/ 275.5,1.,2.561e-08,1.5180,0.20/ DATA(CH(I,74,66),I=1,5)/ 334.9,1.,2.164e-08,1.5180,0.20/ DATA(CH(I,74,65),I=1,5)/ 397.9,1.,1.828e-08,1.5180,0.20/ DATA(CH(I,74,64),I=1,5)/ 464.2,1.,1.544e-08,1.5180,0.20/ DATA(CH(I,74,63),I=1,5)/ 533.6,1.,1.305e-08,1.5180,0.20/ DATA(CH(I,74,62),I=1,5)/ 606.1,1.,1.102e-08,1.5180,0.20/ DATA(CH(I,74,61),I=1,5)/ 681.3,1.,9.313e-09,1.5180,0.20/ DATA(CH(I,74,60),I=1,5)/ 759.3,1.,7.868e-09,1.5180,0.20/ DATA(CH(I,74,59),I=1,5)/ 839.9,1.,6.647e-09,1.5180,0.20/ DATA(CH(I,74,58),I=1,5)/ 923.1,1.,5.616e-09,1.5180,0.20/ DATA(CH(I,74,57),I=1,5)/ 1008.7,1.,4.744e-09,1.5180,0.20/ DATA(CH(I,74,56),I=1,5)/ 1096.6,1.,4.008e-09,1.5180,0.20/ DATA(CH(I,74,55),I=1,5)/ 1186.9,1.,3.386e-09,1.5180,0.20/ DATA(CH(I,74,54),I=1,5)/ 1279.3,1.,2.861e-09,1.5180,0.20/ DATA(CH(I,74,53),I=1,5)/ 1374.0,1.,2.417e-09,1.5180,0.20/ DATA(CH(I,74,52),I=1,5)/ 1470.7,1.,2.042e-09,1.5180,0.20/ DATA(CH(I,74,51),I=1,5)/ 1569.5,1.,1.725e-09,1.5180,0.20/ DATA(CH(I,74,50),I=1,5)/ 1670.3,1.,1.457e-09,1.5180,0.20/ DATA(CH(I,74,49),I=1,5)/ 1773.0,1.,1.231e-09,1.5180,0.20/ DATA(CH(I,74,48),I=1,5)/ 1877.7,1.,1.040e-09,1.5180,0.20/ DATA(CH(I,74,47),I=1,5)/ 1984.3,1.,8.789e-10,1.5180,0.20/ DATA(CH(I,74,46),I=1,5)/ 2092.7,1.,7.425e-10,1.5180,0.20/ DATA(CH(I,74,45),I=1,5)/ 2202.9,1.,6.273e-10,1.5180,0.20/ DATA(CH(I,74,44),I=1,5)/ 2314.9,1.,5.300e-10,1.5180,0.20/ DATA(CH(I,74,43),I=1,5)/ 2428.6,1.,4.477e-10,1.5180,0.20/ DATA(CH(I,74,42),I=1,5)/ 2544.0,1.,3.783e-10,1.5180,0.20/ DATA(CH(I,74,41),I=1,5)/ 2661.1,1.,3.196e-10,1.5180,0.20/ DATA(CH(I,74,40),I=1,5)/ 2779.9,1.,2.700e-10,1.5180,0.20/ DATA(CH(I,74,39),I=1,5)/ 2900.3,1.,2.281e-10,1.5180,0.20/ DATA(CH(I,74,38),I=1,5)/ 3022.3,1.,1.927e-10,1.5180,0.20/ DATA(CH(I,74,37),I=1,5)/ 3145.9,1.,1.628e-10,1.5180,0.20/ DATA(CH(I,74,36),I=1,5)/ 3271.0,1.,1.375e-10,1.5180,0.20/ DATA(CH(I,74,35),I=1,5)/ 3397.7,1.,1.162e-10,1.5180,0.20/ DATA(CH(I,74,34),I=1,5)/ 3525.8,1.,9.817e-11,1.5180,0.20/ DATA(CH(I,74,33),I=1,5)/ 3655.5,1.,8.294e-11,1.5180,0.20/ DATA(CH(I,74,32),I=1,5)/ 3786.6,1.,7.007e-11,1.5180,0.20/ DATA(CH(I,74,31),I=1,5)/ 3919.2,1.,5.920e-11,1.5180,0.20/ DATA(CH(I,74,30),I=1,5)/ 4053.2,1.,5.001e-11,1.5180,0.20/ DATA(CH(I,74,29),I=1,5)/ 4188.7,1.,4.225e-11,1.5180,0.20/ DATA(CH(I,74,28),I=1,5)/ 4325.5,1.,3.570e-11,1.5180,0.20/ DATA(CH(I,74,27),I=1,5)/ 4463.7,1.,3.016e-11,1.5180,0.20/ DATA(CH(I,74,26),I=1,5)/ 4603.3,1.,2.548e-11,1.5180,0.20/ DATA(CH(I,74,25),I=1,5)/ 4744.3,1.,2.153e-11,1.5180,0.20/ DATA(CH(I,74,24),I=1,5)/ 4886.5,1.,1.819e-11,1.5180,0.20/ DATA(CH(I,74,23),I=1,5)/ 5030.1,1.,1.536e-11,1.5180,0.20/ DATA(CH(I,74,22),I=1,5)/ 5175.0,1.,1.298e-11,1.5180,0.20/ DATA(CH(I,74,21),I=1,5)/ 5321.2,1.,1.097e-11,1.5180,0.20/ DATA(CH(I,74,20),I=1,5)/ 5468.7,1.,9.265e-12,1.5180,0.20/ DATA(CH(I,74,19),I=1,5)/ 5617.5,1.,7.827e-12,1.5180,0.20/ DATA(CH(I,74,18),I=1,5)/ 5767.5,1.,6.613e-12,1.5180,0.20/ DATA(CH(I,74,17),I=1,5)/ 5918.7,1.,5.587e-12,1.5180,0.20/ DATA(CH(I,74,16),I=1,5)/ 6071.2,1.,4.720e-12,1.5180,0.20/ DATA(CH(I,74,15),I=1,5)/ 6224.9,1.,3.988e-12,1.5180,0.20/ DATA(CH(I,74,14),I=1,5)/ 6379.8,1.,3.369e-12,1.5180,0.20/ DATA(CH(I,74,13),I=1,5)/ 6535.9,1.,2.846e-12,1.5180,0.20/ DATA(CH(I,74,12),I=1,5)/ 6693.3,1.,2.405e-12,1.5180,0.20/ DATA(CH(I,74,11),I=1,5)/ 6851.7,1.,2.031e-12,1.5180,0.20/ DATA(CH(I,74,10),I=1,5)/15527.2,1.,1.716e-12,1.5180,0.20/ DATA(CH(I,74, 9),I=1,5)/15990.0,1.,1.450e-12,1.5180,0.20/ DATA(CH(I,74, 8),I=1,5)/16452.7,1.,1.225e-12,1.5180,0.20/ DATA(CH(I,74, 7),I=1,5)/16915.5,1.,1.035e-12,1.5180,0.20/ DATA(CH(I,74, 6),I=1,5)/17378.3,1.,8.743e-13,1.5180,0.20/ DATA(CH(I,74, 5),I=1,5)/17841.0,1.,7.387e-13,1.5180,0.20/ DATA(CH(I,74, 4),I=1,5)/18303.8,1.,6.241e-13,1.5180,0.20/ DATA(CH(I,74, 3),I=1,5)/18766.5,1.,5.272e-13,1.5180,0.20/ DATA(CH(I,74, 2),I=1,5)/76124.4,1.,4.454e-13,1.5180,0.20/ DATA(CH(I,74, 1),I=1,5)/77755.6,1.,3.763e-13,1.5180,0.20/ DATA(CH(I,75,75),I=1,5)/ 7.9,1.,8.337d-08,1.5350,0.20/ DATA(CH(I,75,74),I=1,5)/ 16.0,1.,7.056e-08,1.5350,0.20/ DATA(CH(I,75,73),I=1,5)/ 44.1,1.,5.972e-08,1.5350,0.20/ DATA(CH(I,75,72),I=1,5)/ 79.9,1.,5.054e-08,1.5350,0.20/ DATA(CH(I,75,71),I=1,5)/ 121.8,1.,4.277e-08,1.5350,0.20/ DATA(CH(I,75,70),I=1,5)/ 168.9,1.,3.620e-08,1.5350,0.20/ DATA(CH(I,75,69),I=1,5)/ 220.6,1.,3.064e-08,1.5350,0.20/ DATA(CH(I,75,68),I=1,5)/ 276.5,1.,2.593e-08,1.5350,0.20/ DATA(CH(I,75,67),I=1,5)/ 336.2,1.,2.195e-08,1.5350,0.20/ DATA(CH(I,75,66),I=1,5)/ 399.4,1.,1.857e-08,1.5350,0.20/ DATA(CH(I,75,65),I=1,5)/ 466.1,1.,1.572e-08,1.5350,0.20/ DATA(CH(I,75,64),I=1,5)/ 535.9,1.,1.330e-08,1.5350,0.20/ DATA(CH(I,75,63),I=1,5)/ 608.7,1.,1.126e-08,1.5350,0.20/ DATA(CH(I,75,62),I=1,5)/ 684.4,1.,9.529e-09,1.5350,0.20/ DATA(CH(I,75,61),I=1,5)/ 762.8,1.,8.065e-09,1.5350,0.20/ DATA(CH(I,75,60),I=1,5)/ 843.9,1.,6.826e-09,1.5350,0.20/ DATA(CH(I,75,59),I=1,5)/ 927.6,1.,5.777e-09,1.5350,0.20/ DATA(CH(I,75,58),I=1,5)/ 1013.7,1.,4.889e-09,1.5350,0.20/ DATA(CH(I,75,57),I=1,5)/ 1102.2,1.,4.138e-09,1.5350,0.20/ DATA(CH(I,75,56),I=1,5)/ 1193.0,1.,3.502e-09,1.5350,0.20/ DATA(CH(I,75,55),I=1,5)/ 1286.1,1.,2.964e-09,1.5350,0.20/ DATA(CH(I,75,54),I=1,5)/ 1381.3,1.,2.508e-09,1.5350,0.20/ DATA(CH(I,75,53),I=1,5)/ 1478.7,1.,2.123e-09,1.5350,0.20/ DATA(CH(I,75,52),I=1,5)/ 1578.2,1.,1.797e-09,1.5350,0.20/ DATA(CH(I,75,51),I=1,5)/ 1679.6,1.,1.521e-09,1.5350,0.20/ DATA(CH(I,75,50),I=1,5)/ 1783.1,1.,1.287e-09,1.5350,0.20/ DATA(CH(I,75,49),I=1,5)/ 1888.5,1.,1.089e-09,1.5350,0.20/ DATA(CH(I,75,48),I=1,5)/ 1995.8,1.,9.218e-10,1.5350,0.20/ DATA(CH(I,75,47),I=1,5)/ 2105.0,1.,7.802e-10,1.5350,0.20/ DATA(CH(I,75,46),I=1,5)/ 2216.0,1.,6.603e-10,1.5350,0.20/ DATA(CH(I,75,45),I=1,5)/ 2328.8,1.,5.588e-10,1.5350,0.20/ DATA(CH(I,75,44),I=1,5)/ 2443.3,1.,4.730e-10,1.5350,0.20/ DATA(CH(I,75,43),I=1,5)/ 2559.6,1.,4.003e-10,1.5350,0.20/ DATA(CH(I,75,42),I=1,5)/ 2677.5,1.,3.388e-10,1.5350,0.20/ DATA(CH(I,75,41),I=1,5)/ 2797.2,1.,2.867e-10,1.5350,0.20/ DATA(CH(I,75,40),I=1,5)/ 2918.5,1.,2.427e-10,1.5350,0.20/ DATA(CH(I,75,39),I=1,5)/ 3041.4,1.,2.054e-10,1.5350,0.20/ DATA(CH(I,75,38),I=1,5)/ 3165.9,1.,1.738e-10,1.5350,0.20/ DATA(CH(I,75,37),I=1,5)/ 3292.0,1.,1.471e-10,1.5350,0.20/ DATA(CH(I,75,36),I=1,5)/ 3419.6,1.,1.245e-10,1.5350,0.20/ DATA(CH(I,75,35),I=1,5)/ 3548.8,1.,1.054e-10,1.5350,0.20/ DATA(CH(I,75,34),I=1,5)/ 3679.4,1.,8.918e-11,1.5350,0.20/ DATA(CH(I,75,33),I=1,5)/ 3811.6,1.,7.547e-11,1.5350,0.20/ DATA(CH(I,75,32),I=1,5)/ 3945.2,1.,6.388e-11,1.5350,0.20/ DATA(CH(I,75,31),I=1,5)/ 4080.3,1.,5.406e-11,1.5350,0.20/ DATA(CH(I,75,30),I=1,5)/ 4216.8,1.,4.575e-11,1.5350,0.20/ DATA(CH(I,75,29),I=1,5)/ 4354.7,1.,3.872e-11,1.5350,0.20/ DATA(CH(I,75,28),I=1,5)/ 4494.0,1.,3.277e-11,1.5350,0.20/ DATA(CH(I,75,27),I=1,5)/ 4634.7,1.,2.774e-11,1.5350,0.20/ DATA(CH(I,75,26),I=1,5)/ 4776.8,1.,2.347e-11,1.5350,0.20/ DATA(CH(I,75,25),I=1,5)/ 4920.2,1.,1.987e-11,1.5350,0.20/ DATA(CH(I,75,24),I=1,5)/ 5065.0,1.,1.681e-11,1.5350,0.20/ DATA(CH(I,75,23),I=1,5)/ 5211.1,1.,1.423e-11,1.5350,0.20/ DATA(CH(I,75,22),I=1,5)/ 5358.5,1.,1.204e-11,1.5350,0.20/ DATA(CH(I,75,21),I=1,5)/ 5507.2,1.,1.019e-11,1.5350,0.20/ DATA(CH(I,75,20),I=1,5)/ 5657.2,1.,8.627e-12,1.5350,0.20/ DATA(CH(I,75,19),I=1,5)/ 5808.4,1.,7.301e-12,1.5350,0.20/ DATA(CH(I,75,18),I=1,5)/ 5960.9,1.,6.179e-12,1.5350,0.20/ DATA(CH(I,75,17),I=1,5)/ 6114.7,1.,5.230e-12,1.5350,0.20/ DATA(CH(I,75,16),I=1,5)/ 6269.7,1.,4.426e-12,1.5350,0.20/ DATA(CH(I,75,15),I=1,5)/ 6425.9,1.,3.746e-12,1.5350,0.20/ DATA(CH(I,75,14),I=1,5)/ 6583.3,1.,3.170e-12,1.5350,0.20/ DATA(CH(I,75,13),I=1,5)/ 6742.0,1.,2.683e-12,1.5350,0.20/ DATA(CH(I,75,12),I=1,5)/ 6901.8,1.,2.271e-12,1.5350,0.20/ DATA(CH(I,75,11),I=1,5)/ 7062.8,1.,1.922e-12,1.5350,0.20/ DATA(CH(I,75,10),I=1,5)/15992.6,1.,1.627e-12,1.5350,0.20/ DATA(CH(I,75, 9),I=1,5)/16464.8,1.,1.377e-12,1.5350,0.20/ DATA(CH(I,75, 8),I=1,5)/16937.0,1.,1.165e-12,1.5350,0.20/ DATA(CH(I,75, 7),I=1,5)/17409.2,1.,9.861e-13,1.5350,0.20/ DATA(CH(I,75, 6),I=1,5)/17881.3,1.,8.345e-13,1.5350,0.20/ DATA(CH(I,75, 5),I=1,5)/18353.5,1.,7.063e-13,1.5350,0.20/ DATA(CH(I,75, 4),I=1,5)/18825.7,1.,5.978e-13,1.5350,0.20/ DATA(CH(I,75, 3),I=1,5)/19297.9,1.,5.059e-13,1.5350,0.20/ DATA(CH(I,75, 2),I=1,5)/78241.4,1.,4.282e-13,1.5350,0.20/ DATA(CH(I,75, 1),I=1,5)/79903.7,1.,3.624e-13,1.5350,0.20/ DATA(CH(I,76,76),I=1,5)/ 8.7,1.,8.337d-08,1.5520,0.20/ DATA(CH(I,76,75),I=1,5)/ 17.0,1.,7.068e-08,1.5520,0.20/ DATA(CH(I,76,74),I=1,5)/ 46.5,1.,5.992e-08,1.5520,0.20/ DATA(CH(I,76,73),I=1,5)/ 83.8,1.,5.080e-08,1.5520,0.20/ DATA(CH(I,76,72),I=1,5)/ 127.2,1.,4.307e-08,1.5520,0.20/ DATA(CH(I,76,71),I=1,5)/ 175.8,1.,3.651e-08,1.5520,0.20/ DATA(CH(I,76,70),I=1,5)/ 229.1,1.,3.096e-08,1.5520,0.20/ DATA(CH(I,76,69),I=1,5)/ 286.5,1.,2.625e-08,1.5520,0.20/ DATA(CH(I,76,68),I=1,5)/ 347.8,1.,2.225e-08,1.5520,0.20/ DATA(CH(I,76,67),I=1,5)/ 412.6,1.,1.886e-08,1.5520,0.20/ DATA(CH(I,76,66),I=1,5)/ 480.8,1.,1.599e-08,1.5520,0.20/ DATA(CH(I,76,65),I=1,5)/ 552.2,1.,1.356e-08,1.5520,0.20/ DATA(CH(I,76,64),I=1,5)/ 626.5,1.,1.150e-08,1.5520,0.20/ DATA(CH(I,76,63),I=1,5)/ 703.7,1.,9.745e-09,1.5520,0.20/ DATA(CH(I,76,62),I=1,5)/ 783.6,1.,8.262e-09,1.5520,0.20/ DATA(CH(I,76,61),I=1,5)/ 866.1,1.,7.005e-09,1.5520,0.20/ DATA(CH(I,76,60),I=1,5)/ 951.2,1.,5.939e-09,1.5520,0.20/ DATA(CH(I,76,59),I=1,5)/ 1038.7,1.,5.035e-09,1.5520,0.20/ DATA(CH(I,76,58),I=1,5)/ 1128.6,1.,4.268e-09,1.5520,0.20/ DATA(CH(I,76,57),I=1,5)/ 1220.7,1.,3.619e-09,1.5520,0.20/ DATA(CH(I,76,56),I=1,5)/ 1315.0,1.,3.068e-09,1.5520,0.20/ DATA(CH(I,76,55),I=1,5)/ 1411.6,1.,2.601e-09,1.5520,0.20/ DATA(CH(I,76,54),I=1,5)/ 1510.2,1.,2.205e-09,1.5520,0.20/ DATA(CH(I,76,53),I=1,5)/ 1610.8,1.,1.870e-09,1.5520,0.20/ DATA(CH(I,76,52),I=1,5)/ 1713.5,1.,1.585e-09,1.5520,0.20/ DATA(CH(I,76,51),I=1,5)/ 1818.1,1.,1.344e-09,1.5520,0.20/ DATA(CH(I,76,50),I=1,5)/ 1924.6,1.,1.139e-09,1.5520,0.20/ DATA(CH(I,76,49),I=1,5)/ 2032.9,1.,9.658e-10,1.5520,0.20/ DATA(CH(I,76,48),I=1,5)/ 2143.1,1.,8.188e-10,1.5520,0.20/ DATA(CH(I,76,47),I=1,5)/ 2255.1,1.,6.942e-10,1.5520,0.20/ DATA(CH(I,76,46),I=1,5)/ 2368.9,1.,5.885e-10,1.5520,0.20/ DATA(CH(I,76,45),I=1,5)/ 2484.4,1.,4.990e-10,1.5520,0.20/ DATA(CH(I,76,44),I=1,5)/ 2601.5,1.,4.230e-10,1.5520,0.20/ DATA(CH(I,76,43),I=1,5)/ 2720.4,1.,3.586e-10,1.5520,0.20/ DATA(CH(I,76,42),I=1,5)/ 2840.8,1.,3.041e-10,1.5520,0.20/ DATA(CH(I,76,41),I=1,5)/ 2962.9,1.,2.578e-10,1.5520,0.20/ DATA(CH(I,76,40),I=1,5)/ 3086.6,1.,2.185e-10,1.5520,0.20/ DATA(CH(I,76,39),I=1,5)/ 3211.8,1.,1.853e-10,1.5520,0.20/ DATA(CH(I,76,38),I=1,5)/ 3338.6,1.,1.571e-10,1.5520,0.20/ DATA(CH(I,76,37),I=1,5)/ 3466.9,1.,1.332e-10,1.5520,0.20/ DATA(CH(I,76,36),I=1,5)/ 3596.6,1.,1.129e-10,1.5520,0.20/ DATA(CH(I,76,35),I=1,5)/ 3727.9,1.,9.572e-11,1.5520,0.20/ DATA(CH(I,76,34),I=1,5)/ 3860.6,1.,8.115e-11,1.5520,0.20/ DATA(CH(I,76,33),I=1,5)/ 3994.7,1.,6.880e-11,1.5520,0.20/ DATA(CH(I,76,32),I=1,5)/ 4130.3,1.,5.833e-11,1.5520,0.20/ DATA(CH(I,76,31),I=1,5)/ 4267.2,1.,4.945e-11,1.5520,0.20/ DATA(CH(I,76,30),I=1,5)/ 4405.6,1.,4.192e-11,1.5520,0.20/ DATA(CH(I,76,29),I=1,5)/ 4545.3,1.,3.554e-11,1.5520,0.20/ DATA(CH(I,76,28),I=1,5)/ 4686.3,1.,3.013e-11,1.5520,0.20/ DATA(CH(I,76,27),I=1,5)/ 4828.7,1.,2.555e-11,1.5520,0.20/ DATA(CH(I,76,26),I=1,5)/ 4972.4,1.,2.166e-11,1.5520,0.20/ DATA(CH(I,76,25),I=1,5)/ 5117.4,1.,1.836e-11,1.5520,0.20/ DATA(CH(I,76,24),I=1,5)/ 5263.7,1.,1.557e-11,1.5520,0.20/ DATA(CH(I,76,23),I=1,5)/ 5411.2,1.,1.320e-11,1.5520,0.20/ DATA(CH(I,76,22),I=1,5)/ 5560.1,1.,1.119e-11,1.5520,0.20/ DATA(CH(I,76,21),I=1,5)/ 5710.1,1.,9.486e-12,1.5520,0.20/ DATA(CH(I,76,20),I=1,5)/ 5861.5,1.,8.042e-12,1.5520,0.20/ DATA(CH(I,76,19),I=1,5)/ 6014.0,1.,6.818e-12,1.5520,0.20/ DATA(CH(I,76,18),I=1,5)/ 6167.8,1.,5.781e-12,1.5520,0.20/ DATA(CH(I,76,17),I=1,5)/ 6322.7,1.,4.901e-12,1.5520,0.20/ DATA(CH(I,76,16),I=1,5)/ 6478.9,1.,4.155e-12,1.5520,0.20/ DATA(CH(I,76,15),I=1,5)/ 6636.2,1.,3.522e-12,1.5520,0.20/ DATA(CH(I,76,14),I=1,5)/ 6794.7,1.,2.986e-12,1.5520,0.20/ DATA(CH(I,76,13),I=1,5)/ 6954.3,1.,2.532e-12,1.5520,0.20/ DATA(CH(I,76,12),I=1,5)/ 7115.1,1.,2.146e-12,1.5520,0.20/ DATA(CH(I,76,11),I=1,5)/ 7277.1,1.,1.820e-12,1.5520,0.20/ DATA(CH(I,76,10),I=1,5)/16464.9,1.,1.543e-12,1.5520,0.20/ DATA(CH(I,76, 9),I=1,5)/16946.6,1.,1.308e-12,1.5520,0.20/ DATA(CH(I,76, 8),I=1,5)/17428.3,1.,1.109e-12,1.5520,0.20/ DATA(CH(I,76, 7),I=1,5)/17909.9,1.,9.401e-13,1.5520,0.20/ DATA(CH(I,76, 6),I=1,5)/18391.6,1.,7.970e-13,1.5520,0.20/ DATA(CH(I,76, 5),I=1,5)/18873.3,1.,6.757e-13,1.5520,0.20/ DATA(CH(I,76, 4),I=1,5)/19355.0,1.,5.729e-13,1.5520,0.20/ DATA(CH(I,76, 3),I=1,5)/19836.7,1.,4.857e-13,1.5520,0.20/ DATA(CH(I,76, 2),I=1,5)/80387.6,1.,4.118e-13,1.5520,0.20/ DATA(CH(I,76, 1),I=1,5)/82081.1,1.,3.491e-13,1.5520,0.20/ DATA(CH(I,77,77),I=1,5)/ 9.1,1.,8.337d-08,1.5690,0.20/ DATA(CH(I,77,76),I=1,5)/ 18.0,1.,7.080e-08,1.5690,0.20/ DATA(CH(I,77,75),I=1,5)/ 48.8,1.,6.012e-08,1.5690,0.20/ DATA(CH(I,77,74),I=1,5)/ 87.5,1.,5.106e-08,1.5690,0.20/ DATA(CH(I,77,73),I=1,5)/ 132.4,1.,4.336e-08,1.5690,0.20/ DATA(CH(I,77,72),I=1,5)/ 182.6,1.,3.682e-08,1.5690,0.20/ DATA(CH(I,77,71),I=1,5)/ 237.4,1.,3.127e-08,1.5690,0.20/ DATA(CH(I,77,70),I=1,5)/ 296.4,1.,2.656e-08,1.5690,0.20/ DATA(CH(I,77,69),I=1,5)/ 359.2,1.,2.255e-08,1.5690,0.20/ DATA(CH(I,77,68),I=1,5)/ 425.6,1.,1.915e-08,1.5690,0.20/ DATA(CH(I,77,67),I=1,5)/ 495.3,1.,1.626e-08,1.5690,0.20/ DATA(CH(I,77,66),I=1,5)/ 568.2,1.,1.381e-08,1.5690,0.20/ DATA(CH(I,77,65),I=1,5)/ 644.0,1.,1.173e-08,1.5690,0.20/ DATA(CH(I,77,64),I=1,5)/ 722.7,1.,9.962e-09,1.5690,0.20/ DATA(CH(I,77,63),I=1,5)/ 804.0,1.,8.460e-09,1.5690,0.20/ DATA(CH(I,77,62),I=1,5)/ 888.0,1.,7.184e-09,1.5690,0.20/ DATA(CH(I,77,61),I=1,5)/ 974.5,1.,6.101e-09,1.5690,0.20/ DATA(CH(I,77,60),I=1,5)/ 1063.3,1.,5.181e-09,1.5690,0.20/ DATA(CH(I,77,59),I=1,5)/ 1154.5,1.,4.400e-09,1.5690,0.20/ DATA(CH(I,77,58),I=1,5)/ 1248.0,1.,3.737e-09,1.5690,0.20/ DATA(CH(I,77,57),I=1,5)/ 1343.6,1.,3.173e-09,1.5690,0.20/ DATA(CH(I,77,56),I=1,5)/ 1441.4,1.,2.695e-09,1.5690,0.20/ DATA(CH(I,77,55),I=1,5)/ 1541.2,1.,2.288e-09,1.5690,0.20/ DATA(CH(I,77,54),I=1,5)/ 1643.1,1.,1.943e-09,1.5690,0.20/ DATA(CH(I,77,53),I=1,5)/ 1746.9,1.,1.650e-09,1.5690,0.20/ DATA(CH(I,77,52),I=1,5)/ 1852.6,1.,1.402e-09,1.5690,0.20/ DATA(CH(I,77,51),I=1,5)/ 1960.3,1.,1.190e-09,1.5690,0.20/ DATA(CH(I,77,50),I=1,5)/ 2069.7,1.,1.011e-09,1.5690,0.20/ DATA(CH(I,77,49),I=1,5)/ 2181.0,1.,8.584e-10,1.5690,0.20/ DATA(CH(I,77,48),I=1,5)/ 2294.0,1.,7.290e-10,1.5690,0.20/ DATA(CH(I,77,47),I=1,5)/ 2408.7,1.,6.191e-10,1.5690,0.20/ DATA(CH(I,77,46),I=1,5)/ 2525.1,1.,5.257e-10,1.5690,0.20/ DATA(CH(I,77,45),I=1,5)/ 2643.2,1.,4.465e-10,1.5690,0.20/ DATA(CH(I,77,44),I=1,5)/ 2763.0,1.,3.792e-10,1.5690,0.20/ DATA(CH(I,77,43),I=1,5)/ 2884.3,1.,3.220e-10,1.5690,0.20/ DATA(CH(I,77,42),I=1,5)/ 3007.2,1.,2.734e-10,1.5690,0.20/ DATA(CH(I,77,41),I=1,5)/ 3131.7,1.,2.322e-10,1.5690,0.20/ DATA(CH(I,77,40),I=1,5)/ 3257.7,1.,1.972e-10,1.5690,0.20/ DATA(CH(I,77,39),I=1,5)/ 3385.2,1.,1.675e-10,1.5690,0.20/ DATA(CH(I,77,38),I=1,5)/ 3514.1,1.,1.422e-10,1.5690,0.20/ DATA(CH(I,77,37),I=1,5)/ 3644.6,1.,1.208e-10,1.5690,0.20/ DATA(CH(I,77,36),I=1,5)/ 3776.5,1.,1.026e-10,1.5690,0.20/ DATA(CH(I,77,35),I=1,5)/ 3909.8,1.,8.711e-11,1.5690,0.20/ DATA(CH(I,77,34),I=1,5)/ 4044.5,1.,7.397e-11,1.5690,0.20/ DATA(CH(I,77,33),I=1,5)/ 4180.6,1.,6.282e-11,1.5690,0.20/ DATA(CH(I,77,32),I=1,5)/ 4318.1,1.,5.335e-11,1.5690,0.20/ DATA(CH(I,77,31),I=1,5)/ 4456.9,1.,4.531e-11,1.5690,0.20/ DATA(CH(I,77,30),I=1,5)/ 4597.0,1.,3.847e-11,1.5690,0.20/ DATA(CH(I,77,29),I=1,5)/ 4738.5,1.,3.267e-11,1.5690,0.20/ DATA(CH(I,77,28),I=1,5)/ 4881.3,1.,2.775e-11,1.5690,0.20/ DATA(CH(I,77,27),I=1,5)/ 5025.3,1.,2.356e-11,1.5690,0.20/ DATA(CH(I,77,26),I=1,5)/ 5170.6,1.,2.001e-11,1.5690,0.20/ DATA(CH(I,77,25),I=1,5)/ 5317.2,1.,1.699e-11,1.5690,0.20/ DATA(CH(I,77,24),I=1,5)/ 5465.1,1.,1.443e-11,1.5690,0.20/ DATA(CH(I,77,23),I=1,5)/ 5614.1,1.,1.226e-11,1.5690,0.20/ DATA(CH(I,77,22),I=1,5)/ 5764.4,1.,1.041e-11,1.5690,0.20/ DATA(CH(I,77,21),I=1,5)/ 5915.9,1.,8.839e-12,1.5690,0.20/ DATA(CH(I,77,20),I=1,5)/ 6068.6,1.,7.506e-12,1.5690,0.20/ DATA(CH(I,77,19),I=1,5)/ 6222.4,1.,6.375e-12,1.5690,0.20/ DATA(CH(I,77,18),I=1,5)/ 6377.4,1.,5.413e-12,1.5690,0.20/ DATA(CH(I,77,17),I=1,5)/ 6533.6,1.,4.597e-12,1.5690,0.20/ DATA(CH(I,77,16),I=1,5)/ 6691.0,1.,3.904e-12,1.5690,0.20/ DATA(CH(I,77,15),I=1,5)/ 6849.5,1.,3.316e-12,1.5690,0.20/ DATA(CH(I,77,14),I=1,5)/ 7009.1,1.,2.816e-12,1.5690,0.20/ DATA(CH(I,77,13),I=1,5)/ 7169.8,1.,2.391e-12,1.5690,0.20/ DATA(CH(I,77,12),I=1,5)/ 7331.6,1.,2.031e-12,1.5690,0.20/ DATA(CH(I,77,11),I=1,5)/ 7494.5,1.,1.724e-12,1.5690,0.20/ DATA(CH(I,77,10),I=1,5)/16944.0,1.,1.464e-12,1.5690,0.20/ DATA(CH(I,77, 9),I=1,5)/17435.3,1.,1.244e-12,1.5690,0.20/ DATA(CH(I,77, 8),I=1,5)/17926.6,1.,1.056e-12,1.5690,0.20/ DATA(CH(I,77, 7),I=1,5)/18417.8,1.,8.969e-13,1.5690,0.20/ DATA(CH(I,77, 6),I=1,5)/18909.1,1.,7.617e-13,1.5690,0.20/ DATA(CH(I,77, 5),I=1,5)/19400.4,1.,6.468e-13,1.5690,0.20/ DATA(CH(I,77, 4),I=1,5)/19891.7,1.,5.493e-13,1.5690,0.20/ DATA(CH(I,77, 3),I=1,5)/20382.9,1.,4.665e-13,1.5690,0.20/ DATA(CH(I,77, 2),I=1,5)/82562.9,1.,3.962e-13,1.5690,0.20/ DATA(CH(I,77, 1),I=1,5)/84288.0,1.,3.364e-13,1.5690,0.20/ DATA(CH(I,78,78),I=1,5)/ 9.0,1.,8.337d-08,1.5860,0.20/ DATA(CH(I,78,77),I=1,5)/ 18.6,1.,7.092d-08,1.5860,0.20/ DATA(CH(I,78,76),I=1,5)/ 50.2,1.,6.032e-08,1.5860,0.20/ DATA(CH(I,78,75),I=1,5)/ 89.8,1.,5.131e-08,1.5860,0.20/ DATA(CH(I,78,74),I=1,5)/ 135.7,1.,4.365e-08,1.5860,0.20/ DATA(CH(I,78,73),I=1,5)/ 186.9,1.,3.713e-08,1.5860,0.20/ DATA(CH(I,78,72),I=1,5)/ 242.7,1.,3.158e-08,1.5860,0.20/ DATA(CH(I,78,71),I=1,5)/ 302.7,1.,2.686e-08,1.5860,0.20/ DATA(CH(I,78,70),I=1,5)/ 366.6,1.,2.285e-08,1.5860,0.20/ DATA(CH(I,78,69),I=1,5)/ 434.0,1.,1.944e-08,1.5860,0.20/ DATA(CH(I,78,68),I=1,5)/ 504.8,1.,1.654e-08,1.5860,0.20/ DATA(CH(I,78,67),I=1,5)/ 578.7,1.,1.407e-08,1.5860,0.20/ DATA(CH(I,78,66),I=1,5)/ 655.6,1.,1.196e-08,1.5860,0.20/ DATA(CH(I,78,65),I=1,5)/ 735.3,1.,1.018e-08,1.5860,0.20/ DATA(CH(I,78,64),I=1,5)/ 817.7,1.,8.657e-09,1.5860,0.20/ DATA(CH(I,78,63),I=1,5)/ 902.7,1.,7.364e-09,1.5860,0.20/ DATA(CH(I,78,62),I=1,5)/ 990.2,1.,6.264e-09,1.5860,0.20/ DATA(CH(I,78,61),I=1,5)/ 1080.1,1.,5.328e-09,1.5860,0.20/ DATA(CH(I,78,60),I=1,5)/ 1172.3,1.,4.532e-09,1.5860,0.20/ DATA(CH(I,78,59),I=1,5)/ 1266.8,1.,3.855e-09,1.5860,0.20/ DATA(CH(I,78,58),I=1,5)/ 1363.5,1.,3.280e-09,1.5860,0.20/ DATA(CH(I,78,57),I=1,5)/ 1462.3,1.,2.790e-09,1.5860,0.20/ DATA(CH(I,78,56),I=1,5)/ 1563.1,1.,2.373e-09,1.5860,0.20/ DATA(CH(I,78,55),I=1,5)/ 1666.0,1.,2.019e-09,1.5860,0.20/ DATA(CH(I,78,54),I=1,5)/ 1770.8,1.,1.717e-09,1.5860,0.20/ DATA(CH(I,78,53),I=1,5)/ 1877.5,1.,1.461e-09,1.5860,0.20/ DATA(CH(I,78,52),I=1,5)/ 1986.1,1.,1.242e-09,1.5860,0.20/ DATA(CH(I,78,51),I=1,5)/ 2096.5,1.,1.057e-09,1.5860,0.20/ DATA(CH(I,78,50),I=1,5)/ 2208.7,1.,8.990e-10,1.5860,0.20/ DATA(CH(I,78,49),I=1,5)/ 2322.7,1.,7.647e-10,1.5860,0.20/ DATA(CH(I,78,48),I=1,5)/ 2438.3,1.,6.505e-10,1.5860,0.20/ DATA(CH(I,78,47),I=1,5)/ 2555.7,1.,5.533e-10,1.5860,0.20/ DATA(CH(I,78,46),I=1,5)/ 2674.7,1.,4.707e-10,1.5860,0.20/ DATA(CH(I,78,45),I=1,5)/ 2795.3,1.,4.004e-10,1.5860,0.20/ DATA(CH(I,78,44),I=1,5)/ 2917.6,1.,3.406e-10,1.5860,0.20/ DATA(CH(I,78,43),I=1,5)/ 3041.4,1.,2.897e-10,1.5860,0.20/ DATA(CH(I,78,42),I=1,5)/ 3166.7,1.,2.464e-10,1.5860,0.20/ DATA(CH(I,78,41),I=1,5)/ 3293.6,1.,2.096e-10,1.5860,0.20/ DATA(CH(I,78,40),I=1,5)/ 3421.9,1.,1.783e-10,1.5860,0.20/ DATA(CH(I,78,39),I=1,5)/ 3551.7,1.,1.517e-10,1.5860,0.20/ DATA(CH(I,78,38),I=1,5)/ 3683.0,1.,1.290e-10,1.5860,0.20/ DATA(CH(I,78,37),I=1,5)/ 3815.7,1.,1.097e-10,1.5860,0.20/ DATA(CH(I,78,36),I=1,5)/ 3949.9,1.,9.335e-11,1.5860,0.20/ DATA(CH(I,78,35),I=1,5)/ 4085.4,1.,7.941e-11,1.5860,0.20/ DATA(CH(I,78,34),I=1,5)/ 4222.3,1.,6.754e-11,1.5860,0.20/ DATA(CH(I,78,33),I=1,5)/ 4360.5,1.,5.746e-11,1.5860,0.20/ DATA(CH(I,78,32),I=1,5)/ 4500.1,1.,4.887e-11,1.5860,0.20/ DATA(CH(I,78,31),I=1,5)/ 4641.0,1.,4.157e-11,1.5860,0.20/ DATA(CH(I,78,30),I=1,5)/ 4783.2,1.,3.536e-11,1.5860,0.20/ DATA(CH(I,78,29),I=1,5)/ 4926.7,1.,3.008e-11,1.5860,0.20/ DATA(CH(I,78,28),I=1,5)/ 5071.5,1.,2.559e-11,1.5860,0.20/ DATA(CH(I,78,27),I=1,5)/ 5217.5,1.,2.177e-11,1.5860,0.20/ DATA(CH(I,78,26),I=1,5)/ 5364.8,1.,1.851e-11,1.5860,0.20/ DATA(CH(I,78,25),I=1,5)/ 5513.3,1.,1.575e-11,1.5860,0.20/ DATA(CH(I,78,24),I=1,5)/ 5663.0,1.,1.340e-11,1.5860,0.20/ DATA(CH(I,78,23),I=1,5)/ 5814.0,1.,1.140e-11,1.5860,0.20/ DATA(CH(I,78,22),I=1,5)/ 5966.1,1.,9.693e-12,1.5860,0.20/ DATA(CH(I,78,21),I=1,5)/ 6119.4,1.,8.246e-12,1.5860,0.20/ DATA(CH(I,78,20),I=1,5)/ 6273.9,1.,7.014e-12,1.5860,0.20/ DATA(CH(I,78,19),I=1,5)/ 6429.6,1.,5.966e-12,1.5860,0.20/ DATA(CH(I,78,18),I=1,5)/ 6586.4,1.,5.075e-12,1.5860,0.20/ DATA(CH(I,78,17),I=1,5)/ 6744.3,1.,4.317e-12,1.5860,0.20/ DATA(CH(I,78,16),I=1,5)/ 6903.4,1.,3.672e-12,1.5860,0.20/ DATA(CH(I,78,15),I=1,5)/ 7063.5,1.,3.124e-12,1.5860,0.20/ DATA(CH(I,78,14),I=1,5)/ 7224.8,1.,2.657e-12,1.5860,0.20/ DATA(CH(I,78,13),I=1,5)/ 7387.2,1.,2.260e-12,1.5860,0.20/ DATA(CH(I,78,12),I=1,5)/ 7550.7,1.,1.923e-12,1.5860,0.20/ DATA(CH(I,78,11),I=1,5)/ 7715.2,1.,1.635e-12,1.5860,0.20/ DATA(CH(I,78,10),I=1,5)/17430.0,1.,1.391e-12,1.5860,0.20/ DATA(CH(I,78, 9),I=1,5)/17931.0,1.,1.183e-12,1.5860,0.20/ DATA(CH(I,78, 8),I=1,5)/18431.9,1.,1.007e-12,1.5860,0.20/ DATA(CH(I,78, 7),I=1,5)/18932.9,1.,8.562e-13,1.5860,0.20/ DATA(CH(I,78, 6),I=1,5)/19433.8,1.,7.283e-13,1.5860,0.20/ DATA(CH(I,78, 5),I=1,5)/19934.8,1.,6.195e-13,1.5860,0.20/ DATA(CH(I,78, 4),I=1,5)/20435.7,1.,5.270e-13,1.5860,0.20/ DATA(CH(I,78, 3),I=1,5)/20936.7,1.,4.483e-13,1.5860,0.20/ DATA(CH(I,78, 2),I=1,5)/84767.5,1.,3.813e-13,1.5860,0.20/ DATA(CH(I,78, 1),I=1,5)/86524.4,1.,3.244e-13,1.5860,0.20/ DATA(CH(I,79,79),I=1,5)/ 9.2,1.,8.337d-08,1.6030,0.20/ DATA(CH(I,79,78),I=1,5)/ 20.5,1.,7.103d-08,1.6030,0.20/ DATA(CH(I,79,77),I=1,5)/ 34.0,1.,6.052d-08,1.6030,0.20/ DATA(CH(I,79,76),I=1,5)/ 43.0,1.,5.156d-08,1.6030,0.20/ DATA(CH(I,79,75),I=1,5)/ 69.6,1.,4.393e-08,1.6030,0.20/ DATA(CH(I,79,74),I=1,5)/ 101.0,1.,3.743e-08,1.6030,0.20/ DATA(CH(I,79,73),I=1,5)/ 137.0,1.,3.189e-08,1.6030,0.20/ DATA(CH(I,79,72),I=1,5)/ 177.3,1.,2.717e-08,1.6030,0.20/ DATA(CH(I,79,71),I=1,5)/ 221.7,1.,2.315e-08,1.6030,0.20/ DATA(CH(I,79,70),I=1,5)/ 269.9,1.,1.972e-08,1.6030,0.20/ DATA(CH(I,79,69),I=1,5)/ 321.9,1.,1.680e-08,1.6030,0.20/ DATA(CH(I,79,68),I=1,5)/ 377.5,1.,1.432e-08,1.6030,0.20/ DATA(CH(I,79,67),I=1,5)/ 436.7,1.,1.220e-08,1.6030,0.20/ DATA(CH(I,79,66),I=1,5)/ 499.2,1.,1.039e-08,1.6030,0.20/ DATA(CH(I,79,65),I=1,5)/ 565.1,1.,8.854e-09,1.6030,0.20/ DATA(CH(I,79,64),I=1,5)/ 634.2,1.,7.544e-09,1.6030,0.20/ DATA(CH(I,79,63),I=1,5)/ 706.4,1.,6.428e-09,1.6030,0.20/ DATA(CH(I,79,62),I=1,5)/ 781.8,1.,5.476e-09,1.6030,0.20/ DATA(CH(I,79,61),I=1,5)/ 860.2,1.,4.666e-09,1.6030,0.20/ DATA(CH(I,79,60),I=1,5)/ 941.6,1.,3.975e-09,1.6030,0.20/ DATA(CH(I,79,59),I=1,5)/ 1025.9,1.,3.387e-09,1.6030,0.20/ DATA(CH(I,79,58),I=1,5)/ 1113.1,1.,2.886e-09,1.6030,0.20/ DATA(CH(I,79,57),I=1,5)/ 1203.1,1.,2.459e-09,1.6030,0.20/ DATA(CH(I,79,56),I=1,5)/ 1296.0,1.,2.095e-09,1.6030,0.20/ DATA(CH(I,79,55),I=1,5)/ 1391.5,1.,1.785e-09,1.6030,0.20/ DATA(CH(I,79,54),I=1,5)/ 1489.8,1.,1.521e-09,1.6030,0.20/ DATA(CH(I,79,53),I=1,5)/ 1590.8,1.,1.296e-09,1.6030,0.20/ DATA(CH(I,79,52),I=1,5)/ 1694.5,1.,1.104e-09,1.6030,0.20/ DATA(CH(I,79,51),I=1,5)/ 1800.7,1.,9.404e-10,1.6030,0.20/ DATA(CH(I,79,50),I=1,5)/ 1909.5,1.,8.012e-10,1.6030,0.20/ DATA(CH(I,79,49),I=1,5)/ 2020.9,1.,6.827e-10,1.6030,0.20/ DATA(CH(I,79,48),I=1,5)/ 2134.8,1.,5.816e-10,1.6030,0.20/ DATA(CH(I,79,47),I=1,5)/ 2251.2,1.,4.955e-10,1.6030,0.20/ DATA(CH(I,79,46),I=1,5)/ 2370.0,1.,4.222e-10,1.6030,0.20/ DATA(CH(I,79,45),I=1,5)/ 2491.3,1.,3.597e-10,1.6030,0.20/ DATA(CH(I,79,44),I=1,5)/ 2615.0,1.,3.065e-10,1.6030,0.20/ DATA(CH(I,79,43),I=1,5)/ 2741.2,1.,2.611e-10,1.6030,0.20/ DATA(CH(I,79,42),I=1,5)/ 2869.7,1.,2.225e-10,1.6030,0.20/ DATA(CH(I,79,41),I=1,5)/ 3000.5,1.,1.896e-10,1.6030,0.20/ DATA(CH(I,79,40),I=1,5)/ 3133.7,1.,1.615e-10,1.6030,0.20/ DATA(CH(I,79,39),I=1,5)/ 3269.2,1.,1.376e-10,1.6030,0.20/ DATA(CH(I,79,38),I=1,5)/ 3407.0,1.,1.172e-10,1.6030,0.20/ DATA(CH(I,79,37),I=1,5)/ 3547.1,1.,9.988e-11,1.6030,0.20/ DATA(CH(I,79,36),I=1,5)/ 3689.5,1.,8.510e-11,1.6030,0.20/ DATA(CH(I,79,35),I=1,5)/ 3834.0,1.,7.250e-11,1.6030,0.20/ DATA(CH(I,79,34),I=1,5)/ 3980.8,1.,6.177e-11,1.6030,0.20/ DATA(CH(I,79,33),I=1,5)/ 4129.9,1.,5.263e-11,1.6030,0.20/ DATA(CH(I,79,32),I=1,5)/ 4281.1,1.,4.484e-11,1.6030,0.20/ DATA(CH(I,79,31),I=1,5)/ 4434.5,1.,3.821e-11,1.6030,0.20/ DATA(CH(I,79,30),I=1,5)/ 4590.0,1.,3.255e-11,1.6030,0.20/ DATA(CH(I,79,29),I=1,5)/ 4747.7,1.,2.773e-11,1.6030,0.20/ DATA(CH(I,79,28),I=1,5)/ 4907.6,1.,2.363e-11,1.6030,0.20/ DATA(CH(I,79,27),I=1,5)/ 5069.5,1.,2.013e-11,1.6030,0.20/ DATA(CH(I,79,26),I=1,5)/ 5233.6,1.,1.715e-11,1.6030,0.20/ DATA(CH(I,79,25),I=1,5)/ 5399.7,1.,1.461e-11,1.6030,0.20/ DATA(CH(I,79,24),I=1,5)/ 5568.0,1.,1.245e-11,1.6030,0.20/ DATA(CH(I,79,23),I=1,5)/ 5738.3,1.,1.061e-11,1.6030,0.20/ DATA(CH(I,79,22),I=1,5)/ 5910.6,1.,9.038e-12,1.6030,0.20/ DATA(CH(I,79,21),I=1,5)/ 6085.0,1.,7.701e-12,1.6030,0.20/ DATA(CH(I,79,20),I=1,5)/ 6261.5,1.,6.561e-12,1.6030,0.20/ DATA(CH(I,79,19),I=1,5)/ 6439.9,1.,5.590e-12,1.6030,0.20/ DATA(CH(I,79,18),I=1,5)/ 6620.4,1.,4.763e-12,1.6030,0.20/ DATA(CH(I,79,17),I=1,5)/ 6802.9,1.,4.058e-12,1.6030,0.20/ DATA(CH(I,79,16),I=1,5)/ 6987.3,1.,3.457e-12,1.6030,0.20/ DATA(CH(I,79,15),I=1,5)/ 7173.8,1.,2.946e-12,1.6030,0.20/ DATA(CH(I,79,14),I=1,5)/ 7362.2,1.,2.510e-12,1.6030,0.20/ DATA(CH(I,79,13),I=1,5)/ 7552.5,1.,2.138e-12,1.6030,0.20/ DATA(CH(I,79,12),I=1,5)/ 7744.9,1.,1.822e-12,1.6030,0.20/ DATA(CH(I,79,11),I=1,5)/ 7939.1,1.,1.552e-12,1.6030,0.20/ DATA(CH(I,79,10),I=1,5)/17922.9,1.,1.322e-12,1.6030,0.20/ DATA(CH(I,79, 9),I=1,5)/18433.6,1.,1.127e-12,1.6030,0.20/ DATA(CH(I,79, 8),I=1,5)/18944.3,1.,9.600e-13,1.6030,0.20/ DATA(CH(I,79, 7),I=1,5)/19455.0,1.,8.179e-13,1.6030,0.20/ DATA(CH(I,79, 6),I=1,5)/19965.7,1.,6.968e-13,1.6030,0.20/ DATA(CH(I,79, 5),I=1,5)/20476.4,1.,5.937e-13,1.6030,0.20/ DATA(CH(I,79, 4),I=1,5)/20987.1,1.,5.058e-13,1.6030,0.20/ DATA(CH(I,79, 3),I=1,5)/21497.8,1.,4.310e-13,1.6030,0.20/ DATA(CH(I,79, 2),I=1,5)/87001.2,1.,3.672e-13,1.6030,0.20/ DATA(CH(I,79, 1),I=1,5)/88790.2,1.,3.128e-13,1.6030,0.20/ DATA(CH(I,80,80),I=1,5)/ 10.4,1.,8.337d-08,1.6200,0.20/ DATA(CH(I,80,79),I=1,5)/ 18.8,1.,7.114d-08,1.6200,0.20/ DATA(CH(I,80,78),I=1,5)/ 34.2,1.,6.071d-08,1.6200,0.20/ DATA(CH(I,80,77),I=1,5)/ 46.0,1.,5.181d-08,1.6200,0.20/ DATA(CH(I,80,76),I=1,5)/ 74.0,1.,4.421e-08,1.6200,0.20/ DATA(CH(I,80,75),I=1,5)/ 107.0,1.,3.772e-08,1.6200,0.20/ DATA(CH(I,80,74),I=1,5)/ 144.5,1.,3.219e-08,1.6200,0.20/ DATA(CH(I,80,73),I=1,5)/ 186.5,1.,2.747e-08,1.6200,0.20/ DATA(CH(I,80,72),I=1,5)/ 232.5,1.,2.344e-08,1.6200,0.20/ DATA(CH(I,80,71),I=1,5)/ 282.4,1.,2.000e-08,1.6200,0.20/ DATA(CH(I,80,70),I=1,5)/ 336.1,1.,1.707e-08,1.6200,0.20/ DATA(CH(I,80,69),I=1,5)/ 393.4,1.,1.457e-08,1.6200,0.20/ DATA(CH(I,80,68),I=1,5)/ 454.2,1.,1.243e-08,1.6200,0.20/ DATA(CH(I,80,67),I=1,5)/ 518.4,1.,1.061e-08,1.6200,0.20/ DATA(CH(I,80,66),I=1,5)/ 585.9,1.,9.052e-09,1.6200,0.20/ DATA(CH(I,80,65),I=1,5)/ 656.6,1.,7.724e-09,1.6200,0.20/ DATA(CH(I,80,64),I=1,5)/ 730.5,1.,6.591e-09,1.6200,0.20/ DATA(CH(I,80,63),I=1,5)/ 807.4,1.,5.625e-09,1.6200,0.20/ DATA(CH(I,80,62),I=1,5)/ 887.3,1.,4.800e-09,1.6200,0.20/ DATA(CH(I,80,61),I=1,5)/ 970.2,1.,4.096e-09,1.6200,0.20/ DATA(CH(I,80,60),I=1,5)/ 1056.0,1.,3.495e-09,1.6200,0.20/ DATA(CH(I,80,59),I=1,5)/ 1144.6,1.,2.983e-09,1.6200,0.20/ DATA(CH(I,80,58),I=1,5)/ 1236.1,1.,2.545e-09,1.6200,0.20/ DATA(CH(I,80,57),I=1,5)/ 1330.2,1.,2.172e-09,1.6200,0.20/ DATA(CH(I,80,56),I=1,5)/ 1427.1,1.,1.853e-09,1.6200,0.20/ DATA(CH(I,80,55),I=1,5)/ 1526.6,1.,1.582e-09,1.6200,0.20/ DATA(CH(I,80,54),I=1,5)/ 1628.8,1.,1.350e-09,1.6200,0.20/ DATA(CH(I,80,53),I=1,5)/ 1733.6,1.,1.152e-09,1.6200,0.20/ DATA(CH(I,80,52),I=1,5)/ 1840.9,1.,9.828e-10,1.6200,0.20/ DATA(CH(I,80,51),I=1,5)/ 1950.8,1.,8.387e-10,1.6200,0.20/ DATA(CH(I,80,50),I=1,5)/ 2063.1,1.,7.157e-10,1.6200,0.20/ DATA(CH(I,80,49),I=1,5)/ 2178.0,1.,6.107e-10,1.6200,0.20/ DATA(CH(I,80,48),I=1,5)/ 2295.2,1.,5.212e-10,1.6200,0.20/ DATA(CH(I,80,47),I=1,5)/ 2414.9,1.,4.447e-10,1.6200,0.20/ DATA(CH(I,80,46),I=1,5)/ 2537.0,1.,3.795e-10,1.6200,0.20/ DATA(CH(I,80,45),I=1,5)/ 2661.4,1.,3.238e-10,1.6200,0.20/ DATA(CH(I,80,44),I=1,5)/ 2788.2,1.,2.764e-10,1.6200,0.20/ DATA(CH(I,80,43),I=1,5)/ 2917.2,1.,2.358e-10,1.6200,0.20/ DATA(CH(I,80,42),I=1,5)/ 3048.6,1.,2.012e-10,1.6200,0.20/ DATA(CH(I,80,41),I=1,5)/ 3182.3,1.,1.717e-10,1.6200,0.20/ DATA(CH(I,80,40),I=1,5)/ 3318.2,1.,1.465e-10,1.6200,0.20/ DATA(CH(I,80,39),I=1,5)/ 3456.3,1.,1.251e-10,1.6200,0.20/ DATA(CH(I,80,38),I=1,5)/ 3596.7,1.,1.067e-10,1.6200,0.20/ DATA(CH(I,80,37),I=1,5)/ 3739.2,1.,9.106e-11,1.6200,0.20/ DATA(CH(I,80,36),I=1,5)/ 3883.9,1.,7.771e-11,1.6200,0.20/ DATA(CH(I,80,35),I=1,5)/ 4030.8,1.,6.631e-11,1.6200,0.20/ DATA(CH(I,80,34),I=1,5)/ 4179.8,1.,5.659e-11,1.6200,0.20/ DATA(CH(I,80,33),I=1,5)/ 4331.0,1.,4.829e-11,1.6200,0.20/ DATA(CH(I,80,32),I=1,5)/ 4484.2,1.,4.121e-11,1.6200,0.20/ DATA(CH(I,80,31),I=1,5)/ 4639.6,1.,3.516e-11,1.6200,0.20/ DATA(CH(I,80,30),I=1,5)/ 4797.0,1.,3.001e-11,1.6200,0.20/ DATA(CH(I,80,29),I=1,5)/ 4956.5,1.,2.560e-11,1.6200,0.20/ DATA(CH(I,80,28),I=1,5)/ 5118.1,1.,2.185e-11,1.6200,0.20/ DATA(CH(I,80,27),I=1,5)/ 5281.7,1.,1.865e-11,1.6200,0.20/ DATA(CH(I,80,26),I=1,5)/ 5447.3,1.,1.591e-11,1.6200,0.20/ DATA(CH(I,80,25),I=1,5)/ 5614.9,1.,1.358e-11,1.6200,0.20/ DATA(CH(I,80,24),I=1,5)/ 5784.5,1.,1.159e-11,1.6200,0.20/ DATA(CH(I,80,23),I=1,5)/ 5956.1,1.,9.887e-12,1.6200,0.20/ DATA(CH(I,80,22),I=1,5)/ 6129.7,1.,8.437e-12,1.6200,0.20/ DATA(CH(I,80,21),I=1,5)/ 6305.3,1.,7.200e-12,1.6200,0.20/ DATA(CH(I,80,20),I=1,5)/ 6482.8,1.,6.144e-12,1.6200,0.20/ DATA(CH(I,80,19),I=1,5)/ 6662.2,1.,5.243e-12,1.6200,0.20/ DATA(CH(I,80,18),I=1,5)/ 6843.6,1.,4.474e-12,1.6200,0.20/ DATA(CH(I,80,17),I=1,5)/ 7026.9,1.,3.818e-12,1.6200,0.20/ DATA(CH(I,80,16),I=1,5)/ 7212.0,1.,3.258e-12,1.6200,0.20/ DATA(CH(I,80,15),I=1,5)/ 7399.1,1.,2.780e-12,1.6200,0.20/ DATA(CH(I,80,14),I=1,5)/ 7588.1,1.,2.372e-12,1.6200,0.20/ DATA(CH(I,80,13),I=1,5)/ 7778.9,1.,2.024e-12,1.6200,0.20/ DATA(CH(I,80,12),I=1,5)/ 7971.6,1.,1.728e-12,1.6200,0.20/ DATA(CH(I,80,11),I=1,5)/ 8166.2,1.,1.474e-12,1.6200,0.20/ DATA(CH(I,80,10),I=1,5)/18422.6,1.,1.258e-12,1.6200,0.20/ DATA(CH(I,80, 9),I=1,5)/18943.2,1.,1.074e-12,1.6200,0.20/ DATA(CH(I,80, 8),I=1,5)/19463.7,1.,9.161e-13,1.6200,0.20/ DATA(CH(I,80, 7),I=1,5)/19984.3,1.,7.817e-13,1.6200,0.20/ DATA(CH(I,80, 6),I=1,5)/20504.8,1.,6.671e-13,1.6200,0.20/ DATA(CH(I,80, 5),I=1,5)/21025.4,1.,5.692e-13,1.6200,0.20/ DATA(CH(I,80, 4),I=1,5)/21545.9,1.,4.858e-13,1.6200,0.20/ DATA(CH(I,80, 3),I=1,5)/22066.5,1.,4.145e-13,1.6200,0.20/ DATA(CH(I,80, 2),I=1,5)/89264.1,1.,3.537e-13,1.6200,0.20/ DATA(CH(I,80, 1),I=1,5)/91085.4,1.,3.019e-13,1.6200,0.20/ DATA(CH(I,81,81),I=1,5)/ 6.1,1.,8.337d-08,1.6370,0.20/ DATA(CH(I,81,80),I=1,5)/ 20.4,1.,7.125d-08,1.6370,0.20/ DATA(CH(I,81,79),I=1,5)/ 29.9,1.,6.090d-08,1.6370,0.20/ DATA(CH(I,81,78),I=1,5)/ 56.9,1.,5.204e-08,1.6370,0.20/ DATA(CH(I,81,77),I=1,5)/ 89.7,1.,4.448e-08,1.6370,0.20/ DATA(CH(I,81,76),I=1,5)/ 127.8,1.,3.802e-08,1.6370,0.20/ DATA(CH(I,81,75),I=1,5)/ 170.7,1.,3.249e-08,1.6370,0.20/ DATA(CH(I,81,74),I=1,5)/ 218.0,1.,2.777e-08,1.6370,0.20/ DATA(CH(I,81,73),I=1,5)/ 269.4,1.,2.373e-08,1.6370,0.20/ DATA(CH(I,81,72),I=1,5)/ 324.7,1.,2.028e-08,1.6370,0.20/ DATA(CH(I,81,71),I=1,5)/ 383.7,1.,1.734e-08,1.6370,0.20/ DATA(CH(I,81,70),I=1,5)/ 446.3,1.,1.482e-08,1.6370,0.20/ DATA(CH(I,81,69),I=1,5)/ 512.4,1.,1.266e-08,1.6370,0.20/ DATA(CH(I,81,68),I=1,5)/ 581.7,1.,1.082e-08,1.6370,0.20/ DATA(CH(I,81,67),I=1,5)/ 654.2,1.,9.249e-09,1.6370,0.20/ DATA(CH(I,81,66),I=1,5)/ 729.9,1.,7.905e-09,1.6370,0.20/ DATA(CH(I,81,65),I=1,5)/ 808.5,1.,6.756e-09,1.6370,0.20/ DATA(CH(I,81,64),I=1,5)/ 890.1,1.,5.774e-09,1.6370,0.20/ DATA(CH(I,81,63),I=1,5)/ 974.6,1.,4.935e-09,1.6370,0.20/ DATA(CH(I,81,62),I=1,5)/ 1061.8,1.,4.218e-09,1.6370,0.20/ DATA(CH(I,81,61),I=1,5)/ 1151.8,1.,3.605e-09,1.6370,0.20/ DATA(CH(I,81,60),I=1,5)/ 1244.4,1.,3.081e-09,1.6370,0.20/ DATA(CH(I,81,59),I=1,5)/ 1339.7,1.,2.633e-09,1.6370,0.20/ DATA(CH(I,81,58),I=1,5)/ 1437.5,1.,2.250e-09,1.6370,0.20/ DATA(CH(I,81,57),I=1,5)/ 1537.9,1.,1.923e-09,1.6370,0.20/ DATA(CH(I,81,56),I=1,5)/ 1640.7,1.,1.644e-09,1.6370,0.20/ DATA(CH(I,81,55),I=1,5)/ 1746.0,1.,1.405e-09,1.6370,0.20/ DATA(CH(I,81,54),I=1,5)/ 1853.7,1.,1.201e-09,1.6370,0.20/ DATA(CH(I,81,53),I=1,5)/ 1963.7,1.,1.026e-09,1.6370,0.20/ DATA(CH(I,81,52),I=1,5)/ 2076.1,1.,8.770e-10,1.6370,0.20/ DATA(CH(I,81,51),I=1,5)/ 2190.8,1.,7.495e-10,1.6370,0.20/ DATA(CH(I,81,50),I=1,5)/ 2307.7,1.,6.406e-10,1.6370,0.20/ DATA(CH(I,81,49),I=1,5)/ 2426.8,1.,5.475e-10,1.6370,0.20/ DATA(CH(I,81,48),I=1,5)/ 2548.2,1.,4.679e-10,1.6370,0.20/ DATA(CH(I,81,47),I=1,5)/ 2671.7,1.,3.999e-10,1.6370,0.20/ DATA(CH(I,81,46),I=1,5)/ 2797.4,1.,3.418e-10,1.6370,0.20/ DATA(CH(I,81,45),I=1,5)/ 2925.2,1.,2.921e-10,1.6370,0.20/ DATA(CH(I,81,44),I=1,5)/ 3055.1,1.,2.497e-10,1.6370,0.20/ DATA(CH(I,81,43),I=1,5)/ 3187.1,1.,2.134e-10,1.6370,0.20/ DATA(CH(I,81,42),I=1,5)/ 3321.1,1.,1.824e-10,1.6370,0.20/ DATA(CH(I,81,41),I=1,5)/ 3457.1,1.,1.559e-10,1.6370,0.20/ DATA(CH(I,81,40),I=1,5)/ 3595.2,1.,1.332e-10,1.6370,0.20/ DATA(CH(I,81,39),I=1,5)/ 3735.2,1.,1.138e-10,1.6370,0.20/ DATA(CH(I,81,38),I=1,5)/ 3877.2,1.,9.729e-11,1.6370,0.20/ DATA(CH(I,81,37),I=1,5)/ 4021.1,1.,8.315e-11,1.6370,0.20/ DATA(CH(I,81,36),I=1,5)/ 4167.0,1.,7.107e-11,1.6370,0.20/ DATA(CH(I,81,35),I=1,5)/ 4314.8,1.,6.074e-11,1.6370,0.20/ DATA(CH(I,81,34),I=1,5)/ 4464.5,1.,5.191e-11,1.6370,0.20/ DATA(CH(I,81,33),I=1,5)/ 4616.0,1.,4.437e-11,1.6370,0.20/ DATA(CH(I,81,32),I=1,5)/ 4769.5,1.,3.792e-11,1.6370,0.20/ DATA(CH(I,81,31),I=1,5)/ 4924.7,1.,3.241e-11,1.6370,0.20/ DATA(CH(I,81,30),I=1,5)/ 5081.8,1.,2.770e-11,1.6370,0.20/ DATA(CH(I,81,29),I=1,5)/ 5240.7,1.,2.367e-11,1.6370,0.20/ DATA(CH(I,81,28),I=1,5)/ 5401.4,1.,2.023e-11,1.6370,0.20/ DATA(CH(I,81,27),I=1,5)/ 5563.9,1.,1.729e-11,1.6370,0.20/ DATA(CH(I,81,26),I=1,5)/ 5728.2,1.,1.478e-11,1.6370,0.20/ DATA(CH(I,81,25),I=1,5)/ 5894.2,1.,1.263e-11,1.6370,0.20/ DATA(CH(I,81,24),I=1,5)/ 6062.0,1.,1.079e-11,1.6370,0.20/ DATA(CH(I,81,23),I=1,5)/ 6231.5,1.,9.225e-12,1.6370,0.20/ DATA(CH(I,81,22),I=1,5)/ 6402.7,1.,7.884e-12,1.6370,0.20/ DATA(CH(I,81,21),I=1,5)/ 6575.7,1.,6.739e-12,1.6370,0.20/ DATA(CH(I,81,20),I=1,5)/ 6750.3,1.,5.759e-12,1.6370,0.20/ DATA(CH(I,81,19),I=1,5)/ 6926.6,1.,4.922e-12,1.6370,0.20/ DATA(CH(I,81,18),I=1,5)/ 7104.6,1.,4.207e-12,1.6370,0.20/ DATA(CH(I,81,17),I=1,5)/ 7284.3,1.,3.595e-12,1.6370,0.20/ DATA(CH(I,81,16),I=1,5)/ 7465.6,1.,3.073e-12,1.6370,0.20/ DATA(CH(I,81,15),I=1,5)/ 7648.5,1.,2.626e-12,1.6370,0.20/ DATA(CH(I,81,14),I=1,5)/ 7833.1,1.,2.244e-12,1.6370,0.20/ DATA(CH(I,81,13),I=1,5)/ 8019.3,1.,1.918e-12,1.6370,0.20/ DATA(CH(I,81,12),I=1,5)/ 8207.1,1.,1.639e-12,1.6370,0.20/ DATA(CH(I,81,11),I=1,5)/ 8396.5,1.,1.401e-12,1.6370,0.20/ DATA(CH(I,81,10),I=1,5)/18929.2,1.,1.198e-12,1.6370,0.20/ DATA(CH(I,81, 9),I=1,5)/19459.7,1.,1.023e-12,1.6370,0.20/ DATA(CH(I,81, 8),I=1,5)/19990.2,1.,8.747e-13,1.6370,0.20/ DATA(CH(I,81, 7),I=1,5)/20520.7,1.,7.476e-13,1.6370,0.20/ DATA(CH(I,81, 6),I=1,5)/21051.2,1.,6.389e-13,1.6370,0.20/ DATA(CH(I,81, 5),I=1,5)/21581.6,1.,5.461e-13,1.6370,0.20/ DATA(CH(I,81, 4),I=1,5)/22112.1,1.,4.667e-13,1.6370,0.20/ DATA(CH(I,81, 3),I=1,5)/22642.6,1.,3.989e-13,1.6370,0.20/ DATA(CH(I,81, 2),I=1,5)/91556.2,1.,3.409e-13,1.6370,0.20/ DATA(CH(I,81, 1),I=1,5)/93410.1,1.,2.914e-13,1.6370,0.20/ DATA(CH(I,82,82),I=1,5)/ 7.4,1.,8.337d-08,1.6540,0.20/ DATA(CH(I,82,81),I=1,5)/ 15.0,1.,7.136d-08,1.6540,0.20/ DATA(CH(I,82,80),I=1,5)/ 31.9,1.,6.108d-08,1.6540,0.20/ DATA(CH(I,82,79),I=1,5)/ 42.3,1.,5.228d-08,1.6540,0.20/ DATA(CH(I,82,78),I=1,5)/ 68.6,1.,4.475e-08,1.6540,0.20/ DATA(CH(I,82,77),I=1,5)/ 99.8,1.,3.830e-08,1.6540,0.20/ DATA(CH(I,82,76),I=1,5)/ 135.6,1.,3.279e-08,1.6540,0.20/ DATA(CH(I,82,75),I=1,5)/ 175.7,1.,2.806e-08,1.6540,0.20/ DATA(CH(I,82,74),I=1,5)/ 219.9,1.,2.402e-08,1.6540,0.20/ DATA(CH(I,82,73),I=1,5)/ 268.1,1.,2.056e-08,1.6540,0.20/ DATA(CH(I,82,72),I=1,5)/ 320.0,1.,1.760e-08,1.6540,0.20/ DATA(CH(I,82,71),I=1,5)/ 375.6,1.,1.506e-08,1.6540,0.20/ DATA(CH(I,82,70),I=1,5)/ 434.8,1.,1.289e-08,1.6540,0.20/ DATA(CH(I,82,69),I=1,5)/ 497.4,1.,1.104e-08,1.6540,0.20/ DATA(CH(I,82,68),I=1,5)/ 563.4,1.,9.446e-09,1.6540,0.20/ DATA(CH(I,82,67),I=1,5)/ 632.7,1.,8.085e-09,1.6540,0.20/ DATA(CH(I,82,66),I=1,5)/ 705.2,1.,6.921e-09,1.6540,0.20/ DATA(CH(I,82,65),I=1,5)/ 780.8,1.,5.924e-09,1.6540,0.20/ DATA(CH(I,82,64),I=1,5)/ 859.5,1.,5.070e-09,1.6540,0.20/ DATA(CH(I,82,63),I=1,5)/ 941.3,1.,4.340e-09,1.6540,0.20/ DATA(CH(I,82,62),I=1,5)/ 1026.1,1.,3.715e-09,1.6540,0.20/ DATA(CH(I,82,61),I=1,5)/ 1113.8,1.,3.180e-09,1.6540,0.20/ DATA(CH(I,82,60),I=1,5)/ 1204.3,1.,2.722e-09,1.6540,0.20/ DATA(CH(I,82,59),I=1,5)/ 1297.8,1.,2.330e-09,1.6540,0.20/ DATA(CH(I,82,58),I=1,5)/ 1394.0,1.,1.994e-09,1.6540,0.20/ DATA(CH(I,82,57),I=1,5)/ 1493.0,1.,1.707e-09,1.6540,0.20/ DATA(CH(I,82,56),I=1,5)/ 1594.8,1.,1.461e-09,1.6540,0.20/ DATA(CH(I,82,55),I=1,5)/ 1699.2,1.,1.250e-09,1.6540,0.20/ DATA(CH(I,82,54),I=1,5)/ 1806.3,1.,1.070e-09,1.6540,0.20/ DATA(CH(I,82,53),I=1,5)/ 1916.1,1.,9.161e-10,1.6540,0.20/ DATA(CH(I,82,52),I=1,5)/ 2028.4,1.,7.842e-10,1.6540,0.20/ DATA(CH(I,82,51),I=1,5)/ 2143.3,1.,6.712e-10,1.6540,0.20/ DATA(CH(I,82,50),I=1,5)/ 2260.8,1.,5.745e-10,1.6540,0.20/ DATA(CH(I,82,49),I=1,5)/ 2380.8,1.,4.918e-10,1.6540,0.20/ DATA(CH(I,82,48),I=1,5)/ 2503.3,1.,4.209e-10,1.6540,0.20/ DATA(CH(I,82,47),I=1,5)/ 2628.3,1.,3.603e-10,1.6540,0.20/ DATA(CH(I,82,46),I=1,5)/ 2755.8,1.,3.084e-10,1.6540,0.20/ DATA(CH(I,82,45),I=1,5)/ 2885.7,1.,2.640e-10,1.6540,0.20/ DATA(CH(I,82,44),I=1,5)/ 3017.9,1.,2.259e-10,1.6540,0.20/ DATA(CH(I,82,43),I=1,5)/ 3152.6,1.,1.934e-10,1.6540,0.20/ DATA(CH(I,82,42),I=1,5)/ 3289.7,1.,1.655e-10,1.6540,0.20/ DATA(CH(I,82,41),I=1,5)/ 3429.1,1.,1.417e-10,1.6540,0.20/ DATA(CH(I,82,40),I=1,5)/ 3570.8,1.,1.213e-10,1.6540,0.20/ DATA(CH(I,82,39),I=1,5)/ 3714.9,1.,1.038e-10,1.6540,0.20/ DATA(CH(I,82,38),I=1,5)/ 3861.2,1.,8.885e-11,1.6540,0.20/ DATA(CH(I,82,37),I=1,5)/ 4009.9,1.,7.605e-11,1.6540,0.20/ DATA(CH(I,82,36),I=1,5)/ 4160.8,1.,6.510e-11,1.6540,0.20/ DATA(CH(I,82,35),I=1,5)/ 4313.9,1.,5.572e-11,1.6540,0.20/ DATA(CH(I,82,34),I=1,5)/ 4469.3,1.,4.769e-11,1.6540,0.20/ DATA(CH(I,82,33),I=1,5)/ 4626.9,1.,4.082e-11,1.6540,0.20/ DATA(CH(I,82,32),I=1,5)/ 4786.8,1.,3.494e-11,1.6540,0.20/ DATA(CH(I,82,31),I=1,5)/ 4948.8,1.,2.991e-11,1.6540,0.20/ DATA(CH(I,82,30),I=1,5)/ 5113.0,1.,2.560e-11,1.6540,0.20/ DATA(CH(I,82,29),I=1,5)/ 5279.3,1.,2.191e-11,1.6540,0.20/ DATA(CH(I,82,28),I=1,5)/ 5447.8,1.,1.876e-11,1.6540,0.20/ DATA(CH(I,82,27),I=1,5)/ 5618.4,1.,1.605e-11,1.6540,0.20/ DATA(CH(I,82,26),I=1,5)/ 5791.2,1.,1.374e-11,1.6540,0.20/ DATA(CH(I,82,25),I=1,5)/ 5966.1,1.,1.176e-11,1.6540,0.20/ DATA(CH(I,82,24),I=1,5)/ 6143.0,1.,1.007e-11,1.6540,0.20/ DATA(CH(I,82,23),I=1,5)/ 6322.1,1.,8.617e-12,1.6540,0.20/ DATA(CH(I,82,22),I=1,5)/ 6503.3,1.,7.376e-12,1.6540,0.20/ DATA(CH(I,82,21),I=1,5)/ 6686.5,1.,6.313e-12,1.6540,0.20/ DATA(CH(I,82,20),I=1,5)/ 6871.7,1.,5.404e-12,1.6540,0.20/ DATA(CH(I,82,19),I=1,5)/ 7059.0,1.,4.625e-12,1.6540,0.20/ DATA(CH(I,82,18),I=1,5)/ 7248.4,1.,3.959e-12,1.6540,0.20/ DATA(CH(I,82,17),I=1,5)/ 7439.8,1.,3.389e-12,1.6540,0.20/ DATA(CH(I,82,16),I=1,5)/ 7633.2,1.,2.901e-12,1.6540,0.20/ DATA(CH(I,82,15),I=1,5)/ 7828.5,1.,2.483e-12,1.6540,0.20/ DATA(CH(I,82,14),I=1,5)/ 8025.9,1.,2.125e-12,1.6540,0.20/ DATA(CH(I,82,13),I=1,5)/ 8225.3,1.,1.819e-12,1.6540,0.20/ DATA(CH(I,82,12),I=1,5)/ 8426.7,1.,1.557e-12,1.6540,0.20/ DATA(CH(I,82,11),I=1,5)/ 8630.0,1.,1.333e-12,1.6540,0.20/ DATA(CH(I,82,10),I=1,5)/19442.7,1.,1.141e-12,1.6540,0.20/ DATA(CH(I,82, 9),I=1,5)/19983.2,1.,9.764e-13,1.6540,0.20/ DATA(CH(I,82, 8),I=1,5)/20523.7,1.,8.357e-13,1.6540,0.20/ DATA(CH(I,82, 7),I=1,5)/21064.2,1.,7.153e-13,1.6540,0.20/ DATA(CH(I,82, 6),I=1,5)/21604.7,1.,6.123e-13,1.6540,0.20/ DATA(CH(I,82, 5),I=1,5)/22145.2,1.,5.241e-13,1.6540,0.20/ DATA(CH(I,82, 4),I=1,5)/22685.7,1.,4.486e-13,1.6540,0.20/ DATA(CH(I,82, 3),I=1,5)/23226.2,1.,3.840e-13,1.6540,0.20/ DATA(CH(I,82, 2),I=1,5)/93877.4,1.,3.287e-13,1.6540,0.20/ DATA(CH(I,82, 1),I=1,5)/95764.2,1.,2.813e-13,1.6540,0.20/ DATA(CH(I,83,83),I=1,5)/ 7.3,1.,8.337d-08,1.6710,0.20/ DATA(CH(I,83,82),I=1,5)/ 16.7,1.,7.146d-08,1.6710,0.20/ DATA(CH(I,83,81),I=1,5)/ 25.6,1.,6.126d-08,1.6710,0.20/ DATA(CH(I,83,80),I=1,5)/ 45.3,1.,5.251d-08,1.6710,0.20/ DATA(CH(I,83,79),I=1,5)/ 56.0,1.,4.501e-08,1.6710,0.20/ DATA(CH(I,83,78),I=1,5)/ 88.3,1.,3.859e-08,1.6710,0.20/ DATA(CH(I,83,77),I=1,5)/ 121.0,1.,3.308e-08,1.6710,0.20/ DATA(CH(I,83,76),I=1,5)/ 157.9,1.,2.835e-08,1.6710,0.20/ DATA(CH(I,83,75),I=1,5)/ 198.9,1.,2.431e-08,1.6710,0.20/ DATA(CH(I,83,74),I=1,5)/ 243.8,1.,2.083e-08,1.6710,0.20/ DATA(CH(I,83,73),I=1,5)/ 292.5,1.,1.786e-08,1.6710,0.20/ DATA(CH(I,83,72),I=1,5)/ 344.9,1.,1.531e-08,1.6710,0.20/ DATA(CH(I,83,71),I=1,5)/ 400.9,1.,1.312e-08,1.6710,0.20/ DATA(CH(I,83,70),I=1,5)/ 460.4,1.,1.125e-08,1.6710,0.20/ DATA(CH(I,83,69),I=1,5)/ 523.2,1.,9.643e-09,1.6710,0.20/ DATA(CH(I,83,68),I=1,5)/ 589.5,1.,8.266e-09,1.6710,0.20/ DATA(CH(I,83,67),I=1,5)/ 659.1,1.,7.086e-09,1.6710,0.20/ DATA(CH(I,83,66),I=1,5)/ 731.9,1.,6.074e-09,1.6710,0.20/ DATA(CH(I,83,65),I=1,5)/ 807.8,1.,5.207e-09,1.6710,0.20/ DATA(CH(I,83,64),I=1,5)/ 887.0,1.,4.463e-09,1.6710,0.20/ DATA(CH(I,83,63),I=1,5)/ 969.2,1.,3.826e-09,1.6710,0.20/ DATA(CH(I,83,62),I=1,5)/ 1054.4,1.,3.280e-09,1.6710,0.20/ DATA(CH(I,83,61),I=1,5)/ 1142.7,1.,2.811e-09,1.6710,0.20/ DATA(CH(I,83,60),I=1,5)/ 1233.9,1.,2.410e-09,1.6710,0.20/ DATA(CH(I,83,59),I=1,5)/ 1328.1,1.,2.066e-09,1.6710,0.20/ DATA(CH(I,83,58),I=1,5)/ 1425.2,1.,1.771e-09,1.6710,0.20/ DATA(CH(I,83,57),I=1,5)/ 1525.1,1.,1.518e-09,1.6710,0.20/ DATA(CH(I,83,56),I=1,5)/ 1627.9,1.,1.301e-09,1.6710,0.20/ DATA(CH(I,83,55),I=1,5)/ 1733.5,1.,1.115e-09,1.6710,0.20/ DATA(CH(I,83,54),I=1,5)/ 1841.9,1.,9.561e-10,1.6710,0.20/ DATA(CH(I,83,53),I=1,5)/ 1953.0,1.,8.196e-10,1.6710,0.20/ DATA(CH(I,83,52),I=1,5)/ 2066.9,1.,7.026e-10,1.6710,0.20/ DATA(CH(I,83,51),I=1,5)/ 2183.5,1.,6.023e-10,1.6710,0.20/ DATA(CH(I,83,50),I=1,5)/ 2302.7,1.,5.163e-10,1.6710,0.20/ DATA(CH(I,83,49),I=1,5)/ 2424.6,1.,4.425e-10,1.6710,0.20/ DATA(CH(I,83,48),I=1,5)/ 2549.2,1.,3.794e-10,1.6710,0.20/ DATA(CH(I,83,47),I=1,5)/ 2676.3,1.,3.252e-10,1.6710,0.20/ DATA(CH(I,83,46),I=1,5)/ 2806.1,1.,2.788e-10,1.6710,0.20/ DATA(CH(I,83,45),I=1,5)/ 2938.5,1.,2.389e-10,1.6710,0.20/ DATA(CH(I,83,44),I=1,5)/ 3073.4,1.,2.048e-10,1.6710,0.20/ DATA(CH(I,83,43),I=1,5)/ 3210.8,1.,1.756e-10,1.6710,0.20/ DATA(CH(I,83,42),I=1,5)/ 3350.8,1.,1.505e-10,1.6710,0.20/ DATA(CH(I,83,41),I=1,5)/ 3493.3,1.,1.290e-10,1.6710,0.20/ DATA(CH(I,83,40),I=1,5)/ 3638.3,1.,1.106e-10,1.6710,0.20/ DATA(CH(I,83,39),I=1,5)/ 3785.7,1.,9.480e-11,1.6710,0.20/ DATA(CH(I,83,38),I=1,5)/ 3935.6,1.,8.127e-11,1.6710,0.20/ DATA(CH(I,83,37),I=1,5)/ 4088.0,1.,6.966e-11,1.6710,0.20/ DATA(CH(I,83,36),I=1,5)/ 4242.8,1.,5.972e-11,1.6710,0.20/ DATA(CH(I,83,35),I=1,5)/ 4400.0,1.,5.119e-11,1.6710,0.20/ DATA(CH(I,83,34),I=1,5)/ 4559.6,1.,4.388e-11,1.6710,0.20/ DATA(CH(I,83,33),I=1,5)/ 4721.6,1.,3.761e-11,1.6710,0.20/ DATA(CH(I,83,32),I=1,5)/ 4886.0,1.,3.224e-11,1.6710,0.20/ DATA(CH(I,83,31),I=1,5)/ 5052.7,1.,2.764e-11,1.6710,0.20/ DATA(CH(I,83,30),I=1,5)/ 5221.8,1.,2.369e-11,1.6710,0.20/ DATA(CH(I,83,29),I=1,5)/ 5393.3,1.,2.031e-11,1.6710,0.20/ DATA(CH(I,83,28),I=1,5)/ 5567.0,1.,1.741e-11,1.6710,0.20/ DATA(CH(I,83,27),I=1,5)/ 5743.1,1.,1.492e-11,1.6710,0.20/ DATA(CH(I,83,26),I=1,5)/ 5921.5,1.,1.279e-11,1.6710,0.20/ DATA(CH(I,83,25),I=1,5)/ 6102.1,1.,1.097e-11,1.6710,0.20/ DATA(CH(I,83,24),I=1,5)/ 6285.1,1.,9.400e-12,1.6710,0.20/ DATA(CH(I,83,23),I=1,5)/ 6470.3,1.,8.058e-12,1.6710,0.20/ DATA(CH(I,83,22),I=1,5)/ 6657.8,1.,6.907e-12,1.6710,0.20/ DATA(CH(I,83,21),I=1,5)/ 6847.6,1.,5.921e-12,1.6710,0.20/ DATA(CH(I,83,20),I=1,5)/ 7039.5,1.,5.076e-12,1.6710,0.20/ DATA(CH(I,83,19),I=1,5)/ 7233.7,1.,4.351e-12,1.6710,0.20/ DATA(CH(I,83,18),I=1,5)/ 7430.2,1.,3.730e-12,1.6710,0.20/ DATA(CH(I,83,17),I=1,5)/ 7628.8,1.,3.197e-12,1.6710,0.20/ DATA(CH(I,83,16),I=1,5)/ 7829.7,1.,2.740e-12,1.6710,0.20/ DATA(CH(I,83,15),I=1,5)/ 8032.7,1.,2.349e-12,1.6710,0.20/ DATA(CH(I,83,14),I=1,5)/ 8238.0,1.,2.014e-12,1.6710,0.20/ DATA(CH(I,83,13),I=1,5)/ 8445.4,1.,1.726e-12,1.6710,0.20/ DATA(CH(I,83,12),I=1,5)/ 8654.9,1.,1.480e-12,1.6710,0.20/ DATA(CH(I,83,11),I=1,5)/ 8866.7,1.,1.268e-12,1.6710,0.20/ DATA(CH(I,83,10),I=1,5)/19963.0,1.,1.087e-12,1.6710,0.20/ DATA(CH(I,83, 9),I=1,5)/20513.6,1.,9.320e-13,1.6710,0.20/ DATA(CH(I,83, 8),I=1,5)/21064.2,1.,7.990e-13,1.6710,0.20/ DATA(CH(I,83, 7),I=1,5)/21614.8,1.,6.849e-13,1.6710,0.20/ DATA(CH(I,83, 6),I=1,5)/22165.4,1.,5.871e-13,1.6710,0.20/ DATA(CH(I,83, 5),I=1,5)/22716.0,1.,5.033e-13,1.6710,0.20/ DATA(CH(I,83, 4),I=1,5)/23266.7,1.,4.314e-13,1.6710,0.20/ DATA(CH(I,83, 3),I=1,5)/23817.3,1.,3.698e-13,1.6710,0.20/ DATA(CH(I,83, 2),I=1,5)/96227.9,1.,3.170e-13,1.6710,0.20/ DATA(CH(I,83, 1),I=1,5)/98147.7,1.,2.717e-13,1.6710,0.20/ DATA(CH(I,90,90),I=1,5)/ 6.1,1.,8.337d-08,1.7900,0.20/ DATA(CH(I,90,89),I=1,5)/ 11.9,1.,7.215d-08,1.7900,0.20/ DATA(CH(I,90,88),I=1,5)/ 18.3,1.,6.243d-08,1.7900,0.20/ DATA(CH(I,90,87),I=1,5)/ 28.7,1.,5.403d-08,1.7900,0.20/ DATA(CH(I,90,86),I=1,5)/ 48.3,1.,4.676e-08,1.7900,0.20/ DATA(CH(I,90,85),I=1,5)/ 72.3,1.,4.046e-08,1.7900,0.20/ DATA(CH(I,90,84),I=1,5)/ 100.5,1.,3.502e-08,1.7900,0.20/ DATA(CH(I,90,83),I=1,5)/ 132.8,1.,3.030e-08,1.7900,0.20/ DATA(CH(I,90,82),I=1,5)/ 169.0,1.,2.622e-08,1.7900,0.20/ DATA(CH(I,90,81),I=1,5)/ 209.1,1.,2.269e-08,1.7900,0.20/ DATA(CH(I,90,80),I=1,5)/ 253.0,1.,1.964e-08,1.7900,0.20/ DATA(CH(I,90,79),I=1,5)/ 300.6,1.,1.699e-08,1.7900,0.20/ DATA(CH(I,90,78),I=1,5)/ 351.8,1.,1.471e-08,1.7900,0.20/ DATA(CH(I,90,77),I=1,5)/ 406.6,1.,1.273e-08,1.7900,0.20/ DATA(CH(I,90,76),I=1,5)/ 464.8,1.,1.101e-08,1.7900,0.20/ DATA(CH(I,90,75),I=1,5)/ 526.6,1.,9.531e-09,1.7900,0.20/ DATA(CH(I,90,74),I=1,5)/ 591.8,1.,8.248e-09,1.7900,0.20/ DATA(CH(I,90,73),I=1,5)/ 660.3,1.,7.138e-09,1.7900,0.20/ DATA(CH(I,90,72),I=1,5)/ 732.2,1.,6.177e-09,1.7900,0.20/ DATA(CH(I,90,71),I=1,5)/ 807.3,1.,5.345e-09,1.7900,0.20/ DATA(CH(I,90,70),I=1,5)/ 885.8,1.,4.626e-09,1.7900,0.20/ DATA(CH(I,90,69),I=1,5)/ 967.5,1.,4.003e-09,1.7900,0.20/ DATA(CH(I,90,68),I=1,5)/ 1052.4,1.,3.464e-09,1.7900,0.20/ DATA(CH(I,90,67),I=1,5)/ 1140.4,1.,2.998e-09,1.7900,0.20/ DATA(CH(I,90,66),I=1,5)/ 1231.6,1.,2.594e-09,1.7900,0.20/ DATA(CH(I,90,65),I=1,5)/ 1325.9,1.,2.245e-09,1.7900,0.20/ DATA(CH(I,90,64),I=1,5)/ 1423.4,1.,1.943e-09,1.7900,0.20/ DATA(CH(I,90,63),I=1,5)/ 1523.9,1.,1.681e-09,1.7900,0.20/ DATA(CH(I,90,62),I=1,5)/ 1627.4,1.,1.455e-09,1.7900,0.20/ DATA(CH(I,90,61),I=1,5)/ 1734.0,1.,1.259e-09,1.7900,0.20/ DATA(CH(I,90,60),I=1,5)/ 1843.6,1.,1.090e-09,1.7900,0.20/ DATA(CH(I,90,59),I=1,5)/ 1956.2,1.,9.430e-10,1.7900,0.20/ DATA(CH(I,90,58),I=1,5)/ 2071.7,1.,8.160e-10,1.7900,0.20/ DATA(CH(I,90,57),I=1,5)/ 2190.3,1.,7.062e-10,1.7900,0.20/ DATA(CH(I,90,56),I=1,5)/ 2311.7,1.,6.111e-10,1.7900,0.20/ DATA(CH(I,90,55),I=1,5)/ 2436.1,1.,5.289e-10,1.7900,0.20/ DATA(CH(I,90,54),I=1,5)/ 2563.4,1.,4.577e-10,1.7900,0.20/ DATA(CH(I,90,53),I=1,5)/ 2693.5,1.,3.961e-10,1.7900,0.20/ DATA(CH(I,90,52),I=1,5)/ 2826.6,1.,3.427e-10,1.7900,0.20/ DATA(CH(I,90,51),I=1,5)/ 2962.5,1.,2.966e-10,1.7900,0.20/ DATA(CH(I,90,50),I=1,5)/ 3101.2,1.,2.567e-10,1.7900,0.20/ DATA(CH(I,90,49),I=1,5)/ 3242.8,1.,2.221e-10,1.7900,0.20/ DATA(CH(I,90,48),I=1,5)/ 3387.2,1.,1.922e-10,1.7900,0.20/ DATA(CH(I,90,47),I=1,5)/ 3534.3,1.,1.663e-10,1.7900,0.20/ DATA(CH(I,90,46),I=1,5)/ 3684.3,1.,1.440e-10,1.7900,0.20/ DATA(CH(I,90,45),I=1,5)/ 3837.1,1.,1.246e-10,1.7900,0.20/ DATA(CH(I,90,44),I=1,5)/ 3992.6,1.,1.078e-10,1.7900,0.20/ DATA(CH(I,90,43),I=1,5)/ 4150.9,1.,9.330e-11,1.7900,0.20/ DATA(CH(I,90,42),I=1,5)/ 4311.9,1.,8.074e-11,1.7900,0.20/ DATA(CH(I,90,41),I=1,5)/ 4475.7,1.,6.987e-11,1.7900,0.20/ DATA(CH(I,90,40),I=1,5)/ 4642.2,1.,6.046e-11,1.7900,0.20/ DATA(CH(I,90,39),I=1,5)/ 4811.4,1.,5.232e-11,1.7900,0.20/ DATA(CH(I,90,38),I=1,5)/ 4983.3,1.,4.528e-11,1.7900,0.20/ DATA(CH(I,90,37),I=1,5)/ 5157.9,1.,3.919e-11,1.7900,0.20/ DATA(CH(I,90,36),I=1,5)/ 5335.1,1.,3.391e-11,1.7900,0.20/ DATA(CH(I,90,35),I=1,5)/ 5515.1,1.,2.935e-11,1.7900,0.20/ DATA(CH(I,90,34),I=1,5)/ 5697.7,1.,2.540e-11,1.7900,0.20/ DATA(CH(I,90,33),I=1,5)/ 5882.9,1.,2.198e-11,1.7900,0.20/ DATA(CH(I,90,32),I=1,5)/ 6070.8,1.,1.902e-11,1.7900,0.20/ DATA(CH(I,90,31),I=1,5)/ 6261.4,1.,1.646e-11,1.7900,0.20/ DATA(CH(I,90,30),I=1,5)/ 6454.5,1.,1.424e-11,1.7900,0.20/ DATA(CH(I,90,29),I=1,5)/ 6650.3,1.,1.233e-11,1.7900,0.20/ DATA(CH(I,90,28),I=1,5)/ 6848.7,1.,1.067e-11,1.7900,0.20/ DATA(CH(I,90,27),I=1,5)/ 7049.7,1.,9.230e-12,1.7900,0.20/ DATA(CH(I,90,26),I=1,5)/ 7253.3,1.,7.988e-12,1.7900,0.20/ DATA(CH(I,90,25),I=1,5)/ 7459.4,1.,6.913e-12,1.7900,0.20/ DATA(CH(I,90,24),I=1,5)/ 7668.2,1.,5.982e-12,1.7900,0.20/ DATA(CH(I,90,23),I=1,5)/ 7879.5,1.,5.177e-12,1.7900,0.20/ DATA(CH(I,90,22),I=1,5)/ 8093.4,1.,4.480e-12,1.7900,0.20/ DATA(CH(I,90,21),I=1,5)/ 8309.8,1.,3.877e-12,1.7900,0.20/ DATA(CH(I,90,20),I=1,5)/ 8528.8,1.,3.355e-12,1.7900,0.20/ DATA(CH(I,90,19),I=1,5)/ 8750.4,1.,2.903e-12,1.7900,0.20/ DATA(CH(I,90,18),I=1,5)/ 8974.4,1.,2.513e-12,1.7900,0.20/ DATA(CH(I,90,17),I=1,5)/ 9201.0,1.,2.174e-12,1.7900,0.20/ DATA(CH(I,90,16),I=1,5)/ 9430.1,1.,1.882e-12,1.7900,0.20/ DATA(CH(I,90,15),I=1,5)/ 9661.8,1.,1.628e-12,1.7900,0.20/ DATA(CH(I,90,14),I=1,5)/ 9895.9,1.,1.409e-12,1.7900,0.20/ DATA(CH(I,90,13),I=1,5)/10132.5,1.,1.219e-12,1.7900,0.20/ DATA(CH(I,90,12),I=1,5)/10371.7,1.,1.055e-12,1.7900,0.20/ DATA(CH(I,90,11),I=1,5)/10613.3,1.,9.132e-13,1.7900,0.20/ DATA(CH(I,90,10),I=1,5)/23797.5,1.,7.903e-13,1.7900,0.20/ DATA(CH(I,90, 9),I=1,5)/24421.2,1.,6.839e-13,1.7900,0.20/ DATA(CH(I,90, 8),I=1,5)/25045.0,1.,5.918e-13,1.7900,0.20/ DATA(CH(I,90, 7),I=1,5)/25668.7,1.,5.122e-13,1.7900,0.20/ DATA(CH(I,90, 6),I=1,5)/26292.5,1.,4.432e-13,1.7900,0.20/ DATA(CH(I,90, 5),I=1,5)/26916.2,1.,3.836e-13,1.7900,0.20/ DATA(CH(I,90, 4),I=1,5)/27540.0,1.,3.319e-13,1.7900,0.20/ DATA(CH(I,90, 3),I=1,5)/28163.7,1.,2.872e-13,1.7900,0.20/ DATA(CH(I,90, 2),I=1,5)/113498.,1.,2.486e-13,1.7900,0.20/ DATA(CH(I,90, 1),I=1,5)/115657.,1.,2.151e-13,1.7900,0.20/ DATA(CH(I,92,92),I=1,5)/ 6.2,1.,8.337d-08,1.8240,0.20/ DATA(CH(I,92,91),I=1,5)/ 11.9,1.,7.232d-08,1.8240,0.20/ DATA(CH(I,92,90),I=1,5)/ 20.0,1.,6.274d-08,1.8240,0.20/ DATA(CH(I,92,89),I=1,5)/ 37.0,1.,5.443d-08,1.8240,0.20/ DATA(CH(I,92,88),I=1,5)/ 60.9,1.,4.722e-08,1.8240,0.20/ DATA(CH(I,92,87),I=1,5)/ 89.6,1.,4.097e-08,1.8240,0.20/ DATA(CH(I,92,86),I=1,5)/ 122.9,1.,3.554e-08,1.8240,0.20/ DATA(CH(I,92,85),I=1,5)/ 160.5,1.,3.083e-08,1.8240,0.20/ DATA(CH(I,92,84),I=1,5)/ 202.2,1.,2.675e-08,1.8240,0.20/ DATA(CH(I,92,83),I=1,5)/ 248.0,1.,2.320e-08,1.8240,0.20/ DATA(CH(I,92,82),I=1,5)/ 297.6,1.,2.013e-08,1.8240,0.20/ DATA(CH(I,92,81),I=1,5)/ 351.0,1.,1.746e-08,1.8240,0.20/ DATA(CH(I,92,80),I=1,5)/ 408.1,1.,1.515e-08,1.8240,0.20/ DATA(CH(I,92,79),I=1,5)/ 468.8,1.,1.314e-08,1.8240,0.20/ DATA(CH(I,92,78),I=1,5)/ 533.0,1.,1.140e-08,1.8240,0.20/ DATA(CH(I,92,77),I=1,5)/ 600.7,1.,9.892e-09,1.8240,0.20/ DATA(CH(I,92,76),I=1,5)/ 671.7,1.,8.581e-09,1.8240,0.20/ DATA(CH(I,92,75),I=1,5)/ 746.0,1.,7.445e-09,1.8240,0.20/ DATA(CH(I,92,74),I=1,5)/ 823.7,1.,6.458e-09,1.8240,0.20/ DATA(CH(I,92,73),I=1,5)/ 904.5,1.,5.603e-09,1.8240,0.20/ DATA(CH(I,92,72),I=1,5)/ 988.5,1.,4.861e-09,1.8240,0.20/ DATA(CH(I,92,71),I=1,5)/ 1075.7,1.,4.217e-09,1.8240,0.20/ DATA(CH(I,92,70),I=1,5)/ 1165.9,1.,3.658e-09,1.8240,0.20/ DATA(CH(I,92,69),I=1,5)/ 1259.2,1.,3.174e-09,1.8240,0.20/ DATA(CH(I,92,68),I=1,5)/ 1355.5,1.,2.753e-09,1.8240,0.20/ DATA(CH(I,92,67),I=1,5)/ 1454.8,1.,2.388e-09,1.8240,0.20/ DATA(CH(I,92,66),I=1,5)/ 1557.1,1.,2.072e-09,1.8240,0.20/ DATA(CH(I,92,65),I=1,5)/ 1662.2,1.,1.798e-09,1.8240,0.20/ DATA(CH(I,92,64),I=1,5)/ 1770.3,1.,1.559e-09,1.8240,0.20/ DATA(CH(I,92,63),I=1,5)/ 1881.2,1.,1.353e-09,1.8240,0.20/ DATA(CH(I,92,62),I=1,5)/ 1994.9,1.,1.174e-09,1.8240,0.20/ DATA(CH(I,92,61),I=1,5)/ 2111.5,1.,1.018e-09,1.8240,0.20/ DATA(CH(I,92,60),I=1,5)/ 2230.8,1.,8.833e-10,1.8240,0.20/ DATA(CH(I,92,59),I=1,5)/ 2352.9,1.,7.663e-10,1.8240,0.20/ DATA(CH(I,92,58),I=1,5)/ 2477.8,1.,6.648e-10,1.8240,0.20/ DATA(CH(I,92,57),I=1,5)/ 2605.3,1.,5.767e-10,1.8240,0.20/ DATA(CH(I,92,56),I=1,5)/ 2735.6,1.,5.003e-10,1.8240,0.20/ DATA(CH(I,92,55),I=1,5)/ 2868.5,1.,4.340e-10,1.8240,0.20/ DATA(CH(I,92,54),I=1,5)/ 3004.1,1.,3.765e-10,1.8240,0.20/ DATA(CH(I,92,53),I=1,5)/ 3142.3,1.,3.267e-10,1.8240,0.20/ DATA(CH(I,92,52),I=1,5)/ 3283.1,1.,2.834e-10,1.8240,0.20/ DATA(CH(I,92,51),I=1,5)/ 3426.6,1.,2.458e-10,1.8240,0.20/ DATA(CH(I,92,50),I=1,5)/ 3572.6,1.,2.133e-10,1.8240,0.20/ DATA(CH(I,92,49),I=1,5)/ 3721.2,1.,1.850e-10,1.8240,0.20/ DATA(CH(I,92,48),I=1,5)/ 3872.3,1.,1.605e-10,1.8240,0.20/ DATA(CH(I,92,47),I=1,5)/ 4026.0,1.,1.393e-10,1.8240,0.20/ DATA(CH(I,92,46),I=1,5)/ 4182.1,1.,1.208e-10,1.8240,0.20/ DATA(CH(I,92,45),I=1,5)/ 4340.8,1.,1.048e-10,1.8240,0.20/ DATA(CH(I,92,44),I=1,5)/ 4502.0,1.,9.092e-11,1.8240,0.20/ DATA(CH(I,92,43),I=1,5)/ 4665.7,1.,7.887e-11,1.8240,0.20/ DATA(CH(I,92,42),I=1,5)/ 4831.8,1.,6.843e-11,1.8240,0.20/ DATA(CH(I,92,41),I=1,5)/ 5000.4,1.,5.936e-11,1.8240,0.20/ DATA(CH(I,92,40),I=1,5)/ 5171.4,1.,5.150e-11,1.8240,0.20/ DATA(CH(I,92,39),I=1,5)/ 5344.8,1.,4.468e-11,1.8240,0.20/ DATA(CH(I,92,38),I=1,5)/ 5520.6,1.,3.876e-11,1.8240,0.20/ DATA(CH(I,92,37),I=1,5)/ 5698.9,1.,3.362e-11,1.8240,0.20/ DATA(CH(I,92,36),I=1,5)/ 5879.5,1.,2.917e-11,1.8240,0.20/ DATA(CH(I,92,35),I=1,5)/ 6062.5,1.,2.531e-11,1.8240,0.20/ DATA(CH(I,92,34),I=1,5)/ 6247.9,1.,2.195e-11,1.8240,0.20/ DATA(CH(I,92,33),I=1,5)/ 6435.6,1.,1.905e-11,1.8240,0.20/ DATA(CH(I,92,32),I=1,5)/ 6625.6,1.,1.652e-11,1.8240,0.20/ DATA(CH(I,92,31),I=1,5)/ 6818.0,1.,1.433e-11,1.8240,0.20/ DATA(CH(I,92,30),I=1,5)/ 7012.8,1.,1.243e-11,1.8240,0.20/ DATA(CH(I,92,29),I=1,5)/ 7209.8,1.,1.079e-11,1.8240,0.20/ DATA(CH(I,92,28),I=1,5)/ 7409.1,1.,9.358e-12,1.8240,0.20/ DATA(CH(I,92,27),I=1,5)/ 7610.7,1.,8.119e-12,1.8240,0.20/ DATA(CH(I,92,26),I=1,5)/ 7814.6,1.,7.043e-12,1.8240,0.20/ DATA(CH(I,92,25),I=1,5)/ 8020.8,1.,6.110e-12,1.8240,0.20/ DATA(CH(I,92,24),I=1,5)/ 8229.3,1.,5.301e-12,1.8240,0.20/ DATA(CH(I,92,23),I=1,5)/ 8440.0,1.,4.599e-12,1.8240,0.20/ DATA(CH(I,92,22),I=1,5)/ 8652.9,1.,3.989e-12,1.8240,0.20/ DATA(CH(I,92,21),I=1,5)/ 8868.1,1.,3.461e-12,1.8240,0.20/ DATA(CH(I,92,20),I=1,5)/ 9085.5,1.,3.002e-12,1.8240,0.20/ DATA(CH(I,92,19),I=1,5)/ 9305.1,1.,2.605e-12,1.8240,0.20/ DATA(CH(I,92,18),I=1,5)/ 9527.0,1.,2.260e-12,1.8240,0.20/ DATA(CH(I,92,17),I=1,5)/ 9751.0,1.,1.960e-12,1.8240,0.20/ DATA(CH(I,92,16),I=1,5)/ 9977.3,1.,1.701e-12,1.8240,0.20/ DATA(CH(I,92,15),I=1,5)/10205.7,1.,1.475e-12,1.8240,0.20/ DATA(CH(I,92,14),I=1,5)/10436.3,1.,1.280e-12,1.8240,0.20/ DATA(CH(I,92,13),I=1,5)/10669.1,1.,1.110e-12,1.8240,0.20/ DATA(CH(I,92,12),I=1,5)/10904.1,1.,9.633e-13,1.8240,0.20/ DATA(CH(I,92,11),I=1,5)/11141.2,1.,8.357e-13,1.8240,0.20/ DATA(CH(I,92,10),I=1,5)/24954.9,1.,7.250e-13,1.8240,0.20/ DATA(CH(I,92, 9),I=1,5)/25600.3,1.,6.289e-13,1.8240,0.20/ DATA(CH(I,92, 8),I=1,5)/26245.7,1.,5.456e-13,1.8240,0.20/ DATA(CH(I,92, 7),I=1,5)/26891.1,1.,4.733e-13,1.8240,0.20/ DATA(CH(I,92, 6),I=1,5)/27536.5,1.,4.106e-13,1.8240,0.20/ DATA(CH(I,92, 5),I=1,5)/28181.9,1.,3.562e-13,1.8240,0.20/ DATA(CH(I,92, 4),I=1,5)/28827.3,1.,3.091e-13,1.8240,0.20/ DATA(CH(I,92, 3),I=1,5)/29472.7,1.,2.681e-13,1.8240,0.20/ DATA(CH(I,92, 2),I=1,5)/118695.,1.,2.326e-13,1.8240,0.20/ DATA(CH(I,92, 1),I=1,5)/120924.,1.,2.018e-13,1.8240,0.20/ end subroutine rrfit(iz,in,t,r) C***************************************************************************** C SEE: http://www.pa.uky.edu/~verner/rec.html C C** Version 3a. August 19, 1996. C** Written by D. A. Verner, verner@pa.uky.edu C** C** This subroutine calculates rates of radiative recombination for all ions C** of all elements from H through Zn by use of the following fits: C** H-like, He-like, Li-like, Na-like - Verner & Ferland, 1996, ApJS, 103, 467 C** Other ions of C, N, O, Ne - Pequignot et al. 1991, A&A, 251, 680, C** refitted by Verner & Ferland formula to ensure correct asymptotes C** Fe XIV-XV and Fe XVII-XXIII - Arnaud & Raymond, 1992, ApJ, 398, 394 C** Other ions of Mg, Si, S, Ar, Ca, Fe, Ni - C** - Shull & Van Steenberg, 1982, ApJS, 48, 95 C** Other ions of Na, Al - Landini & Monsignori Fossi, 1990, A&AS, 82, 229 C** Other ions of F, P, Cl, K, Ti, Cr, Mn, Co (excluding Ti I-II, Cr I-IV, C** Mn I-V, Co I) - Landini & Monsignori Fossi, 1991, A&AS, 91, 183 C** All other species - interpolations of the power-law fits C** C** Input parameters: iz - atomic number C** in - number of electrons from 1 to iz C** t - temperature, K C** Output parameter: r - rate coefficient, cm^3 s^(-1) C***************************************************************************** implicit real*8 (a-h,o-z) real*8 rrec,rnew,fe,t,r,tt integer iz,in common/rrec/rrec(2,30,30) common/rnew/rnew(4,30,30) common/ferr/fe(3,13) r=0.0 if(iz.lt.1.or.iz.gt.30)then write(6,'('' rrfit called with insane atomic number, ='',i4 & )') iz stop endif if(in.lt.1.or.in.gt.iz)then write(6,'('' rrfit called with insane number elec ='',i4 & )') in stop endif if(in.le.3.or.in.eq.11.or.(iz.gt.5.and.iz.lt.9).or.iz.eq.10)then tt=sqrt(t/rnew(3,iz,in)) r=rnew(1,iz,in)/(tt*(tt+1.0)**(1.0-rnew(2,iz,in))* & (1.0+sqrt(t/rnew(4,iz,in)))**(1.0+rnew(2,iz,in))) else tt=t*1.0d-04 if(iz.eq.26.and.in.le.13)then r=fe(1,in)/tt**(fe(2,in)+fe(3,in)*log10(tt)) else r=rrec(1,iz,in)/tt**rrec(2,iz,in) endif endif return end C******************************************** block data radrec implicit real*8 (a-h,o-z) common/rrec/rrec(2,30,30) common/rnew/rnew(4,30,30) common/ferr/fe(3,13) data(rrec(i, 4, 4),i=1,2)/4.500d-13,0.6480/ data(rrec(i, 5, 4),i=1,2)/2.680d-12,0.7250/ data(rrec(i, 6, 4),i=1,2)/4.900d-12,0.8030/ data(rrec(i, 7, 4),i=1,2)/9.400d-12,0.7650/ data(rrec(i, 8, 4),i=1,2)/1.590d-11,0.7590/ data(rrec(i, 9, 4),i=1,2)/1.919d-11,0.7849/ data(rrec(i,10, 4),i=1,2)/2.800d-11,0.7710/ data(rrec(i,11, 4),i=1,2)/4.030d-11,0.7873/ data(rrec(i,12, 4),i=1,2)/6.830d-11,0.7650/ data(rrec(i,13, 4),i=1,2)/8.343d-11,0.8291/ data(rrec(i,14, 4),i=1,2)/1.430d-10,0.8230/ data(rrec(i,15, 4),i=1,2)/1.460d-10,0.8391/ data(rrec(i,16, 4),i=1,2)/2.000d-10,0.8060/ data(rrec(i,17, 4),i=1,2)/2.091d-10,0.8691/ data(rrec(i,18, 4),i=1,2)/3.070d-10,0.8190/ data(rrec(i,19, 4),i=1,2)/3.210d-10,0.8934/ data(rrec(i,20, 4),i=1,2)/4.610d-10,0.8330/ data(rrec(i,21, 4),i=1,2)/4.870d-10,0.8060/ data(rrec(i,22, 4),i=1,2)/5.139d-10,0.7781/ data(rrec(i,23, 4),i=1,2)/5.850d-10,0.7570/ data(rrec(i,24, 4),i=1,2)/6.556d-10,0.7359/ data(rrec(i,25, 4),i=1,2)/7.238d-10,0.7242/ data(rrec(i,27, 4),i=1,2)/8.404d-10,0.7167/ data(rrec(i,28, 4),i=1,2)/1.360d-09,0.8420/ data(rrec(i,29, 4),i=1,2)/1.880d-09,0.8420/ data(rrec(i,30, 4),i=1,2)/2.400d-09,0.8420/ data(rrec(i, 5, 5),i=1,2)/4.600d-13,0.6360/ data(rrec(i, 6, 5),i=1,2)/2.300d-12,0.6450/ data(rrec(i, 7, 5),i=1,2)/5.000d-12,0.6760/ data(rrec(i, 8, 5),i=1,2)/9.600d-12,0.6700/ data(rrec(i, 9, 5),i=1,2)/1.558d-11,0.6816/ data(rrec(i,10, 5),i=1,2)/2.300d-11,0.7040/ data(rrec(i,11, 5),i=1,2)/3.253d-11,0.7075/ data(rrec(i,12, 5),i=1,2)/4.600d-11,0.7110/ data(rrec(i,13, 5),i=1,2)/5.951d-11,0.7125/ data(rrec(i,14, 5),i=1,2)/7.700d-11,0.7140/ data(rrec(i,15, 5),i=1,2)/1.042d-10,0.7330/ data(rrec(i,16, 5),i=1,2)/1.400d-10,0.7550/ data(rrec(i,17, 5),i=1,2)/1.760d-10,0.7682/ data(rrec(i,18, 5),i=1,2)/2.140d-10,0.7740/ data(rrec(i,19, 5),i=1,2)/2.629d-10,0.7772/ data(rrec(i,20, 5),i=1,2)/3.240d-10,0.7800/ data(rrec(i,21, 5),i=1,2)/3.970d-10,0.7840/ data(rrec(i,22, 5),i=1,2)/4.700d-10,0.7873/ data(rrec(i,23, 5),i=1,2)/5.500d-10,0.7910/ data(rrec(i,24, 5),i=1,2)/6.301d-10,0.7952/ data(rrec(i,25, 5),i=1,2)/7.058d-10,0.7982/ data(rrec(i,27, 5),i=1,2)/8.252d-10,0.8004/ data(rrec(i,28, 5),i=1,2)/8.710d-10,0.8000/ data(rrec(i,29, 5),i=1,2)/9.170d-10,0.8000/ data(rrec(i,30, 5),i=1,2)/9.630d-10,0.7990/ data(rrec(i, 6, 6),i=1,2)/4.700d-13,0.6240/ data(rrec(i, 7, 6),i=1,2)/2.200d-12,0.6390/ data(rrec(i, 8, 6),i=1,2)/5.100d-12,0.6600/ data(rrec(i, 9, 6),i=1,2)/9.171d-12,0.6757/ data(rrec(i,10, 6),i=1,2)/1.500d-11,0.6840/ data(rrec(i,11, 6),i=1,2)/2.191d-11,0.6875/ data(rrec(i,12, 6),i=1,2)/3.200d-11,0.6910/ data(rrec(i,13, 6),i=1,2)/4.308d-11,0.6970/ data(rrec(i,14, 6),i=1,2)/5.800d-11,0.7030/ data(rrec(i,15, 6),i=1,2)/7.316d-11,0.7027/ data(rrec(i,16, 6),i=1,2)/9.200d-11,0.7140/ data(rrec(i,17, 6),i=1,2)/1.198d-10,0.7508/ data(rrec(i,18, 6),i=1,2)/1.580d-10,0.7900/ data(rrec(i,19, 6),i=1,2)/2.048d-10,0.8032/ data(rrec(i,20, 6),i=1,2)/2.600d-10,0.8000/ data(rrec(i,21, 6),i=1,2)/3.280d-10,0.7990/ data(rrec(i,22, 6),i=1,2)/3.966d-10,0.7973/ data(rrec(i,23, 6),i=1,2)/4.760d-10,0.8000/ data(rrec(i,24, 6),i=1,2)/5.547d-10,0.8027/ data(rrec(i,25, 6),i=1,2)/6.313d-10,0.8058/ data(rrec(i,27, 6),i=1,2)/7.503d-10,0.8085/ data(rrec(i,28, 6),i=1,2)/7.940d-10,0.8080/ data(rrec(i,29, 6),i=1,2)/8.380d-10,0.8080/ data(rrec(i,30, 6),i=1,2)/8.810d-10,0.8070/ data(rrec(i, 7, 7),i=1,2)/4.100d-13,0.6080/ data(rrec(i, 8, 7),i=1,2)/2.000d-12,0.6460/ data(rrec(i, 9, 7),i=1,2)/5.231d-12,0.6615/ data(rrec(i,10, 7),i=1,2)/9.100d-12,0.6680/ data(rrec(i,11, 7),i=1,2)/1.447d-11,0.6814/ data(rrec(i,12, 7),i=1,2)/2.300d-11,0.6950/ data(rrec(i,13, 7),i=1,2)/3.145d-11,0.6915/ data(rrec(i,14, 7),i=1,2)/4.300d-11,0.6880/ data(rrec(i,15, 7),i=1,2)/5.659d-11,0.7023/ data(rrec(i,16, 7),i=1,2)/7.400d-11,0.7160/ data(rrec(i,17, 7),i=1,2)/9.561d-11,0.7102/ data(rrec(i,18, 7),i=1,2)/1.230d-10,0.7020/ data(rrec(i,19, 7),i=1,2)/1.587d-10,0.7105/ data(rrec(i,20, 7),i=1,2)/2.040d-10,0.7300/ data(rrec(i,21, 7),i=1,2)/2.630d-10,0.7490/ data(rrec(i,22, 7),i=1,2)/3.220d-10,0.7683/ data(rrec(i,23, 7),i=1,2)/3.950d-10,0.7830/ data(rrec(i,24, 7),i=1,2)/4.671d-10,0.7967/ data(rrec(i,25, 7),i=1,2)/5.407d-10,0.8058/ data(rrec(i,27, 7),i=1,2)/6.611d-10,0.8121/ data(rrec(i,28, 7),i=1,2)/7.080d-10,0.8110/ data(rrec(i,29, 7),i=1,2)/7.550d-10,0.8100/ data(rrec(i,30, 7),i=1,2)/8.020d-10,0.8090/ data(rrec(i, 8, 8),i=1,2)/3.100d-13,0.6780/ data(rrec(i, 9, 8),i=1,2)/1.344d-12,0.6708/ data(rrec(i,10, 8),i=1,2)/4.400d-12,0.6750/ data(rrec(i,11, 8),i=1,2)/7.849d-12,0.6952/ data(rrec(i,12, 8),i=1,2)/1.400d-11,0.7160/ data(rrec(i,13, 8),i=1,2)/2.049d-11,0.7090/ data(rrec(i,14, 8),i=1,2)/3.000d-11,0.7020/ data(rrec(i,15, 8),i=1,2)/4.125d-11,0.6965/ data(rrec(i,16, 8),i=1,2)/5.500d-11,0.7110/ data(rrec(i,17, 8),i=1,2)/7.280d-11,0.7518/ data(rrec(i,18, 8),i=1,2)/9.550d-11,0.7930/ data(rrec(i,19, 8),i=1,2)/1.235d-10,0.8052/ data(rrec(i,20, 8),i=1,2)/1.580d-10,0.8000/ data(rrec(i,21, 8),i=1,2)/2.060d-10,0.7990/ data(rrec(i,22, 8),i=1,2)/2.537d-10,0.7977/ data(rrec(i,23, 8),i=1,2)/3.190d-10,0.8020/ data(rrec(i,24, 8),i=1,2)/3.844d-10,0.8071/ data(rrec(i,25, 8),i=1,2)/4.564d-10,0.8124/ data(rrec(i,27, 8),i=1,2)/5.842d-10,0.8168/ data(rrec(i,28, 8),i=1,2)/6.380d-10,0.8160/ data(rrec(i,29, 8),i=1,2)/6.920d-10,0.8150/ data(rrec(i,30, 8),i=1,2)/7.460d-10,0.8140/ data(rrec(i, 9, 9),i=1,2)/6.273d-13,0.6798/ data(rrec(i,10, 9),i=1,2)/1.500d-12,0.6930/ data(rrec(i,11, 9),i=1,2)/3.399d-12,0.7054/ data(rrec(i,12, 9),i=1,2)/7.700d-12,0.7180/ data(rrec(i,13, 9),i=1,2)/1.275d-11,0.7170/ data(rrec(i,14, 9),i=1,2)/2.110d-11,0.7160/ data(rrec(i,15, 9),i=1,2)/2.975d-11,0.6945/ data(rrec(i,16, 9),i=1,2)/4.000d-11,0.6960/ data(rrec(i,17, 9),i=1,2)/5.281d-11,0.7491/ data(rrec(i,18, 9),i=1,2)/6.920d-11,0.8110/ data(rrec(i,19, 9),i=1,2)/9.044d-11,0.8251/ data(rrec(i,20, 9),i=1,2)/1.180d-10,0.8100/ data(rrec(i,21, 9),i=1,2)/1.580d-10,0.8040/ data(rrec(i,22, 9),i=1,2)/1.983d-10,0.7980/ data(rrec(i,23, 9),i=1,2)/2.570d-10,0.8040/ data(rrec(i,24, 9),i=1,2)/3.154d-10,0.8101/ data(rrec(i,25, 9),i=1,2)/3.837d-10,0.8183/ data(rrec(i,27, 9),i=1,2)/5.147d-10,0.8253/ data(rrec(i,28, 9),i=1,2)/5.750d-10,0.8240/ data(rrec(i,29, 9),i=1,2)/6.350d-10,0.8230/ data(rrec(i,30, 9),i=1,2)/6.960d-10,0.8210/ data(rrec(i,10,10),i=1,2)/2.200d-13,0.7590/ data(rrec(i,11,10),i=1,2)/8.775d-13,0.7467/ data(rrec(i,12,10),i=1,2)/3.500d-12,0.7340/ data(rrec(i,13,10),i=1,2)/6.481d-12,0.7345/ data(rrec(i,14,10),i=1,2)/1.200d-11,0.7350/ data(rrec(i,15,10),i=1,2)/1.834d-11,0.7285/ data(rrec(i,16,10),i=1,2)/2.700d-11,0.7330/ data(rrec(i,17,10),i=1,2)/3.711d-11,0.7641/ data(rrec(i,18,10),i=1,2)/4.900d-11,0.8010/ data(rrec(i,19,10),i=1,2)/6.444d-11,0.8175/ data(rrec(i,20,10),i=1,2)/8.510d-11,0.8200/ data(rrec(i,21,10),i=1,2)/1.170d-10,0.8220/ data(rrec(i,22,10),i=1,2)/1.494d-10,0.8242/ data(rrec(i,23,10),i=1,2)/2.010d-10,0.8280/ data(rrec(i,24,10),i=1,2)/2.525d-10,0.8311/ data(rrec(i,25,10),i=1,2)/3.177d-10,0.8341/ data(rrec(i,27,10),i=1,2)/4.552d-10,0.8364/ data(rrec(i,28,10),i=1,2)/5.250d-10,0.8360/ data(rrec(i,29,10),i=1,2)/5.950d-10,0.8360/ data(rrec(i,30,10),i=1,2)/6.650d-10,0.8350/ data(rrec(i,12,12),i=1,2)/1.400d-13,0.8550/ data(rrec(i,13,12),i=1,2)/7.197d-13,0.7697/ data(rrec(i,14,12),i=1,2)/3.700d-12,0.6930/ data(rrec(i,15,12),i=1,2)/7.980d-12,0.6829/ data(rrec(i,16,12),i=1,2)/1.200d-11,0.7010/ data(rrec(i,17,12),i=1,2)/1.800d-11,0.7232/ data(rrec(i,18,12),i=1,2)/2.690d-11,0.7440/ data(rrec(i,19,12),i=1,2)/3.748d-11,0.7628/ data(rrec(i,20,12),i=1,2)/5.040d-11,0.7800/ data(rrec(i,21,12),i=1,2)/7.240d-11,0.7950/ data(rrec(i,22,12),i=1,2)/9.440d-11,0.8107/ data(rrec(i,23,12),i=1,2)/1.350d-10,0.8220/ data(rrec(i,24,12),i=1,2)/1.751d-10,0.8340/ data(rrec(i,25,12),i=1,2)/2.298d-10,0.8417/ data(rrec(i,27,12),i=1,2)/3.461d-10,0.8469/ data(rrec(i,28,12),i=1,2)/4.030d-10,0.8460/ data(rrec(i,29,12),i=1,2)/4.600d-10,0.8450/ data(rrec(i,30,12),i=1,2)/5.170d-10,0.8440/ data(rrec(i,13,13),i=1,2)/3.980d-13,0.8019/ data(rrec(i,14,13),i=1,2)/1.000d-12,0.7860/ data(rrec(i,15,13),i=1,2)/2.558d-12,0.7629/ data(rrec(i,16,13),i=1,2)/5.700d-12,0.7550/ data(rrec(i,17,13),i=1,2)/1.011d-11,0.7703/ data(rrec(i,18,13),i=1,2)/1.580d-11,0.7930/ data(rrec(i,19,13),i=1,2)/2.448d-11,0.8052/ data(rrec(i,20,13),i=1,2)/3.760d-11,0.8100/ data(rrec(i,21,13),i=1,2)/5.870d-11,0.8150/ data(rrec(i,22,13),i=1,2)/7.972d-11,0.8206/ data(rrec(i,23,13),i=1,2)/1.130d-10,0.8270/ data(rrec(i,24,13),i=1,2)/1.470d-10,0.8325/ data(rrec(i,25,13),i=1,2)/1.908d-10,0.8372/ data(rrec(i,27,13),i=1,2)/2.976d-10,0.8406/ data(rrec(i,28,13),i=1,2)/3.630d-10,0.8400/ data(rrec(i,29,13),i=1,2)/4.280d-10,0.8390/ data(rrec(i,30,13),i=1,2)/4.940d-10,0.8390/ data(rrec(i,14,14),i=1,2)/5.900d-13,0.6010/ data(rrec(i,15,14),i=1,2)/1.294d-12,0.6766/ data(rrec(i,16,14),i=1,2)/2.700d-12,0.7450/ data(rrec(i,17,14),i=1,2)/5.165d-12,0.7893/ data(rrec(i,18,14),i=1,2)/9.120d-12,0.8110/ data(rrec(i,19,14),i=1,2)/1.513d-11,0.8186/ data(rrec(i,20,14),i=1,2)/2.400d-11,0.8200/ data(rrec(i,21,14),i=1,2)/3.960d-11,0.8220/ data(rrec(i,22,14),i=1,2)/5.518d-11,0.8245/ data(rrec(i,23,14),i=1,2)/8.370d-11,0.8280/ data(rrec(i,24,14),i=1,2)/1.123d-10,0.8313/ data(rrec(i,25,14),i=1,2)/1.525d-10,0.8342/ data(rrec(i,26,14),i=1,2)/2.000d-10,0.8360/ data(rrec(i,27,14),i=1,2)/2.537d-10,0.8364/ data(rrec(i,28,14),i=1,2)/3.160d-10,0.8360/ data(rrec(i,29,14),i=1,2)/3.780d-10,0.8360/ data(rrec(i,30,14),i=1,2)/4.410d-10,0.8350/ data(rrec(i,15,15),i=1,2)/9.761d-13,0.6209/ data(rrec(i,16,15),i=1,2)/1.800d-12,0.6860/ data(rrec(i,17,15),i=1,2)/3.320d-12,0.7579/ data(rrec(i,18,15),i=1,2)/6.030d-12,0.8120/ data(rrec(i,19,15),i=1,2)/1.063d-11,0.8269/ data(rrec(i,20,15),i=1,2)/1.800d-11,0.8200/ data(rrec(i,21,15),i=1,2)/3.130d-11,0.8180/ data(rrec(i,22,15),i=1,2)/4.451d-11,0.8153/ data(rrec(i,23,15),i=1,2)/6.830d-11,0.8200/ data(rrec(i,24,15),i=1,2)/9.206d-11,0.8246/ data(rrec(i,25,15),i=1,2)/1.250d-10,0.8302/ data(rrec(i,26,15),i=1,2)/1.640d-10,0.8340/ data(rrec(i,27,15),i=1,2)/2.093d-10,0.8349/ data(rrec(i,28,15),i=1,2)/2.630d-10,0.8340/ data(rrec(i,29,15),i=1,2)/3.170d-10,0.8330/ data(rrec(i,30,15),i=1,2)/3.700d-10,0.8320/ data(rrec(i,16,16),i=1,2)/4.100d-13,0.6300/ data(rrec(i,17,16),i=1,2)/1.248d-12,0.7663/ data(rrec(i,18,16),i=1,2)/3.230d-12,0.8690/ data(rrec(i,19,16),i=1,2)/6.384d-12,0.8790/ data(rrec(i,20,16),i=1,2)/1.070d-11,0.8400/ data(rrec(i,21,16),i=1,2)/1.920d-11,0.8210/ data(rrec(i,22,16),i=1,2)/2.765d-11,0.8012/ data(rrec(i,23,16),i=1,2)/4.650d-11,0.8060/ data(rrec(i,24,16),i=1,2)/6.539d-11,0.8099/ data(rrec(i,25,16),i=1,2)/9.539d-11,0.8202/ data(rrec(i,26,16),i=1,2)/1.330d-10,0.8280/ data(rrec(i,27,16),i=1,2)/1.769d-10,0.8299/ data(rrec(i,28,16),i=1,2)/2.290d-10,0.8280/ data(rrec(i,29,16),i=1,2)/2.810d-10,0.8260/ data(rrec(i,30,16),i=1,2)/3.330d-10,0.8240/ data(rrec(i,17,17),i=1,2)/1.010d-12,0.7380/ data(rrec(i,18,17),i=1,2)/1.950d-12,0.7520/ data(rrec(i,19,17),i=1,2)/3.766d-12,0.7662/ data(rrec(i,20,17),i=1,2)/7.080d-12,0.7800/ data(rrec(i,21,17),i=1,2)/1.430d-11,0.7920/ data(rrec(i,22,17),i=1,2)/2.152d-11,0.8038/ data(rrec(i,23,17),i=1,2)/3.740d-11,0.8120/ data(rrec(i,24,17),i=1,2)/5.335d-11,0.8207/ data(rrec(i,25,17),i=1,2)/7.807d-11,0.8260/ data(rrec(i,26,17),i=1,2)/1.090d-10,0.8290/ data(rrec(i,27,17),i=1,2)/1.459d-10,0.8296/ data(rrec(i,28,17),i=1,2)/1.910d-10,0.8290/ data(rrec(i,29,17),i=1,2)/2.360d-10,0.8280/ data(rrec(i,30,17),i=1,2)/2.810d-10,0.8280/ data(rrec(i,18,18),i=1,2)/3.770d-13,0.6510/ data(rrec(i,19,18),i=1,2)/1.304d-12,0.6753/ data(rrec(i,20,18),i=1,2)/3.960d-12,0.7000/ data(rrec(i,21,18),i=1,2)/1.130d-11,0.7240/ data(rrec(i,22,18),i=1,2)/1.857d-11,0.7484/ data(rrec(i,23,18),i=1,2)/3.170d-11,0.7680/ data(rrec(i,24,18),i=1,2)/4.479d-11,0.7883/ data(rrec(i,25,18),i=1,2)/6.106d-11,0.8020/ data(rrec(i,26,18),i=1,2)/8.130d-11,0.8100/ data(rrec(i,27,18),i=1,2)/1.098d-10,0.8118/ data(rrec(i,28,18),i=1,2)/1.500d-10,0.8100/ data(rrec(i,29,18),i=1,2)/1.900d-10,0.8080/ data(rrec(i,30,18),i=1,2)/2.300d-10,0.8060/ data(rrec(i,19,19),i=1,2)/2.762d-13,0.8023/ data(rrec(i,20,19),i=1,2)/6.780d-13,0.8000/ data(rrec(i,21,19),i=1,2)/2.330d-12,0.7980/ data(rrec(i,22,19),i=1,2)/3.983d-12,0.7955/ data(rrec(i,23,19),i=1,2)/1.150d-11,0.7940/ data(rrec(i,24,19),i=1,2)/1.906d-11,0.7919/ data(rrec(i,25,19),i=1,2)/3.620d-11,0.7907/ data(rrec(i,26,19),i=1,2)/6.050d-11,0.7900/ data(rrec(i,27,19),i=1,2)/8.818d-11,0.7898/ data(rrec(i,28,19),i=1,2)/1.190d-10,0.7900/ data(rrec(i,29,19),i=1,2)/1.500d-10,0.7900/ data(rrec(i,30,19),i=1,2)/1.810d-10,0.7900/ data(rrec(i,20,20),i=1,2)/1.120d-13,0.9000/ data(rrec(i,21,20),i=1,2)/6.540d-13,0.8670/ data(rrec(i,22,20),i=1,2)/1.196d-12,0.8344/ data(rrec(i,23,20),i=1,2)/5.330d-12,0.8090/ data(rrec(i,24,20),i=1,2)/9.471d-12,0.7846/ data(rrec(i,25,20),i=1,2)/2.169d-11,0.7683/ data(rrec(i,26,20),i=1,2)/4.120d-11,0.7590/ data(rrec(i,27,20),i=1,2)/6.409d-11,0.7570/ data(rrec(i,28,20),i=1,2)/8.910d-11,0.7590/ data(rrec(i,29,20),i=1,2)/1.140d-10,0.7610/ data(rrec(i,30,20),i=1,2)/1.390d-10,0.7630/ data(rrec(i,21,21),i=1,2)/1.170d-13,0.8980/ data(rrec(i,22,21),i=1,2)/5.330d-12,0.8640/ data(rrec(i,23,21),i=1,2)/1.060d-11,0.8300/ data(rrec(i,24,21),i=1,2)/1.580d-11,0.7960/ data(rrec(i,25,21),i=1,2)/2.100d-11,0.7620/ data(rrec(i,26,21),i=1,2)/2.620d-11,0.7280/ data(rrec(i,27,21),i=1,2)/2.822d-11,0.7280/ data(rrec(i,28,21),i=1,2)/3.040d-11,0.7280/ data(rrec(i,29,21),i=1,2)/3.260d-11,0.7280/ data(rrec(i,30,21),i=1,2)/3.480d-11,0.7280/ data(rrec(i,22,22),i=1,2)/1.220d-13,0.8970/ data(rrec(i,23,22),i=1,2)/3.870d-12,0.8480/ data(rrec(i,24,22),i=1,2)/7.610d-12,0.7980/ data(rrec(i,25,22),i=1,2)/1.140d-11,0.7480/ data(rrec(i,26,22),i=1,2)/1.510d-11,0.6990/ data(rrec(i,27,22),i=1,2)/1.626d-11,0.6990/ data(rrec(i,28,22),i=1,2)/1.750d-11,0.6990/ data(rrec(i,29,22),i=1,2)/1.870d-11,0.6990/ data(rrec(i,30,22),i=1,2)/2.000d-11,0.6990/ data(rrec(i,23,23),i=1,2)/1.270d-13,0.8950/ data(rrec(i,24,23),i=1,2)/2.680d-12,0.8240/ data(rrec(i,25,23),i=1,2)/5.240d-12,0.7530/ data(rrec(i,26,23),i=1,2)/7.800d-12,0.6820/ data(rrec(i,27,23),i=1,2)/8.402d-12,0.6820/ data(rrec(i,28,23),i=1,2)/9.050d-12,0.6820/ data(rrec(i,29,23),i=1,2)/9.700d-12,0.6820/ data(rrec(i,30,23),i=1,2)/1.030d-11,0.6820/ data(rrec(i,24,24),i=1,2)/1.320d-13,0.8940/ data(rrec(i,25,24),i=1,2)/1.730d-12,0.8200/ data(rrec(i,26,24),i=1,2)/3.320d-12,0.7460/ data(rrec(i,27,24),i=1,2)/3.575d-12,0.7460/ data(rrec(i,28,24),i=1,2)/3.580d-12,0.7460/ data(rrec(i,29,24),i=1,2)/3.580d-12,0.7460/ data(rrec(i,30,24),i=1,2)/3.590d-12,0.7460/ data(rrec(i,25,25),i=1,2)/1.370d-13,0.8920/ data(rrec(i,26,25),i=1,2)/1.020d-12,0.8430/ data(rrec(i,27,25),i=1,2)/1.278d-12,0.7682/ data(rrec(i,28,25),i=1,2)/1.600d-12,0.7000/ data(rrec(i,29,25),i=1,2)/1.920d-12,0.7000/ data(rrec(i,30,25),i=1,2)/2.240d-12,0.7000/ data(rrec(i,26,26),i=1,2)/1.420d-13,0.8910/ data(rrec(i,27,26),i=1,2)/4.459d-13,0.7897/ data(rrec(i,28,26),i=1,2)/1.400d-12,0.7000/ data(rrec(i,29,26),i=1,2)/1.500d-12,0.7000/ data(rrec(i,30,26),i=1,2)/1.600d-12,0.7000/ data(rrec(i,27,27),i=1,2)/2.510d-13,0.7950/ data(rrec(i,28,27),i=1,2)/1.000d-12,0.7000/ data(rrec(i,29,27),i=1,2)/1.000d-12,0.7000/ data(rrec(i,30,27),i=1,2)/1.100d-12,0.7000/ data(rrec(i,28,28),i=1,2)/3.600d-13,0.7000/ data(rrec(i,29,28),i=1,2)/3.600d-13,0.7000/ data(rrec(i,30,28),i=1,2)/3.600d-13,0.7000/ data(rrec(i,29,29),i=1,2)/3.600d-13,0.7000/ data(rrec(i,30,29),i=1,2)/3.600d-13,0.7000/ data(rrec(i,30,30),i=1,2)/3.600d-13,0.7000/ data(rnew(i, 1, 1),i=1,4)/7.982d-11,0.7480,3.148d+00,7.036d+05/ data(rnew(i, 2, 1),i=1,4)/1.891d-10,0.7524,9.370d+00,2.774d+06/ data(rnew(i, 3, 1),i=1,4)/3.039d-10,0.7539,1.871d+01,6.209d+06/ data(rnew(i, 4, 1),i=1,4)/4.290d-10,0.7557,3.000d+01,1.093d+07/ data(rnew(i, 5, 1),i=1,4)/5.437d-10,0.7560,4.576d+01,1.706d+07/ data(rnew(i, 6, 1),i=1,4)/6.556d-10,0.7567,6.523d+01,2.446d+07/ data(rnew(i, 7, 1),i=1,4)/7.586d-10,0.7563,9.015d+01,3.338d+07/ data(rnew(i, 8, 1),i=1,4)/8.616d-10,0.7563,1.191d+02,4.352d+07/ data(rnew(i, 9, 1),i=1,4)/9.712d-10,0.7566,1.499d+02,5.498d+07/ data(rnew(i,10, 1),i=1,4)/1.085d-09,0.7570,1.834d+02,6.776d+07/ data(rnew(i,11, 1),i=1,4)/1.163d-09,0.7558,2.328d+02,8.262d+07/ data(rnew(i,12, 1),i=1,4)/1.317d-09,0.7574,2.585d+02,9.769d+07/ data(rnew(i,13, 1),i=1,4)/1.419d-09,0.7578,3.057d+02,1.143d+08/ data(rnew(i,14, 1),i=1,4)/1.517d-09,0.7574,3.601d+02,1.329d+08/ data(rnew(i,15, 1),i=1,4)/1.586d-09,0.7560,4.327d+02,1.534d+08/ data(rnew(i,16, 1),i=1,4)/1.729d-09,0.7568,4.725d+02,1.746d+08/ data(rnew(i,17, 1),i=1,4)/1.791d-09,0.7565,5.591d+02,1.972d+08/ data(rnew(i,18, 1),i=1,4)/1.913d-09,0.7567,6.175d+02,2.212d+08/ data(rnew(i,19, 1),i=1,4)/2.033d-09,0.7569,6.797d+02,2.463d+08/ data(rnew(i,20, 1),i=1,4)/2.129d-09,0.7570,7.591d+02,2.739d+08/ data(rnew(i,21, 1),i=1,4)/2.262d-09,0.7578,8.186d+02,3.000d+08/ data(rnew(i,22, 1),i=1,4)/2.370d-09,0.7574,9.002d+02,3.307d+08/ data(rnew(i,23, 1),i=1,4)/2.415d-09,0.7565,1.032d+03,3.635d+08/ data(rnew(i,24, 1),i=1,4)/2.537d-09,0.7571,1.108d+03,3.954d+08/ data(rnew(i,25, 1),i=1,4)/2.618d-09,0.7565,1.225d+03,4.307d+08/ data(rnew(i,26, 1),i=1,4)/2.735d-09,0.7568,1.314d+03,4.659d+08/ data(rnew(i,27, 1),i=1,4)/2.809d-09,0.7565,1.444d+03,5.042d+08/ data(rnew(i,28, 1),i=1,4)/3.002d-09,0.7581,1.467d+03,5.409d+08/ data(rnew(i,29, 1),i=1,4)/3.022d-09,0.7564,1.666d+03,5.855d+08/ data(rnew(i,30, 1),i=1,4)/3.127d-09,0.7567,1.779d+03,6.246d+08/ data(rnew(i, 2, 2),i=1,4)/9.356d-10,0.7892,4.266d-02,4.677d+06/ data(rnew(i, 3, 2),i=1,4)/1.112d-10,0.6926,2.437d+01,8.323d+06/ data(rnew(i, 4, 2),i=1,4)/1.317d-10,0.6691,8.473d+01,1.412d+07/ data(rnew(i, 5, 2),i=1,4)/1.922d-10,0.6717,1.272d+02,1.975d+07/ data(rnew(i, 6, 2),i=1,4)/2.765d-10,0.6858,1.535d+02,2.556d+07/ data(rnew(i, 7, 2),i=1,4)/3.910d-10,0.6988,1.611d+02,3.271d+07/ data(rnew(i, 8, 2),i=1,4)/4.897d-10,0.7048,1.906d+02,4.093d+07/ data(rnew(i, 9, 2),i=1,4)/5.602d-10,0.7052,2.476d+02,5.077d+07/ data(rnew(i,10, 2),i=1,4)/6.161d-10,0.7029,3.274d+02,6.243d+07/ data(rnew(i,11, 2),i=1,4)/6.833d-10,0.7018,4.060d+02,7.491d+07/ data(rnew(i,12, 2),i=1,4)/7.510d-10,0.7020,4.921d+02,8.643d+07/ data(rnew(i,13, 2),i=1,4)/8.182d-10,0.7008,5.875d+02,1.007d+08/ data(rnew(i,14, 2),i=1,4)/8.722d-10,0.6996,7.098d+02,1.155d+08/ data(rnew(i,15, 2),i=1,4)/9.142d-10,0.6961,8.682d+02,1.335d+08/ data(rnew(i,16, 2),i=1,4)/9.692d-10,0.6945,1.017d+03,1.517d+08/ data(rnew(i,17, 2),i=1,4)/1.021d-09,0.6932,1.184d+03,1.695d+08/ data(rnew(i,18, 2),i=1,4)/1.087d-09,0.6936,1.329d+03,1.880d+08/ data(rnew(i,19, 2),i=1,4)/1.145d-09,0.6921,1.503d+03,2.098d+08/ data(rnew(i,20, 2),i=1,4)/1.179d-09,0.6893,1.757d+03,2.344d+08/ data(rnew(i,21, 2),i=1,4)/1.265d-09,0.6902,1.877d+03,2.555d+08/ data(rnew(i,22, 2),i=1,4)/1.322d-09,0.6885,2.092d+03,2.829d+08/ data(rnew(i,23, 2),i=1,4)/1.375d-09,0.6885,2.321d+03,3.056d+08/ data(rnew(i,24, 2),i=1,4)/1.422d-09,0.6874,2.589d+03,3.336d+08/ data(rnew(i,25, 2),i=1,4)/1.488d-09,0.6867,2.802d+03,3.623d+08/ data(rnew(i,26, 2),i=1,4)/1.542d-09,0.6859,3.073d+03,3.926d+08/ data(rnew(i,27, 2),i=1,4)/1.589d-09,0.6846,3.373d+03,4.267d+08/ data(rnew(i,28, 2),i=1,4)/1.676d-09,0.6861,3.530d+03,4.538d+08/ data(rnew(i,29, 2),i=1,4)/1.686d-09,0.6824,4.031d+03,4.948d+08/ data(rnew(i,30, 2),i=1,4)/1.758d-09,0.6834,4.254d+03,5.258d+08/ data(rnew(i, 3, 3),i=1,4)/1.036d-11,0.3880,1.077d+02,1.177d+07/ data(rnew(i, 4, 3),i=1,4)/2.338d-11,0.4211,3.647d+02,1.215d+07/ data(rnew(i, 5, 3),i=1,4)/4.487d-11,0.4644,5.371d+02,1.465d+07/ data(rnew(i, 6, 3),i=1,4)/8.540d-11,0.5247,5.014d+02,1.479d+07/ data(rnew(i, 7, 3),i=1,4)/1.169d-10,0.5470,6.793d+02,1.650d+07/ data(rnew(i, 8, 3),i=1,4)/2.053d-10,0.6019,4.772d+02,1.711d+07/ data(rnew(i, 9, 3),i=1,4)/2.739d-10,0.6188,5.033d+02,2.064d+07/ data(rnew(i,10, 3),i=1,4)/3.200d-10,0.6198,6.329d+02,2.616d+07/ data(rnew(i,11, 3),i=1,4)/3.873d-10,0.6295,7.000d+02,2.989d+07/ data(rnew(i,12, 3),i=1,4)/4.284d-10,0.6287,8.748d+02,3.586d+07/ data(rnew(i,13, 3),i=1,4)/4.881d-10,0.6326,9.941d+02,4.085d+07/ data(rnew(i,14, 3),i=1,4)/5.373d-10,0.6337,1.164d+03,4.677d+07/ data(rnew(i,15, 3),i=1,4)/5.876d-10,0.6354,1.341d+03,5.292d+07/ data(rnew(i,16, 3),i=1,4)/6.571d-10,0.6400,1.452d+03,5.796d+07/ data(rnew(i,17, 3),i=1,4)/7.076d-10,0.6397,1.653d+03,6.555d+07/ data(rnew(i,18, 3),i=1,4)/7.538d-10,0.6388,1.889d+03,7.306d+07/ data(rnew(i,19, 3),i=1,4)/8.182d-10,0.6411,2.044d+03,8.057d+07/ data(rnew(i,20, 3),i=1,4)/8.577d-10,0.6403,2.334d+03,8.850d+07/ data(rnew(i,21, 3),i=1,4)/9.162d-10,0.6413,2.543d+03,9.690d+07/ data(rnew(i,22, 3),i=1,4)/9.844d-10,0.6440,2.708d+03,1.044d+08/ data(rnew(i,23, 3),i=1,4)/1.020d-09,0.6427,3.057d+03,1.140d+08/ data(rnew(i,24, 3),i=1,4)/1.091d-09,0.6445,3.225d+03,1.229d+08/ data(rnew(i,25, 3),i=1,4)/1.151d-09,0.6451,3.461d+03,1.334d+08/ data(rnew(i,26, 3),i=1,4)/1.198d-09,0.6443,3.789d+03,1.437d+08/ data(rnew(i,27, 3),i=1,4)/1.211d-09,0.6406,4.357d+03,1.572d+08/ data(rnew(i,28, 3),i=1,4)/1.288d-09,0.6440,4.506d+03,1.651d+08/ data(rnew(i,29, 3),i=1,4)/1.372d-09,0.6472,4.627d+03,1.740d+08/ data(rnew(i,30, 3),i=1,4)/1.412d-09,0.6454,5.053d+03,1.891d+08/ data(rnew(i,11,11),i=1,4)/5.641d-12,0.1749,3.077d+02,2.617d+06/ data(rnew(i,12,11),i=1,4)/1.920d-11,0.3028,4.849d+02,5.890d+06/ data(rnew(i,13,11),i=1,4)/3.753d-11,0.3585,6.848d+02,9.035d+06/ data(rnew(i,14,11),i=1,4)/5.942d-11,0.3930,8.962d+02,1.213d+07/ data(rnew(i,15,11),i=1,4)/1.721d-10,0.5429,2.848d+02,3.975d+07/ data(rnew(i,16,11),i=1,4)/3.502d-10,0.6266,1.532d+02,1.755d+07/ data(rnew(i,17,11),i=1,4)/2.502d-10,0.5580,5.303d+02,4.558d+07/ data(rnew(i,18,11),i=1,4)/2.862d-10,0.5621,7.002d+02,4.885d+07/ data(rnew(i,19,11),i=1,4)/2.757d-10,0.5364,1.204d+03,7.013d+07/ data(rnew(i,20,11),i=1,4)/5.273d-10,0.6281,5.329d+02,3.188d+07/ data(rnew(i,21,11),i=1,4)/3.890d-10,0.5645,1.391d+03,6.295d+07/ data(rnew(i,22,11),i=1,4)/4.207d-10,0.5646,1.688d+03,6.872d+07/ data(rnew(i,23,11),i=1,4)/4.605d-10,0.5659,1.949d+03,7.419d+07/ data(rnew(i,24,11),i=1,4)/4.975d-10,0.5655,2.257d+03,8.072d+07/ data(rnew(i,25,11),i=1,4)/5.349d-10,0.5658,2.577d+03,8.710d+07/ data(rnew(i,26,11),i=1,4)/7.688d-10,0.6173,1.653d+03,6.161d+07/ data(rnew(i,27,11),i=1,4)/5.850d-10,0.5598,3.538d+03,1.052d+08/ data(rnew(i,28,11),i=1,4)/6.347d-10,0.5631,3.780d+03,1.116d+08/ data(rnew(i,29,11),i=1,4)/6.619d-10,0.5602,4.322d+03,1.210d+08/ data(rnew(i,30,11),i=1,4)/7.002d-10,0.5612,4.726d+03,1.287d+08/ data(rnew(i, 6, 4),i=1,4)/2.020D-09,0.7798,6.690D-01,2.425D+06/ data(rnew(i, 7, 4),i=1,4)/1.595D-11,0.3529,9.870D+03,2.584D+07/ data(rnew(i, 8, 4),i=1,4)/2.008D-11,0.3567,1.520D+04,3.843D+07/ data(rnew(i,10, 4),i=1,4)/2.793D-11,0.3533,3.017D+04,7.872D+07/ data(rnew(i, 6, 5),i=1,4)/8.577D-10,0.7837,7.286D-01,1.140D+07/ data(rnew(i, 7, 5),i=1,4)/7.039D-10,0.8607,2.203D+00,3.029D+06/ data(rnew(i, 8, 5),i=1,4)/1.542D-10,0.6712,1.775D+02,1.535D+08/ data(rnew(i,10, 5),i=1,4)/2.515D-10,0.7011,3.028D+02,8.903D+06/ data(rnew(i, 6, 6),i=1,4)/7.651D-09,0.8027,1.193D-03,9.334D+12/ data(rnew(i, 7, 6),i=1,4)/5.989D-10,0.7560,1.377D+00,1.517D+09/ data(rnew(i, 8, 6),i=1,4)/3.672D-09,0.7676,2.900D-01,8.521D+07/ data(rnew(i,10, 6),i=1,4)/9.353D-11,0.6270,9.031D+02,2.387D+07/ data(rnew(i, 7, 7),i=1,4)/1.243D-08,0.7022,1.136D-03,1.015D+13/ data(rnew(i, 8, 7),i=1,4)/1.816D-08,0.7170,6.717D-03,3.286D+12/ data(rnew(i,10, 7),i=1,4)/4.227D-11,0.5395,1.687D+03,1.491D+17/ data(rnew(i, 8, 8),i=1,4)/1.341D-10,0.6159,1.673D+00,6.366D+16/ data(rnew(i,10, 8),i=1,4)/9.563D-12,0.3067,9.768D+03,4.851D+17/ data(rnew(i,10, 9),i=1,4)/5.417D-08,0.6930,1.179D-03,1.060D+07/ data(rnew(i,10,10),i=1,4)/5.023D-12,0.2420,3.181D+02,1.450D+18/ data(fe(1,i),i=4,13)/4.33d-10,3.91d-10,3.49d-10,3.16d-10, &2.96d-10,2.59d-10,2.24d-10,1.91d-10,1.68d-10,1.46d-10/ data(fe(2,i),i=4,13)/0.531,0.523,0.521,0.534, &0.557,0.567,0.579,0.601,0.602,0.597/ data(fe(3,i),i=4,13)/5.77d-02,6.15d-02,6.22d-02,6.02d-02, &5.79d-02,5.65d-02,5.49d-02,5.10d-02,5.07d-02,5.22d-02/ end subroutine rrheavy (iz,in,t,r) C***************************************************************************** C** approximate radiative recombination rates for heavy (Z>28) atoms and ions C** (see Cranmer 2000) C** C** Input parameters: iz - atomic number C** in - number of electrons from 1 to iz C** t - temperature, K C** Output parameter: r - rate coefficient, cm^3 s^(-1) C***************************************************************************** implicit real*8 (a-h,o-z) r=0.0 if(iz.lt.28.or.iz.gt.92)then write(6,'('' rrheavy called with insane atomic number, ='',i4 & )') iz stop endif if(in.lt.1.or.in.gt.iz)then write(6,'('' rrheavy called with insane number elec ='',i4 & )') in stop endif ee = iz zz = iz-in c0 = -28.25 - 0.04923*ee c1 = 2.175 + 0.02212*ee aa = exp(c0) * (zz+1.0)**c1 r = aa / (t*1.0d-4)**0.8 return end subroutine dfit (iz,in,t,alphadi) C***************************************************************************** C by S. Cranmer, but data is from: C C Mazzotta, P., Mazzitelli, G., Colafrancesco, S., and Vittorio, N. C 1998, A&A Suppl Ser, 133, 403-409. C C iz : atomic number C in : number of electrons C ii : ion number (ii = iz-in+1) C t : electron temperature (in K) C alphadi : OUTPUT dielectronic recombination rate in cm^3/s C AD(1,iz,ii) : fit parameter c1 (in cm^3/s) C AD(2,iz,ii) : fit parameter c2 (in cm^3/s) C AD(3,iz,ii) : fit parameter c3 (in cm^3/s) C AD(4,iz,ii) : fit parameter c4 (in cm^3/s) C AD(5,iz,ii) : fit parameter E1 (in eV) C AD(6,iz,ii) : fit parameter E2 (in eV) C AD(7,iz,ii) : fit parameter E3 (in eV) C AD(8,iz,ii) : fit parameter E4 (in eV) C C alphadi = T^(-3/2) * SUM[j=1,4] (cj * exp(-Ej/T)) (T in eV) C***************************************************************************** implicit real*8 (a-h,o-z) common/AD/AD(8,28,28) alphadi = 0.0 ii = iz-in+1 if (iz.lt.1.or.iz.gt.28) return if (in.lt.1.or.in.gt.iz) return if (AD(1,iz,ii).eq.0.0) return te = t*8.617385d-05 alphadi = te**(-1.5) * > ( AD(1,iz,ii)*exp(-AD(5,iz,ii)/te) + > AD(2,iz,ii)*exp(-AD(6,iz,ii)/te) + > AD(3,iz,ii)*exp(-AD(7,iz,ii)/te) + > AD(4,iz,ii)*exp(-AD(8,iz,ii)/te) ) return end C******************************************** block data difit implicit real*8 (a-h,o-z) common/AD/AD(8,28,28) DATA(AD(I, 2, 2),I=1,8)/ 0.11200E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 39.70, 0.00, 0.00, 0.00/ DATA(AD(I, 3, 2),I=1,8)/ 0.13200E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 64.70, 0.00, 0.00, 0.00/ DATA(AD(I, 3, 3),I=1,8)/ 0.47995E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 91.80, 0.00, 0.00, 0.00/ DATA(AD(I, 4, 2),I=1,8)/ 0.52662E-09,0.00000E+00,0.00000E+00, > 0.00000E+00, 4.01, 0.00, 0.00, 0.00/ DATA(AD(I, 4, 3),I=1,8)/ 0.12621E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 118.51, 0.00, 0.00, 0.00/ DATA(AD(I, 4, 4),I=1,8)/ 0.87198E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 159.13, 0.00, 0.00, 0.00/ DATA(AD(I, 5, 2),I=1,8)/ 0.13602E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 9.95, 0.00, 0.00, 0.00/ DATA(AD(I, 5, 3),I=1,8)/ 0.14382E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 5.97, 0.00, 0.00, 0.00/ DATA(AD(I, 5, 4),I=1,8)/ 0.61189E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 194.86, 0.00, 0.00, 0.00/ DATA(AD(I, 5, 5),I=1,8)/ 0.16138E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 245.90, 0.00, 0.00, 0.00/ DATA(AD(I, 6, 2),I=1,8)/ 0.10422E-08,0.58484E-09,0.56306E-10, > 0.00000E+00, 12.57, 162.90, 6.30, 0.00/ DATA(AD(I, 6, 3),I=1,8)/ 0.46178E-11,0.28234E-08,0.00000E+00, > 0.00000E+00, 0.49, 11.78, 0.00, 0.00/ DATA(AD(I, 6, 4),I=1,8)/ 0.53858E-09,0.15056E-08,0.60332E-09, > 0.00000E+00, 185.96, 17.99, 2.41, 0.00/ DATA(AD(I, 6, 5),I=1,8)/ 0.14008E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 287.34, 0.00, 0.00, 0.00/ DATA(AD(I, 6, 6),I=1,8)/ 0.33558E-07,0.00000E-00,0.00000E-00, > 0.00000E+00, 356.46, 0.00, 0.00, 0.00/ DATA(AD(I, 7, 2),I=1,8)/ 0.23837E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 18.96, 0.00, 0.00, 0.00/ DATA(AD(I, 7, 3),I=1,8)/ 0.20570E-09,0.30609E-08,0.28010E-11, > 0.00000E+00, 10.22, 16.81, 2.19, 0.00/ DATA(AD(I, 7, 4),I=1,8)/ 0.64383E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 15.92, 0.00, 0.00, 0.00/ DATA(AD(I, 7, 5),I=1,8)/ 0.28503E-08,0.16140E-08,0.89319E-09, > 0.00000E+00, 11.43, 580.02,125.77, 0.00/ DATA(AD(I, 7, 6),I=1,8)/ 0.36659E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 401.99, 0.00, 0.00, 0.00/ DATA(AD(I, 7, 7),I=1,8)/ 0.47821E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 482.06, 0.00, 0.00, 0.00/ DATA(AD(I, 8, 2),I=1,8)/ 0.96900E-09,0.00000E+00,0.00000E+00, > 0.00000E+00, 15.60, 0.00, 0.00, 0.00/ DATA(AD(I, 8, 3),I=1,8)/ 0.38200E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 18.23, 0.00, 0.00, 0.00/ DATA(AD(I, 8, 4),I=1,8)/ 0.55713E-08,0.35028E-10,0.54359E-08, > 0.00000E+00, 38.17, 1.88, 17.81, 0.00/ DATA(AD(I, 8, 5),I=1,8)/ 0.91690E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 20.49, 0.00, 0.00, 0.00/ DATA(AD(I, 8, 6),I=1,8)/ 0.32073E-08,0.30424E-08,0.17648E-08, > 0.00000E+00, 29.35, 297.44, 5.47, 0.00/ DATA(AD(I, 8, 7),I=1,8)/ 0.52032E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 529.68, 0.00, 0.00, 0.00/ DATA(AD(I, 8, 8),I=1,8)/ 0.37755E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 517.02, 0.00, 0.00, 0.00/ DATA(AD(I, 9, 2),I=1,8)/ 0.12262E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 21.41, 0.00, 0.00, 0.00/ DATA(AD(I, 9, 3),I=1,8)/ 0.20278E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 18.08, 0.00, 0.00, 0.00/ DATA(AD(I, 9, 4),I=1,8)/ 0.10891E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 18.87, 0.00, 0.00, 0.00/ DATA(AD(I, 9, 5),I=1,8)/ 0.60827E-08,0.92198E-08,0.16239E-10, > 0.00000E+00, 19.32, 45.30, 1.96, 0.00/ DATA(AD(I, 9, 6),I=1,8)/ 0.12138E-07,0.64033E-09,0.00000E+00, > 0.00000E+00, 24.29, 2.67, 0.00, 0.00/ DATA(AD(I, 9, 7),I=1,8)/ 0.42472E-08,0.74190E-08,0.48538E-08, > 0.00000E+00, 105.49, 772.80, 12.87, 0.00/ DATA(AD(I, 9, 8),I=1,8)/ 0.67949E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 671.64, 0.00, 0.00, 0.00/ DATA(AD(I, 9, 9),I=1,8)/ 0.54967E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 744.74, 0.00, 0.00, 0.00/ DATA(AD(I,10, 2),I=1,8)/ 0.82844E-09,0.00000E+00,0.00000E+00, > 0.00000E+00, 27.30, 0.00, 0.00, 0.00/ DATA(AD(I,10, 3),I=1,8)/ 0.24796E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 26.02, 0.00, 0.00, 0.00/ DATA(AD(I,10, 4),I=1,8)/ 0.29160E-08,0.29811E-08,0.00000E+00, > 0.00000E+00, 19.30, 44.64, 0.00, 0.00/ DATA(AD(I,10, 5),I=1,8)/ 0.75562E-10,0.18094E-07,0.00000E+00, > 0.00000E+00, 1.84, 26.02, 0.00, 0.00/ DATA(AD(I,10, 6),I=1,8)/ 0.18230E-07,0.13364E-10,0.42362E-10, > 0.00000E+00, 28.66, 0.09, 0.39, 0.00/ DATA(AD(I,10, 7),I=1,8)/ 0.11016E-07,0.77985E-08,0.00000E+00, > 0.00000E+00, 42.07, 17.64, 0.00, 0.00/ DATA(AD(I,10, 8),I=1,8)/ 0.11214E-07,0.60141E-08,0.83210E-08, > 0.00000E+00, 713.62, 13.63,108.87, 0.00/ DATA(AD(I,10, 9),I=1,8)/ 0.89582E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 827.00, 0.00, 0.00, 0.00/ DATA(AD(I,10,10),I=1,8)/ 0.73367E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 980.60, 0.00, 0.00, 0.00/ DATA(AD(I,11, 2),I=1,8)/ 0.16612E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 39.40, 0.00, 0.00, 0.00/ DATA(AD(I,11, 3),I=1,8)/ 0.19650E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 34.04, 0.00, 0.00, 0.00/ DATA(AD(I,11, 4),I=1,8)/ 0.70088E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 29.71, 0.00, 0.00, 0.00/ DATA(AD(I,11, 5),I=1,8)/ 0.29943E-07,0.65032E-08,0.00000E+00, > 0.00000E+00, 95.34, 26.00, 0.00, 0.00/ DATA(AD(I,11, 6),I=1,8)/ 0.65422E-07,0.26047E-07,0.00000E+00, > 0.00000E+00, 109.31, 38.02, 0.00, 0.00/ DATA(AD(I,11, 7),I=1,8)/ 0.21507E-09,0.48401E-10,0.10112E-07, > 0.42443E-07, 1.73, 0.30, 22.10, 77.61/ DATA(AD(I,11, 8),I=1,8)/ 0.73881E-08,0.16139E-07,0.00000E+00, > 0.00000E+00, 15.34, 46.43, 0.00, 0.00/ DATA(AD(I,11, 9),I=1,8)/ 0.28353E-07,0.67295E-08,0.33242E-08, > 0.00000E+00, 348.56, 28.19, 11.08, 0.00/ DATA(AD(I,11,10),I=1,8)/ 0.11753E-06,0.00000E+00,0.00000E+00, > 0.00000E+00, 999.94, 0.00, 0.00, 0.00/ DATA(AD(I,11,11),I=1,8)/ 0.75535E-07,0.00000E+00,0.00000E+00, > 0.00000E+00,1096.30, 0.00, 0.00, 0.00/ DATA(AD(I,12, 2),I=1,8)/ 0.36524E-09,0.00000E+00,0.00000E+00, > 0.00000E+00, 4.34, 0.00, 0.00, 0.00/ DATA(AD(I,12, 3),I=1,8)/ 0.25177E-10,0.20914E-08,0.00000E+00, > 0.00000E+00, 37.94, 52.77, 0.00, 0.00/ DATA(AD(I,12, 4),I=1,8)/ 0.47229E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 42.93, 0.00, 0.00, 0.00/ DATA(AD(I,12, 5),I=1,8)/ 0.39376E-08,0.61912E-08,0.00000E+00, > 0.00000E+00, 100.13, 32.23, 0.00, 0.00/ DATA(AD(I,12, 6),I=1,8)/ 0.93588E-08,0.75525E-08,0.00000E+00, > 0.00000E+00, 28.26, 166.16, 0.00, 0.00/ DATA(AD(I,12, 7),I=1,8)/ 0.17973E-07,0.49237E-07,0.51956E-09, > 0.00000E+00, 136.77, 43.12, 15.14, 0.00/ DATA(AD(I,12, 8),I=1,8)/ 0.18333E-07,0.32980E-07,0.21743E-09, > 0.00000E+00, 32.35, 121.28, 2.03, 0.00/ DATA(AD(I,12, 9),I=1,8)/ 0.21927E-07,0.23986E-08,0.96429E-08, > 0.00000E+00, 35.75, 4.94,172.59, 0.00/ DATA(AD(I,12,10),I=1,8)/ 0.52667E-08,0.55117E-08,0.36781E-07, > 0.00000E+00, 16.16, 22.13,317.80, 0.00/ DATA(AD(I,12,11),I=1,8)/ 0.14578E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,1185.50, 0.00, 0.00, 0.00/ DATA(AD(I,12,12),I=1,8)/ 0.74230E-07,0.00000E+00,0.00000E+00, > 0.00000E+00,1249.50, 0.00, 0.00, 0.00/ DATA(AD(I,13, 2),I=1,8)/ 0.28345E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 7.42, 0.00, 0.00, 0.00/ DATA(AD(I,13, 3),I=1,8)/ 0.12653E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 5.79, 0.00, 0.00, 0.00/ DATA(AD(I,13, 4),I=1,8)/ 0.50656E-09,0.25579E-08,0.25077E-08, > 0.00000E+00, 60.79, 75.28, 95.20, 0.00/ DATA(AD(I,13, 5),I=1,8)/ 0.54393E-08,0.27060E-08,0.00000E+00, > 0.00000E+00, 65.83, 156.31, 0.00, 0.00/ DATA(AD(I,13, 6),I=1,8)/ 0.91188E-08,0.97571E-08,0.00000E+00, > 0.00000E+00, 36.70, 144.33, 0.00, 0.00/ DATA(AD(I,13, 7),I=1,8)/ 0.70600E-07,0.11990E-07,0.00000E+00, > 0.00000E+00, 154.77, 32.83, 0.00, 0.00/ DATA(AD(I,13, 8),I=1,8)/ 0.15221E-06,0.56355E-07,0.00000E+00, > 0.00000E+00, 168.98, 36.54, 0.00, 0.00/ DATA(AD(I,13, 9),I=1,8)/ 0.72670E-10,0.55499E-09,0.19795E-07, > 0.67984E-07, 0.52, 3.61, 28.71,122.65/ DATA(AD(I,13,10),I=1,8)/ 0.23354E-07,0.17971E-07,0.10436E-07, > 0.00000E+00, 57.44, 379.30, 16.58, 0.00/ DATA(AD(I,13,11),I=1,8)/ 0.47398E-08,0.55815E-07,0.91269E-08, > 0.00000E+00, 12.20, 419.18, 31.14, 0.00/ DATA(AD(I,13,12),I=1,8)/ 0.17562E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,1386.10, 0.00, 0.00, 0.00/ DATA(AD(I,13,13),I=1,8)/ 0.10226E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,1489.60, 0.00, 0.00, 0.00/ DATA(AD(I,14, 2),I=1,8)/ 0.48978E-11,0.60799E-09,0.00000E+00, > 0.00000E+00, 2.05, 9.68, 0.00, 0.00/ DATA(AD(I,14, 3),I=1,8)/ 0.22552E-10,0.56058E-08,0.00000E+00, > 0.00000E+00, 2.76, 10.13, 0.00, 0.00/ DATA(AD(I,14, 4),I=1,8)/ 0.47017E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 8.21, 0.00, 0.00, 0.00/ DATA(AD(I,14, 5),I=1,8)/ 0.12037E-08,0.43534E-08,0.69715E-08, > 0.00000E+00, 81.60, 102.41,122.94, 0.00/ DATA(AD(I,14, 6),I=1,8)/ 0.70871E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 98.23, 0.00, 0.00, 0.00/ DATA(AD(I,14, 7),I=1,8)/ 0.24189E-07,0.13438E-07,0.00000E+00, > 0.00000E+00, 130.55, 41.79, 0.00, 0.00/ DATA(AD(I,14, 8),I=1,8)/ 0.19917E-07,0.37445E-07,0.00000E+00, > 0.00000E+00, 35.76, 200.34, 0.00, 0.00/ DATA(AD(I,14, 9),I=1,8)/ 0.37634E-07,0.68663E-07,0.00000E+00, > 0.00000E+00, 30.67, 159.86, 0.00, 0.00/ DATA(AD(I,14,10),I=1,8)/ 0.79628E-07,0.23610E-08,0.22452E-07, > 0.58384E-09, 143.31, 4.22, 30.16, 0.75/ DATA(AD(I,14,11),I=1,8)/ 0.26441E-07,0.71134E-08,0.29975E-07, > 0.00000E+00, 47.69, 14.06,242.59, 0.00/ DATA(AD(I,14,12),I=1,8)/ 0.28288E-07,0.43159E-07,0.11559E-07, > 0.00000E+00, 178.96, 586.57, 17.65, 0.00/ DATA(AD(I,14,13),I=1,8)/ 0.20673E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,1601.80, 0.00, 0.00, 0.00/ DATA(AD(I,14,14),I=1,8)/ 0.11532E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,1773.50, 0.00, 0.00, 0.00/ DATA(AD(I,15, 2),I=1,8)/ 0.31221E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 14.16, 0.00, 0.00, 0.00/ DATA(AD(I,15, 3),I=1,8)/ 0.63587E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 11.20, 0.00, 0.00, 0.00/ DATA(AD(I,15, 4),I=1,8)/ 0.13559E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 11.68, 0.00, 0.00, 0.00/ DATA(AD(I,15, 5),I=1,8)/ 0.83716E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 10.14, 0.00, 0.00, 0.00/ DATA(AD(I,15, 6),I=1,8)/ 0.37241E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 126.47, 0.00, 0.00, 0.00/ DATA(AD(I,15, 7),I=1,8)/ 0.70615E-08,0.85429E-08,0.00000E+00, > 0.00000E+00, 234.24, 81.37, 0.00, 0.00/ DATA(AD(I,15, 8),I=1,8)/ 0.16342E-07,0.24382E-07,0.00000E+00, > 0.00000E+00, 45.80, 183.76, 0.00, 0.00/ DATA(AD(I,15, 9),I=1,8)/ 0.41029E-07,0.23141E-07,0.00000E+00, > 0.00000E+00, 245.22, 39.97, 0.00, 0.00/ DATA(AD(I,15,10),I=1,8)/ 0.59977E-07,0.99144E-07,0.00000E+00, > 0.00000E+00, 40.84, 240.15, 0.00, 0.00/ DATA(AD(I,15,11),I=1,8)/ 0.53845E-08,0.64448E-07,0.00000E+00, > 0.00000E+00, 254.05, 39.10, 0.00, 0.00/ DATA(AD(I,15,12),I=1,8)/ 0.42224E-07,0.14501E-07,0.00000E+00, > 0.00000E+00, 92.62, 17.96, 0.00, 0.00/ DATA(AD(I,15,13),I=1,8)/ 0.96573E-08,0.62033E-07,0.86501E-08, > 0.90697E-07, 40.34,4134.90, 14.92,483.94/ DATA(AD(I,15,14),I=1,8)/ 0.23880E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,1832.40, 0.00, 0.00, 0.00/ DATA(AD(I,15,15),I=1,8)/ 0.12960E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,1976.50, 0.00, 0.00, 0.00/ DATA(AD(I,16, 2),I=1,8)/ 0.13700E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 14.95, 0.00, 0.00, 0.00/ DATA(AD(I,16, 3),I=1,8)/ 0.80729E-08,0.11012E-09,0.00000E+00, > 0.00000E+00, 17.56, 7.07, 0.00, 0.00/ DATA(AD(I,16, 4),I=1,8)/ 0.18172E-07,0.59195E-10,0.00000E+00, > 0.00000E+00, 16.62, 2.40, 0.00, 0.00/ DATA(AD(I,16, 5),I=1,8)/ 0.17710E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 13.46, 0.00, 0.00, 0.00/ DATA(AD(I,16, 6),I=1,8)/ 0.14900E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 12.11, 0.00, 0.00, 0.00/ DATA(AD(I,16, 7),I=1,8)/ 0.33052E-08,0.19159E-07,0.51659E-07, > 0.00000E+00, 119.68, 163.20,197.20, 0.00/ DATA(AD(I,16, 8),I=1,8)/ 0.10719E-07,0.11147E-07,0.00000E+00, > 0.00000E+00, 59.55, 244.72, 0.00, 0.00/ DATA(AD(I,16, 9),I=1,8)/ 0.21322E-07,0.19037E-07,0.00000E+00, > 0.00000E+00, 273.50, 50.32, 0.00, 0.00/ DATA(AD(I,16,10),I=1,8)/ 0.25517E-07,0.17862E-07,0.00000E+00, > 0.00000E+00, 44.58, 295.30, 0.00, 0.00/ DATA(AD(I,16,11),I=1,8)/ 0.12407E-08,0.95121E-07,0.88266E-07, > 0.00000E+00, 13.22, 61.67,240.37, 0.00/ DATA(AD(I,16,12),I=1,8)/ 0.35726E-07,0.23784E-06,0.15130E-08, > 0.00000E+00, 49.10, 273.17, 11.09, 0.00/ DATA(AD(I,16,13),I=1,8)/ 0.33539E-07,0.94390E-08,0.73000E-07, > 0.00000E+00, 55.34, 17.29,305.05, 0.00/ DATA(AD(I,16,14),I=1,8)/ 0.79017E-08,0.11609E-06,0.12726E-07, > 0.00000E+00, 13.61, 529.25, 39.33, 0.00/ DATA(AD(I,16,15),I=1,8)/ 0.27153E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,2078.00, 0.00, 0.00, 0.00/ DATA(AD(I,16,16),I=1,8)/ 0.14747E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,2262.00, 0.00, 0.00, 0.00/ DATA(AD(I,17, 2),I=1,8)/ 0.14263E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 20.87, 0.00, 0.00, 0.00/ DATA(AD(I,17, 3),I=1,8)/ 0.25533E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 15.15, 0.00, 0.00, 0.00/ DATA(AD(I,17, 4),I=1,8)/ 0.25199E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 19.48, 0.00, 0.00, 0.00/ DATA(AD(I,17, 5),I=1,8)/ 0.57075E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 19.89, 0.00, 0.00, 0.00/ DATA(AD(I,17, 6),I=1,8)/ 0.41448E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 16.95, 0.00, 0.00, 0.00/ DATA(AD(I,17, 7),I=1,8)/ 0.15771E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 14.09, 0.00, 0.00, 0.00/ DATA(AD(I,17, 8),I=1,8)/ 0.13534E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 197.04, 0.00, 0.00, 0.00/ DATA(AD(I,17, 9),I=1,8)/ 0.13734E-07,0.19489E-07,0.00000E+00, > 0.00000E+00, 60.22, 296.76, 0.00, 0.00/ DATA(AD(I,17,10),I=1,8)/ 0.23149E-07,0.28820E-07,0.00000E+00, > 0.00000E+00, 55.10, 337.99, 0.00, 0.00/ DATA(AD(I,17,11),I=1,8)/ 0.29460E-07,0.42069E-07,0.00000E+00, > 0.00000E+00, 48.65, 341.46, 0.00, 0.00/ DATA(AD(I,17,12),I=1,8)/ 0.10481E-06,0.10795E-06,0.00000E+00, > 0.00000E+00, 61.84, 282.43, 0.00, 0.00/ DATA(AD(I,17,13),I=1,8)/ 0.10495E-06,0.89398E-07,0.00000E+00, > 0.00000E+00, 58.55, 331.71, 0.00, 0.00/ DATA(AD(I,17,14),I=1,8)/ 0.10759E-07,0.48806E-07,0.89704E-07, > 0.00000E+00, 11.35, 74.52,398.20, 0.00/ DATA(AD(I,17,15),I=1,8)/ 0.14635E-07,0.13946E-06,0.84726E-08, > 0.00000E+00, 41.24, 561.41, 13.49, 0.00/ DATA(AD(I,17,16),I=1,8)/ 0.30460E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,2338.60, 0.00, 0.00, 0.00/ DATA(AD(I,17,17),I=1,8)/ 0.16126E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,2493.90, 0.00, 0.00, 0.00/ DATA(AD(I,18, 2),I=1,8)/ 0.61744E-09,0.00000E+00,0.00000E+00, > 0.00000E+00, 27.61, 0.00, 0.00, 0.00/ DATA(AD(I,18, 3),I=1,8)/ 0.59857E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 25.22, 0.00, 0.00, 0.00/ DATA(AD(I,18, 4),I=1,8)/ 0.23832E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 26.93, 0.00, 0.00, 0.00/ DATA(AD(I,18, 5),I=1,8)/ 0.34167E-07,0.24798E-07,0.00000E+00, > 0.00000E+00, 27.42, 18.60, 0.00, 0.00/ DATA(AD(I,18, 6),I=1,8)/ 0.75569E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 22.02, 0.00, 0.00, 0.00/ DATA(AD(I,18, 7),I=1,8)/ 0.56364E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 18.95, 0.00, 0.00, 0.00/ DATA(AD(I,18, 8),I=1,8)/ 0.14257E-07,0.33554E-07,0.00000E+00, > 0.00000E+00, 130.87, 16.46, 0.00, 0.00/ DATA(AD(I,18, 9),I=1,8)/ 0.11938E-06,0.00000E+00,0.00000E+00, > 0.00000E+00, 249.90, 0.00, 0.00, 0.00/ DATA(AD(I,18,10),I=1,8)/ 0.27558E-06,0.72516E-08,0.00000E+00, > 0.00000E+00, 261.61, 85.96, 0.00, 0.00/ DATA(AD(I,18,11),I=1,8)/ 0.34885E-07,0.34467E-08,0.18982E-06, > 0.00000E+00, 180.00, 37.91,304.69, 0.00/ DATA(AD(I,18,12),I=1,8)/ 0.27490E-06,0.27766E-07,0.00000E+00, > 0.00000E+00, 288.60, 39.68, 0.00, 0.00/ DATA(AD(I,18,13),I=1,8)/ 0.38653E-06,0.75191E-07,0.00000E+00, > 0.00000E+00, 372.81, 52.02, 0.00, 0.00/ DATA(AD(I,18,14),I=1,8)/ 0.53477E-07,0.34686E-06,0.00000E+00, > 0.00000E+00, 51.37, 393.80, 0.00, 0.00/ DATA(AD(I,18,15),I=1,8)/ 0.44154E-07,0.98829E-08,0.11284E-06, > 0.00000E+00, 59.13, 11.43,374.89, 0.00/ DATA(AD(I,18,16),I=1,8)/ 0.14092E-07,0.14407E-06,0.15849E-07, > 0.00000E+00, 98.61, 509.91, 16.87, 0.00/ DATA(AD(I,18,17),I=1,8)/ 0.33772E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,2614.20, 0.00, 0.00, 0.00/ DATA(AD(I,18,18),I=1,8)/ 0.18038E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,2784.40, 0.00, 0.00, 0.00/ DATA(AD(I,19, 2),I=1,8)/ 0.18972E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 44.41, 0.00, 0.00, 0.00/ DATA(AD(I,19, 3),I=1,8)/ 0.87035E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 32.74, 0.00, 0.00, 0.00/ DATA(AD(I,19, 4),I=1,8)/ 0.25039E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 30.42, 0.00, 0.00, 0.00/ DATA(AD(I,19, 5),I=1,8)/ 0.24985E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 26.73, 0.00, 0.00, 0.00/ DATA(AD(I,19, 6),I=1,8)/ 0.87476E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 24.81, 0.00, 0.00, 0.00/ DATA(AD(I,19, 7),I=1,8)/ 0.92957E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 24.73, 0.00, 0.00, 0.00/ DATA(AD(I,19, 8),I=1,8)/ 0.69297E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 20.23, 0.00, 0.00, 0.00/ DATA(AD(I,19, 9),I=1,8)/ 0.19059E-07,0.40427E-07,0.00000E+00, > 0.00000E+00, 124.64, 18.31, 0.00, 0.00/ DATA(AD(I,19,10),I=1,8)/ 0.21771E-06,0.00000E+00,0.00000E+00, > 0.00000E+00, 349.99, 0.00, 0.00, 0.00/ DATA(AD(I,19,11),I=1,8)/ 0.59170E-07,0.20566E-08,0.32897E-06, > 0.00000E+00, 194.27, 58.56,324.25, 0.00/ DATA(AD(I,19,12),I=1,8)/ 0.42213E-08,0.51425E-07,0.25244E-06, > 0.00000E+00, 39.41, 201.16,343.01, 0.00/ DATA(AD(I,19,13),I=1,8)/ 0.38763E-07,0.71362E-07,0.00000E+00, > 0.00000E+00, 55.34, 410.96, 0.00, 0.00/ DATA(AD(I,19,14),I=1,8)/ 0.14932E-06,0.89788E-07,0.00000E+00, > 0.00000E+00, 321.70, 56.04, 0.00, 0.00/ DATA(AD(I,19,15),I=1,8)/ 0.87758E-07,0.10478E-06,0.00000E+00, > 0.00000E+00, 251.18, 47.65, 0.00, 0.00/ DATA(AD(I,19,16),I=1,8)/ 0.15891E-06,0.20228E-07,0.48317E-07, > 0.00000E+00, 503.55, 21.30, 80.46, 0.00/ DATA(AD(I,19,17),I=1,8)/ 0.12110E-07,0.16771E-07,0.18950E-06, > 0.00000E+00, 15.18, 50.83,627.01, 0.00/ DATA(AD(I,19,18),I=1,8)/ 0.37057E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,2904.80, 0.00, 0.00, 0.00/ DATA(AD(I,19,19),I=1,8)/ 0.19478E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,3055.50, 0.00, 0.00, 0.00/ DATA(AD(I,20, 2),I=1,8)/ 0.15895E-09,0.00000E+00,0.00000E+00, > 0.00000E+00, 3.09, 0.00, 0.00, 0.00/ DATA(AD(I,20, 3),I=1,8)/ 0.18358E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 35.49, 0.00, 0.00, 0.00/ DATA(AD(I,20, 4),I=1,8)/ 0.69676E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 35.30, 0.00, 0.00, 0.00/ DATA(AD(I,20, 5),I=1,8)/ 0.74360E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 33.70, 0.00, 0.00, 0.00/ DATA(AD(I,20, 6),I=1,8)/ 0.51281E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 34.62, 0.00, 0.00, 0.00/ DATA(AD(I,20, 7),I=1,8)/ 0.19928E-07,0.93442E-07,0.00000E+00, > 0.00000E+00, 57.66, 26.81, 0.00, 0.00/ DATA(AD(I,20, 8),I=1,8)/ 0.11486E-06,0.00000E+00,0.00000E+00, > 0.00000E+00, 28.16, 0.00, 0.00, 0.00/ DATA(AD(I,20, 9),I=1,8)/ 0.87107E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 22.68, 0.00, 0.00, 0.00/ DATA(AD(I,20,10),I=1,8)/ 0.35334E-07,0.48322E-07,0.00000E+00, > 0.00000E+00, 162.14, 20.08, 0.00, 0.00/ DATA(AD(I,20,11),I=1,8)/ 0.32421E-06,0.00000E+00,0.00000E+00, > 0.00000E+00, 403.62, 0.00, 0.00, 0.00/ DATA(AD(I,20,12),I=1,8)/ 0.22700E-06,0.29562E-06,0.42190E-08, > 0.00000E+00, 273.87, 411.36, 71.41, 0.00/ DATA(AD(I,20,13),I=1,8)/ 0.51766E-07,0.48132E-08,0.34464E-06, > 0.00000E+00, 207.87, 40.64,389.25, 0.00/ DATA(AD(I,20,14),I=1,8)/ 0.43834E-07,0.87668E-07,0.00000E+00, > 0.00000E+00, 59.55, 448.94, 0.00, 0.00/ DATA(AD(I,20,15),I=1,8)/ 0.11063E-06,0.41839E-08,0.16884E-06, > 0.00000E+00, 70.38, 21.64,440.49, 0.00/ DATA(AD(I,20,16),I=1,8)/ 0.64086E-07,0.45226E-06,0.00000E+00, > 0.00000E+00, 58.44, 500.92, 0.00, 0.00/ DATA(AD(I,20,17),I=1,8)/ 0.53607E-07,0.12456E-07,0.20501E-06, > 0.00000E+00, 66.32, 15.06,472.06, 0.00/ DATA(AD(I,20,18),I=1,8)/ 0.13790E-07,0.18636E-07,0.20503E-06, > 0.00000E+00, 15.77, 56.46,643.42, 0.00/ DATA(AD(I,20,19),I=1,8)/ 0.40284E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,3210.40, 0.00, 0.00, 0.00/ DATA(AD(I,20,20),I=1,8)/ 0.21437E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,3221.70, 0.00, 0.00, 0.00/ DATA(AD(I,21, 2),I=1,8)/ 0.19408E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 5.07, 0.00, 0.00, 0.00/ DATA(AD(I,21, 3),I=1,8)/ 0.10475E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 9.92, 0.00, 0.00, 0.00/ DATA(AD(I,21, 4),I=1,8)/ 0.34812E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 41.94, 0.00, 0.00, 0.00/ DATA(AD(I,21, 5),I=1,8)/ 0.73736E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 41.03, 0.00, 0.00, 0.00/ DATA(AD(I,21, 6),I=1,8)/ 0.96017E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 30.08, 0.00, 0.00, 0.00/ DATA(AD(I,21, 7),I=1,8)/ 0.66691E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 37.76, 0.00, 0.00, 0.00/ DATA(AD(I,21, 8),I=1,8)/ 0.83032E-07,0.49007E-07,0.00000E+00, > 0.00000E+00, 31.81, 49.80, 0.00, 0.00/ DATA(AD(I,21, 9),I=1,8)/ 0.12470E-06,0.00000E+00,0.00000E+00, > 0.00000E+00, 27.70, 0.00, 0.00, 0.00/ DATA(AD(I,21,10),I=1,8)/ 0.26376E-08,0.12300E-06,0.11273E-06, > 0.00000E+00, 108.18, 425.00, 27.04, 0.00/ DATA(AD(I,21,11),I=1,8)/ 0.53976E-07,0.77365E-08,0.84131E-07, > 0.00000E+00, 21.27, 72.42,296.30, 0.00/ DATA(AD(I,21,12),I=1,8)/ 0.43039E-06,0.00000E+00,0.00000E+00, > 0.00000E+00, 461.35, 0.00, 0.00, 0.00/ DATA(AD(I,21,13),I=1,8)/ 0.27027E-08,0.95588E-07,0.58261E-06, > 0.00000E+00, 60.66, 232.90,414.65, 0.00/ DATA(AD(I,21,14),I=1,8)/ 0.64571E-07,0.55062E-08,0.43891E-06, > 0.00000E+00, 227.98, 42.01,428.61, 0.00/ DATA(AD(I,21,15),I=1,8)/ 0.40582E-07,0.44622E-06,0.00000E+00, > 0.00000E+00, 58.33, 481.87, 0.00, 0.00/ DATA(AD(I,21,16),I=1,8)/ 0.99273E-07,0.56277E-06,0.00000E+00, > 0.00000E+00, 60.11, 509.27, 0.00, 0.00/ DATA(AD(I,21,17),I=1,8)/ 0.68908E-07,0.51125E-06,0.00000E+00, > 0.00000E+00, 61.85, 531.91, 0.00, 0.00/ DATA(AD(I,21,18),I=1,8)/ 0.23298E-06,0.23758E-07,0.55664E-07, > 0.00000E+00, 529.49, 21.48, 86.16, 0.00/ DATA(AD(I,21,19),I=1,8)/ 0.14570E-07,0.20994E-07,0.23139E-06, > 0.00000E+00, 15.76, 58.55,675.59, 0.00/ DATA(AD(I,21,20),I=1,8)/ 0.43423E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,3531.10, 0.00, 0.00, 0.00/ DATA(AD(I,21,21),I=1,8)/ 0.26375E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,4288.40, 0.00, 0.00, 0.00/ DATA(AD(I,22, 2),I=1,8)/ 0.33937E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 9.67, 0.00, 0.00, 0.00/ DATA(AD(I,22, 3),I=1,8)/ 0.18814E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 17.00, 0.00, 0.00, 0.00/ DATA(AD(I,22, 4),I=1,8)/ 0.39478E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 11.19, 0.00, 0.00, 0.00/ DATA(AD(I,22, 5),I=1,8)/ 0.58864E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 46.98, 0.00, 0.00, 0.00/ DATA(AD(I,22, 6),I=1,8)/ 0.67673E-07,0.24664E-06,0.00000E+00, > 0.00000E+00, 61.16, 25.80, 0.00, 0.00/ DATA(AD(I,22, 7),I=1,8)/ 0.12128E-06,0.10287E-06,0.00000E+00, > 0.00000E+00, 107.07, 25.89, 0.00, 0.00/ DATA(AD(I,22, 8),I=1,8)/ 0.82929E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 43.08, 0.00, 0.00, 0.00/ DATA(AD(I,22, 9),I=1,8)/ 0.37370E-07,0.11878E-06,0.00000E+00, > 0.00000E+00, 131.64, 42.28, 0.00, 0.00/ DATA(AD(I,22,10),I=1,8)/ 0.25841E-07,0.14542E-06,0.00000E+00, > 0.00000E+00, 142.17, 31.70, 0.00, 0.00/ DATA(AD(I,22,11),I=1,8)/ 0.41990E-07,0.97187E-07,0.00000E+00, > 0.00000E+00, 114.16, 26.44, 0.00, 0.00/ DATA(AD(I,22,12),I=1,8)/ 0.24227E-07,0.14000E-06,0.60410E-07, > 0.00000E+00, 131.74, 450.00, 22.84, 0.00/ DATA(AD(I,22,13),I=1,8)/ 0.25366E-06,0.26316E-06,0.00000E+00, > 0.00000E+00, 366.00, 529.00, 0.00, 0.00/ DATA(AD(I,22,14),I=1,8)/ 0.32191E-06,0.54315E-06,0.48707E-08, > 0.00000E+00, 321.26, 518.04, 71.17, 0.00/ DATA(AD(I,22,15),I=1,8)/ 0.87366E-07,0.62262E-08,0.53908E-06, > 0.00000E+00, 253.28, 43.62,487.55, 0.00/ DATA(AD(I,22,16),I=1,8)/ 0.51102E-06,0.44710E-07,0.00000E+00, > 0.00000E+00, 542.66, 60.95, 0.00, 0.00/ DATA(AD(I,22,17),I=1,8)/ 0.63135E-06,0.10803E-06,0.00000E+00, > 0.00000E+00, 577.27, 61.85, 0.00, 0.00/ DATA(AD(I,22,18),I=1,8)/ 0.71125E-07,0.57259E-06,0.00000E+00, > 0.00000E+00, 61.10, 570.26, 0.00, 0.00/ DATA(AD(I,22,19),I=1,8)/ 0.28695E-07,0.58948E-07,0.29049E-06, > 0.00000E+00, 22.44, 93.06,577.76, 0.00/ DATA(AD(I,22,20),I=1,8)/ 0.18425E-07,0.22134E-07,0.27133E-06, > 0.00000E+00, 17.33, 74.29,731.57, 0.00/ DATA(AD(I,22,21),I=1,8)/ 0.46442E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,3866.70, 0.00, 0.00, 0.00/ DATA(AD(I,22,22),I=1,8)/ 0.24994E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,4036.00, 0.00, 0.00, 0.00/ DATA(AD(I,23, 2),I=1,8)/ 0.28191E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 11.70, 0.00, 0.00, 0.00/ DATA(AD(I,23, 3),I=1,8)/ 0.11491E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 14.30, 0.00, 0.00, 0.00/ DATA(AD(I,23, 4),I=1,8)/ 0.20817E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 23.13, 0.00, 0.00, 0.00/ DATA(AD(I,23, 5),I=1,8)/ 0.61416E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 50.94, 0.00, 0.00, 0.00/ DATA(AD(I,23, 6),I=1,8)/ 0.73091E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 46.56, 0.00, 0.00, 0.00/ DATA(AD(I,23, 7),I=1,8)/ 0.18490E-06,0.00000E+00,0.00000E+00, > 0.00000E+00, 53.54, 0.00, 0.00, 0.00/ DATA(AD(I,23, 8),I=1,8)/ 0.18439E-06,0.00000E+00,0.00000E+00, > 0.00000E+00, 51.34, 0.00, 0.00, 0.00/ DATA(AD(I,23, 9),I=1,8)/ 0.99104E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 45.86, 0.00, 0.00, 0.00/ DATA(AD(I,23,10),I=1,8)/ 0.12085E-06,0.66932E-07,0.00000E+00, > 0.00000E+00, 37.03, 72.23, 0.00, 0.00/ DATA(AD(I,23,11),I=1,8)/ 0.16869E-06,0.00000E+00,0.00000E+00, > 0.00000E+00, 32.99, 0.00, 0.00, 0.00/ DATA(AD(I,23,12),I=1,8)/ 0.46636E-07,0.22300E-06,0.66576E-07, > 0.00000E+00, 140.52, 553.00, 30.74, 0.00/ DATA(AD(I,23,13),I=1,8)/ 0.68442E-07,0.30808E-07,0.22800E-06, > 0.00000E+00, 24.17, 151.73,525.00, 0.00/ DATA(AD(I,23,14),I=1,8)/ 0.65695E-06,0.00000E+00,0.00000E+00, > 0.00000E+00, 515.79, 0.00, 0.00, 0.00/ DATA(AD(I,23,15),I=1,8)/ 0.19186E-06,0.40962E-08,0.86568E-06, > 0.00000E+00, 296.21, 64.61,525.97, 0.00/ DATA(AD(I,23,16),I=1,8)/ 0.73660E-08,0.56468E-06,0.20412E-06, > 0.00000E+00, 46.05, 575.33,322.95, 0.00/ DATA(AD(I,23,17),I=1,8)/ 0.48730E-07,0.58214E-06,0.00000E+00, > 0.00000E+00, 64.33, 585.52, 0.00, 0.00/ DATA(AD(I,23,18),I=1,8)/ 0.70633E-06,0.11809E-06,0.00000E+00, > 0.00000E+00, 619.14, 65.17, 0.00, 0.00/ DATA(AD(I,23,19),I=1,8)/ 0.63289E-06,0.72789E-07,0.00000E+00, > 0.00000E+00, 643.97, 60.37, 0.00, 0.00/ DATA(AD(I,23,20),I=1,8)/ 0.29054E-06,0.53222E-07,0.87913E-07, > 0.00000E+00, 752.79, 35.61,204.16, 0.00/ DATA(AD(I,23,21),I=1,8)/ 0.25232E-07,0.18939E-07,0.29455E-06, > 0.00000E+00, 75.02, 17.10,755.19, 0.00/ DATA(AD(I,23,22),I=1,8)/ 0.49311E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,4217.30, 0.00, 0.00, 0.00/ DATA(AD(I,23,23),I=1,8)/ 0.26375E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,4288.40, 0.00, 0.00, 0.00/ DATA(AD(I,24, 2),I=1,8)/ 0.21424E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 17.42, 0.00, 0.00, 0.00/ DATA(AD(I,24, 3),I=1,8)/ 0.78066E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 11.72, 0.00, 0.00, 0.00/ DATA(AD(I,24, 4),I=1,8)/ 0.27856E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 24.81, 0.00, 0.00, 0.00/ DATA(AD(I,24, 5),I=1,8)/ 0.35211E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 29.44, 0.00, 0.00, 0.00/ DATA(AD(I,24, 6),I=1,8)/ 0.48082E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 33.32, 0.00, 0.00, 0.00/ DATA(AD(I,24, 7),I=1,8)/ 0.11759E-06,0.00000E+00,0.00000E+00, > 0.00000E+00, 59.55, 0.00, 0.00, 0.00/ DATA(AD(I,24, 8),I=1,8)/ 0.34152E-06,0.12312E-06,0.00000E+00, > 0.00000E+00, 97.42, 17.85, 0.00, 0.00/ DATA(AD(I,24, 9),I=1,8)/ 0.51241E-07,0.40645E-06,0.00000E+00, > 0.00000E+00, 18.32, 126.38, 0.00, 0.00/ DATA(AD(I,24,10),I=1,8)/ 0.11538E-06,0.00000E+00,0.00000E+00, > 0.00000E+00, 51.23, 0.00, 0.00, 0.00/ DATA(AD(I,24,11),I=1,8)/ 0.73348E-07,0.11775E-06,0.00000E+00, > 0.00000E+00, 194.76, 66.20, 0.00, 0.00/ DATA(AD(I,24,12),I=1,8)/ 0.72700E-07,0.17038E-06,0.00000E+00, > 0.00000E+00, 189.63, 33.14, 0.00, 0.00/ DATA(AD(I,24,13),I=1,8)/ 0.84181E-07,0.11566E-06,0.00000E+00, > 0.00000E+00, 204.22, 33.17, 0.00, 0.00/ DATA(AD(I,24,14),I=1,8)/ 0.40285E-07,0.31500E-06,0.76307E-07, > 0.00000E+00, 171.22, 590.00, 26.59, 0.00/ DATA(AD(I,24,15),I=1,8)/ 0.34034E-06,0.40898E-06,0.00000E+00, > 0.00000E+00, 424.00, 675.00, 0.00, 0.00/ DATA(AD(I,24,16),I=1,8)/ 0.36558E-06,0.91627E-06,0.54641E-08, > 0.00000E+00, 357.22, 616.12, 67.97, 0.00/ DATA(AD(I,24,17),I=1,8)/ 0.17002E-06,0.79274E-08,0.73716E-06, > 0.00000E+00, 319.62, 46.81,603.05, 0.00/ DATA(AD(I,24,18),I=1,8)/ 0.53207E-07,0.64047E-06,0.00000E+00, > 0.00000E+00, 69.25, 651.73, 0.00, 0.00/ DATA(AD(I,24,19),I=1,8)/ 0.78088E-06,0.13151E-06,0.00000E+00, > 0.00000E+00, 684.21, 72.45, 0.00, 0.00/ DATA(AD(I,24,20),I=1,8)/ 0.78315E-07,0.69790E-06,0.00000E+00, > 0.00000E+00, 67.71, 695.99, 0.00, 0.00/ DATA(AD(I,24,21),I=1,8)/ 0.34066E-07,0.68886E-07,0.38041E-06, > 0.00000E+00, 28.56, 103.67,686.30, 0.00/ DATA(AD(I,24,22),I=1,8)/ 0.31912E-06,0.26730E-07,0.18169E-07, > 0.00000E+00, 760.25, 70.07, 15.81, 0.00/ DATA(AD(I,24,23),I=1,8)/ 0.52000E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,4583.00, 0.00, 0.00, 0.00/ DATA(AD(I,24,24),I=1,8)/ 0.28122E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,4701.20, 0.00, 0.00, 0.00/ DATA(AD(I,25, 2),I=1,8)/ 0.89688E-09,0.00000E+00,0.00000E+00, > 0.00000E+00, 11.46, 0.00, 0.00, 0.00/ DATA(AD(I,25, 3),I=1,8)/ 0.62282E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 17.27, 0.00, 0.00, 0.00/ DATA(AD(I,25, 4),I=1,8)/ 0.19777E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 20.73, 0.00, 0.00, 0.00/ DATA(AD(I,25, 5),I=1,8)/ 0.43796E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 26.16, 0.00, 0.00, 0.00/ DATA(AD(I,25, 6),I=1,8)/ 0.53837E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 38.54, 0.00, 0.00, 0.00/ DATA(AD(I,25, 7),I=1,8)/ 0.10407E-06,0.00000E+00,0.00000E+00, > 0.00000E+00, 50.95, 0.00, 0.00, 0.00/ DATA(AD(I,25, 8),I=1,8)/ 0.14197E-06,0.00000E+00,0.00000E+00, > 0.00000E+00, 63.92, 0.00, 0.00, 0.00/ DATA(AD(I,25, 9),I=1,8)/ 0.83989E-07,0.38826E-06,0.00000E+00, > 0.00000E+00, 17.50, 113.67, 0.00, 0.00/ DATA(AD(I,25,10),I=1,8)/ 0.42565E-07,0.41803E-06,0.00000E+00, > 0.00000E+00, 18.10, 136.16, 0.00, 0.00/ DATA(AD(I,25,11),I=1,8)/ 0.12736E-06,0.00000E+00,0.00000E+00, > 0.00000E+00, 54.37, 0.00, 0.00, 0.00/ DATA(AD(I,25,12),I=1,8)/ 0.11538E-06,0.15694E-06,0.00000E+00, > 0.00000E+00, 213.30, 74.91, 0.00, 0.00/ DATA(AD(I,25,13),I=1,8)/ 0.10494E-06,0.18558E-06,0.00000E+00, > 0.00000E+00, 198.60, 34.18, 0.00, 0.00/ DATA(AD(I,25,14),I=1,8)/ 0.89493E-07,0.12966E-06,0.00000E+00, > 0.00000E+00, 223.96, 36.55, 0.00, 0.00/ DATA(AD(I,25,15),I=1,8)/ 0.53989E-07,0.43600E-06,0.95638E-07, > 0.00000E+00, 185.98, 650.00, 28.74, 0.00/ DATA(AD(I,25,16),I=1,8)/ 0.39422E-06,0.52893E-06,0.00000E+00, > 0.00000E+00, 727.00, 456.00, 0.00, 0.00/ DATA(AD(I,25,17),I=1,8)/ 0.11058E-05,0.40677E-06,0.60237E-08, > 0.00000E+00, 672.79, 379.90, 66.51, 0.00/ DATA(AD(I,25,18),I=1,8)/ 0.21014E-06,0.88169E-08,0.85335E-06, > 0.00000E+00, 348.03, 48.37,672.27, 0.00/ DATA(AD(I,25,19),I=1,8)/ 0.56355E-07,0.72843E-06,0.00000E+00, > 0.00000E+00, 70.84, 688.24, 0.00, 0.00/ DATA(AD(I,25,20),I=1,8)/ 0.86167E-06,0.13820E-06,0.00000E+00, > 0.00000E+00, 731.78, 77.16, 0.00, 0.00/ DATA(AD(I,25,21),I=1,8)/ 0.85820E-07,0.76567E-06,0.00000E+00, > 0.00000E+00, 69.18, 746.80, 0.00, 0.00/ DATA(AD(I,25,22),I=1,8)/ 0.53898E-07,0.10739E-06,0.38675E-06, > 0.00000E+00, 35.30, 186.94,825.61, 0.00/ DATA(AD(I,25,23),I=1,8)/ 0.19258E-07,0.32398E-07,0.33784E-06, > 0.00000E+00, 16.30, 74.73,801.76, 0.00/ DATA(AD(I,25,24),I=1,8)/ 0.54476E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,4963.60, 0.00, 0.00, 0.00/ DATA(AD(I,25,25),I=1,8)/ 0.30001E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,4962.40, 0.00, 0.00, 0.00/ DATA(AD(I,26, 2),I=1,8)/ 0.17609E-09,0.80041E-10,0.00000E+00, > 0.00000E+00, 5.12, 12.90, 0.00, 0.00/ DATA(AD(I,26, 3),I=1,8)/ 0.18409E-08,0.21611E-08,0.00000E+00, > 0.00000E+00, 16.70, 31.40, 0.00, 0.00/ DATA(AD(I,26, 4),I=1,8)/ 0.12006E-07,0.37619E-08,0.00000E+00, > 0.00000E+00, 28.60, 52.10, 0.00, 0.00/ DATA(AD(I,26, 5),I=1,8)/ 0.30416E-07,0.12807E-07,0.00000E+00, > 0.00000E+00, 37.30, 67.40, 0.00, 0.00/ DATA(AD(I,26, 6),I=1,8)/ 0.64033E-07,0.19210E-07,0.00000E+00, > 0.00000E+00, 54.20, 100.00, 0.00, 0.00/ DATA(AD(I,26, 7),I=1,8)/ 0.73638E-07,0.32817E-07,0.00000E+00, > 0.00000E+00, 45.50, 360.00, 0.00, 0.00/ DATA(AD(I,26, 8),I=1,8)/ 0.12807E-06,0.28815E-07,0.00000E+00, > 0.00000E+00, 66.70, 123.00, 0.00, 0.00/ DATA(AD(I,26, 9),I=1,8)/ 0.14407E-06,0.56029E-07,0.00000E+00, > 0.00000E+00, 66.10, 129.00, 0.00, 0.00/ DATA(AD(I,26,10),I=1,8)/ 0.11206E-06,0.20811E-06,0.00000E+00, > 0.00000E+00, 21.60, 136.00, 0.00, 0.00/ DATA(AD(I,26,11),I=1,8)/ 0.80041E-07,0.22412E-06,0.00000E+00, > 0.00000E+00, 22.20, 144.00, 0.00, 0.00/ DATA(AD(I,26,12),I=1,8)/ 0.18009E-06,0.18489E-06,0.00000E+00, > 0.00000E+00, 59.60, 362.00, 0.00, 0.00/ DATA(AD(I,26,13),I=1,8)/ 0.19210E-06,0.13607E-06,0.00000E+00, > 0.00000E+00, 75.00, 205.00, 0.00, 0.00/ DATA(AD(I,26,14),I=1,8)/ 0.20811E-06,0.12807E-06,0.00000E+00, > 0.00000E+00, 36.30, 193.00, 0.00, 0.00/ DATA(AD(I,26,15),I=1,8)/ 0.15208E-06,0.72037E-07,0.00000E+00, > 0.00000E+00, 39.40, 198.00, 0.00, 0.00/ DATA(AD(I,26,16),I=1,8)/ 0.96049E-07,0.96049E-07,0.48025E-06, > 0.00000E+00, 24.60, 248.00,560.00, 0.00/ DATA(AD(I,26,17),I=1,8)/ 0.45040E-06,0.63367E-06,0.00000E+00, > 0.00000E+00, 479.98, 802.63, 0.00, 0.00/ DATA(AD(I,26,18),I=1,8)/ 0.20250E-08,0.26894E-07,0.14487E-06, > 0.15368E-05, 22.50, 117.00,341.00,683.00/ DATA(AD(I,26,19),I=1,8)/ 0.20550E-06,0.88031E-07,0.85446E-06, > 0.00000E+00, 346.23, 48.25,662.92, 0.00/ DATA(AD(I,26,20),I=1,8)/ 0.12807E-07,0.57389E-07,0.72517E-07, > 0.59150E-06, 23.70, 85.10,329.00,787.00/ DATA(AD(I,26,21),I=1,8)/ 0.14808E-07,0.76279E-07,0.63232E-07, > 0.98451E-06, 13.20, 66.60,297.00,714.00/ DATA(AD(I,26,22),I=1,8)/ 0.74358E-09,0.10325E-06,0.15368E-06, > 0.72997E-06, 39.10, 80.30,392.00,919.00/ DATA(AD(I,26,23),I=1,8)/ 0.40660E-07,0.83362E-07,0.49659E-06, > 0.00000E+00, 29.03, 113.33,765.77, 0.00/ DATA(AD(I,26,24),I=1,8)/ 0.34225E-07,0.37699E-06,0.18407E-07, > 0.00000E+00, 68.95, 850.53, 15.15, 0.00/ DATA(AD(I,26,25),I=1,8)/ 0.56710E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,5359.30, 0.00, 0.00, 0.00/ DATA(AD(I,26,26),I=1,8)/ 0.29516E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,5170.20, 0.00, 0.00, 0.00/ DATA(AD(I,27, 2),I=1,8)/ 0.22840E-09,0.22710E-09,0.00000E+00, > 0.00000E+00, 4.98, 22.91, 0.00, 0.00/ DATA(AD(I,27, 3),I=1,8)/ 0.22863E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 12.45, 0.00, 0.00, 0.00/ DATA(AD(I,27, 4),I=1,8)/ 0.32233E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 25.86, 0.00, 0.00, 0.00/ DATA(AD(I,27, 5),I=1,8)/ 0.95344E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 38.41, 0.00, 0.00, 0.00/ DATA(AD(I,27, 6),I=1,8)/ 0.26180E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 48.58, 0.00, 0.00, 0.00/ DATA(AD(I,27, 7),I=1,8)/ 0.67838E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 62.93, 0.00, 0.00, 0.00/ DATA(AD(I,27, 8),I=1,8)/ 0.10306E-06,0.00000E+00,0.00000E+00, > 0.00000E+00, 72.02, 0.00, 0.00, 0.00/ DATA(AD(I,27, 9),I=1,8)/ 0.15311E-06,0.00000E+00,0.00000E+00, > 0.00000E+00, 86.37, 0.00, 0.00, 0.00/ DATA(AD(I,27,10),I=1,8)/ 0.17157E-06,0.00000E+00,0.00000E+00, > 0.00000E+00, 72.69, 0.00, 0.00, 0.00/ DATA(AD(I,27,11),I=1,8)/ 0.14307E-06,0.16201E-06,0.00000E+00, > 0.00000E+00, 168.91, 34.83, 0.00, 0.00/ DATA(AD(I,27,12),I=1,8)/ 0.11540E-06,0.12751E-06,0.00000E+00, > 0.00000E+00, 35.01, 151.68, 0.00, 0.00/ DATA(AD(I,27,13),I=1,8)/ 0.12719E-06,0.63059E-07,0.37034E-08, > 0.00000E+00, 57.51, 168.17, 26.25, 0.00/ DATA(AD(I,27,14),I=1,8)/ 0.13237E-06,0.25549E-06,0.00000E+00, > 0.00000E+00, 168.97, 64.70, 0.00, 0.00/ DATA(AD(I,27,15),I=1,8)/ 0.24285E-06,0.11802E-06,0.00000E+00, > 0.00000E+00, 40.02, 175.65, 0.00, 0.00/ DATA(AD(I,27,16),I=1,8)/ 0.18853E-06,0.50509E-07,0.00000E+00, > 0.00000E+00, 41.34, 141.64, 0.00, 0.00/ DATA(AD(I,27,17),I=1,8)/ 0.64510E-07,0.10618E-06,0.73900E-06, > 0.00000E+00, 225.14, 31.83,800.00, 0.00/ DATA(AD(I,27,18),I=1,8)/ 0.63086E-06,0.65626E-06,0.00000E+00, > 0.00000E+00, 529.42,1008.70, 0.00, 0.00/ DATA(AD(I,27,19),I=1,8)/ 0.39235E-06,0.16012E-05,0.70027E-08, > 0.00000E+00, 402.99, 764.22, 60.93, 0.00/ DATA(AD(I,27,20),I=1,8)/ 0.28624E-06,0.10800E-07,0.11109E-05, > 0.00000E+00, 401.26, 51.05,790.07, 0.00/ DATA(AD(I,27,21),I=1,8)/ 0.50114E-06,0.93988E-07,0.00000E+00, > 0.00000E+00, 952.95, 98.49, 0.00, 0.00/ DATA(AD(I,27,22),I=1,8)/ 0.15506E-06,0.10260E-05,0.00000E+00, > 0.00000E+00, 81.58, 854.70, 0.00, 0.00/ DATA(AD(I,27,23),I=1,8)/ 0.10232E-06,0.90957E-06,0.00000E+00, > 0.00000E+00, 72.97, 844.92, 0.00, 0.00/ DATA(AD(I,27,24),I=1,8)/ 0.24593E-06,0.48967E-06,0.85341E-07, > 0.00000E+00, 392.60,1472.70, 45.01, 0.00/ DATA(AD(I,27,25),I=1,8)/ 0.19473E-07,0.40341E-07,0.37772E-06, > 0.00000E+00, 15.52, 75.15,852.54, 0.00/ DATA(AD(I,27,26),I=1,8)/ 0.58671E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,5769.90, 0.00, 0.00, 0.00/ DATA(AD(I,27,27),I=1,8)/ 0.32918E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,5630.50, 0.00, 0.00, 0.00/ DATA(AD(I,28, 2),I=1,8)/ 0.12215E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 13.74, 0.00, 0.00, 0.00/ DATA(AD(I,28, 3),I=1,8)/ 0.73715E-08,0.00000E+00,0.00000E+00, > 0.00000E+00, 22.44, 0.00, 0.00, 0.00/ DATA(AD(I,28, 4),I=1,8)/ 0.19282E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 35.28, 0.00, 0.00, 0.00/ DATA(AD(I,28, 5),I=1,8)/ 0.14293E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 42.05, 0.00, 0.00, 0.00/ DATA(AD(I,28, 6),I=1,8)/ 0.39455E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 51.18, 0.00, 0.00, 0.00/ DATA(AD(I,28, 7),I=1,8)/ 0.79827E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 51.59, 0.00, 0.00, 0.00/ DATA(AD(I,28, 8),I=1,8)/ 0.87853E-07,0.00000E+00,0.00000E+00, > 0.00000E+00, 56.15, 0.00, 0.00, 0.00/ DATA(AD(I,28, 9),I=1,8)/ 0.12397E-06,0.00000E+00,0.00000E+00, > 0.00000E+00, 64.77, 0.00, 0.00, 0.00/ DATA(AD(I,28,10),I=1,8)/ 0.17935E-06,0.00000E+00,0.00000E+00, > 0.00000E+00, 107.38, 0.00, 0.00, 0.00/ DATA(AD(I,28,11),I=1,8)/ 0.19514E-06,0.00000E+00,0.00000E+00, > 0.00000E+00, 78.39, 0.00, 0.00, 0.00/ DATA(AD(I,28,12),I=1,8)/ 0.60139E-07,0.42136E-06,0.00000E+00, > 0.00000E+00, 152.86, 65.05, 0.00, 0.00/ DATA(AD(I,28,13),I=1,8)/ 0.54192E-06,0.00000E+00,0.00000E+00, > 0.00000E+00, 65.50, 0.00, 0.00, 0.00/ DATA(AD(I,28,14),I=1,8)/ 0.86652E-07,0.12526E-06,0.00000E+00, > 0.00000E+00, 149.47, 56.39, 0.00, 0.00/ DATA(AD(I,28,15),I=1,8)/ 0.11844E-06,0.35675E-06,0.00000E+00, > 0.00000E+00, 127.62, 51.44, 0.00, 0.00/ DATA(AD(I,28,16),I=1,8)/ 0.98852E-07,0.29036E-06,0.00000E+00, > 0.00000E+00, 156.31, 45.15, 0.00, 0.00/ DATA(AD(I,28,17),I=1,8)/ 0.97305E-07,0.16729E-06,0.00000E+00, > 0.00000E+00, 54.88, 40.25, 0.00, 0.00/ DATA(AD(I,28,18),I=1,8)/ 0.90000E-06,0.83006E-07,0.10862E-06, > 0.00000E+00, 870.00, 244.40, 32.59, 0.00/ DATA(AD(I,28,19),I=1,8)/ 0.54873E-06,0.95218E-06,0.00000E+00, > 0.00000E+00, 542.00, 952.00, 0.00, 0.00/ DATA(AD(I,28,20),I=1,8)/ 0.45631E-06,0.18023E-05,0.79826E-08, > 0.00000E+00, 431.64, 831.14, 58.84, 0.00/ DATA(AD(I,28,21),I=1,8)/ 0.11945E-07,0.12457E-05,0.33260E-06, > 0.00000E+00, 52.53, 865.71,429.76, 0.00/ DATA(AD(I,28,22),I=1,8)/ 0.13544E-06,0.65958E-06,0.00000E+00, > 0.00000E+00, 91.34, 905.64, 0.00, 0.00/ DATA(AD(I,28,23),I=1,8)/ 0.10527E-05,0.17028E-06,0.00000E+00, > 0.00000E+00, 960.14, 92.17, 0.00, 0.00/ DATA(AD(I,28,24),I=1,8)/ 0.11189E-06,0.98118E-06,0.00000E+00, > 0.00000E+00, 75.94, 911.30, 0.00, 0.00/ DATA(AD(I,28,25),I=1,8)/ 0.71156E-07,0.92295E-07,0.57777E-06, > 0.00000E+00, 37.23, 168.82,936.53, 0.00/ DATA(AD(I,28,26),I=1,8)/ 0.44618E-07,0.19518E-07,0.39700E-06, > 0.00000E+00, 75.44, 15.11,880.65, 0.00/ DATA(AD(I,28,27),I=1,8)/ 0.63280E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,6195.50, 0.00, 0.00, 0.00/ DATA(AD(I,28,28),I=1,8)/ 0.35363E-06,0.00000E+00,0.00000E+00, > 0.00000E+00,6011.90, 0.00, 0.00, 0.00/ end subroutine dheavy (iz,in,t,d) C***************************************************************************** C** approximate dielectronic recomb. rates for heavy (Z>28) atoms and ions C** (see Cranmer 2000) C** NOTE: THIS ROUTINE IS FOR ONLY T=1.0d6 K !!!!!!! C** C** Input parameters: iz - atomic number C** in - number of electrons from 1 to iz C** t - temperature, K C** Output parameter: d - rate coefficient, cm^3 s^(-1) C***************************************************************************** implicit real*8 (a-h,o-z) common/CH/CH(5,92,92) r=0.0 if(t.ne.1.0d6)then write(6,'('' temperature is not 10^6 K ! '',i4 & )') iz stop endif if(iz.lt.28.or.iz.gt.92)then write(6,'('' dheavy called with insane atomic number, ='',i4 & )') iz stop endif if(in.lt.1.or.in.gt.iz)then write(6,'('' dheavy called with insane number elec ='',i4 & )') in stop endif d = 1.26d-12 * (CH(1,iz,in)**0.522) return end subroutine aufit (iz,in,t,a) C***************************************************************************** C** autoionization rates from Landini & Monsignori Fossi (1990) C** C** Input parameters: iz - atomic number C** in - number of electrons from 1 to iz C** ii - ion number (ii = iz-in+1) C** t - temperature, K C** Output parameter: a - rate coefficient, cm^3 s^(-1) C***************************************************************************** implicit real*8 (a-h,o-z) common/AU/AU(2,28,28) a = 0.0 ii = iz-in+1 if (iz.lt.1.or.iz.gt.28) return if (in.lt.1.or.in.gt.iz) return if (AU(1,iz,ii).eq.0.0) return y = AU(2,iz,ii)/t RN = 1.0 call EXPINT (RN,y,E1y,EXPE1y,IERR) if (IERR.ne.0) then write(0,*) ' error in EXPINT ' stop end if f1 = EXPE1y if (in.eq.3) then fy = 2.22*f1 + 0.67*(1.0 - y*f1) + 0.49*y*f1 > + 1.20*y*(1.0 - y*f1) else if ((in.eq.11).and.(iz.le.16)) then fy = 1.0 - y*f1 else if ((in.eq.11).and.(iz.ge.18)) then fy = 1.0 - 0.5*(y - y*y + y*y*y*f1) else if ((in.gt.12).and.(in.le.18).and.(iz.ge.18)) then fy = 1.0 - 0.5*(y - y*y + y*y*y*f1) else fy = 1.0 + f1 end if a = AU(1,iz,ii) / sqrt(t) * exp(-y) * fy return end block data auifit implicit real*8 (a-h,o-z) common/AU/AU(2,28,28) DATA(AU(I, 6, 4),I=1,2)/ 6.330d-7, 3.450d6 / DATA(AU(I, 7, 5),I=1,2)/ 4.440d-7, 4.850d6 / DATA(AU(I, 8, 6),I=1,2)/ 3.245d-7, 6.500d6 / DATA(AU(I,10, 8),I=1,2)/ 1.870d-7, 1.050d7 / DATA(AU(I,11, 9),I=1,2)/ 1.449d-7, 1.276d7 / DATA(AU(I,12, 2),I=1,2)/ 1.040d-6, 6.030d5 / DATA(AU(I,12,10),I=1,2)/ 1.140d-7, 1.550d7 / DATA(AU(I,13, 3),I=1,2)/ 2.537d-5, 9.048d5 / DATA(AU(I,13,11),I=1,2)/ 9.014d-8, 1.839d7 / DATA(AU(I,14, 4),I=1,2)/ 4.492d-5, 1.210d6 / DATA(AU(I,14,12),I=1,2)/ 7.188d-8, 2.130d7 / DATA(AU(I,16, 6),I=1,2)/ 9.635d-5, 1.810d6 / DATA(AU(I,16,14),I=1,2)/ 4.648d-8, 2.820d7 / DATA(AU(I,18, 3),I=1,2)/ 8.827d-6, 2.137d6 / DATA(AU(I,18, 4),I=1,2)/ 8.827d-6, 2.192d6 / DATA(AU(I,18, 5),I=1,2)/ 8.827d-6, 2.441d6 / DATA(AU(I,18, 6),I=1,2)/ 8.827d-6, 2.777d6 / DATA(AU(I,18, 7),I=1,2)/ 8.827d-6, 2.818d6 / DATA(AU(I,18, 8),I=1,2)/ 9.903d-6, 2.887d6 / DATA(AU(I,18,16),I=1,2)/ 3.065d-8, 3.610d7 / DATA(AU(I,20, 5),I=1,2)/ 7.150d-7, 3.339d6 / DATA(AU(I,20, 6),I=1,2)/ 7.150d-6, 3.384d6 / DATA(AU(I,20, 7),I=1,2)/ 7.150d-6, 3.609d6 / DATA(AU(I,20, 8),I=1,2)/ 7.150d-7, 3.880d6 / DATA(AU(I,20, 9),I=1,2)/ 7.150d-6, 3.956d6 / DATA(AU(I,20,10),I=1,2)/ 6.021d-5, 4.035d6 / DATA(AU(I,20,18),I=1,2)/ 2.059d-8, 4.460d7 / DATA(AU(I,26,11),I=1,2)/ 4.231d-6, 7.157d6 / DATA(AU(I,26,12),I=1,2)/ 4.231d-6, 7.520d6 / DATA(AU(I,26,13),I=1,2)/ 4.231d-6, 7.727d6 / DATA(AU(I,26,14),I=1,2)/ 4.231d-6, 7.655d6 / DATA(AU(I,26,15),I=1,2)/ 4.231d-6, 8.083d6 / DATA(AU(I,26,16),I=1,2)/ 2.111d-6, 8.166d6 / DATA(AU(I,26,24),I=1,2)/ 6.944d-9, 7.646d7 / DATA(AU(I,28,13),I=1,2)/ 3.648d-6, 8.479d6 / DATA(AU(I,28,14),I=1,2)/ 3.648d-6, 9.044d6 / DATA(AU(I,28,15),I=1,2)/ 3.648d-6, 9.266d6 / DATA(AU(I,28,16),I=1,2)/ 3.648d-6, 9.041d6 / DATA(AU(I,28,17),I=1,2)/ 3.648d-6, 9.667d6 / DATA(AU(I,28,18),I=1,2)/ 1.623d-6, 9.744d6 / DATA(AU(I,28,26),I=1,2)/ 5.003d-9, 8.890d7 / DATA(AU(I, 9, 7),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I, 9, 8),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,15, 1),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,15, 2),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,15, 3),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,15, 4),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,15, 5),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,15,13),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,15,14),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,17, 2),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,17, 3),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,17, 4),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,17, 5),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,17, 6),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,17, 7),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,17,15),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,17,16),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,19, 4),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,19, 5),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,19, 6),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,19, 7),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,19, 8),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,19, 9),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,19,17),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,19,18),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,22, 7),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,22, 8),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,22, 9),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,22,10),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,22,11),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,22,12),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,22,20),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,22,21),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,24, 9),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,24,10),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,24,11),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,24,12),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,24,13),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,24,14),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,24,22),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,24,23),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,25,10),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,25,11),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,25,12),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,25,13),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,25,14),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,25,15),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,25,23),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,25,24),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,27,12),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,27,13),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,27,14),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,27,15),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,27,16),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,27,17),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,27,25),I=1,2)/ 0.000d-6, 0.000d6 / DATA(AU(I,27,26),I=1,2)/ 0.000d-6, 0.000d6 / end SUBROUTINE EXPINT (RN,X,ENX,EXPENX,IERR) C ====================================================================== C NIST Guide to Available Math Software. C Source for module EXPINT from package SPECFN. C Retrieved from CAMSUN on Fri Apr 30 14:20:10 1999. C ====================================================================== C LANGUAGE. AMERICAN NATIONAL STANDARD FORTRAN C C DEFINITIONS. C EN(X)= INTEGRAL (EXP(-X*T)DT/(T**N)), FROM 1 TO INFINITY C RN(=N), POSITIVE INTEGER C X, REAL AND POSITIVE C C SPECIAL CASES C EN(0)=INFINITY(=RINF, MAXIMUM MACHINE VALUE) N .LE. 1 C EN(0)= 1/N-1 N .GT. 1 C C E0(X)= EXP(-X)/X X .GT. 1/RINF C E0(X)= INFINITY X .LE. 1/RINF C C USAGE. CALL EXPINT (RN,X,ENX,EXPENX,IERR) C C FORMAL PARAMETERS C RN REAL OR DOUBLE PRECISION TYPE INPUT C FOR A POSITIVE INTEGER N C X (SAME TYPE AS RN) INPUT C ENX= EN(X) (SAME TYPE AS X) OUTPUT C EXPENX= EXP(X)*EN(X) (SAME TYPE AS X) OUTPUT C IERR INTEGER VARIABLE OUTPUT C NORMAL RETURN IERR= 0 C ERROR RETURN IERR= 1, X AND/OR N NEGATIVE C ENX=EXPENX=-INFINITY (IMPOSSIBLE VALUE) C IERR= 2, N NON-INTEGER C ENX=EXPENX=INFINITY C C MODIFICATIONS C DOUBLE PRECISION UNIVAC 1108 RESULTS ARE OBTAINED IF AS C SET UP BELOW WHERE C C NBM=ACCURACY DESIRED OR MAXIMUM NUMBER OF BINARY C DIGITS IN THE MANTISSA OF A FLOATING POINT NUMBER C C WITH C (1) THE DOUBLE PRECISION TYPE STATEMENT C (2) THE MAXIMUM MACHINE VALUE AND THE MAXIMUM INTEGER C (=RMAXI) CONVERTIBLE TO A FLOATING POINT NUMBER C GIVEN AS DOUBLE PRECISION CONSTANTS C (3) DOUBLE PRECISION DECIMAL CONSTANTS C (4) DATA STATEMENT NBM=60 FOR THE CONTROL VARIABLE C (5) FUNCTION TYPE STATEMENTS - DEXP, DLOG. C C SINGLE PRECISION UNIVAC 1108 RESULTS ARE OBTAINED BY C (1) DELETING THE DOUBLE PRECISION TYPE STATEMENT C (2) ADJUSTING MAXIMUM MACHINE VALUE C (3) CHANGING THE D'S TO E'S ON THE DATA CARDS FOR ALL C DECIMAL CONSTANTS C (4) SETTING NBM=27 IN THE CONTROL VARIABLE DATA C (5) CHANGING FUNCTION TYPE - EXP, ALOG. C C FOR OTHER COMPUTERS THE APPROPRIATE VALUE OF NBM MUST C BE INSERTED AND ALL VALUES ADJUSTED ACCORDINGLY. C C IF A PRECOMPUTED VALUE OF TOLER(=2**(-NBM)) IS C INCLUDED IN A DATA STATEMENT, COMPUTATION OF THE CONTROL C VARIABLE MAY BE OMITTED AND THE DATA STATEMENT FOR NBM C DELETED. C C CAUTION - THE SUBROUTINE CANNOT READILY BE ADAPTED TO C COMPUTE THE EXPONENTIAL INTEGRAL FOR A COMPLEX C ARGUMENT AS THE CONTINUED FRACTION IS INVALID C ALONG THE NEGATIVE REAL AXIS. IN ADDITION MANY C OF THE COMPARISONS BECOME MEANINGLESS. C C METHOD. C POWER SERIES, X .LE. 1(=ULPS, UPPER LIMIT FOR POWER C SERIES) C ENX = SUM(TM), M=0,1,2,...,K C TM =-((-X)**M/1*2*3...M)/(M-N+1=D) M .NE. N-1 C = PTERM/D C TM = PTERM*(LOG(X)-PSI(N)) M .EQ. N-1 C PTERM(0)=-1 C PTERM(M+1)= PTERM(M)*(-X)/(M+1) C PSI(N)= -EULER+1+1/2+ ... +1/(N-1) C IF R.E.(=ABS(TM/SUM)) .LE. TOLER (=2**(-NBM)), M=K C C CONTINUED FRACTION, X .GT. 1 C EN(X)=EXP(-X)*(1I/I(X+N)- 1*N I/I(X+N+2)- C 2*(N+1)I/I(X+N+4)-... C EN(X)=EXP(-X)*II(AM I/I BM) M=1,2,...,K C AM(1)=1 AM(M)=-(M-1)*(N+M-2) C BM(M)=X+N+2*(M-1) C C EN(X)=EXP(-X)*FM(K)/GM(K)=EXP(-X)*F(K) C IF R.E. (=ABS(1-PREV/F)) .LE. TOLER(=2**(-NBM)),M=K C F=FM/GM PREV=FMM1/GMM1 C C RANGE. C FOR EXP(X)*EN(X) (N+X) .LE. MAXIMUM MACHINE VALUE C FOR EN(X) X=APPROXIMATELY 85.0, SINGLE PRECISION C 704.0, DOUBLE PRECISION C BEYOND THIS RANGE EN(X)=0 C C ACCURACY. THE NUMBER OF ACCURATE BINARY DIGITS IS ESSEN- C TIALLY THE LESSER OF C NBM - SQUARE ROOT OF NBM C NBM - I(NUMBER OF BINARY DIGITS REPRESENT- C ING THE INTEGER PART OF X) C (ACCURACY OF THE EXPONENTIAL ROUTINE) C C PRECISION. VARIABLE - BY SETTING THE DESIRED NBM OR TOLER. C C MAXIMUM TIME. UNIVAC 1108-EXEC II C (SECONDS) NBM=27 NBM=60 C .0025 .015 C C STORAGE. COMPILED BY THE UNIVAC 1108, EXEC 8/FORTRAN V, C THIS SUBROUTINE REQUIRES 478 WORDS OF STORAGE. C C------------------------------------------------------------------------ implicit real*8 (a-h,o-z) C MACHINE DEPENDENT STATEMENTS DOUBLE PRECISION AM,ASUM,BM,D,ENX,EULER, 1 EXPENX,EXPNX,F,FM,FMM1,FMM2,GM,GMM1, 2 GMM2,HALF,ONE,ONPTFV,PREV,PSI,PTERM, 3 RINF,RM,RMAXI,RN,RNM1,RRN,SUM,TEMP, 4 TM,TOLER,TWO,ULPS,X,XLOG,ZERO C CONSTANTS C MAXIMUM MACHINE VALUE C MAXIMUM CONVERTIBLE INTEGER DATA RINF / .898846567431157954D308 / DATA RMAXI / 134217727.D0 / C ADDITIONAL CONSTANTS C DATA EULER / .577215664901532861D0 / DATA HALF,ONE,ONPTFV,TWO,ULPS,ZERO / 1 .5D0,1.D0,1.5D0,2.D0,1.D0,0.0D0 / C CONTROL VARIABLE C C NBM=ACCURACY DESIRED OR MAXIMUM NUMBER OF BINARY C DIGITS IN THE MANTISSA OF A FLOATING POINT NUMBER DATA NBM / 60 / TOLER=TWO**(-NBM) C VALIDITY TEST FOR INPUT PARAMETERS C ERROR CONDITION, IMPOSSIBLE VALUES RETURNED C C NEGATIVE ZERO CHECKS IERR=0 IF (RN .LT. ZERO) GO TO 3 IF (RN .GT. RMAXI) GO TO 10 C VALIDITY TEST FOR N INTEGER N=RN RRN=N IF (RRN) 2,1,2 1 IF ((RN-RRN)-TOLER) 10,10,2 2 IF ((ONE-(RRN/RN)) .LE. TOLER) GO TO 10 RRN=RRN+ONE IF ((ONE-(RN/RRN)) .LE. TOLER) GO TO 10 C ERROR RETURN C N NON-INTEGER IERR=2 ENX=RINF EXPENX=ENX RETURN 3 IF (-RN) 12,10,12 10 IF (X) 11,30,20 11 IF (-X) 12,30,12 C ERROR RETURN C X AND/OR N NEGATIVE 12 IERR=1 ENX=-RINF EXPENX=ENX RETURN C FUNCTION TYPE STATEMENTS 20 EXPNX=DEXP(-X) XLOG=DLOG(X) IF (RN .GE. HALF) GO TO 60 C SPECIAL CASES IF (X .LE. ONE/RINF) GO TO 40 EXPENX=ONE/X ENX=EXPNX*EXPENX RETURN 30 IF (RN .LT. ONPTFV) GO TO 40 ENX=ONE/(RN-ONE) GO TO 50 40 ENX=RINF 50 EXPENX=ENX RETURN 60 IF (RN .GT. RMAXI) GO TO 70 IF (X .LE. ULPS) GO TO 100 70 IF (X .LE. (RINF-RN)) GO TO 200 EXPENX=ZERO ENX=EXPENX RETURN C METHOD --- POWER SERIES 100 RM=0 PTERM=-ONE SUM=0 PSI=-EULER D=-(RN-ONE) 110 IF (D .GE. HALF) GO TO 130 IF (-D .GE. HALF) GO TO 120 C COMPUTE TM FOR M .EQ. N-1 SUM=PTERM*(XLOG-PSI)+SUM GO TO 170 C COMPUTE PSI(N) 120 PSI=PSI+(ONE/(RM+ONE)) C COMPUTE TM FOR M .NE. N-1 130 TM=PTERM/D SUM=TM+SUM C TOLERANCE CHECK C ZERO CHECKS IF (SUM .LT. ZERO) GO TO 140 ASUM=SUM GO TO 150 140 ASUM=-SUM 150 IF (ASUM) 160,170,160 160 IF (TM .LT. ZERO) TM=-TM IF ( TM/ASUM .GT. TOLER) GO TO 170 ENX= SUM EXPENX=ENX/EXPNX RETURN C ADDITIONAL TERMS 170 RM=RM+ONE D=D+ONE PTERM=-(X*PTERM)/RM GO TO 110 C METHOD --- CONTINUED FRACTION 200 RM=ONE FMM2=ONE GMM2=0 FMM1=0 GMM1=ONE PREV=FMM1/GMM1 AM=ONE BM=X+RN RNM1=RN-ONE 210 FM=BM*FMM1 + AM*FMM2 GM=BM*GMM1 + AM*GMM2 F=FM/GM C TOLERANCE CHECK TEMP=ONE-(PREV/F) IF (TEMP .GT. ZERO) GO TO 220 EXPENX=PREV GO TO 230 220 IF (TEMP .GT. TOLER) GO TO 240 EXPENX=F 230 ENX=EXPNX*EXPENX RETURN 240 IF( GM .LT. RINF/BM) GO TO 250 C SCALING C C BOTH FM AND GM MUST BE TESTED IF N=1 AND X .LT. .44 C SCALING SHOULD NOT BE DELETED AS THE VALUES OF FM AND GM C MAY OVERFLOW FOR SOME CHOICES OF THE PARAMETERS. FMM1=FMM1/BM GMM1=GMM1/BM FM=FM/BM GM=GM/BM C ADDITIONAL CONVERGENTS 250 AM=-RM*(RNM1+RM) RM=RM+ONE BM=BM+TWO FMM2=FMM1 GMM2=GMM1 FMM1=FM GMM1=GM PREV=F GO TO 210 END